home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / scripts / pov / magnify / magnify.inc next >
Encoding:
Text File  |  1994-01-15  |  4.6 KB  |  176 lines
  1. // POV-Ray 2.0 include file describing an old-fashioned hand magnifier.
  2. // Dick LeVitt  1/13/94
  3.  
  4.  
  5. // ********  T E X T U R E S  *******
  6. #declare Mymetal = texture { 
  7.      pigment { color red 0.9  green 0.6  blue 0.15 }
  8.      finish {
  9.        ambient 0.25
  10.        diffuse .80
  11.        brilliance 15
  12.        phong 0.41
  13.        phong_size 5
  14.      }   
  15. } 
  16. #declare Handle = texture { Rosewood
  17.                   rotate <10,10,10> 
  18.                   finish {specular 0.8 roughness 0.04}
  19.                   } 
  20.  
  21. // ********  O B J E C T S *******
  22. #declare Sphere002 = object { 
  23.   sphere {<0,0,0>,1}
  24.   scale <5.000000, 5.000000, 5.000000>
  25.   translate <0.000000, 0.000000, 4.841230>
  26. }
  27.  
  28. #declare Sphere001 = object { 
  29.   sphere {<0,0,0>,1}
  30.   scale <5.000000, 5.000000, 5.000000>
  31.   translate <0.000000, 0.000000, -4.841230>
  32. }
  33.  
  34. #declare lens = intersection {
  35.   object { Sphere002 }
  36.   object { Sphere001 }
  37.   texture {
  38.     Glass3
  39.     finish { refraction 1 ior 1.57}
  40.   }
  41. }
  42.  
  43. #declare outerring = cylinder {
  44.   <0,0,1>, <0,0,0>, 1
  45.   texture {
  46.     Mymetal
  47.   }
  48.   scale <1.300000, 1.300000, 0.250000>
  49.   translate <0.000000, 0.000000, -0.1250000>
  50. }
  51.  
  52. #declare innerring = cylinder {
  53.   <0,0,1>, <0,0,0>, 1
  54.   texture {
  55.     Mymetal
  56.   }
  57.   scale <1.200000, 1.200000, 0.2520000>
  58.   translate <0.000000, 0.000000, -0.1260000>
  59. }
  60.  
  61. #declare topring = quartic { 
  62.            // Torus MinRadius=   0.050   MajRadius=   1.250 
  63.            < 1.000,  0.000,  0.000,  0.000,  2.000,
  64.              0.000,  0.000,  2.000,  0.000,  -3.130,
  65.              0.000,  0.000,  0.000,  0.000,  0.000,
  66.              0.000,  0.000,  0.000,  0.000,  0.000,
  67.              1.000,  0.000,  0.000,  2.000,  0.000,
  68.              -3.130,   0.000,  0.000,  0.000,  0.000,
  69.              1.000,  0.000,  3.120, 0.000,  2.434 >
  70.   sturm
  71.   texture {
  72.     Mymetal
  73.   }
  74.   translate <0.000000, 0.000000, 0.125000>
  75. }
  76.  
  77. #declare botring = quartic { 
  78.            // Torus MinRadius=   0.050   MajRadius=   1.250 
  79.            < 1.000,  0.000,  0.000,  0.000,  2.000,
  80.              0.000,  0.000,  2.000,  0.000,  -3.130,
  81.              0.000,  0.000,  0.000,  0.000,  0.000,
  82.              0.000,  0.000,  0.000,  0.000,  0.000,
  83.              1.000,  0.000,  0.000,  2.000,  0.000,
  84.              -3.130,   0.000,  0.000,  0.000,  0.000,
  85.              1.000,  0.000,  3.120, 0.000,  2.434 >
  86.   sturm
  87.   texture {
  88.     Mymetal
  89.   }
  90.   translate <0.000000, 0.000000, -0.125000>
  91. }
  92.  
  93. #declare ring = union {
  94.   difference {
  95.     object { outerring }
  96.     object { innerring }
  97.   }  
  98.   object { topring }
  99.   object { botring }
  100. }
  101.  
  102. /* Quartic Cylinder - moderate neckdown from cylinder */
  103. #declare neckdown= quartic {
  104.    < 0.0,  0.0,  0.0,  0.0,  1.0,  0.0,  0.0,  0.0,  0.0,  0.4,
  105.      0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
  106.      0.0,  0.0,  0.0,  1.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
  107.      0.0,  0.0,  0.4,  0.0, -0.4 >
  108.  
  109.    bounded_by { cylinder {<0,0,0>,<0,1,0>,1} }
  110.    texture {
  111.      Mymetal
  112.    }
  113.    scale <0.275000, .45, 0.275000>
  114.    rotate <-0.000000, -0.000000, -90.000000>
  115.    translate <-1.750000, 0.000000, 0.000000> 
  116. }
  117. #declare neckcyl = cylinder {
  118.   <0,0,1>, <0,0,0>, 1
  119.   texture {
  120.     Mymetal
  121.   }
  122.   scale <0.275000, 0.275000, 0.400000>
  123.   rotate <-0.000000, -90.000000, -0.000000>
  124.   translate <-1.750000, 0.000000, 0.000000>
  125. }
  126. #declare groove = quartic { 
  127.            // Torus MinRadius=   0.050   MajRadius=   1.050 
  128.            < 1.000,  0.000,  0.000,  0.000,  2.000,
  129.              0.000,  0.000,  2.000,  0.000,  -2.210,
  130.              0.000,  0.000,  0.000,  0.000,  0.000,
  131.              0.000,  0.000,  0.000,  0.000,  0.000,
  132.              1.000,  0.000,  0.000,  2.000,  0.000,
  133.              -2.210,   0.000,  0.000,  0.000,  0.000,
  134.              1.000,  0.000,  2.200, 0.000,  1.210 >
  135.   texture {
  136.     Mymetal
  137.   }
  138.   scale <0.262000, 0.262000, 0.262000>
  139.   rotate <-0.000000, 90.000000, -0.000000>
  140.   translate <-1.8500000, 0.000000, 0.000000>
  141. }
  142.  
  143. #declare groovedcyl = difference {
  144.   object { neckcyl }
  145.   object { groove }
  146. }
  147.  
  148. #declare grip = cylinder {
  149.   <0,0,1>, <0,0,0>, 1
  150.   scale <0.275000, 0.275000, 3.500000>
  151.   texture {
  152.     Handle
  153.   }
  154.   rotate <-0.000000, -90.000000, -0.000000>
  155.   translate <-2.150000, 0.000000, 0.000000>
  156. }
  157.  
  158. #declare endcap = cylinder {
  159.   <0,0,1>, <0,0,0>, 1
  160.   texture {
  161.     Mymetal
  162.   }
  163.   scale <0.275000, 0.275000, 0.250000>
  164.   rotate <-0.000000, -90.000000, -0.000000>
  165.   translate <-5.650000, 0.000000, 0.000000>
  166. }
  167.  
  168. #declare magnifier = union {
  169.   object { lens }
  170.   object { ring }
  171.   object { neckdown }
  172.   object { groovedcyl }
  173.   object { grip }
  174.   object { endcap }
  175. }
  176.