/Dataline {
    currentfile Rem WS length
    lt {WS 0 Rem getinterval}
       {WS}
    ifelse
    readhexstring pop
    /Rem Rem WS length sub def
  } def

/SRGB24 {
    2 copy  mul 3 mul
        /Rem exch def 8 SMat
        /Dataline load false 3 colorimage
  } def

/SCMYK32 {
    2 copy  mul 4 mul
        /Rem exch def 8 SMat
        /Dataline load false 4 colorimage
  } def
  
