Re: A kick from history...

[David Kastrup]

Han-Wen Nienhuys <address@hidden> writes:

> On Mon, Feb 27, 2017 at 4:26 PM, tisimst <address@hidden> wrote:
>> On Mon, Feb 27, 2017 at 8:10 AM, David Kastrup [via Lilypond] <
>> address@hidden> wrote:
>>
>>>
>>> I suddenly remembered that I should have entered some Dowland previously
>>> and dug around on my disk, finding this:
>>>
>>>
>>> \title{I Saw My Lady Weep}
>>> \composer{John Dowland}
>>> \meter{C2}
>>> \duration{2}
>>> \key\D
>>> { 'fis1 'd1 b1 } { 'fis 'd1 b1 } 'g\stemup |
>>> { 'g4 'cis1 a1 } 'fis4\stemup 'fis\stemup { 'fis4 b1 g1 } [^ 'e8 'd8 ]
>>> 'e\stemup |
>>> { 'fis1 'cis1 b4.\headright\stemup fis1 } { b8\stemup } { ais4 } {
>>> b4\stemup } { 'fis1 'cis1 ais4\headright\stemup fis\stemdown } { b2\stemup
>>> } { fis2\stemdown } { ais4\stemup } |
>>> { 'fis 'd b1 fis1 B. } { 'fis\stemup 'd } { B4\stemdown } { 'fis2 'cis1
>>> Ais1 } { 'e\stemup } { 'd b fis\stemup B.\stemdown } { 'd\stemup b } {
>>> B4\stemdown } { 'cis b\stemup fis.\stemdown } { 'fis\stemup 'cis } {
>>> fis4\stemdown } { 'fis\stemup b.\stemdown g1\headleft } { 'e\stemup } {
>>> 'cis4 } |
>>> { 'a.\stemup 'd\stemdown\headleft fis1 } { 'cis(v } { 'a4\stemup } { 'g
>>> )'cis4\stemdown\headleft e\stemdown } { b4 } { 'fis\stemup b\stemdown(v d }
>>> |
>>> { 'e.\stemup )b4\headleft\stemdown cis1 } { b4 } { ais2\stemdown } {
>>> 'fis4\stemup } { 'g b1 B.\stemdown } { 'fis\stemup } { B4\stemdown } |
>>> { 'fis 'cis\stemup fis.\stemdown } { 'a(^ 'fis 'cis\stemup } {
>>> fis4\stemdown } { )'a b1 g1 } { 'g\stemup(^ } { )'g 'cis a1 } { 'fis\stemup
>>> 'd } { 'a. 'e.\stemup a\stemdown } { A\stemdown } { 'e4\stemup } { 'fis
>>> 'd\stemup a\stemdown d } { 'd4\stemup p } { 'e4\stemup } |
>>> { 'fis4 'd1 a1 d } { 'g4\stemup } { 'a4 d } { 'fis4\stemup } { 'g4 b. g.
>>> G4 } [^ { 'fis8 A4\stemdown } 'e8 ] { 'd4\stemup B4\stemdown } { 'e4\stemup
>>> cis4\stemdown } |
>>> { 'fis 'd a\stemup d.\stemdown } { 'fis\stemup 'd } { d4\stemdown } { 'e
>>> a\stemup cis\stemdown } { 'fis 'cis fis } |
>>> { 'fis b dis } { 'e b gis } { 'gis 'cis eis } { 'fis 'cis ais fis } { 'fis
>>> 'd b1 fis1 B. } { 'fis\stemup 'd } { B4\stemdown } { 'e\stemup g1
>>> e.\stemdown } { 'e\stemup b } { d4\stemdown } { p2\stemup c1 } { 'e\stemup(
>>> } [^ { )'e8 fis1 B. } 'e8 'dis8 'cis8 ] { 'dis\stemup } { B4\stemdown } |
>>> { 'e1 b1 e1 } p { 'eis\stemup gis\stemdown cis } { 'eis. gis1 cis1 } {
>>> 'e4\stemup } { 'd\stemup fis.\stemdown } { 'cis\stemup(^ } { e4\stemdown }
>>> |
>>> { )'cis4 d1 } { 'cis4\stemup } { b\stemup } { 'cis1\stemno
>>> fis\headright\stemup cis.\stemdown } { eis } { cis4\stemdown } |
>>> { 'cis1 ais1 fis1 } { 'fis 'cis fis } { 'dis b fis B } |
>>> { 'e1 gis2 e1\headright } { a2\stemdown( } { 'fis.\stemup
>>> )a4\headleft\stemdown dis\stemdown } { a4\stemdown } { gis\stemdown e } {
>>> 'e4\stemup } |
>>> { p4\stemup ais\stemdown fis1\headright } { 'd\stemup } { b\stemdown } {
>>> 'e4\stemup } { 'fis. 'cis1 b\headleft\stemdown fis1 } { ais\stemdown } {
>>> 'e4\stemup } |
>>> { 'g b1 B1 } { 'fis4\stemup } { 'b\stemup } { fis\stemdown } { 'a4\stemup
>>> } { 'e4\stemup cis4\stemdown } { 'fis4.\stemup 'd\stemdown a d\stemdown } {
>>> 'g8\stemup } { 'a4 'cis4\stemup A4\stemdown } [^ { 'g8 B(v } 'fis8 ] {
>>> 'd4\stemup } |
>>> { b )B4 } { B4\stemdown } { 'cis\stemup A\stemdown } { 'd4. b G1 } {
>>> 'd8\stemup } { 'e 'cis4 } { b4 } |
>>> { 'fis. 'cis1 ais1 fis1 cis1 Fis1 } { 'fis4\stemup } { 'fis1 'cis1 ais1
>>> fis1 cis1 Fis1 } |||
>>>
>>
>> I like the clarity of LP's input syntax verbosity, but am I ever glad I'm
>> not forced to be _that_ verbose!
>
> If you think that is bad, you should take a look at the original MusiXTeX 
> input.

Well, the respective output file (after stripping off mpp.tex which
apparently is included every time) gives a good idea of how this would
have looked in MusiXTeX:


%
\instrumentnumber{1}
%
\setstaffs1{1}
%
\def\thetitle{weep.mpp}
%
\def\thetitle{I Saw My Lady Weep}%
\def\thecomposer{John Dowland}%
\generalmeter{\allabreve}%
\generalsignature{2}%
%
\hbox to\hsize{{\hfill\BIGtype\bf\thetitle\hfill}}
\medskip\medskip
\hbox to\hsize{{\hfill\Bigtype\thesubtitle\hfill}}
\medskip
\hbox to\hsize{{\hfill\bigtype\bf\therighttitle\thecomposer}}
\hbox to\hsize{{\hfill\eightrm typeset by MusixTeX}}
\hbox to\hsize{{\hfill\eightrm and music2tex}}
\medskip
\hbox to\hsize{{\hskip20mm\bigtype\bf\thelefttitle\hskip6mm
\medtype\rm\thetempo\hskip6mm
\ifx\themetron\empty\else\raise.2ex
\hbox{\medtype\rm\Notes\expandafter\metron\themetron\en}\fi\hfill}}
\bigskip
%
\startmuflex
%
\normalmusicsize
\def\ppffstyle{\ppfftwenty}
\def\directstyle{\twelveit}
\def\xpletstyle{\tenit}
\ppff
%
\startpiece
\addspace\afterruleskip
\NOTEs\zwh{!'f}\zwh{!'d}\wh{!'b}%
\en%
\NOTes\zhu{!'f}\zwhl{!'d}\wh{!'b}%
\en%
\NOTes\hu{!'g}%
\en%
\bar%
%
\NOtes\zqu{!'g}\zwhl{!'c}\wh{!'a}%
\en%
\NOtes\qu{!'f}%
\en%
\NOTes\hu{!'f}%
\en%
\NOtes\zqu{!'f}\zwhl{!'b}\wh{!g}%
\en%
\Notes\Ibu0{!'e}{!'b}{9}\qb0{!'e}%
\en%
\Notes\tbu0\qb0{!'d}%
\en%
\NOTes\hu{!'e}%
\en%
\bar%
%
\NOTes\zwh{!'f}\zwh{!'c}\normalnotesize\rqup{!'b}\normalnotesize\wh{!f}%
\en%
\Notes\cu{!'b}%
\en%
\NOtes\sh{!'a}\qu{!'a}%
\en%
\NOtes\qu{!'b}%
\en%
\NOtes\zwh{!'f}\zwh{!'c}\normalnotesize\rqu{!'a}\normalnotesize\hl{!f}%
\en%
\NOTes\hu{!'b}%
\en%
\NOTes\hl{!f}%
\en%
\NOtes\qu{!'a}%
\en%
\bar%
%
\NOTes\zh{!'f}\zhu{!'d}\zwhl{!'b}\zwhu{!f}\hlp{!b}%
\en%
\NOTes\zh{!'f}\hu{!'d}%
\en%
\NOtes\ql{!b}%
\en%
\NOTes\zhu{!'f}\zwhl{!'c}\sh{!a}\wh{!a}%
\en%
\NOTes\hu{!'e}%
\en%
\NOTes\zh{!'d}\zh{!'b}\zhu{!f}\hlp{!b}%
\en%
\NOTes\zh{!'d}\hu{!'b}%
\en%
\NOtes\ql{!b}%
\en%
\NOTes\normalnotesize\rh{!'c}\normalnotesize\zhu{!'b}\hlp{!f}%
\en%
\NOTes\zh{!'f}\hu{!'c}%
\en%
\NOtes\ql{!f}%
\en%
\NOTes\zhu{!'f}\zhlp{!'b}\normalnotesize\lwh{!g}\normalnotesize%
\en%
\NOTes\hu{!'e}%
\en%
\NOtes\ql{!'c}%
\en%
\bar%
%
\NOTes\zhup{!''a}\normalnotesize\lhl{!'d}\normalnotesize\wh{!f}%
\en%
\NOTes\islurd0{!'c}\hl{!'c}%
\en%
\NOtes\qu{!''a}%
\en%
\NOtes\zhu{!'g}\tslur0{!'c}\normalnotesize\lql{!'c}\normalnotesize\hl{!e}%
\en%
\NOtes\ql{!'b}%
\en%
\NOTes\zhu{!'f}\islurd0{!'b}\zh{!'b}\hl{!d}%
\en%
\bar%
%
\NOtes\zhup{!'e}\tslur0{!'b}\normalnotesize\lql{!'b}\normalnotesize\wh{!c}%
\en%
\NOtes\ql{!'b}%
\en%
\NOTes\sh{!'a}\hl{!'a}%
\en%
\NOtes\qu{!'f}%
\en%
\NOTes\zhu{!'g}\zwhl{!'b}\hlp{!b}%
\en%
\NOTes\hu{!'f}%
\en%
\NOtes\ql{!b}%
\en%
\bar%
%
\NOTes\zh{!'f}\zhu{!'c}\hlp{!f}%
\en%
\NOTes\isluru0{!''a}\zh{!''a}\zh{!'f}\hu{!'c}%
\en%
\NOtes\ql{!f}%
\en%
\NOTes\tslur0{!''a}\zhu{!''a}\zwhl{!'b}\wh{!g}%
\en%
\NOTes\isluru0{!'g}\hu{!'g}%
\en%
\NOTes\tslur0{!'g}\zh{!'g}\zhu{!'c}\whl{!'a}%
\en%
\NOTes\zh{!'f}\hu{!'d}%
\en%
\NOTes\zhp{!''a}\zhup{!'e}\hl{!'a}%
\en%
\NOTes\hl{!a}%
\en%
\NOtes\qu{!'e}%
\en%
\NOTes\zh{!'f}\zhu{!'d}\zh{!'a}\hl{!d}%
\en%
\NOtes\zqu{!'d}\lower\Interligne\hs%
\en%
\NOtes\qu{!'e}%
\en%
\bar%
%
\NOtes\zqu{!'f}\zwhl{!'d}\zwhu{!'a}\hl{!d}%
\en%
\NOtes\qu{!'g}%
\en%
\NOtes\zqu{!''a}\hl{!d}%
\en%
\NOtes\qu{!'f}%
\en%
\NOtes\zqu{!'g}\zhp{!'b}\zhup{!g}\ql{!'G}%
\en%
\Notes\Ibu0{!'f}{!'c}{8}\zqb0{!'f}\ql{!a}%
\en%
\Notes\tbu0\qb0{!'e}%
\en%
\NOtes\zqu{!'d}\ql{!b}%
\en%
\NOtes\zqu{!'e}\ql{!c}%
\en%
\bar%
%
\NOTes\zh{!'f}\zh{!'d}\zhu{!'a}\hlp{!d}%
\en%
\NOTes\zh{!'f}\hu{!'d}%
\en%
\NOtes\ql{!d}%
\en%
\NOTes\zh{!'e}\zhu{!'a}\hl{!c}%
\en%
\NOTes\zh{!'f}\zh{!'c}\hu{!f}%
\en%
\bar%
%
\NOTes\smallsk\zh{!'f}\zh{!'b}\sh{!d}\hu{!d}%
\en%
\NOTes\zh{!'e}\zh{!'b}\sh{!g}\hu{!g}%
\en%
\NOTes\zh{!'g}\zh{!'c}\sh{!e}\hu{!e}%
\en%
\NOTes\zh{!'f}\zh{!'c}\sh{!'a}\zh{!'a}\hu{!f}%
\en%
\NOTes\zh{!'f}\na{!'d}\zhu{!'d}\zwhl{!'b}\zwhu{!f}\hlp{!b}%
\en%
\NOTes\zh{!'f}\hu{!'d}%
\en%
\NOtes\ql{!b}%
\en%
\NOTes\smallsk\na{!'e}\zhu{!'e}\lna{!g}\zwh{!g}\hlp{!e}%
\en%
\NOTes\zh{!'e}\hu{!'b}%
\en%
\NOtes\ql{!d}%
\en%
\NOTes\na{!c}\zwh{!c}\raise\Interligne\hs%
\en%
\NOTes\islurd0{!'e}\hu{!'e}%
\en%
\Notes\Ibu0{!'e}{!'b}{20}\tslur0{!'e}\zqb0{!'e}\zwhu{!f}\hlp{!b}%
\en%
\Notes\qb0{!'e}%
\en%
\Notes\sh{!'d}\qb0{!'d}%
\en%
\Notes\sh{!'c}\tbu0\qb0{!'c}%
\en%
\NOTes\hu{!'d}%
\en%
\NOtes\ql{!b}%
\en%
\bar%
%
\NOTEs\zwh{!'e}\zwh{!'b}\wh{!e}%
\en%
\NOTes\hs%
\en%
\NOTes\smallsk\sh{!'e}\zhu{!'e}\lsh{!g}\zh{!g}\hl{!c}%
\en%
\NOTEs\zhup{!'e}\zwhl{!g}\wh{!c}%
\en%
\NOtes\na{!'e}\qu{!'e}%
\en%
\NOTes\zhu{!'d}\hlp{!f}%
\en%
\NOTes\isluru0{!'c}\hu{!'c}%
\en%
\NOtes\ql{!e}%
\en%
\bar%
%
\NOtes\tslur0{!'c}\zqu{!'c}\whl{!d}%
\en%
\NOtes\qu{!'c}%
\en%
\NOTes\hu{!'b}%
\en%
\NOTes\zwh{!'c}\normalnotesize\rhu{!f}\normalnotesize\hlp{!c}%
\en%
\NOTes\sh{!e}\hu{!e}%
\en%
\NOtes\ql{!c}%
\en%
\bar%
%
\NOTEs\smallsk\zwh{!'c}\sh{!'a}\zwh{!'a}\wh{!f}%
\en%
\NOTes\zh{!'f}\zh{!'c}\hu{!f}%
\en%
\NOTes\sh{!'d}\zh{!'d}\zh{!'b}\zh{!f}\hu{!b}%
\en%
\bar%
%
\NOTes\smallsk\zwhu{!'e}\sh{!g}\zhl{!g}\normalnotesize\rwh{!e}\normalnotesize%
\en%
\NOTes\isluru0{!'a}\hl{!'a}%
\en%
\NOtes\zhup{!'f}\tslur0{!'a}\normalnotesize\lql{!'a}\normalnotesize\sh{!d}\hl{!d}%
\en%
\NOtes\ql{!'a}%
\en%
\NOTes\zh{!g}\hl{!e}%
\en%
\NOtes\qu{!'e}%
\en%
\bar%
%
\NOtes\smallsk\sh{!'a}\zhl{!'a}\normalnotesize\rwh{!f}\normalnotesize\raise\Interligne\qs%
\en%
\NOTes\hu{!'d}%
\en%
\NOTes\hl{!'b}%
\en%
\NOtes\qu{!'e}%
\en%
\NOTes\zhup{!'f}\normalnotesize\rwhl{!'c}\normalnotesize\normalnotesize\lhl{!'b}\normalnotesize\wh{!f}%
\en%
\NOTes\hl{!'a}%
\en%
\NOtes\qu{!'e}%
\en%
\bar%
%
\NOTes\zhu{!'g}\zwhl{!'b}\wh{!b}%
\en%
\NOtes\qu{!'f}%
\en%
\NOTes\hu{!''b}%
\en%
\NOTes\hl{!f}%
\en%
\NOtes\qu{!''a}%
\en%
\NOtes\zqu{!'e}\ql{!c}%
\en%
\NOTes\zqup{!'f}\zh{!'d}\zh{!'a}\hl{!d}%
\en%
\Notes\cu{!'g}%
\en%
\NOtes\zq{!''a}\zqu{!'c}\ql{!a}%
\en%
\Notes\Ibu0{!'g}{!'d}{9}\zqb0{!'g}\islurd0{!b}\hl{!b}%
\en%
\Notes\tbu0\qb0{!'f}%
\en%
\NOtes\qu{!'d}%
\en%
\bar%
%
\NOtes\zhu{!'b}\tslur0{!b}\ql{!b}%
\en%
\NOtes\ql{!b}%
\en%
\NOTes\zhu{!'c}\hl{!a}%
\en%
\NOTes\zqup{!'d}\zhl{!'b}\wh{!'G}%
\en%
\Notes\cu{!'d}%
\en%
\NOtes\zhu{!'e}\ql{!'c}%
\en%
\NOtes\ql{!'b}%
\en%
\bar%
%
\NOTEs\smallsk\zhup{!'f}\zwhl{!'c}\sh{!'a}\zwh{!'a}\zwh{!f}\zwh{!c}\wh{!'F}%
\en%
\NOtes\qu{!'f}%
\en%
\NOTEs\zwh{!'f}\zwh{!'c}\zwh{!'a}\zwh{!f}\zwh{!c}\wh{!'F}%
\en%
\Endpiece\let\endpiece\relax%
%
\endpiece
\endmuflex
\end


-- 
David Kastrup