LOGO-L> MswLogo ver 6.3d

[MHELHEFNY@FRCU.EUN.EG]

;Hello Everybody
;After my vacation, I got a great surprise gift: MswLogo Ver. 6.3d.
;Here is a rendered decaying cosinosoidal wave,which was named in
;the Matlab demos as the "sombrero".
;Let me express my praise to the new rendering technique made available
;to MswLogo users, thanks to the great efforts of George Mills;whome I 
;want to wish continued success.
;best regards
;Mhelhefny
;------------------------ 
to go
   cs ht setsc 0
   perspective
   setpc [0 0 128]
   grid 10 .5
   ask -3[setxyz 300 200 150] 
   polyview
end

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

to y
   localmake "r sqrt :x* :x + :z* :z + .001
   op 8*(sin :r*180/pi)/ :r
end
;------------------------
---------------------------------------------------------------
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.