diff --git a/Project/delphi6/Apophysis202.cfg b/Project/delphi6/Apophysis202.cfg new file mode 100644 index 0000000..6be9287 --- /dev/null +++ b/Project/delphi6/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"x:\programs\borland\delphi6\Projects\Bpl" +-LN"x:\programs\borland\delphi6\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" diff --git a/Project/delphi6/Apophysis202.dof b/Project/delphi6/Apophysis202.dof new file mode 100644 index 0000000..62ce4d5 --- /dev/null +++ b/Project/delphi6/Apophysis202.dof @@ -0,0 +1,134 @@ +[FileVersion] +Version=6.0 +[Compiler] +A=8 +B=0 +C=1 +D=1 +E=0 +F=0 +G=1 +H=1 +I=1 +J=0 +K=0 +L=1 +M=0 +N=1 +O=1 +P=1 +Q=0 +R=0 +S=0 +T=0 +U=0 +V=1 +W=0 +X=1 +Y=2 +Z=1 +ShowHints=1 +ShowWarnings=1 +UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +[Linker] +MapFile=0 +OutputObjs=0 +ConsoleApp=1 +DebugInfo=0 +RemoteSymbols=0 +MinStackSize=16384 +MaxStackSize=1048576 +ImageBase=4194304 +ExeDescription= +[Directories] +OutputDir=..\..\out +UnitOutputDir=..\..\out\dcu +PackageDLLOutputDir= +PackageDCPOutputDir= +SearchPath=..\..\..\Apolibstuff\libxml;..\..\..\Apolibstuff\imglib;..\..\..\Apolibstuff\Scripterstudio\Imports\Delphi6;..\..\..\Apolibstuff\ScripterStudio;..\..\..\Apolibstuff\Indy\d6 +Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;dsnap;cds;bdecds;teeui;teedb;tee;dss;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;soaprtl;dbexpress;dbxcds;dclOffice2k;FlatStyle_D6;S303_R60;RzLPDB60;RzLPND60;vclshlctrls;B302vr60;VirtualTreesD6;o403_r60;ibxpress;CSP20I60;Rz30Ctls60;Rz30DBCtls60;indy;Indy60 +Conditionals= +DebugSourceDirs=X:\Code\Delphi\Apophysis\Apolibstuff9\ScripterStudio\ +UsePackages=0 +[Parameters] +RunParams= +HostApplication= +Launcher= +UseLauncher=0 +DebugCWD= +[Language] +ActiveLang= +ProjectLang= +RootDir=D:\Program Files\Borland\Delphi6\Bin\ +[Version Info] +IncludeVerInfo=1 +AutoIncBuild=0 +MajorVer=2 +MinorVer=0 +Release=2 +Build=0 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=3081 +CodePage=1252 +[Version Info Keys] +CompanyName= +FileDescription=Apophysis 2.02 +FileVersion=2.0.2.0 +InternalName= +LegalCopyright=Copyright © 2001-2004 Mark Townsend +LegalTrademarks= +OriginalFilename=Apophysis.exe +ProductName= +ProductVersion=2.02 +Comments= +[Excluded Packages] +C:\Program Files\Indy 10 for Delphi 6\LibD6\dclIndyCore60.bpl=Indy 10 Core Design Time +C:\Program Files\Indy 10 for Delphi 6\LibD6\dclIndyProtocols60.bpl=Indy 10 Protocols Design Time +[HistoryLists\hlDebugSourcePath] +Count=1 +Item0=X:\Code\Delphi\Apophysis\Apolibstuff9\ScripterStudio\ +[HistoryLists\hlConditionals] +Count=4 +Item0=GEONOISE +Item1=GEONOISE;V1;GROUND_SINGLE;B_ATTENUATION_PLAIN;BARRIERCORRFLOATING;BUILDING_FLOAT;ROAD_SRM2;NO_SATTENU;NO_VATTENU +Item2=GEONOISE;R1;GROUND_SINGLE;B_ATTENUATION_PLAIN;BARRIERCORRFLOATING;BUILDING_FLOAT;NO_ROAD;NO_SATTENU;NO_VATTENU +Item3=GEONOISE;V5;GROUND_SINGLE;B_ATTENUATION_PLAIN;BARRIERCORRFLOATING;BUILDING_FLOAT;ROAD_SRM2;NO_SATTENU;NO_VATTENU +[HistoryLists\hlUnitAliases] +Count=1 +Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +[HistoryLists\hlSearchPath] +Count=13 +Item0=..\..\..\Apolibstuff\libxml;..\..\..\Apolibstuff\imglib;..\..\..\Apolibstuff\Scripterstudio\Imports\Delphi6;..\..\..\Apolibstuff\ScripterStudio;..\..\..\Apolibstuff\Indy\d6 +Item1=..\Apolibstuff\libxml;..\Apolibstuff\imglib;..\Apolibstuff\Scripterstudio\Imports\Delphi6;..\Apolibstuff\ScripterStudio;..\Apolibstuff\Indy\d6 +Item2=..\Apolibstuff\libxml;..\Apolibstuff\imglib;..\Apolibstuff\ScripterStudio;..\Apolibstuff\Scripterstudio\Imports\Delphi6;..\Apolibstuff\Indy\d6 +Item3=C:\code\Apophysis\Apolibstuff\imglib +Item4=c:\proj32\geonoise510\src;w:\Src\GroundModel;w:\lib;w:\src\alg;w:\src\dll\Tool\Viewer;w:\src\dll\DLLAlg +Item5=c:\proj32\geonoise510\src;w:\lib;w:\src\dll\Method\V1;w:\src\alg;w:\src\dll\DLLAlg;w:\src\dll\Method\GenItem;w:\src\dll\tool\VLDOS +Item6=c:\proj32\geonoise510\src;w:\lib;w:\src\dll\Method\R1;w:\src\alg;w:\src\dll\DLLAlg;w:\src\dll\Method\GenItem;w:\src\dll\tool\RLDOS +Item7=c:\proj32\geonoise510\src;w:\lib;w:\src\dll\Method\V1;w:\src\alg;w:\src\dll\DLLAlg;w:\src\dll\Method\GenItem +Item8=c:\proj32\geonoise510\src;w:\src\dll\Method\V1;w:\src\alg;w:\src\dll\DLLAlg;w:\src\dll\Method\GenItem;w:\lib +Item9=c:\proj32\geonoise510\src;w:\SRC\ALG;w:\src\dll\Tool\Shape;w:\src\dll\DLLAlg;w:\src\dll\Method\GenItem;w:\LIB +Item10=c:\proj32\geonoise510\src;w:\src\alg;w:\src\exe\dbase;w:\src\exe\geoman;w:\src\DBIntf;w:\src\exe\dllman;w:\src\exe\main;w:\src\exe\model;w:\src\exe\results;w:\src\exe\lib;w:\lib +Item11=c:\proj32\geonoise510\src;w:\SRC\SPM\;w:\SRC\ALG;w:\lib +Item12=c:\proj32\geonoise510\src;w:\SRC\SPM\;w:\SRC\ALG +[HistoryLists\hlUnitOutputDirectory] +Count=7 +Item0=..\..\out\dcu +Item1=..\..\..\out\dcu +Item2=.\out\dcu +Item3=..\out\dcu +Item4=C:\code\Apophysis\2.02a\out\dcu +Item5=C:\code\Apophysis\2.02\out\dcu +Item6=c:\proj32\geonoise510\out\DCU +[HistoryLists\hlOutputDirectorry] +Count=6 +Item0=..\..\out +Item1=.\out +Item2=..\out +Item3=C:\code\Apophysis\2.02a\out +Item4=C:\code\Apophysis\2.02\out +Item5=c:\proj32\geonoise510\out diff --git a/Project/delphi6/Apophysis202.dpr b/Project/delphi6/Apophysis202.dpr new file mode 100644 index 0000000..44a869d --- /dev/null +++ b/Project/delphi6/Apophysis202.dpr @@ -0,0 +1,91 @@ +{ + 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. +} +{$D-,L-,O+,Q-,R-,Y-,S-} +program Apophysis202; + +{%File 'HtmlHlp.inc'} +{%ToDo 'Apophysis202.todo'} +{%File 'readme.txt'} + +uses + Forms, + 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', + 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'; + +{$R *.RES} + +begin + 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.UpdateFormatSettings := False; + DecimalSeparator := '.'; + Application.Run; +end. + diff --git a/Project/delphi6/Apophysis202.dsk b/Project/delphi6/Apophysis202.dsk new file mode 100644 index 0000000..8858c3c --- /dev/null +++ b/Project/delphi6/Apophysis202.dsk @@ -0,0 +1,341 @@ +[Closed Files] +File_0=SourceModule,'X:\Code\Delphi\Apophysis\2.02f\Source\ap_FileCtrl.pas',0,1,1,1,1,0,0 +File_1=SourceModule,'X:\Code\Delphi\Apophysis\2.02f\Source\ap_SysUtils.pas',0,1,1,3,20,0,0 +File_2=SourceModule,'X:\Code\Delphi\Apophysis\Apolibstuff\Scripterstudio\Imports\Delphi6\ap_Classes.pas',0,1,1,3,23,0,0 +File_3=SourceModule,'x:\programs\borland\delphi6\source\rtl\Win\Windows.pas',0,1,5563,114,5586,0,0 +File_4=SourceModule,'X:\Code\Delphi\Apophysis\2.02e\About.pas',0,1,1,117,16,1,0 +File_5=SourceModule,'X:\Code\Delphi\Apophysis\2.02e\Main.pas',0,1,3583,38,3588,1,0 +File_6=SourceModule,'X:\Code\Delphi\Apophysis\2.02\ScriptForm.pas',0,1,2648,117,2664,0,0 +File_7=SourceModule,'X:\Code\Delphi\Apophysis\Apolibstuff9\ScripterStudio\atScript.pas',0,1,2152,1,2170,0,0 +File_8=SourceModule,'X:\Code\Delphi\Apophysis\Apolibstuff9\ScripterStudio\atpascal.pas',0,1,1519,1,1537,0,0 +File_9=SourceModule,'X:\Code\Delphi\Apophysis\Apolibstuff9\ScripterStudio\atParser.pas',0,1,2033,1,2051,0,0 + +[Modules] +Module0=X:\Code\Delphi\Apophysis\2.02f\Source\Main.pas +Module1=X:\Code\Delphi\Apophysis\2.02f\Source\About.pas +Module2=X:\Code\Delphi\Apophysis\2.02f\Source\ScriptForm.pas +Module3=X:\Code\Delphi\Apophysis\2.02f\Source\cmapdata.pas +Module4=X:\Code\Delphi\Apophysis\2.02f\Project\delphi6\Apophysis202.dpr +Count=5 +EditWindowCount=1 + +[X:\Code\Delphi\Apophysis\2.02f\Source\Main.pas] +ModuleType=SourceModule +FormState=1 +FormOnTop=0 + +[X:\Code\Delphi\Apophysis\2.02f\Source\About.pas] +ModuleType=SourceModule +FormState=1 +FormOnTop=0 + +[X:\Code\Delphi\Apophysis\2.02f\Source\ScriptForm.pas] +ModuleType=SourceModule +FormState=0 +FormOnTop=0 + +[X:\Code\Delphi\Apophysis\2.02f\Source\cmapdata.pas] +ModuleType=SourceModule +FormState=0 +FormOnTop=0 + +[X:\Code\Delphi\Apophysis\2.02f\Project\delphi6\Apophysis202.dpr] +ModuleType=SourceModule +FormState=0 +FormOnTop=0 + +[X:\Programs\Borland\Delphi6\Projects\ProjectGroup1.bpg] +FormState=0 +FormOnTop=0 + +[X:\Code\Delphi\Apophysis\2.02f\Project\delphi6\Apophysis202.todo] +FormState=0 +FormOnTop=0 + +[EditWindow0] +ViewCount=5 +CurrentView=1 +View0=0 +View1=1 +View2=2 +View3=3 +View4=4 +CodeExplorer=CodeExplorer@EditWindow0 +MessageView=MessageView@EditWindow0 +Create=1 +Visible=1 +State=0 +Left=266 +Top=111 +Width=1016 +Height=880 +MaxLeft=-4 +MaxTop=108 +ClientWidth=1008 +ClientHeight=846 +LeftPanelSize=0 +RightPanelSize=0 +BottomPanelSize=52 +BottomPanelClients=MessageView@EditWindow0 +BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF + +[View0] +Module=X:\Code\Delphi\Apophysis\2.02f\Project\delphi6\Apophysis202.dpr +CursorX=73 +CursorY=55 +TopLine=31 +LeftCol=1 + +[View1] +Module=X:\Code\Delphi\Apophysis\2.02f\Source\Main.pas +CursorX=45 +CursorY=4394 +TopLine=4354 +LeftCol=1 + +[View2] +Module=X:\Code\Delphi\Apophysis\2.02f\Source\About.pas +CursorX=1 +CursorY=1 +TopLine=1 +LeftCol=1 + +[View3] +Module=X:\Code\Delphi\Apophysis\2.02f\Source\cmapdata.pas +CursorX=1 +CursorY=47737 +TopLine=47709 +LeftCol=1 + +[View4] +Module=X:\Code\Delphi\Apophysis\2.02f\Source\ScriptForm.pas +CursorX=36 +CursorY=330 +TopLine=302 +LeftCol=1 + +[Watches] +Count=0 + +[Breakpoints] +Count=1 +Breakpoint0='X:\Code\Delphi\Apophysis\2.02\ScriptForm.pas',1244,'',0,1,'',1,0,0,'',1,'','','' + +[AddressBreakpoints] +Count=0 + +[Main Window] +Create=1 +Visible=1 +State=0 +Left=0 +Top=0 +Width=1280 +Height=112 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=1272 +ClientHeight=78 + +[ProjectManager] +Create=1 +Visible=1 +State=0 +Left=0 +Top=0 +Width=231 +Height=843 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=231 +ClientHeight=843 +TBDockHeight=305 +LRDockWidth=438 +Dockable=1 + +[CPUWindow] +Create=1 +Visible=0 +State=0 +Left=373 +Top=335 +Width=533 +Height=353 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=525 +ClientHeight=319 +DumpPane=79 +DisassemblyPane=187 +RegisterPane=231 +FlagPane=64 + +[AlignmentPalette] +Create=1 +Visible=0 +State=0 +Left=200 +Top=114 +Width=156 +Height=84 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=150 +ClientHeight=60 + +[PropertyInspector] +Create=1 +Visible=1 +State=0 +Left=0 +Top=0 +Width=231 +Height=843 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=231 +ClientHeight=843 +TBDockHeight=527 +LRDockWidth=190 +Dockable=1 +SplitPos=85 +ArrangeBy=Name +SelectedItem=Caption +ExpandedItems= +HiddenCategories= + +[WatchWindow] +Create=1 +Visible=0 +State=0 +Left=232 +Top=872 +Width=1048 +Height=165 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=1040 +ClientHeight=139 +TBDockHeight=149 +LRDockWidth=421 +Dockable=1 + +[CallStackWindow] +Create=1 +Visible=1 +State=0 +Left=0 +Top=0 +Width=231 +Height=843 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=231 +ClientHeight=843 +TBDockHeight=161 +LRDockWidth=294 +Dockable=1 + +[ObjectTree] +Create=1 +Visible=0 +State=0 +Left=0 +Top=112 +Width=190 +Height=350 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=182 +ClientHeight=324 +TBDockHeight=350 +LRDockWidth=190 +Dockable=1 + +[DebugLogView] +Create=1 +Visible=0 +State=0 +Left=232 +Top=872 +Width=1048 +Height=165 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=1040 +ClientHeight=139 +TBDockHeight=291 +LRDockWidth=417 +Dockable=1 + +[LocalVarsWindow] +Create=1 +Visible=0 +State=0 +Left=27 +Top=127 +Width=194 +Height=891 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=186 +ClientHeight=865 +TBDockHeight=110 +LRDockWidth=421 +Dockable=1 + +[CodeExplorer@EditWindow0] +Create=1 +Visible=1 +State=0 +Left=0 +Top=0 +Width=231 +Height=843 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=231 +ClientHeight=843 +TBDockHeight=305 +LRDockWidth=140 +Dockable=1 + +[MessageView@EditWindow0] +Create=1 +Visible=1 +State=0 +Left=12 +Top=0 +Width=996 +Height=52 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=996 +ClientHeight=52 +TBDockHeight=52 +LRDockWidth=443 +Dockable=1 + +[DockHosts] +DockHostCount=1 + +[DockSite0] +DockSiteType=1 +Create=1 +Visible=1 +State=0 +Left=0 +Top=112 +Width=266 +Height=877 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=258 +ClientHeight=851 +TBDockHeight=451 +LRDockWidth=177 +Dockable=1 +TabPosition=2 +ActiveTab=Project Manager +TabDockClients=ProjectManager,CodeExplorer@EditWindow0,CallStackWindow,PropertyInspector + diff --git a/Project/delphi6/Apophysis202.res b/Project/delphi6/Apophysis202.res new file mode 100644 index 0000000..fcc8868 Binary files /dev/null and b/Project/delphi6/Apophysis202.res differ diff --git a/Project/delphi6/Apophysis202.todo b/Project/delphi6/Apophysis202.todo new file mode 100644 index 0000000..0519ecb --- /dev/null +++ b/Project/delphi6/Apophysis202.todo @@ -0,0 +1 @@ + \ No newline at end of file