OLD | NEW |
1 ;;;; This file is part of LilyPond, the GNU music typesetter. | 1 ;;;; This file is part of LilyPond, the GNU music typesetter. |
2 ;;;; | 2 ;;;; |
3 ;;;; Copyright (C) 1998--2015 Jan Nieuwenhuizen <janneke@gnu.org> | 3 ;;;; Copyright (C) 1998--2015 Jan Nieuwenhuizen <janneke@gnu.org> |
4 ;;;; Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 ;;;; Han-Wen Nienhuys <hanwen@xs4all.nl> |
5 ;;;; | 5 ;;;; |
6 ;;;; LilyPond is free software: you can redistribute it and/or modify | 6 ;;;; LilyPond is free software: you can redistribute it and/or modify |
7 ;;;; it under the terms of the GNU General Public License as published by | 7 ;;;; it under the terms of the GNU General Public License as published by |
8 ;;;; the Free Software Foundation, either version 3 of the License, or | 8 ;;;; the Free Software Foundation, either version 3 of the License, or |
9 ;;;; (at your option) any later version. | 9 ;;;; (at your option) any later version. |
10 ;;;; | 10 ;;;; |
(...skipping 1187 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1198 (make-connected-path-stencil | 1198 (make-connected-path-stencil |
1199 points | 1199 points |
1200 thick | 1200 thick |
1201 (if decresc? -1.0 1.0) | 1201 (if decresc? -1.0 1.0) |
1202 1.0 | 1202 1.0 |
1203 #f | 1203 #f |
1204 #f)) | 1204 #f)) |
1205 ;; outer let to trigger suicide | 1205 ;; outer let to trigger suicide |
1206 (let ((sten (ly:hairpin::print grob))) | 1206 (let ((sten (ly:hairpin::print grob))) |
1207 (if (grob::is-live? grob) | 1207 (if (grob::is-live? grob) |
1208 (let* ((decresc? (eq? (ly:grob-property grob 'grow-direction) LEFT)) | 1208 (let* ((decresc? (eqv? (ly:grob-property grob 'grow-direction) LEFT)) |
1209 (thick (ly:grob-property grob 'thickness 0.1)) | 1209 (thick (ly:grob-property grob 'thickness 0.1)) |
1210 (thick (* thick (layout-line-thickness grob))) | 1210 (thick (* thick (layout-line-thickness grob))) |
1211 (xex (ly:stencil-extent sten X)) | 1211 (xex (ly:stencil-extent sten X)) |
1212 (lenx (interval-length xex)) | 1212 (lenx (interval-length xex)) |
1213 (yex (ly:stencil-extent sten Y)) | 1213 (yex (ly:stencil-extent sten Y)) |
1214 (leny (interval-length yex)) | 1214 (leny (interval-length yex)) |
1215 (xtrans (+ (car xex) (if decresc? lenx 0))) | 1215 (xtrans (+ (car xex) (if decresc? lenx 0))) |
1216 (ytrans (car yex)) | 1216 (ytrans (car yex)) |
1217 (uplist (map pair-to-list | 1217 (uplist (map pair-to-list |
1218 (normalize-coords coords lenx (/ leny 2)))) | 1218 (normalize-coords coords lenx (/ leny 2)))) |
(...skipping 357 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1576 with the subordinate symbols being interfaces." | 1576 with the subordinate symbols being interfaces." |
1577 (let loop ((forms forms)) | 1577 (let loop ((forms forms)) |
1578 (if (or (null? forms) (pair? forms)) | 1578 (if (or (null? forms) (pair? forms)) |
1579 `(list | 1579 `(list |
1580 ,@(map (lambda (form) | 1580 ,@(map (lambda (form) |
1581 (if (pair? (car form)) | 1581 (if (pair? (car form)) |
1582 `(cons ',(caar form) (lambda ,(cdar form) ,@(cdr form))) | 1582 `(cons ',(caar form) (lambda ,(cdar form) ,@(cdr form))) |
1583 `(cons ',(car form) ,(loop (cdr form))))) | 1583 `(cons ',(car form) ,(loop (cdr form))))) |
1584 forms)) | 1584 forms)) |
1585 forms))) | 1585 forms))) |
OLD | NEW |