// LSystem test rendering 3D
// shadowless light and object tweaking                     
               
camera { 
   location <0,4,0>
   look_at 0
   angle 20
}
   
background { color <0.3,0.4,0.6> }   
                                      
light_source {<2,5,0>,1 shadowless}

// here it comes - the LSystem Object definitions                                                 
                                                 
// set radius of line segments
#declare r = 0.01;     
                                                 
// plain cylinders build the lines                                                  
#macro LineObject(a,b,n)
         cylinder { a,b,r  pigment { color rgb 1.2 } }
#end
                                   
// red balls as joints                                   
#macro JointObject(a,n)  
       sphere { a,r*3.5 pigment { color rgb x }}
#end

// get the object
#include "lsystem.inc"
                 
// show it                 
object { LSysObject 
            finish { ambient 0.9 diffuse 0.2 } 
            scale 0.7
            rotate <0,0,12>
            rotate <-10,0,0>
}