LEFT | RIGHT |
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 58 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
69 | 69 |
70 | 70 |
71 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 71 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
72 ;; note heads | 72 ;; note heads |
73 | 73 |
74 (define-public (stem::calc-duration-log grob) | 74 (define-public (stem::calc-duration-log grob) |
75 (ly:duration-log | 75 (ly:duration-log |
76 (ly:event-property (event-cause grob) 'duration))) | 76 (ly:event-property (event-cause grob) 'duration))) |
77 | 77 |
78 (define-public (stem::length grob) | 78 (define-public (stem::length grob) |
79 (let* ((d (ly:grob-property grob 'direction)) | 79 (let* ((ss (ly:staff-symbol-staff-space grob)) |
80 (ss (ly:staff-symbol-staff-space grob)) | |
81 (beg (ly:grob-property grob 'stem-begin-position)) | 80 (beg (ly:grob-property grob 'stem-begin-position)) |
82 (beam (ly:grob-object grob 'beam))) | 81 (beam (ly:grob-object grob 'beam))) |
83 (if (null? beam) | 82 (if (null? beam) |
84 (abs (- (ly:stem::calc-stem-end-position grob) beg)) | 83 (abs (- (ly:stem::calc-stem-end-position grob) beg)) |
85 (ly:grob-property grob 'length)))) | 84 (begin |
| 85 (ly:programming-error |
| 86 "stem::length called but will not be used for beamed stem.") |
| 87 0.0)))) |
86 | 88 |
87 (define-public (stem::pure-length grob beg end) | 89 (define-public (stem::pure-length grob beg end) |
88 (let* ((d (ly:grob-property grob 'direction)) | 90 (let* ((ss (ly:staff-symbol-staff-space grob)) |
89 (ss (ly:staff-symbol-staff-space grob)) | |
90 (beg (ly:grob-pure-property grob 'stem-begin-position 0 1000))) | 91 (beg (ly:grob-pure-property grob 'stem-begin-position 0 1000))) |
91 (abs (- (ly:stem::pure-calc-stem-end-position grob 0 2147483646) beg)))) | 92 (abs (- (ly:stem::pure-calc-stem-end-position grob 0 2147483646) beg)))) |
92 | 93 |
93 (define-public (note-head::calc-duration-log grob) | 94 (define-public (note-head::calc-duration-log grob) |
94 (min 2 | 95 (min 2 |
95 (ly:duration-log | 96 (ly:duration-log |
96 (ly:event-property (event-cause grob) 'duration)))) | 97 (ly:event-property (event-cause grob) 'duration)))) |
97 | 98 |
98 (define-public (dots::calc-dot-count grob) | 99 (define-public (dots::calc-dot-count grob) |
99 (ly:duration-dot-count | 100 (ly:duration-dot-count |
(...skipping 891 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
991 (list))))) | 992 (list))))) |
992 | 993 |
993 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 994 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
994 ;; laissez-vibrer tie | 995 ;; laissez-vibrer tie |
995 ;; | 996 ;; |
996 ;; needed so we can make laissez-vibrer a pure print | 997 ;; needed so we can make laissez-vibrer a pure print |
997 ;; | 998 ;; |
998 (define-public (laissez-vibrer::print grob) | 999 (define-public (laissez-vibrer::print grob) |
999 (ly:tie::print grob)) | 1000 (ly:tie::print grob)) |
1000 | 1001 |
LEFT | RIGHT |