\newif\ifGOprincipal
\newif\ifGObourdon
\newif\ifGOmixture
\newif\ifPEsoubasse
\newif\ifPEposaune
\newif\iftirasse
\newif\ifREdoublette
\newif\ifREflute
\newif\ifREtierce
\newif\ifREsifflet
\newif\iftremblant
\newif\ifREbourdon
\newif\ifREnasard
\newif\ifRElarigot
\newif\ifREcymbale
\newif\ifREvoixhum
\newif\ifGOoctave
\newif\ifGOquarte
\newif\ifGOtrompette
\newif\ifPEoctave
\newif\ifPEprestant
\newif\ifPEmixture

\def\ORreset{\GOprincipalfalse
\GObourdonfalse
\GOmixturefalse
\PEsoubassefalse
\PEposaunefalse
\tirassefalse
\REdoublettefalse
\REflutefalse
\REtiercefalse
\REsiffletfalse
\tremblantfalse
\REbourdonfalse
\REnasardfalse
\RElarigotfalse
\REcymbalefalse
\REvoixhumfalse
\GOoctavefalse
\GOquartefalse
\GOtrompettefalse
\PEoctavefalse
\PEprestantfalse
\PEmixturefalse}



\newdimen\regskip \regskip=6pt

\def\hpoint#1#2#3{\unskip\rlap{\kern#1\raise#2\hbox{#3}}}

\def\Choice{\raise -2pt\hbox to \regskip{\hss$\bullet$\hss}}
\def\noChoice{\hbox to \regskip{\hss\bf .\hss}}

\def\ORregistre{\vbox to 0pt{\noindent\leavevmode\raise -6\regskip\rlap{%
 \hpoint {1\regskip}{6\regskip}{\ifGOprincipal\Choice\else\noChoice\fi}
 \hpoint {1\regskip}{5\regskip}{\ifGObourdon\Choice\else\noChoice\fi}
 \hpoint {1\regskip}{4\regskip}{\ifGOmixture\Choice\else\noChoice\fi}
 \hpoint {1\regskip}{3\regskip}{\ifPEsoubasse\Choice\else\noChoice\fi}
 \hpoint {1\regskip}{2\regskip}{\ifPEposaune\Choice\else\noChoice\fi}
 \hpoint {1\regskip}{1\regskip}{\iftirasse\Choice\else\noChoice\fi}
 \hpoint {2\regskip}{5.5\regskip}{\ifREdoublette\Choice\else\noChoice\fi}
 \hpoint {2\regskip}{4.5\regskip}{\ifREflute\Choice\else\noChoice\fi}
 \hpoint {2\regskip}{3.5\regskip}{\ifREtierce\Choice\else\noChoice\fi}
 \hpoint {2\regskip}{2.5\regskip}{\ifREsifflet\Choice\else\noChoice\fi}
 \hpoint {2\regskip}{1.5\regskip}{\iftremblant\Choice\else\noChoice\fi}
 \hpoint {3\regskip}{5.5\regskip}{\ifREbourdon\Choice\else\noChoice\fi}
 \hpoint {3\regskip}{4.5\regskip}{\ifREnasard\Choice\else\noChoice\fi}
 \hpoint {3\regskip}{3.5\regskip}{\ifRElarigot\Choice\else\noChoice\fi}
 \hpoint {3\regskip}{2.5\regskip}{\ifREcymbale\Choice\else\noChoice\fi}
 \hpoint {3\regskip}{1.5\regskip}{\ifREvoixhum\Choice\else\noChoice\fi}
 \hpoint {4\regskip}{6\regskip}{\ifGOoctave\Choice\else\noChoice\fi}
 \hpoint {4\regskip}{5\regskip}{\ifGOquarte\Choice\else\noChoice\fi}
 \hpoint {4\regskip}{4\regskip}{\ifGOtrompette\Choice\else\noChoice\fi}
 \hpoint {4\regskip}{3\regskip}{\ifPEoctave\Choice\else\noChoice\fi}
 \hpoint {4\regskip}{2\regskip}{\ifPEprestant\Choice\else\noChoice\fi}
 \hpoint {4\regskip}{1\regskip}{\ifPEmixture\Choice\else\noChoice\fi}
}\vss}}
