Turbo Toolbox/Turbo_Toolbox.iso/sharew/logo/ladybug/octahed.bug

Text File | 1989-12-30 | 512 b | 39 lines

to "movel  :d
LT 60 FD :D RT 60
end

to "tetrahedron  :D
RT 30 TRI :D MOVER :D TRI :D
MOVEL :D TRI :D
end

to "mover  :D
RT 60 FD :D LT 60
end

to "tris  :D
PU SETX - 120 PD
RT 30
REPEAT 6 [TRI :D MOVER :D]
end

to "trir  :D
RT 60 FD :D TRI :D
end

to "tri  :D
REPEAT 3 [FD :D RT 120]
end

to "octahedron  :D
LT 30 TRI :D RT 30 TETRAHEDRON :D
LT 60 TRI :D TRIR :D TRIF :D
end

to "trif  :D
FD :D RT 60 TRI :D
end

tahedron  :D
LT 30 TRI :D RT 30 TETRAHEDRON :D
LT 60 TRI :D