RFOC (version 3.4-10)

strikeslip.fault: Strikeslip Fault Cartoon

Description

Illustrate a strikeslip fault using animation

Usage

strikeslip.fault(anim = seq(from = 0, to = 1, by = 0.1), KAPPA = 2,
                 Light = c(45, 45))

Value

Graphical Side effects

Arguments

anim

animation vector

KAPPA

Phong parameter for lighting

Light

lighting point

Author

Jonathan M. Lees<[e-mail]>

Details

Program will animate a strikeslip fault for educational purposes. Animation must be stopped by halting execution.

See Also

normal.fault, thrust.fault

Examples

strikeslip.fault(anim=0, Light=c(45,90) )

if (FALSE) {
#### execute a stop command to stop this animation
anim= seq(from=0, to=1, by=.1) 
 strikeslip.fault(anim=anim, Light=c(45,90) )
 }