vr2-5-04.wrl


[ VRML source code ]

#VRML V2.0 utf8
#vr2-5-04.wrl
#TV front body
Transform {
  translation 0 32.5 10
  children [
    Shape {
      appearance Appearance {
        material Material {
          diffuseColor 0.645 0.164 0.164
        }
      }
      geometry Box {
        size 100 15 40
      }
    }
  ]
}
Transform {
  translation 0 -32.5 10
  children [
    Shape {
      appearance Appearance {
        material Material {
          diffuseColor 0.645 0.164 0.164
        }
      }
      geometry Box {
        size 100 15 40
      }
    }
  ]
}
Transform {
  translation 42.5 0 10
  children [
    Shape {
      appearance Appearance {
        material Material {
          diffuseColor 0.645 0.164 0.164
        }
      }
      geometry Box {
        size 15 80 40
      }
    }
  ]
}
Transform {
  translation -42.5 0 10
  children [
    Shape {
      appearance Appearance {
        material Material {
          diffuseColor 0.645 0.164 0.164
        }
      }
      geometry Box {
        size 15 80 40
      }
    }
  ]
}
#back body
Transform {
  translation 0 0 -10
  scale 1 1 0.7
  children [
    Shape {
      appearance Appearance {
        material Material {
          diffuseColor 0.645 0.164 0.164
        }
      }
      geometry Cylinder {
        radius 50
        height 70
      }
    }
  ]
}
#Speaker
Transform {
  translation 50 0 22
  rotation 0 1 0 0.55
  children [
    Shape {
      appearance Appearance {
        material Material {
          diffuseColor 0.5 0.5 0.2 
        }
      }
      geometry Box {
        size 10 60 10
      }
    }
  ]
}
Transform {
  translation -50 0 22
  rotation 0 1 0 -0.55
  children [
    Shape {
      appearance Appearance {
        material Material {
          diffuseColor 0.5 0.5 0.2 
        }
      }
      geometry Box {
        size 10 60 10
      }
    }
  ]
}
Group {
  children [
    Group {
      children [
	DEF TIMER TimeSensor {
          cycleInterval 10.0
          loop TRUE
        }
        #Brown Cube
        Transform {
          translation 0 0 20
          scale 1 1 0.25
          children Shape {
            appearance Appearance {
              material DEF BROWN Material {
                diffuseColor 0.5 0.5 0.5 
              }
            }
            geometry Sphere {
              radius 40
            }
          }
        }
      ]
    }
    DEF COLOR ColorInterpolator {
      key [ 0, 0.5, 1]
      keyValue [ 1 1 0, 0 1 1, 1 0 1 ]
    }
  ]
}
ROUTE TIMER.fraction_changed TO COLOR.set_fraction
ROUTE COLOR.value_changed TO BROWN.set_diffuseColor