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

// here it comes - the LSystem Object definitions                                                 
                                                 
// set radius of line segments
#declare r = 0.003;     
                                                 
// 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*1.25 pigment { color rgb x }}
#end

// get the object in x/z plane
#include "lsystem.inc"
                 
// show it                 
object { LSysObject finish { ambient 0.8 diffuse 0.6 } }