home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
logo
/
labybug
/
animate.bug
next >
Wrap
Text File
|
1989-02-05
|
640b
|
55 lines
to "poly :d :a
forward :d
right :a
poly :d :a
end
to "animate
HT
LEGS
BODY
HEAD
ARMS
REPEAT 3 [ MOVE ]
end
to "legs
RT 165 FD 30 BK 30
RT 30 FD 30 BK 30
end
to "body
RT 165 FD 30 LT 90
end
to "head
REPEAT 60 [ FD 1 RT 6 ]
end
to "arms
LT 90 FD 5 LT 90
FD 20 BK 40 FD 20
end
to "move
REPEAT 3 [ MOVE.UP ]
REPEAT 6 [ MOVE.DOWN ]
REPEAT 3 [ MOVE.UP ]
end
to "move.up
PC 0 FD 20 BK 40 FD 20
PC 3 LT 10 FD 20 BK 40 FD 20
end
to "move.down
PC 0 FD 20 BK 40 FD 20
PC 3 RT 10 FD 20 BK 40 FD 20
end
K 40 FD 20
PC 3 LT 10 FD 20 BK 40 FD 20
end
to "move.down
PC 0 FD 20 BK