SOLID TRIANGLES
TO tri cs seth 90 make "len 100 repeat 25[ pu fd 1 pd fd :len make "len :len-2 pu lt 90 fd 1 lt 90 fd 1 pd fd :len make "len :len-2 pu rt 90 fd 1 rt 90 pd ] pu setxy -120 0 pd seth 90 make "len 100 repeat 50[ pu fd .5 pd fd :len make "len :len-1 pu lt 90 fd 1 lt 90 fd .5 pd fd :len make "len :len-1 pu rt 90 fd 1 rt 90 pd ] END
