Added Delphi 7 project files.

2.10/Project/delphi7/Apophysis202.cfg

@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O-
+-$P+
+-$Q+
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$Y+
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\out"
+-N"..\..\out\dcu"
+-LE"g:\compilers\delphi7\Projects\Bpl"
+-LN"g:\compilers\delphi7\Projects\Bpl"
+-U"..\..\..\Apolibstuff\libxml;..\..\..\Apolibstuff\imglib;..\..\..\Apolibstuff\Scripterstudio\Imports\Delphi6;..\..\..\Apolibstuff\ScripterStudio;..\..\..\Apolibstuff\Indy\d6"
+-O"..\..\..\Apolibstuff\libxml;..\..\..\Apolibstuff\imglib;..\..\..\Apolibstuff\Scripterstudio\Imports\Delphi6;..\..\..\Apolibstuff\ScripterStudio;..\..\..\Apolibstuff\Indy\d6"
+-I"..\..\..\Apolibstuff\libxml;..\..\..\Apolibstuff\imglib;..\..\..\Apolibstuff\Scripterstudio\Imports\Delphi6;..\..\..\Apolibstuff\ScripterStudio;..\..\..\Apolibstuff\Indy\d6"
+-R"..\..\..\Apolibstuff\libxml;..\..\..\Apolibstuff\imglib;..\..\..\Apolibstuff\Scripterstudio\Imports\Delphi6;..\..\..\Apolibstuff\ScripterStudio;..\..\..\Apolibstuff\Indy\d6"

2.10/Project/delphi7/Apophysis202.dpr

