home *** CD-ROM | disk | FTP | other *** search
/ OneVision 3.03 / OneVision3.03.iso / Apps / Convert PICT.app / CommentedPSCode / Bitmaps < prev    next >
Encoding:
Text File  |  1993-11-08  |  8.1 KB  |  336 lines
  1. %BEGIN Bitmaps
  2.  
  3. % Copyright (C) 1993 David John Burrowes
  4. % Distributed under terms of GNU General Public License.
  5. % See COPYING.text in Convert PICT's CommentedPSCode for a copy
  6.  
  7. %%%%%%%%%%%%%
  8. %    Define lengh of a run, and the byte which is repeated that many times
  9. %%%%%%%%%%%%%
  10. /lengthByte 1 string def
  11. /runByte 1 string def
  12.  
  13. %%%%%%%%%%%%%
  14. %    Name:    unpackbytes
  15. %    Syntax:    - unpackbytes -
  16. %    About:    This unpacks packed hex data into a binary string. Data format
  17. %            is identical to PS level 2 RLE and Mac PackBits (plus
  18. %            terminating 0x80).  Each chunk of data starts with a 'length'
  19. %            byte. If it is < 128 use that number of following bytes (plus
  20. %            one) literally. If it is > 128, next byte should be used
  21. %            257-length times.  Note: if 128 ends up in data, we don't deal
  22. %            properly (it shouldn't though)
  23. %%%%%%%%%%%%%
  24. /unpackbytes 
  25. { 
  26.     %
  27.     %    Get a byte which tells us how to extract the next chunk of data
  28.     %
  29.     /thelength 
  30.         currentfile lengthByte readhexstring pop 
  31.         0 get 
  32.     def 
  33.     %
  34.     %    If length < 128, copy that number of bytes+1 in litterally
  35.     %    Otherwise, copy next byte 257-length number of times
  36.     %
  37.     thelength 128 lt 
  38.     { 
  39.         /dataString thelength 1 add  string def 
  40.         currentfile dataString readhexstring pop 
  41.     }
  42.     { 
  43.         /runlength 257 thelength sub def 
  44.         /runString runlength  string def
  45.         currentfile runByte readhexstring pop pop 
  46.  
  47.         0 1 runlength 1 sub 
  48.             { runString exch runByte putinterval } 
  49.         for 
  50.         runString 
  51.     } 
  52.     ifelse 
  53. }
  54. def
  55.  
  56. %%%%%%%%%%%%%
  57. %    Name:    bitmap        [0090, 0091, 0097, 0098  (Pict1 & subset pict2)]
  58. %    Syntax:    colordat bits mode llx lly width height sourcewW sourceH
  59. %            bool [regiondata] bool bitmap -
  60. %    About:    Display a B&W bitmap. If bool is true, clipping region data
  61. %            follows. The width & height of the image, and the rect (origin,
  62. %            width, height) to display it follow. Mac drawing mode, bitdepth,
  63. %            then info for a colorspace definition. Final args are redundant.
  64. %            (both this and colorbitmap have same args this way)
  65. %%%%%%%%%%%%%
  66. /bitmap
  67. {
  68.     gsave
  69.         % use flag on stack
  70.         {
  71.             initclip
  72.             regionBounds
  73.             clip
  74.             /numShapes exch def
  75.             numShapes  0 gt
  76.             {
  77.                 numShapes
  78.                 regionPath
  79.                 clip
  80.             }
  81.             if
  82.         }
  83.         if
  84.         /isPacked exch def
  85.         /sourceHeight exch def
  86.         /sourceWidth exch def
  87.         /destHeight exch def
  88.         /destWidth exch def
  89.         /boty exch def
  90.         /botx exch def
  91.         /mode exch def
  92.         /bitDepth exch def        % unused
  93.         /colordata exch def    %  "
  94.         /numcolors exch def    %  "
  95.         %
  96.         %    Compute a string with length equal to the number of bytes used
  97.         %    per scaline.  That number is (bits-per-scaline /8), & wrap up to
  98.         %    next whole byte.
  99.         %
  100.         /scanString  sourceWidth 8 div ceiling cvi  string def
  101.         botx boty destHeight add translate
  102.         destWidth destHeight scale
  103.         %
  104.         %    With B&W bitmaps, it's easy to support the two Or transfer modes
  105.         %    Check for the two Or modes, and use proper imageMask.
  106.         %    Otherwise, default to doing a srcCpy
  107.         %
  108.         0 setgray
  109.         PSlevel 1 eq
  110.         {
  111.             mode /srcOr eq
  112.             mode /notSrcOr eq
  113.             or 
  114.             {
  115.                 %
  116.                 %    Compute a true or false value for imagemask using mode
  117.                 %
  118.                 sourceWidth sourceHeight     mode /notSrcOr eq
  119.                 [sourceWidth 0 0  sourceHeight 0 sourceHeight] 
  120.                 isPacked true eq
  121.                     { {unpackbytes} }
  122.                     { {currentfile scanString readhexstring pop} } 
  123.                 ifelse
  124.                 imagemask
  125.             }
  126.             {
  127.                 %
  128.                 %    Do a copy mode.
  129.                 %
  130.                 sourceWidth sourceHeight 1
  131.                 [sourceWidth 0 0  sourceHeight 0 sourceHeight] 
  132.                 isPacked true eq
  133.                     { {unpackbytes} }
  134.                     { {currentfile scanString readhexstring pop} } 
  135.                 ifelse
  136.                 image
  137.             }
  138.             ifelse
  139.             %
  140.             %    Remove the trailing end-of-line80 or eol>
  141.             %
  142.             isPacked false eq
  143.                 { 2 { currentfile read pop pop } repeat  }
  144.                 { 4 { currentfile read pop pop } repeat  }
  145.             ifelse
  146.         }
  147.         {
  148.             /DeviceGray  setcolorspace
  149.             %
  150.             %    Build the dict. parameter for the PS2 image or imageMask op.
  151.             %
  152.             /imageParams 7 dict def
  153.             imageParams begin
  154.                 /ImageType            1    def
  155.                 /Width                 sourceWidth  def
  156.                 /Height                sourceHeight  def
  157.                 /BitsPerComponent    1    def
  158.                 /Decode            mode /notSrcOr eq
  159.                                     { [ 1 0 ] }  { [ 0 1 ] } ifelse def
  160.                 /ImageMatrix    [sourceWidth 0 0  sourceHeight
  161.                                     0 sourceHeight]  def
  162.                 /DataSource isPacked true eq
  163.                             { currentfile  /ASCIIHexDecode filter
  164.                                 /RunLengthDecode filter}
  165.                             { currentfile  /ASCIIHexDecode filter}
  166.                             ifelse
  167.                         def
  168.             end
  169.  
  170.             mode /srcOr eq
  171.             mode /notSrcOr eq
  172.             or 
  173.                 { imageParams imagemask }
  174.                 { imageParams image }
  175.             ifelse
  176.         }
  177.         ifelse
  178.     grestore
  179. }
  180. def
  181.  
  182. %%%%%%%%%%%%%
  183. %    Name:    colorbitmap        [0090, 0091, 0097, 0098  (for pict2 images)]
  184. %    Syntax:    colordat bits mode llx lly width height sourcewW sourceH
  185. %            bool [regiondata] bool colorbitmap -
  186. %    About:    Display a bitmap. If bool is true, clipping region data follows.
  187. %            The width and height of the image, and the rect (origin, width,
  188. %            height) to display it follow.  Mac drawing mode, bitdepth, then
  189. %            info for a colorspace definition. The bit data follows.
  190. %%%%%%%%%%%%%
  191. /colorbitmap
  192. { 
  193.     gsave
  194.         % use flag on stack
  195.         {
  196.             initclip
  197.             regionBounds
  198.             clip
  199.             /numShapes exch def
  200.             numShapes  0 gt
  201.             {
  202.                 numShapes
  203.                 regionPath
  204.                 clip
  205.             }
  206.             if
  207.         }
  208.         if
  209.         /isPacked exch def
  210.         /sourceHeight exch def
  211.         /sourceWidth exch def
  212.         /destHeight exch def
  213.         /destWidth exch def
  214.         /boty exch def
  215.         /botx exch def
  216.         /mode exch def
  217.         /sampleDepth  exch def
  218.         /colordata exch def
  219.         /numcolors exch def
  220.         %
  221.         %    Move to the right location and scale coordinate space properly.
  222.         %
  223.         botx boty destHeight add translate
  224.         destWidth destHeight scale
  225.         PSlevel 1 eq
  226.         {
  227.             %
  228.             %    Compute string with space for full scanline of image data:
  229.             %    Use bits per scanline, divide by 8, round up to whole byte.
  230.             %
  231.             /scanString  sourceWidth sampleDepth mul 8 div
  232.                     ceiling cvi  string def
  233.             sourceWidth sourceHeight sampleDepth
  234.             [sourceWidth 0 0  sourceHeight 0 sourceHeight] 
  235.             isPacked true eq
  236.                 { {unpackbytes} }
  237.                 { {currentfile scanString readhexstring pop} } 
  238.             ifelse
  239.             image
  240.             %
  241.             %    Remove trailing end-of-line80 or eol>
  242.             %
  243.             isPacked false eq
  244.                 { 2 { currentfile read pop pop } repeat  }
  245.                 { 4 { currentfile read pop pop } repeat  }
  246.             ifelse
  247.         }
  248.         {
  249.             [ /Indexed  /DeviceRGB numcolors colordata] setcolorspace
  250.             %
  251.             %    Build the dict. parameter to the PS level 2 image operator
  252.             %
  253.             /imageParams 7 dict def
  254.             imageParams begin
  255.                 /ImageType        1 def
  256.                 /Width             sourceWidth def
  257.                 /Height            sourceHeight def
  258.                 /BitsPerComponent    sampleDepth def
  259.                 /Decode            [ 0 2 sampleDepth exp 1 sub ] def
  260.                 /ImageMatrix    [sourceWidth 0 0  sourceHeight 0
  261.                                     sourceHeight]  def
  262.                 /DataSource     isPacked true eq
  263.                             { currentfile  /ASCIIHexDecode filter
  264.                                     /RunLengthDecode filter}
  265.                             { currentfile  /ASCIIHexDecode filter}
  266.                             ifelse
  267.                         def
  268.             end
  269.             imageParams image
  270.         }
  271.         ifelse
  272.     grestore
  273. }
  274. def
  275.  
  276.  
  277. %%%%%%%%%%%%%
  278. %    Name:    24bitBitmap        [009A, 009B]
  279. %    Syntax:    mode llx lly width height sourcewW sourceH
  280. %            [regiondata] bool colorbitmap -
  281. %    About:    This displays a bitmap.  It differs from bitmap and colorbitmap in that
  282. %            the bitmap it is to display is not black and white and requires no color table.
  283. %            It uses only literal 24bit color values for the image.  args are:
  284. %            an optional region definition, the initial width and height, the requested
  285. %            destination width and height, the x and y coord of the lower left, and the mac
  286. %            drawing mode
  287. %%%%%%%%%%%%%
  288. /24bitBitmap
  289. { 
  290.     gsave
  291.         % use flag on stack
  292.         {
  293.             initclip
  294.             regionBounds
  295.             clip
  296.             /numShapes exch def
  297.             numShapes  0 gt
  298.             {
  299.                 numShapes
  300.                 regionPath
  301.                 clip
  302.             }
  303.             if
  304.         }
  305.         if
  306.         /isPacked exch def
  307.         /sourceHeight exch def
  308.         /sourceWidth exch def
  309.         /destHeight exch def
  310.         /destWidth exch def
  311.         /boty exch def
  312.         /botx exch def
  313.         /mode exch def
  314.         %
  315.         %    Move to the right location and scale coordinate space properly.
  316.         %
  317.         botx boty destHeight add translate
  318.         destWidth destHeight scale
  319.         %
  320.         %    Compute string with space for full scanline of image data (convert pixels to bytes)
  321.         %
  322.         /scanString  sourceWidth  3 mul  string def
  323.         sourceWidth sourceHeight 8
  324.         [sourceWidth 0 0  sourceHeight 0 sourceHeight] 
  325.         isPacked true eq
  326.             { {unpackbytes} }
  327.             { {currentfile scanString readhexstring pop} } 
  328.         ifelse
  329.         false 3
  330.         colorimage
  331.     grestore
  332. }
  333. def
  334.  
  335. %END Bitmaps
  336.