From ca460f22425c9d611b656da5590822aa65ad9756 Mon Sep 17 00:00:00 2001
From: utak3r <utak3r>
Date: Tue, 10 Apr 2007 19:28:25 +0000
Subject: [PATCH] Flame.Angle property

---
 2.10/Source/ScriptForm.pas | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/2.10/Source/ScriptForm.pas b/2.10/Source/ScriptForm.pas
index 2adb42d..d538f61 100644
--- a/2.10/Source/ScriptForm.pas
+++ b/2.10/Source/ScriptForm.pas
@@ -159,6 +159,8 @@ type
     procedure GetFlameBatchesProc(AMachine: TatVirtualMachine);
     procedure GetFlameFinalxformEnabledProc(AMachine: TatVirtualMachine);
     procedure SetFlameFinalxformEnabledProc(AMachine: TatVirtualMachine);
+    procedure GetFlameAngleProc(AMachine: TatVirtualMachine);
+    procedure SetFlameAngleProc(AMachine: TatVirtualMachine);
 
     { Transform interface }
     procedure GetTransformAProc(AMachine: TatVirtualMachine);
@@ -2498,6 +2500,18 @@ begin
     cp.nbatches := GetInputArgAsInteger(0);
 end;
 
+procedure TScriptEditor.GetFlameAngleProc(AMachine: TatVirtualMachine);
+begin
+  with AMachine do
+    ReturnOutPutArg(cp.FAngle);
+end;
+
+procedure TScriptEditor.SetFlameAngleProc(AMachine: TatVirtualMachine);
+begin
+  with AMachine do
+    cp.FAngle := GetInputArgAsFloat(0);
+end;
+
 
 { *************************** Transform interface **************************** }
 
@@ -3090,6 +3104,7 @@ begin
     DefineProp('Hue', tkFloat, GetFlameHueProc, SetFlameHueProc);
     DefineProp('Batches', tkInteger, GetFlameBatchesProc, SetFlameBatchesProc);
     DefineProp('FinalXformEnabled', tkInteger, GetFlameFinalxformEnabledProc, SetFlameFinalxformEnabledProc);
+    DefineProp('Angle', tkFloat, GetFlameAngleProc, SetFlameAngleProc);
   end;
   Scripter.AddObject('Flame', Flame);