!leftsqu= f [40] l [90] f [40] l [90] f [40] l [90] f [40] l [90] ; ; !rightsqu= f [40] r [90] f [40] r [90] f [40] r [90] f [40] r [90] ; ; !twosquare= rightsqu leftsqu ; ; !window= twosquare turn [180] twosquare ; ; !Llett= l [90] u f [80] d f [30] r [90] f [50] ; ; !Olett= d f [30] r [90] f [50] r [90] f [30] r [90] f [50] ; ; !Glett= f [30] r [90] f [5] u f [20] d f [25] r [90] f [30] r [90] f [50] ; ; !logorite= Llett r [90] u f [50] Olett r [90] u f [50] d Glett r [90] u f [50] Olett ; !startwrite= logorite t [180] f [25] r [90] u f [15] d f [15] h ; ; !ltrangle= f [40] l [135] f [56] l [135] f [40] ; ; !rtrangle= f [40] r [135] f [56] r [135] f [40] ; ; !diamon= ltrangle r [90] ltrangle ; ; !rdiamon= rtrangle l [90] rtrangle ; ; !againdim= again [2] diamon ; ; !repeat= R rdiamon u f [80] d diamon r [10] u f [80] d ; ; !snowflake= cs R diamon l [33] ; ; !pentagon= f [40] r [72] f [40] r [72] f [40] r [72] f [40] r [72] f [40] r [72] ; ; !octagon= f [40] r [45] f [40] r [45] f [40] r [45] f [40] r [45] f [40] r [45] f [40] r [45] f [40] r [45] f [40] r [45] ; ; !hexagon= f [40] r [60] f [40] r [60] f [40] r [60] f [40] r [60] f [40] r [60] f [40] r [60] ; ; !etrangle= f [40] r [120] f [40] r [120] f [40] ; ; !retrangle= cs R etrangle l [33] ; ; !fdecagon= f [20] r [36] f [20] r [36] f [20] r [36] f [20] r [36] f [20] r [36] ; ; !sdecagon= f [20] r [36] f [20] r [36] f [20] r [36] f [20] r [36] f [20] r [36] ; ; !decagon= fdecagon sdecagon ; ; !rdecagon= cs R decagon r [11] ; ; !Rdecagon= cs R decagon l [33] ; ; !roctagon= cs R l [3] octagon ; ; !rhexagon= cs R l [7] hexagon ; ; !rectangle= f [40] l [90] f [20] l [90] f [40] l [90] f [20] ; ; !shapes1= r [90] u f [90] t [0] d rectangle l [180] u f [40] d etrangle t [0] ; ; !shapes2= leftsqu p c rectangle p c etrangle p c ltrangle p c hexagon p c pentagon p c octagon p c decagon ; ; !shapes= shapes1 l [90] u f [60] t [0] d leftsqu t [0] l [90] u f [60] d t [0] ltrangle t [0] h ; ; !colordemo= B [9] B [0] C [0] f [10] C [1] f [10] C [2] f [10] C [3] f [10] ;;