X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Ftime-signature-settings.scm;h=2649092593cf4348ac4484f4c70fc8e7338a80a5;hb=HEAD;hp=bee620eb9fc7e1fe20adbf0a5e948d5bdc5aeb6a;hpb=145389636e81237d560aba4d04abcb89fa60cd9c;p=lilypond.git diff --git a/scm/time-signature-settings.scm b/scm/time-signature-settings.scm index bee620eb9f..2649092593 100644 --- a/scm/time-signature-settings.scm +++ b/scm/time-signature-settings.scm @@ -1,6 +1,6 @@ ;;;; This file is part of LilyPond, the GNU music typesetter. ;;;; -;;;; Copyright (C) 2009--2014 Carl Sorensen +;;;; Copyright (C) 2009--2015 Carl Sorensen ;;;; ;;;; LilyPond is free software: you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by @@ -394,15 +394,6 @@ a fresh copy of the list-head is made." (add-simple-time-signature-style 'C make-c-time-signature-markup) (add-simple-time-signature-style 'default make-c-time-signature-markup) -(define-public (make-single-c-time-signature-markup fraction) - "Make markup for the `single-C' time signature style." - (let ((n (car fraction))) - (if (or (= n 2) (= n 4)) ; numerator only - (make-glyph-time-signature-markup 'C (cons n n)) - (make-compound-meter-markup n)))) - -(add-simple-time-signature-style 'single-C make-single-c-time-signature-markup) - ;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;; Measure length calculation of (possibly complex) compound time signatures