LOGO-L> MswLogo ver 6.3e

[MHELHEFNY@FRCU.EUN.EG]

to aa
;Hi Yehuda !,
;You wrote:

>Hi M.,

>The latest version of MSWLogo is 6.3e...
>If you can (programmatically) reduce your Sombrero so that it wiil fill snugly
a
>175*175 square, I'll gladly add it into the 3-D section of the Art Gallery
(see
>the URL at the bottom).
>Best regards...
>[[Yehuda]]

;O.k. here is the code which I think will fit snugly in 175*175 ,I considered
;that 175*175 are MswLogo's units.I shall try to visit your Art Gallery.
;Best regards.
;--------------------
end

to go
   cs ht setsc 0
   perspective
   setpc [0 0 128]
   grid 10 .7
   shade 140 50 20 
   polyview
end

to grid :a :stp
for [x -:a :a :stp][
    for [z -:a :a :stp][
        polystart
        pd
                   setxyz :x*6 y*6 :z*6
        make "x :x+ :stp   setxyz :x*6 y*6 :z*6
        make "z :z+ :stp   setxyz :x*6 y*6 :z*6
        make "x :x- :stp   setxyz :x*6 y*6 :z*6
        make "z :z- :stp   setxyz :x*6 y*6 :z*6
        polyend
                   ]
                     pu]  
end

to shade :f :g :h
ask -3[setxyz :f :g :h]
polyview
End

to y
   localmake "r sqrt :x* :x + :z* :z + .0001
   op 8*(sin :r*180/pi)/ :r
end


___________
Z
---------------------------------------------------------------
Please post messages to the Logo forum to logo-l@gsn.org.  Mail
questions about the list administration to logofdn@gsn.org.  To
unsubscribe send    unsubscribe logo-l    to majordomo@gsn.org.