home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / scripts / pov / layit / can.inc < prev    next >
Encoding:
Text File  |  1994-06-01  |  1.2 KB  |  64 lines
  1.  
  2. #declare Tin = texture {
  3.     pigment { color rgb < 0.741,  0.741,  0.788> }
  4.     finish {
  5.         ambient 0.2
  6.         diffuse 0.7
  7.         brilliance 6.0
  8.         phong 0.75
  9.         phong_size 60
  10.         metallic
  11.     }
  12. }
  13.  
  14. #declare Label = texture {
  15.     pigment { 
  16.         image_map { tga "label.tga" 
  17.             once 
  18.             interpolate 4 
  19.             map_type Plane_Map 
  20.         }
  21.         translate <-0.5, 0, 0>
  22.         scale <2.5, 2, 1>
  23.         rotate -y*210
  24.     }
  25.     finish { 
  26.         specular 1
  27.         roughness 0.1 
  28.         metallic 
  29.         brilliance 2.0
  30.     }
  31. }
  32. #declare Can_Wall = 
  33. union {
  34.     cylinder { <0,0,0>, <0,2,0>, 0.99  open texture { Tin   } }
  35.     cylinder { <0,0,0>, <0,2,0>, 1.00  open texture { Label } }
  36. }
  37.  
  38. #declare Can_Bottom =  
  39. union {
  40.     disc { <0.0, 0.0, 0.0>, <0.0, 1.0, 0.0>, 1 }
  41.     torus { 1.0, 0.05 }
  42.     texture { Tin }
  43. }
  44.  
  45.  
  46. #declare Can_Top = union {
  47.     torus { 1, 0.05 translate y*2.0 }
  48.  
  49.     torus { 0.9, 0.05 
  50.         clipped_by { disc { <0.0, 0.0, 0.0>, y, 1.0 } }
  51.         translate y * 1.975
  52.     }
  53.  
  54.     torus { 0.85, 0.025 translate y * 1.975 }
  55.     texture { Tin }
  56. }
  57.  
  58. #declare Can =
  59. union {
  60.     object { Can_Wall }
  61.     object { Can_Bottom }
  62.     object { Can_Top }
  63. }
  64.