NavigationInfo{ type "EXAMINE" }
  Viewpoint{ description "start" position 0 0 10}
  Background{ skyColor .5 .5 1}
  
  DEF ROOT Transform{ translation 0 -1 0 scale 1.5 1.5 1.5
   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] =
  'DEF s0 Shape{ appearance Appearance{ material Material{ diffuseColor 0 1 0}} '+
  'geometry Sphere{}}';
    for ( i= 1; i<MaxIt; i++)  strArr[i] = 
  'DEF s'+i+' Transform{ children[ '+
  strArr[i-1] +
  ']} Transform{ translation 0 1.5 0 scale .5 .5 .5 children USE s'+i+'} USE s0 '+
  'DEF g'+i+' Transform{ rotation 1 0 0 1 translation 0 .72 1.12 '+
  'scale .33 .33 .33 children USE s'+i+'} '+
  'Transform{ rotation 0 1 0 2.09 children USE g'+i+'} '+
  'Transform{ rotation 0 1 0 -2.09 children USE g'+i+'}';
    iter = 3;
    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 [ 0 1 0 0, 0 1 0 3.14, 0 1 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 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 1 0 0}}

    geometry Box{ size .4 .4 .2 }}

   DEF tsPlus TouchSensor{} ]}

  Transform{ translation -4 0 0 children[

   Shape{ appearance 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