Flat ties: Difference between revisions
Rewrite description and examples |
mNo edit summary |
||
| (One intermediate revision by the same user not shown) | |||
| 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))) | |||
'()))) | '()))) | ||
| Line 75: | Line 75: | ||
<>^\markup \small \typewriter | <>^\markup \small \typewriter | ||
"\shape #'((0 . 0) (0 . -1) (0 . -1) (0 . 0))" | "\\shape #'((0 . 0) (0 . -1) (0 . -1) (0 . 0))" | ||
\shape #'((0 . 0) (0 . -1) (0 . -1) (0 . 0)) Tie | \shape #'((0 . 0) (0 . -1) (0 . -1) (0 . 0)) Tie | ||
a4~ a | a4~ a | ||