From 2131b69d4957900fbd4b1269fb0e08fe905d0ca4 Mon Sep 17 00:00:00 2001 From: Reinhold Kainhofer Date: Mon, 31 Aug 2009 16:06:50 +0200 Subject: [PATCH] make several *->lily-string public, so they can be used e.g. in debug messages Also useful for automatically-generated scores (e.g. given a pitch, one can now automatically determine the lilypond pitch name). --- scm/define-music-display-methods.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm index 10b1df3566..72f94b0acf 100644 --- a/scm/define-music-display-methods.scm +++ b/scm/define-music-display-methods.scm @@ -81,7 +81,7 @@ (if (and (car alist) (test item (cdar alist))) (set! result (car alist))))) -(define (note-name->lily-string ly-pitch parser) +(define-public (note-name->lily-string ly-pitch parser) ;; here we define a custom pitch= function, since we do not want to ;; test whether octaves are also equal. (otherwise, we would be using equal?) (define (pitch= pitch1 pitch2) @@ -92,7 +92,7 @@ (car result) #f))) -(define (octave->lily-string pitch) +(define-public (octave->lily-string pitch) (let ((octave (ly:pitch-octave pitch))) (cond ((>= octave 0) (make-string (1+ octave) #\')) @@ -103,7 +103,7 @@ ;;; ;;; durations ;;; -(define* (duration->lily-string ly-duration #:key (prev-duration (*previous-duration*)) +(define*-public (duration->lily-string ly-duration #:key (prev-duration (*previous-duration*)) (force-duration (*force-duration*)) (time-factor-numerator (*time-factor-numerator*)) (time-factor-denominator (*time-factor-denominator*))) -- 2.39.5