X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fproperty-init.ly;h=c0b352254ad0f195cb20d99465180ca5c706440a;hb=8e427e706929b903b6b7d0c3c7858c95ccf72c77;hp=60232edce0cd2e7462085b95c2f6e5755297b2dd;hpb=07e5858c31fb485fefecfd5c369be59af0e9f02f;p=lilypond.git

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 60232edce0..c0b352254a 100644
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -14,6 +14,17 @@ defaultNoteHeads =
    (revert-head-style '(NoteHead TabNoteHead)))
 
 
+accidentalStyle =
+#(define-music-function
+   (parser location context style) ((symbol?) string?)
+   (_i "Set accidental style to @var{style}, a string.  If an optional
+@var{context} symbol is given, e.g. @code{#'Staff} or @code{#'Voice},
+the settings are applied to that context.  Otherwise, the context
+defaults to @samp{Staff}, except for piano styles, which use
+@samp{GrandStaff} as a context." )
+   (if context
+       (set-accidental-style (string->symbol style) context)
+       (set-accidental-style (string->symbol style))))
 
 %% arpeggios
 
@@ -236,6 +247,8 @@ hideNotes = {
   \override Flag #'transparent = ##t
   \override Beam #'transparent = ##t
   \override Accidental #'transparent = ##t
+  \override Rest #'transparent = ##t
+  \override TabNoteHead #'transparent = ##t
 }
 unHideNotes = {
   \revert Accidental #'transparent
@@ -245,6 +258,8 @@ unHideNotes = {
   \revert NoteHead #'transparent
   \revert NoteHead #'no-ledgers
   \revert Dots #'transparent
+  \revert Rest #'transparent
+  \revert TabNoteHead #'transparent
 }
 
 
@@ -434,10 +449,12 @@ tabFullNotation = {
   \revert TabVoice.Stem #'no-stem-extend
   \revert TabVoice.Flag #'style
   \revert TabVoice.Stem #'details
-  \revert TabVoice.Stem #'transparent
+  \revert TabVoice.Stem #'stencil
+  \revert TabVoice.Flag #'stencil
   \override TabVoice.Stem #'stencil = #tabvoice::draw-double-stem-for-half-notes
-  \set autoBeaming = ##t
-  \revert NoteColumn #'ignore-collision
+  \override TabVoice.Stem #'X-extent = #tabvoice::make-double-stem-width-for-half-notes
+  \set TabVoice.autoBeaming = ##t
+  \revert TabVoice.NoteColumn #'ignore-collision
   % beams, dots
   \revert TabVoice.Beam #'stencil
   \revert TabVoice.StemTremolo #'stencil
@@ -453,15 +470,15 @@ tabFullNotation = {
   \revert TabVoice.TupletBracket #'stencil
   \revert TabVoice.TupletNumber #'stencil
   % dynamic signs
-  \revert TabVoice.DynamicText #'transparent
+  \revert TabVoice.DynamicText #'stencil
   \revert TabVoice.DynamicTextSpanner #'stencil
   \revert TabVoice.DynamicTextSpanner #'stencil
-  \revert TabVoice.Hairpin #'transparent
+  \revert TabVoice.Hairpin #'stencil
   % rests
   \revert TabVoice.Rest #'stencil
   \revert TabVoice.MultiMeasureRest #'stencil
-  \revert TabVoice.MultiMeasureRestNumber #'transparent
-  \revert TabVoice.MultiMeasureRestText #'transparent
+  \revert TabVoice.MultiMeasureRestNumber #'stencil
+  \revert TabVoice.MultiMeasureRestText #'stencil
   % markups etc.
   \revert TabVoice.Glissando #'stencil
   \revert TabVoice.Script #'stencil