# PLOTbox: Plot 3D box In geophys: Geophysics, Continuum Mechanics, Gravity Modeling

Plot 3D box

## Usage

 `1` ```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<jonathan.lees@unc.edu>

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45``` ```####### 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') ```