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--2011 Jan Nieuwenhuizen <janneke@gnu.org> | 3 ;;;; Copyright (C) 1998--2011 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 45 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
56 (ly:text-interface::interpret-markup layout props text))) | 56 (ly:text-interface::interpret-markup layout props text))) |
57 | 57 |
58 | 58 |
59 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 59 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
60 ;; note heads | 60 ;; note heads |
61 | 61 |
62 (define-public (stem::calc-duration-log grob) | 62 (define-public (stem::calc-duration-log grob) |
63 (ly:duration-log | 63 (ly:duration-log |
64 (ly:event-property (event-cause grob) 'duration))) | 64 (ly:event-property (event-cause grob) 'duration))) |
65 | 65 |
| 66 (define-public (stem::length val) |
| 67 (lambda (grob) |
| 68 (let* ((d (ly:grob-property grob 'direction)) |
| 69 (ss (ly:staff-symbol-staff-space grob)) |
| 70 (beg (ly:stem::calc-stem-begin-position grob)) |
| 71 (y1 (* beg (* 0.5 ss))) |
| 72 (y2 (* ((if (eqv? d DOWN) - +) beg val) (* 0.5 ss)))) |
| 73 (if (eqv? d DOWN) |
| 74 (cons y2 y1) |
| 75 (cons y1 y2))))) |
| 76 |
66 (define-public (note-head::calc-duration-log grob) | 77 (define-public (note-head::calc-duration-log grob) |
67 (min 2 | 78 (min 2 |
68 (ly:duration-log | 79 (ly:duration-log |
69 (ly:event-property (event-cause grob) 'duration)))) | 80 (ly:event-property (event-cause grob) 'duration)))) |
70 | 81 |
71 (define-public (dots::calc-dot-count grob) | 82 (define-public (dots::calc-dot-count grob) |
72 (ly:duration-dot-count | 83 (ly:duration-dot-count |
73 (ly:event-property (event-cause grob) 'duration))) | 84 (ly:event-property (event-cause grob) 'duration))) |
74 | 85 |
75 (define-public (dots::calc-staff-position grob) | 86 (define-public (dots::calc-staff-position grob) |
(...skipping 885 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
961 (list))))) | 972 (list))))) |
962 | 973 |
963 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 974 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
964 ;; laissez-vibrer tie | 975 ;; laissez-vibrer tie |
965 ;; | 976 ;; |
966 ;; needed so we can make laissez-vibrer a pure print | 977 ;; needed so we can make laissez-vibrer a pure print |
967 ;; | 978 ;; |
968 (define-public (laissez-vibrer::print grob) | 979 (define-public (laissez-vibrer::print grob) |
969 (ly:tie::print grob)) | 980 (ly:tie::print grob)) |
970 | 981 |
OLD | NEW |