'

'	This example demonstrates how to use defaults to reset a parameter

'

NewScene , false

dim oRoot, oPropSet, oProp, oProp2

set oRoot = Application.ActiveProject.ActiveScene.Root

set oPropSet = oRoot.AddProperty( "Custom_parameter_list", , "DemoOfDefault" )				

set oProp = oPropSet.AddParameter( "Var1", siDouble,,siPersistable, , , , _	

					1000.0, 0.0, 2000.0 )

' Change the default value 

oProp.Value = 99.0

set oProp2 = oPropSet.AddParameter( "Var2", siBool, , siPersistable, , , , true )

oProp2.Value = false

' Show the values before we reset them

Application.LogMessage oProp.Value & " " & oProp2.Value

' Reset all properties in the pset

ResetPropertySet oPropSet

' Show that the values have been reset

Application.LogMessage oProp.Value & " " & oProp2.Value

' This function will return all numeric parameters in

' a property set back to their default values.

sub ResetPropertySet( in_PSet )

	dim oP

	for each oP in oPropSet.Parameters

		if ( oP.ValueType = siInt4 OR _

		oP.ValueType = siDouble OR _

		oP.ValueType = siUByte OR _

		oP.ValueType = siFloat OR _

		oP.ValueType = siBool ) then

			' Assign the default value back

			oP.Value = oP.Default

		end if

	next

end sub

'Expected results:

'INFO : "99 False"

'INFO : "1000 True"