%!PS-Adobe-2.0
%%BoundingBox: 0 0 400 400

400 2 div dup translate
400 1.1 2 mul div dup scale
-1.1 -1.1 1.1 2 mul 1.1 2 mul rectclip
1 400 div setlinewidth
1 setlinecap
1 setlinejoin

0 0 1 0 360 arc stroke

showpage