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

removed some unnecessary vars, AFAIR :)

Browse Source
This commit is contained in:
zueuk 2006-09-17 08:03:11 +00:00
parent ede0bbfded
commit e72eee7dd9
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
2.10/Source/Main.pas
View File

@ -39,7 +39,7 @@ const
RS_XO = 2; RS_XO = 2;
RS_VO = 3; RS_VO = 3;
AppVersionString = 'Apophysis 2.05 pre-release 15'; AppVersionString = 'Apophysis 2.05 pre-release 16';
type type
TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove, TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove,
@ -1313,7 +1313,7 @@ begin
end; end;
function FlameToXML(const cp1: TControlPoint; sheep: boolean; exporting: boolean = false): string; function FlameToXML(const cp1: TControlPoint; exporting: boolean): string;
var var
t, i{, j}: integer; t, i{, j}: integer;
FileList: TStringList; FileList: TStringList;
@ -1393,13 +1393,11 @@ begin
end; end;
{ Write palette data } { Write palette data }
if not sheep then begin if exporting or OldPaletteFormat then
if exporting then FileList.Add(ColorToXml(cp1))
FileList.Add(ColorToXml(cp1)) else
else FileList.Add(ColorToXmlCompact(cp1));
FileList.Add(ColorToXmlCompact(cp1));
end;
FileList.Add('</flame>'); FileList.Add('</flame>');
result := FileList.text; result := FileList.text;
@ -3857,7 +3855,7 @@ begin
cp1.estimator_curve := ExportEstimatorCurve; cp1.estimator_curve := ExportEstimatorCurve;
cp1.jitters := ExportJitters; cp1.jitters := ExportJitters;
cp1.gamma_treshold := ExportGammaTreshold; cp1.gamma_treshold := ExportGammaTreshold;
FileList.Text := FlameToXML(cp1, false, true); FileList.Text := FlameToXML(cp1, true);
FileList.SaveToFile(ChangeFileExt(ExportDialog.Filename, '.flame')); FileList.SaveToFile(ChangeFileExt(ExportDialog.Filename, '.flame'));
FileList.Clear; FileList.Clear;
FileList.Add('@echo off'); FileList.Add('@echo off');