new version 2.02h

2005-03-25 08:35:39 +00:00
parent 49e899262f
commit c9805b1a14
73 changed files with 84563 additions and 0 deletions
--- a/2.10/Project/delphi6/Apophysis202.dpr
+++ b/2.10/Project/delphi6/Apophysis202.dpr
@ -0,0 +1,102 @@
+{
+     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;
+
+{%File 'HtmlHlp.inc'}
+{%ToDo 'Apophysis202.todo'}
+{%File 'readme.txt'}
+
+uses
+  Forms,
+  Dialogs, 
+  SysUtils,
+  Main in '..\..\Source\Main.pas' {MainForm},
+  Editor in '..\..\Source\Editor.pas' {EditForm},
+  Global in '..\..\Source\Global.pas',
+  Options in '..\..\Source\Options.pas' {OptionsForm},
+  Regstry in '..\..\Source\Regstry.pas',
+  MyTypes in '..\..\Source\MyTypes.pas',
+  Fullscreen in '..\..\Source\Fullscreen.pas' {FullscreenForm},
+  Render in '..\..\Source\Render.pas',
+  Render32 in '..\..\Source\Render32.pas',
+  Render64 in '..\..\Source\Render64.pas',
+  RenderThread in '..\..\Source\RenderThread.pas',
+  FormRender in '..\..\Source\FormRender.pas' {RenderForm},
+  Mutate in '..\..\Source\Mutate.pas' {MutateForm},
+  Adjust in '..\..\Source\Adjust.pas' {AdjustForm},
+  Browser in '..\..\Source\Browser.pas' {GradientBrowser},
+  Gradient in '..\..\Source\Gradient.pas' {GradientForm},
+  Save in '..\..\Source\Save.pas' {SaveForm},
+  About in '..\..\Source\About.pas' {AboutForm},
+  Cmap in '..\..\Source\cmap.pas',
+  SavePreset in '..\..\Source\SavePreset.pas' {SavePresetForm},
+  ControlPoint in '..\..\Source\ControlPoint.pas',
+  HtmlHlp in '..\..\Source\HtmlHlp.pas',
+  ScriptForm in '..\..\Source\ScriptForm.pas' {ScriptEditor},
+  Preview in '..\..\Source\Preview.pas' {PreviewForm},
+  ScriptRender in '..\..\Source\ScriptRender.pas' {ScriptRenderForm},
+  ap_Math in '..\..\Source\ap_Math.pas',
+  ap_SysUtils in '..\..\Source\ap_SysUtils.pas',
+  FormFavorites in '..\..\Source\FormFavorites.pas' {FavoritesForm},
+  Size in '..\..\Source\Size.pas' {SizeTool},
+  FormExport in '..\..\Source\FormExport.pas' {ExportDialog},
+  MsMultiPartFormData in '..\..\Source\MsMultiPartFormData.pas',
+  Sheep in '..\..\Source\Sheep.pas' {SheepDialog},
+  ap_FileCtrl in '..\..\Source\ap_FileCtrl.pas',
+  XForm in '..\..\Source\XForm.pas',
+  cmapdata in '..\..\Source\cmapdata.pas',
+  RenderMM in '..\..\Source\RenderMM.pas',
+  ImageColoring in '..\..\Source\ImageColoring.pas' {frmImageColoring},
+  GradientHlpr in '..\..\Source\GradientHlpr.pas';
+
+{$R *.RES}
+
+begin
+  if now > EncodeDate(2005,6,20) then begin
+    ShowMessage('This version has expired. Please go to http://sourceforge.net/project/apophysis and download the latest version.');
+    Halt
+  end;
+
+  Application.Initialize;
+  Application.Title := 'Apophysis';
+  Application.HelpFile := 'Apophysis 2.0.chm';
+  Application.CreateForm(TMainForm, MainForm);
+  Application.CreateForm(TEditForm, EditForm);
+  Application.CreateForm(TOptionsForm, OptionsForm);
+  Application.CreateForm(TFullscreenForm, FullscreenForm);
+  Application.CreateForm(TRenderForm, RenderForm);
+  Application.CreateForm(TMutateForm, MutateForm);
+  Application.CreateForm(TAdjustForm, AdjustForm);
+  Application.CreateForm(TGradientBrowser, GradientBrowser);
+  Application.CreateForm(TGradientForm, GradientForm);
+  Application.CreateForm(TSaveForm, SaveForm);
+  Application.CreateForm(TAboutForm, AboutForm);
+  Application.CreateForm(TSavePresetForm, SavePresetForm);
+  Application.CreateForm(TScriptEditor, ScriptEditor);
+  Application.CreateForm(TPreviewForm, PreviewForm);
+  Application.CreateForm(TScriptRenderForm, ScriptRenderForm);
+  Application.CreateForm(TFavoritesForm, FavoritesForm);
+  Application.CreateForm(TSizeTool, SizeTool);
+  Application.CreateForm(TExportDialog, ExportDialog);
+  Application.CreateForm(TSheepDialog, SheepDialog);
+  Application.CreateForm(TfrmImageColoring, frmImageColoring);
+  Application.UpdateFormatSettings := False;
+  DecimalSeparator := '.';
+  Application.Run;
+end.
+