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