- (srfi srfi-1)
- (srfi srfi-13)
- (lily))
-
-
-(define-public (draw-line thick x1 y1 x2 y2)
- (format "drawline ~a ~a ~a ~a ~a"
- thick x1 y2 x2 y2))
-
-(define-public (polygon xy-coords blot do-fill)
- (format "polygon ~a ~a ~a"
- blot
- (if do-fill "True" "False")
- (string-join
- (map number->string xy-coords))
- ))
-
-(define-public (named-glyph font glyph)
- (format "glyphshow ~a \"~a\" ~a \"~a\""
- (ly:font-glyph-name-to-charcode font glyph)
- (ly:font-name font)
- (modified-font-metric-font-scaling font)
- glyph
- ))
-
-(define-public (placebox x y s)
- (format "at ~a ~a ~a\n" x y s))
-
-(define-public (round-filled-box breapth width depth height blot-diameter)
- (format "draw_round_box ~a ~a ~a ~a ~a"
- breapth width depth height blot-diameter
- ))