Operator: W setlinewidth
This operator sets the width of all lines to be stroked to width W, which must be specified in points.
Example:
%! newpath 100 700 translate 0 0 moveto 1 setlinewidth 400 0 rlineto stroke 0 -100 moveto 15 setlinewidth 400 0 rlineto stroke showpage