{"set", SET},
{"simultaneous", SIMULTANEOUS},
{"tempo", TEMPO},
- {"time", TIME_T},
- {"times", TIMES},
{"type", TYPE},
{"unset", UNSET},
{"with", WITH},
%token SET "\\set"
%token SIMULTANEOUS "\\simultaneous"
%token TEMPO "\\tempo"
-%token TIMES "\\times"
%token TYPE "\\type"
%token UNSET "\\unset"
%token WITH "\\with"
/* Keyword token exceptions. */
-%token TIME_T "\\time"
%token NEWCONTEXT "\\new"
mods = ctxmod->get_mods ();
$$ = START_MAKE_SYNTAX ("context-specification", $2, $3, mods, SCM_BOOL_T);
}
- | TIMES fraction {
- $$ = START_MAKE_SYNTAX ("time-scaled-music", $2);
- }
;
mode_changed_music:
$$ = MAKE_SYNTAX ("bar-check", @$);
}
- | TIME_T fraction {
- SCM proc = ly_lily_module_constant ("make-time-signature-set");
-
- $$ = scm_apply_2 (proc, scm_car ($2), scm_cdr ($2), SCM_EOL);
- }
| MARK scalar {
$$ = MAKE_SYNTAX ("make-mark-set", @$, $2);
}
(ly:music-property arg 'tags)))
arg)
+time =
+#(define-music-function (parser location fraction) (fraction?)
+ (_i "Set @var{fraction} as time signature.")
+ (make-time-signature-set (car fraction) (cdr fraction)))
+
+times =
+#(define-music-function (parser location fraction music)
+ (fraction? ly:music?)
+ (_i "Scale @var{music} in time by @var{fraction}.")
+ (make-music 'TimeScaledMusic
+ 'element (ly:music-compress music (ly:make-moment (car fraction) (cdr fraction)))
+ 'numerator (car fraction)
+ 'denominator (cdr fraction)))
+
transpose =
#(define-music-function
(parser location from to music)
(define-ly-syntax-simple (bar-check)
(make-music 'BarCheck))
-(define-ly-syntax-simple (time-scaled-music fraction music)
- (make-music 'TimeScaledMusic
- 'element (ly:music-compress music (ly:make-moment (car fraction) (cdr fraction)))
- 'numerator (car fraction)
- 'denominator (cdr fraction)))
-
(define-ly-syntax (tempo parser location text . rest)
(let* ((unit (and (pair? rest)
(car rest)))