tuplet
polygon
draw-line
- between-system-string
define-origin
no-origin
start-page
(ly:numbers->string
(list x y width height blotdiam)) " draw_round_box"))
-(define (new-start-system origin dim)
+(define (start-system origin dim)
(string-append
"\n" (ly:number-pair->string origin) " start-system\n"
"{\n"
(ly:numbers->string (list breapth width depth height))
" draw_box" ))
-(define (stop-system)
+(define (stop-system last?)
"} stop-system\n")
-(define stop-last-system stop-system)
-
(define (symmetric-x-triangle thick w h)
(string-append
(ly:numbers->string (list h w thick))