PROTO CaseR [ ] {
          TrafficLight {
                  RLight 1.0 0.0 0.0
          }
  }
  
  PROTO CaseA [ ] {
          TrafficLight {
                  ALight 1.0 0.9 0.0
          }
  }
  
  PROTO CaseG [ ] {
          TrafficLight {
                  GLight 0.0 1.0 0.0
          }
  }