(SET-FILL-STYLE fill-style color)

Sets the current fill pattern to one of the defined pattern and selects the fill color. Fill-style can be one of the following:
{\itt 'EMPTY} all background color
{\itt 'SOLID} all fill color
{\itt 'LINE} continuous
\begin{picture}(80,10)(0,0)\put(0,3){\line(1,0){80}}
\end{picture}
{\itt 'LTSLASH} light
\begin{picture}(80,10)(0,0)\multiput(0,0)(10,0){8}{\line(1,1){10}}
\end{picture}
{\itt 'SLASH} thick
\begin{picture}(80,10)(0,0)\multiput(0,0)(8,0){10}{\line(1,1){10}}
\end{picture}
{\itt 'LTBKSLASH} light
\begin{picture}(80,10)(0,0)\multiput(0,10)(10,0){8}{\line(1,-1){10}}
\end{picture}
{\itt 'BKSLASH} thick
\begin{picture}(80,10)(0,0)\multiput(0,10)(8,0){10}{\line(1,-1){10}}
\end{picture}
{\itt 'HATCH} hatch
\begin{picture}(80,10)(0,0)\multiput(0,2)(0,6){2}{\line(1,0){80}}%
\multiput(0,0)(6,0){14}{\line(0,1){10}}
\end{picture}
{\itt 'XHATCH} X-hatch
\begin{picture}(80,10)(0,0)\multiput(0,10)(8,0){10}{\line(1,-1){10}}%
\multiput(0,0)(8,0){10}{\line(1,1){10}}
\end{picture}
{\itt 'INTERLEAVE} 50% grey
{\itt 'CLOSE-DOT} 20% grey
{\itt 'WIDE-DOT} 10% grey
{\itt 'USER-FILL}    
Don't use (SET-FILL-STYLE {\itt 'USER-FILL} ...), but use SET-FILL-PATTERN instead, or you might get unpredictable results.

For a table of color constants, see SET-COLOR below.