%BEG 1MR-0002.TXT ************************************2011-03-01

/1MR-0002 {%BEG procedure 1MR-0002, always transfer to cmy0
%1MR-Transform of setgray and setrgbcolor to FFM_setcmykcolor=standard setcmykcolor
%Three procedures and use for a new subprocedure procedures FFM_de_setcmykcolor
%FFM_de_setcmykcolor: Transfer (T) of device (D) to elementary (E) hues

/setgray {%BEG procedure setgray
          dup dup /FFM_r exch def /FFM_g exch def /FFM_b exch def
          /FFM_c 1 FFM_r sub def /FFM_m 1 FFM_r sub def
          /FFM_y 1 FFM_r sub def /FFM_k 0 def
          FFM_c FFM_m FFM_y FFM_k
          FFM_de_setcmykcolor
          %STOPs
         } def %END procedure setgray

/setcmykcolor {%BEG procedure setcmykcolor
               /FFM_k exch def /FFM_y exch def /FFM_m exch def /FFM_c exch def
               FFM_k 0 ne {/FFM_c FFM_k def /FFM_m FFM_k def %transfer to cmy0
                           /FFM_y FFM_k def /FFM_k 0 def
                          } if
               /FFM_r 1 FFM_c sub def
               /FFM_g 1 FFM_m sub def
               /FFM_b 1 FFM_y sub def
               FFM_c FFM_m FFM_y FFM_k
               FFM_de_setcmykcolor
               %STOPc
              } def %END procedure setcmykcolor

/setrgbcolor {%BEG procedure setrgbcolor
              /FFM_b exch def /FFM_g exch def /FFM_r exch def
              /FFM_c 1 FFM_r sub def /FFM_m 1 FFM_g sub def
              /FFM_y 1 FFM_b sub def /FFM_k 0 def
              FFM_c FFM_m FFM_y FFM_k
              FFM_de_setcmykcolor
              %STOPr
             } def %BEG procedure setrgbcolor

} def %END procedure 1MR-0002

%END 1MR-0002.TXT ************************************2011-03-01