% Functions for direct and embedded PostScript
+%% TODO: use dicts or prefixes to prevent namespace pollution.
+
/pdfmark where
{pop} {userdict /pdfmark /cleartomark load put} ifelse
0 360 arc closepath fill stroke
} bind def
+/draw_circle % R T
+{
+ setlinewidth
+ dup 0 moveto
+ 0 exch 0 exch
+ 0 360 arc closepath stroke
+} bind def
+
/draw_white_dot % x1 y2 R
{
% 0 360 arc fill stroke