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

/1MR-0000 {%BEG procedure 1MR-0000
%1MR-Transform of setgray and setcmykcolor to FFM_setrgbcolor=standard setrgbcolor
%Three procedures and use of the procedure FFM_setrgbcolor of main FF

/setgray {%BEG procedure setgray
          dup dup FFM_setrgbcolor
          %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 eq {1 FFM_c sub 1 FFM_m sub 1 FFM_y sub FFM_setrgbcolor}
                          {1 FFM_k sub dup dup FFM_setrgbcolor} ifelse
               %STOPc
              } def %END procedure setcmykcolor

/setrgbcolor {%BEG procedure setrgbcolor
              /FFM_b exch def
              /FFM_g exch def
              /FFM_r exch def
              FFM_r FFM_g FFM_b
              FFM_setrgbcolor
              %STOPr
             } def %BEG procedure setrgbcolor

} def %END procedure 1MR-0000

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