aUCBLogo Demos and Tests / 3dt3

to 3dt3
   singleshot=Name? "framenr
   perspective cs ht
   setlabelsize [20 40]
   setLabelAlign 0 0
   setPenSize [0 0]
   setupdategraph false
   phi=0
   dphi=3
   eye={500 400 500}
   setpc 1
   j sety -100
   cube 200 4
   rotatescene
end

to cube :size :lev
   if :lev==0 [stop]
   repeat 4
   [   repeat 4
      [   cube :size/3 :lev- 1
         fd :size rt 90
      ]
      fd size
      up 90
   ]
end

to j
   cs pu
   setxyz 0  225 0  seth 90  label [3D perspective ]
   setxyz 0 -300 0  seth 90  label "cube home pd;axes
end
;I hope you will enjoy it
;Best Regards !
;mhelhefny