example.ps

  %!
  200 400 translate
  0 0 moveto 
  200 0 rlineto stroke
  0 50 moveto 
  100 0 rlineto 0 100 rlineto -100 0 rlineto 0 -100 rlineto fill
  showpage