*** empty log message ***

2.02g/Changes.txt

@@ -1 +1,4 @@
-+ Delphi2005 Project
++ Delphi2005 Project
+B fixed remainder not on 00:00:00 when finished
++ Extra performance in Xform 
++ 32-bits renderer

2.02g/Project/delphi2005/Apophysis202.bdsproj

@@ -119,7 +119,7 @@
 			<Directories Name="UnitOutputDir">..\..\out\dcu</Directories>
 			<Directories Name="PackageDLLOutputDir"></Directories>
 			<Directories Name="PackageDCPOutputDir"></Directories>
-			<Directories Name="SearchPath">..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005</Directories>
+			<Directories Name="SearchPath">..\..\Source ;..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005</Directories>
 			<Directories Name="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</Directories>
 			<Directories Name="Conditionals"></Directories>
 			<Directories Name="DebugSourceDirs">X:\Code\Delphi\Apophysis\Apolibstuff9\ScripterStudio\</Directories>
@@ -162,7 +162,7 @@
 			<VersionInfoKeys Name="FileDescription">Apophysis 2.02</VersionInfoKeys>
 			<VersionInfoKeys Name="FileVersion">2.0.2.0</VersionInfoKeys>
 			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
-			<VersionInfoKeys Name="LegalCopyright">Copyright © 2001-2004 Mark Townsend</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright">Copyright © 2001-2004 Mark Townsend</VersionInfoKeys>
 			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
 			<VersionInfoKeys Name="OriginalFilename">Apophysis.exe</VersionInfoKeys>
 			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>

2.02g/Project/delphi2005/Apophysis202.bdsproj.local

@@ -1,2 +1,9 @@
 <?xml version="1.0" encoding="utf-8"?>
-<BorlandProject/>
+<BorlandProject>
+	<Transactions>
+    <Transaction>2005-01-28 21:27:29.289.pas,X:\Code\Delphi\Apophysis\2.02g\Source\cmapdata.pas=</Transaction>
+    <Transaction>2005-01-29 10:15:34.468.pas,X:\Code\Delphi\Apophysis\2.02g\Source\Render32.pas=X:\Code\Delphi\Apophysis\2.02g\Source\Render64.pas</Transaction>
+    <Transaction>2005-01-29 10:29:11.421.pas,X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Unit1.pas=X:\Code\Delphi\Apophysis\2.02g\Source\ImageColoring.pas</Transaction>
+    <Transaction>2005-01-29 10:29:11.421.dfm,X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Unit1.dfm=X:\Code\Delphi\Apophysis\2.02g\Source\ImageColoring.dfm</Transaction>
+  </Transactions>
+</BorlandProject>

2.02g/Project/delphi2005/Apophysis202.cfg

@@ -35,10 +35,10 @@
 -N"..\..\out\dcu"
 -LE"C:\Documents and Settings\Ronald Hordijk\Mijn documenten\Borland Studio Projects\Bpl"
 -LN"C:\Documents and Settings\Ronald Hordijk\Mijn documenten\Borland Studio Projects\Bpl"
--U"..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005"
+-U"..\..\Source ;..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005"
--O"..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005"
+-O"..\..\Source ;..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005"
--I"..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005"
+-I"..\..\Source ;..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005"
--R"..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005"
+-R"..\..\Source ;..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

2.02g/Project/delphi2005/Apophysis202.dpr

@@ -17,8 +17,8 @@
 }
 program Apophysis202;
 
-{%File '..\..\HtmlHlp.inc'}
+{%File '..\..\readme.txt'}
-{%File 'readme.txt'}
+{%File '..\..\Changes.txt'}
 
 uses
   Forms,
@@ -30,8 +30,6 @@ uses
   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},
@@ -40,23 +38,24 @@ uses
   Save in '..\..\Source\Save.pas' {SaveForm},
   About in '..\..\Source\About.pas' {AboutForm},
   cmap in '..\..\Source\cmap.pas',
+  cmapData in '..\..\Source\cmapData.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',
+  RenderThread in '..\..\Source\RenderThread.pas',
-  Render32 in '..\..\Source\Render32.pas';
+  Render in '..\..\Source\Render.pas',
+  Render32 in '..\..\Source\Render32.pas',
+  Render64 in '..\..\Source\Render64.pas';
+//  ImageColoring in '..\..\Source\ImageColoring.pas' {frmImageColoring};
 
 {$R *.RES}
 
@@ -83,6 +82,7 @@ begin
   Application.CreateForm(TSizeTool, SizeTool);
   Application.CreateForm(TExportDialog, ExportDialog);
   Application.CreateForm(TSheepDialog, SheepDialog);
+//  Application.CreateForm(TfrmImageColoring, frmImageColoring);
   Application.UpdateFormatSettings := False;
   DecimalSeparator := '.';
   Application.Run;

2.02g/Project/delphi2005/Apophysis202.dsk

@@ -1,34 +1,54 @@
 [Closed Files]
-File_0=TSourceModule,'X:\Code\Delphi\Apophysis\2.02f\Source\RenderThread.pas',0,1,777,23,804,0,0,,
+File_0=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\ScriptRender.pas',0,1,83,21,109,0,0,,
-File_1=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.identcache',0,1,1,59,12,0,0,,
+File_1=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\ImageColoring.pas',0,1,28,19,68,0,0,,
-File_2=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\ControlPoint.pas',0,1,1,21,43,0,0,,
+File_2=TSourceModule,'X:\Code\Delphi\Apophysis\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005\ap_System.pas',0,1,263,57,296,0,0,,
-File_3=TSourceModule,'x:\programs\borland\bds\3.0\source\Win32\rtl\common\Classes.pas',0,1,1188,15,1188,0,0,,
+File_3=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\MyTypes.pas',0,1,1,1,1,0,0,,
-File_4=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\Save.pas',0,1,1,1,1,0,0,,
+File_4=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\MsMultiPartFormData.pas',0,1,109,1,123,0,0,,
-File_5=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\SavePreset.pas',0,1,1,1,1,0,0,,
+File_5=TSourceModule,'X:\Code\Delphi\Apophysis\2.02f\Source\RenderThread.pas',0,1,777,23,804,0,0,,
-File_6=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\ScriptForm.pas',0,1,1,1,1,0,0,,
+File_6=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.identcache',0,1,1,59,12,0,0,,
-File_7=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\ScriptRender.pas',0,1,1,1,1,0,0,,
+File_7=TSourceModule,'x:\programs\borland\bds\3.0\source\Win32\rtl\common\Classes.pas',0,1,1188,15,1188,0,0,,
-File_8=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\Sheep.pas',0,1,1,1,1,0,0,,
+File_8=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\Save.pas',0,1,1,1,1,0,0,,
-File_9=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\Size.pas',0,1,1,1,1,0,0,,
 
 [Modules]
