aUCBLogo Demos and Tests / some_polyhedra


to some_polyhedra
   
perspective
   
hideTurtle
   
clearScreen
   
setpensize 5
   
enablecylinderlines

;   setScreenRange -500 -500 500 500
;   disableLighting
;   disableDepthTest
   
draw_scene
;   enableLighting
;   enableDepthTest
;   draw_scene
   
rotatescene
   
setSaveSize [2000 2000]
;   savescreen "test.png
   
savescreenvector "test.svg
end   

to draw_scene
   
setPenColor HSBA 120 1 1 0.5
   
size=100
   
angle2=20
   
right 90
   
back size
   
tetrahedron size 108
   
fd size*2
   
down 180
   
rightroll angle2
   
tetrahedron size 108
end

to tetrahedron   size angle
;   penup
   
fd size
   
v1=PosXYZ
   
back size
   
down angle
   
fd size
   
v2=PosXYZ
   
back size
   
up angle
   
rightroll 120
   
down angle
   
fd size
   
v3=PosXYZ
   
back size
   
up angle
   
rightroll 120
   
down angle
   
fd size
   
v4=PosXYZ
   
back size
   
up angle
   
drawface v1 v2 v3
   
setPenColor HSBA 120 1 1 0.5
   
drawface v2 v3 v4
   
setPenColor HSBA 125 1 1 0.5
   
drawface v3 v4 v1
   
setPenColor HSBA 120 1 1 0.5
   
drawface v4 v1 v2
end

to drawface a b c
   
oldpos=PosXYZ
   
penup
   
setPosXYZ a
   
pendown
   
Polygon
   
[   setPosXYZ b
      
setPosXYZ c
      
setPosXYZ a
   
]
   
penup
   
setposXYZ oldpos
end