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--2010 Jan Nieuwenhuizen <janneke@gnu.org> | 3 ;;;; Copyright (C) 1998--2010 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 155 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
166 filled-circle | 166 filled-circle |
167 (make-with-color-markup white letter)) | 167 (make-with-color-markup white letter)) |
168 (make-combine-markup | 168 (make-combine-markup |
169 (make-combine-markup | 169 (make-combine-markup |
170 filled-circle | 170 filled-circle |
171 (make-with-color-markup white (make-draw-circle-markup | 171 (make-with-color-markup white (make-draw-circle-markup |
172 (- radius stem-thickness) 0 #t))) | 172 (- radius stem-thickness) 0 #t))) |
173 letter))) | 173 letter))) |
174 radius X))) | 174 radius X))) |
175 | 175 |
| 176 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 177 ;; clipping· |
| 178 (define-public (make-rhythmic-location bar-num num den) |
| 179 (cons |
| 180 bar-num (ly:make-moment num den))) |
| 181 |
| 182 (define-public (rhythmic-location? a) |
| 183 (and (pair? a) |
| 184 (integer? (car a)) |
| 185 (ly:moment? (cdr a)))) |
| 186 |
| 187 (define-public (make-graceless-rhythmic-location loc) |
| 188 (make-rhythmic-location |
| 189 (car loc) |
| 190 (ly:moment-main-numerator (rhythmic-location-measure-position loc)) |
| 191 (ly:moment-main-denominator (rhythmic-location-measure-position loc)))) |
| 192 |
| 193 |
| 194 (define-public rhythmic-location-measure-position cdr) |
| 195 (define-public rhythmic-location-bar-number car) |
| 196 |
| 197 (define-public (rhythmic-location<? a b) |
| 198 (cond |
| 199 ((< (car a) (car b)) #t) |
| 200 ((> (car a) (car b)) #f) |
| 201 (else |
| 202 (ly:moment<? (cdr a) (cdr b))))) |
| 203 |
| 204 (define-public (rhythmic-location<=? a b) |
| 205 (not (rhythmic-location<? b a))) |
| 206 (define-public (rhythmic-location>=? a b) |
| 207 (rhythmic-location<? a b)) |
| 208 (define-public (rhythmic-location>? a b) |
| 209 (rhythmic-location<? b a)) |
| 210 |
| 211 (define-public (rhythmic-location=? a b) |
| 212 (and (rhythmic-location<=? a b) |
| 213 (rhythmic-location<=? b a))) |
| 214 |
| 215 |
| 216 (define-public (rhythmic-location->file-string a) |
| 217 (ly:format "~a.~a.~a" |
| 218 (car a) |
| 219 (ly:moment-main-numerator (cdr a)) |
| 220 (ly:moment-main-denominator (cdr a)))) |
| 221 |
| 222 (define-public (rhythmic-location->string a) |
| 223 (ly:format "bar ~a ~a" |
| 224 (car a) |
| 225 (ly:moment->string (cdr a)))) |
176 | 226 |
177 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 227 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
178 ;; break visibility | 228 ;; break visibility |
179 | 229 |
180 (define-public all-visible #(#t #t #t)) | 230 (define-public all-visible #(#t #t #t)) |
181 (define-public begin-of-line-invisible #(#t #t #f)) | 231 (define-public begin-of-line-invisible #(#t #t #f)) |
182 (define-public center-invisible #(#t #f #t)) | 232 (define-public center-invisible #(#t #f #t)) |
183 (define-public end-of-line-invisible #(#f #t #t)) | 233 (define-public end-of-line-invisible #(#f #t #t)) |
184 (define-public begin-of-line-visible #(#f #f #t)) | 234 (define-public begin-of-line-visible #(#f #f #t)) |
185 (define-public center-visible #(#f #t #f)) | 235 (define-public center-visible #(#f #t #f)) |
(...skipping 698 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
884 (list))))) | 934 (list))))) |
885 | 935 |
886 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 936 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
887 ;; laissez-vibrer tie | 937 ;; laissez-vibrer tie |
888 ;; | 938 ;; |
889 ;; needed so we can make laissez-vibrer a pure print | 939 ;; needed so we can make laissez-vibrer a pure print |
890 ;; | 940 ;; |
891 (define-public (laissez-vibrer::print grob) | 941 (define-public (laissez-vibrer::print grob) |
892 (ly:tie::print grob)) | 942 (ly:tie::print grob)) |
893 | 943 |
OLD | NEW |