Transform {
    translation  3 1 1
    children [
      DEF ClickSphere TouchSensor {}
      Shape {
        appearance Appearance {
          material Material {
            diffuseColor   .8 0 1
          }
        }
        geometry Sphere {}
      }
    ]
  }