home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / scripts / pov / whirl3du / whirl3du.pov < prev   
Encoding:
Text File  |  1994-05-02  |  4.8 KB  |  102 lines
  1. /*
  2.  
  3. WHIRL3DU.POV Test file for WHIRL3D.EXE output script files.
  4.  
  5.                       For POVRAY Version 2.1
  6.                   (Cheers team, great software.)
  7.  
  8.  
  9. This script file drives the output from Whirl3d, a whirl generator which I wrote
  10. years ago and when I discovered POVRAY I just had to see what my whirls looked
  11. like in 3D space, so I added the third dimension and output the .INC files.
  12.  
  13. I will release the windows version soon, the very rough a ready Turbo basic
  14. version is ok'ish and I will upload if anybody shows any interest.
  15.  
  16. Twenty shapes & textures are defined but for this include only six are used.
  17. (Sorry about the slightly boring textures I haven't had the time to get fully
  18.  into textures yet, I've been to busy plotting shapes around 3D space and
  19.  animating them into FLI files.)
  20.  
  21. The Whirl world is ( 1 > -1 ) from the origin in all directions.
  22. The scaling that is done withing the INC is for when objects catch each other,
  23. the one that is caught dies and the catcher should take on its mass (or should
  24. do, I have not worked out the proper maths yet), and chases the next.
  25.  
  26. Any comments, questions or advise would be greatfully received, mail me...
  27.  
  28. Mike Young , Compuserve 100031,764
  29.  
  30. */
  31.  
  32. #include "colors.inc"    // The include files contain
  33. #include "shapes.inc"    // pre-defined scene elements
  34. #include "shapes2.inc"   // pre-defined scene elements
  35. #include "textures.inc"
  36.  
  37. #declare Object_Size = 0.01
  38.  
  39. #declare Xloc = .1    // X location of both camera & light source
  40. #declare Yloc = .1    // Y
  41. #declare Zloc = .1    // Z
  42.  
  43. camera {
  44.     location <Xloc,Yloc,Zloc>
  45.     direction < 0 ,  0, .7>        // Not sure I fully understand this
  46.     look_at <-1.126,-1.113,-1.117>    // edge distortion yet...
  47. }
  48.  
  49.  
  50. light_source {
  51.     <Xloc,Yloc,Zloc> color White
  52. }
  53.  
  54. #declare MyPhong = finish { phong .8 }
  55. #declare MyNorm  = normal { bumps -0.5 }
  56.  
  57. #declare Point001_Texture = texture { pigment { Red } finish {MyPhong} normal {MyNorm}}
  58. #declare Point002_Texture = texture { pigment { NeonBlue } finish {MyPhong} normal {MyNorm}}
  59. #declare Point003_Texture = texture { pigment { SummerSky } finish {MyPhong} normal {MyNorm}}
  60. #declare Point004_Texture = texture { pigment { LimeGreen } finish {MyPhong} normal {MyNorm}}
  61. #declare Point005_Texture = texture { pigment { Orange } finish {MyPhong} normal {MyNorm}}
  62. #declare Point006_Texture = texture { pigment { Yellow } finish {MyPhong} normal {MyNorm}}
  63. #declare Point007_Texture = texture { pigment { SkyBlue } finish {MyPhong} normal {MyNorm}}
  64. #declare Point008_Texture = texture { pigment { Coral } finish {MyPhong} normal {MyNorm}}
  65. #declare Point009_Texture = texture { pigment { Green } finish {MyPhong} normal {MyNorm}}
  66. #declare Point010_Texture = texture { pigment { Violet } finish {MyPhong} normal {MyNorm}}
  67. #declare Point011_Texture = texture { pigment { Plum } finish {MyPhong} normal {MyNorm}}
  68. #declare Point012_Texture = texture { pigment { Salmon } finish {MyPhong} normal {MyNorm}}
  69. #declare Point013_Texture = texture { pigment { RichBlue } finish {MyPhong} normal {MyNorm}}
  70. #declare Point014_Texture = texture { pigment { Blue } finish {MyPhong} normal {MyNorm}}
  71. #declare Point015_Texture = texture { pigment { Orchid } finish {MyPhong} normal {MyNorm}}
  72. #declare Point016_Texture = texture { pigment { SteelBlue } finish {MyPhong} normal {MyNorm}}
  73. #declare Point017_Texture = texture { pigment { White } finish {MyPhong} normal {MyNorm}}
  74. #declare Point018_Texture = texture { pigment { Orange } finish {MyPhong} normal {MyNorm}}
  75. #declare Point019_Texture = texture { pigment { Orange } finish {MyPhong} normal {MyNorm}}
  76. #declare Point020_Texture = texture { pigment { Orange } finish {MyPhong} normal {MyNorm}}
  77.  
  78. #declare Point001_Object = sphere { <0,0,0>,Object_Size}
  79. #declare Point002_Object = sphere { <0,0,0>,Object_Size}
  80. #declare Point003_Object = sphere { <0,0,0>,Object_Size}
  81. #declare Point004_Object = sphere { <0,0,0>,Object_Size}
  82. #declare Point005_Object = sphere { <0,0,0>,Object_Size}
  83. #declare Point006_Object = sphere { <0,0,0>,Object_Size}
  84. #declare Point007_Object = sphere { <0,0,0>,Object_Size}
  85. #declare Point008_Object = sphere { <0,0,0>,Object_Size}
  86. #declare Point009_Object = sphere { <0,0,0>,Object_Size}
  87. #declare Point010_Object = sphere { <0,0,0>,Object_Size}
  88. #declare Point011_Object = sphere { <0,0,0>,Object_Size}
  89. #declare Point012_Object = sphere { <0,0,0>,Object_Size}
  90. #declare Point013_Object = sphere { <0,0,0>,Object_Size}
  91. #declare Point014_Object = sphere { <0,0,0>,Object_Size}
  92. #declare Point015_Object = sphere { <0,0,0>,Object_Size}
  93. #declare Point016_Object = sphere { <0,0,0>,Object_Size}
  94. #declare Point017_Object = sphere { <0,0,0>,Object_Size}
  95. #declare Point018_Object = sphere { <0,0,0>,Object_Size}
  96. #declare Point019_Object = sphere { <0,0,0>,Object_Size}
  97. #declare Point020_Object = sphere { <0,0,0>,Object_Size}
  98.  
  99. #include "whirl001.inc"     // Whirl include
  100.  
  101.  
  102.