home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
logo
/
labybug
/
pattern.bug
< prev
next >
Wrap
Text File
|
1989-11-13
|
768b
|
58 lines
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