LOGO-L> Six Cones

["Olga Tuzova" <olgatu@ort.spb.ru>]

Hello everybody,
After my long time-out I'm feeling very much behind the events, which
are really great, thanks to George Mills. What I'm going to share 
with you is not so beautiful as Mhelhefny's surfaces, but might be 
also interesting.
I think, someone would like to remove all MAKEs from the codes.:) I'd 
appreciate all improvements. 

Regards, 
Olga.

---------------------------

to cone.main
cs ht
setsc 0
perspective
ask -1 [setxyz 150 150 500]
ask 0 []
cone.6 40 
end

to cone.6 :a
rt 60
repeat 6[ setpc repcount 
         pu fd 3*:a/4/cos 30
         cone.draw :a
         pu bk 3*:a/4/cos 30
         rt 60]
shade -90 -100 -60
end

to cone.draw :a
make "p []
pu fd :a*sin 60 push "p posxyz
bk :a*sin 60
downpitch 90 fd :a/2 rt 90 push "p posxyz 
pd
repeat 180 [polystart 
            setposxyz last :p setposxyz first :p
  make "p bf :p
            arc2 2 :a/2 push "p posxyz 
  setposxyz last :p
            polyend
            setposxyz first :p]
pu lt 90 bk :a/2 uppitch 90
;shade -90 -100 -60
end

to shade :f :g :h
ask -3[setxyz :f :g :h]
polyview
end 
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:  cones.jpg
     Date:  30 Sep 1998, 21:31
     Size:  4958 bytes.
     Type:  JPEG-image

cones.jpg