InitialObjectDescriptor {
  objectDescriptorID 1
  ODProfileLevelIndication 0xFF
  sceneProfileLevelIndication 0xFE
  audioProfileLevelIndication 0xFF
  visualProfileLevelIndication 0xFF
  graphicsProfileLevelIndication 0xFE

  esdescr [
    ES_Descriptor {
      es_id 1
      decConfigDescr DecoderConfigDescriptor {
				streamType 3
				decSpecificInfo BIFSConfig {
				  isCommandStream true
				  pixelMetric false
				  pixelWidth 400
				  pixelHeight 400
				}
      }
    }
  ]
}

Group {
children [
	NavigationInfo {type ["ANY" "EXAMINE"] headlight FALSE}

  WorldInfo {
   title "SpotLight test"
   info ["This shows a spot light" "" "GPAC Regression Tests" "(C) 2002-2004 GPAC Team"]
  }
	DEF SL SpotLight {
		location 0.0 0.0 2.0
		color 0 0 1 	
		direction 0 0 -1
	}
	DEF BB Group {
		children [
			DEF B Shape {
				appearance Appearance { material Material {}} 
				geometry Box { size 1 1 1}
		  }
 	  	Transform {
  	    translation 2 0 0
  	    children [ USE B]
  	  }
  	  Transform {
 	    	translation -2 0 0
 	    	children [ USE B]
 	   	}
 	  ]
 	}
 	Transform {
 		translation 0 2 0
 		children [ USE BB]
 	}
 	Transform {
 		translation 0 -2 0
 		children [ USE BB]
 	}

  DEF TS TimeSensor { loop TRUE cycleInterval 2}
  DEF CI PositionInterpolator {
  	key [0 0.5 1]
  	keyValue [-2 0 -1 2 0 -1 -2 0 -1]
  }
 ]
}

ROUTE TS.fraction_changed TO CI.set_fraction
ROUTE CI.value_changed TO SL.direction