From 29488b5b9fb725042eff0a16b902c8c0855f42a3 Mon Sep 17 00:00:00 2001 From: Reinhold Kainhofer Date: Thu, 23 Jun 2011 15:24:02 +0200 Subject: [PATCH] Use TextScript instead of Markups --- orchestrallily.ily | 36 +++++++++++++++++++----------------- 1 file changed, 19 insertions(+), 17 deletions(-) diff --git a/orchestrallily.ily b/orchestrallily.ily index ebb5fa7..cebe7a5 100644 --- a/orchestrallily.ily +++ b/orchestrallily.ily @@ -1701,15 +1701,15 @@ slashedGrace = } -ts = ^\markup{"t.s."} -tt = ^\markup{"Tutti"} -solo = ^\markup{"Solo"} -tutti = ^\markup{"Tutti"} -bracketts = ^\markup{"[Solo]"} -brackettt = ^\markup{"[Tutti]"} -bracketsolo = ^\markup{"[Solo]"} +ts = #(make-music 'TextScriptEvent 'text "t.s." 'direction UP ) +tt = #(make-music 'TextScriptEvent 'text "Tutti" 'direction UP ) +solo = #(make-music 'TextScriptEvent 'text "Solo" 'direction UP ) +tutti = #(make-music 'TextScriptEvent 'text "Tutti" 'direction UP ) +bracketts = #(make-music 'TextScriptEvent 'text "[t.s.]" 'direction UP ) +brackettt = #(make-music 'TextScriptEvent 'text "[Tutti]" 'direction UP ) +bracketsolo = #(make-music 'TextScriptEvent 'text "[Solo]" 'direction UP ) -sottovoce = \markup "sotto voce" +sottovoce = #(make-music 'TextScriptEvent 'text "sotto voce" 'direction UP ) dashedSlur = -\tweak #'dash-definition #'((0 1 0.4 0.75))( dashedTie = -\tweak #'dash-definition #'((0 1 0.4 0.75))~ @@ -1878,12 +1878,14 @@ videEnd = \notemode { \override VerticalAxisGroup #'nonstaff-nonstaff-spacing #'minimum-distance = ##f } } -%{ - system-system-spacing = #'((space . 12) (minimum-distance . 8) (padding . 1) (stretchability . 60)) - score-system-spacing = #'((space . 14) (minimum-distance . 8) (padding . 1) (stretchability . 120)) - markup-system-spacing = #'((space . 5) (padding . 0.5) (stretchability . 30)) - score-markup-spacing = #'((space . 12) (padding . 0.5) (stretchability . 60)) - markup-markup-spacing = #'((space . 1) (padding . 0.5)) - top-system-spacing = #'((space . 1) (padding . 1) (minimum-distance . 0)) - top-markup-spacing = #'((space . 0) (padding . 1) (minimum-distance . 0)) - last-bottom-spacing = #'((space . 1) (padding . 1) (minimum-distance . 0) (stretchability . 30))%} + + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%% WORKAROUNDS! +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% _ does not work as a direction modifier in figured bass +tsdown = #(make-music 'TextScriptEvent 'text "t.s." 'direction DOWN ) -- 2.11.4.GIT