home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Actualizar / Impressora_PDF / converter.exe / GPLGS / viewjpeg.ps < prev    next >
Text File  |  2003-04-13  |  5KB  |  160 lines
  1. %! viewjpeg.ps   Copyright (C) 1994 Thomas Merz <tm@pdflib.com>
  2. %
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: viewjpeg.ps,v 1.6 2003/04/12 18:08:18 ray Exp $
  17. % View JPEG files with Ghostscript
  18. %
  19. % This PostScript code relies on level 2 features.
  20. %
  21. % Only JPEG baseline, extended sequential, and progressive files
  22. % are supported.  Note that Adobe PostScript level 2 does not include
  23. % progressive-JPEG support.  Ghostscript with IJG JPEG v6 or later
  24. % will decode progressive JPEG, but only if you edit gsjmorec.h to
  25. % enable that feature.
  26. %
  27. % Author's address:
  28. % ------------------------------+
  29. % {(pstack exec quit) = flush } |    Thomas Merz, Munich
  30. % pstack exec quit              |    voice +49/89/29160728
  31. % ------------------------------+    tm@muc.de  http://www.muc.de/~tm/
  32. %
  33. % $Id: viewjpeg.ps,v 1.6 2003/04/12 18:08:18 ray Exp $
  34. % Updated by L. Peter Deutsch 20-May-1997:
  35. %   move the usage example to the beginning
  36. % Updates by Tom Lane 6-Sep-1995
  37.  
  38. % Usage example:
  39. %    (jpeg-6/testimg.jpg) viewJPEG
  40.  
  41. /languagelevel where {pop languagelevel 2 lt}{true} ifelse {
  42.   (JPEG needs PostScript Level 2!\n) print flush stop
  43. } if
  44.  
  45. /JPEGdict 20 dict def
  46. JPEGdict begin
  47.  
  48. /NoParamMarkers [    % JPEG markers without additional parameters
  49.     16#D0 16#D1 16#D2 16#D3 16#D4 16#D5 16#D6 16#D7 16#D8 16#01
  50. ] def
  51.  
  52. /NotSupportedMarkers [     % JPEG markers not supported by PostScript level 2
  53.     16#C3 16#C5 16#C6 16#C7 16#C8 16#C9 16#CA 16#CB 16#CD 16#CE 16#CF
  54. ] def
  55.  
  56. % Names of color spaces
  57. /ColorSpaceNames << /1 /DeviceGray /3 /DeviceRGB /4 /DeviceCMYK >> def
  58.  
  59. % read one byte from file F
  60. % - ==> int --or-- stop context
  61. /NextByte { 
  62.     F read not { (Read error in ViewJPEG!\n) print flush stop } if
  63. } bind def
  64.  
  65. /SkipSegment {    % read two bytes and skip that much data
  66.     NextByte 8 bitshift NextByte add 2 sub { NextByte pop } repeat
  67. } bind def
  68.  
  69. % read width, height, and # of components from JPEG markers
  70. % and store in dict
  71. /readJPEGmarkers {    % - ==> dict --or-- stop context
  72.     5 dict begin
  73.  
  74.     { % loop: read JPEG marker segments until we find SOFn marker or EOF
  75.     NextByte
  76.     16#FF eq {                % found marker
  77.         /markertype NextByte def
  78.         % Is it S0F0=baseline, SOF1=extended sequential, SOF2=progressive ?
  79.         markertype dup 16#C0 ge exch 16#C2 le and {
  80.         NextByte pop NextByte pop    % segment length
  81.         % Ghostscript and Adobe PS accept only data precision 8
  82.         NextByte 8 ne {
  83.             (Error: not 8 bits per component!\n) print flush stop 
  84.         } if
  85.  
  86.         % Read crucial image parameters
  87.         /height NextByte 8 bitshift NextByte add def
  88.         /width NextByte 8 bitshift NextByte add def
  89.         /colors NextByte def
  90.  
  91.         VJPGDEBUG { currentdict { exch == == } forall flush } if
  92.         exit
  93.         } if
  94.  
  95.         % detect several segment types which are not compatible with PS
  96.         NotSupportedMarkers {
  97.         markertype eq {
  98.             (Marker ) print markertype == 
  99.             (not supported!\n) print flush stop
  100.         } if 
  101.         } forall 
  102.  
  103.         % Skip segment if marker has parameters associated with it
  104.         true NoParamMarkers { markertype eq {pop false exit} if } forall 
  105.         { SkipSegment } if
  106.     } if
  107.     } loop
  108.  
  109.     currentdict dup /markertype undef
  110.     end
  111. } bind def
  112.  
  113. end    % JPEGdict
  114.  
  115. % read image parameters from JPEG file and display the image
  116. /viewJPEG {        % <file|string> ==> -
  117.     save 
  118.     JPEGdict begin
  119.     /saved exch def
  120.     /scratch 1 string def
  121.     dup type /stringtype eq { (r) file } if
  122.     /F exch def
  123.  
  124.     readJPEGmarkers begin
  125.     F 0 setfileposition        % reset file pointer
  126.  
  127.     % We use the whole clipping area for the image (at least in one dimension)
  128.     gsave clippath pathbbox grestore
  129.     /ury exch def /urx exch def
  130.     /lly exch def /llx exch def
  131.  
  132.     llx lly translate
  133.     width height scale
  134.  
  135.     % use whole width or height, whichever is appropriate
  136.     urx llx sub width div ury lly sub height div
  137.     2 copy gt { exch } if pop        % min
  138.     dup scale
  139.     ColorSpaceNames colors scratch cvs get setcolorspace
  140.  
  141.     % prepare image dictionary
  142.     << /ImageType 1
  143.        /Width width
  144.        /Height height
  145.        /ImageMatrix [ width 0 0 height neg 0 height ]
  146.        /BitsPerComponent 8
  147.        % If 4-component (CMYK), assume data is inverted per Adobe Photoshop
  148.        colors 4 eq {
  149.          /Decode [ colors { 1 0 } repeat ]
  150.        } {
  151.          /Decode [ colors { 0 1 } repeat ]
  152.        } ifelse
  153.        /DataSource F /DCTDecode filter
  154.     >> image
  155.  
  156.     end        % image parameter dictionary
  157.  
  158.     saved end restore
  159. } bind def
  160.