Color
Try it.
%!
% Convert inches->points (1/72 inch)
/inch {72 mul} def
% Build a 1 inch square path
/box {
newpath
moveto
1 inch 0 inch rlineto
0 inch 1 inch rlineto
-1 inch 0 inch rlineto
closepath
} def
% Pick a font
/Helvetica findfont 24 scalefont setfont
gsave
72 72 box % Build a box
1 0 0 setrgbcolor % Set the color to full red
fill % Fill the box
grestore
gsave
154 72 box % Build a box
1 0 0 setrgbcolor % Set the color to full red
stroke % Outline the box
grestore
gsave
1 0 0 setrgbcolor % Set the color to full red
236 72 moveto
(Full Red) show % Print some text
grestore
gsave
72 154 box % Build a box
1 0.5 0 setrgbcolor % Set the color to orange
fill % Fill the box
grestore
gsave
154 154 box % Build a box
1 0.5 0 setrgbcolor % Set the color to orange
stroke % Outline the box
grestore
gsave
1 0.5 0 setrgbcolor % Set the color to orange
236 154 moveto
(Orange) show % Print some text
grestore
gsave
72 236 box % Build a box
1 0 1 0.5 setcmykcolor % Set the color to dark green
fill % Fill the box
grestore
gsave
154 236 box % Build a box
1 0 1 0.5 setcmykcolor % Set the color to dark green
stroke % Outline the box
grestore
gsave
1 0 1 0.5 setcmykcolor % Set the color to dark green
236 236 moveto
(Dark Green) show % Print some text
grestore
showpage