#VRML V2.0 utf8

WorldInfo {
  title "Cone"
}

Viewpoint {
   position 40 50 100
   orientation 1 0 0 -0.6
   fieldOfView 0.8
}

NavigationInfo {
   type "FLY"
   speed 5
}

DEF Uservp ProximitySensor {
   center 0 0 0
   size 65534 65534 65534
   enabled TRUE
}

DEF Colors Color {
    color []
}

PROTO Fractal [
      eventIn   SFBool  start
      eventOut	MFFloat tabpoint
      eventOut	MFColor colorpoint
      ]
{
  Script {
     eventIn	SFBool		start IS start
     eventOut	MFFloat		tabpoint IS tabpoint
     eventOut	MFColor		colorpoint IS colorpoint
     directOutput FALSE
     mustEvaluate FALSE
     url	[ "Fractal.class" ]
     
  }
}

PROTO GenNode [
	       eventIn   SFBool  start
	       eventOut	MFNode newNode
	      ]
{
   Script {
      eventIn	SFBool		start IS start
      eventOut	MFNode		newNode IS newNode
      url	[ "Fractal3.class" ]
  }
}

Group {
   children [
      DEF Trans Transform {
	translation 0 0 0
	children [
	  Shape {
            appearance Appearance {
              material DEF GREEN Material {
	        diffuseColor 0.1 0.7 0.2
	        specularColor 0.8 0.8 0.8
	        shininess 0.7
              }
            }
            geometry DEF Elevator ElevationGrid {
              color USE Colors
              xDimension 80
              xSpacing 1
              zDimension 64
              zSpacing 1
	      colorPerVertex TRUE
	      normalPerVertex TRUE
	    }
          }
	]
      }
      Transform {
        translation -40 30 -10
        children [
	  DEF Nodes GenNode {}
	]
      }
   ]     
}

DEF Motor Fractal {
}

Group {
   children [
      DEF Interface Transform {
	 translation 0 0 0
	 rotation 0 1 0 0
	 children [
	    DEF ButtonStart Transform {
	       translation 8 6 -18
	       children [
		  Shape {
		     appearance Appearance {
			material Material {
			   diffuseColor 0.1 0.6 0.8
			   specularColor 1 1 1
			   shininess 0.4
			}
		     }
		     geometry Sphere {
		           radius 1.0
	             }
		  }
		  DEF TreeSensor TouchSensor {
		  }
	       ]
            }
	    Transform {
	       translation 6 5 -15
	       children [
		  Shape {
		     appearance Appearance {
			material Material {
			   diffuseColor 0.9 0.8 0.3
			   specularColor 1 1 1
			   shininess 0.4
			}
		     }
		     geometry Text {
		           string ["Tree"]
			   length [1.5]
	             }
		  }
		  DEF TreeTSensor TouchSensor {
		  }
	       ]
	    }
	    DEF ButtonStart Transform {
	       translation -8 6 -18
	       children [
		  Shape {
		     appearance Appearance {
			material Material {
			   diffuseColor 0.1 0.6 0.8
			   specularColor 1 1 1
			   shininess 0.4
			}
		     }
		     geometry Sphere {
		           radius 1.0
	             }
		  }
		  DEF GridSensor TouchSensor {
		  }
	       ]
            }
	    Transform {
	       translation -7.6 5 -15
	       children [
		  Shape {
		     appearance Appearance {
			material Material {
			   diffuseColor 0.9 0.8 0.3
			   specularColor 1 1 1
			   shininess 0.4
			}
		     }
		     geometry Text {
		           string ["Grid"]
			   length [1.5]
	             }
		  }
		  DEF GridTSensor TouchSensor {
		  }
	       ]
	    }
         ]
      }
   ]    
}

ROUTE TreeSensor.isActive TO Nodes.start
ROUTE GridSensor.isActive TO Motor.start
ROUTE TreeTSensor.isActive TO Nodes.start
ROUTE GridTSensor.isActive TO Motor.start

ROUTE Uservp.position_changed TO Interface.translation
ROUTE Uservp.orientation_changed TO Interface.rotation

ROUTE Nodes.newNode TO Trans.addChildren
ROUTE Motor.colorpoint TO Colors.color
ROUTE Motor.tabpoint TO Elevator.set_height