embedded-ps
named-glyph
no-origin
+ oval
placebox
polygon
repeat-slash
(define (no-origin)
"")
+(define (oval x-radius y-radius thick fill)
+ (ly:format
+ "~a ~4f ~4f ~4f draw_oval"
+ (if fill
+ "true"
+ "false")
+ x-radius y-radius thick))
+
(define (placebox x y s)
(ly:format
"~4f ~4f moveto