Flat ties: Difference between revisions
Rewrite description and examples |
m Avoid tabs |
||
| Line 37: | Line 37: | ||
(xtrans (car xex)) | (xtrans (car xex)) | ||
(ytrans (if (> dir 0)(car yex) (cdr yex))) | (ytrans (if (> dir 0)(car yex) (cdr yex))) | ||
;; Add last point. | |||
(coord-list (append coords '((1.0 . 0.0)))) | |||
(uplist | (uplist | ||
(map pair-to-list | (map pair-to-list | ||
(normalize-coords coord-list lenx (* leny 2) dir)))) | (normalize-coords coord-list lenx (* leny 2) dir)))) | ||
(ly:stencil-translate | (ly:stencil-translate | ||
(my-c-p-s uplist used-thick) | |||
(cons xtrans ytrans))) | |||
'()))) | '()))) | ||