home *** CD-ROM | disk | FTP | other *** search
- // --- L-System Parser/Mutator --- Lj Lapre ---
- // use with output.inc generated by lparser -vc
- // and change direction/zoom scale to get correct view
-
- #include "colors.inc"
- #include "shapes.inc"
- #include "textures.inc"
-
- // Choose 16 colors
-
- #declare col_0 = colour red 0.8 green 0.498039 blue 0.196078
- #declare col_1 = colour red 0.5 green 0.5 blue 0.5
- #declare col_2 = colour red 1.0
- #declare col_3 = colour red 1.0 green 1.0
- #declare col_4 = colour red 0.2 green 0.7 blue 0.1
- #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, 180, 250>
- direction <0, 0, 2.0>
- look_at <0, 0, 0>
- }
-
- // Setup light sources
-
- object { light_source { <200, 180, 250> 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.3 diffuse 0.7 phong 1 }
- #declare t_leaf = finish { ambient 0.3 diffuse 0.7 }
-
- #include "output.inc"
-
-