rollout slide "3dcounter"
(
	slider sld1 "speed" pos:[12,21] width:174 height:44 range:[160,1,80]
	button unreg "stop" pos:[20,80] width:52 height:23
	on unreg pressed do 

(

unregisterTimeCallback time_p

)

button crea "create" pos:[80,80] width:52 height:23
	on crea pressed do 

(
addModifier ( text text:"let`s count" )(extrude amount:30)
fn time_p = $Text*.text = (currentTime as integer/sld1.value) as string
registerTimeCallback time_p

)
	button playreg "play" pos:[140,80] width:52 height:23
	on playreg pressed do 

(

registerTimeCallback time_p

)

)createDialog slide 202 120