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

Single-transform flames are now understood by scripts.

Browse Source
This commit is contained in:
utak3r 2007-07-01 17:29:00 +00:00
parent db1800e16e
commit afe86e1c8d
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
2.10/Source/ScriptForm.dfm
View File

@ -191,7 +191,7 @@ object ScriptEditor: TScriptEditor
UrlStyle.BkColor = clWhite UrlStyle.BkColor = clWhite
UrlStyle.Style = [fsUnderline] UrlStyle.Style = [fsUnderline]
UseStyler = True UseStyler = True
Version = '1.6.0.17' Version = '1.6.0.13'
WordWrap = wwNone WordWrap = wwNone
OnChange = EditorChange OnChange = EditorChange
end end
@ -609,7 +609,6 @@ object ScriptEditor: TScriptEditor
LibOptions.SourceFileExt = '.psc' LibOptions.SourceFileExt = '.psc'
LibOptions.CompiledFileExt = '.pcu' LibOptions.CompiledFileExt = '.pcu'
LibOptions.UseScriptFiles = False LibOptions.UseScriptFiles = False
CallExecHookEvent = False
Left = 360 Left = 360
Top = 32 Top = 32
end end

6
2.10/Source/ScriptForm.pas
View File

@ -1849,7 +1849,7 @@ end;
procedure TOperationLibrary.PreviewProc(AMachine: TatVirtualMachine); procedure TOperationLibrary.PreviewProc(AMachine: TatVirtualMachine);
begin begin
if NumTransforms > 1 then if NumTransforms > 0 then
begin begin
AMachine.Paused := True; AMachine.Paused := True;
PreviewForm.cp.Copy(ScriptEditor.cp); PreviewForm.cp.Copy(ScriptEditor.cp);
@ -1864,7 +1864,7 @@ end;
procedure TOperationLibrary.RenderProc(AMachine: TatVirtualMachine); procedure TOperationLibrary.RenderProc(AMachine: TatVirtualMachine);
begin begin
if NumTransforms > 1 then if NumTransforms > 0 then
begin begin
ScriptRenderForm.cp.Copy(ScriptEditor.cp); ScriptRenderForm.cp.Copy(ScriptEditor.cp);
ScriptRenderForm.Caption := 'Rendering ' + ScriptEditor.Renderer.Filename; ; ScriptRenderForm.Caption := 'Rendering ' + ScriptEditor.Renderer.Filename; ;
@ -3463,7 +3463,7 @@ begin
//Compile; //Compile;
Execute; Execute;
end; end;
if (NumTransforms < 2) and UpdateIt then if (NumTransforms < 1) and UpdateIt then
begin begin
Console.Lines.Add('Not enough transforms.'); Console.Lines.Add('Not enough transforms.');
ScriptRenderForm.Close; ScriptRenderForm.Close;