? aclocal.m4
? Documentation/out
? Documentation/bibliography/out
? Documentation/misc/out
? Documentation/pictures/out
? Documentation/topdocs/out
? Documentation/user/out
? Documentation/windows/out
? buildscripts/out
? cygwin/out
? debian/out
? flower/out
? flower/include/out
? input/out
? input/ascii-art/out
? input/mutopia/out
? input/mutopia/E.Satie/out
? input/mutopia/F.Schubert/out
? input/mutopia/J.S.Bach/out
? input/mutopia/J.S.Bach/Petites-Preludes/out
? input/mutopia/R.Schumann/out
? input/mutopia/W.A.Mozart/out
? input/no-notation/out
? input/regression/out
? input/template/out
? input/test/out
? input/tutorial/out
? lily/out
? lily/include/out
? ly/out
? make/out
? mf/out
? po/out
? ps/out
? python/out
? scm/out
? scripts/out
? stepmake/out
? stepmake/bin/packagepython.pyc
? stepmake/stepmake/out
? tex/out
Index: lily/bar-line.cc
===================================================================
RCS file: /cvsroot/lilypond/lilypond/lily/bar-line.cc,v
retrieving revision 1.16
diff -c -u -p -u -r1.16 bar-line.cc
--- lily/bar-line.cc	12 Jan 2003 22:01:25 -0000	1.16
+++ lily/bar-line.cc	6 May 2003 04:37:56 -0000
@@ -72,6 +72,15 @@ Bar_line::compound_barline (Grob*me, Str
   dot.translate_axis(-dist,Y_AXIS);
   colon.add_molecule(dot);
 
+  Molecule colon4;
+  colon4.add_molecule(dot);
+  dot.translate_axis(-dist,Y_AXIS);
+  colon4.add_molecule(dot);
+  dot.translate_axis(+(dist*2),Y_AXIS);
+  colon4.add_molecule(dot);
+  dot.translate_axis(+dist,Y_AXIS);
+  colon4.add_molecule(dot);
+
   Molecule m;
   
   if (str == "")
@@ -97,6 +106,12 @@ Bar_line::compound_barline (Grob*me, Str
       m.add_at_edge (X_AXIS, LEFT, thick, 0, 0);
       m.add_at_edge (X_AXIS, LEFT, thin, kern, 0);
       m.add_at_edge (X_AXIS, LEFT, colon, kern, 0);      
+    }
+  else if (str == ":4|")
+    {
+      m.add_at_edge (X_AXIS, LEFT, thick, 0, 0);
+      m.add_at_edge (X_AXIS, LEFT, thin, kern, 0);
+      m.add_at_edge (X_AXIS, LEFT, colon4, kern, 0);      
     }
   else if (str == "|:")
     {
Index: scm/output-lib.scm
===================================================================
RCS file: /cvsroot/lilypond/lilypond/scm/output-lib.scm,v
retrieving revision 1.30
diff -c -u -p -u -r1.30 output-lib.scm
--- scm/output-lib.scm	24 Apr 2003 14:10:12 -0000	1.30
+++ scm/output-lib.scm	6 May 2003 04:37:57 -0000
@@ -247,6 +247,7 @@ centered, X==1 is at the right, X == -1 
 			  ;; hmm... should we end with a barline here?
 			  (".|" . ("|" . ".|"))
 			  (":|" . (":|" . ()))
+			  (":4|" . (":4|" . ()))
 			  ("||" . ("||" . ()))
 			  (".|." . (".|." . ()))
 			  ("" . ("" . ""))