PLOTbox: Plot 3D box

In geophys: Geophysics, Continuum Mechanics, Gravity Modeling

Description

Plot 3D box

Usage

PLOTbox(Rax, Rbox, axcol = "black", boxcol = "blue")

Arguments

Rax	rotated axes
Rbox	rotated box
axcol	axes color
boxcol	box color

Value

Graphical Side effects

Author(s)

Jonathan M. Lees<[e-mail]>

See Also

pstart, PLOTplane, stress, NORMvec

Examples

#######    set colors
 axcol = 'black'
 boxcol = 'blue'
 planecol = 'brown'

####   view angle
 Rview  =    RFOC::ROTZ(-130) 

###   set arbitrary scale
    xscale = 100


###   create box  and scale it
   BOX <-matrix(c(0,0,0,0,
            0, 1, 0,0,
            0, 1, 1,0,
            0, 0, 1,0,
            1,0,0,0,
            1, 1, 0,0,
            1, 1, 1,0,
            1, 0, 1,0), ncol=4, byrow=TRUE)


    BOX = xscale*BOX

    ##############   create axes and scale them
AX = matrix(c(0,0,0,0,
            1, 0, 0,0,
            0, 0, 0,0,
            0, 1, 0,0,
            0,0,0,0,
            0, 0, 1,0), ncol=4, byrow=TRUE)

    AX = 1.5*xscale*AX

 ##############   rotate axes and box
    Rax =  AX 

    
          Rbox =   BOX 

 ##############  start the figure
pstart(xscale=xscale)
 ######  plot the box
PLOTbox(Rax, Rbox, axcol= 'black', boxcol= 'blue')

geophys documentation built on May 1, 2019, 9:26 p.m.