monitor

  
  PROTO monitor [ ## "vr-extern-monitor.wrl" 
  eventIn MFString message 
  exposedField MFString string []
  
  exposedField SFVec3f scale 1 1 1
  exposedField SFVec3f translation 0 0 0
  exposedField SFRotation rotation 0 0 1 0
  exposedField SFColor text 1 1 1
  eventOut MFString message_changed
  ]{
  Transform {
  scale IS scale
  translation IS translation
  rotation IS rotation
  children [
  Transform {
  translation 0 0 0.1 
  children [
     Shape {
        appearance Appearance {
          material Material { diffuseColor IS text }
          }
        geometry Group { 
        children [ DEF panel Text { string IS string } ]
        }
        }
        ] } ##local transform
  
    Script {
    directOutput TRUE
    eventIn MFString message IS message
    eventOut MFString message_changed IS message_changed
    field SFNode panel USE panel
    url "vrmlscript: 
    function message(value,time) {
         panel.string = value;
         message_changed = value;
         }
    "
    }## end script
  
  ] }  ## end monitor
  }  ## end monitor proto