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

["George Mills" <mills@softronix.com>]

Nice work.

I "solidified it" but it still has a few holes that need to be polgonized.
But I think you should get the idea if you want to clean it up
using all polygons.

See attachment.

to cap
cs
perspective

; Setup camera and lighting
setsc [0 0 0]
ask -3 [setposxyz [-89 53 148]]

; draw ball
setpencolor 4
Make "len 20
Make "sextaconv 41.8
sextaPenta 

; Solidify it
polyview

; Setup for the movie
setactivearea [-50 -100 200 150]
localmake "append "false
repeat 18 ~
   [
   (GIFSAVE "soccer.gif 25 :append -1)
   make "append "true
   ask -1 [fd 200 down 20]
   ]
end

to sexta :n
polystart
repeat :n ~
   [
   fd :len rt 60
   if repcount = 6 [polyend]
   ]
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

soccer.gif