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