%!PS-Adobe-2.0 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % This Postscript is Copyright (c) 2001, Peter J Billam % % c/o P J B Computing, GPO Box 669, Hobart TAS 7001, Australia % % % % Permission is granted to any individual or institution to use, copy, % % modify or redistribute this software, so long as it is not resold for % % profit, and provided this notice is retained. Neither Peter Billam % % nor P J B Computing make any representations about the suitability % % of this software for any purpose. It is provided "as is", without any % % express or implied warranty. http://www.pjb.com.au % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%EndComments % % See http://www.pjb.com.au/comp/colours.html % /red { 1 0 0 } def /orange { 1 0.7 0.0 } def /yellow { 1 1 0 } def /green { 0 1 0 } def /blue { 0 0 1 } def /violet { 0.7 0.2 0.7 } def /callibrate_rgb2gray 0.0 def % user-settable 0..1 /rgb2gray { % usage: /equivalentgray r g b rgb2gray def callibrate_rgb2gray 0.0 eq { .11 mul 3 1 roll .59 mul 3 1 roll .3 mul add add } { /rgb2gray_b exch def /rgb2gray_g exch def /rgb2gray_r exch def rgb2gray_r rgb2gray_g ge rgb2gray_r rgb2gray_b ge and { /rgb2gray_g rgb2gray_r rgb2gray_g sub callibrate_rgb2gray mul rgb2gray_g add def /rgb2gray_b rgb2gray_r rgb2gray_b sub callibrate_rgb2gray mul rgb2gray_b add def } { rgb2gray_g rgb2gray_r ge rgb2gray_g rgb2gray_b ge and { /rgb2gray_r rgb2gray_g rgb2gray_r sub callibrate_rgb2gray mul rgb2gray_r add def /rgb2gray_b rgb2gray_g rgb2gray_b sub callibrate_rgb2gray mul rgb2gray_b add def } { /rgb2gray_r rgb2gray_b rgb2gray_r sub callibrate_rgb2gray mul rgb2gray_r add def /rgb2gray_g rgb2gray_b rgb2gray_g sub callibrate_rgb2gray mul rgb2gray_g add def } ifelse } ifelse rgb2gray_r .3 mul rgb2gray_g .59 mul rgb2gray_b .11 mul add add } ifelse } bind def %%EndProlog %%Page: 1 1 %%BeginPageSetup %%EndPageSetup /dy 70 def /dyb2 dy 0.5 mul def /row { % usage: row /yp y dyb2 add def /HelveticaBold findfont 16 scalefont setfont 0 setgray 50 y dy .75 mul add 5 sub moveto callibrate_rgb2gray ( ) cvs show red setrgbcolor 100 y 61 dyb2 rectfill red rgb2gray setgray 100 yp 61 dyb2 rectfill green setrgbcolor 171 y 61 dyb2 rectfill green rgb2gray setgray 171 yp 61 dyb2 rectfill blue setrgbcolor 242 y 61 dyb2 rectfill blue rgb2gray setgray 242 yp 61 dyb2 rectfill orange setrgbcolor 333 y 61 dyb2 rectfill orange rgb2gray setgray 333 yp 61 dyb2 rectfill violet setrgbcolor 404 y 61 dyb2 rectfill violet rgb2gray setgray 404 yp 61 dyb2 rectfill yellow setrgbcolor 475 y 61 dyb2 rectfill yellow rgb2gray setgray 475 yp 61 dyb2 rectfill } bind def /y 120 def /callibrate_rgb2gray 0.0 def row /y y dy add def /callibrate_rgb2gray 0.1 def row /y y dy add def /callibrate_rgb2gray 0.2 def row /y y dy add def /callibrate_rgb2gray 0.3 def row /y y dy add def /callibrate_rgb2gray 0.4 def row /y y dy add def /callibrate_rgb2gray 0.5 def row /y y dy add def /callibrate_rgb2gray 0.6 def row /y y dy add def /callibrate_rgb2gray 0.7 def row /y y dy add def /callibrate_rgb2gray 0.8 def row /Helvetica findfont 12 scalefont setfont 0.0 setgray 50 90 moveto (This chart allows you to gauge how best to callibrate colours.ps to suit) show ( a particular display or) show 50 70 moveto (printer. See www.pjb.com.au/comp/colours.html . . ) show (Choose the value of callibrate_rgb2gray) show 50 50 moveto (which gives each grey rectangle) show ( the same luminance as its neighbouring colour rectangles.) show 50 30 moveto (Choose the best compromise value across all the colour columns.) show showpage %%EOF