home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
logo
/
labybug
/
octahed.bug
< prev
next >
Wrap
Text File
|
1989-12-31
|
512b
|
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