BoxSlider {
   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 [ Shape {
   		appearance Appearance {
   			material Material {
   				diffuseColor .75 .75 .75
   				}
   			}
   		geometry Box { size 1 .25 .25 }
   		}
   		]
   exposedField MFNode     topMark Shape {
   		appearance Appearance {
   			}
   		geometry IndexedLineSet {
   			color Color { color 0 1 0 }
   			colorIndex [ 0, 0, 0, 0, 0, 0 ]
   			coord Coordinate {
   				point [ 0 .135 .135, 0 -.135 .135,
   					0 -.135 -.135, 0 .135 -.135 ]
   				}
   			coordIndex [ 0, 1, 2, 3, 0, -1 ]
   			}
   		}
   exposedField MFNode     botMark Shape {
   		appearance Appearance {
   			}
   		geometry IndexedLineSet {
   			color Color { color 0 1 0 }
   			colorIndex [ 0, 0, 0, 0, 0, 0 ]
   			coord Coordinate {
   				point [ 0 .135 .135, 0 -.135 .135,
   					0 -.135 -.135, 0 .135 -.135 ]
   				}
   			coordIndex [ 0, 1, 2, 3, 0, -1 ]
   			}
   		}
}