paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 19:28:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Enhance example to allow specify grayscale for tiff

Browse Source 
git-svn-id: trunk@41802 -
This commit is contained in:
michael 2019-03-26 22:24:49 +00:00
parent 99da1a4a13
commit ee177eab1f
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/fcl-image/examples/imgconv.pp
View File

@ -17,7 +17,7 @@ program ImgConv;
{_$define UseFile}
uses FPWriteXPM, FPWritePNG, FPWriteBMP,fpreadgif,
uses FPWriteXPM, FPWritePNG, FPWriteBMP,fpreadgif,fptiffcmn,
FPReadXPM, FPReadPNG, FPReadBMP, fpreadjpeg,fpwritejpeg,
fpreadtga,fpwritetga,fpreadpnm,fpwritepnm, fpreadtiff, fpwritetiff,
{$ifndef UseFile}classes,{$endif}
@ -132,6 +132,19 @@ begin
writeln ('Grayscale ',Grayscale, ' - Indexed ',Indexed,
' - WordSized ',WordSized,' - UseAlpha ',UseAlpha);
end
else if (t[1] = 'F') then
with (Writer as TFPWriterTiff) do
begin
if pos ('G', t) > 0 then
begin
Img.Extra[TiffPhotoMetric]:='0';
if Pos('8',T)>0 then
Img.Extra[TiffGrayBits]:='8'
else if Pos('16',T)>0 then
Img.Extra[TiffGrayBits]:='16';
Writeln(TiffPhotoMetric,': 0 ',TiffGrayBits,': ',Img.Extra[TiffGrayBits]);
end;
end
else if (t[1] = 'X') then
begin
if length(t) > 1 then
@ -162,6 +175,8 @@ begin
writeln ('Options for');
writeln (' PNG : G : grayscale, A : use alpha, ');
writeln (' I : Indexed in palette, W : Word sized.');
writeln (' TIFF : G16 write grayscale 16 bits/pixel');
writeln (' G8 write grayscale 16 bits/pixel');
writeln (' XPM : Number of chars to use for 1 pixel');
writeln (' The color size of an XPM can be set after the X as 1,2,3 or 4');
writeln ('example: imgconv hello.xpm PIA hello.png');