endInstant

startInstant
SetListener:ToolManager
SetTool:tCLathe
SetListener:Scene
Select:None
endInstant

SetListener:Scene
Select:None
SetListener:?ScratchCurve
Drawing:Prepare
START:SetFreeDir
0.,0.,0.
END:SetFreeDir
START:AddPoint
0.0,1.0,0.0
-1.0,0.0,0.0
0.0,-1.0,0.0
END:AddPoint
SetListener:?ScratchCurve
Drawing:CleanUp
startInstant
SetListener:Misc
Create:Lathe
endInstant

startInstant
SetListener:UndoManager
SaveSelection:Add Curve
endInstant

SetListener:?ScratchCurve
Drawing:Prepare
START:SetFreeDir
0.,0.,0.
END:SetFreeDir
START:AddPoint
0.0,1.0,0.0
-0.866,0.0,0.5
0.0,-1.0,0.0
END:AddPoint
SetListener:?ScratchCurve
Drawing:CleanUp
startInstant
SetListener:?SelectedObject
Curve:New
endInstant

startInstant
SetListener:UndoManager
SaveSelection:Add Curve
endInstant

SetListener:?ScratchCurve
Drawing:Prepare
START:SetFreeDir
0.,0.,0.
END:SetFreeDir
START:AddPoint
0.0,1.0,0.0
-0.5,0.0,0.866
0.0,-1.0,0.0
END:AddPoint
SetListener:?ScratchCurve
Drawing:CleanUp
startInstant
SetListener:?SelectedObject
Curve:New
endInstant


startInstant
SetListener:UndoManager
SaveSelection:Add Curve
endInstant












SetListener:?ScratchCurve
Drawing:Prepare
START:SetFreeDir
0.,0.,0.
END:SetFreeDir
START:AddPoint
0.0,1.0,0.0
0.0,0.0,1.0
0.0,-1.0,0.0
END:AddPoint
SetListener:?ScratchCurve
Drawing:CleanUp
startInstant
SetListener:?SelectedObject
Curve:New
endInstant


startInstant
SetListener:UndoManager
SaveSelection:Add Curve
endInstant
SetListener:?ScratchCurve
Drawing:Prepare
START:SetFreeDir
0.,0.,0.
END:SetFreeDir
START:AddPoint
0.0,1.0,0.0
0.5,0.0,0.866
0.0,-1.0,0.0
END:AddPoint
SetListener:?ScratchCurve
Drawing:CleanUp
startInstant
SetListener:?SelectedObject
Curve:New
endInstant


startInstant
SetListener:UndoManager
SaveSelection:Add Curve
endInstant

startInstant
SetListener:UndoManager
SaveSelection:Add Curve
endInstant
SetListener:?ScratchCurve
Drawing:Prepare
START:SetFreeDir
0.,0.,0.
END:SetFreeDir
START:AddPoint
0.0,1.0,0.0
0.866,0.0,0.5
0.0,-1.0,0.0
END:AddPoint
SetListener:?ScratchCurve
Drawing:CleanUp
startInstant
SetListener:?SelectedObject
Curve:New
endInstant


startInstant
SetListener:UndoManager
SaveSelection:Add Curve
endInstant
























SetListener:?ScratchCurve
Drawing:Prepare
START:SetFreeDir
0.,0.,0.
END:SetFreeDir
START:AddPoint
0.0,1.0,0.0
1.0,0.0,0.0
0.0,-1.0,0.0
END:AddPoint
SetListener:?ScratchCurve
Drawing:CleanUp
startInstant
SetListener:?SelectedObject
Curve:New
endInstant

startInstant
SetListener:UndoManager
SaveSelection:Add Curve
endInstant
SetListener:?ScratchCurve
Drawing:Prepare
START:SetFreeDir
0.,0.,0.
END:SetFreeDir
START:AddPoint
0.0,1.0,0.0
0.866,0.0,-0.5
0.0,-1.0,0.0
END:AddPoint
SetListener:?ScratchCurve
Drawing:CleanUp
startInstant
SetListener:?SelectedObject
Curve:New
endInstant

startInstant
SetListener:UndoManager
SaveSelection:Add Curve
endInstant
SetListener:?ScratchCurve
Drawing:Prepare
START:SetFreeDir
0.,0.,0.
END:SetFreeDir
START:AddPoint
0.0,1.0,0.0
0.5,0.0,-0.866
0.0,-1.0,0.0
END:AddPoint
SetListener:?ScratchCurve
Drawing:CleanUp
startInstant
SetListener:?SelectedObject
Curve:New
endInstant

startInstant
SetListener:UndoManager
SaveSelection:Add Curve
endInstant
SetListener:?ScratchCurve
Drawing:Prepare
START:SetFreeDir
0.,0.,0.
END:SetFreeDir
START:AddPoint
0.0,1.0,0.0
0.0,0.0,-1.0
0.0,-1.0,0.0
END:AddPoint
SetListener:?ScratchCurve
Drawing:CleanUp
startInstant
SetListener:?SelectedObject
Curve:New
endInstant

startInstant
SetListener:UndoManager
SaveSelection:Add Curve
endInstant
SetListener:?ScratchCurve
Drawing:Prepare
START:SetFreeDir
0.,0.,0.
END:SetFreeDir
START:AddPoint
0.0,1.0,0.0
-0.5,0.0,-0.866
0.0,-1.0,0.0
END:AddPoint
SetListener:?ScratchCurve
Drawing:CleanUp
startInstant
SetListener:?SelectedObject
Curve:New
endInstant

startInstant
SetListener:UndoManager
SaveSelection:Add Curve
endInstant
SetListener:?ScratchCurve
Drawing:Prepare
START:SetFreeDir
0.,0.,0.
END:SetFreeDir
START:AddPoint
0.0,1.0,0.0
-0.866,0.0,-0.5
0.0,-1.0,0.0
END:AddPoint
SetListener:?ScratchCurve
Drawing:CleanUp
startInstant
SetListener:?SelectedObject
Curve:New
endInstant

startInstant
SetListener:Scene
Close:Object
endInstant

startInstant
SetListener:Scene
Script:Stop