blank
circle
dot
- white-dot
beam
dashed-slur
named-glyph
filledbox
round-filled-box
text
- white-text
setcolor
resetcolor
polygon
(define (embedded-ps string)
(embedded-ps (list 'embedded-ps string)))
-(define (white-dot x y radius)
- (embedded-ps (list 'white-dot x y radius)))
-
(define (beam width slope thick blot)
(embedded-ps (list 'beam width slope thick blot)))
"\\hbox{\\~a{}~a}" (tex-font-command font)
(sanitize-tex-string s)))
-(define (white-text scale s)
- (embedded-ps (list 'white-text scale s)))
-
(define (setcolor r g b)
(string-append "\\color[rgb]{"
(number->string r) ", "