From: Piotr B. <ut...@us...> - 2007-06-23 19:16:24
|
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. |