summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
8508ea3)
\displayLilyMusic \set Score.skipBars = #3
was displayed as
\displayLilyMusic \set Score . skipBars = #3
as opposed to the entry method recommended now and already implemented
for the display of \override/\revert .
\remove "Clef_engraver"
} { c4 d4 } #]
%% Context properties
\remove "Clef_engraver"
} { c4 d4 } #]
%% Context properties
-\test ##[ \once \set Score . skipBars = ##t #] % PropertySet
+\test ##[ \once \set Score.skipBars = ##t #] % PropertySet
\test ##[ \set autoBeaming = ##f #]
\test ##[ \set autoBeaming = ##f #]
-\test ##[ \unset Score . skipBars #] % PropertyUnset
+\test ##[ \unset Score.skipBars #] % PropertyUnset
\test ##[ \unset autoBeaming #]
%% Layout properties
\test ##[ \unset autoBeaming #]
%% Layout properties
-\test ##[ \override Staff.Stem.thickness = #4.0 #] % OverrideProperty
+\test ##[ \override Staff.Stem.thickness = #4.0 #] % OverrideProperty
\test ##[ \once \override Beam.beam-thickness = #0.6 #]
\test ##[ \revert Staff.Stem.thickness #] % RevertProperty
\test ##[ \revert Beam.beam-thickness #]
\test ##[ \once \override Beam.beam-thickness = #0.6 #]
\test ##[ \revert Staff.Stem.thickness #] % RevertProperty
\test ##[ \revert Beam.beam-thickness #]
(if (and (not (null? once)))
"\\once "
"")
(if (and (not (null? once)))
"\\once "
"")
- (if (eqv? (*current-context*) 'Bottom)
+ (if (eq? (*current-context*) 'Bottom)
- (format #f "~a . " (*current-context*)))
+ (format #f "~a." (*current-context*)))
property
(value->lily-string value)
(new-line->lily-string))))
property
(value->lily-string value)
(new-line->lily-string))))
(define-display-method PropertyUnset (expr)
(format #f "~a\\unset ~a~a~a"
(if (ly:music-property expr 'once #f) "\\once " "")
(define-display-method PropertyUnset (expr)
(format #f "~a\\unset ~a~a~a"
(if (ly:music-property expr 'once #f) "\\once " "")
- (if (eqv? (*current-context*) 'Bottom)
+ (if (eq? (*current-context*) 'Bottom)
- (format #f "~a . " (*current-context*)))
+ (format #f "~a." (*current-context*)))
(ly:music-property expr 'symbol)
(new-line->lily-string)))
(ly:music-property expr 'symbol)
(new-line->lily-string)))