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

6
2.10/Source/ScriptForm.pas
View File

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