DEF DISC_INTERFACE Script {
              eventIn  SFVec3f set_translation
              field    MFFloat temp [0 0]
              eventOut MFFloat set_emotion
              url "vrmlscript:
                  function set_translation(value,time) {
                      x = value[0];
                      y = value[1];
                      clickRadius = Math.sqrt(x*x+y*y);
                      if(clickRadius >= 1) clickRadius = 0.999;
                      clickAngle  = Math.atan(x/y);
                      if(y>0)      clickAngle += Math.PI;
                      else if(x>0) clickAngle += 2*Math.PI;
  // Turn the wheel a bit...
                      clickAngle += 5 *(Math.PI/6);
                      if(clickAngle>(2*Math.PI)) clickAngle -= (2*Math.PI);
  //                  Browser.print('Angle '+clickAngle+ ' Radius '+clickRadius); 
                      temp[0] = clickAngle;
                      temp[1] = clickRadius;
                      set_emotion = temp;
                  }
              "
          }