'
'       This example illustrates how to use the Offload method on an ActionSource
'
NewScene , false
set oRoot = Application.ActiveProject.ActiveScene.Root
' These commands were cut-and-pasted from scripting history and modified to work in a 
' script. They create a simple actionsource from animation on the null's position
set oNull = oRoot.AddNull
strPosParams = oNull & ".kine.local.posx," & oNull & ".kine.local.posy," & oNull & ".kine.local.posz"
Translate oNull, -8.153, 7.015, -0.702, siRelative, siView, siObj, siXYZ
SaveKey strPosParams, 1.000
Translate oNull, 8.350, -8.935, 0.894, siRelative, siView, siObj, siXYZ
SaveKey strPosParams, 50.000
Translate oNull, 9.413, 8.935, -0.894, siRelative, siView, siObj, siXYZ
SaveKey strPosParams, 100.000
' Create a new model so that we can have another null called "null"
set oModel = oRoot.AddModel(,"Model")
' Create a new ActionSource
set oActionSource = oModel.AddActionSource("MyActionSource")
' Use the fcurves on the null object to create the actionsource items
set oPosx = oNull.Posx
set oPosy = oNull.Posy
set oPosz = oNull.Posz
oActionSource.AddSourceItem oPosx.FullName, oPosx.Source 
oActionSource.AddSourceItem oPosy.FullName, oPosy.Source 
oActionSource.AddSourceItem oPosz.FullName, oPosz.Source 
' Create a new null
set oNull2 = oModel.AddNull( "null" )
' Set the action storage to external (text)
SetValue oActionSource & ".storage", 2
' Add a clip for the source
AddClip "Model", "Sources.Animation.Model.MyActionSource", , , 16, , , , false
' Offload the sources
oActionSource.Offload