%% Printing Images
%%                PostScript Language Tutorial and Cookbook

/concatprocs {
  /proc2 exch cvlit def
  /proc1 exch cvlit def

  /newproc proc1 length proc2 length add array def
  newproc 0 proc1 putinterval
  newproc proc1 length proc2 putinterval
  newproc cvx } bind def

/inch { 72 mul } bind def
/picstr 3 string def

/imageturkey {
  24 23 1 [24 0 0 -23 0 23]
  { currentfile picstr readhexstring pop} image } bind def

gsave
  3 inch 4 inch translate
  2 inch dup scale

  {1 exch sub} bind currenttransfer concatprocs settransfer

  imageturkey
 003B00 002700 002480 0E4940
 114920 14B220 3CB650 75FE88
 17FF8C 175F14 1C07E2 3803C4
 703182 F8EDFC B2BBC2 BB6F84
 31BFC2 18EA3C 0E3E00 07FC00
 03F800 1E1800 1FF800

 grestore
showpage

