Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.postscript > #3174

Re: 100% black, as required by a book printer

Show all headers | View raw

Further improvements follow. Again, expert comment welcomed.



%!PS

% This version 17:00 Thu 31 Aug 2017 by Julian Wiseman of www.jdawiseman.com, based on original by 'ken'.
% Microsoft Word doesn't make proper CMYK printers' black. Print to PostScript; prepend this; distill. Fixed.
% http://groups.google.com/forum/#!topic/comp.lang.postscript/6JW6VamdVlw

/setcolor load type /operatortype eq
{
	/ClrSpcOrig currentcolorspace def

	[
		[  /setcolorspace   {/ClrSpcOrig 1 index     store   setcolorspace                                                                    }  ]
		[  /setgray         {/ClrSpcOrig /DeviceGray store dup 0 eq                                {0 0 1 setcmykcolor} {setgray}     ifelse  }  ]
		[  /setrgbcolor     {/ClrSpcOrig /DeviceRGB  store 3 copy 0 eq exch 0 eq and exch 0 eq and {    1 setcmykcolor} {setrgbcolor} ifelse  }  ]
		[  /sethsbcolor     {/ClrSpcOrig /DeviceRGB  store dup 0 eq                  {pop pop pop 0 0 0 1 setcmykcolor} {sethsbcolor} ifelse  }  ]
		[  /setcmykcolor    {/ClrSpcOrig /DeviceCMYK store                                                setcmykcolor                        }  ]
		[  /setpattern      {/ClrSpcOrig [/Pattern [currentcolorspace 0 get dup /Pattern eq {pop /DeviceRGB} if] ] store  setpattern          }  ]
	] {aload pop 1 index load type /operatortype eq {bind def} {pop pop} ifelse} forall

	/setcolor {1 {
		currentcolorspace /DeviceGray eq {setgray      exit} if
		currentcolorspace /DeviceRGB  eq {setrgbcolor  exit} if
		currentcolorspace /DeviceCMYK eq {setcmykcolor exit} if
		setcolor
	} repeat} bind def

	% Without the next, some but not all images fail. No, I don't know why.
	/image     load type /operatortype eq {/image     {ClrSpcOrig setcolorspace image    } bind def} if
	/imagemask load type /operatortype eq {/imagemask {ClrSpcOrig setcolorspace imagemask} bind def} if
} if  % ... /operatortype ..., just in case this file has already been prepended.

Back to comp.lang.postscript | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

100% black, as required by a book printer jdaw1 <jdawiseman@gmail.com> - 2017-07-30 05:42 -0700
  Re: 100% black, as required by a book printer Martin Leese <please@see.Web.for.e-mail.INVALID> - 2017-07-30 08:24 -0600
    Re: 100% black, as required by a book printer jdaw1 <jdawiseman@gmail.com> - 2017-07-30 12:31 -0700
      Re: 100% black, as required by a book printer luser droog <luser.droog@gmail.com> - 2017-07-30 15:47 -0700
  Re: 100% black, as required by a book printer Carlos <carlos@cvkm.cz> - 2017-07-30 19:37 +0200
  Re: 100% black, as required by a book printer ken <ken@spamcop.net> - 2017-07-31 08:58 +0100
    Re: 100% black, as required by a book printer jdaw1 <jdawiseman@gmail.com> - 2017-07-31 14:37 -0700
      Re: 100% black, as required by a book printer jdaw1 <jdawiseman@gmail.com> - 2017-08-02 12:15 -0700
        Re: 100% black, as required by a book printer jdaw1 <jdawiseman@gmail.com> - 2017-08-29 15:15 -0700
          Re: 100% black, as required by a book printer jdaw1 <jdawiseman@gmail.com> - 2017-08-31 09:36 -0700
            Re: 100% black, as required by a book printer jdaw1 <jdawiseman@gmail.com> - 2017-11-13 14:16 -0800
              Re: 100% black, as required by a book printer jdaw1 <jdawiseman@gmail.com> - 2017-11-14 15:02 -0800
                Re: 100% black, as required by a book printer jdaw1 <jdawiseman@gmail.com> - 2017-11-16 15:57 -0800

csiph-web