%
% Harmonics in MusicTeX
% =====================
%
%\input musicnft
%\input musictex
%\input musicsty
\input musicvbm
\def\musictex{Music\TeX}%
% ________________________________________________________________________
%
% Harmonic quaver duplets:-
%                   _____                   2   3
%           ypairu  |   |           ypairl  |   |
%                   |   |                   |   |
%                   2   3                   -----
%
\def\ypairu#1#2#3% #1 is beam number, #2 and #3 are notes
{\Ibu{#1}{#2}{#3}1\yh{#1}{#2}\tbu{#1}\yh{#1}{#3}}\relax
%
\def\ypairl#1#2#3%  #1 is beam number, #2 and #3 are notes
{\Ibl{#1}{#2}{#3}1\yb{#1}{#2}\tbl{#1}\yb{#1}{#3}}\relax
%________________________________________________________________________
\centerline{\enorme Harmonic notes in \musictex}
\bigskip
\bigskip
\def\wbarno{}%
\def\nbinstruments{1}%
\cleftoksi={{0}{0}{0}{0}}%
\staffbotmarg=12\Interligne%
%
% Note symbols by name
%
\def\bslash{{\tt\char'134}}%
\def\mcra#1{\zcharnote{13}{\hbox to 1.3\Interligne{\hss\tt\bslash #1\hss}}}%
\def\mcrb#1{\kern 10pt\mcra {#1}\kern -10pt}
%
\parindent 0mm%
\debutextrait\normal\temps\NOTEs
\qsk\qsk\hsk%
\mcra{zd\bslash sk}\zd i\sk\qsk\mcra{du}\du i\qsk
\mcra{dup}\dup i\qsk\mcra{dupp}\dupp i\qsk
\mcra{duppp}\duppp i\qsk\mcra{dl}\dl i\qsk
\mcra{dlp}\dlp i\qsk\mcra{dlpp}\dlpp i\qsk
\mcra{dlppp}\dlppp i\enotes\finextrait
\bigskip
%
\parindent 0mm%
\debutextrait\normal\temps\NOTEs
\qsk\qsk\hsk%
\mcra{zy\bslash sk}\zy i\sk\qsk\mcra{yu}\yu i\qsk
\mcra{yup}\yup i\qsk\mcra{yupp}\yupp i\qsk
\mcra{yuppp}\yuppp i\qsk\mcra{yl}\yl i\qsk
\mcra{ylp}\ylp i\qsk\mcra{ylpp}\ylpp i\qsk
\mcra{ylppp}\ylppp i\enotes\finextrait
%
\parindent 0mm%
\debutextrait\normal\temps\NOTEs
\qsk\qsk\hsk%
\mcra{ycu}\ycu i\qsk\mcra{yccu}\yccu i\qsk
\mcra{ycccu}\ycccu i\qsk\mcra{yccccu}\yccccu i\qsk
\mcra{ycl}\ycl i\qsk\mcra{yccl}\yccl i\qsk
\mcra{ycccl}\ycccl i\qsk\mcra{yccccl}\yccccl i\qsk
\enotes\finextrait
%
%
\parindent 0mm%
\debutextrait\normal\temps\NOTes
\qsk\qsk\hsk%
\mcrb{ypairu1cf}\ypairu1cf\sk%
\mcrb{ypairu1eg}\ypairu1eg\sk%
\mcrb{ypairl1jm}\ypairl1jm\sk%
\mcrb{ypairl1ln}\ypairl1ln\sk%
\enotes
\finextrait
%
% Guitar Harmonics
%
\def\guitar#1#2#3% 1=note, 2=string, 3=fret
{\zd #1\raise-12pt\hbox{\guitarsym#2#3}\sk}
\def\lguitar#1#2#3% 1=note, 2=string, 3=fret
{\raise-12pt\hbox{\guitarsym#2#3}\hqsk\zd #1\qsk\sk}
%
\centerline{\moyen Guitar harmonics}
\medskip
\parindent 0mm%
%
%     ---
%    | A |  B
%     ---
%
% A is the string number (Counting from treble E to bass E)
% E string = 1, B = 2, G = 3, D = 4, A = 5, E = 6
%
% B is the fret number, counting from the nut (or the capot if one is used)
% Thus 0 indicates an open string, 2 indicates fret 2 etc.
%
\font\eightrm=cmr8
%
\edef\catcodeat{\the\catcode`\@}\catcode`\@=11
%
\def\guitarsym#1#2{%
% Modified version of \boxtext lifted from gentle.tex - A gentle intro to TeX
\eightrm\setbox\strutbox=\hbox{\vrule height5.75pt depth0.75pt width\z@}%
\hbox{\lower 1pt \hbox{\vbox{\hrule%
\hbox{\strut \vrule #1\vrule}\hrule}}\hskip 0.5pt#2}}%
%
\catcode`\@=\catcodeat % Reset catcode of '@' to entry value
%
\def\sy#1#2% Inserts #2 as text #1 points to the right of the cursor
{\kern#1pt\charnote0{#2}\kern-#1pt}%
%
\def\gs#1#2{\sy{-0.8}{\guitarsym{#1}{#2}}}\relax % One string
%
\debutextrait\normal\temps\NOtes\qsk%
\lguitar L6{12}\lguitar a5{12}\lguitar b6{7}\lguitar d4{12}%
\guitar e5{7}\guitar g3{12}\guitar h4{7}\guitar i2{12}%
\guitar k3{7}\guitar l1{12}\sh m\guitar m2{7}\guitar n3{5}%
\guitar p1{7}\guitar s1{5}\enotes\finextrait
\bye
