diff options
Diffstat (limited to 'lilyponddefs.tex')
| -rw-r--r-- | lilyponddefs.tex | 26 |
1 files changed, 17 insertions, 9 deletions
diff --git a/lilyponddefs.tex b/lilyponddefs.tex index 45152140cb..41748636de 100644 --- a/lilyponddefs.tex +++ b/lilyponddefs.tex @@ -70,18 +70,26 @@ \vskip 40pt\par\vbox{\hbox to 0pt{\vrule width30pt height1pt\hss}}\par\vskip 40pt } \def\interscoreline{\beauty} -% -% a staffsymbol with #1 lines, width #2 -% bottom at baseline -\def\linestafsym#1#2{\vbox to 0pt{\hbox to 0pt% - {\vbox to 0pt{\vss% - \kern-\interstaffrule + + +\def\lines#1#2{% + \vbox{\kern-\interstaffrule \n=0\nointerlineskip% \loop\ifnum\n<#1\advance\n by1% - \kern\interstaffrule \hrule height \staffrulethickness width#2 + \kern\interstaffrule + \hrule height \staffrulethickness width#2 \repeat - }% -\hss}}} + }} + +\def\toplines#1{ % why space needed here? + \vbox to 0pt{\hbox{\kern-6pt\lines{#1}{12pt}}\vss}} +\def\botlines#1{ % idem ditto + \vbox to 0pt{\vss\hbox{\kern-6pt\lines{#1}{12pt}}}} + +% +% a staffsymbol with #1 lines, width #2 +% bottom at baseline +\def\linestafsym#1#2{\hbox to 0pt{\vbox to 0pt{\vss\lines{#1}{#2}}\hss}} \def\vcenter#1{\vbox to 0pt{\vss #1\vss}} \def\topalign#1{\vbox to 0pt{#1\vss}} |