[Apophysis-cvs-commits] 2.10/Source Main.pas,1.59,1.60

[Piotr B. <ut...@us...>]

Update of /cvsroot/apophysis/2.10/Source
In directory sc8-pr-cvs11.sourceforge.net:/tmp/cvs-serv6413

Modified Files:
	Main.pas 
Log Message:
Transparency flag taken into account while exporting a flame to flam3.

Index: Main.pas
===================================================================
RCS file: /cvsroot/apophysis/2.10/Source/Main.pas,v
retrieving revision 1.59
retrieving revision 1.60
diff -C2 -d -r1.59 -r1.60
*** Main.pas	4 Jun 2007 21:08:35 -0000	1.59
--- Main.pas	23 Jun 2007 19:16:19 -0000	1.60
***************
*** 43,47 ****
    RS_VO = 3;
  
!   AppVersionString = 'Apophysis 2.06 alpha 1';
  
  type
--- 43,47 ----
    RS_VO = 3;
  
!   AppVersionString = 'Apophysis 2.06 pre-release 5';
  
  type
***************
*** 287,290 ****
--- 287,292 ----
      procedure ListViewChanging(Sender: TObject; Item: TListItem;
        Change: TItemChange; var AllowChange: Boolean);
+     procedure ListViewInfoTip(Sender: TObject; Item: TListItem;
+       var InfoTip: String);
  
    private
***************
*** 3883,3887 ****
    if not FileExists(flam3Path) then
    begin
!     Application.MessageBox('The flam3-render.exe renderer could not be find'+#13#10+
                             'at a specified location.'+#13#10+
                             'Please check your settings in Options -> Paths -> Export renderer.',
--- 3885,3889 ----
    if not FileExists(flam3Path) then
    begin
!     Application.MessageBox('The flam3-render.exe renderer could not be found'+#13#10+
                             'at a specified location.'+#13#10+
                             'Please check your settings in Options -> Paths -> Export renderer.',
***************
*** 3956,3959 ****
--- 3958,3965 ----
        if ExportDialog.udStrips.Position > 1 then
          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('@echo Rendering "' + ExportDialog.Filename + '"');
***************
*** 4922,4924 ****
--- 4928,4978 ----
  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.