LOGO-L> rendered cup

[MHELHEFNY@FRCU.EUN.EG]

;Hello Everybody
;here is the code to draw a cup 
;regards
;Mhelhefny
;---------------
to cylpos :r :fi :y
setxyz :r*cos :fi :y :r*sin :fi
end

to go
   cs ht setsc 0
   perspective
   setpc [0 0 128]
   grid 30 60
   shade 200 150 30 
   polyview
end

to grid :a :b
for [fi 0 360 10][for [r -:b :a 10][ 
polystart pd
      cylpos :r :fi y 
make "r :r+ 10    cylpos :r :fi y
make "fi :fi+ 10  cylpos :r :fi y
make "r :r- 10    cylpos :r :fi y
make "fi :fi- 10  cylpos :r :fi y
polyend
pd]pu]
end

to shade :f :g :h
ask -3[setxyz :f :g :h]
polyview
End

to y
op ifelse :r >0 [-10*sqrt(:r)][:r* :r/40]
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.