home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / POV-Ray 3.0.2 / src / POV-Ray Build Extras / Magic Lamp / Smoke.inc < prev   
Encoding:
Text File  |  1996-06-30  |  1.4 KB  |  66 lines  |  [TEXT/ttxt]
  1. /* Smoke for Magic Lamp - Eduard Schwan */
  2. #declare Smoke_Shape =
  3.   cylinder { 0.0*y, 1*y, 1  scale <1,3,1>  hollow } // clip just inside of it
  4. /*
  5. intersection
  6. {
  7.   torus { 1, 0.85 inverse} // hyperbola pointing up and out
  8.   cylinder { 0.1*y, 1*y, 1 } // clip just inside of it
  9. //  cylinder { -2*z, 2*z, 0.2 translate 1.1*y rotate 10*y inverse } // snip off top
  10.   hollow
  11.   scale <2.7, 1.8, 3.0> // cylindrical
  12.   translate -0.1*y
  13. }
  14. */
  15.  
  16. #declare Smoke_TurbA = 0.2
  17. #declare Smoke_Texture =
  18. texture
  19. {
  20.   pigment { colour Clear }
  21.   finish { refraction 1 }
  22.   halo
  23.   {
  24.     linear
  25.     spherical_mapping
  26. //    cylindrical_mapping
  27.     emitting
  28.     turbulence <0.4,0.8,0.4>
  29.     omega 0.8 lambda 2.9
  30.     octaves 3
  31.     colour_map
  32.     {
  33.        [0.4 color rgbt <0,0,0,1> ]
  34.        [0.5 color rgbt <1.0,0.6,0.5,0.2>]
  35.        [0.6 color rgbt <0.6,0.6,0.9,0.9>]
  36.        [0.7 color rgbt <0.6,0.9,0.6,0.3>]
  37.        [0.8 color rgbt <1.0,0.6,0.6,0.0>]
  38.        [0.9 color rgbt <1.0,1.0,1.0,0.5>]
  39.     }
  40.   }
  41.   translate 0.5*y
  42. }
  43.  
  44. /*  -- old style
  45. texture
  46. {
  47.   pigment
  48.   {
  49.     spiral1 2 rotate 90*x
  50.     turbulence <Smoke_TurbA, 0.0, Smoke_TurbA> lambda 2.6
  51.     color_map
  52.     {
  53.       [0.00 Clear]
  54.       [0.60 Clear]
  55.       [0.70 White filter 0.7]
  56.       [0.80 rgbf <1.0, 1.0, 0.6, 0.7>] // bright yellow
  57.       [0.85 rgbf <0.5, 0.5, 1.0, 0.7>] // light blue
  58.       [0.90 White filter 0.8]
  59.       [0.95 Clear]
  60.       [1.00 Clear]
  61.     }
  62.   }
  63.   finish { ambient 1 diffuse 0 }
  64. }
  65. -- */
  66.