Changeset 2029

Show
Ignore:
Timestamp:
04/24/10 13:15:23 (5 months ago)
Author:
x.pechoultres@…
Message:

Pdf : use 8bit PNG if disponible (serach .png8 variant of a file)

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/modules/Pdf/source/png.cl

    r2002 r2029  
    5656[load_png(self:pdf_document, f:string) : pdf_image -> 
    5757        f := realpath(f), 
    58         when png := DOC_IMAGES[self, f] 
    59         in (use_resource(png), 
    60                 png) 
    61         else let fp := fopen(f,"r"), 
    62                         png := load_png(self, fp) 
    63                 in (fclose(fp), 
    64                         DOC_IMAGES[self, f] := png, 
    65                         png)] 
     58        if (isfile?(f /+ "8")) load_png(self, (f /+ "8")) 
     59        else when png := DOC_IMAGES[self, f] 
     60                in (use_resource(png), 
     61                        png) 
     62                else let fp := fopen(f,"r"), 
     63                                png := load_png(self, fp) 
     64                                in (fclose(fp), 
     65                                        DOC_IMAGES[self, f] := png, 
     66                                png)] 
    6667 
    6768[load_png(self:pdf_document, fp:port) : pdf_png ->