@@ -0,0 +1,109 @@
+{
+     Apophysis Copyright (C) 2001-2004 Mark Townsend
+
+     This program is free software; you can redistribute it and/or modify
+     it under the terms of the GNU General Public License as published by
+     the Free Software Foundation; either version 2 of the License, or
+     (at your option) any later version.
+
+     This program is distributed in the hope that it will be useful,
+     but WITHOUT ANY WARRANTY; without even the implied warranty of
+     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+     GNU General Public License for more details.
+
+     You should have received a copy of the GNU General Public License
+     along with this program; if not, write to the Free Software
+     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+}
+program Apophysis202;
+
+
+
+uses
+  Forms,
+  SysUtils,
+  About in '..\..\Source\About.pas' {AboutForm},
+  Adjust in '..\..\Source\Adjust.pas' {AdjustForm},
+  bmdll32 in '..\..\Source\bmdll32.PAS',
+  Browser in '..\..\Source\Browser.pas' {GradientBrowser},
+  Cmap in '..\..\Source\cmap.pas',
+  cmapdata in '..\..\Source\cmapdata.pas',
+  ControlPoint in '..\..\Source\ControlPoint.pas',
+  Editor in '..\..\Source\Editor.pas' {EditForm},
+  FormExport in '..\..\Source\FormExport.pas' {ExportDialog},
+  FormFavorites in '..\..\Source\FormFavorites.pas' {FavoritesForm},
+  formPostProcess in '..\..\Source\formPostProcess.pas' {frmPostProcess},
+  FormRender in '..\..\Source\FormRender.pas' {RenderForm},
+  Fullscreen in '..\..\Source\Fullscreen.pas' {FullscreenForm},
+  Global in '..\..\Source\Global.pas',
+  GradientHlpr in '..\..\Source\GradientHlpr.pas',
+  HtmlHlp in '..\..\Source\HtmlHlp.pas',
+  ImageColoring in '..\..\Source\ImageColoring.pas' {frmImageColoring},
+  ImageMaker in '..\..\Source\ImageMaker.pas',
+  Main in '..\..\Source\Main.pas' {MainForm},
+  MsMultiPartFormData in '..\..\Source\MsMultiPartFormData.pas',
+  Mutate in '..\..\Source\Mutate.pas' {MutateForm},
+  MyTypes in '..\..\Source\MyTypes.pas',
+  Options in '..\..\Source\Options.pas' {OptionsForm},
+  Preview in '..\..\Source\Preview.pas' {PreviewForm},
+  Regstry in '..\..\Source\Regstry.pas',
+  Render in '..\..\Source\Render.pas',
+  Render64 in '..\..\Source\Render64.pas',
+  Render64MT in '..\..\Source\Render64MT.pas',
+  RenderMM in '..\..\Source\RenderMM.pas',
+  RenderMM2 in '..\..\Source\RenderMM2.pas',
+  RenderThread in '..\..\Source\RenderThread.pas',
+  RndFlame in '..\..\Source\RndFlame.pas',
+  Save in '..\..\Source\Save.pas' {SaveForm},
+  SavePreset in '..\..\Source\SavePreset.pas' {SavePresetForm},
+  ScriptForm in '..\..\Source\ScriptForm.pas' {ScriptEditor},
+  ScriptRender in '..\..\Source\ScriptRender.pas' {ScriptRenderForm},
+  Sheep in '..\..\Source\Sheep.pas' {SheepDialog},
+  XForm in '..\..\Source\XForm.pas',
+  pngextra in '..\..\..\..\..\..\..\compilers\components\PNGImage\pngextra.pas',
+  pngimage in '..\..\..\..\..\..\..\compilers\components\PNGImage\pngimage.pas',
+  pnglang in '..\..\..\..\..\..\..\compilers\components\PNGImage\pnglang.pas',
+  pngzlib in '..\..\..\..\..\..\..\compilers\components\PNGImage\pngzlib.pas',
+  varpdj in '..\..\Source\varpdj.pas',
+  varblob in '..\..\Source\varblob.pas',
+  XFormMan in '..\..\Source\XFormMan.pas',
+  BaseVariation in '..\..\Source\BaseVariation.pas',
+  BucketFillerThread in '..\..\Source\BucketFillerThread.pas',
+  RenderMM_MT in '..\..\Source\RenderMM_MT.pas',
+  varRings2 in '..\..\Source\varRings2.pas',
+  varFan2 in '..\..\Source\varFan2.pas',
+  CustomDrawControl in '..\..\Source\CustomDrawControl.pas';
+
+//  ImageColoring in '..\..\Source\ImageColoring.pas' {frmImageColoring};
+
+{$R *.RES}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Apophysis';
+  Application.HelpFile := 'Apophysis 2.0.chm';
+  //  Application.CreateForm(TfrmImageColoring, frmImageColoring);
+  Application.CreateForm(TMainForm, MainForm);
+  Application.CreateForm(TAboutForm, AboutForm);
+  Application.CreateForm(TAdjustForm, AdjustForm);
+  Application.CreateForm(TGradientBrowser, GradientBrowser);
+  Application.CreateForm(TEditForm, EditForm);
+  Application.CreateForm(TExportDialog, ExportDialog);
+  Application.CreateForm(TFavoritesForm, FavoritesForm);
+  Application.CreateForm(TfrmPostProcess, frmPostProcess);
+  Application.CreateForm(TRenderForm, RenderForm);
+  Application.CreateForm(TFullscreenForm, FullscreenForm);
+  Application.CreateForm(TfrmImageColoring, frmImageColoring);
+  Application.CreateForm(TMutateForm, MutateForm);
+  Application.CreateForm(TOptionsForm, OptionsForm);
+  Application.CreateForm(TPreviewForm, PreviewForm);
+  Application.CreateForm(TSaveForm, SaveForm);
+  Application.CreateForm(TSavePresetForm, SavePresetForm);
+  Application.CreateForm(TScriptEditor, ScriptEditor);
+  Application.CreateForm(TScriptRenderForm, ScriptRenderForm);
+  Application.CreateForm(TSheepDialog, SheepDialog);
+  Application.UpdateFormatSettings := False;
+  DecimalSeparator := '.';
+  Application.Run;
+end.
+

2.10/Project/delphi7/FlameSS.cfg

@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C-
+-$D-
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L-
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$Y-
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"../../out"
+-N"../../out/dcu"
+-LE"g:\compilers\delphi7\Projects\Bpl"
+-LN"g:\compilers\delphi7\Projects\Bpl"
+-U"../../source"
+-O"../../source"
+-I"../../source"
+-R"../../source"

