home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
logo
/
labybug
/
fan.bug
< prev
next >
Wrap
Text File
|
1989-11-02
|
896b
|
77 lines
to "poly :d :a
forward :d
right :a
poly :d :a
end
to "fan :d :a
if :d < 0 [stop]
fd :d
bk :d - 5
lt :a
fan :d - 3 :a
end
to "fan2 :d :a
if :d < 0 [stop]
fd :d
bk :d - 5
lt :a
fan2 :d - 3 :a + 1
end
to "fan3 :d :a
if :d < 0 [stop]
fd :d
bk :d - 5
lt :a
fan3 :d - 3 :a - 1
end
to "start
pu home pd
end
to "swirl :d :a
start fan.lt :d :a start fan.rt :d :a
start2 fan.lt :d :a start2 fan.rt :d :a
end
to "fan.lt :d :a
if :d < 0 [stop]
fd :d
bk :d - 5
lt :a
fan.lt :d - 3 :a
end
to "fan.rt :d :a
if :d < 0 [stop]
fd :d
bk :d - 5
rt :a
fan.rt :d - 3 :a
end
to "start2
pu home setheading 180 pd
end
to "starts :ang
pu home rt :ang pd
end
to "swirls :d :a :ang
starts :ang
fan.lt :d :a
starts :ang
fan.rt :d :a
swirls :d :a :ang + 90
end
t :ang pd
end
to "swirls :d :a :ang
starts :ang
fan.lt :d