vr2-5-07.wrl


[ VRML source code ]

#VRML V2.0 utf8
#vr2-5-07.wrl
Shape {
  appearance DEF Wood Appearance {
    texture ImageTexture {
      url  "parli1.jpg"
    }
  }
  geometry IndexedFaceSet {
    coord DEF CrownPoint Coordinate {       
      point [               
        1 0 0,
        0.1 0.1 0,
        0 1 0,    
        -0.1 0.1 0,       
        -1 0 0,          
        -0.1 -0.1 0,
        0 -1 0,    
        0.1 -0.1 0,       
        1 0 0          
      ]                  
    }                    
    coordIndex [ 0, 1, 2, 3, 4, 5, 6, 7, 8 ] 
    solid FALSE
  }
}
DEF Timer TimeSensor {
  cycleInterval 4.0
  loop TRUE
}
DEF Morph CoordinateInterpolator {
  key [0.0, 0.5, 1.0]
  keyValue [ 
        #
        1 0 0,
        0.1 0.1 0,
        0 1 0,    
        -0.1 0.1 0,       
        -1 0 0,          
        -0.1 -0.1 0,
        0 -1 0,    
        0.1 -0.1 0,       
        1 0 0          
        #
        1 0 0,
        1 1 0,
        0 1 0,    
        -1 1 0,       
        -1 0 0,          
        -1 -1 0,
        0 -1 0,    
        1 -1 0,       
        1 0 0          
        #
        1 0 0,
        0.1 0.1 0,
        0 1 0,    
        -0.1 0.1 0,       
        -1 0 0,          
        -0.1 -0.1 0,
        0 -1 0,    
        0.1 -0.1 0,       
        1 0 0          
  ]
}
ROUTE Timer.fraction_changed TO Morph.set_fraction
ROUTE Morph.value_changed TO CrownPoint.set_point