TO TRI :SIZE REPEAT 3 [FD :SIZE RT 120] END
TO HEXTRI :SIZE REPEAT 6 [TRI :SIZE RT 60] END
TO POLY :SIDES REPEAT :SIDES [FD 50 RT 360/:SIDES] END
to star :sides make "ang 360/:sides repeat :sides [FD 50 RT 2*:ANG FD 50 LT :ANG] end