'This example shows how to plot a curve from an animation

NewScene , false

'Create a simple primitive and animate it.

CreatePrim "Cone", "MeshSurface"

SaveKey "cone.kine.local.posx,cone.kine.local.posy,cone.kine.local.posz", 1

SetValue "PlayControl.Key", 50

SetValue "PlayControl.Current", 50

Translate , 5, 0, 0, siAbsolute, siParent, siObj, siX

SaveKey "cone.kine.local.posx,cone.kine.local.posy,cone.kine.local.posz", 50

SetValue "PlayControl.Key", 100

SetValue "PlayControl.Current", 100

Translate , 0, 0, 5, siAbsolute, siParent, siObj, siZ

SaveKey "cone.kine.local.posx,cone.kine.local.posy,cone.kine.local.posz", 100

'Plot from frame 0 t0 100 by step of 5. Creates curve MyPlot

PlotCurve "Cone", "MyPlot", 0, 100, 5

' This example shows plotting curves on components (points) of an object.

' The curves create trails of each chosen component through space.

NewScene , False

' Create an object for our example.

set oObj = CreatePrim( "Torus", "MeshSurface" )

SetValue oObj & ".polymsh.geom.subdivu", 6

SetValue oObj & ".polymsh.geom.subdivv", 3

' Put some animation on it.

SaveKey oObj & "/kine.local.posx,kine.local.posy,kine.local.posz", 1

SaveKey oObj & "/kine.local.rotx,kine.local.roty,kine.local.rotz", 1

Translate oObj, 10, 9, 0, siRelative, siView, siObj, siXYZ

SaveKey oObj & "/kine.local.posx,kine.local.posy,kine.local.posz", 50

LastFrame

Translate oObj, 10, -9, 0, siRelative, siView, siObj, siXYZ

SaveKey oObj & "/kine.local.posx,kine.local.posy,kine.local.posz", 100

Rotate oObj, -161, -434, -18, siAbsolute, siLocal, siObj, siXYZ

SaveKey oObj & "/kine.local.rotx,kine.local.roty,kine.local.rotz", 100

' Do the actual plotting of all the points in the mesh.

' Note: "Refresh" makes sure the animation is evaluated for the start

' frame, so we don't get trails from the "current" (end frame) position

' to the start position.

FirstFrame

refresh

PlotCurve oObj & ".pnt[*]", "TorusPoints", 1, 100, 5