home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
logo
/
labybug
/
puff.bug
< prev
next >
Wrap
Text File
|
1989-02-03
|
1KB
|
123 lines
to "poly :d :a
FORWARD :d
RIGHT :a
POLY :d :a
end
to "open
SETH 80 FD 40 RT 160
PC 0 FD 40 RT 100 FD 13.9 PC 3
SETH 100 FD 40 RT 160 FD 40
RT 100
FD 13.9
end
to "shut
SETH 100
PC 0
FD 40 RT 160 FD 40
SETH 0 FD 13.9 PC 3
SETH 80 FD 40 RT 160 FD 40
RT 100 FD 13.9
end
to "mouth
FD 30 RT 100 FD 50
RT 160 FD 50 LT 160
REPEAT 6 [ SHUT OPEN ]
end
to "neck1
RT 180
REPEAT 15 [FD 5 LT 10]
REPEAT 12 [RT 10 FD 3]
LT 60 BK 15
MOUTH
end
to "chew
HT PU HOME
START
BODY
NECK1
end
to "head
FD 30 RT 100 FD 50
RT 160
FD 50 LT 160
FD 40 RT 160 FD 40
end
to "head.shut
FD 30 RT 100 FD 50
RT 160 FD 50 LT 180
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
CHEW
end
end