LOGO-L> conic shape in ucblogo & mswlogo

;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

;------------------

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