PROTO TextElement[
          exposedField SFString text ""
          exposedField SFString uri ""
          exposedField SFString email ""
          exposedField SFString webpage ""
          exposedField SFString style "PLAIN"
          exposedField SFString color "black"
   
  ]{}
  
  PROTO LineElement[
          exposedField MFNode line []
  ]{}
  
  PROTO TextLineElement[
          exposedField MFString text []
          exposedField SFVec3f translation 0 0 0
          field SFString textFont "fonts/aerial.bmp"
          field SFString style "PLAIN"
          field MFString family ["TEXTURE 0 255 16 16 0.625 0 0"] 
          field SFFloat fontSize 1
          eventIn SFString uri
          eventIn SFString email
          eventIn SFString webpage
          eventIn SFNode addURLHandler
          eventIn        SFFloat setYPos
  ]
  {
  DEF textTransform Transform {
                  translation IS        translation                
                  children [
                          Shape { 
                                  appearance DEF fontAppearance Appearance { 
                                      texture ImageTexture {} 
                                  } 
                                  geometry DEF textNode Text 
                                  { 
                                          string IS text
                                  fontStyle FontStyle { 
                                                  family IS family
                                                  style IS style
                                                  size IS        fontSize
                                          }
                                  } 
                          }
                  ]
          }
          Script {
                  directOutput TRUE
                  field SFNode textTransform USE textTransform
                  eventIn SFString uri IS uri
                  eventIn        SFString email IS email
                  eventIn        SFString webpage IS webpage
                  eventIn        SFNode addUrlHandler IS addURLHandler
                  eventIn        SFTime wordClicked
                  eventIn        SFBool wordButtonDown
                                  
                  eventOut SFString sendURI
                  eventOut SFString sendURIemail
                  eventOut SFString sendURIwebpage
                  eventOut SFString sendActiveURI
                  eventIn        SFFloat        setYPos IS setYPos
                  field SFString textFont IS textFont
                  field SFBool linked FALSE
                  field SFBool is_email FALSE
                  field SFNode fontAppearance USE fontAppearance
                  
                  url "javascript:
                  function initialize()
                  {                        
                          //var fontTexture;
                          //if(linked) fontTexture=linkFont;
                          //else fontTexture=textFont;
                          fontAppearance.texture = new SFNode('ImageTexture { url \"'+textFont+'\" } ');        // standaard font                
                  }
  
                  function setYPos(pos)
                  {                        
                          textTransform.translation.y=pos;                        
                  }
  
                  function wordClicked()
                  {
                             if (uri !=''){ 
                                  sendURI = uri;
                                  
                          }
                          
                          else if (email !=''){
                          sendURIemail = email;
                          
  
                          }
  
                          else if (webpage !=''){
                          sendURIwebpage = webpage;
  
                          }
                  }
  
                  function wordButtonDown(down)
                  {
                          if(!down) return;
                          sendActiveURI=uri; 
                  }
  
                  function addUrlHandler(value)
                  {                        
                          if(uri !=''|| email !='' || webpage !='')
                          {
                                   var sensor = Browser.createVrmlFromString('TouchSensor{}');
                                   textTransform.addChildren = sensor;
                                   Browser.addRoute(sensor[0],'touchTime',Browser.getScript(),'wordClicked');
                                   Browser.addRoute(sensor[0],'isActive',Browser.getScript(),'wordButtonDown');
                                   Browser.addRoute(Browser.getScript(),'sendURI',value,'uriClicked');
                                   Browser.addRoute(Browser.getScript(),'sendURIemail',value,'emailClicked');
                                   Browser.addRoute(Browser.getScript(),'sendURIwebpage',value,'webpageClicked');
                                   Browser.addRoute(Browser.getScript(),'sendActiveURI',value,'uriActive');
                                   linked=true;
                          }
                          
          
                  }
          
                  "
          }
  }
  
  PROTO ScrollPane [
          field SFInt32 maxCharsOnALine 55
          field SFFloat charAspect 0.5
          field SFFloat minMargin 0.03
          field SFFloat lineSpacing 1
          field SFFloat charSpacing 1
          field SFString textFont "fonts/aerial.bmp"
          field SFString blueFont "fonts/aerial_blue.bmp"
          field SFString redFont "fonts/aerial_red.bmp"
          field SFString greenFont "fonts/aerial_green.bmp"
          field SFString linkFont "fonts/aerial_link.bmp"
          field SFString boldFont "fonts/aerial_bold.bmp"
          eventIn        SFString loadURL
          eventIn        SFString setText
          eventIn SFInt32 scrollText
          eventOut SFString linkClicked
          eventOut SFString activeLink
  #        eventOut SFString emailClicked
          
  
  ]
  {
          
          DEF BoxTransform Transform {                                
                  children [
                          
                          Transform {
                                  translation        -0.015 0 0
                                  children Shape {
                                          geometry Box {
                                                  size 0.97 1 0
                                          }
                                          appearance Appearance {
                                                  material DEF backgroundColor Material {
                                                          diffuseColor 1 1 1
                                                  }
                                          }
                                  }
                          }
  
                          
                          Transform {
                                  translation        0.485 0 0
                                  children [
  
                                          Transform {
                                                  translation        0 0.485 0
                                                  children [
                                                          DEF UP TouchSensor        {}
                                                          DEF boxShape Shape {
                                                                  geometry Box {
                                                                          size .03 .03 0
                                                                  }
                                                                  appearance Appearance {
                                                                          material Material {
                                                                                  diffuseColor 0 0 0
                                                                                  emissiveColor 0 .0353 0
                                                                                  specularColor 0 0 1
                                                                                  ambientIntensity 0
                                                                                  shininess 0
                                                                          }
                                                                  }
                                                          }
                                                          Transform
                                                          {
                                                                  scale .028 .028 0.028
                                                                  children DEF arrowShape Shape
                                                                  {
                                                                          geometry Extrusion
                                                                          {
                                                                                  crossSection [-0.5 0.5, 0.5 0.5, 0 -0.5,-0.5 0.5]
                                                                                  spine [0 0 -0.03, 0 0 0.03]
                                                                          }
                                                                          appearance DEF arrowAppearance Appearance
                                                                          {
                                                                                  material Material {
                                                                                          diffuseColor .169 .31 .329
                                                                                          specularColor .04 .06 .83
                                                                                          ambientIntensity 0
                                                                                          shininess 0
                                                                                  }
  
                                                                          }
                                                                  }
                                                          }
                                                  ]
                                          }
                                          Transform {
                                                  translation        0 -0.485 0
                                                  children [
                                                          DEF DOWN TouchSensor {}
                                                          USE        boxShape
                                                          Transform
                                                          {
                                                                  rotation 0 0 1 3.14159265358979
                                                                  scale .028 .028 0.028
                                                                  children USE arrowShape
                                                          }
                                                  ]
                                          }
                                          
                                          Group
                                          {
                                                  children
                                                  [
                                                          DEF        scrollbarSensor TouchSensor        {}
                                                          DEF        scrollSensor PlaneSensor
                                                          {
                                                                  maxPosition        0  0.455
                                                                  minPosition        0 -0.455
                                                                  offset 0 0.455 0
                                                          }
                                                          Shape {
                                                                  geometry Box {
                                                                          size .03 0.94 0
                                                                  }
                                                                  appearance Appearance {
                                                                          material Material {
                                                                                  diffuseColor 0 0 0
                                                                                  specularColor .04 .06 .83
                                                                                  ambientIntensity .039
                                                                                  shininess 0
                                                                          }
                                                                  }
                                                          }
  
                                                          DEF scrollTransform Transform {
                  
                                                                  translation        0 0.455 0                                                
                                                                  children [
                                                                          DEF scrollSwitch Switch
                                                                          {
                                                                                  whichChoice        0
                                                                                  choice Shape
                                                                                  {
                                                                                          geometry Sphere        {
                                                                                                  radius 0.015
                                                                                          }
                                                                                          appearance USE arrowAppearance
                                                                                  }
                                                                          }
                                                                  ]
                                                                  ROUTE scrollSensor.translation_changed TO scrollTransform.translation                                                
                                                          }                                                         
                                                  ]
  
                                          }
                            
                                  ]
                          }
  
                          
  
                  ]
          }                                                                        
                  
          DEF        group Transform{}
  
          DEF TIMER TimeSensor {loop TRUE enabled FALSE cycleInterval 0.15}
          
  
          DEF S1 Script {
                  directOutput TRUE
                  field SFNode world USE BoxTransform
                  field SFNode scrollTransform USE scrollTransform
                  field SFNode scrollSensor USE scrollSensor
                  field SFNode scrollbarSensor USE scrollbarSensor                
                  field SFNode group USE group
                  field SFNode scrollSwitch USE scrollSwitch
                  
                  field SFString textFont IS textFont
                  field SFString linkFont IS linkFont
                  field SFString blueFont IS blueFont                
                  field SFString greenFont IS greenFont        
                  field SFString redFont IS redFont
                  field SFString boldFont IS boldFont        
                  field SFInt32 maxCharsOnALine IS maxCharsOnALine
                  field SFFloat charAspect IS        charAspect
                  field SFFloat lineSpacing IS lineSpacing
                  field SFFloat charSpacing IS charSpacing
                  field SFFloat minMargin IS minMargin
                  field SFFloat charHeight 0
                  field SFFloat charWidth 0
                  field SFFloat marginX 0
                  field SFFloat marginY 0
                  
                  field SFInt32 pageLength 0
                  field SFInt32 lastPosition 0
                  field SFFloat maxScrollY 0.455
                  field SFFloat scrollBarWidth 0.03                
  
                  eventIn SFString loadURL IS        loadURL
                  eventIn SFString setText IS        setText
                  
                  eventOut SFString linkClicked IS linkClicked
                  eventOut SFString activeLink IS        activeLink
  #                eventOut SFString emailClicked IS emailClicked
                  field MFNode inputText []
                  eventIn        SFTime time
                  eventOut SFBool        timerEnabled
                  eventOut SFTime        timerStartTime
                  eventOut SFColor backgroundColor
                  field MFNode lines []
                  field MFNode currentLines []
                  field SFBool direction TRUE
  
                  
                  eventIn        SFString uriClicked        
                  eventIn        SFString uriActive
                  eventIn        SFString emailClicked
                  eventIn        SFString webpageClicked
                  eventIn        SFBool up
                  eventIn        SFBool down
                  eventIn        SFVec3f        scrollChanged
                  eventIn SFBool scrollbarClicked
                  eventIn        SFInt32 scrollText IS scrollText
  
                  field SFInt32 position 0
                  url "javascript:
                   function initialize()
                   {
                           // maxCharsOnALine*charWidth+ <-- room needed for letters
                           // (maxCharsOnALine-1)*(charSpacing-1)*charWidth <-- room needed for spacing
                           // =1-(2*minMargin)-scrollBarWidth <-- total room available                         
                           charWidth=(1-(2*minMargin)-scrollBarWidth)/(maxCharsOnALine+(maxCharsOnALine-1)*(charSpacing-1));
                           charHeight=charWidth/charAspect;
                           
                           //pageLength*charHeight+(pageLength-1)*(lineSpacing-1)*charHeight<=1-(2*minMargin)
                           pageLength=(((1-(2*minMargin))/charHeight)+lineSpacing-1)/lineSpacing;
  
                           if(pageLength<1)
                           {
                                   pageLength=1;
                                   if(1-(2*minMargin)-charHeight<0)
                                   {
                                          charHeight=1-(2*minMargin);
                                          charWidth=charHeight*charAspect;
                                   }
                           }                 
  
                           marginX=((1-scrollBarWidth)-(maxCharsOnALine*charSpacing*charWidth)+((charSpacing-1)*charWidth))/2;
                           marginY=(1-(pageLength*lineSpacing*charHeight)+((lineSpacing-1)*charHeight))/2;
                           if(marginX<0) marginX=0;
                           if(marginY<0) marginY=0; 
                           if(linkFont=='fonts/aerial_link_black.bmp')backgroundColor= new SFColor(0,0,0);
                           else backgroundColor= new SFColor(1,1,1);
                   }
  
                   function loadURL(url)
                   {
                           //print('loading url' +url);
                          // Browser.loadURL('javascript:loadNewURL(\"'+url+'\");');
                   }
  
                   function setText(text)
                   {                        
                          createTextNodes(text);                        
                          setTextNodes();                        
                          position=0;
                          if(lines.length<=pageLength)
                          {
                                  scrollSwitch.whichChoice=-1;
                          } else
                          {
                                  scrollSwitch.whichChoice=0;
                                  resetScrollerTranslation();
                          }                
                   }
  
                   function setTextNodes()
                   {
                          //print(maxCharsOnALine);                
  
                          createTextLines();                        
                          group.children = new MFNode();
                          for(i=0;i< pageLength;i++)
                          {
                                  if(i>=lines.length) break;
                                  group.addChildren = lines[i].line;
                                  //position++;
                          }
  
                          lastPosition=lines.length-pageLength;
  
                   }
  
                   function createTextNodes(text)
                   {                         
                           //var text = 'bla g    [[interview het interview]] bla';
                           text=text+'\n';
                           //print (text);
                           var textElement;
                           var currentText = '';
                           var paragraphLength=0;
                           var lineLength=0;
                           inputText = new MFNode();
                           inputText[0]  =  Browser.createVrmlFromString( 'LineElement {}')[0];
                            //setText = new MFNode();
                           for(i=0;i< text.length;i++)
                           {                                 
                                  var character = text.charAt(i);
                                  //print(character);
                                  if(character=='\n')
                                  {
                                          style='';
                                          //print(paragraphLength);
                                          //print(lineLength);
                                          textElement = Browser.createVrmlFromString('TextElement {}')[0];
                                          textElement.text=currentText;
                                          textElement.style=style;
                                          inputText[paragraphLength].line[lineLength] = textElement;
                                          paragraphLength++;
                                          
                                          if(i!=text.length-1) { //start the next LineElement
                                                  lineLength=0;
                                                  currentText = '';
                                                  inputText[paragraphLength]  =  Browser.createVrmlFromString( 'LineElement {}')[0];
                                          }
                                  }
                                  else if(character=='[')
                                  {
                                          if(text.charAt(i+1) =='[')
                                          {//link
                                                  style='';
                                                  textElement = Browser.createVrmlFromString('TextElement {}')[0];
                                                  textElement.text=currentText;
                                                  inputText[paragraphLength].line[lineLength] = textElement;
                                                  //print('('+currentText +')');
                                                  currentText='';
                                                  lineLength++;
                                                  var uri='';
                                                  var uriText='';
                                                  for(j=i+2;j< text.length;j++)        // uri        - location
                                                  {
                                                          if(text.charAt(j) ==' ') break;
                                                          else uri +=text.charAt(j);
                                                  }
                                                  for(j=j+1;j< text.length;j++)           // uri text
                                                  {
                                                          if(text.charAt(j) ==']') break;
                                                          else uriText +=text.charAt(j);
                                                  }
                                                  i=j+1;
                                                  //inputText[paragraphLength].line[lineLength] = Browser.createVrmlFromString( 'TextElement {text \"' +  uriText + '\" uri \"' + uri + '\" style \"' + style + '\"}')[0];
                                                  textElement = Browser.createVrmlFromString('TextElement {}')[0];
                                                  textElement.text=uriText;
                                              textElement.uri=uri;
                                                  //print('textElement.uri=uri'+ textElement.uri);
                                              textElement.style=style;
                                                  inputText[paragraphLength].line[lineLength]=textElement;
                                                  lineLength++;
                                          }
                                          else currentText+=character;
                                  }
  
                                  else if(character=='$\text{'})\; \{\; if(text.charAt(i+1)\; ==\text{'}$')
                                          {//email
                                                  style='';
                                                  textElement = Browser.createVrmlFromString('TextElement {}')[0];
                                                  textElement.text=currentText;
                                                  inputText[paragraphLength].line[lineLength] = textElement;
                                                  //print('('+currentText +')');
                                                  currentText='';
                                                  lineLength++;
                                                  var uri='';
                                                  var uriText='';
                                                  for(j=i+2;j< text.length;j++)
                                                  {
                                                          if(text.charAt(j) ==' ') break;
                                                          else uri +=text.charAt(j);
                                                  }
                                                  for(j=j+1;j< text.length;j++)
                                                  {
                                                          if(text.charAt(j) =='$\text{'})\; break;\; else\; uriText\; +=text.charAt(j);\; \}\; i=j+1;$//inputText[paragraphLength].line[lineLength] = Browser.createVrmlFromString( 'TextElement {text \"' +  uriText + '\" uri \"' + uri + '\" style \"' + style + '\"}')[0];
                                                  textElement = Browser.createVrmlFromString('TextElement {}')[0];
                                                  textElement.text=uriText;
                                              textElement.email=uri;
                                                  //print('textElement.email=uri'+ textElement.email);
                                              textElement.style=style;
                                                  inputText[paragraphLength].line[lineLength]=textElement;
                                                  lineLength++;
                                          }
                                          else currentText+=character;
                                  }
  
                                  else if(character=='#')
                                  {
                                          if(text.charAt(i+1) =='#')
                                          {//extern URL
                                                  style='';
                                                  textElement = Browser.createVrmlFromString('TextElement {}')[0];
                                                  textElement.text=currentText;
                                                  inputText[paragraphLength].line[lineLength] = textElement;
                                                  //print('('+currentText +')');
                                                  currentText='';
                                                  lineLength++;
                                                  var uri='';
                                                  var uriText='';
                                                  for(j=i+2;j< text.length;j++)
                                                  {
                                                          if(text.charAt(j) ==' ') break;
                                                          else uri +=text.charAt(j);
                                                  }
                                                  for(j=j+1;j< text.length;j++)
                                                  {
                                                          if(text.charAt(j) =='#') break;
                                                          else uriText +=text.charAt(j);
                                                  }
                                                  i=j+1;
                                                  //inputText[paragraphLength].line[lineLength] = Browser.createVrmlFromString( 'TextElement {text \"' +  uriText + '\" uri \"' + uri + '\" style \"' + style + '\"}')[0];
                                                  textElement = Browser.createVrmlFromString('TextElement {}')[0];
                                                  textElement.text=uriText;
                                              textElement.webpage=uri;
                                                  //print('textElement.webpage=uri'+ textElement.webpage);
                                              textElement.style=style;
                                                  inputText[paragraphLength].line[lineLength]=textElement;
                                                  lineLength++;
                                          }
                                          else currentText+=character;
                                  }
  
                                  else if(character=='%')
                                  {
                                          var color =  containsColor(text,i+1);
                                          if(color!='')
                                          {//color
                                                  colorSize= color.length+3;
                                                  style='';
                                                  textElement = Browser.createVrmlFromString('TextElement {}')[0];
                                                  textElement.text=currentText;
                                                  inputText[paragraphLength].line[lineLength] = textElement;
                                                  //print('('+currentText +')');
                                                  currentText='';
                                                  lineLength++;
                                                  var colorText='';
                                                  for(j=i+colorSize;j< text.length;j++)
                                                  {
                                                          if(text.charAt(j) == '\n') break;
                                                          if (text.charAt(j) =='%' && text.charAt(j+1) =='%')
                                                          {
                                                                  j++;
                                                                  break;
                                                          }
                                                          else colorText +=text.charAt(j);
                                                  }
                                                  i=j+1;
                                                  //inputText[paragraphLength].line[lineLength] = Browser.createVrmlFromString( 'TextElement {text \"' +  uriText + '\" uri \"' + uri + '\" style \"' + style + '\"}')[0];
                                                  textElement = Browser.createVrmlFromString('TextElement {}')[0];
                                                  textElement.text=colorText;
                                              textElement.color=color;
                                              textElement.style=style;
                                                  inputText[paragraphLength].line[lineLength]=textElement;
                                                  lineLength++;
                                                  
                                          }
                                          else currentText+=character;
                                  }
                                     else  currentText+=character;
  
                           }
  
                                  
                                                                    
                   }
  
                   function containsColor(text,pointer)
                   {
                           if (containsColor2(text,'red%',pointer)) return 'red';
                           else if (containsColor2(text,'blue%',pointer)) return 'blue';
                           else if (containsColor2(text,'green%',pointer)) return 'green';
                           else if (containsColor2(text,'bold%',pointer)) return 'bold';
                           return '';
  
                   }
  
                   function containsColor2(text,color,pointer)
                   {
                          for(j=0;j< text.length;j++)
                          {
                                  if(j>=color.length)return true;
                                  if(text.charAt(j+pointer) != color.charAt(j)) return false;
                          }
                          return false;
                   }
  
          
                   function createTextLines()
                   {
                           //print('create lines');                         
                           lines = new MFNode();
                           var yPos=0;                         
                           for(i =0;i< inputText.length;i++)
                           {
                                   
                                   yPos = createWords(inputText[i].line,yPos);
                                   yPos++;
                                  //print(lines[i]);
                           }
                   }
  
                   function createWords(paragraph,yPos)
                   {                                                  
                           //mfnode can only contain sfnodes so create one
                           var line = Browser.createVrmlFromString( 'LineElement {}')[0];
                           if(paragraph.length==0)
                           {
                                   lines[yPos] = line;
                           }
                           else
                           {
                                   var currentLineLength=0;
                                   for(i =0;i< paragraph.length;i++)
                                   {
                                           var current = paragraph[i];
                                           var text = current.text;
                                          //print(current.text); 
                                                      
                                           while(text.length > maxCharsOnALine-currentLineLength)
                                           {
                                                   for(j=maxCharsOnALine-currentLineLength;j>=0;j--)
                                                   {
                                                           if(text.charAt(j)==' ') break;
                                                   }
                                                   if(j<0 && currentLineLength==0)
                                                   {
                                                          j=maxCharsOnALine-currentLineLength;
                                                      currentLineLength=createTextLineElement(line.line,i,text.substring(0,j-1)+ '-' ,current,yPos,currentLineLength);
                                                          text = text.substring(j-1,text.length);
                                                   }
                                                   else
                                                   {
                                                          currentLineLength=createTextLineElement(line.line,i,text.substring(0,j),current,yPos,currentLineLength);
                                                          text = text.substring(j+1,text.length);
                                                   }                                                 
                                                   lines[yPos] = line;
                                                   yPos++;
                                                   currentLineLength=0;
                                                   line = Browser.createVrmlFromString( 'LineElement {}')[0];
                                           }
                                           
                                           currentLineLength=createTextLineElement(line.line,i,text,current,yPos,currentLineLength);
                                           //print(currentLineLength);
                                           lines[yPos] = line;
                                           //yPos++;
                                   
                                   }
                           }
                           //new SFNode('vrmlstring');
                           //print(texts[0]);
                           return yPos;
                   }
  
                   function createTextLineElement(texts,i,text,current,yPos,currentLineLength)
                   {
                          var vrmlString='TextLineElement {';
                          var font = textFont;
                          if(current.uri!='') font = linkFont;
                          else if(current.email!='') font = linkFont;
                          else if(current.webpage!='') font = linkFont;
                          else if(current.color == 'blue') font = blueFont;
                          else if(current.color == 'green') font = greenFont;
                          else if(current.color == 'red') font = redFont;
                          else if(current.color == 'bold') font = boldFont;
                          
                          vrmlString=vrmlString+' textFont \"' + font + '\"';;
                          vrmlString=vrmlString+' fontSize ' + charHeight;
                          vrmlString=vrmlString+' style \"' + current.style + '\"';
                          vrmlString=vrmlString+' family [\"TEXTURE 0 255 16 16 '+charAspect+' '+(charSpacing-1)+' 0\"] ';
                          vrmlString=vrmlString+'}';
                          texts[i] = Browser.createVrmlFromString(vrmlString)[0];
                          texts[i].text=new MFString(text);
                          texts[i].translation = new SFVec3f(-0.5+marginX+currentLineLength*charSpacing*charWidth, 0, 0.05);//changed by olaf & changed back by Tim
                          texts[i].setYPos = 0.5-charHeight-marginY-yPos*lineSpacing*charHeight;
  
                          if(current.uri!='')
                          {                                
                                  texts[i].uri=current.uri;                                                
                                  texts[i].addURLHandler = Browser.getScript();
                          }
                                  
                          
                          if(current.email!='')
                          {                                
                                  texts[i].email=current.email;                                                
                                  texts[i].addURLHandler = Browser.getScript();
                          }
  
                          
                          if(current.webpage!='')
                          {                                
                                  texts[i].webpage=current.webpage;                                                
                                  texts[i].addURLHandler = Browser.getScript();
                          }
  
                          currentLineLength += text.length;
                          return currentLineLength;
                          
                     
                          
                  }
                   
                   
                   function uriClicked(value)
                   {                        
                          linkClicked = value;
                                  
                   }
  
                   function uriActive(value)
                   {
                           activeLink=value;
                   }
  
                   
                   function emailClicked(value)
                   {
  
                   Browser.loadURL('javascript:sendEmail(\"'+value+'\");');
  
                   }
  
                   function webpageClicked(value)
                   {
                    
                   Browser.loadURL('javascript:goToWebpage(\"'+value+'\");');
  
                   }
  
                   function time()
                   {
                           if(direction) scrollUp();
                           else scrollDown();
                   }
  
                   function up(value,eventTime)
                   {                        
                          direction = true;
                          timerStartTime=eventTime;
                          timerEnabled =value;                        
                   }
  
                   function down(value,eventTime)
                   {
                          direction = false;
                          timerStartTime=eventTime;
                          timerEnabled =value;
                   }
                   
                   function scrollUp()
                   {
                          position--;
                          if(position<0) position=0;
                          else 
                          {
                                  group.addChildren = lines[position].line;
                                  group.removeChildren = lines[position+pageLength].line;                                
                                  printText();
                          }                
                          resetScrollerTranslation();        
                   }
                   
                   function scrollDown()
                   {
                           position++;
                           if(position>lastPosition) position--; 
                           else
                           {
                                   group.removeChildren = lines[position-1].line;
                                   group.addChildren = lines[position+pageLength-1].line;                                 
                                   printText();
                           }                        
                           resetScrollerTranslation();
                   }
  
                   function scrollbarClicked(buttonDown)
                   {                         
                           if(!buttonDown) return;
                           var newY=scrollbarSensor.hitPoint.y;
                           if(newY<-maxScrollY) newY=-maxScrollY;
                           if(newY> maxScrollY) newY= maxScrollY;
                           scrollTransform.translation=new SFVec3f(0,newY,0);
                           scrollSensor.offset=new SFVec3f(0,newY,0);
                   }
  
                   function scrollChanged(scrollTranslation)
                   {
                           var scrollFactor=1-(scrollTranslation.y+maxScrollY)/(2*maxScrollY);                         
                           var scrollLine=Math.round(scrollFactor*(lastPosition+1)-0.5);
                           scrollToPosition(scrollLine);                 
                   }
  
                   function scrollToPosition(pos)
                   {
                           if(pos>lastPosition) pos=lastPosition;
                           if(pos<0) pos=0;
                           if(pos==position) return;
                           else
                           {
                                   position=pos;
                                   group.children=new MFNode();
                                   for(var i=pos;i< pos+pageLength;i++)
                                           group.addChildren=lines[i].line;                                 
                                   printText();
                           }
                   }
  
                   function scrollText(value)
                   {                         
                           scrollToPosition(position+value);
                           resetScrollerTranslation();
                   }
  
                   function resetScrollerTranslation()
                   {
                           var newY=(position+0.5)/(lastPosition+1);
                           newY += (position-lastPosition/2)/(lastPosition/2)/(2*lastPosition);
                           newY = (1-newY)*(2*maxScrollY)-maxScrollY;
                           if(newY>maxScrollY) newY=maxScrollY;
                           scrollTransform.translation=new SFVec3f(0,newY,0);
                           scrollSensor.offset=new SFVec3f(0,newY,0);
                   }
  
                   function printText()
                   {
                          currentLines = new MFNode();
                           for(i =0;i< pageLength;i++)
                          {
                                  if(i>=lines.length) break;
                                  currentLines[i] = lines[i+position];
                                  reposLines(currentLines[i].line,i);
                          }                                                                                                                                                                        
                          //textTransform = new SFVec3f(0,position*10 ,.1);
                  }
                          //text.string = currentTexts;
             
                  function reposLines(line,pos)
                  {
                           for(i=0;i< line.length;i++)
                           {
                                   line[i].setYPos = 0.5-charHeight-marginY-pos*lineSpacing*charHeight;
                           }
                  }"
  
          }
  
          ROUTE UP.isActive TO  S1.up
          ROUTE DOWN.isActive TO  S1.down
          ROUTE scrollbarSensor.isActive TO S1.scrollbarClicked
          ROUTE TIMER.cycleTime TO        S1.time
          ROUTE S1.timerStartTime        TO TIMER.startTime
          ROUTE S1.timerEnabled TO TIMER.enabled
          ROUTE scrollSensor.translation_changed TO S1.scrollChanged
          ROUTE        S1.backgroundColor TO backgroundColor.diffuseColor
          ROUTE        S1.backgroundColor TO backgroundColor.emissiveColor
  
          
          
          
  }
  
  DEF scrollPane ScrollPane {
  #        textFont "lucida.bmp"
  #        linkFont "aerial_link_black.bmp"
          charAspect 0.59375
  }
  
  Viewpoint
  {
          position 0 0 1.2071076
  }
  
  NavigationInfo {
          type "WALK"        
  }
  
  DEF script Script
  {
          field SFNode scrollPane USE        scrollPane
          eventIn        SFString linkClicked
          directOutput TRUE
          url        "javascript:
          function initialize()
          {
                  scrollPane.setText='test test';
          //                scrollPane.setText='[[Test bla bla]] sdfsdfkjhsd lkjhjsdlkfjsdf \%blue% kjhkj';
  
          }
          
          function linkClicked(link)
          {
                  print('link clicked: '+link); // doet het niet
                  scrollPane.loadURL=link;   // doet niets
                   
          }"
  }
  
  ROUTE scrollPane.linkClicked TO script.linkClicked