/usr/share/lilypond/2.16.2/tex/lilypond-tex-metrics.tex is in lilypond-data 2.16.2-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 | %
% lilymetrics.tex
%
\catcode `\@=11\relax
\newdimen\lily@globalscale
\newdimen\lily@localscale
\newbox\lily@metricsbox
\newwrite\lily@metricsfile
\def\lilyglobalscale#1{%
\lily@globalscale #1pt
}
\def\lilymetricsfile#1{%
\immediate\openout\lily@metricsfile #1\relax
}
\begingroup
\catcode `P=12
\catcode `T=12
\lowercase{%
\def\x{%
\def\lily@rempt##1.##2PT{%
##1\ifnum ##2 > \z@ .##2\fi
}%
}%
}
\expandafter\endgroup\x
\def\lily@strippt{%
\expandafter\lily@rempt
}
\long\def\lilygetmetrics#1#2#3#4{%
\lily@localscale #3\lily@globalscale
% convert pt to 1000*sp (1000/65536)
\lily@localscale 0.015259\lily@localscale
\font\lily@font = #2 scaled \lily@localscale
\setbox\lily@metricsbox\hbox{%
\lily@font
#4%
}%
\edef\lily@wd{\the\wd\lily@metricsbox}%
\edef\lily@ht{\the\ht\lily@metricsbox}%
\edef\lily@dp{\the\dp\lily@metricsbox}%
\immediate\write\lily@metricsfile{%
("#1" . (\lily@strippt\lily@wd
\space\lily@strippt\lily@ht
\space\lily@strippt\lily@dp))%
}%
}
\catcode `\@=13\relax
\endinput
|