Normal Fault Cartoon
Illustrate a normal fault using animation
normal.fault(ANG = (45), anim = seq(from = 0, to = 1, by = 0.1),
KAPPA = 4, Light = c(45, 45))ANG |
Angle of dip |
anim |
animation vector |
KAPPA |
Phong parameter for lighting |
Light |
lighting point |
Program will animate a normal fault for educational purposes. Animation must be stopped by halting execution.
Graphical Side effects
Jonathan M. Lees<jonathan.lees@unc.edu>
strikeslip.fault, thrust.fault
normal.fault(45, anim=0, KAPPA=4, Light=c(-20, 80)) ## Not run: #### execute a stop command to stop this animation anim= seq(from=0, to=1, by=.1) normal.fault(45, anim=anim, KAPPA=4, Light=c(-20, 80)) ## End(Not run)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.