/lut2 { [1 0 1  1 0 0  1 0.5 0  1 1 0  0 1 0  0 1 1  0 0 1] } def
   /Pen2 { 3 mul lut2 exch 3 getinterval aload pop SRGB } BD