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.
                ;; Add last point.
(coord-list (append coords '((1.0 . 0.0))))
                (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)
            (my-c-p-s uplist used-thick)
    (cons xtrans ytrans)))
            (cons xtrans ytrans)))
         '())))
         '())))