home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
logo
/
labybug
/
puff1.bug
< prev
next >
Wrap
Text File
|
1989-02-05
|
896b
|
79 lines
to "head
FD 30 RT 100 FD 50
RT 160
FD 50 LT 160
FD 40 RT 160 FD 40
end
to "tri :N
REPEAT 3 [FD :N RT 120 ]
end
to "points
START
SETH -60
REPEAT 18 [TRI 8 RT 60 FD 8 LT 50]
end
to "legs
START
SETH 90
TRI 15 FD 15 TRI 15
FD 50 TRI 15 FD 15
TRI 15
end
to "tail
START
SETH 270
RT 90
REPEAT 9 [FD 5 LT 10]
REPEAT 9 [FD 5 LT 10]
REPEAT 4 [FD 4 RT 12]
LT 110 BK 10 TRI 20
end
to "neck
RT 180
REPEAT 15 [FD 5 LT 10]
REPEAT 12 [RT 10 FD 3]
LT 60 BK 15
HEAD
SETH 0
FD 20 LT 90
REPEAT 15 [FD 4 LT 10]
REPEAT 13 [FD 4 RT 12]
end
to "start
PU SETXY -25 0
PD
end
to "halfcircle :N
REPEAT 18 [FD :N RT 10]
end
to "body
HALFCIRCLE 8
FD 8 RT 90 FD 90 BK 90
end
to "puff
START
BODY
NECK
TAIL
LEGS
POINTS
end
end
to "body
HALFCIRCLE 8
FD 8 RT 90 FD 90 BK 90
end
to "puff
ST