Transform {
  translation IS location
  scale IS scale
  rotation IS rotation
  children [
  DEF RED Appearance {
           material Material {
                emissiveColor 1 0 0      
                diffuseColor 1 0 0      
                transparency 0.7
                }
          }
  DEF WHITE Appearance {
           material Material {
                emissiveColor 1 1 1      
                diffuseColor 1 1 1
                transparency 0.6
                }
          }
  DEF YELLOW Appearance {
           material Material {
                emissiveColor 1 1 0      
                diffuseColor 1 1 0
                transparency 0.6
                }
          }
  DEF BLUE Appearance {
           material Material {
                emissiveColor 0 0 1
                diffuseColor 0 0 1
                transparency 0.7
                }
          }
  Switch {
      whichChoice -1
      choice [
  
          DEF C_SHAPE Shape {
              appearance DEF APPEARANCE Appearance {
                  material Material {
                      emissiveColor 0 0 0      
                      diffuseColor  0.5 0.5 0.5
                      specularColor 0.3 0.3 0.3
                      transparency 0.7
                  }
              } 
              geometry Sphere { radius 0.5 }
              }
          DEF ARROW_SHAPE Shape {
              appearance DEF APPEARANCE Appearance {
                  material Material {
                      emissiveColor 0 0 0      
                      diffuseColor  0.5 0.5 0.5
                      specularColor 0.3 0.3 0.3
                      transparency IS transparency
                  }
              } 
              geometry Extrusion {
                  convex FALSE
                  crossSection [ -1.0  0.0,
                                 -0.0  0.5,
                                 -0.0  0.2,
                                  1.0  0.2,
                                  1.0 -0.2,
                                 -0.0 -0.2,
                                 -0.0 -0.5,
                                 -1.0  0.0 ]
                  spine [ 0 0.0 0,
                          0 0.2 0 ]
              }
          }
          DEF SPHERE_SHAPE Shape {
              appearance USE APPEARANCE
              geometry Sphere { radius 0.5 }
          }
          DEF BOX_SHAPE Shape {
              appearance USE APPEARANCE
              geometry Box {}
          }
  
  
          DEF BAR_SHAPE Shape {
              appearance USE APPEARANCE
              geometry Box { size 0.07 0.04 0.04 }
          }
          DEF WHITEBAR Shape {
              appearance USE WHITE
              geometry Box { size 0.07 0.04 0.04 }
          }
          DEF REDBAR Shape {
              appearance USE RED
              geometry Box { size 0.07 0.04 0.04 }
          }
          DEF BLUEBAR Shape {
              appearance USE BLUE
              geometry Box { size 0.07 0.04 0.04 }
          }
          DEF YELLOWBAR Shape {
              appearance USE YELLOW
              geometry Box { size 0.07 0.04 0.04 }
          }
  
      ]
  }