NavigationInfo{ type "EXAMINE" }
  Viewpoint{ description "start" position 0 0 10}
  Background{ skyColor .5 .5 1}
  
  DEF ROOT Transform{ scale 3 3 3 translation -3 0 0
   children[]}
  
  DEF Polyhedron Script {
    eventIn SFBool Plus
    eventIn SFBool Minus
    eventOut MFNode new_f
    field SFNode ROOT USE ROOT
    directOutput TRUE
  url ["javascript:
  function initialize(){ 
    MaxIt = 10;
    strArr = new MFString();  strArr.length = MaxIt;
    strArr[0] =
  'Shape{ appearance Appearance{ material Material{ diffuseColor 0 1 0}} '+
  'geometry IndexedFaceSet{ solid FALSE '+
  'coord Coordinate{ point[.5 0 0,1 -.3 0,2.5 0 0,1 .3 0]} '+
  'coordIndex[0 1 2 3] }} '+
  'DEF B0 Shape{ appearance Appearance{ material Material{ emissiveColor 0 1 0}} '+
  'geometry IndexedLineSet{ coord Coordinate{ point[0 0 0,.5 0 0]} '+
  'coordIndex[0 1]}}';
    for ( i= 1; i<MaxIt; i++)  strArr[i] = 
  'Transform{ translation .5 0 0 rotation 0 1 0 .1 scale .8 .8 .8 children '+
  'DEF s'+i+' Transform{ children[ '+
  strArr[i-1] +
  ']} } Transform{ translation .5 0 0 rotation 0 0 1 .75 scale .3 .3 .3 children USE s'+i+'} '+
  'Transform{ translation .5 0 0 rotation 0 0 1 -.75 scale .3 .3 .3 children USE s'+i+'} USE B0 ';
    iter = 5;
    new_f = Browser.createVrmlFromString( strArr[iter] );
    ROOT.addChildren = new_f;
  }
  
  function Plus(value){
   if (value && (iter < MaxIt-1)){
    iter++;
    ROOT.removeChildren = new_f;
    new_f = Browser.createVrmlFromString( strArr[iter] );
    ROOT.addChildren = new_f;
   }
  }
  function Minus(value){
   if (value && (iter>0)){
    ROOT.removeChildren = new_f;
    iter--;
    new_f = Browser.createVrmlFromString( strArr[iter] );
    ROOT.addChildren = new_f;
   }
  }
  "]}
  # Controls
  DEF Clock TimeSensor{ cycleInterval 15}
  DEF Animation OrientationInterpolator{ key [ 0, .5, 1 ]
   keyValue [ 1 0 0 0, 1 0 0 3.14, 1 0 0 6.28 ]}
  
  Transform{ translation -4 -1 0 rotation 1 0 0 1.57 children[
   Shape{ appearance Appearance{ material Material{ diffuseColor 1 0 0}}
    geometry Cylinder{ height .2 radius .25}}
   DEF tsRot TouchSensor{} ]}
  Transform{ translation -4 1 0 children[
   Shape{ appearance Appearance{ material { diffuseColor 1 0 0}}

    geometry Cylinder{ height .2 radius .25}}

   DEF tsRot TouchSensor{} ]}

  Transform{ translation -4 1 0 children[

   Shape{ appearance Material{ diffuseColor 1 0 0}}
    geometry Box{ size .4 .4 .2 }}
   DEF tsPlus TouchSensor{} ]}
  Transform{ translation -4 0 0 children[
   Shape{ appearance Appearance{ material Material{ diffuseColor 0 1 0}}
    geometry Box{ size .4 .4 .2 }}
   DEF tsMinus TouchSensor{} ]}
  
  ROUTE tsPlus.isActive TO Polyhedron.Plus
  ROUTE tsMinus.isActive TO Polyhedron.Minus
  ROUTE tsRot.touchTime TO Clock.startTime
  ROUTE Clock.fraction_changed TO Animation.set_fraction
  ROUTE Animation.value_changed TO ROOT.rotation