home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Current Shareware 1994 January
/
SHAR194.ISO
/
graphuti
/
lparser2.zip
/
EXAM.POV
< prev
next >
Wrap
Text File
|
1993-10-13
|
13KB
|
129 lines
// --- L-System Parser/Mutator --- Lj Lapre ---
// based on lsys00.ls
#include "colors.inc"
#include "shapes.inc"
#include "textures.inc"
// ------------------------------- Header part -----------------------------------
// part created by the user
// Choose 16 colors
#declare col_0 = colour red 1.0 green 1.0 blue 1.0
#declare col_1 = colour red 0.8 green 0.498039 blue 0.196078
#declare col_2 = colour red 1.0
#declare col_3 = colour red 1.0 green 1.0
#declare col_4 = colour green 1.0
#declare col_5 = colour blue 1.0 green 1.0
#declare col_6 = colour blue 1.0
#declare col_7 = colour red 1.0 blue 1.0
#declare col_8 = colour red 0.439216 green 0.858824 blue 0.576471
#declare col_9 = colour red 1.0 green 0.498039 blue 0.0
#declare col_10 = colour red 0.258824 green 0.258824 blue 0.435294
#declare col_11 = colour red 0.6 green 0.196078 blue 0.8
#declare col_12 = colour red 0.439216 green 0.576471 blue 0.858824
#declare col_13 = colour red 0.556863 green 0.137255 blue 0.137255
#declare col_14 = colour red 0.858824 green 0.858824 blue 0.439216
#declare col_15 = colour red 0.623529 green 0.623529 blue 0.372549
// Setup camera
camera {
location <200, 200, -200>
direction <0, 0, 2.5>
look_at <0, 40, 0>
}
// Setup light sources
object { light_source { <200, 200, -100> color White } }
// Select lbase object
#declare l_base = object { sphere { <0, 0.75 0> 0.75 } }
// Textures for l_base object and leafs
#declare t_base = finish { ambient 0.1 diffuse 0.5 reflection 0.4 phong 1 }
#declare t_leaf = finish { ambient 0.1 diffuse 0.5 reflection 0.4 }
// ------------------------------- L-parser part ---------------------------------
// part created by 'lparser -r5 -v -g lsys00'
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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}}
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}}
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}}
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}}
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>}
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>}
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>}
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}}
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}}
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}}
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}}
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>}
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>}
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>}
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}}
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}}
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}}
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}}
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>}
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>}
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}}
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}}
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}}
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}}
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>}
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>}
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}}
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}}
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}}
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}}
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>}
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}}
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}}
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}}
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}}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
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>}
object{triangle{<-10000, -21.6506, -10000><10000, -21.6506, -10000><10000, -21.6506, 10000>}finish{t_leaf} pigment{color col_1}}
object{triangle{<10000, -21.6506, 10000><-10000, -21.6506, 10000><-10000, -21.6506, -10000>}finish{t_leaf} pigment{color col_1}}