LEFT | RIGHT |
(no file at all) | |
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--2012 Jan Nieuwenhuizen <janneke@gnu.org> | 3 ;;;; Copyright (C) 1998--2012 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 634 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
645 0.0 | 645 0.0 |
646 (/ (+ (car x) (cdr x)) 2))) | 646 (/ (+ (car x) (cdr x)) 2))) |
647 | 647 |
648 (define-public interval-start car) | 648 (define-public interval-start car) |
649 | 649 |
650 (define-public interval-end cdr) | 650 (define-public interval-end cdr) |
651 | 651 |
652 (define (other-axis a) | 652 (define (other-axis a) |
653 (remainder (+ a 1) 2)) | 653 (remainder (+ a 1) 2)) |
654 | 654 |
| 655 (define-public (interval-scale iv factor) |
| 656 (cons (* (car iv) factor) |
| 657 (* (cdr iv) factor))) |
| 658 |
655 (define-public (interval-widen iv amount) | 659 (define-public (interval-widen iv amount) |
656 (cons (- (car iv) amount) | 660 (cons (- (car iv) amount) |
657 (+ (cdr iv) amount))) | 661 (+ (cdr iv) amount))) |
658 | 662 |
659 (define-public (interval-empty? iv) | 663 (define-public (interval-empty? iv) |
660 (> (car iv) (cdr iv))) | 664 (> (car iv) (cdr iv))) |
661 | 665 |
662 (define-public (interval-union i1 i2) | 666 (define-public (interval-union i1 i2) |
663 (cons | 667 (cons |
664 (min (car i1) (car i2)) | 668 (min (car i1) (car i2)) |
(...skipping 319 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
984 (define-public (version-not-seen-message input-file-name) | 988 (define-public (version-not-seen-message input-file-name) |
985 (ly:warning-located | 989 (ly:warning-located |
986 (ly:format "~a:0" input-file-name) | 990 (ly:format "~a:0" input-file-name) |
987 (_ "no \\version statement found, please add~afor future compatibility") | 991 (_ "no \\version statement found, please add~afor future compatibility") |
988 (format #f "\n\n\\version ~s\n\n" (lilypond-version)))) | 992 (format #f "\n\n\\version ~s\n\n" (lilypond-version)))) |
989 | 993 |
990 (define-public (old-relative-not-used-message input-file-name) | 994 (define-public (old-relative-not-used-message input-file-name) |
991 (ly:warning-located | 995 (ly:warning-located |
992 (ly:format "~a:0" input-file-name) | 996 (ly:format "~a:0" input-file-name) |
993 (_ "old relative compatibility not used"))) | 997 (_ "old relative compatibility not used"))) |
LEFT | RIGHT |