-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Am Freitag, 14. August 2009 23:13:18 schrieb James E. Bailey:
> Look at that, even I need scheme. I wanted to have the time signature be
>
> 3+3+2
> 8
>
> Apparently this is where Scheme is necessary. I've found the one that
> makes it
> 3+3+2
> 8 8 8
>
> in the documentation
Attached is my current code for general complex time signatures (arbitrary #
of fractions, arbitrary # of numerators). I have not yet tried to get it into
master, because the auto-beaming does not yet follow the signature.
Cheers,
Reinhold
- --
- ------------------------------------------------------------------
Reinhold Kainhofer, reinh...@kainhofer.com, http://reinhold.kainhofer.com/
* Financial & Actuarial Math., Vienna Univ. of Technology, Austria
* http://www.fam.tuwien.ac.at/, DVR: 0005886
* LilyPond, Music typesetting, http://www.lilypond.org
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)
iD8DBQFKhelCTqjEwhXvPN0RAu0NAKCrYbZ4HAD73AHH8w3eNYmYSXvQ4QCfRQAd
yoTlxbPOM/e6ZJgxzuCRTk0=
=rHjY
-----END PGP SIGNATURE-----
\version "2.11.65"
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Formatting of (possibly complex) compound time signatures
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
#(define-public (insert-markups l m)
(let* ((ll (reverse l)))
(let join-markups ((markups (list (car ll)))
(remaining (cdr ll)))
(if (pair? remaining)
(join-markups (cons (car remaining) (cons m markups)) (cdr remaining))
markups))))
% Use a centered-column inside a left-column, because the centered column
% moves its reference point to the center, which the left-column undoes.
% The center-column also aligns its contented centered, which is not undone...
#(define-public (format-time-fraction time-sig-fraction)
(let* ((revargs (reverse (map number->string time-sig-fraction)))
(den (car revargs))
(nums (reverse (cdr revargs))))
(make-override-markup '(baseline-skip . 0)
(make-number-markup
(make-left-column-markup (list
(make-center-column-markup (list
(make-line-markup (insert-markups nums "+"))
den))))))))
#(define-public (format-complex-compound-time time-sig)
(let* ((sigs (map format-time-fraction time-sig)))
(make-override-markup '(baseline-skip . 0)
(make-number-markup
(make-line-markup
(insert-markups sigs (make-vcenter-markup "+")))))))
#(define-public (format-compound-time time-sig)
(cond
((not (pair? time-sig)) (null-markup))
((pair? (car time-sig)) (format-complex-compound-time time-sig))
(else (format-time-fraction time-sig))))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Measure length calculation of (possibly complex) compound time signatures
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
#(define-public (calculate-time-fraction time-sig-fraction)
(let* ((revargs (reverse time-sig-fraction))
(den (car revargs))
(nums (cdr revargs)))
(ly:make-moment (apply + nums) den)))
#(define-public (calculate-complex-compound-time time-sig)
(let* ((sigs (map calculate-time-fraction time-sig)))
(let add-moment ((moment ZERO-MOMENT)
(remaining sigs))
(if (pair? remaining)
(add-moment (ly:moment-add moment (car remaining)) (cdr remaining))
moment))))
#(define-public (calculate-compound-measure-length time-sig)
(cond
((not (pair? time-sig)) (ly:make-moment 4 4))
((pair? (car time-sig)) (calculate-complex-compound-time time-sig))
(else (calculate-time-fraction time-sig))))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Beat Grouping
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% #(define-public (calculate-compound-base-beat-full time-sig)
% (let* ((den (map last time-sig)))
% (apply max den)))
% #(define-public (calculate-compound-beat-grouping time-sig beat)
% (cond
% ((not (pair? time-sig)) 4)
% ((pair? (car time-sig)) (calculate-compound-base-beat-full time-sig))
% (else (calculate-compound-base-beat-full (list time-sig))))))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Base beat lenth
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
#(define-public (calculate-compound-base-beat-full time-sig)
(let* ((den (map last time-sig)))
(apply max den)))
#(define-public (calculate-compound-base-beat time-sig)
(ly:make-moment 1 (cond
((not (pair? time-sig)) 4)
((pair? (car time-sig)) (calculate-compound-base-beat-full time-sig))
(else (calculate-compound-base-beat-full (list time-sig))))))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% The music function to set the complex time signature
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
compoundMeter =
#(define-music-function (parser location args) (pair?)
(let* ((mlen (calculate-compound-measure-length args))
(beat (calculate-compound-base-beat args))
; (beatGrouping (calculate-compound-beat-grouping args beat))
)
; (display "Time signature: ")(display args)(newline)
; (display "beat grouping: ")(display beatGrouping)(newline)
#{
\once \override Staff.TimeSignature #'stencil = #ly:text-interface::print
\once \override Staff.TimeSignature #'text = #(format-compound-time $args)
% \set Staff.beatGrouping = #(reverse (cdr (reverse $args)))
\set Timing.measureLength = $mlen
\set Timing.timeSignatureFraction = #(cons (ly:moment-main-numerator $mlen)
(ly:moment-main-denominator $mlen))
\set Timing.beatLength = $beat
% TODO: Implement beatGrouping and auto-beam-settings!!!
#} ))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Some sample music
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\relative c' {
\compoundMeter #'(1 2 3 4 8)
\repeat unfold 10 c8 \repeat unfold 20 c16\break
\time 3/4
\repeat unfold 6 c8 \repeat unfold 12 c16\break
\compoundMeter #'((1 2 3 4 8) (2 4))
\repeat unfold 14 c8 \repeat unfold 28 c16\break
\compoundMeter #'((1 2 3 4 8) (2 4) (2 3 8))
\repeat unfold 19 c8 \repeat unfold 38 c16\break
\compoundMeter #'(1 2 3 4 8)
\repeat unfold 10 c8 \repeat unfold 20 c16\break
\compoundMeter #'((1 8) (3 8))
\repeat unfold 4 c8 \repeat unfold 8 c16\break
\compoundMeter #'((3 8) (1 8))
\repeat unfold 4 c8 \repeat unfold 8 c16\break
\time 4/4
\repeat unfold 8 c8 \repeat unfold 16 c16\break
\bar"|."
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
