mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added getting/setting variables using their names instead of numbers.

Browse Source
This commit is contained in:
utak3r 2006-11-25 15:37:04 +00:00
parent 267c62975e
commit b93c24b7d5
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
2.10/Source/ScriptForm.pas
View File

@ -377,6 +377,8 @@ type
procedure SetVariation(AMachine: TatVirtualMachine);
procedure GetVariable(AMachine: TatVirtualMachine);
procedure SetVariable(AMachine: TatVirtualMachine);
procedure GetVariableStr(AMachine: TatVirtualMachine);
procedure SetVariableStr(AMachine: TatVirtualMachine);
procedure CalculateScale(AMachine: TatVirtualMachine);
procedure NormalizeVars(AMachine: TatVirtualMachine);
procedure CalculateBounds(AMachine: TatVirtualMachine);
@ -1169,6 +1171,8 @@ begin
Scripter.DefineMethod('SetVariation', 1, tkInteger, nil, SetVariation);
Scripter.DefineMethod('GetVariable', 1, tkFloat, nil, GetVariable);
Scripter.DefineMethod('SetVariable', 2, tkNone, nil, SetVariable);
Scripter.DefineMethod('GetVariableStr', 1, tkFloat, nil, GetVariableStr);
Scripter.DefineMethod('SetVariableStr', 2, tkNone, nil, SetVariableStr);
Scripter.DefineMethod('CalculateScale', 0, tkNone, nil, CalculateScale);
Scripter.DefineMethod('CalculateBounds', 0, tkNone, nil, CalculateBounds);
Scripter.DefineMethod('NormalizeVars', 0, tkNone, nil, NormalizeVars);
@ -1747,6 +1751,32 @@ begin
end
end;
procedure TOperationLibrary.GetVariableStr(AMachine: TatVirtualMachine);
var
variable: string;
vb: double;
begin
with AMachine do
begin
variable := GetInputArgAsString(0);
ScriptEditor.cp.xform[ActiveTransform].GetVariable(variable, vb);
ReturnOutputArg(vb);
end
end;
procedure TOperationLibrary.SetVariableStr(AMachine: TatVirtualMachine);
var
variable: string;
vb: double;
begin
with AMachine do
begin
variable := GetInputArgAsString(0);
vb := GetInputArgAsFloat(1);
ScriptEditor.cp.xform[ActiveTransform].SetVariable(variable, vb);
end
end;
procedure TOperationLibrary.FileCountProc(AMachine: TatVirtualMachine);
begin
with AMachine do