%!

10 setlinewidth

gsave
300 300 translate

/size 100 def

newpath
0 0 size 0 360 arc
0 size neg moveto
0 size neg 2 mul lineto
size neg 2 div size neg 1.5 mul moveto
size 2 div size neg 1.5 mul lineto
stroke

grestore

showpage