<?  Header("Content-type: model/vrml"); 
    echo "#VRML V2.0 utf8";
// This does it more randomly than vrml.php
// Freeware
// Daniel.Schneider@tecfa.unige.ch
?>

PROTO Tree [
		   field SFVec3f translation 0 0 0
                   field SFFloat radius 0.1
                   field SFFloat topRadius 0.5
                   field SFFloat height 3
		  ]
{Transform {
   translation IS translation
   children [
      Transform {
	 translation 0 1.5 0
	 children Shape {
	    appearance DEF app Appearance {
	       material Material {
		  diffuseColor 0.6 0.3 0.1
	       } }	
	    geometry Cylinder {
	       radius IS radius
	       height IS height
	    }
	 }
      }
      Transform {
	 translation 0 3.5 0
	 children Shape {
	    appearance DEF app Appearance {
	       material Material {
		  diffuseColor 0.1 0.9 0.1
	       } }	
	    geometry Sphere {
	       radius IS topRadius
	    }
	 } }
     ]
} } 


DEF EntryView Viewpoint {
   position	20 1.73873 10
   orientation	0 0 1  0
   fieldOfView	0.785398
   jump	FALSE
   description	"Entry View"
}
DEF OverView Viewpoint {
   position	20 1.73873 60
   orientation	0 1 0   -0.2
   fieldOfView	1.2
   jump	FALSE
   description	"Over View"
}


<?
// seed the random generator
srand (mktime ());

// paint the trees
for ($i=1; $i<11; $i++) {
	for ($j=1; $j<11; $j++) {
	$x = $i * ((rand() % 5) +1) ;
	$z = $j * ((rand() % 5) +1) ;
	echo "Tree { translation $x 0 $z }";
	}
}
?>