sticky touch

  PROTO SphereTransform [
          exposedField SFVec3f sphereTranslation 0  0  0
          exposedField SFColor sphereColor 1 1 1
          exposedField SFFloat sphereRadius 1.0
  ]
  {
          Transform {
                  translation IS sphereTranslation
                  children [
                          Shape {
                                  appearance Appearance {
                                          material Material {
                                                  diffuseColor IS sphereColor
                                          }
                                  }
                                  geometry Sphere {
                                          radius IS sphereRadius
                                  }
                          }
                  ]
          }
  }