-Module0=X:\Code\Delphi\Apophysis\2.02g\Source\Render32.pas
+Module0=X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas
-Module1=X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas
+Module1=X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas
-Module2=X:\Code\Delphi\Apophysis\2.02g\Source\Render.pas
+Module2=X:\Code\Delphi\Apophysis\2.02g\Source\Render64.pas
-Module3=X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.bdsproj
+Module3=X:\Code\Delphi\Apophysis\2.02g\Source\Gradient.pas
-Module4=X:\Code\Delphi\Apophysis\2.02g\Source\Fullscreen.pas
+Module4=X:\Code\Delphi\Apophysis\2.02g\Source\cmap.pas
-Module5=X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas
+Module5=X:\Code\Delphi\Apophysis\2.02g\Source\Render.pas
-Module6=X:\Code\Delphi\Apophysis\2.02g\Source\MsMultiPartFormData.pas
+Module6=X:\Code\Delphi\Apophysis\2.02g\readme.txt
-Module7=X:\Code\Delphi\Apophysis\2.02g\Source\MyTypes.pas
+Module7=X:\Code\Delphi\Apophysis\2.02g\Changes.txt
-Module8=default.htm
+Module8=X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.bdsproj
-Count=9
+Module9=X:\Code\Delphi\Apophysis\2.02g\Source\FormRender.pas
+Module10=X:\Code\Delphi\Apophysis\2.02g\Source\Fullscreen.pas
+Module11=X:\Code\Delphi\Apophysis\2.02g\Source\XForm.pas
+Module12=X:\Code\Delphi\Apophysis\2.02g\Source\ControlPoint.pas
+Module13=X:\Code\Delphi\Apophysis\2.02g\Source\ScriptForm.pas
+Module14=default.htm
+Count=15
 EditWindowCount=1
 
-[X:\Code\Delphi\Apophysis\2.02g\Source\Render32.pas]
+[X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas]
 ModuleType=TSourceModule
 FormState=0
 FormOnTop=0
 
