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 ;;;; (c) 1998--2010 Han-Wen Nienhuys <hanwen@xs4all.nl> | 3 ;;;; (c) 1998--2010 Han-Wen Nienhuys <hanwen@xs4all.nl> |
4 ;;;; Jan Nieuwenhuizen <janneke@gnu.org> | 4 ;;;; Jan Nieuwenhuizen <janneke@gnu.org> |
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 389 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
400 (define (open-string string pitch) | 400 (define (open-string string pitch) |
401 (let* ((fret (calc-fret pitch string tuning))) | 401 (let* ((fret (calc-fret pitch string tuning))) |
402 (eq? fret 0))) | 402 (eq? fret 0))) |
403 | 403 |
404 (define string-fret-fingering-tuples '()) | 404 (define string-fret-fingering-tuples '()) |
405 | 405 |
406 (define (set-fret note string) | 406 (define (set-fret note string) |
407 (let ((this-fret (calc-fret (ly:event-property note 'pitch) | 407 (let ((this-fret (calc-fret (ly:event-property note 'pitch) |
408 string | 408 string |
409 tuning))) | 409 tuning))) |
| 410 (if (< this-fret 0) |
| 411 (ly:warning (_ "Negative fret for pitch ~a on string ~a") |
| 412 (note-pitch note) string)) |
410 (set! string-fret-fingering-tuples | 413 (set! string-fret-fingering-tuples |
411 (cons (list string | 414 (cons (list string |
412 this-fret | 415 this-fret |
413 (note-finger note)) | 416 (note-finger note)) |
414 string-fret-fingering-tuples)) | 417 string-fret-fingering-tuples)) |
415 (delete-free-string string) | 418 (delete-free-string string) |
416 (set! specified-frets (cons this-fret specified-frets)))) | 419 (set! specified-frets (cons this-fret specified-frets)))) |
417 | 420 |
418 (define (pad-list target template) | 421 (define (pad-list target template) |
419 (while (< (length target) (length template)) | 422 (while (< (length target) (length template)) |
(...skipping 129 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
549 (define-public (all-bar-numbers-visible barnum) #t) | 552 (define-public (all-bar-numbers-visible barnum) #t) |
550 | 553 |
551 | 554 |
552 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 555 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
553 ;; percent repeat counters | 556 ;; percent repeat counters |
554 | 557 |
555 (define-public ((every-nth-repeat-count-visible n) count context) | 558 (define-public ((every-nth-repeat-count-visible n) count context) |
556 (= 0 (modulo count n))) | 559 (= 0 (modulo count n))) |
557 | 560 |
558 (define-public (all-repeat-counts-visible count context) #t) | 561 (define-public (all-repeat-counts-visible count context) #t) |
LEFT | RIGHT |