mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

version 203a

Browse Source 
check before export
gradient saved in different field
This commit is contained in:
ronaldhordijk 2005-10-02 07:33:11 +00:00
parent 45f50d18d3
commit f3d73d6d6f
2 changed files with 21 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
2.10/Source/Main.dfm
View File

@ -2,7 +2,7 @@ object MainForm: TMainForm
Left = 387 Left = 387
Top = 166 Top = 166
Width = 605 Width = 605
Height = 595 Height = 615
Caption = 'Apophysis' Caption = 'Apophysis'
Color = clBtnFace Color = clBtnFace
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -27,7 +27,7 @@ object MainForm: TMainForm
Left = 160 Left = 160
Top = 28 Top = 28
Width = 4 Width = 4
Height = 498 Height = 514
end end
object ToolBar: TToolBar object ToolBar: TToolBar
Left = 0 Left = 0
@ -284,7 +284,7 @@ object MainForm: TMainForm
Left = 0 Left = 0
Top = 28 Top = 28
Width = 160 Width = 160
Height = 498 Height = 514
Align = alLeft Align = alLeft
Columns = < Columns = <
item item
@ -303,7 +303,7 @@ object MainForm: TMainForm
Left = 164 Left = 164
Top = 28 Top = 28
Width = 433 Width = 433
Height = 498 Height = 514
Align = alClient Align = alClient
BevelInner = bvLowered BevelInner = bvLowered
BevelOuter = bvNone BevelOuter = bvNone
@ -314,7 +314,7 @@ object MainForm: TMainForm
Left = 1 Left = 1
Top = 1 Top = 1
Width = 431 Width = 431
Height = 496 Height = 512
Align = alClient Align = alClient
AutoSize = True AutoSize = True
PopupMenu = DisplayPopup PopupMenu = DisplayPopup
@ -327,7 +327,7 @@ object MainForm: TMainForm
end end
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Top = 526 Top = 542
Width = 597 Width = 597
Height = 19 Height = 19
Panels = < Panels = <

22
2.10/Source/Main.pas
View File

@ -1364,11 +1364,14 @@ begin
x := cp1.center[0]; x := cp1.center[0];
y := cp1.center[1]; y := cp1.center[1];
pal := ''; hue := ''; pal := ''; hue := '';
// if sheep then if sheep then begin
// begin
if cp1.cmapindex >= 0 then pal := 'palette="' + IntToStr(cp1.cmapindex) + '" '; if cp1.cmapindex >= 0 then pal := 'palette="' + IntToStr(cp1.cmapindex) + '" ';
hue := 'hue="' + format('%g', [cp1.hue_rotation]) + '" '; hue := 'hue="' + format('%g', [cp1.hue_rotation]) + '" ';
// end; end;
if cp1.cmapindex >= 0 then
pal := pal + 'gradient="' + IntToStr(cp1.cmapindex) + '" ';
if Trim(SheepNick) <> '' then nick := 'nick="' + Trim(SheepNick) + '"'; if Trim(SheepNick) <> '' then nick := 'nick="' + Trim(SheepNick) + '"';
if Trim(SheepURL) <> '' then url := 'url="' + Trim(SheepURL) + '" '; if Trim(SheepURL) <> '' then url := 'url="' + Trim(SheepURL) + '" ';
try try
@ -3697,10 +3700,10 @@ var
Ext, ex, Path: string; Ext, ex, Path: string;
cp1: TControlPoint; cp1: TControlPoint;
begin begin
// if MainCp.FAngle <> 0 then begin if (MainCp.NumXForms > 12) or
// showMessage('This flame is rotated. It cannot be correctly rendered this way'); (MainCP.HasNewVariants) then begin
// Exit; showMessage('This flame will not be correctly rendered this way. Please use the internal renderer.');
// end; end;
if not FileExists(HqiPath) then if not FileExists(HqiPath) then
begin begin
@ -3899,6 +3902,11 @@ begin
v := Attributes.Value('time'); v := Attributes.Value('time');
if v <> '' then Parsecp.Time := StrToFloat(v); if v <> '' then Parsecp.Time := StrToFloat(v);
v := Attributes.value('palette'); v := Attributes.value('palette');
if v <> '' then
Parsecp.cmapindex := StrToInt(v)
else
Parsecp.cmapindex := -1;
v := Attributes.value('gradient');
if v <> '' then if v <> '' then
Parsecp.cmapindex := StrToInt(v) Parsecp.cmapindex := StrToInt(v)
else else