X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fbagpipe.ly;h=3ed668ce8e56de060d56d13dd58512b57f359287;hb=223b21d80d457138192a81232e53541af9ba94bd;hp=f2736f0218b32dbd9a54c685774acc895bd300a1;hpb=2afe6bb67966e8ff3dff9b0618c588ad3bc92c18;p=lilypond.git

diff --git a/ly/bagpipe.ly b/ly/bagpipe.ly
old mode 100755
new mode 100644
index f2736f0218..3ed668ce8e
--- a/ly/bagpipe.ly
+++ b/ly/bagpipe.ly
@@ -6,10 +6,10 @@
   Sven Axelsson, the Murray Pipes & Drums of Gothenburg
   (http://www.murrays.nu)
   
-  $Id: bagpipe.ly,v 1.2 2005/08/04 23:32:42 gpercival Exp $
+  $Id: bagpipe.ly,v 1.12 2006/03/16 14:39:46 hanwen Exp $
 %}
 
-\version "2.6.0"
+\version "2.10.0"
 
 % Notes of the scale of the Great Highland Bagpipe. Extra high notes for bombarde.
 % Flat notes used mainly in some modern music.
@@ -38,14 +38,14 @@ pitchnames = \pitchnamesBagpipe
 
 hideKeySignature = {
   % We normally don't want to show the key signature.
-  \override Staff.KeySignature #'print-function = ##f
+  \override Staff.KeySignature  #'stencil = ##f
   \set Staff.extraNatural = ##f
   \key d \major
   #(set-accidental-style 'forget)
 }
 showKeySignature = {
   % Show the key signature e.g. for BMW compatibility.
-  \override Staff.KeySignature #'print-function = #'Key_signature_interface::print
+  \override Staff.KeySignature  #'stencil = #ly:key-signature-interface::print
   \set Staff.extraNatural = ##f
   \key d \major
   #(set-accidental-style 'forget)
@@ -57,10 +57,10 @@ showKeySignature = {
   \context {
     \Voice
     % All stems go down.
-    \override Stem #'direction = #-1
+    \override Stem #'direction = #DOWN
     % All slurs and ties are on top.
-    \override Slur #'direction = #1
-    \override Tie #'direction = #1
+    \override Slur #'direction = #UP
+    \override Tie #'direction = #UP
   }
 }