Touch Floor

#VRML V2.0 utf8

PROTO TouchFloor [ 
		  field SFVec3f scale 1 1 1 
		  eventOut SFVec3f hitPoint_changed
		 ]
{
   Transform {
      children [
	 DEF TOUCH TouchSensor {
	    hitPoint_changed IS hitPoint_changed
	 }
	 Transform {
	    scale IS scale
	    children DEF FLOOR Shape {
	       appearance Appearance {
		  material Material {
		     diffuseColor .2 .2 .2
		  }
	       }
	       geometry IndexedFaceSet {
		  coord Coordinate { point [ 1 0 1, 1 0 -1, -1 0 -1, -1 0 1 ] }
		  coordIndex [ 0 1 2 3 ]
	       }
	    }
	 }
	]
   }
}