//a bush
                             
#declare six=5
#declare siy=2
#fopen bushfile "berg.bus" read
#declare i=0;
  #while (defined(bushfile))
  #read (bushfile,xb,zb,yb,bt)
  #while (xb>180)
    #switch (bt) 
    #case (1)
    object {bush1 scale <rand(r1)/six+.3,rand(r1)/siy+.4,rand(r1)/six+.3>
    translate <(xb/512.)*xscale,(yb/64000.)*yscale-delta1,(zb/512.)*zscale>
    rotate -y*12 translate <1.5,0,190> }
    #warning concat("bush2",str(xb,6,1))
    #break
    #case (2)
    object {bush2 scale <rand(r1)/six+.3,rand(r1)/siy+.4,rand(r1)/six+.3>
    translate <(xb/512.)*xscale,(yb/64000.)*yscale-delta1,(zb/512.)*zscale>
    rotate -y*12 translate <1.5,0,190> }
    #warning concat("bush2",str(xb,6,1))
    #break
    #case (3)
    object {bush3 scale <rand(r1)/six+.3,rand(r1)/siy+.4,rand(r1)/six+.3>
    translate <(xb/512.)*xscale,(yb/64000.)*yscale-delta1,(zb/512.)*zscale>
    rotate -y*12 translate <1.5,0,190> }
    #warning concat("bush2",str(xb,6,1)) 
    #break
    #end  
    #declare xb=0;
    
    #end // (xb>256)                                    
    #warning concat("bush2end","\n")
//   #warning concat("bush2 Value is:",str(xb,6,1)," ",str(yb,6,1)," ",str(zb,6,1),str(bt,6,1),"\n")   
  #declare i=i+1;
  #end  //defined (bushfile)