%BEG 1MR-0001.TXT ************************************2011-03-01 /1MR-0001 {%BEG procedure 1MR-0001 %1MR-Transform of setgray and setcmykcolor to FFM_setrgbcolor=standard setrgbcolor %Three procedures and use for a new subprocedure procedures FFM_de_setrgbcolor %FFM_de_setrgbcolor: Transfer (T) of device (D) to elementary (E) hues /setgray {%BEG procedure setgray dup dup FFM_de_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_de_setrgbcolor} {1 FFM_k sub dup dup FFM_de_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_de_setrgbcolor %STOPr } def %BEG procedure setrgbcolor } def %END procedure 1MR-0001 %END 1MR-0001.TXT ************************************2011-03-01