LOGO-L> Fifa cup in 3-D

[MHELHEFNY@FRCU.EUN.EG]

;Hello every body
;On the occaison of the football "FIFA UNDER 17 WORLD CHAMPIONSHIP";
;held recently in Egypt; here is the 3-D code of the cup.
;I used in its designe my previous codes for the paraboloid and the
;cylinder.
;Enjoy it with 
;My best regards
;---------------------------------------------- 
to draw.par :c
make "b 0 ht pu
for[x 0 :c][make "a :x* :x/:c rt 90 fd 1 lt 90 fd :a- :b make "b :a pd]
pu setxyz 0 0 0
end

to go
parab 
bk 200 longit1 60 horizont1 10
bk 10 longit2 5 horizont2 5
end

to horizont :step
repeat 100/:step [make "g repcount* :step pu fd :g
downpitch 90 pd circle sqrt :g*100 uppitch 90 pu bk :g pd]
end

to horizont1 :step
repeat 200/:step [make "g repcount*:step fd :g
downpitch 90 circle 10 uppitch 90 bk :g]
end

to horizont2 :step
repeat 10/:step [make "g repcount*:step fd :g
downpitch 90 circle 70 uppitch 90 bk :g]
end

to longit :step
repeat 360/:step[draw.par 100  rr :step]
end

to longit1 :step
repeat 360/:step [rectangle 205 10 rr :step]
end

to longit2 :step
repeat 360/:step [rectangle 10 70 rr :step]
end

to parab
perspective cs ht 
setturtle -1 setxyz 800 800 1000
setturtle 0 ht
longit 10 horizont 5
end

to rectangle :a :b
repeat 2[fd :a rt 90 fd :b rt 90]
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.