From 6742d3baf67413e1bef8a442469a8635f7613880 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Sun, 24 Mar 2002 19:49:38 +0000
Subject: [PATCH] lilypond-0.1.7

---
 tex/dimen.tex | 27 ++++++++++++++-------------
 1 file changed, 14 insertions(+), 13 deletions(-)

diff --git a/tex/dimen.tex b/tex/dimen.tex
index 59c50fb1e4..1b38526a5c 100644
--- a/tex/dimen.tex
+++ b/tex/dimen.tex
@@ -2,12 +2,11 @@
 % A tex file to help determine dims.
 %
 
-\font\musicfont=musixsps
-\font\slurfont=xhslu16
+\font\musicfont=musix16
+\font\slurfont=xslu16
 \font\specfont=musixspx
-% \def\thefont{\musicfont}
+\def\thefont{\musicfont}
 %\def\thefont{\specfont}
-\def\thefont{\slurfont}
 
 \def\mb#1{{\thefont\char#1}}
 
@@ -21,7 +20,7 @@
         \divide\wid by 2
         \here=-\wid
         \loop\ifdim\here<\wid\advance\here by\inc
-                \hbox to0pt{\kern\here\vrule width0.05pt height 4pt\hss}%
+                \hbox to0pt{\kern\here\vrule width0.05pt height 1pt depth 1pt\hss}%
         \repeat%
 }
 
@@ -32,18 +31,20 @@
         \divide\wid by 2
         \here=-\wid
         \loop\ifdim\here<\wid\advance\here by\inc
-                \vbox to0pt{\vskip\here\vrule width2pt height 0.05pt\vss}%
+                \hbox to0pt{\vbox to0pt{\vss\hrule width2pt height 0.05pt\kern\here}\hss}%
         \repeat%
 }
-\def\twhrul{\hbox to 0pt{\hbox{\hruler{20}\vrule
-        width0.1pt height 3ptdepth 1pt}}}
-\def\twvrul{\hbox{\vbox to 20pt{\vruler{20}\vrule
-        width3pt height 0.1pt}}}
+\def\twhrul{\hbox to 0pt{\hbox{\hruler{20}%
+	\vrule width0.1pt height 2pt depth 2pt}}}
+\def\twvrul{\vbox to0pt{\vss\hbox to0pt{\hss\vruler{12}}\vss}%
+	\kern-1pt\vrule width4pt height 0.1pt}%
+	
  
 \def\doitem#1{
-        #1 %
-         %\twvrul%doesn't work
-        \hbox to 50pt{\qquad\twhrul\mb{#1}\hss}\setbox0=\hbox{\mb{#1}} width \the\wd0\ depth \the\dp0 \ height \the\ht0}
+        #1%
+        \vbox to12pt{\vfill\hbox to0pt{\qquad\kern-1pt\twvrul\hss}}%
+        \hbox to50pt{\qquad\twhrul\mb{#1}\hss}%
+	\setbox0=\hbox{\mb{#1}} width \the\wd0\ depth \the\dp0 \ height \the\ht0}
 
 \newcount\n
 \def\charn{\n=-1
-- 
2.39.5