strikeslip.fault | R Documentation |
Illustrate a strikeslip fault using animation
strikeslip.fault(anim = seq(from = 0, to = 1, by = 0.1), KAPPA = 2,
Light = c(45, 45))
anim |
animation vector |
KAPPA |
Phong parameter for lighting |
Light |
lighting point |
Program will animate a strikeslip fault for educational purposes. Animation must be stopped by halting execution.
Graphical Side effects
Jonathan M. Lees<jonathan.lees@unc.edu>
normal.fault, thrust.fault
strikeslip.fault(anim=0, Light=c(45,90) )
## Not run:
#### execute a stop command to stop this animation
anim= seq(from=0, to=1, by=.1)
strikeslip.fault(anim=anim, Light=c(45,90) )
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.