Slider {
   eventIn      SFFloat    set_fraction
   field        SFFloat    fraction .5
   field        SFBool     noloop FALSE
   eventOut     SFFloat    fraction_changed
   eventOut     SFTime     touchTime
   exposedField SFBool     enabled TRUE
   exposedField MFNode     thumb Transform {
   			scale .08 .04 .08
   		children Shape {
   			appearance Appearance {
   				material Material {
   					diffuseColor 0 0 1
   				}
   			}
   			geometry Sphere {}
   			}
   		}
   exposedField MFNode     slide Shape {
   		appearance Appearance {
   			material Material {
   				diffuseColor .75 .75 .75
   				shininess .9
   				}
   			}
   		geometry Cylinder {
   			radius .01
   			height 1.1
   			}
   		}
}