LOGO-L> (Fwd) A little too late. Soccer ball!

[fajoy@uio.satnet.net]

;cap captures the gif
;the active area should be set small

to cap
localmake "append "false
repeat 360 [
	cs rr repcount sextaPenta 

	(GIFSAVE "soccer.gif 0 :append -1)
	make "append "true
]
end

to sexta :n
repeat :n [
fd :len rt 60
]
end

to sexta1

repeat 9 [
if repcount=2 [sextaPenta1] 
fd :len 
rt 60
]

end

to sextaPenta
Make "sextaconv 41.8
repeat 5 [lt 90 down :sextaConv lt 30 sexta1]
end

to sextaPenta1

localmake "c pencolor setpencolor 4
localmake "p posxyz
localmake "h orientation

repeat 5 [
	lt 90 down :sextaConv lt 30 
	ifelse repcount=1 [sexta 7] [sexta 9]
]

pu setposxyz :p pd
setpencolor :c
setorientation :h

end

Make "len 20
Make "sextaconv 41.8


;This was Daniel (a Logo fan (not a soccer fan))


The following section of this message contains a file attachment
prepared for transmission using the Internet MIME message format.
If you are using Pegasus Mail, or any another MIME-compliant system,
you should be able to save it or view it from within your mailer.
If you cannot, please ask your system administrator for assistance.

   ---- File information -----------
     File:  soccer.gif
     Date:  14 Jul 1998, 8:11
     Size:  23880 bytes.
     Type:  GIF-image

soccer.gif