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

Transparency flag taken into account while exporting a flame to flam3.

Browse Source
This commit is contained in:
utak3r 2007-06-23 19:16:19 +00:00
parent 7adacafe1e
commit 0510cb43aa
1 changed files with 56 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
2.10/Source/Main.pas
View File

@ -42,7 +42,7 @@ const
RS_XO = 2; RS_XO = 2;
RS_VO = 3; RS_VO = 3;
AppVersionString = 'Apophysis 2.06 alpha 1'; AppVersionString = 'Apophysis 2.06 pre-release 5';
type type
TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove, TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove,
@ -286,6 +286,8 @@ type
procedure mnuRenderAllClick(Sender: TObject); procedure mnuRenderAllClick(Sender: TObject);
procedure ListViewChanging(Sender: TObject; Item: TListItem; procedure ListViewChanging(Sender: TObject; Item: TListItem;
Change: TItemChange; var AllowChange: Boolean); Change: TItemChange; var AllowChange: Boolean);
procedure ListViewInfoTip(Sender: TObject; Item: TListItem;
var InfoTip: String);
private private
Renderer: TRenderThread; Renderer: TRenderThread;
@ -3882,7 +3884,7 @@ var
begin begin
if not FileExists(flam3Path) then if not FileExists(flam3Path) then
begin begin
Application.MessageBox('The flam3-render.exe renderer could not be find'+#13#10+ Application.MessageBox('The flam3-render.exe renderer could not be found'+#13#10+
'at a specified location.'+#13#10+ 'at a specified location.'+#13#10+
'Please check your settings in Options -> Paths -> Export renderer.', 'Please check your settings in Options -> Paths -> Export renderer.',
'Apophysis', 16); 'Apophysis', 16);
@ -3955,6 +3957,10 @@ begin
end; end;
if ExportDialog.udStrips.Position > 1 then if ExportDialog.udStrips.Position > 1 then
FileList.Add('set nstrips=' + IntToStr(ExportDialog.udStrips.Position)); FileList.Add('set nstrips=' + IntToStr(ExportDialog.udStrips.Position));
if (PNGTransparency > 0) then
FileList.Add('set transparency=1')
else
FileList.Add('set transparency=0');
FileList.Add('set out=' + ExportDialog.Filename); FileList.Add('set out=' + ExportDialog.Filename);
FileList.Add('@echo Rendering "' + ExportDialog.Filename + '"'); FileList.Add('@echo Rendering "' + ExportDialog.Filename + '"');
{ {
@ -4921,4 +4927,52 @@ begin
} }
end; end;
procedure TMainForm.ListViewInfoTip(Sender: TObject; Item: TListItem;
var InfoTip: String);
var
Bitmap: TBitmap;
lcp: TControlPoint;
begin
// flame preview in a tooltip...
{
BitMap := TBitMap.create;
Bitmap.PixelFormat := pf24bit;
BitMap.Width := 100;
BitMap.Height := 100;
lcp := TControlPoint.Create;
lcp.Copy(mainCP);
lcp.cmap := mainCP.cmap;
if Assigned(Renderer) then begin
Renderer.WaitFor;
Renderer.Free;
end;
if not Assigned(Renderer) then
begin
lcp.sample_density := 1;
lcp.spatial_oversample := 1;
lcp.spatial_filter_radius := 0.3;
lcp.AdjustScale(100, 100);
lcp.Transparency := false;
end;
try
Renderer := TRenderThread.Create;
assert(Renderer <> nil);
Renderer.BitsPerSample := 0
Renderer.TargetHandle := self.Handle;
Renderer.SetCP(lcp);
Renderer.Priority := tpLower;
Renderer.NrThreads := 1
Renderer.Resume;
Renderer.WaitFor;
except
end;
lcp.Free;
Bitmap.Free;
}
end;
end. end.