Index: VERSION
===================================================================
RCS file: /cvsroot/lilypond/lilypond/VERSION,v
retrieving revision 1.548
diff -u -r1.548 VERSION
--- VERSION	25 Feb 2004 14:43:52 -0000	1.548
+++ VERSION	28 Feb 2004 23:35:53 -0000
@@ -2,5 +2,5 @@
 MAJOR_VERSION=2
 MINOR_VERSION=1
 PATCH_LEVEL=27
-MY_PATCH_LEVEL=hwn1
+MY_PATCH_LEVEL=hjj1
 
Index: ChangeLog
===================================================================
RCS file: /cvsroot/lilypond/lilypond/ChangeLog,v
retrieving revision 1.1790
diff -u -r1.1790 ChangeLog
--- ChangeLog	28 Feb 2004 19:37:41 -0000	1.1790
+++ ChangeLog	28 Feb 2004 23:35:54 -0000
@@ -1,3 +1,13 @@
+2004-02-29  Heikki Junes <address@hidden>
+
+	* ly/property-init: new functions: \arpeggioUp, \arpeggioDown,
+	\arpeggioBoth. redefine \arpeggioBracket.
+
+	* Documentation/user/refman.itely: document new arpeggio
+	functions.
+
+	* input/regression/arpeggio-bracket.ly: use new \arpeggioBracket.
+
 2004-02-28  Han-Wen Nienhuys   <address@hidden>
 
 	* scm/*.scm: make-music-by-name is replaced by make-music, which
Index: ly/property-init.ly
===================================================================
RCS file: /cvsroot/lilypond/lilypond/ly/property-init.ly,v
retrieving revision 1.46
diff -u -r1.46 property-init.ly
--- ly/property-init.ly	28 Feb 2004 19:37:41 -0000	1.46
+++ ly/property-init.ly	28 Feb 2004 23:35:54 -0000
@@ -131,8 +131,25 @@
 % of either Staff.Arpeggio or PianoStaff.Arpeggio, depending whether 
 % cross-staff brackets are desired. 
 
-arpeggioBracket = #Arpeggio::brew_chord_bracket
 arpeggio = #(make-music 'ArpeggioEvent)
+% HJJ: deprecated: arpeggioBracket = #Arpeggio::brew_chord_bracket
+
+arpeggioUp = \sequential {
+  \revert Arpeggio  #'print-function
+  \override Arpeggio  #'arpeggio-direction = #1
+}
+arpeggioDown = \sequential {
+  \revert Arpeggio  #'print-function
+  \override Arpeggio  #'arpeggio-direction = #-1
+}
+arpeggioBoth = \sequential {
+  \revert Arpeggio  #'print-function
+  \revert Arpeggio  #'arpeggio-direction
+}
+arpeggioBracket = \sequential {
+  \override Arpeggio  #'print-function = #Arpeggio::brew_chord_bracket
+}
+
 glissando = #(make-music 'GlissandoEvent)
 
 fermataMarkup = \markup { \musicglyph #"scripts-ufermata" } 
Index: Documentation/user/refman.itely
===================================================================
RCS file: /cvsroot/lilypond/lilypond/Documentation/user/refman.itely,v
retrieving revision 1.454
diff -u -r1.454 refman.itely
--- Documentation/user/refman.itely	27 Feb 2004 11:18:17 -0000	1.454
+++ Documentation/user/refman.itely	28 Feb 2004 23:35:55 -0000
@@ -3172,36 +3172,37 @@
 @end lilypond
 
 The direction of the arpeggio is sometimes denoted by adding an
-arrowhead to the wiggly line.  This can be typeset by setting
address@hidden:
+arrowhead to the wiggly line:
 
 @lilypond[fragment,relative,verbatim]
   \context Voice {
-     \override Arpeggio   #'arpeggio-direction = #1
+     \arpeggioUp
      <c e g c>\arpeggio
-     \override Arpeggio   #'arpeggio-direction = #-1
+     \arpeggioDown
      <c e g c>\arpeggio
   }
 @end lilypond
 
 A square bracket on the left indicates that the player should not
-arpeggiate the chord. To draw these brackets, set the
address@hidden property of @code{Arpeggio} or
address@hidden objects to @code{\arpeggioBracket}, and use
address@hidden statements within the chords as before:
+arpeggiate the chord:
 
 @lilypond[fragment,relative,verbatim]
-    \override PianoStaff.Arpeggio  
-        #'print-function = \arpeggioBracket
-       <c' e g c>\arpeggio
+     \arpeggioBracket
+    <c' e g c>\arpeggio
 @end lilypond
 
 @refcommands
 
address@hidden @code{\arpeggioBracket}
address@hidden, 
 @cindex @code{\arpeggio}
address@hidden
address@hidden,
address@hidden @code{\arpeggioUp}
address@hidden,
address@hidden @code{\arpeggioDown}
address@hidden,
address@hidden @code{\arpeggioBoth}
address@hidden,
address@hidden @code{\arpeggioBracket}
address@hidden
 
 @seealso
 
Index: input/regression/arpeggio-bracket.ly
===================================================================
RCS file: /cvsroot/lilypond/lilypond/input/regression/arpeggio-bracket.ly,v
retrieving revision 1.6
diff -u -r1.6 arpeggio-bracket.ly
--- input/regression/arpeggio-bracket.ly	22 Feb 2004 21:47:27 -0000	1.6
+++ input/regression/arpeggio-bracket.ly	28 Feb 2004 23:35:55 -0000
@@ -10,7 +10,7 @@
 
 \score{
      \notes\relative c''{
-	 \override Staff.Arpeggio  #'print-function = \arpeggioBracket
+	 \arpeggioBracket
 	 
 	 <fis,  d a >\arpeggio
 	 }