From d84c7587117731add28b3b3591e9ef3d92fa827c Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Wed, 4 Oct 2006 10:51:57 +0000 Subject: [PATCH] * scm/backend-library.scm: update email address. * scm/define-grobs.scm (all-grob-descriptions): use callback to calc dot count. * scm/output-lib.scm (string-number::calc-text): new function. (note-head::calc-duration-log): new function. * scm/output-lib.scm (fingering::calc-text): new function. --- ChangeLog | 2 + scm/backend-library.scm | 2 +- scm/c++.scm | 2 +- scm/chord-ignatzek-names.scm | 2 +- scm/chord-name.scm | 2 +- scm/define-context-properties.scm | 2 +- scm/define-grob-interfaces.scm | 2 +- scm/define-grob-properties.scm | 2 +- scm/define-grobs.scm | 2 +- scm/define-markup-commands.scm | 2 +- scm/define-music-properties.scm | 2 +- scm/define-music-types.scm | 2 +- scm/document-backend.scm | 2 +- scm/document-functions.scm | 2 +- scm/document-markup.scm | 2 +- scm/document-music.scm | 2 +- scm/document-translation.scm | 2 +- scm/documentation-generate.scm | 2 +- scm/documentation-lib.scm | 2 +- scm/file-cache.scm | 2 +- scm/framework-eps.scm | 2 +- scm/framework-ps.scm | 2 +- scm/framework-tex.scm | 2 +- scm/framework-texstr.scm | 2 +- scm/layout-page-dump.scm | 2 +- scm/layout-page-layout.scm | 2 +- scm/lily-library.scm | 9 +++- scm/lily.scm | 2 +- scm/markup.scm | 2 +- scm/music-functions.scm | 2 +- scm/output-lib.scm | 89 ++++++++++++++++--------------- scm/output-ps.scm | 2 +- scm/output-tex.scm | 2 +- scm/output-texstr.scm | 2 +- scm/paper.scm | 2 +- scm/parser-clef.scm | 2 +- scm/part-combiner.scm | 2 +- scm/safe-lily.scm | 2 +- scm/script.scm | 2 +- scm/standalone.scm | 2 +- scm/stencil.scm | 2 +- scm/titling.scm | 2 +- scm/to-xml.scm | 2 +- scm/translation-functions.scm | 2 +- 44 files changed, 96 insertions(+), 86 deletions(-) diff --git a/ChangeLog b/ChangeLog index d560201a60..1a1f05cebd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2006-10-04 Han-Wen Nienhuys + * scm/backend-library.scm: update email address. + * Documentation/topdocs/NEWS.tely (Top): add duration-log override example. diff --git a/scm/backend-library.scm b/scm/backend-library.scm index c0f5b5ba5d..aa432017db 100644 --- a/scm/backend-library.scm +++ b/scm/backend-library.scm @@ -3,7 +3,7 @@ ;;;; source file of the GNU LilyPond music typesetter ;;;; ;;;; (c) 2005--2006 Jan Nieuwenhuizen -;;;; Han-Wen Nienhuys +;;;; Han-Wen Nienhuys ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; backend helpers. diff --git a/scm/c++.scm b/scm/c++.scm index 61fb34e782..adc21cea23 100644 --- a/scm/c++.scm +++ b/scm/c++.scm @@ -3,7 +3,7 @@ ;;;; source file of the GNU LilyPond music typesetter ;;;; ;;;; (c) 1998--2006 Jan Nieuwenhuizen -;;;; Han-Wen Nienhuys +;;;; Han-Wen Nienhuys ;;; Note: this file can't be used without LilyPond executable diff --git a/scm/chord-ignatzek-names.scm b/scm/chord-ignatzek-names.scm index 2783f32a86..b3cdb56946 100644 --- a/scm/chord-ignatzek-names.scm +++ b/scm/chord-ignatzek-names.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2000--2006 Han-Wen Nienhuys +;;;; (c) 2000--2006 Han-Wen Nienhuys diff --git a/scm/chord-name.scm b/scm/chord-name.scm index bdef88a476..fe4ba7ab12 100644 --- a/scm/chord-name.scm +++ b/scm/chord-name.scm @@ -3,7 +3,7 @@ ;;;; source file of the GNU LilyPond music typesetter ;;;; ;;;; (c) 2000--2006 Jan Nieuwenhuizen -;;;; Han-Wen Nienhuys +;;;; Han-Wen Nienhuys (define (natural-chord-alteration p) "Return the natural alteration for step P." diff --git a/scm/define-context-properties.scm b/scm/define-context-properties.scm index e55c2fb8c0..85e4ece2ba 100644 --- a/scm/define-context-properties.scm +++ b/scm/define-context-properties.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 1998--2006 Han-Wen Nienhuys +;;;; (c) 1998--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen diff --git a/scm/define-grob-interfaces.scm b/scm/define-grob-interfaces.scm index 6ab1b55cce..5876ae40e9 100644 --- a/scm/define-grob-interfaces.scm +++ b/scm/define-grob-interfaces.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 1998--2006 Han-Wen Nienhuys +;;;; (c) 1998--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm index 5ad1fad253..7f46e9890b 100644 --- a/scm/define-grob-properties.scm +++ b/scm/define-grob-properties.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 1998--2006 Han-Wen Nienhuys +;;;; (c) 1998--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen (define (define-grob-property symbol type? description) diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm index 3d2f9614ee..b818532294 100644 --- a/scm/define-grobs.scm +++ b/scm/define-grobs.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 1998--2006 Han-Wen Nienhuys +;;;; (c) 1998--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen ;;;; distances are given in line-thickness (thicknesses) and diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm index c98fe803c1..a601bd0260 100644 --- a/scm/define-markup-commands.scm +++ b/scm/define-markup-commands.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2000--2006 Han-Wen Nienhuys +;;;; (c) 2000--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen diff --git a/scm/define-music-properties.scm b/scm/define-music-properties.scm index 5fa2b1e74d..09f2a14b96 100644 --- a/scm/define-music-properties.scm +++ b/scm/define-music-properties.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 1998--2006 Han-Wen Nienhuys +;;;; (c) 1998--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen (define (music-property-description symbol type? description) diff --git a/scm/define-music-types.scm b/scm/define-music-types.scm index 375a1568c0..fb0cc99d25 100644 --- a/scm/define-music-types.scm +++ b/scm/define-music-types.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 1998--2006 Han-Wen Nienhuys +;;;; (c) 1998--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen ;; TODO: should link back into user manual. diff --git a/scm/document-backend.scm b/scm/document-backend.scm index f71689d3c0..6b22d7f300 100644 --- a/scm/document-backend.scm +++ b/scm/document-backend.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2000--2006 Han-Wen Nienhuys +;;;; (c) 2000--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen (define (interface-doc-string interface grob-description) diff --git a/scm/document-functions.scm b/scm/document-functions.scm index 2c6bbfcd09..5515b1312e 100644 --- a/scm/document-functions.scm +++ b/scm/document-functions.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 1998--2006 Han-Wen Nienhuys +;;;; (c) 1998--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen (use-modules diff --git a/scm/document-markup.scm b/scm/document-markup.scm index 6837ba5c9d..c2257640a9 100644 --- a/scm/document-markup.scm +++ b/scm/document-markup.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 1998--2006 Han-Wen Nienhuys +;;;; (c) 1998--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen (define (doc-markup-function func) diff --git a/scm/document-music.scm b/scm/document-music.scm index 6070cf7692..d6bd4e1c59 100644 --- a/scm/document-music.scm +++ b/scm/document-music.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 1998--2006 Han-Wen Nienhuys +;;;; (c) 1998--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen (define (music-props-doc) diff --git a/scm/document-translation.scm b/scm/document-translation.scm index 9b4d7a23f6..4784872897 100644 --- a/scm/document-translation.scm +++ b/scm/document-translation.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2000--2006 Han-Wen Nienhuys +;;;; (c) 2000--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen (define (engraver-makes-grob? name-symbol grav) diff --git a/scm/documentation-generate.scm b/scm/documentation-generate.scm index b159daeb4e..6143f60993 100644 --- a/scm/documentation-generate.scm +++ b/scm/documentation-generate.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2000--2006 Han-Wen Nienhuys +;;;; (c) 2000--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen ;;; File entry point for generated documentation diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm index 859032cc42..ce91651e77 100644 --- a/scm/documentation-lib.scm +++ b/scm/documentation-lib.scm @@ -3,7 +3,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2000--2006 Han-Wen Nienhuys +;;;; (c) 2000--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen (use-modules (oop goops) diff --git a/scm/file-cache.scm b/scm/file-cache.scm index 3868c40dd5..332f9bab10 100644 --- a/scm/file-cache.scm +++ b/scm/file-cache.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2005--2006 Han-Wen Nienhuys +;;;; (c) 2005--2006 Han-Wen Nienhuys (define cache-hash-tab (make-hash-table 11)) diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm index 643a979642..ad5125d3dd 100644 --- a/scm/framework-eps.scm +++ b/scm/framework-eps.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2004--2006 Han-Wen Nienhuys +;;;; (c) 2004--2006 Han-Wen Nienhuys (define-module (scm framework-eps)) diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm index 60e241ac16..10934b84e8 100644 --- a/scm/framework-ps.scm +++ b/scm/framework-ps.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2004--2006 Han-Wen Nienhuys +;;;; (c) 2004--2006 Han-Wen Nienhuys (define-module (scm framework-ps)) diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm index 001da51113..83c64820e5 100644 --- a/scm/framework-tex.scm +++ b/scm/framework-tex.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2004--2006 Han-Wen Nienhuys +;;;; (c) 2004--2006 Han-Wen Nienhuys (define-module (scm framework-tex) #:export (output-framework-tex diff --git a/scm/framework-texstr.scm b/scm/framework-texstr.scm index 88bc25a228..5078b35b9d 100644 --- a/scm/framework-texstr.scm +++ b/scm/framework-texstr.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2004--2006 Han-Wen Nienhuys +;;;; (c) 2004--2006 Han-Wen Nienhuys (define-module (scm framework-texstr) #:export (output-framework-tex diff --git a/scm/layout-page-dump.scm b/scm/layout-page-dump.scm index edb2780a53..50815ac2ef 100644 --- a/scm/layout-page-dump.scm +++ b/scm/layout-page-dump.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2006 Han-Wen Nienhuys +;;;; (c) 2006 Han-Wen Nienhuys ;;;; 2006 Nicolas Sceaux (define-module (scm layout-page-dump) diff --git a/scm/layout-page-layout.scm b/scm/layout-page-layout.scm index 6328b8d122..e370a17132 100644 --- a/scm/layout-page-layout.scm +++ b/scm/layout-page-layout.scm @@ -3,7 +3,7 @@ ;;;; source file of the GNU LilyPond music typesetter ;;;; ;;;; (c) 2004--2006 Jan Nieuwenhuizen -;;;; Han-Wen Nienhuys +;;;; Han-Wen Nienhuys (define-module (scm layout-page-layout) #:use-module (srfi srfi-1) diff --git a/scm/lily-library.scm b/scm/lily-library.scm index acb29bb853..492e38d5ec 100644 --- a/scm/lily-library.scm +++ b/scm/lily-library.scm @@ -4,7 +4,7 @@ ;;;; source file of the GNU LilyPond music typesetter ;;;; ;;;; (c) 1998--2006 Jan Nieuwenhuizen -;;;; Han-Wen Nienhuys +;;;; Han-Wen Nienhuys (define-public X 0) @@ -391,6 +391,13 @@ found." ;; +(define-public (string-encode-integer i) + (cond + ((= i 0) "o") + ((< i 0) (string-append "n" (string-encode-integer (- i)))) + (else (string-append + (make-string 1 (integer->char (+ 65 (modulo i 26)))) + (string-encode-integer (quotient i 26)))))) (define-public (ly:numbers->string lst) (string-join (map ly:number->string lst) " ")) diff --git a/scm/lily.scm b/scm/lily.scm index 5c7e09cab9..8385bbdd00 100644 --- a/scm/lily.scm +++ b/scm/lily.scm @@ -3,7 +3,7 @@ ;;;; source file of the GNU LilyPond music typesetter ;;;; ;;;; (c) 1998--2006 Jan Nieuwenhuizen -;;;; Han-Wen Nienhuys +;;;; Han-Wen Nienhuys (define (define-scheme-options) diff --git a/scm/markup.scm b/scm/markup.scm index a98ba122db..268efaf879 100644 --- a/scm/markup.scm +++ b/scm/markup.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2003--2006 Han-Wen Nienhuys +;;;; (c) 2003--2006 Han-Wen Nienhuys " Internally markup is stored as lists, whose head is a function. diff --git a/scm/music-functions.scm b/scm/music-functions.scm index ff0e768c0a..86d2f2e0dd 100644 --- a/scm/music-functions.scm +++ b/scm/music-functions.scm @@ -3,7 +3,7 @@ ;;;; source file of the GNU LilyPond music typesetter ;;;; ;;;; (c) 1998--2006 Jan Nieuwenhuizen -;;;; Han-Wen Nienhuys +;;;; Han-Wen Nienhuys ;; (use-modules (ice-9 optargs)) diff --git a/scm/output-lib.scm b/scm/output-lib.scm index 7eeefa3bad..7281fee947 100644 --- a/scm/output-lib.scm +++ b/scm/output-lib.scm @@ -3,10 +3,37 @@ ;;;; source file of the GNU LilyPond music typesetter ;;;; ;;;; (c) 1998--2006 Jan Nieuwenhuizen -;;;; Han-Wen Nienhuys +;;;; Han-Wen Nienhuys + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; general + +(define-public (make-stencil-boxer thickness padding callback) + + "Return function that adds a box around the grob passed as argument." + (lambda (grob) + + (box-stencil (callback grob) thickness padding))) + +(define-public (make-stencil-circler thickness padding callback) + "Return function that adds a circle around the grob passed as argument." + + (lambda (grob) (circle-stencil (callback grob) thickness padding))) + +(define-public (print-circled-text-callback grob) + (let* ((text (ly:grob-property grob 'text)) + + (layout (ly:grob-layout grob)) + (defs (ly:output-def-lookup layout 'text-font-defaults)) + (props (ly:grob-alist-chain grob defs)) + (circle (ly:text-interface::interpret-markup + layout props (make-circle-markup text)))) + circle)) + + (define-public (event-cause grob) (let* ((cause (ly:grob-property grob 'cause))) @@ -17,19 +44,7 @@ (else #f)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; note heads - -(define-public (note-head::calc-duration-log grob) - (ly:duration-log - (ly:event-property (event-cause grob) 'duration))) - -(define-public (dots::calc-dot-count grob) - (ly:duration-dot-count - (ly:event-property (event-cause grob) 'duration))) - -;; The TabNoteHead stem attachment function. -(define (note-head::calc-tablature-stem-attachment grob) - (cons 0.0 1.35)) +;; tablature ;; The TabNoteHead tablatureFormat callback. ;; Compute the text grob-property @@ -74,33 +89,21 @@ (define-public (four-string-banjo tuning) (reverse (cdr (reverse tuning)))) -;;; end of tablature functions +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; note heads -(define-public (make-stencil-boxer thickness padding callback) +(define-public (note-head::calc-duration-log grob) + (ly:duration-log + (ly:event-property (event-cause grob) 'duration))) - "Return function that adds a box around the grob passed as argument." - (lambda (grob) - - (box-stencil (callback grob) thickness padding))) +(define-public (dots::calc-dot-count grob) + (ly:duration-dot-count + (ly:event-property (event-cause grob) 'duration))) -(define-public (make-stencil-circler thickness padding callback) - "Return function that adds a circle around the grob passed as argument." - (lambda (grob) (circle-stencil (callback grob) thickness padding))) +(define (note-head::calc-tablature-stem-attachment grob) + (cons 0.0 1.35)) -(define-public (arg->string arg) - (cond ((number? arg) (ly:inexact->string arg 10)) - ((string? arg) (string-append "\"" arg "\"")) - ((symbol? arg) (string-append "\"" (symbol->string arg) "\"")))) -(define-public (print-circled-text-callback grob) - (let* ((text (ly:grob-property grob 'text)) - - (layout (ly:grob-layout grob)) - (defs (ly:output-def-lookup layout 'text-font-defaults)) - (props (ly:grob-alist-chain grob defs)) - (circle (ly:text-interface::interpret-markup - layout props (make-circle-markup text)))) - circle)) ;; silly, use alist? (define-public (note-head::calc-glyph-name grob) @@ -151,13 +154,9 @@ centered, X==1 is at the right, X == -1 is at the left." '(1.0 . 0.0)) -(define-public (string-encode-integer i) - (cond - ((= i 0) "o") - ((< i 0) (string-append "n" (string-encode-integer (- i)))) - (else (string-append - (make-string 1 (integer->char (+ 65 (modulo i 26)))) - (string-encode-integer (quotient i 26)))))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; bar numbers (define-public ((every-nth-bar-number-visible n) barnum) (= 0 (modulo barnum n))) @@ -169,7 +168,9 @@ centered, X==1 is at the right, X == -1 is at the left." (define-public (first-bar-number-invisible barnum) (> barnum 1)) -;; See documentation of ly:item::visibility-lambda- +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; break visibility + (define-public begin-of-line-visible #(#f #f #t)) (define-public end-of-line-visible diff --git a/scm/output-ps.scm b/scm/output-ps.scm index f5dcc38a59..a50f82d639 100644 --- a/scm/output-ps.scm +++ b/scm/output-ps.scm @@ -3,7 +3,7 @@ ;;;; source file of the GNU LilyPond music typesetter ;;;; ;;;; (c) 1998--2006 Jan Nieuwenhuizen -;;;; Han-Wen Nienhuys +;;;; Han-Wen Nienhuys ;;;; Note: currently misused as testbed for titles with markup, see ;;;; input/test/title-markup.ly diff --git a/scm/output-tex.scm b/scm/output-tex.scm index 0f36375f0d..3a3e023ebe 100644 --- a/scm/output-tex.scm +++ b/scm/output-tex.scm @@ -3,7 +3,7 @@ ;;;; source file of the GNU LilyPond music typesetter ;;;; ;;;; (c) 1998--2006 Jan Nieuwenhuizen -;;;; Han-Wen Nienhuys +;;;; Han-Wen Nienhuys ;; The public interface is tight. diff --git a/scm/output-texstr.scm b/scm/output-texstr.scm index 35ed35e3b3..81303dc0ca 100644 --- a/scm/output-texstr.scm +++ b/scm/output-texstr.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2004--2006 Han-Wen Nienhuys +;;;; (c) 2004--2006 Han-Wen Nienhuys (define-module (scm output-texstr)) (define this-module (current-module)) diff --git a/scm/paper.scm b/scm/paper.scm index 5cd99e70cd..666745faf4 100644 --- a/scm/paper.scm +++ b/scm/paper.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2004--2006 Han-Wen Nienhuys +;;;; (c) 2004--2006 Han-Wen Nienhuys (define-public (set-paper-dimension-variables mod) (module-define! mod 'dimension-variables diff --git a/scm/parser-clef.scm b/scm/parser-clef.scm index 85d6e6de5f..0095d29e81 100644 --- a/scm/parser-clef.scm +++ b/scm/parser-clef.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2004--2006 Han-Wen Nienhuys +;;;; (c) 2004--2006 Han-Wen Nienhuys ;; (name . (glyph clef-position octavation)) diff --git a/scm/part-combiner.scm b/scm/part-combiner.scm index bd9ce0f720..2fd78599ee 100644 --- a/scm/part-combiner.scm +++ b/scm/part-combiner.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2004--2006 Han-Wen Nienhuys +;;;; (c) 2004--2006 Han-Wen Nienhuys ;; todo: figure out how to make module, ;; without breaking nested ly scopes diff --git a/scm/safe-lily.scm b/scm/safe-lily.scm index 5a664e2d9b..31161e25cf 100644 --- a/scm/safe-lily.scm +++ b/scm/safe-lily.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2004--2006 Han-Wen Nienhuys +;;;; (c) 2004--2006 Han-Wen Nienhuys (map (lambda (sym) diff --git a/scm/script.scm b/scm/script.scm index 5b24e0455e..733380dbd6 100644 --- a/scm/script.scm +++ b/scm/script.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2000--2006 Han-Wen Nienhuys +;;;; (c) 2000--2006 Han-Wen Nienhuys (set! default-script-alist (append diff --git a/scm/standalone.scm b/scm/standalone.scm index e7a1e2b290..681a49d042 100644 --- a/scm/standalone.scm +++ b/scm/standalone.scm @@ -3,7 +3,7 @@ ;;;; source file of the GNU LilyPond music typesetter ;;;; ;;;; (c) 1998--2006 Jan Nieuwenhuizen -;;;; Han-Wen Nienhuys +;;;; Han-Wen Nienhuys (define standalone (not (defined? 'ly:gulp-file))) ;;(write standalone (current-error-port)) diff --git a/scm/stencil.scm b/scm/stencil.scm index 567e0a3099..f39328984b 100644 --- a/scm/stencil.scm +++ b/scm/stencil.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2003--2006 Han-Wen Nienhuys +;;;; (c) 2003--2006 Han-Wen Nienhuys (define-public (stack-stencils axis dir padding stils) "Stack stencils STILS in direction AXIS, DIR, using PADDING." diff --git a/scm/titling.scm b/scm/titling.scm index f6ac5f0b12..7eae28e66d 100644 --- a/scm/titling.scm +++ b/scm/titling.scm @@ -3,7 +3,7 @@ ;;;; source file of the GNU LilyPond music typesetter ;;;; ;;;; (c) 2004--2006 Jan Nieuwenhuizen -;;;; Han-Wen Nienhuys +;;;; Han-Wen Nienhuys (define-public (layout-extract-page-properties layout) (list (append `((line-width . ,(ly:paper-get-number diff --git a/scm/to-xml.scm b/scm/to-xml.scm index dd9e5bfca7..5f2828a370 100644 --- a/scm/to-xml.scm +++ b/scm/to-xml.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2003--2006 Han-Wen Nienhuys +;;;; (c) 2003--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen (use-modules (ice-9 regex) diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm index 96a5c7ec27..0bf05bca57 100644 --- a/scm/translation-functions.scm +++ b/scm/translation-functions.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 1998--2006 Han-Wen Nienhuys +;;;; (c) 1998--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen ;; metronome marks -- 2.39.5