home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d513 / dkbtrace.lha / DKBTrace / dkb212dt.lzh / ntreal.dat < prev    next >
Text File  |  1991-06-09  |  9KB  |  338 lines
  1. {Title-"Not A Trace of Reality"}
  2.  
  3. { -+ Compuserve Hall Of Fame award winner +- }
  4.  
  5. { This one is hard to describe and easy to look at. Have fun with it! }
  6. { - Drew Wells CIS 73767,1244 }
  7. { 11/29/90 }
  8.  
  9.  
  10. { This file is for use with DKBTrace by David Buck
  11.   and is released into the public domain. }
  12.  
  13. { Note - This one is a memory hog for pc's because of the twister }
  14. {        If you can't run it, try editing out some of the twister's }
  15. {        parts.  Requires include file twister.inc }
  16.  
  17. INCLUDE "shapes.dat"
  18. INCLUDE "colors.dat"
  19. INCLUDE "textures.dat"
  20.  
  21. DECLARE It = 
  22. QUADRIC Sphere SCALE <4.0 0.3 0.3> END_QUADRIC
  23.  
  24. { Camera/Viewer }
  25. VIEW_POINT
  26.    DIRECTION <0.0 0.0  1.5>
  27.    UP  <0.0  1.0  0.0>
  28.    RIGHT <-1.333 0.0 0.0>
  29.    TRANSLATE < -15.0  5.0  120.0>
  30.    LOOK_AT <10.0 12.0 55.0>
  31. END_VIEW_POINT
  32.  
  33. DECLARE Purple_Clouds = TEXTURE
  34.       0.05
  35.        BOZO
  36.        TURBULENCE 0.6
  37.        COLOUR_MAP
  38.           [0.0 0.5   COLOUR RED 0.9 GREEN 0.5  BLUE 0.6
  39.                      COLOUR RED 0.4 GREEN 0.0  BLUE 0.4]  
  40.           [0.5 0.6   COLOUR RED 1.0 GREEN 1.0  BLUE 1.0 ALPHA 1.0
  41.                      COLOUR RED 1.0 GREEN 1.0  BLUE 1.0 ALPHA 1.0 ]
  42.           [0.6 1.001 COLOUR RED 1.0 GREEN 1.0  BLUE 1.0 ALPHA 1.0
  43.                      COLOUR RED 1.0 GREEN 1.0  BLUE 1.0 ALPHA 1.0]
  44.        END_COLOUR_MAP
  45. END_TEXTURE
  46.  
  47. DECLARE Sunset_Sky = TEXTURE
  48.       0.05
  49.        GRADIENT <0.0 1.0 0.0>
  50.        
  51.        COLOUR_MAP   
  52.           [0.0 0.4   COLOUR RED 0.8 GREEN 0.0 BLUE 0.0
  53.                      COLOUR RED 0.4 GREEN 0.0 BLUE 0.4]
  54.           [0.4 0.6   COLOUR RED 0.4 GREEN 0.0 BLUE 0.4
  55.                      COLOUR RED 0.0 GREEN 0.0 BLUE 0.2]
  56.           [0.6 1.001 COLOUR RED 0.0 GREEN 0.0 BLUE 0.2
  57.                      COLOUR RED 0.0 GREEN 0.0 BLUE 0.0]
  58.        END_COLOUR_MAP
  59.        SCALE <700.0 700.0 700.0>
  60. END_TEXTURE
  61.  
  62. DECLARE Twister = OBJECT
  63.   UNION
  64.     INCLUDE "twister.inc"
  65.   END_UNION
  66.   BOUNDED_BY
  67.     SPHERE <0.0 5.0 0.0> 6.0  END_SPHERE
  68.   END_BOUND
  69.   TEXTURE
  70.     White_Wood
  71.     0.05
  72.     SCALE <3.0 3.0 3.0>
  73.     AMBIENT 0.1
  74.     DIFFUSE 0.99
  75.   END_TEXTURE
  76.   COLOR Blue
  77. END_OBJECT
  78.  
  79. DECLARE Slice = QUADRIC
  80.    Sphere
  81.    TRANSLATE <0.0 0.0 3.0>
  82.    SCALE <0.25 1.00 0.25>
  83. END_QUADRIC
  84.  
  85. DECLARE Thing = OBJECT
  86.   UNION
  87.     QUADRIC Slice END_QUADRIC
  88.     QUADRIC Slice ROTATE <0.0 -20.0  0.0> END_QUADRIC
  89.     QUADRIC Slice ROTATE <0.0 -40.0  0.0> END_QUADRIC
  90.     QUADRIC Slice ROTATE <0.0 -60.0  0.0> END_QUADRIC
  91.     QUADRIC Slice ROTATE <0.0 -80.0  0.0> END_QUADRIC
  92.     QUADRIC Slice ROTATE <0.0 -100.0 0.0> END_QUADRIC
  93.     QUADRIC Slice ROTATE <0.0 -120.0 0.0> END_QUADRIC
  94.     QUADRIC Slice ROTATE <0.0 -140.0 0.0> END_QUADRIC
  95.     QUADRIC Slice ROTATE <0.0 -160.0 0.0> END_QUADRIC
  96.     QUADRIC Slice ROTATE <0.0  180.0 0.0> END_QUADRIC
  97.     QUADRIC Slice ROTATE <0.0 -200.0 0.0> END_QUADRIC
  98.     QUADRIC Slice ROTATE <0.0 -220.0 0.0> END_QUADRIC
  99.     QUADRIC Slice ROTATE <0.0 -240.0 0.0> END_QUADRIC
  100.     QUADRIC Slice ROTATE <0.0 -260.0 0.0> END_QUADRIC
  101.     QUADRIC Slice ROTATE <0.0 -280.0 0.0> END_QUADRIC
  102.     QUADRIC Slice ROTATE <0.0 -300.0 0.0> END_QUADRIC
  103.     QUADRIC Slice ROTATE <0.0 -320.0 0.0> END_QUADRIC
  104.     QUADRIC Slice ROTATE <0.0 -340.0 0.0> END_QUADRIC
  105.   END_UNION
  106.   BOUNDED_BY
  107.       QUADRIC Sphere SCALE <6.7 6.7 6.7> END_QUADRIC
  108.   END_BOUND      
  109.   TEXTURE
  110.     COLOR RED 0.8 GREEN 0.22 BLUE 0.1
  111.     BUMPS 0.3
  112.     SCALE < 0.1 0.1 0.1>
  113.     AMBIENT 0.1
  114.     DIFFUSE 0.9
  115.     PHONG 0.75
  116.     PHONGSIZE 30.0
  117.   END_TEXTURE
  118.   COLOR RED 0.8 GREEN 0.22 BLUE 0.1
  119. END_OBJECT    
  120.  
  121. {
  122. DECLARE Slice2 = SPHERE <0.0 0.0 5.0> 0.1 END_SPHERE
  123.  
  124. DECLARE Thing2 =
  125. OBJECT
  126.   UNION
  127.     SPHERE Slice2 END_SPHERE
  128.     SPHERE Slice2 ROTATE <0.0 -20.0  0.0> END_SPHERE
  129.     SPHERE Slice2 ROTATE <0.0 -40.0  0.0> END_SPHERE
  130.     SPHERE Slice2 ROTATE <0.0 -60.0  0.0> END_SPHERE
  131.     SPHERE Slice2 ROTATE <0.0 -80.0  0.0> END_SPHERE
  132.     SPHERE Slice2 ROTATE <0.0 -100.0 0.0> END_SPHERE
  133.     SPHERE Slice2 ROTATE <0.0 -120.0 0.0> END_SPHERE
  134.     SPHERE Slice2 ROTATE <0.0 -140.0 0.0> END_SPHERE
  135.     SPHERE Slice2 ROTATE <0.0 -160.0 0.0> END_SPHERE
  136.     SPHERE Slice2 ROTATE <0.0  180.0 0.0> END_SPHERE
  137.     SPHERE Slice2 ROTATE <0.0 -200.0 0.0> END_SPHERE
  138.     SPHERE Slice2 ROTATE <0.0 -220.0 0.0> END_SPHERE
  139.     SPHERE Slice2 ROTATE <0.0 -240.0 0.0> END_SPHERE
  140.     SPHERE Slice2 ROTATE <0.0 -260.0 0.0> END_SPHERE
  141.     SPHERE Slice2 ROTATE <0.0 -280.0 0.0> END_SPHERE
  142.     SPHERE Slice2 ROTATE <0.0 -300.0 0.0> END_SPHERE
  143.     SPHERE Slice2 ROTATE <0.0 -320.0 0.0> END_SPHERE
  144.     SPHERE Slice2 ROTATE <0.0 -340.0 0.0> END_SPHERE
  145.   END_UNION
  146.   BOUNDED_BY
  147.     SPHERE <0.0 0.0 0.0> 12 END_SPHERE
  148.   END_BOUND
  149.   TEXTURE
  150.     COLOR RED 0.1 GREEN 0.22 BLUE 0.8
  151.     AMBIENT 0.1
  152.     DIFFUSE 0.9
  153.     PHONG 0.75
  154.     PHONGSIZE 30.0
  155.   END_TEXTURE
  156.   COLOR RED 0.1 GREEN 0.22 BLUE 0.8
  157. END_OBJECT    
  158. }
  159.  
  160. DECLARE Slice2 = QUADRIC
  161.   Sphere
  162.   TRANSLATE <0.0 0.0 5.0>
  163.   SCALE <0.1 0.1 0.1>
  164. END_QUADRIC
  165.  
  166. DECLARE Thing2 =
  167. OBJECT
  168.   UNION
  169.     QUADRIC Slice2 END_QUADRIC
  170.     QUADRIC Slice2 ROTATE <0.0 -20.0  0.0> END_QUADRIC
  171.     QUADRIC Slice2 ROTATE <0.0 -40.0  0.0> END_QUADRIC
  172.     QUADRIC Slice2 ROTATE <0.0 -60.0  0.0> END_QUADRIC
  173.     QUADRIC Slice2 ROTATE <0.0 -80.0  0.0> END_QUADRIC
  174.     QUADRIC Slice2 ROTATE <0.0 -100.0 0.0> END_QUADRIC
  175.     QUADRIC Slice2 ROTATE <0.0 -120.0 0.0> END_QUADRIC
  176.     QUADRIC Slice2 ROTATE <0.0 -140.0 0.0> END_QUADRIC
  177.     QUADRIC Slice2 ROTATE <0.0 -160.0 0.0> END_QUADRIC
  178.     QUADRIC Slice2 ROTATE <0.0  180.0 0.0> END_QUADRIC
  179.     QUADRIC Slice2 ROTATE <0.0 -200.0 0.0> END_QUADRIC
  180.     QUADRIC Slice2 ROTATE <0.0 -220.0 0.0> END_QUADRIC
  181.     QUADRIC Slice2 ROTATE <0.0 -240.0 0.0> END_QUADRIC
  182.     QUADRIC Slice2 ROTATE <0.0 -260.0 0.0> END_QUADRIC
  183.     QUADRIC Slice2 ROTATE <0.0 -280.0 0.0> END_QUADRIC
  184.     QUADRIC Slice2 ROTATE <0.0 -300.0 0.0> END_QUADRIC
  185.     QUADRIC Slice2 ROTATE <0.0 -320.0 0.0> END_QUADRIC
  186.     QUADRIC Slice2 ROTATE <0.0 -340.0 0.0> END_QUADRIC
  187.   END_UNION
  188.   BOUNDED_BY
  189.     QUADRIC Sphere SCALE <12.0 12.0 12.0> END_QUADRIC
  190.   END_BOUND
  191.   TEXTURE
  192.     COLOR RED 0.1 GREEN 0.22 BLUE 0.8
  193.     AMBIENT 0.1
  194.     DIFFUSE 0.9
  195.     PHONG 0.75
  196.     PHONGSIZE 30.0
  197.   END_TEXTURE
  198.   COLOR RED 0.1 GREEN 0.22 BLUE 0.8
  199. END_OBJECT    
  200.  
  201.  
  202. {*****************************************}
  203. {*****************************************}
  204.  
  205. OBJECT
  206.    Twister
  207.    { SCALE <4.7 8.0 4.0> }
  208.    ROTATE <-15.0 30.0 0.0>
  209.    TRANSLATE <-16.0 7.7 61.5>    
  210. END_OBJECT    
  211. OBJECT
  212.    Twister
  213.    {SCALE <1.0 2.0 1.0> }
  214.    ROTATE <-15.0 0.0 -10.0>
  215.    TRANSLATE <0.0 1.0 88.0>    
  216. END_OBJECT    
  217. OBJECT
  218.    Twister
  219.    {SCALE <4.5 8.0 4.0>}
  220.    ROTATE <0.0 45.0 0.0>
  221.    TRANSLATE <13.0 25.0 40.0>    
  222. END_OBJECT    
  223.  
  224. OBJECT
  225.    Twister
  226.    {SCALE <4.5 8.0 4.0>}
  227.    ROTATE <-15.0 0.0 -10.0>
  228.    TRANSLATE <26.0 14.0 70.0>    
  229. END_OBJECT    
  230.  
  231. { Little Things }
  232. OBJECT
  233.    Thing 
  234.    SCALE <1.5 3.0 1.5>
  235.    TRANSLATE < -11.0 1.55 95.0> 
  236. END_OBJECT    
  237. OBJECT
  238.    Thing2 
  239.    SCALE <6.0 6.0 6.0>
  240.    ROTATE <-10.0 30.0 0.0>
  241.    TRANSLATE <-11.0 1.55 95.0> 
  242. END_OBJECT    
  243.  
  244. OBJECT
  245.    Thing 
  246.    SCALE <1.5 3.5 1.5>
  247.    TRANSLATE <-10.0 10.55 95.0> 
  248. END_OBJECT    
  249. OBJECT
  250.    Thing2 
  251.    SCALE <10.0 10.0 10.0>
  252.    ROTATE <0.0 0.0 -35.0>
  253.    TRANSLATE < -10.0 10.55 95.0>    
  254. END_OBJECT    
  255.  
  256. OBJECT
  257.    Thing 
  258.    SCALE <1.5 3.5 1.5>
  259.    TRANSLATE < -4.0 4.0 80.0>    
  260. END_OBJECT    
  261. OBJECT
  262.    Thing2 
  263.    SCALE <6.0 6.0 6.0>
  264.    ROTATE <-30.0 0.0 20.0>
  265.    TRANSLATE < -4.6 5.55 80.0> 
  266. END_OBJECT    
  267.  
  268.  
  269. OBJECT
  270.    Thing 
  271.    SCALE <1.5 3.5 1.5>
  272.    TRANSLATE < 11.0 1.6 90.0>    
  273. END_OBJECT
  274. OBJECT
  275.    Thing2    
  276.    SCALE <8.0 8.0 8.0>
  277.    ROTATE <0.0 45.0 20.0>
  278.    TRANSLATE < 10.0 7.0 90.0>    
  279. END_OBJECT    
  280.  
  281. {cloud hills}
  282. OBJECT
  283.     QUADRIC Paraboloid_Y 
  284.             SCALE<40.0 10.0 77.0>
  285.     END_QUADRIC 
  286.     ROTATE <0.0 0.0 180.0>
  287.     TRANSLATE <0.0 21.0 -28.0>
  288.     TEXTURE
  289.       Purple_Clouds
  290.       SCALE < 5.0 5.0 5.0>
  291.       AMBIENT 0.5
  292.       DIFFUSE 0.9    
  293.     END_TEXTURE
  294.     COLOR RED 0.5 GREEN 0.6 BLUE 0.2
  295. END_OBJECT
  296.  
  297. {cloud hill to right}
  298. OBJECT
  299.     QUADRIC Paraboloid_Y 
  300.             SCALE<30.0 10.0 40.0>
  301.     END_QUADRIC 
  302.     ROTATE <0.0 0.0 180.0>
  303.     TRANSLATE <40.0 14.0 50.0>
  304.     TEXTURE
  305.       Purple_Clouds
  306.       SCALE < 7.0 5.0 5.0>
  307.       AMBIENT 0.5
  308.       DIFFUSE 0.9    
  309.     END_TEXTURE
  310.     COLOR RED 0.6 GREEN 0.6 BLUE 0.1
  311. END_OBJECT
  312.  
  313. {The Sun}
  314. OBJECT
  315.   SPHERE <0.0 0.0 0.0> 150.0 END_SPHERE
  316.   TRANSLATE <150.0 40.0 1200.0>  
  317.   TEXTURE
  318.     COLOUR White
  319.     AMBIENT 1.0
  320.     DIFFUSE 0.0
  321.   END_TEXTURE
  322.   LIGHT_SOURCE
  323.   COLOUR White
  324. END_OBJECT
  325.  
  326. {sky}
  327. OBJECT
  328.    SPHERE <0.0 0.0 0.0> 2000.0 INVERSE END_SPHERE
  329.    TEXTURE
  330.      Sunset_Sky
  331.      TRANSLATE <0.0 200.0 0.0>
  332.      SCALE <1.2 1.2 1.2>
  333.      AMBIENT 0.6
  334.      DIFFUSE 0.0
  335.    END_TEXTURE
  336.    COLOR White
  337. END_OBJECT    
  338.