LOGO-L> conic shape in ucblogo & mswlogo

[MHELHEFNY@FRCU.EUN.EG]

;Hello every body
;Here is the code for a cone made of paper;(I can't figure its exact name).
;It will run as is on both UCBLogo and MSWLogo.
;Best Regards.
;Mhelhefney
;----------------

to go 
cs ht
grid 18
end

to grid :step
pu gridx :step pu gridz :step
end

to gridx :step
for [x 0 2050 :step][for [z 0 250 :step][mysetxyz x y-70 z pd]pu]
end

to gridz :step
for [z 0 250 :step][for [x 0 2050 :step][mysetxyz x y-70 z pd]pu]
end

to mysetxyz :a :b :c
setxy (:a- :c)*cos 30 :b- (:a+ :c)*sin 30
end

to x
op :z/4 * sin :x/2
end

to y
op -100+ (:x/5 * sin :z/5)
end

to z
op :z/4 * cos :x/2
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.