home *** CD-ROM | disk | FTP | other *** search
- to "poly :d :a
- forward :d
- right :a
- poly :d :a
- end
-
- to "pattern :R :D
- REPEAT :R [FD :D MARK RT 360 / :R]
- end
-
- to "pattern.2 :R :D
- REPEAT :R [MARKER.1 FD :D RT 360 / :R]
- end
-
- to "marker.1
- RT 27 FB :D * 3.533 LT 27
- end
-
- to "multi.patt
- shift -120 0
- PATTERN.1 50 15
- shift -80 0
- PATTERN.1 40 15
- shift -40 0
- PATTERN.1 30 15
- shift -30 0
- PATTERN.2 20 15
- end
-
- to "mark
- LT 90
- FD 2 BK 4 FD 2
- RT 90
- end
-
- to "fb :N
- FD :N BK :N
- end
-
- to "marker
- RT 30 FB :D * 5.5 LT 30
- end
-
- to "pattern.1 :R :D
- REPEAT :R [MARKER FD :D RT 360 / :R]
- end
-
- to "shift :x :y
- pu setxy :x :y setheading 0 pd
- end
-
- to "pattern.1 :R :D
- REPEAT :R [MARKER FD :D RT 360 / :R]
- end
-
- to "shift :x :y
- pu setxy :x :y setheading 0 pd
- en