home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / GRAFIK / TOOLS / GIFANI / R-000.DAT < prev    next >
Text File  |  1993-12-01  |  3KB  |  136 lines
  1.  
  2. {
  3.     Datenfile für PV Raytracer
  4.  
  5.   Idee : Paul Schubert, Rottweiler Str. 8, 6000 Frankfurt / M 1, 069 / 231145
  6. }
  7.  
  8. INCLUDE "colors.dat"
  9. INCLUDE "shapes.dat"
  10. INCLUDE "textures.dat"
  11.  
  12.  
  13. VIEW_POINT
  14.    LOCATION  <0.0  0.0 -20.0>
  15.    DIRECTION <0.0  0.0   1.0>
  16.    UP        <0.0  1.0   0.0>
  17.    RIGHT     <1.33 0.0   0.0>
  18. END_VIEW_POINT
  19.  
  20. OBJECT
  21.   SPHERE <0.0 0.0 0.0> 2.0 END_SPHERE
  22.   TRANSLATE <10.0  15.0  -13.0>
  23.   TEXTURE
  24.     COLOUR White
  25.     AMBIENT 1.0
  26.     DIFFUSE 0.0
  27.   END_TEXTURE
  28.   LIGHT_SOURCE
  29.   COLOUR White
  30. END_OBJECT
  31.  
  32. OBJECT
  33.    SPHERE <0 0 0> 5.0 END_SPHERE
  34.    TRANSLATE <-100 50 -100>
  35.    TEXTURE
  36.      COLOR White
  37.      AMBIENT 1.0
  38.      DIFFUSE 0.0
  39.    END_TEXTURE
  40.    LIGHT_SOURCE
  41.    COLOUR White
  42. END_OBJECT
  43.  
  44.  
  45. DECLARE SCHEIBE =
  46.   QUARTIC
  47.    < 1.0   0.0   0.0    0.0     2.0   0.0   0.0   2.0   0.0 -104.0
  48.      0.0   0.0   0.0    0.0     0.0   0.0   0.0   0.0   0.0    0.0
  49.      1.0   0.0   0.0    2.0     0.0  56.0   0.0   0.0   0.0    0.0
  50.      1.0   0.0 -104.0   0.0   2000.0 >
  51.     SCALE <1.0 0.2 1.0>
  52.   END_QUARTIC
  53.  
  54.  
  55. DECLARE OBERFLAECHE = TEXTURE
  56.     SPECULAR 1.0
  57.     ROUGHNESS 0.01
  58.     AMBIENT 0.4
  59.     DIFFUSE 0.6
  60.   END_TEXTURE
  61.  
  62.  
  63. COMPOSITE
  64.   COMPOSITE
  65.     OBJECT 
  66.       QUARTIC SCHEIBE STURM END_QUARTIC
  67.       TEXTURE
  68.         OBERFLAECHE
  69.         COLOR Yellow
  70.       END_TEXTURE
  71.       ROTATE <0.0 0.0 0.0>
  72.     END_OBJECT
  73.     OBJECT 
  74.       QUARTIC SCHEIBE STURM END_QUARTIC
  75.       TEXTURE
  76.         OBERFLAECHE
  77.         COLOR CBlue
  78.       END_TEXTURE
  79.       ROTATE <0.0 0.0 60.0>
  80.     END_OBJECT
  81.     OBJECT 
  82.       QUARTIC SCHEIBE STURM END_QUARTIC
  83.       TEXTURE
  84.         OBERFLAECHE
  85.         COLOR CRed
  86.       END_TEXTURE
  87.       ROTATE <0.0 0.0 120.0>
  88.     END_OBJECT
  89.     OBJECT 
  90.       QUARTIC SCHEIBE STURM END_QUARTIC
  91.       TEXTURE
  92.         OBERFLAECHE
  93.         COLOR CGreen
  94.       END_TEXTURE
  95.       ROTATE <60.0 0.0 0.0>
  96.     END_OBJECT
  97.     OBJECT 
  98.       QUARTIC SCHEIBE STURM END_QUARTIC
  99.       TEXTURE
  100.         OBERFLAECHE
  101.         COLOR Violet
  102.       END_TEXTURE
  103.       ROTATE <120.0 0.0 0.0>
  104.     END_OBJECT
  105.   END_COMPOSITE
  106.  
  107.   ROTATE <20.0 -20.0 20.0>
  108. {
  109.   folgende ROTATE- Anweisung muß verändert werden, um die verschiedenen Bilder
  110.   zu erzeugen, die ich für die Animations- Demos benutzt habe
  111. Z.B. :
  112.   ROTATE <0.0 10.0 0.0>
  113. }
  114.   ROTATE <0.0 0.0 0.0>
  115.   TRANSLATE <4.0 0.0 5.0>
  116. END_COMPOSITE
  117.  
  118. { Put down a floor }
  119. OBJECT
  120.   PLANE <0.0  1.0  0.0> -10.0 END_PLANE
  121.   TEXTURE
  122.     Brass_Texture
  123.     AMBIENT 0.5
  124.     DIFFUSE 0.5
  125.   END_TEXTURE
  126. END_OBJECT
  127.  
  128. OBJECT
  129.   PLANE <0.0  0.0  1.0> 11.0 END_PLANE
  130.   TEXTURE
  131.      Mirror
  132.   END_TEXTURE
  133.   ROTATE <0.0 -45.0 0.0>
  134. END_OBJECT
  135.  
  136.