home *** CD-ROM | disk | FTP | other *** search
- 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