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 true
				  pixelWidth 300
				  pixelHeight 300
				}
      }
    }
  ]
}

Group { 
 children [
	Background2D { backColor 1 1 1}
  WorldInfo {
   title "Cone test"
   info ["This shows cones with and without cap" "with transparency - objects should appear behing each-other" "" "GPAC Regression Tests" "(C) 2002-2004 GPAC Team"]
  }

  Transform {
  	translation -70 0 0
  	rotation 1 0 0 4
  	children [
     Shape {
     	appearance Appearance {
				material DEF MAT Material { diffuseColor 1.0 0.0 0.0 transparency 0.5}
     	}
      geometry Cone {height 150 bottomRadius 25}
     }
    ]
  }
  Transform {
  	translation 70 0 0
  	rotation 1 0 0 4
  	children [
     Shape {
     	appearance Appearance {
#				material USE MAT
				material Material { diffuseColor 1.0 0.0 1.0}
     	}
      geometry Cone {height 150 bottomRadius 25 bottom FALSE}
     }
    ]
  }
  DEF TS TimeSensor {loop TRUE cycleInterval 6}
  DEF SI ScalarInterpolator {
	  key [0 0.5 1]
	  keyValue [0 1 0]
	}
 ]
}

ROUTE TS.fraction_changed TO SI.set_fraction
ROUTE SI.value_changed TO MAT.transparency