home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
logo
/
labybug
/
haas.bug
< prev
next >
Wrap
Text File
|
1989-02-06
|
3KB
|
139 lines
to "poly :d :a
forward :d
right :a
poly :d :a
end
to "linkertand
MAKE "T 15
REPEAT 10 [FD :T BK :T PU RT 90 FD 1 LT 90 PD MAKE "T :T + 1]
PU LT 90 FD 10 RT 90 PD
end
to "rechertand
MAKE "T 15
REPEAT 10 [FD :T BK :T PU LT 90 FD 1 RT 90 PD MAKE "T :T + 1]
PU RT 90 FD 10 LT 90 PD
end
to "haar.l
LT 60
REPEAT 6 [FD 10 LT 10] PU REPEAT 6 [RT 10 BK 10] PD
RT 60
end
to "rechterwang
REPEAT 2 [REPEAT 18 [FD 2 RT 5] FD 10 REPEAT 18 [FD 2 RT 5]]
end
to "haas
SETUP
LINKERWANG
RIMPEL.LINKS
PU LT 90 FD 40 RT 90 PD SNOR.LINKS
PU RT 90 FD 40 LT 90 PD RECHTERWANG
RIMPEL.RECHTS PU RT 90 FD 40 LT 90 PD
SNOR.RECHTS PU LT 90 FD 31 RT 90 PU BK 33 PD
TANDEN PU FD 39 PD NEUS PU BK 4 PD PU FD 12 PD
HOOFD PU BK 12 PD PU FD 25 LT 90 FD 30 RT 90 PD OOG
PU RT 90 FD 41 LT 90 PD OOG PU LT 90 FD 11 RT 90 PD
PU FD 80 PD OREN PU BK 80 PD
end
to "rimple.links
RT 180 PU REPEAT 18 [RT 5 FD 2]
PD REPEAT 12 [RT 5 FD 2] PU REPEAT 30 [BK 2 LT 5] RT 180 PD
end
to "linkeroor
LT 30 FD 40 RT 60 REPEAT 4 [FD 15 RT 2]
REPEAT 10 [LT 2 BK 15] LT 30 REPEAT 13 [FD 10 RT 3]
RT 57 FD 54 RT 64 FD 70 PU RT 32 FD 25 RT 90 FD 48 RT 90 PD
end
to "snor.rechts
REPEAT 3 [HAAR.R PU BK 3 RT 90 FD 3 LT 80 PD]
PU REPEAT 3 [LT 100 FD 3 RT 90 FD 3] PD
end
to "rechteroor
RT 30 FD 40 LT 60 REPEAT 4 [FD 15 LT 2]
REPEAT 10 [RT 2 BK 15] RT 30
REPEAT 13 [FD 10 LT 3] LT 57 FD 54 LT 64 FD 70
PU LT 32 FD 25 LT 90 FD 48 LT 90 PD
end
to "haar.r
RT 60 REPEAT 6 [FD 10 RT 10] PU
REPEAT 6 [LT 10 BK 10 ] PD LT 60
end
to "rimpel.rechts
RT 180 PU REPEAT 18 [LT 5 FD 2]
PD REPEAT 12 [LT 5 FD 2]
PU REPEAT 30 [BK 2 RT 5] RT 180 PD
end
to "oren
PU LT 90 FD 50 RT 90 PD
LINKEROOR PU RT 90 FD 100 LT 90 PD
RECHTEROOR PU LT 90 FD 50 RT 90 PD
end
to "oog
REPEAT 2 [FD 30 RT 90 FD 19 RT 90] FD 35
REPEAT 30 [RT 6 FD 1] FD 5 PU FD 15 RT 90 FD 9.5 PD
REPEAT 120 [FD 9 BK 9 RT 3] PC 0
REPEAT 100 [FD 3 BK 3 RT 3] PC 3 RT 60 PU FD 9.5 RT 90 BK 15 PD
end
to "hoofd
LT 90 PU REPEAT 5 [RT 180 / 25 FD 7] PD
REPEAT 20 [RT 180 / 25 FD 7] PU RT 180
REPEAT 25 [FD 7 LT 180 / 25]
REPEAT 5 [LT 180 / 25 FD 7] PD
REPEAT 20 [LT 180 / 25 FD 7] PU
REPEAT 25 [BK 7 RT 180 / 25] LT 90
end
to "rimpel.links
RT 180 PU REPEAT 18 [RT 5 FD 2]
PD REPEAT 12 [RT 5 FD 2]
PU REPEAT 30 [BK 2 LT 5]
RT 180 PD
end
to "snor.links
REPEAT 3 [HAAR.L PU BK 3 LT 90 FD 3 RT 80 PD]
PU REPEAT 3 [RT 100 FD 3 LT 90 FD 3] PD
end
to "linkerwang
REPEAT 2 [REPEAT 18 [FD 2 LT 5] FD 10 REPEAT 18 [FD 2 LT 5]]
end
to "neus
LT 30 REPEAT 30 [FD 20 BK 20 RT 2]
LT 30
end
to "tanden
PU RT 90 FD 2 LT 90 PD RECHTERTAND
PU LT 90 FD 21 RT 90 PD LINKERTAND
PU RT 90 FD 12 LT 90 PD
end
to "setup
PU BK 80 PD HT
end
to "rechtertand
MAKE "T 15
REPEAT 10 [FD :T BK :T PU LT 90 FD 1 RT 90 PD MAKE "T :T + 1]
PU RT 90 FD 10 LT 90 PD
end
make "t "'25
nd
MAKE "T 15
R