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--2014 Jan Nieuwenhuizen <janneke@gnu.org> | 3 ;;;; Copyright (C) 1998--2014 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 977 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
988 ;; fingering | 988 ;; fingering |
989 | 989 |
990 (define-public (fingering::calc-text grob) | 990 (define-public (fingering::calc-text grob) |
991 (let ((event (event-cause grob))) | 991 (let ((event (event-cause grob))) |
992 (or (ly:event-property event 'text #f) | 992 (or (ly:event-property event 'text #f) |
993 (number->string (ly:event-property event 'digit) 10)))) | 993 (number->string (ly:event-property event 'digit) 10)))) |
994 | 994 |
995 (define-public (string-number::calc-text grob) | 995 (define-public (string-number::calc-text grob) |
996 (let ((event (event-cause grob))) | 996 (let ((event (event-cause grob))) |
997 (or (ly:event-property event 'text #f) | 997 (or (ly:event-property event 'text #f) |
998 ; number-format is defined in music-functions.scm | |
999 (number-format | 998 (number-format |
1000 (ly:grob-property grob 'number-type) | 999 (ly:grob-property grob 'number-type) |
1001 (ly:event-property event 'string-number))))) | 1000 (ly:event-property event 'string-number))))) |
1002 | 1001 |
1003 (define-public (stroke-finger::calc-text grob) | 1002 (define-public (stroke-finger::calc-text grob) |
1004 (let ((event (event-cause grob))) | 1003 (let ((event (event-cause grob))) |
1005 (or (ly:event-property event 'text #f) | 1004 (or (ly:event-property event 'text #f) |
1006 (vector-ref (ly:grob-property grob 'digit-names) | 1005 (vector-ref (ly:grob-property grob 'digit-names) |
1007 (1- (max 1 | 1006 (1- (max 1 |
1008 (min 5 (ly:event-property event 'digit)))))))) | 1007 (min 5 (ly:event-property event 'digit)))))))) |
(...skipping 381 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1390 with the subordinate symbols being interfaces." | 1389 with the subordinate symbols being interfaces." |
1391 (let loop ((forms forms)) | 1390 (let loop ((forms forms)) |
1392 (if (or (null? forms) (pair? forms)) | 1391 (if (or (null? forms) (pair? forms)) |
1393 `(list | 1392 `(list |
1394 ,@(map (lambda (form) | 1393 ,@(map (lambda (form) |
1395 (if (pair? (car form)) | 1394 (if (pair? (car form)) |
1396 `(cons ',(caar form) (lambda ,(cdar form) ,@(cdr form))) | 1395 `(cons ',(caar form) (lambda ,(cdar form) ,@(cdr form))) |
1397 `(cons ',(car form) ,(loop (cdr form))))) | 1396 `(cons ',(car form) ,(loop (cdr form))))) |
1398 forms)) | 1397 forms)) |
1399 forms))) | 1398 forms))) |
LEFT | RIGHT |