LOGO-L> fifa cup 
Author Message
 LOGO-L> fifa cup

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





Tue, 14 Mar 2000 03:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. LOGO-L> Fifa cup in 3-D

2. LOGO-L> rendered cup

3. LOGO-L> Apple logo/MSW Logo

4. LOGO-L> Reseach Machines Logo (RM LOGO)

5. WTD: 'ls -lR '->HTML code

6. LOGO-L> Welcome to logo-l

7. LOGO-L> Re: Dynamic scope in Logo

8. LOGO-L> INFO re SIG-LOGO

9. LOGO-L> Logo speed

10. LOGO-L> Logo foundation site

11. LOGO-L> Logo Workshops

12. LOGO-L> Logo for MAC

 

 
Powered by phpBB® Forum Software