home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / scripts / pov / pnbsf / buzzfish.pov < prev    next >
Encoding:
Text File  |  1993-06-20  |  4.3 KB  |  174 lines
  1. /*  Pacific Northwest BuzzSaw Fish by Loyd L Towe - CIS 70614,1721   */
  2. /*  (there ain't no such thing, I just made it up)                   */
  3.  
  4. #include "colors.inc"
  5. #include "textures.inc"
  6. #include "shapes.inc"
  7. #include "bubble.inc"
  8. #include "seaspace.inc"
  9.  
  10. camera {
  11.  location  <-6 1 -6 >
  12.  direction < 0 0 1    >
  13.  up        < 0 1 0    >
  14.  right     < 1.33 0 0 >
  15.  look_at   < 0 0 0    >
  16. }
  17.  
  18. #declare FINTEX = texture {
  19. color red 0.35 green 0.35 blue .50 alpha 0.3
  20. ambient 0.3
  21. diffuse 0.4
  22. phong .5
  23. phong_size 100 }
  24.  
  25.  
  26. #declare FISHTEX = texture { 
  27. leopard
  28. ambient 0.3 
  29. diffuse 0.1 
  30. specular 0.25
  31. roughness 0.001
  32. color_map { [ 0.0 0.5  color red 0.5 green 0.4 blue 0.6 
  33.                        color red 0.3 green 0.6 blue 0.8 ]
  34.             [ 0.5 1.01 color red 0.3 green 0.6 blue 0.8
  35.                        color red 1.0 green 0.0 blue 0.0 ] }
  36. scale <.1 .1 .1>
  37. }
  38.  
  39. object { light_source { <-30 -25 0> color White } }
  40. object { light_source { <-30 25 0> color White } }
  41. object { light_source { <-30 0 0> color White } }
  42.  
  43. object { 
  44.   sphere { <0 0 0> 1 inverse } 
  45.     texture { SEASPACE } 
  46. scale <1000 1000 1000>
  47. }
  48.  
  49. // ELLIPSOID
  50. object {
  51.     quadric {
  52.        <1 1 1>
  53.        <0 0 0>
  54.        <0 0 0>
  55.         -1.0
  56.     scale <0.25 1.5 3>
  57.    }
  58.    texture { FISHTEX }
  59.    bounded_by { quadric {
  60.        <1 1 1>
  61.        <0 0 0>
  62.        <0 0 0>
  63.         -1.0
  64.    scale <0.25 1.5 3>
  65.   }
  66.  }
  67. }
  68.  
  69. // SPHERE
  70. object {
  71.  sphere {<0.2 0.6 -2.35> 0.25}
  72.  texture {  FISHTEX }
  73. bounded_by { sphere {<0.2 0.6 -2.35> 0.25} }    
  74. }
  75.  
  76. // SPHERE
  77. object {
  78.  sphere {<-0.2 0.6 -2.35> 0.25}
  79.  texture {  FISHTEX }
  80. bounded_by { sphere {<-0.2 0.6 -2.35> 0.25} }           
  81. }
  82.  
  83. // SPHERE
  84. object {
  85.  sphere {<0.23 0.6 -2.35> 0.23}
  86.  texture { color Black phong 1.0 phong_size 200 }
  87. bounded_by { sphere {<0.23 0.6 -2.35> 0.23} }
  88. }
  89.  
  90. // SPHERE
  91. object {
  92.  sphere {<-0.23 0.6 -2.35> 0.23}
  93.  texture { color Black phong 1.0 phong_size 200 }
  94. bounded_by { sphere {<-0.23 0.6 -2.35> 0.23 } }
  95. }
  96.  
  97. object {
  98. difference {
  99. intersection { Disk_X scale <.01 3.5 3.5> translate <0 0 6.5> }
  100. intersection { Disk_X scale <3.5 3.5 3.5> translate <0 0 7.5> }
  101. }
  102. texture {  FINTEX }
  103. }
  104.  
  105. object { triangle { <0 0 0> <0 -1.3 3.4> <0 1.3 3.4> }
  106. texture { FISHTEX }
  107. }
  108.  
  109. object {
  110. difference {
  111. intersection { Disk_X scale <.01 4 4> rotate <0 0 90 > translate <0 0 3> }
  112. intersection { Disk_X scale <4 4 4> rotate <0 0 90> translate <0 0 4> }
  113. }
  114. texture {  FINTEX }
  115. no_shadow
  116. }
  117.  
  118.  
  119. #declare FIN =
  120. composite { #include "fin.inc" }
  121.  
  122. composite { FIN scale <2 2 2> rotate <0 90 0> translate <0 .5 0> }
  123. composite { FIN scale <2 2 2> rotate <0 90 0> translate <0 -.2 0> }
  124.  
  125. #include "fishlips.inc"
  126.  
  127.  
  128. object { BUBBLE  translate <11 -10 1> }
  129. object { BUBBLE  translate <11 -8 1> }
  130. object { BUBBLE  translate <11 -6 1> }
  131. object { BUBBLE  translate <11 -4 1> }
  132. object { BUBBLE  translate <11 -2 1> }
  133. object { BUBBLE  translate <11  0 1> }
  134. object { BUBBLE  translate <11  2 1> }
  135. object { BUBBLE  translate <11  4 1> }
  136. object { BUBBLE  translate <11  6 1> }
  137.  
  138. object { BUBBLE  translate <4 -16 19> }
  139. object { BUBBLE  translate <4 -14 19> }
  140. object { BUBBLE  translate <4 -12 19> }
  141. object { BUBBLE  translate <4 -10 19> }
  142. object { BUBBLE  translate <4 -8 19> }
  143. object { BUBBLE  translate <4 -6 19> }
  144. object { BUBBLE  translate <4 -4 19> }
  145. object { BUBBLE  translate <4 -2 19> }
  146. object { BUBBLE  translate <4  0 19> }
  147. object { BUBBLE  translate <4  2 19> }
  148. object { BUBBLE  translate <4  4 19> }
  149. object { BUBBLE  translate <4  6 19> }
  150. object { BUBBLE  translate <4  8 19> }
  151. object { BUBBLE  translate <4 10 19> }
  152.  
  153.  
  154. object { BUBBLE  translate <14 -20 19> }
  155. object { BUBBLE  translate <14 -18 19> }
  156. object { BUBBLE  translate <14 -16 19> }
  157. object { BUBBLE  translate <14 -14 19> }
  158. object { BUBBLE  translate <14 -12 19> }
  159. object { BUBBLE  translate <14 -10 19> }
  160. object { BUBBLE  translate <14 -8 19> }
  161. object { BUBBLE  translate <14 -6 19> }
  162. object { BUBBLE  translate <14 -4 19> }
  163. object { BUBBLE  translate <14 -2 19> }
  164. object { BUBBLE  translate <14  0 19> }
  165. object { BUBBLE  translate <14  2 19> }
  166. object { BUBBLE  translate <14  4 19> }
  167. object { BUBBLE  translate <14  6 19> }
  168. object { BUBBLE  translate <14  8 19> }
  169. object { BUBBLE  translate <14 10 19> }
  170. object { BUBBLE  translate <14 12 19> }
  171. object { BUBBLE  translate <14 14 19> }
  172.  
  173.  
  174.