;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
;------------------
---------------------------------------------------------------