2.10/Project/delphi7/FlameSS.dpr

@@ -0,0 +1,214 @@
+program FlameSS;
+
+uses
+  Forms,
+  Dialogs,
+  SysUtils,
+  Render,
+  controlpoint,
+  windows,
+  graphics,
+  messages,
+  ScrConfig in '..\..\ScreenSaver\ScrConfig.pas' {frmConfig},
+  ScrMain in '..\..\ScreenSaver\ScrMain.pas' {frmMain},
+  FlameIO in '..\..\ScreenSaver\FlameIO.pas';
+
+{$E SCR}
+
+{$R *.res}
+
+type  TSSMode = (ssSetPwd,ssPreview,ssConfig,ssRun);
+
+var
+  MySem: THandle;
+
+function GetScreenSaverMode: TSSMode;
+var
+  ParamChar: Char;
+begin
+  Result := ssRun;
+  if ParamCount = 0 then
+    Exit;
+
+  if Length(ParamStr(1)) = 1 then
+    ParamChar := ParamStr(1)[1]
+  else
+    ParamChar := ParamStr(1)[2];
+
+  Case ParamChar of
+  'A', 'a':
+    Result := ssSetPwd;
+  'P', 'p':
+    Result := ssPreview;
+  'C', 'c':
+    Result := ssConfig;
+  else
+    Result := ssRun;
+  end;
+end;
+
+procedure SetPassWord;
+var
+  SysDir: string;
+  NewLen: integer;
+  MyMod: THandle;
+  PwdFunc:     function (a : PChar; ParentHandle : THandle; b, c : Integer) :
+                     Integer; stdcall;
+begin
+  SetLength(SysDir,MAX_PATH);
+  NewLen := GetSystemDirectory(PChar(SysDir),MAX_PATH);
+  SetLength(SysDir,NewLen);
+
+  MyMod := LoadLibrary(PChar(IncludeTrailingPathDelimiter(SysDir) + 'MPR.DLL'));
+  if MyMod <> 0 then begin
+    PwdFunc := GetProcAddress(MyMod,'PwdChangePasswordA');
+    if Assigned(PwdFunc) then
+      PwdFunc('SCRSAVE',StrToInt(paramstr(2)),0,0);
+    FreeLibrary(MyMod);
+  end;
+end;
+
+function WindowProc(Wnd: HWnd; Msg: Integer; wParam: Word; lParam: Integer): Integer; far; stdcall;
+begin
+
+  { Window procedure for the saver preview. Only used for terminating the preview
+    version of the saver. }
+  if (Msg = WM_DESTROY) or (Msg = WM_CLOSE) then PostMessage(Wnd, WM_QUIT, 0, 0);
+  Result := DefWindowProc(Wnd, Msg, wParam, lParam);
+
+end;
+
+procedure Preview;
+var
+  PreviewCanvas: TCanvas;
+  PreviewRect: TRect;
+  WndClass: TWndClass;
+  DC: hDC;
+  MyWnd: hWnd;
+  Msg: TMsg;
+  ParentHandle: THandle;
+  cp : TControlPoint;
+  Render: TRenderer;
+  bm: TBitmap;
+begin
+  { To run the preview, you need to create a window class corresponding with the
+    little display in the screensaver control panel. This doesn't look very
+    elegant in a Delphi project, but I don't think you can use VCL functionality
+    to do this... }
+  with WndClass do
+  begin
+    style := CS_PARENTDC;
+    lpfnWndProc := @WindowProc;
+    cbClsExtra := 0;
+    cbWndExtra := 0;
+    hIcon := 0;
+    hCursor := 0;
+    hbrBackground := 0;
+    lpszMenuName := nil;
+    lpszClassName := 'DeskSpin';
+  end;
+  WndClass.hInstance := hInstance;
+  Windows.RegisterClass(WndClass);
+
+  ParentHandle := StrToInt(ParamStr(2));
+
+  // Initialize a Rect that matches the preview area:
+  GetWindowRect(Parenthandle, PreviewRect);
+  PreviewRect.Right := PreviewRect.Right - PreviewRect.Left;
+  PreviewRect.Bottom := PreviewRect.Bottom - PreviewRect.Top;
+  PreviewRect.Left := 0;
+  PreviewRect.Top := 0;
+
+  // Instantiate the window class so we can draw to the preview area:
+  MyWnd := CreateWindow('DeskSpin', 'DeskSpin',
+                        WS_CHILD or WS_DISABLED or WS_VISIBLE, 0, 0,
+                        PreviewRect.Right, PreviewRect.Bottom, ParentHandle,
+                        0, hInstance, nil);
+
+  // We need a DC before we can draw:
+  DC := GetDC(MyWnd);
+  { We can create a TCanvas matching the DC, so we can draw the preview with
+    familiar functions: }
+  PreviewCanvas := TCanvas.Create;
+  PreviewCanvas.Handle := DC;
+
+  randomize;
+  cp := TControlPoint.Create;
+  Render := TRenderer.Create;
+
+  cp.ParseString('pixels_per_unit 277.456647 center -1.0982659 0 gamma 2 spatial_filter_radius' +
+                 ' 0.5 contrast 1 brightness 1.5 zoom 0 spatial_oversample 1 sample_density 1 nbatches' +
+                 ' 1 white_level 200 cmap_inter 0 time 0 cmap 33 xform 0 density 1 color 0 var 0 0 0 1 0' +
+                 ' 0 0 coefs 0.466381997 -0.0618700013 0.0792416036 0.610638022 -0.475656986 -0.28115499'+
+                 ' xform 1 density 1 color 1 var 0 0 0 0 1 0 0 coefs -0.513867021 0.271649003 -0.254521996' +
+                 ' -0.550984025 -0.674094975 -0.600323975');
+
+  cp.sample_density := 1;
+  cp.Width := PreviewRect.Right - PreviewRect.Left;
+  cp.Height := PreviewRect.Bottom - PreviewRect.Top;
+  cp.spatial_oversample := 2;
+  cp.spatial_filter_radius := 0.1;
+  cp.Gamma := 4;
+  cp.brightness := 4;
+  cp.CalcBoundbox;
+  Render.SetCP(cp);
+  Render.Render;
+  BM := Render.GetImage;
+  PreviewCanvas.Draw(0,0,bm);
+
+
+  { Enter a message loop to keep the preview going. I've kept the preview simple
+    (plain text output), but if you wanted, you could initialize OpenGL for the
+    DC you already have, and actually let your saver render to that. }
+  while GetMessage(Msg, 0, 0, 0) do
+  begin
+    PreviewCanvas.Draw(0,0,bm);
+
+//    PreviewCanvas.FillRect(PreviewRect);
+//    PreviewCanvas.TextOut(5, 5, 'Your preview here.');
+    TranslateMessage(Msg);
+    DispatchMessage(Msg);
+  end;
+  PreviewCanvas.Free;
+
+  // Close and destroy the preview window:
+  CloseWindow(MyWnd);
+  DestroyWindow(MyWnd);
+
+  Render.Free;
+  cp.Free;
+end;
+
+begin
+  Case GetScreenSaverMode of
+  ssSetPwd:
+    begin
+      Application.Initialize;
+      SetPassWord;
+    end;
+  ssConfig:
+    begin
+      Application.Initialize;
+      Application.Title := 'Flame Screensaver';
+  Application.CreateForm(TfrmConfig, frmConfig);
+  Application.Run;
+    end;
+  ssPreview:
+    Preview;
+  else // ssrun
+    // Test if screen save was already started
+    MySem := CreateSemaphore(nil,0,1,'ESDSaverSemaphore');
+    if (MySem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS) then begin
+      CloseHandle(MySem);
+      Exit;
+    end;
+
+    Application.Initialize;
+    Application.CreateForm(TfrmMain, frmMain);
+    Application.Run;
+
+    if (MySem <> 0) then
+      CloseHandle(MySem);
+  end; // Case GetScreenSaverMode of
+
+end.