Power-Programmierung/CD1.mdf/logo/labybug/puff.bug

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