'
'	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"