RFOC (version 2.0-00)

normal.fault: Normal Fault Cartoon

Description

Illustrate a normal fault using animation

Usage

normal.fault(ANG = (45), anim = seq(from = 0, to = 1, by = 0.1),
            KAPPA = 4, Light = c(45, 45))

Arguments

ANG

Angle of dip

anim

animation vector

KAPPA

Phong parameter for lighting

Light

lighting point

Value

• Graphical Side effects

Details

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

See Also

strikeslip.fault, thrust.fault

Examples

normal.fault(45, anim=0, KAPPA=4, Light=c(-20, 80))

#### 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))