%!
/setrgbcolor {
  add dup 2 div 3 1 roll add 3 div
  dup 3 1 roll sub
  4 mul add
 setgray } bind def