PROTO TimeProto [
	exposedField	SFTime		myTime				10
]
{
	DEF PROTO_INSTANCE TimeSensor {
		startTime IS myTime
		stopTime -1
	}
}

DEF MY_SCENE Group {
    children [
		DEF TIME1 TimeSensor {
			startTime 2
			loop TRUE
		}
		DEF SHAPE1 Shape {
			appearance {
				material MaterialKey {
					keyColor 0.1 0.22 0.33
				}
			}
			geometry DEF MY_CIRCLE Circle {
				radius 100.0
			}
		}
		Particles {
			init ParticleInitBox {
				falloff 1.2
			}
		}
	]
}

ROUTE TIME1.cycleTime TO MY_CIRCLE.radius

AT 3000 REPLACE TIME1.startTime BY 3
AT 3500 APPEND TO MY_SCENE.children TimeProto
AT 4000 APPEND TO MY_SCENE.children TimeProto {myTime 3} 
