%!

/S 72 def
S dup scale
2 S div setlinewidth
4.25 5.5 translate

/P [ 0 1 ] def
/R [ -1 0 ] def
/Q [ 1 0 ] def

newpath
R 0 get R 1 get moveto
P 0 get P 1 get lineto
Q 0 get Q 1 get lineto
stroke

/A R 1 get P 1 get sub R 0 get P 0 get sub atan def

newpath
P 0 get P 1 get
1 A 0 arc
stroke