linedraw.ps

 %!
 2 setlinewidth
 100 300 moveto 400 300 lineto stroke
 100 340 moveto 300 20 rlineto stroke
 10 setlinewidth 
 100 400 moveto 300 0 rlineto stroke
 1 setlinecap
 100 450 moveto 300 0 rlineto stroke
 2 setlinewidth
 100 500 moveto
 300 0 rlineto 0 50 rlineto -300 0 rlineto 0 -50 rlineto stroke
 100 600 moveto
 300 0 rlineto 0 50 rlineto -300 0 rlineto 0 -50 rlineto fill
 showpage