proto flagpost


  
  PROTO FlagPost [
               exposedField SFVec3f translation 0 0 0
               exposedField SFRotation rotation 0 1 0 0]
  {
  Transform { translation IS translation
                  rotation IS rotation
          children [
  
          Transform {        
          translation 0 1 0
          children [
          Shape {
                  appearance Appearance {material Material {diffuseColor 0.9 0.9 0.2
                                                                          emissiveColor .9 .9 .2}}
                   geometry Cylinder {height 2 radius .1}
                  } ] }# end of pole
  
          Transform {        
          translation 0.25 1.75 0
          children [
          Shape {
                  appearance Appearance {material Material {diffuseColor 1 0 0
                                                                          emissiveColor 1 0 0}}
                   geometry Box {size .5  .5  .05}
                  } ] }# end of flag
  ]}} # end of proto flagpost