Interactive Earth Cross Section

; earth cross section 2
; By Andy Yeh (2015)
CS RESET
SETBG 25
RU 180
SETMAT 6 11
DISH
SET WORD OBJECT "_dish "bottom FALSE
LT 45 TL 90
DISH
SET WORD OBJECT "_dish "bottom FALSE
RU 90
DISH
SET WORD OBJECT "_dish "bottom FALSE
TL 180
SETMAT 0 33
PIE
BK 0.001 SETSCALE .9 .9 .9
SETMAT 6 26
PIE
BK 0.001 SETSCALE .6 .6 .6
SETMAT 3 30
PIE
FD 0.002
TR 90 RT 90
SETSCALE 1 1 1 SETMAT 0 33
PIE
BK 0.001 SETSCALE .9 .9 .9
SETMAT 6 26
PIE
BK 0.001 SETSCALE .6 .6 .6
SETMAT 3 30
PIE
FD 0.002
TR 90 RT 90
SETSCALE 1 1 1 SETMAT 0 33
PIE
BK 0.001 SETSCALE .9 .9 .9
SETMAT 6 26
PIE
BK 0.001 SETSCALE .6 .6 .6
SETMAT 3 30
PIE
FD 0.002
SETSCALE .5 .5 .5
SETMAT 3 31
BALL  ; now the inner core is replaced by a ball
MAKE "key [0 .33 .66 1]
MAKE "value [[.78 .39 .36][1 1 .7][1 .236 .21][.78 .39 .36]]
COLORINT "ci :key :value ; create a color interpolator
TIMESENSOR "ts 4 TRUE  ; create a timesensor
ROUTE "r1 "ts "fraction_changed "ci "set_fraction  ; route to the three Mantle pies
ROUTE "r2 "ci "value_changed "obj_4_mat "diffuseColor
ROUTE "r3 "ci "value_changed "obj_7_mat "diffuseColor
ROUTE "r4 "ci "value_changed "obj_10_mat "diffuseColor
HOME SETSCALE .5 .5 .5
EAST 1 UP 1 SETMAT 0 33
LABEL "Crust  ; create a lable than hide it
SET OBJECT "render FALSE
DOWN 1 BACK 1 SETMAT 6 26
LABEL "Mantle
SET OBJECT "render FALSE
WEST 2 DOWN .3 SETMAT 3 30
LABEL [Outer Core]
SET OBJECT "render FALSE
FD 1 UP 1.3 SETMAT 3 31
LABEL [Inner Core]
SET OBJECT "render FALSE
TOGGLE "act1 "obj_13 "render  ; obj_13 id the Crust label. This creates a toggle object to its render attribute
CLICK "obj_3 "act1  ; obj_3, 6 and 9 are the crust pies. The CLICK command connects the object to be clicked and the action (toggle)
CLICK "obj_6 "act1
CLICK "obj_9 "act1
TOGGLE "act2 "obj_14 "render
CLICK "obj_4 "act2
CLICK "obj_7 "act2
CLICK "obj_10 "act2
TOGGLE "act3 "obj_15 "render
CLICK "obj_5 "act3
CLICK "obj_8 "act3
CLICK "obj_11 "act3
TOGGLE "act4 "obj_16 "render
CLICK "obj_12 "act4