home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / scripts / pov / blobit.pov < prev    next >
Encoding:
Text File  |  1994-01-06  |  2.1 KB  |  77 lines
  1. // Source: BLOBIT.POV
  2. // Desc  : A grid of blob objects is intersected by three larger blobs.
  3. //       : Intended for animation between +k values of 0 thru 49.
  4. // Ver   : POVRay 2.0
  5. // Author: Crew Reynolds
  6. // Date  : December 10, 1993
  7.  
  8. #include "colors.inc"
  9. #include "textures.inc"
  10.  
  11. #declare LightX = 15
  12. #declare LightY = 140
  13. #declare LightZ = -300
  14. #declare Width = 80
  15. #declare radius1 = 50
  16. #declare step = 68
  17. #declare strength = 1
  18. #declare yposdn = 320-(clock*4)
  19. #declare yposup = clock*4-80
  20.  
  21. #declare SphereTexture = texture {
  22.     pigment { Red }
  23.     finish { Shiny ambient 0.1 }
  24. }
  25.  
  26. light_source {
  27.     <0, LightY, LightZ> color White
  28. }
  29.  
  30. camera {
  31.     location <0, 0, -240>
  32.     look_at <0, 90, 0>
  33. }
  34.  
  35. object {
  36.    blob {
  37.     threshold 0.8
  38.     component strength*1.8, 80, <   0, yposdn, 0>
  39.     component strength*1.8, 80, <-160, yposdn, 0>
  40.     component strength*1.8, 80, < 160, yposdn, 0>
  41.     
  42.     component strength*1.8, 80, <   0, yposup, 0>
  43.     component strength*1.8, 80, <-160, yposup, 0>
  44.     component strength*1.8, 80, < 160, yposup, 0>
  45.     
  46.     component strength, radius1, <-Width, 0, 0 >
  47.     component strength, radius1, <+Width, 0, 0 >
  48.  
  49.     component strength, radius1, <-Width, step*1, 0 >
  50.     component strength, radius1, <+Width, step*1, 0 >
  51.                     
  52.     component strength, radius1, <-Width, step*2, 0 >
  53.     component strength, radius1, <+Width, step*2, 0 >
  54.  
  55.     component strength, radius1, <-Width, step*3, 0 >
  56.     component strength, radius1, <+Width, step*3, 0 >
  57.  
  58.     component strength, radius1, <-Width, step*4, 0 >
  59.     component strength, radius1, <+Width, step*4, 0 >
  60.  
  61.     component strength, radius1, <-Width, step*5, 0 >
  62.     component strength, radius1, <+Width, step*5, 0 >
  63.  
  64.     component strength, radius1, <-Width, step*6, 0 >
  65.     component strength, radius1, <+Width, step*6, 0 >
  66.  
  67.     component strength, radius1, <-Width, step*7, 0 >
  68.     component strength, radius1, <+Width, step*7, 0 >
  69.  
  70.     component strength, radius1, <-Width, step*8, 0 >
  71.     component strength, radius1, <+Width, step*8, 0 >
  72.    
  73.   }
  74.   texture{ SphereTexture }
  75. }
  76.  
  77.