;;; stencil commands
;;;
-(define (bezier-sandwich lst thick)
- (format #f "bezier_sandwich ~a [~a]"
- thick
- (string-append
- (string-join (map
- (lambda (x)
- (format #f "(~a,~a)" (car x) (cdr x)))
- lst)
- ","))))
-
(define (draw-line thick x1 y1 x2 y2)
(format #f "drawline ~a ~a ~a ~a ~a"
thick x1 y2 x2 y2))
-1))
(name (assoc-get 'name (ly:grob-property grob 'meta))))
- (apply format
- (append (list "cause ~a \"~a\" ~a ~a ~a ~a\n" tag name)
- (grob-bbox grob offset)))))
+ (apply format #f
+ "cause ~a \"~a\" ~a ~a ~a ~a\n" tag name
+ (grob-bbox grob offset))))
(define (named-glyph font glyph)
(format #f "glyphshow ~a \"~a\" ~a \"~a\""