(define (text s)
(string-append "\\hbox{" (output-tex-string s) "}"))
(define (tuplet ht gapx dx dy thick dir)
(embedded-ps (list 'tuplet ht gapx dx dy thick dir)))
(define (text s)
(string-append "\\hbox{" (output-tex-string s) "}"))
(define (tuplet ht gapx dx dy thick dir)
(embedded-ps (list 'tuplet ht gapx dx dy thick dir)))