3D Pattern Genorator

2d shapes in 3d space. I hope you like the cool patterns and the way you can change the model easily to fit your likeings.

I'm doing this as my first project in the gifted and talented work shop. N is the amount of  shapes, n2 is the amount of sides in the shapes and n3 is the amount of shapes in the third dimension.

Below is the code and the world for you to play with:

CLEAN HOME
 
;BY MATHSKID
 
;n is the amount of shapes
MAKE "n 20
 
;2n is the number of sides on the shapes
MAKE "n2 20
 
;n3 is how m1any patterns set up in the third dimension
MAKE "n3 20
 
TO pgonr :side
PD
REPEAT :side [FD 1 RT 360/:side NC ]
PU
END
 
REPEAT :n3[REPEAT :n[pgonr :n2 RT 360/:n] TR 360/:n3]

Pleas leave me a comment, on how to improve or how you like, my pattern