; Palm tree ; clean home ct reset setbg 42 ru 90 setscale 10 10 1 rectangle select object setit 7 21 setitscale 2 2 home setscale .21 0.05 .21 west 1 north 1 elegrid select object setit 4 14 setscale 1 1 1 home make "cs [] repeat 24 [ fd .5 queue "cs xcor queue "cs zcor bk .5 lt 360/24 ] home fd .5 queue "cs xcor queue "cs zcor bk .5 make "spine [ 0 0 0 0 .2 0 0 .4 0 0 .5 0 0 .6 0 0 1 0 0.05 2 0 0.1 3 0 0.05 3.2 0 0 3.4 0 0 3.8 0 0 4 0] make "scale [ .9 .9 1.2 1.2 1.3 1.3 1.35 1.35 1.3 1.3 .9 .9 .7 .7 .35 .35 .4 .4 .35 .35 .2 .2 .15 .15] extrusion select object setit 6 16 make "obj word object "_extrusion set :obj "crossSection :cs set :obj "creaseAngle 3.14 set :obj "spine :spine set :obj "scale :scale up 4 make "ori ori repeat 10 [ setheading :ori rt random 360 rd random 120 WORLD "/sites/default/files/user/u3/world/palm_leaf.x3d ]