-[X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas]
+[X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas]
+ModuleType=TSourceModule
+FormState=1
+FormOnTop=0
+
+[X:\Code\Delphi\Apophysis\2.02g\Source\Render64.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[X:\Code\Delphi\Apophysis\2.02g\Source\Gradient.pas]
+ModuleType=TSourceModule
+FormState=1
+FormOnTop=0
+
+[X:\Code\Delphi\Apophysis\2.02g\Source\cmap.pas]
 ModuleType=TSourceModule
 FormState=0
 FormOnTop=0
@@ -38,35 +58,46 @@ ModuleType=TSourceModule
 FormState=0
 FormOnTop=0
 
+[X:\Code\Delphi\Apophysis\2.02g\readme.txt]
+ModuleType=TSourceModule
+
+[X:\Code\Delphi\Apophysis\2.02g\Changes.txt]
+ModuleType=TSourceModule
+
 [X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.bdsproj]
 ModuleType=TBaseProject
 
+[X:\Code\Delphi\Apophysis\2.02g\Source\FormRender.pas]
+ModuleType=TSourceModule
+FormState=1
+FormOnTop=0
+
 [X:\Code\Delphi\Apophysis\2.02g\Source\Fullscreen.pas]
 ModuleType=TSourceModule
 FormState=1
 FormOnTop=0
 
-[X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas]
+[X:\Code\Delphi\Apophysis\2.02g\Source\XForm.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[X:\Code\Delphi\Apophysis\2.02g\Source\ControlPoint.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[X:\Code\Delphi\Apophysis\2.02g\Source\ScriptForm.pas]
 ModuleType=TSourceModule
 FormState=1
 FormOnTop=0
 
-[X:\Code\Delphi\Apophysis\2.02g\Source\MsMultiPartFormData.pas]
-ModuleType=TSourceModule
-FormState=0
-FormOnTop=0
-
-[X:\Code\Delphi\Apophysis\2.02g\Source\MyTypes.pas]
-ModuleType=TSourceModule
-FormState=0
-FormOnTop=0
-
 [default.htm]
 ModuleType=TURLModule
 
 [EditWindow0]
-ViewCount=9
+ViewCount=15
-CurrentEditView=X:\Code\Delphi\Apophysis\2.02g\Source\Render32.pas
+CurrentEditView=X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas
 View0=0
 View1=1
 View2=2
@@ -76,6 +107,12 @@ View5=5
 View6=6
 View7=7
 View8=8
+View9=9
+View10=10
+View11=11
+View12=12
+View13=13
+View14=14
 PercentageSizes=1
 Create=1
 Visible=1
@@ -94,17 +131,17 @@ MessageView=MessageView@EditWindow0
 BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
 TopPanelSize=0
 LeftPanelSize=1906
-LeftPanelClients=StructureView,DockSite0
+LeftPanelClients=StructureView,DockSite3
-LeftPanelData=00000800010100000000AE170000000000000172070000000000000100000000C50D00001100000053747275637475726556696577466F726D01000000009A1D000009000000446F636B5369746530FFFFFFFF
+LeftPanelData=00000800010100000000AE170000000000000172070000000000000100000000C50D00001100000053747275637475726556696577466F726D01000000009A1D000009000000446F636B5369746533FFFFFFFF
 RightPanelSize=2258
-RightPanelClients=DockSite1,ToolForm
+RightPanelClients=ToolForm,DockSite2
-RightPanelData=00000800010100000000AE1700000000000001D20800000000000001000000006511000009000000446F636B536974653101000000009A1D000008000000546F6F6C466F726DFFFFFFFF
+RightPanelData=00000800010100000000AE1700000000000001D20800000000000001000000006511000009000000446F636B536974653201000000009A1D000008000000546F6F6C466F726DFFFFFFFF
 BottomPanelSize=1270
-BottomPanelClients=MessageView@EditWindow0,ToDo List,DockSite2
+BottomPanelClients=MessageView@EditWindow0,ToDo List,DockSite0
-BottomPanelData=000008000102020000000E000000546F446F4C69737457696E646F7709000000446F636B53697465327C3000000000000002F60400000000000001000000007C3000000B0000004D65737361676556696577FFFFFFFF
+BottomPanelData=000008000102020000000E000000546F446F4C69737457696E646F7709000000446F636B53697465307C3000000000000002F60400000000000001000000007C3000000B0000004D65737361676556696577FFFFFFFF
 BottomMiddlePanelSize=0
-BottomMiddlePanelClients=DockSite3
+BottomMiddlePanelClients=DockSite1
-BottomMiddelPanelData=0000080001000100000009000000446F636B53697465330000000000000000000000000000000000FFFFFFFF
+BottomMiddelPanelData=0000080001000100000009000000446F636B53697465310000000000000000000000000000000000FFFFFFFF
 
 [View0]
 CustomEditViewType=TWelcomePageView
@@ -113,83 +150,143 @@ WelcomePageURL=bds:/default.htm
 [View1]
 CustomEditViewType=TEditView
 Module=X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.dpr
-CursorX=56
+CursorX=2
-CursorY=15
+CursorY=90
-TopLine=1
+TopLine=59
 LeftCol=1
 Elisions=
 Bookmarks=
 
 [View2]
 CustomEditViewType=TEditView
-Module=X:\Code\Delphi\Apophysis\2.02g\Source\Render.pas
+Module=X:\Code\Delphi\Apophysis\2.02g\Changes.txt
-CursorX=63
+CursorX=19
-CursorY=783
+CursorY=4
-TopLine=778
+TopLine=1
 LeftCol=1
 Elisions=
 Bookmarks=
 
 [View3]
 CustomEditViewType=TEditView
-Module=X:\Code\Delphi\Apophysis\2.02g\Source\Render32.pas
+Module=X:\Code\Delphi\Apophysis\2.02g\readme.txt
 CursorX=1
-CursorY=115
+CursorY=1
-TopLine=88
+TopLine=1
 LeftCol=1
 Elisions=
 Bookmarks=
 
 [View4]
 CustomEditViewType=TEditView
-Module=X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas
+Module=X:\Code\Delphi\Apophysis\2.02g\Source\ControlPoint.pas
-CursorX=27
+CursorX=32
-CursorY=130
+CursorY=1479
-TopLine=105
+TopLine=1463
 LeftCol=1
 Elisions=
 Bookmarks=
 
 [View5]
 CustomEditViewType=TEditView
-Module=X:\Code\Delphi\Apophysis\2.02g\Source\Fullscreen.pas
+Module=X:\Code\Delphi\Apophysis\2.02g\Source\Render.pas
-CursorX=27
+CursorX=14
-CursorY=79
+CursorY=661
-TopLine=52
+TopLine=650
 LeftCol=1
 Elisions=
 Bookmarks=
 
 [View6]
 CustomEditViewType=TEditView
-Module=X:\Code\Delphi\Apophysis\2.02g\Source\MyTypes.pas
+Module=X:\Code\Delphi\Apophysis\2.02g\Source\Render64.pas
 CursorX=1
-CursorY=1
+CursorY=585
-TopLine=1
+TopLine=560
 LeftCol=1
 Elisions=
 Bookmarks=
 
 [View7]
 CustomEditViewType=TEditView
-Module=X:\Code\Delphi\Apophysis\2.02g\Source\MsMultiPartFormData.pas
+Module=X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas
-CursorX=1
+CursorX=27
-CursorY=123
+CursorY=102
-TopLine=109
+TopLine=63
 LeftCol=1
 Elisions=
 Bookmarks=
 
 [View8]
 CustomEditViewType=TEditView
-Module=X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas
+Module=X:\Code\Delphi\Apophysis\2.02g\Source\cmap.pas
-CursorX=1
+CursorX=3
-CursorY=1
+CursorY=46
 TopLine=1
 LeftCol=1
 Elisions=
 Bookmarks=
 
+[View9]
+CustomEditViewType=TEditView
+Module=X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas
+CursorX=22
+CursorY=3416
+TopLine=3373
+LeftCol=1
+Elisions=
+Bookmarks={1,3102,15}
+
+[View10]
+CustomEditViewType=TEditView
+Module=X:\Code\Delphi\Apophysis\2.02g\Source\Gradient.pas
+CursorX=38
+CursorY=133
+TopLine=126
+LeftCol=1
+Elisions=
+Bookmarks=
+
+[View11]
+CustomEditViewType=TEditView
+Module=X:\Code\Delphi\Apophysis\2.02g\Source\FormRender.pas
+CursorX=28
+CursorY=207
+TopLine=168
+LeftCol=1
+Elisions=
+Bookmarks=
+
+[View12]
+CustomEditViewType=TEditView
+Module=X:\Code\Delphi\Apophysis\2.02g\Source\Fullscreen.pas
+CursorX=25
+CursorY=124
+TopLine=91
+LeftCol=1
+Elisions=
+Bookmarks=
+
+[View13]
+CustomEditViewType=TEditView
+Module=X:\Code\Delphi\Apophysis\2.02g\Source\ScriptForm.pas
+CursorX=54
+CursorY=302
+TopLine=297
+LeftCol=1
+Elisions=
+Bookmarks=
+
+[View14]
+CustomEditViewType=TEditView
+Module=X:\Code\Delphi\Apophysis\2.02g\Source\XForm.pas
+CursorX=52
+CursorY=68
+TopLine=31
+LeftCol=1
+Elisions=
+Bookmarks={1,237,1}
+
 [Watches]
 Count=0
 
@@ -204,11 +301,11 @@ State=0
 Left=0
 Top=0
 Width=3766
-Height=4698
+Height=724
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=3766
-ClientHeight=4698
+ClientHeight=724
 TBDockHeight=201
 LRDockWidth=13602
 Dockable=1
@@ -271,31 +368,11 @@ MaxLeft=-1
 MaxTop=-1
 ClientWidth=2258
 ClientHeight=2988
-TBDockHeight=6519
+TBDockHeight=8913
 LRDockWidth=2258
 Dockable=1
 StayOnTop=0
 
-[PropertyInspector]
-PercentageSizes=1
-Create=1
-Visible=1
-Docked=1
-State=0
-Left=0
-Top=0
-Width=1844
-Height=3843
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=1844
-ClientHeight=3843
-TBDockHeight=412
-LRDockWidth=1906
-Dockable=1
-StayOnTop=0
-SplitPos=95
-
 [RMAddinTool]
 PercentageSizes=1
 Create=1
@@ -303,7 +380,7 @@ Visible=0
 Docked=1
 State=0
 Left=-9
-Top=-103
+Top=1001
 Width=5305
 Height=5141
 MaxLeft=-1
@@ -324,11 +401,11 @@ State=0
 Left=0
 Top=0
 Width=3766
-Height=4698
+Height=724
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=3766
-ClientHeight=4698
+ClientHeight=724
 TBDockHeight=2072
 LRDockWidth=3484
 Dockable=1
@@ -427,11 +504,11 @@ State=0
 Left=0
 Top=0
 Width=3766
-Height=4698
+Height=724
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=3766
-ClientHeight=4698
+ClientHeight=724
 TBDockHeight=412
 LRDockWidth=4953
 Dockable=1
@@ -446,11 +523,11 @@ State=0
 Left=0
 Top=0
 Width=3766
-Height=4698
+Height=724
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=3766
-ClientHeight=4698
+ClientHeight=724
 TBDockHeight=201
 LRDockWidth=7414
 Dockable=1
@@ -469,17 +546,17 @@ State=0
 Left=0
 Top=0
 Width=3766
-Height=4698
+Height=724
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=3766
-ClientHeight=4698
+ClientHeight=724
 TBDockHeight=262
 LRDockWidth=3484
 Dockable=1
 StayOnTop=0
 
-[ModelViewTool]
+[PropertyInspector]
 PercentageSizes=1
 Create=1
 Visible=1
@@ -487,16 +564,17 @@ Docked=1
 State=0
 Left=0
 Top=0
-Width=2195
+Width=1844
-Height=3964
+Height=3843
 MaxLeft=-1
 MaxTop=-1
-ClientWidth=2195
+ClientWidth=1844
-ClientHeight=3964
+ClientHeight=3843
-TBDockHeight=4879
+TBDockHeight=412
-LRDockWidth=5305
+LRDockWidth=1906
 Dockable=1
 StayOnTop=0
+SplitPos=95
 
 [BreakpointWindow]
 PercentageSizes=1
@@ -507,11 +585,11 @@ State=0
 Left=0
 Top=0
 Width=3766
-Height=4698
+Height=724
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=3766
-ClientHeight=4698
+ClientHeight=724
 TBDockHeight=1549
 LRDockWidth=8742
 Dockable=1
@@ -587,72 +665,26 @@ DockHostCount=4
 DockSiteType=1
 PercentageSizes=1
 Create=1
-Visible=1
-Docked=1
-State=0
-Left=0
-Top=384
-Width=1906
-Height=3944
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=1906
-ClientHeight=3944
-TBDockHeight=5111
-LRDockWidth=1906
-Dockable=1
-StayOnTop=0
-TabPosition=1
-ActiveTabID=PropertyInspector
-TabDockClients=PropertyInspector,RMAddinTool
-
-[DockSite1]
-DockSiteType=1
-PercentageSizes=1
-Create=1
-Visible=1
-Docked=1
-State=0
-Left=0
-Top=23
-Width=2258
-Height=4316
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=2258
-ClientHeight=4316
-TBDockHeight=6318
-LRDockWidth=2258
-Dockable=1
-StayOnTop=0
-TabPosition=1
-ActiveTabID=ProjectManager
-TabDockClients=ProjectManager,ModelViewTool,DataExplorer
-
-[DockSite2]
-DockSiteType=1
-PercentageSizes=1
-Create=1
 Visible=0
 Docked=1
 State=0
 Left=-5
-Top=-990
+Top=-860
 Width=3828
-Height=5050
+Height=1076
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=3828
-ClientHeight=5050
+ClientHeight=1076
-TBDockHeight=5050
+TBDockHeight=1076
 LRDockWidth=3828
 Dockable=1
 StayOnTop=0
 TabPosition=1
 ActiveTabID=LocalVarsWindow
-TabDockClients=BreakpointWindow,CallStackWindow,WatchWindow,ThreadStatusWindow,DebugLogView,LocalVarsWindow
+TabDockClients=BreakpointWindow,ThreadStatusWindow,DebugLogView,CallStackWindow,WatchWindow,LocalVarsWindow
 
-[DockSite3]
+[DockSite1]
 DockSiteType=1
 PercentageSizes=1
 Create=1
@@ -660,7 +692,7 @@ Visible=0
 Docked=1
 State=0
 Left=-252
-Top=-990
+Top=-857
 Width=2336
 Height=2314
 MaxLeft=-1
@@ -675,3 +707,49 @@ TabPosition=1
 ActiveTabID=FindReferencsForm
 TabDockClients=RefactoringForm,FindReferencsForm
 
+[DockSite2]
+DockSiteType=1
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=23
+Width=2258
+Height=4316
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=2258
+ClientHeight=4316
+TBDockHeight=1670
+LRDockWidth=2258
+Dockable=1
+StayOnTop=0
+TabPosition=1
+ActiveTabID=ProjectManager
+TabDockClients=ProjectManager,DataExplorer
+
+[DockSite3]
+DockSiteType=1
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=384
+Width=1906
+Height=3944
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=1906
+ClientHeight=3944
+TBDockHeight=1740
+LRDockWidth=1906
+Dockable=1
+StayOnTop=0
+TabPosition=1
+ActiveTabID=RMAddinTool
+TabDockClients=RMAddinTool,PropertyInspector
+

2.02g/Project/delphi6/Apophysis202.dpr

@@ -15,7 +15,6 @@
      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'}
@@ -33,6 +32,7 @@ uses
   MyTypes in '..\..\Source\MyTypes.pas',
   Fullscreen in '..\..\Source\Fullscreen.pas' {FullscreenForm},
   Render in '..\..\Source\Render.pas',
+  Render32 in '..\..\Source\Render32.pas',
   RenderThread in '..\..\Source\RenderThread.pas',
   FormRender in '..\..\Source\FormRender.pas' {RenderForm},
   Mutate in '..\..\Source\Mutate.pas' {MutateForm},

2.02g/Source/ControlPoint.pas

@@ -39,11 +39,15 @@ type
     vHandkerchief, vHeart, vDisc, vSpiral, vHyperbolic, vSquare, vEx, vJulia,
     vBent, vWaves, vFisheye, vPopcorn, vExponential, vPower, vCosine, vSawTooth, vRandom);
 type
-  TCPpoint = record
+
-    x, y, c: double;
-  end;
-  PCPpoint = ^TCPpoint;
   TPointsArray = array of TCPpoint;
+  TPointsXYArray = array of TXYpoint;
+
+  T2Cpoint = record
+    x, y, c1, c2: double;
+  end;
+  P2Cpoint = ^T2Cpoint;
+  T2CPointsArray = array of T2Cpoint;
 
   TControlPoint = class
   public
@@ -81,6 +85,7 @@ type
     PropTable: array of Integer;
     jpeg: TJPegImage;
     FAngle: Double;
+    FTwoColorDimensions: Boolean;
   private
     procedure PreparePropTable;
 
@@ -90,9 +95,7 @@ type
 
     procedure ParseString(aString: string);
     procedure ParseStringList(sl: TStringlist);
-//    procedure RandomCP(calc: boolean = true);
     procedure RandomCP(min: integer = 2; max: integer = NXFORMS; calc: boolean = true);
-//    procedure RandomCP;
     procedure RandomCP1;
     procedure CalcBoundbox;
     function BlowsUp(NrPoints: integer): boolean;
@@ -102,8 +105,10 @@ type
 
     class function interpolate(cp1, cp2: TControlPoint; Time: double): TControlPoint; /// just for now
     procedure InterpolateX(cp1, cp2: TControlPoint; Tm: double);
-    procedure Iterate(NrPoints: integer; var Points: TPointsArray);
+    procedure Iterate_Old(NrPoints: integer; var Points: TPointsArray);
-    procedure Iterate_d(NrPoints: integer; var Points: TPointsArray);
+    procedure IterateXY(NrPoints: integer; var Points: TPointsXYArray);
+    procedure IterateXYC(NrPoints: integer; var Points: TPointsArray);
+    procedure IterateXYCC(NrPoints: integer; var Points: T2CPointsArray);
 
     function Clone: TControlPoint;
     procedure Copy(cp1: TControlPoint);
@@ -180,6 +185,8 @@ begin
   nbatches := 1;
 
   white_level := 200;
+
+  FTwoColorDimensions := False;
 end;
 
 destructor TControlPoint.Destroy;
@@ -221,7 +228,7 @@ begin
   end;
 end;
 
-procedure TControlPoint.Iterate(NrPoints: integer; var Points: TPointsArray);
+procedure TControlPoint.Iterate_Old(NrPoints: integer; var Points: TPointsArray);
 var
   i: Integer;
   px, py, pc: double;
@@ -452,7 +459,38 @@ begin
   end;
 end;
 
-procedure TControlPoint.Iterate_d(NrPoints: integer; var Points: TPointsArray);
+procedure TControlPoint.IterateXY(NrPoints: integer; var Points: TPointsXYArray);
+var
+  i: Integer;
+  px, py: double;
+  CurrentPoint: PXYPoint;
+begin
+  px := 2 * random - 1;
+  py := 2 * random - 1;
+
+  PreparePropTable;
+
+  for i := 0 to NXFORMS - 1 do
+    xform[i].prepare;
+
+  for i := -100 to NrPoints - 1 do begin
+    try
+      xform[PropTable[Random(1024)]].NextPointXY(px,py);
+    except
+      on EMathError do begin
+        exit;
+      end;
+    end;
+    // store points
+    if i >= 0 then begin
+      CurrentPoint := @Points[i];
+      CurrentPoint.X := px;
+      CurrentPoint.Y := py;
+    end
+  end;
+end;
+
+procedure TControlPoint.IterateXYC(NrPoints: integer; var Points: TPointsArray);
 { Variations for Draves conpatibility }
 var
   i: Integer;
@@ -473,7 +511,6 @@ begin
       xform[PropTable[Random(1024)]].NextPoint(px,py,pc);
     except
       on EMathError do begin
-//      raise Exception.Create('Iteration blows up');
         exit;
       end;
     end;
@@ -487,21 +524,16 @@ begin
   end;
 end;
 
-function TControlPoint.BlowsUp(NrPoints: integer): boolean;
+procedure TControlPoint.IterateXYCC(NrPoints: integer; var Points: T2CPointsArray);
 var
   i: Integer;
-  px, py, pc: double;
+  px, py, pc1, pc2: double;
-  minx, maxx, miny, maxy: double;
+  CurrentPoint: P2Cpoint;
-  Points: TPointsArray;
-  CurrentPoint: PCPPoint;
 begin
-  Result := false;
-
-  SetLength(Points, SUB_BATCH_SIZE);
-  
   px := 2 * random - 1;
   py := 2 * random - 1;
-  pc := random;
+  pc1 := random;
+  pc2 := random;
 
   PreparePropTable;
 
@@ -510,12 +542,51 @@ begin
 
   for i := -100 to NrPoints - 1 do begin
     try
-      xform[PropTable[Random(1024)]].NextPoint(px,py,pc);
+      xform[PropTable[Random(1024)]].NextPoint2C(px, py, pc1, pc2);
+    except
+      on EMathError do begin
+        exit;
+      end;
+    end;
+    // store points
+    if i >= 0 then begin
+      CurrentPoint := @Points[i];
+      CurrentPoint.X  := px;
+      CurrentPoint.Y  := py;
+      CurrentPoint.C1 := pc1;
+      CurrentPoint.C2 := pc2;
+    end
+  end;
+end;
+
+
+function TControlPoint.BlowsUp(NrPoints: integer): boolean;
+var
+  i: Integer;
+  px, py: double;
+  minx, maxx, miny, maxy: double;
+  Points: TPointsXYArray;
+  CurrentPoint: PXYPoint;
+begin
+  Result := false;
+
+  SetLength(Points, SUB_BATCH_SIZE);
+
+  px := 2 * random - 1;
+  py := 2 * random - 1;
+
+  PreparePropTable;
+
+  for i := 0 to NXFORMS - 1 do
+    xform[i].prepare;
+
+  for i := -100 to NrPoints - 1 do begin
+    try
+      xform[PropTable[Random(1024)]].NextPointXY(px,py);
       if i >= 0 then begin
         CurrentPoint := @Points[i];
         CurrentPoint.X := px;
         CurrentPoint.Y := py;
-        CurrentPoint.C := pc;
       end
     except
       on EMathError do begin
@@ -849,8 +920,8 @@ begin
   try
     SetLength(Points, SUB_BATCH_SIZE);
     case compatibility of
-      0: iterate(SUB_BATCH_SIZE, points);
+      0: iterate_Old(SUB_BATCH_SIZE, points);
-      1: iterate_d(SUB_BATCH_SIZE, points);
+      1: iterateXYC(SUB_BATCH_SIZE, points);
     end;
 
     LimitOutSidePoints := Round(0.05 * SUB_BATCH_SIZE);
@@ -921,14 +992,17 @@ begin
     else
       pixels_per_unit := 10;
   except on E: EMathError do
-    pixels_per_unit := 10;
+    begin// default
+      center[0] := 0;
+      center[1] := 0;
+      pixels_per_unit := 10;
+    end;
   end;
-
 end;
 
 function CalcUPRMagn(const cp: TControlPoint): double;
 var
-  Points: TPointsArray;
+  Points: TPointsXYArray;
   i, j: integer;
   deltax, minx, maxx: double;
   cntminx, cntmaxx: integer;
@@ -937,10 +1011,9 @@ var
   LimitOutSidePoints: integer;
   xLength, yLength: double;
 begin
-  result := 1.0;
   try
     SetLength(Points, SUB_BATCH_SIZE);
-    cp.iterate_d(SUB_BATCH_SIZE, Points);
+    cp.iterateXY(SUB_BATCH_SIZE, Points);
 
     LimitOutSidePoints := Round(0.05 * SUB_BATCH_SIZE);
 
@@ -1023,8 +1096,8 @@ begin
     end;
 
   except on E: EMathError do
+    raise Exception.Create('CalcUPRMagn: ' +e.Message);
   end;
-
 end;
 
 
@@ -1235,8 +1308,6 @@ begin
   result.free;
 end;
 
-
-
 procedure TControlPoint.SaveToFile(Filename: string);
 var
   sl: TStringlist;

2.02g/Source/Main.dfm

@@ -2,7 +2,7 @@ object MainForm: TMainForm
   Left = 316
   Top = 424
   Width = 574
-  Height = 395
+  Height = 415
   Caption = 'Apophysis'
   Color = clBtnFace
   Font.Charset = ANSI_CHARSET
@@ -27,7 +27,7 @@ object MainForm: TMainForm
     Left = 160
     Top = 28
     Width = 4
-    Height = 294
+    Height = 314
   end
   object ToolBar: TToolBar
     Left = 0
@@ -251,7 +251,7 @@ object MainForm: TMainForm
     Left = 0
     Top = 28
     Width = 160
-    Height = 294
+    Height = 314
     Align = alLeft
     Columns = <
       item
@@ -270,7 +270,7 @@ object MainForm: TMainForm
     Left = 164
     Top = 28
     Width = 402
-    Height = 294
+    Height = 314
     Align = alClient
     BevelInner = bvLowered
     BevelOuter = bvNone
@@ -281,7 +281,7 @@ object MainForm: TMainForm
       Left = 1
       Top = 1
       Width = 400
-      Height = 292
+      Height = 312
       Align = alClient
       AutoSize = True
       PopupMenu = DisplayPopup
@@ -293,7 +293,7 @@ object MainForm: TMainForm
   end
   object StatusBar: TStatusBar
     Left = 0
-    Top = 322
+    Top = 342
     Width = 566
     Height = 19
     Panels = <
@@ -2616,6 +2616,10 @@ object MainForm: TMainForm
         ShortCut = 16455
         OnClick = mnuGradClick
       end
+      object mnuimage: TMenuItem
+        Caption = 'Image '
+        OnClick = mnuimageClick
+      end
       object N4: TMenuItem
         Caption = '-'
       end

2.02g/Source/Main.pas

@@ -221,6 +221,8 @@ type
     tbzoomwindow: TToolButton;
     tbDrag: TToolButton;
     tbRotate: TToolButton;
+    mnuimage: TMenuItem;
+    procedure mnuimageClick(Sender: TObject);
     procedure mnuExitClick(Sender: TObject);
     procedure mnuSaveUPRClick(Sender: TObject);
     procedure ListViewChange(Sender: TObject; Item: TListItem;
@@ -906,8 +908,9 @@ begin
     Trunc((Elapsed * 24 - Trunc(Elapsed * 24)) * 60),
       Trunc((Elapsed * 24 * 60 - Trunc(Elapsed * 24 * 60)) * 60),
       Trunc((Elapsed * 24 * 60 * 60 - Trunc(Elapsed * 24 * 60 * 60)) * 100)]);
-  if prog > 0 then
+  if prog > 0 then 
     Remainder := Min(Remainder, Elapsed * (power(1 / prog, 1.2) - 1));
+
   StatusBar.Panels[1].Text := Format('Remaining %2.2d:%2.2d:%2.2d.%2.2d',
     [Trunc(Remainder * 24),
     Trunc((Remainder * 24 - Trunc(Remainder * 24)) * 60),
@@ -3100,6 +3103,12 @@ begin
   GradientForm.Show;
 end;
 
+///////////////////////////////////////////////////////////////////////////////
+procedure TMainForm.mnuimageClick(Sender: TObject);
+begin
+//  frmImageColoring.Show;
+end;
+
 procedure swapcolor(var clist: array of cardinal; i, j: integer);
 var
   t: cardinal;
@@ -4377,7 +4386,9 @@ begin
         StopThread;
         UpdateUndo;
         MainCp.ZoomtoRect(FSelectRect);
-        DrawFlame;
+
+        RedrawTimer.Enabled := True;
+        UpdateWindows;
       end;
     msDragMove:
       begin
@@ -4393,7 +4404,9 @@ begin
         StopThread;
         UpdateUndo;
         MainCp.MoveRect(FSelectRect);
-        DrawFlame;
+
+        RedrawTimer.Enabled := True;
+        UpdateWindows;
       end;
     msRotateMove:
       begin
@@ -4407,7 +4420,9 @@ begin
         StopThread;
         UpdateUndo;
         MainCp.Rotate(FRotateAngle);
-        DrawFlame;
+
+        RedrawTimer.Enabled := True;
+        UpdateWindows;
       end;
   end;
 end;
@@ -4489,5 +4504,6 @@ begin
   FMouseMoveState := msRotate;
 end;
 
+
 ///////////////////////////////////////////////////////////////////////////////
 end.

2.02g/Source/ap_FileCtrl.pas

@@ -1,474 +0,0 @@
-{***************************************************************************}
-{ This source code was generated automatically by                           }
-{ Pas file import tool for Scripter Studio                                  }
-{                                                                           }
-{ Scripter Studio and Pas file import tool for Scripter Studio              }
-{ written by Automa / TMS Software                                          }
-{            copyright © 1997 - 2003                                        }
-{            Email : info@tmssoftware.com                                   }
-{            Web : http://www.tmssoftware.com                               }
-{***************************************************************************}
-unit ap_FileCtrl;
-
-interface
-
-uses
-  Windows,
-  Messages,
-  SysUtils,
-  Classes,
-  Controls,
-  Graphics,
-  Forms,
-  Menus,
-  StdCtrls,
-  Buttons,
-  FileCtrl,
-  Variants,
-  atScript;
-
-type
-  TatFileCtrlLibrary = class(TatScripterLibrary)
-    procedure __TFileListBoxCreate(AMachine: TatVirtualMachine);
-    procedure __TFileListBoxDestroy(AMachine: TatVirtualMachine);
-    procedure __TFileListBoxUpdate(AMachine: TatVirtualMachine);
-    procedure __TFileListBoxApplyFilePath(AMachine: TatVirtualMachine);
-    procedure __GetTFileListBoxDrive(AMachine: TatVirtualMachine);
-    procedure __SetTFileListBoxDrive(AMachine: TatVirtualMachine);
-    procedure __GetTFileListBoxDirectory(AMachine: TatVirtualMachine);
-    procedure __SetTFileListBoxDirectory(AMachine: TatVirtualMachine);
-    procedure __GetTFileListBoxFileName(AMachine: TatVirtualMachine);
-    procedure __SetTFileListBoxFileName(AMachine: TatVirtualMachine);
-    procedure __TDirectoryListBoxCreate(AMachine: TatVirtualMachine);
-    procedure __TDirectoryListBoxDestroy(AMachine: TatVirtualMachine);
-    procedure __TDirectoryListBoxDisplayCase(AMachine: TatVirtualMachine);
-    procedure __TDirectoryListBoxFileCompareText(AMachine: TatVirtualMachine);
-    procedure __TDirectoryListBoxGetItemPath(AMachine: TatVirtualMachine);
-    procedure __TDirectoryListBoxOpenCurrent(AMachine: TatVirtualMachine);
-    procedure __TDirectoryListBoxUpdate(AMachine: TatVirtualMachine);
-    procedure __GetTDirectoryListBoxDrive(AMachine: TatVirtualMachine);
-    procedure __SetTDirectoryListBoxDrive(AMachine: TatVirtualMachine);
-    procedure __GetTDirectoryListBoxDirectory(AMachine: TatVirtualMachine);
-    procedure __SetTDirectoryListBoxDirectory(AMachine: TatVirtualMachine);
-    procedure __GetTDirectoryListBoxPreserveCase(AMachine: TatVirtualMachine);
-    procedure __GetTDirectoryListBoxCaseSensitive(AMachine: TatVirtualMachine);
-    procedure __TDriveComboBoxCreate(AMachine: TatVirtualMachine);
-    procedure __TDriveComboBoxDestroy(AMachine: TatVirtualMachine);
-    procedure __GetTDriveComboBoxDrive(AMachine: TatVirtualMachine);
-    procedure __SetTDriveComboBoxDrive(AMachine: TatVirtualMachine);
-    procedure __TFilterComboBoxCreate(AMachine: TatVirtualMachine);
-    procedure __TFilterComboBoxDestroy(AMachine: TatVirtualMachine);
-    procedure __GetTFilterComboBoxMask(AMachine: TatVirtualMachine);
-    procedure __ProcessPath(AMachine: TatVirtualMachine);
-    procedure __MinimizeName(AMachine: TatVirtualMachine);
-    procedure __DirectoryExists(AMachine: TatVirtualMachine);
-    procedure __ForceDirectories(AMachine: TatVirtualMachine);
-    procedure Init; override;
-    class function LibraryName: string; override;
-  end;
-
-  TFileListBoxClass = class of TFileListBox;
-  TDirectoryListBoxClass = class of TDirectoryListBox;
-  TDriveComboBoxClass = class of TDriveComboBox;
-  TFilterComboBoxClass = class of TFilterComboBox;
-
-
-
-implementation
-
-{$WARNINGS OFF}
-
-
-
-procedure TatFileCtrlLibrary.__TFileListBoxCreate(AMachine: TatVirtualMachine);
-  var
-  AResult: variant;
-begin
-  with AMachine do
-  begin
-AResult := Integer(TFileListBoxClass(CurrentClass.ClassRef).Create(TComponent(Integer(GetInputArg(0)))));
-    ReturnOutputArg(AResult);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__TFileListBoxDestroy(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    TFileListBox(CurrentObject).Destroy;
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__TFileListBoxUpdate(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    TFileListBox(CurrentObject).Update;
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__TFileListBoxApplyFilePath(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    TFileListBox(CurrentObject).ApplyFilePath(GetInputArg(0));
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__GetTFileListBoxDrive(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    ReturnOutputArg(TFileListBox(CurrentObject).Drive);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__SetTFileListBoxDrive(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    TFileListBox(CurrentObject).Drive:=VarToStr(GetInputArg(0))[1];
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__GetTFileListBoxDirectory(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    ReturnOutputArg(TFileListBox(CurrentObject).Directory);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__SetTFileListBoxDirectory(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    TFileListBox(CurrentObject).Directory:=GetInputArg(0);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__GetTFileListBoxFileName(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    ReturnOutputArg(TFileListBox(CurrentObject).FileName);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__SetTFileListBoxFileName(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    TFileListBox(CurrentObject).FileName:=GetInputArg(0);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__TDirectoryListBoxCreate(AMachine: TatVirtualMachine);
-  var
-  AResult: variant;
-begin
-  with AMachine do
-  begin
-AResult := Integer(TDirectoryListBoxClass(CurrentClass.ClassRef).Create(TComponent(Integer(GetInputArg(0)))));
-    ReturnOutputArg(AResult);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__TDirectoryListBoxDestroy(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    TDirectoryListBox(CurrentObject).Destroy;
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__TDirectoryListBoxDisplayCase(AMachine: TatVirtualMachine);
-  var
-  AResult: variant;
-begin
-  with AMachine do
-  begin
-AResult := TDirectoryListBox(CurrentObject).DisplayCase(GetInputArg(0));
-    ReturnOutputArg(AResult);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__TDirectoryListBoxFileCompareText(AMachine: TatVirtualMachine);
-  var
-  AResult: variant;
-begin
-  with AMachine do
-  begin
-AResult := Integer(TDirectoryListBox(CurrentObject).FileCompareText(GetInputArg(0),GetInputArg(1)));
-    ReturnOutputArg(AResult);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__TDirectoryListBoxGetItemPath(AMachine: TatVirtualMachine);
-  var
-  AResult: variant;
-begin
-  with AMachine do
-  begin
-AResult := TDirectoryListBox(CurrentObject).GetItemPath(VarToInteger(GetInputArg(0)));
-    ReturnOutputArg(AResult);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__TDirectoryListBoxOpenCurrent(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    TDirectoryListBox(CurrentObject).OpenCurrent;
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__TDirectoryListBoxUpdate(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    TDirectoryListBox(CurrentObject).Update;
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__GetTDirectoryListBoxDrive(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    ReturnOutputArg(TDirectoryListBox(CurrentObject).Drive);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__SetTDirectoryListBoxDrive(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    TDirectoryListBox(CurrentObject).Drive:=VarToStr(GetInputArg(0))[1];
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__GetTDirectoryListBoxDirectory(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    ReturnOutputArg(TDirectoryListBox(CurrentObject).Directory);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__SetTDirectoryListBoxDirectory(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    TDirectoryListBox(CurrentObject).Directory:=GetInputArg(0);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__GetTDirectoryListBoxPreserveCase(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    ReturnOutputArg(TDirectoryListBox(CurrentObject).PreserveCase);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__GetTDirectoryListBoxCaseSensitive(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    ReturnOutputArg(TDirectoryListBox(CurrentObject).CaseSensitive);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__TDriveComboBoxCreate(AMachine: TatVirtualMachine);
-  var
-  AResult: variant;
-begin
-  with AMachine do
-  begin
-AResult := Integer(TDriveComboBoxClass(CurrentClass.ClassRef).Create(TComponent(Integer(GetInputArg(0)))));
-    ReturnOutputArg(AResult);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__TDriveComboBoxDestroy(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    TDriveComboBox(CurrentObject).Destroy;
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__GetTDriveComboBoxDrive(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    ReturnOutputArg(TDriveComboBox(CurrentObject).Drive);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__SetTDriveComboBoxDrive(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    TDriveComboBox(CurrentObject).Drive:=VarToStr(GetInputArg(0))[1];
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__TFilterComboBoxCreate(AMachine: TatVirtualMachine);
-  var
-  AResult: variant;
-begin
-  with AMachine do
-  begin
-AResult := Integer(TFilterComboBoxClass(CurrentClass.ClassRef).Create(TComponent(Integer(GetInputArg(0)))));
-    ReturnOutputArg(AResult);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__TFilterComboBoxDestroy(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    TFilterComboBox(CurrentObject).Destroy;
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__GetTFilterComboBoxMask(AMachine: TatVirtualMachine);
-begin
-  with AMachine do
-  begin
-    ReturnOutputArg(TFilterComboBox(CurrentObject).Mask);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__ProcessPath(AMachine: TatVirtualMachine);
-  var
-  Param1: Char;
-  Param2: string;
-  Param3: string;
-begin
-  with AMachine do
-  begin
-Param1 := VarToStr(GetInputArg(1))[1];
-Param2 := GetInputArg(2);
-Param3 := GetInputArg(3);
-    FileCtrl.ProcessPath(GetInputArg(0),Param1,Param2,Param3);
-    SetInputArg(1,Param1);
-    SetInputArg(2,Param2);
-    SetInputArg(3,Param3);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__MinimizeName(AMachine: TatVirtualMachine);
-  var
-  AResult: variant;
-begin
-  with AMachine do
-  begin
-AResult := FileCtrl.MinimizeName(GetInputArg(0),TCanvas(Integer(GetInputArg(1))),VarToInteger(GetInputArg(2)));
-    ReturnOutputArg(AResult);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__DirectoryExists(AMachine: TatVirtualMachine);
-  var
-  AResult: variant;
-begin
-  with AMachine do
-  begin
-AResult := FileCtrl.DirectoryExists(GetInputArg(0));
-    ReturnOutputArg(AResult);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.__ForceDirectories(AMachine: TatVirtualMachine);
-  var
-  AResult: variant;
-begin
-  with AMachine do
-  begin
-AResult := FileCtrl.ForceDirectories(GetInputArg(0));
-    ReturnOutputArg(AResult);
-  end;
-end;
-
-procedure TatFileCtrlLibrary.Init;
-begin
-  With Scripter.DefineClass(TFileListBox) do
-  begin
-    DefineMethod('Create',1,tkClass,TFileListBox,__TFileListBoxCreate,true);
-    DefineMethod('Destroy',0,tkNone,nil,__TFileListBoxDestroy,false);
-    DefineMethod('Update',0,tkNone,nil,__TFileListBoxUpdate,false);
-    DefineMethod('ApplyFilePath',1,tkNone,nil,__TFileListBoxApplyFilePath,false);
-    DefineProp('Drive',tkVariant,__GetTFileListBoxDrive,__SetTFileListBoxDrive,nil,false,0);
-    DefineProp('Directory',tkVariant,__GetTFileListBoxDirectory,__SetTFileListBoxDirectory,nil,false,0);
-    DefineProp('FileName',tkVariant,__GetTFileListBoxFileName,__SetTFileListBoxFileName,nil,false,0);
-  end;
-  With Scripter.DefineClass(TDirectoryListBox) do
-  begin
-    DefineMethod('Create',1,tkClass,TDirectoryListBox,__TDirectoryListBoxCreate,true);
-    DefineMethod('Destroy',0,tkNone,nil,__TDirectoryListBoxDestroy,false);
-    DefineMethod('DisplayCase',1,tkVariant,nil,__TDirectoryListBoxDisplayCase,false);
-    DefineMethod('FileCompareText',2,tkInteger,nil,__TDirectoryListBoxFileCompareText,false);
-    DefineMethod('GetItemPath',1,tkVariant,nil,__TDirectoryListBoxGetItemPath,false);
-    DefineMethod('OpenCurrent',0,tkNone,nil,__TDirectoryListBoxOpenCurrent,false);
-    DefineMethod('Update',0,tkNone,nil,__TDirectoryListBoxUpdate,false);
-    DefineProp('Drive',tkVariant,__GetTDirectoryListBoxDrive,__SetTDirectoryListBoxDrive,nil,false,0);
-    DefineProp('Directory',tkVariant,__GetTDirectoryListBoxDirectory,__SetTDirectoryListBoxDirectory,nil,false,0);
-    DefineProp('PreserveCase',tkVariant,__GetTDirectoryListBoxPreserveCase,nil,nil,false,0);
-    DefineProp('CaseSensitive',tkVariant,__GetTDirectoryListBoxCaseSensitive,nil,nil,false,0);
-  end;
-  With Scripter.DefineClass(TDriveComboBox) do
-  begin
-    DefineMethod('Create',1,tkClass,TDriveComboBox,__TDriveComboBoxCreate,true);
-    DefineMethod('Destroy',0,tkNone,nil,__TDriveComboBoxDestroy,false);
-    DefineProp('Text',tkVariant,nil,nil,nil,false,0);
-    DefineProp('Drive',tkVariant,__GetTDriveComboBoxDrive,__SetTDriveComboBoxDrive,nil,false,0);
-  end;
-  With Scripter.DefineClass(TFilterComboBox) do
-  begin
-    DefineMethod('Create',1,tkClass,TFilterComboBox,__TFilterComboBoxCreate,true);
-    DefineMethod('Destroy',0,tkNone,nil,__TFilterComboBoxDestroy,false);
-    DefineProp('Mask',tkVariant,__GetTFilterComboBoxMask,nil,nil,false,0);
-    DefineProp('Text',tkVariant,nil,nil,nil,false,0);
-  end;
-  With Scripter.DefineClass(ClassType) do
-  begin
-    DefineMethod('ProcessPath',4,tkNone,nil,__ProcessPath,false).SetVarArgs([1,2,3]);
-    DefineMethod('MinimizeName',3,tkVariant,nil,__MinimizeName,false);
-    DefineMethod('DirectoryExists',1,tkVariant,nil,__DirectoryExists,false);
-    DefineMethod('ForceDirectories',1,tkVariant,nil,__ForceDirectories,false);
-    AddConstant('ftReadOnly',ftReadOnly);
-    AddConstant('ftHidden',ftHidden);
-    AddConstant('ftSystem',ftSystem);
-    AddConstant('ftVolumeID',ftVolumeID);
-    AddConstant('ftDirectory',ftDirectory);
-    AddConstant('ftArchive',ftArchive);
-    AddConstant('ftNormal',ftNormal);
-    AddConstant('dtUnknown',dtUnknown);
-    AddConstant('dtNoDrive',dtNoDrive);
-    AddConstant('dtFloppy',dtFloppy);
-    AddConstant('dtFixed',dtFixed);
-    AddConstant('dtNetwork',dtNetwork);
-    AddConstant('dtCDROM',dtCDROM);
-    AddConstant('dtRAM',dtRAM);
-    AddConstant('tcLowerCase',tcLowerCase);
-    AddConstant('tcUpperCase',tcUpperCase);
-    AddConstant('sdAllowCreate',sdAllowCreate);
-    AddConstant('sdPerformCreate',sdPerformCreate);
-    AddConstant('sdPrompt',sdPrompt);
-    AddConstant('WNTYPE_DRIVE',WNTYPE_DRIVE);
-  end;
-end;
-
-class function TatFileCtrlLibrary.LibraryName: string;
-begin
-  result := 'FileCtrl';
-end;
-
-initialization
-  RegisterScripterLibrary(TatFileCtrlLibrary, True);
-
-{$WARNINGS ON}
-
-end.