home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / graphuti / lparser2.zip / EXAM.POV < prev    next >
Text File  |  1993-10-13  |  13KB  |  129 lines
  1. // --- L-System Parser/Mutator --- Lj Lapre --- 
  2. // based on lsys00.ls
  3.  
  4. #include "colors.inc"
  5. #include "shapes.inc"
  6. #include "textures.inc"
  7.  
  8. // ------------------------------- Header part -----------------------------------
  9. // part created by the user
  10.  
  11. // Choose 16 colors
  12.  
  13. #declare col_0  = colour red 1.0 green 1.0 blue 1.0
  14. #declare col_1  = colour red 0.8 green 0.498039 blue 0.196078
  15. #declare col_2  = colour red 1.0
  16. #declare col_3  = colour red 1.0 green 1.0
  17. #declare col_4  = colour green 1.0
  18. #declare col_5  = colour blue 1.0 green 1.0
  19. #declare col_6  = colour blue 1.0
  20. #declare col_7  = colour red 1.0 blue 1.0
  21. #declare col_8  = colour red 0.439216 green 0.858824 blue 0.576471
  22. #declare col_9  = colour red 1.0 green 0.498039 blue 0.0
  23. #declare col_10 = colour red 0.258824 green 0.258824 blue 0.435294
  24. #declare col_11 = colour red 0.6 green 0.196078 blue 0.8
  25. #declare col_12 = colour red 0.439216 green 0.576471 blue 0.858824
  26. #declare col_13 = colour red 0.556863 green 0.137255 blue 0.137255
  27. #declare col_14 = colour red 0.858824 green 0.858824 blue 0.439216
  28. #declare col_15 = colour red 0.623529 green 0.623529 blue 0.372549
  29.  
  30. // Setup camera
  31.  
  32. camera {
  33.     location  <200, 200, -200>
  34.     direction <0, 0, 2.5>
  35.     look_at   <0, 40, 0>
  36. }
  37.  
  38. // Setup light sources
  39.  
  40. object { light_source { <200, 200, -100> color White } }
  41.  
  42. // Select lbase object
  43.  
  44. #declare l_base = object { sphere { <0, 0.75 0> 0.75 } }
  45.  
  46. // Textures for l_base object and leafs
  47.  
  48. #declare t_base = finish { ambient 0.1 diffuse 0.5 reflection 0.4 phong 1 }
  49. #declare t_leaf = finish { ambient 0.1 diffuse 0.5 reflection 0.4 }
  50.  
  51. // ------------------------------- L-parser part ---------------------------------
  52. // part created by 'lparser -r5 -v -g lsys00'
  53.  
  54. object{l_base finish{t_base} pigment{color col_3}scale<5.83333, 5.83333, 5.83333>rotate<0, 0, -149.226>rotate<0, -179.071, 0>translate<0, 0, 0>}
  55. object{l_base finish{t_base} pigment{color col_3}scale<4.08333, 5.83333, 4.08333>rotate<0, 0, -149.226>rotate<0, -179.071, 0>translate<-4.16667, -7.21688, 6.30919e-007>}
  56. object{l_base finish{t_base} pigment{color col_3}scale<2.85833, 5.83333, 2.85833>rotate<0, 0, -149.226>rotate<0, -179.071, 0>translate<-8.33333, -14.4338, 1.26184e-006>}
  57. object{l_base finish{t_base} pigment{color col_3}scale<2.00083, 5.83333, 2.00083>rotate<0, 0, -149.226>rotate<0, -179.071, 0>translate<-12.5, -21.6506, 1.89276e-006>}
  58. object{l_base finish{t_base} pigment{color col_3}scale<5.83333, 5.83333, 5.83333>rotate<0, 0, -149.226>rotate<0, 0, 0>translate<0, 0, 0>}
  59. object{l_base finish{t_base} pigment{color col_3}scale<4.08333, 5.83333, 4.08333>rotate<0, 0, -149.226>rotate<0, 0, 0>translate<4.16667, -7.21688, 2.66658e-007>}
  60. object{l_base finish{t_base} pigment{color col_3}scale<2.85833, 5.83333, 2.85833>rotate<0, 0, -149.226>rotate<0, 0, 0>translate<8.33333, -14.4338, 5.33316e-007>}
  61. object{l_base finish{t_base} pigment{color col_3}scale<2.00083, 5.83333, 2.00083>rotate<0, 0, -149.226>rotate<0, 0, 0>translate<12.5, -21.6506, 7.99974e-007>}
  62. object{l_base finish{t_base} pigment{color col_3}scale<5.83333, 5.83333, 5.83333>rotate<0, 0, -149.226>rotate<0, -29.8451, 0>translate<0, 0, 0>}
  63. object{l_base finish{t_base} pigment{color col_3}scale<4.08333, 5.83333, 4.08333>rotate<0, 0, -149.226>rotate<0, -29.8451, 0>translate<3.60844, -7.21688, 2.08333>}
  64. object{l_base finish{t_base} pigment{color col_3}scale<2.85833, 5.83333, 2.85833>rotate<0, 0, -149.226>rotate<0, -29.8451, 0>translate<7.21688, -14.4338, 4.16667>}
  65. object{l_base finish{t_base} pigment{color col_3}scale<5.83333, 5.83333, 5.83333>rotate<0, 0, -149.226>rotate<0, -208.916, 0>translate<0, 0, 0>}
  66. object{l_base finish{t_base} pigment{color col_3}scale<4.08333, 5.83333, 4.08333>rotate<0, 0, -149.226>rotate<0, -208.916, 0>translate<-3.60844, -7.21688, -2.08333>}
  67. object{l_base finish{t_base} pigment{color col_3}scale<2.85833, 5.83333, 2.85833>rotate<0, 0, -149.226>rotate<0, -208.916, 0>translate<-7.21688, -14.4338, -4.16666>}
  68. object{l_base finish{t_base} pigment{color col_3}scale<5.83333, 5.83333, 5.83333>rotate<0, 0, -149.226>rotate<0, -238.761, 0>translate<0, 0, 0>}
  69. object{l_base finish{t_base} pigment{color col_3}scale<4.08333, 5.83333, 4.08333>rotate<0, 0, -149.226>rotate<0, -238.761, 0>translate<-2.08333, -7.21688, -3.60844>}
  70. object{l_base finish{t_base} pigment{color col_3}scale<5.83333, 5.83333, 5.83333>rotate<0, 0, -149.226>rotate<0, -59.6902, 0>translate<0, 0, 0>}
  71. object{l_base finish{t_base} pigment{color col_3}scale<4.08333, 5.83333, 4.08333>rotate<0, 0, -149.226>rotate<0, -59.6902, 0>translate<2.08333, -7.21688, 3.60844>}
  72. object{l_base finish{t_base} pigment{color col_3}scale<5.83333, 5.83333, 5.83333>rotate<0, 0, -149.226>rotate<0, -89.5354, 0>translate<0, 0, 0>}
  73. object{l_base finish{t_base} pigment{color col_3}scale<5.83333, 5.83333, 5.83333>rotate<0, 0, -149.226>rotate<0, -268.606, 0>translate<0, 0, 0>}
  74. object{l_base finish{t_base} pigment{color col_2}scale<11.6667, 11.6667, 11.6667>rotate<0, 0, 0>rotate<0, -89.5354, 0>translate<0, 0, 0>}
  75. object{l_base finish{t_base} pigment{color col_4}scale<11.6667, 11.6667, 11.6667>rotate<0, 0, -89.5354>rotate<0, -179.071, 0>translate<0, 16.6667, 0>}
  76. object{l_base finish{t_base} pigment{color col_4}scale<8.16667, 11.6667, 8.16667>rotate<0, 0, -89.5354>rotate<0, -196.978, 0>translate<-16.6667, 16.6667, 0>}
  77. object{l_base finish{t_base} pigment{color col_4}scale<5.71667, 11.6667, 5.71667>rotate<0, 0, -89.5354>rotate<0, -213.094, 0>translate<-32.5176, 16.6667, -5.15028>}
  78. object{triangle{<-46.3023, 16.6667, -14.5183><-53.1946, 16.6667, -19.2024><-58.6859, 16.6667, -25.4706>}finish{t_leaf} pigment{color col_6}}
  79. object{triangle{<-46.3023, 16.6667, -14.5183><-58.6859, 16.6667, -25.4706><-62.4224, 16.6667, -32.9193>}finish{t_leaf} pigment{color col_6}}
  80. object{triangle{<-46.3023, 16.6667, -14.5183><-62.4224, 16.6667, -32.9193><-55.5301, 16.6667, -28.2352>}finish{t_leaf} pigment{color col_6}}
  81. object{triangle{<-46.3023, 16.6667, -14.5183><-55.5301, 16.6667, -28.2352><-50.0388, 16.6667, -21.967>}finish{t_leaf} pigment{color col_6}}
  82. object{l_base finish{t_base} pigment{color col_4}scale<11.6667, 11.6667, 11.6667>rotate<0, 0, -89.5354>rotate<0, 0, 0>translate<0, 16.6667, 0>}
  83. object{l_base finish{t_base} pigment{color col_4}scale<8.16667, 11.6667, 8.16667>rotate<0, 0, -89.5354>rotate<0, -340.234, 0>translate<16.6667, 16.6667, 0>}
  84. object{l_base finish{t_base} pigment{color col_4}scale<5.71667, 11.6667, 5.71667>rotate<0, 0, -89.5354>rotate<0, -324.118, 0>translate<32.5176, 16.6667, -5.15028>}
  85. object{triangle{<46.3023, 16.6667, -14.5183><53.1946, 16.6667, -19.2024><58.6859, 16.6667, -25.4706>}finish{t_leaf} pigment{color col_6}}
  86. object{triangle{<46.3023, 16.6667, -14.5183><58.6859, 16.6667, -25.4706><62.4224, 16.6667, -32.9193>}finish{t_leaf} pigment{color col_6}}
  87. object{triangle{<46.3023, 16.6667, -14.5183><62.4224, 16.6667, -32.9193><55.5301, 16.6667, -28.2352>}finish{t_leaf} pigment{color col_6}}
  88. object{triangle{<46.3023, 16.6667, -14.5183><55.5301, 16.6667, -28.2352><50.0388, 16.6667, -21.967>}finish{t_leaf} pigment{color col_6}}
  89. object{l_base finish{t_base} pigment{color col_2}scale<11.6667, 11.6667, 11.6667>rotate<0, 0, -9.94838>rotate<0, -89.5354, 0>translate<0, 16.6667, 0>}
  90. object{l_base finish{t_base} pigment{color col_4}scale<11.6667, 11.6667, 11.6667>rotate<0, 0, -89.5354>rotate<0, -179.071, 0>translate<0, 33.0801, 2.89414>}
  91. object{l_base finish{t_base} pigment{color col_4}scale<8.16667, 11.6667, 8.16667>rotate<0, 0, -86.4753>rotate<0, -196.723, 0>translate<-16.6667, 33.0801, 2.89414>}
  92. object{triangle{<-32.5176, 33.9745, -2.1779><-40.4431, 34.4216, -4.71392><-47.3354, 35.235, -9.32679>}finish{t_leaf} pigment{color col_6}}
  93. object{triangle{<-32.5176, 33.9745, -2.1779><-47.3354, 35.235, -9.32679><-52.6473, 36.35, -15.6502>}finish{t_leaf} pigment{color col_6}}
  94. object{triangle{<-32.5176, 33.9745, -2.1779><-52.6473, 36.35, -15.6502><-44.7218, 35.9028, -13.1142>}finish{t_leaf} pigment{color col_6}}
  95. object{triangle{<-32.5176, 33.9745, -2.1779><-44.7218, 35.9028, -13.1142><-37.8295, 35.0895, -8.5013>}finish{t_leaf} pigment{color col_6}}
  96. object{l_base finish{t_base} pigment{color col_4}scale<11.6667, 11.6667, 11.6667>rotate<0, 0, -89.5354>rotate<0, 0, 0>translate<0, 33.0801, 2.89414>}
  97. object{l_base finish{t_base} pigment{color col_4}scale<8.16667, 11.6667, 8.16667>rotate<0, 0, -86.4753>rotate<0, -340.489, 0>translate<16.6667, 33.0801, 2.89414>}
  98. object{triangle{<32.5176, 33.9745, -2.1779><40.4431, 34.4216, -4.71392><47.3354, 35.235, -9.32679>}finish{t_leaf} pigment{color col_6}}
  99. object{triangle{<32.5176, 33.9745, -2.1779><47.3354, 35.235, -9.32679><52.6473, 36.35, -15.6502>}finish{t_leaf} pigment{color col_6}}
  100. object{triangle{<32.5176, 33.9745, -2.1779><52.6473, 36.35, -15.6502><44.7218, 35.9028, -13.1142>}finish{t_leaf} pigment{color col_6}}
  101. object{triangle{<32.5176, 33.9745, -2.1779><44.7218, 35.9028, -13.1142><37.8295, 35.0895, -8.5013>}finish{t_leaf} pigment{color col_6}}
  102. object{l_base finish{t_base} pigment{color col_2}scale<11.6667, 11.6667, 11.6667>rotate<0, 0, -19.8968>rotate<0, -89.5354, 0>translate<0, 33.0801, 2.89414>}
  103. object{l_base finish{t_base} pigment{color col_4}scale<11.6667, 11.6667, 11.6667>rotate<0, 0, -89.5354>rotate<0, -179.071, 0>translate<0, 48.7417, 8.59447>}
  104. object{triangle{<-16.6667, 48.7417, 8.59447><-25, 48.7417, 8.59447><-32.9255, 49.6224, 6.17463>}finish{t_leaf} pigment{color col_6}}
  105. object{triangle{<-16.6667, 48.7417, 8.59447><-32.9255, 49.6224, 6.17463><-39.6673, 51.2977, 1.57182>}finish{t_leaf} pigment{color col_6}}
  106. object{triangle{<-16.6667, 48.7417, 8.59447><-39.6673, 51.2977, 1.57182><-31.3339, 51.2977, 1.57182>}finish{t_leaf} pigment{color col_6}}
  107. object{triangle{<-16.6667, 48.7417, 8.59447><-31.3339, 51.2977, 1.57182><-23.4085, 50.417, 3.99166>}finish{t_leaf} pigment{color col_6}}
  108. object{l_base finish{t_base} pigment{color col_4}scale<11.6667, 11.6667, 11.6667>rotate<0, 0, -89.5354>rotate<0, 0, 0>translate<0, 48.7417, 8.59447>}
  109. object{triangle{<16.6667, 48.7417, 8.59447><25, 48.7417, 8.59447><32.9255, 49.6224, 6.17463>}finish{t_leaf} pigment{color col_6}}
  110. object{triangle{<16.6667, 48.7417, 8.59447><32.9255, 49.6224, 6.17463><39.6673, 51.2977, 1.57182>}finish{t_leaf} pigment{color col_6}}
  111. object{triangle{<16.6667, 48.7417, 8.59447><39.6673, 51.2977, 1.57182><31.3339, 51.2977, 1.57182>}finish{t_leaf} pigment{color col_6}}
  112. object{triangle{<16.6667, 48.7417, 8.59447><31.3339, 51.2977, 1.57182><23.4085, 50.417, 3.99166>}finish{t_leaf} pigment{color col_6}}
  113. object{l_base finish{t_base} pigment{color col_2}scale<11.6667, 11.6667, 11.6667>rotate<0, 0, -29.8451>rotate<0, -89.5354, 0>translate<0, 48.7417, 8.59447>}
  114. object{l_base finish{t_base} pigment{color col_2}scale<11.6667, 11.6667, 11.6667>rotate<0, 0, -39.7935>rotate<0, -89.5354, 0>translate<0, 63.1754, 16.9278>}
  115. object{l_base finish{t_base} pigment{color col_5}scale<5.83333, 5.83333, 5.83333>rotate<0, 0, -49.7419>rotate<0, -89.5354, 0>translate<0, 75.9428, 27.6409>}
  116. object{l_base finish{t_base} pigment{color col_5}scale<4.08333, 5.83333, 4.08333>rotate<0, 0, -60.3212>rotate<0, -100.793, 0>translate<0, 81.2994, 34.0246>}
  117. object{l_base finish{t_base} pigment{color col_5}scale<2.85833, 5.83333, 2.85833>rotate<0, 0, -70.612>rotate<0, -108.851, 0>translate<-1.42508, 85.3859, 41.146>}
  118. object{l_base finish{t_base} pigment{color col_5}scale<2.00083, 5.83333, 2.00083>rotate<0, 0, -80.2144>rotate<0, -115.154, 0>translate<-4.04399, 88.102, 48.5763>}
  119. object{l_base finish{t_base} pigment{color col_5}scale<1.40058, 5.83333, 1.40058>rotate<0, 0, -89.0006>rotate<0, -120.443, 0>translate<-7.61623, 89.4586, 55.9819>}
  120. object{l_base finish{t_base} pigment{color col_7}scale<1.96082, 11.6667, 1.96082>rotate<0, 0, -96.9509>rotate<0, -125.126, 0>translate<-11.9165, 89.5368, 63.1195>}
  121. object{l_base finish{t_base} pigment{color col_5}scale<5.83333, 5.83333, 5.83333>rotate<0, 0, -49.7419>rotate<0, -89.5354, 0>translate<0, 75.9428, 27.6409>}
  122. object{l_base finish{t_base} pigment{color col_5}scale<4.08333, 5.83333, 4.08333>rotate<0, 0, -60.3212>rotate<0, -78.2776, 0>translate<0, 81.2994, 34.0246>}
  123. object{l_base finish{t_base} pigment{color col_5}scale<2.85833, 5.83333, 2.85833>rotate<0, 0, -70.612>rotate<0, -70.2198, 0>translate<1.42508, 85.3859, 41.146>}
  124. object{l_base finish{t_base} pigment{color col_5}scale<2.00083, 5.83333, 2.00083>rotate<0, 0, -80.2144>rotate<0, -63.9171, 0>translate<4.04399, 88.102, 48.5763>}
  125. object{l_base finish{t_base} pigment{color col_5}scale<1.40058, 5.83333, 1.40058>rotate<0, 0, -89.0006>rotate<0, -58.6279, 0>translate<7.61623, 89.4586, 55.9819>}
  126. object{l_base finish{t_base} pigment{color col_7}scale<1.96082, 11.6667, 1.96082>rotate<0, 0, -96.9509>rotate<0, -53.945, 0>translate<11.9165, 89.5368, 63.1195>}
  127. object{triangle{<-10000, -21.6506, -10000><10000, -21.6506, -10000><10000, -21.6506, 10000>}finish{t_leaf} pigment{color col_1}}
  128. object{triangle{<10000, -21.6506, 10000><-10000, -21.6506, 10000><-10000, -21.6506, -10000>}finish{t_leaf} pigment{color col_1}}
  129.