;;;; based on accreg.scm ;;;; modified by Davide Bonetti ;;;; db@davidebonetti.it ;;;; This file is part of LilyPond, the GNU music typesetter. ;;;; ;;;; Copyright (C) 2013--2020 David Kastrup ;;;; ;;;; LilyPond is free software: you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by ;;;; the Free Software Foundation, either version 3 of the License, or ;;;; (at your option) any later version. ;;;; ;;;; LilyPond is distributed in the hope that it will be useful, ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; GNU General Public License for more details. ;;;; ;;;; You should have received a copy of the GNU General Public License ;;;; along with LilyPond. If not, see . ;; Accordion registration is tricky, partly because no two instruments ;; offer the same registers. In particular bass registers are not ;; standardized at all and often left unspecified (orchestra scores ;; don't use bass notes anyway). ;; ;; registration is indicated by using a control sequence name ;; indicating the register set as either a markup function or a music ;; function, taking a string as argument. The music function is a ;; standalone music event since register changes usually occur before ;; note onset. It is currently implemented as a text superscript on ;; an empty chord but could conceivably become some kind of per-staff ;; rehearsal mark at one point of time. (define-module (scm accregtwo)) (use-modules (lily) (srfi srfi-1) (ice-9 optargs)) (define-markup-command (accordionStdBassSq layout props) () #:category accordion-registers "New markup command to have a square symbol for standard bass registers" (interpret-markup layout props #{ \markup \override #'(box-padding . 0) \translate-scaled #'(-2 . .1) \combine \combine \combine \box \combine \null \translate-scaled #'(3.9 . .9) \null \translate-scaled #'(0 . 1) \box \combine \null \translate-scaled #'(3.9 . .9) \null \translate-scaled #'(0 . 2) \box \combine \null \translate-scaled #'(3.9 . .9) \null \translate-scaled #'(0 . 3) \box \combine \null \translate-scaled #'(3.9 . .9) \null #})) (defmacro* define-register-set (set-symbol doc #:optional definition) "Defines markup command named with @var{set-symbol} for creating accordion register markups as well as a music function of the same name. @var{doc} is the optional documentation string followed by the actual @var{definition}. See existing definitions in @file{scm/accreg.scm} for examples." `(begin (define-markup-command (,set-symbol layout props name) (string?) #:properties (translate-scaled-markup) #:category accordion-registers ;; It would be nice to generate the documentation string ;; automatically containing all possible registrations but this ;; is a hen-and-egg problem. When the macro is being executed, ;; the register definition has not yet been evaluated. It ;; would be feasible to not ever evaluate it and consider it ;; final. But that seems like a somewhat unfriendly interface. ,(if definition doc "Undocumented.") (let* ((instrument ,(or definition doc)) (register (ly:assoc-get name (ly:assoc-get 'register instrument))) (reedbanks (ly:assoc-get 'reedbank instrument))) (interpret-markup layout props (make-general-align-markup Y DOWN (fold (lambda (d m) (make-combine-markup m (make-translate-scaled-markup d (make-musicglyph-markup "accordion.dot")))) (if (equal? (ly:assoc-get 'glyph instrument) "accordion.stdBassSq") #{ \markup \accordionStdBassSq #} (make-musicglyph-markup (ly:assoc-get 'glyph instrument))) (or (ly:assoc-get 'dots register) (append-map (lambda (x) (ly:assoc-get 'dots (ly:assoc-get x reedbanks))) (ly:assoc-get 'reedbanks register)))))))) (define-public ,set-symbol (define-music-function (register) (string?) ,(format #f "Equivalent to @code{<>^\\markup \\~a@var{REGISTER}}." set-symbol) (make-event-chord (list (make-music 'TextScriptEvent 'direction 1 'text (,(string->symbol (format #f "make-~a-markup" set-symbol)) register)))))))) (define-register-set discant "@code{\\discant @var{name}} generates a discant accordion register symbol. To make it available, @example #(use-modules (scm accreg)) @end example is required near the top of your input file. The register names in the default @code{\\discant} register set have modeled after numeric Swiss notation like depicted in @uref{http://de.wikipedia.org/wiki/Register_%28Akkordeon%29}, omitting the slashes and dropping leading zeros. The string @var{name} is basically a three-digit number with the lowest digit specifying the number of 16' reeds, the tens the number of 8' reeds, and the hundreds specifying the number of 4' reeds. Without modification, the specified number of reeds is centered in the symbol. Newer instruments may have registrations where 8' can be used either within or without a tone chamber, @q{cassotto}. Notationally, the central dot then indicates use of cassotto. One can suffix the tens' digits @samp{1} and @samp{2} with @samp{+} or @samp{-} to indicate clustering the dots at the right or left respectively rather than centered. One can also suffix the units and hundreds' digit @samp{1} with @samp{+} or @samp{-} for the same effect, for accordions with double bassoon or double piccolo. Some common register names like \"bassoon\" and \"musette\" are also possible. Some examples are @lilypond[quote] #(use-modules (scm accreg)) \\markup { \\center-column { \\discant \"1\" \"\\\\discant \\\"1\\\"\" \\vspace #1 \\discant \"120\" \"\\\\discant \\\"120\\\"\" } \\hspace #3 \\center-column { \\discant \"1+0\" \"\\\\discant \\\"1+0\\\"\" \\vspace #1 \\discant \"131\" \"\\\\discant \\\"131\\\"\" } \\hspace #3 \\center-column { \\discant \"bassoon\" \"\\\\discant \\\"bassoon\\\"\" \\vspace #1 \\discant \"musette\" \"\\\\discant \\\"musette\\\"\" } \\hspace #3 \\center-column { \\discant \"12\" \"\\\\discant \\\"12\\\"\" \\vspace #1 \\discant \"210\" \"\\\\discant \\\"210\\\"\" } } @end lilypond " '((glyph . "accordion.discant") (reedbank (L (dots (0 . 0.5))) (LL (dots (0.5 . 0.55))) (LLL (dots (-0.5 . 0.55))) (M (dots (0 . 1.5))) (MM (dots (1 . 1.5))) (MMM (dots (-1 . 1.5))) (H (dots (0 . 2.5))) (HH (dots (0.5 . 2.45))) (HHH (dots (-0.5 . 2.45))) ) (register ("bassoon" (reedbanks L)) ("clarinet" (reedbanks M)) ("piccolo" (reedbanks H)) ("bandoneon" (reedbanks L M)) ("oboe" (reedbanks H M)) ("organ" (reedbanks H L)) ("violin" (reedbanks MMM MM)) ("celeste" (reedbanks MMM MM)) ("accordion" (reedbanks MMM MM L)) ("musette" (reedbanks MMM MM M)) ("false musette" (reedbanks H MMM MM)) ("harmonium" (reedbanks H L M)) ("master IV" (reedbanks H MMM MM L)) ("master V" (reedbanks H MMM MM M L)) ("1" (reedbanks L)) ("1+" (reedbanks LL)) ("1-" (reedbanks LLL)) ("2" (reedbanks LL LLL)) ("10" (reedbanks M)) ("11" (reedbanks L M)) ("11+" (reedbanks LL M)) ("11-" (reedbanks LLL M)) ("12" (reedbanks LL LLL M)) ("1+0" (reedbanks MM)) ("1+1" (reedbanks MM L)) ("1+1+" (reedbanks MM LL)) ("1+1-" (reedbanks MM LLL)) ("1+2" (reedbanks MM LLL LL)) ("1-0" (reedbanks MMM)) ("1-1" (reedbanks MMM L)) ("1-1+" (reedbanks MMM LL)) ("1-1-" (reedbanks MMM LLL)) ("1-2" (reedbanks MMM LLL LL)) ("20" (reedbanks MMM MM)) ("21" (reedbanks MMM MM L)) ("21+" (reedbanks MMM MM LL)) ("21-" (reedbanks MMM MM LLL)) ("22" (reedbanks MMM MM LLL LL)) ("2+0" (reedbanks MM M)) ("2+1" (reedbanks MM M L)) ("2+1+" (reedbanks MM M LL)) ("2+1-" (reedbanks MM M LLL)) ("2+2" (reedbanks MM M LLL LL)) ("2-0" (reedbanks MMM M)) ("2-1" (reedbanks MMM M L)) ("2-1+" (reedbanks MMM M LL)) ("2-1-" (reedbanks MMM M LLL)) ("2-2" (reedbanks MMM M LLL LL)) ("30" (reedbanks MMM MM M)) ("31" (reedbanks MMM MM M L)) ("31+" (reedbanks MMM MM M LL)) ("31-" (reedbanks MMM MM M LLL)) ("32" (reedbanks MMM MM M LLL LL)) ("100" (reedbanks H)) ("101" (reedbanks H L)) ("101+" (reedbanks H LL)) ("101-" (reedbanks H LLL)) ("102" (reedbanks H LLL LL)) ("110" (reedbanks H M)) ("111" (reedbanks H L M)) ("111+" (reedbanks H LL M)) ("111-" (reedbanks H LLL M)) ("112" (reedbanks H LL LLL M)) ("11+0" (reedbanks H MM)) ("11+1" (reedbanks H MM L)) ("11+1+" (reedbanks H MM LL)) ("11+1-" (reedbanks H MM LLL)) ("11+2" (reedbanks H MM LLL LL)) ("11-0" (reedbanks H MMM)) ("11-1" (reedbanks H MMM L)) ("11-1+" (reedbanks H MMM LL)) ("11-1-" (reedbanks H MMM LLL)) ("11-2" (reedbanks H MMM LLL LL)) ("120" (reedbanks H MMM MM)) ("121" (reedbanks H MMM MM L)) ("121+" (reedbanks H MMM MM LL)) ("121-" (reedbanks H MMM MM LLL)) ("122" (reedbanks H MMM MM LLL LL)) ("12+0" (reedbanks H MM M)) ("12+1" (reedbanks H MM M L)) ("12+1+" (reedbanks H MM M LL)) ("12+1-" (reedbanks H MM M LLL)) ("12+2" (reedbanks H MM M LL LLL)) ("12-0" (reedbanks H MMM M)) ("12-1" (reedbanks H MMM M L)) ("12-1+" (reedbanks H MMM M LL)) ("12-1-" (reedbanks H MMM M LLL)) ("12-2" (reedbanks H MMM M LL LLL)) ("130" (reedbanks H MMM MM M)) ("131" (reedbanks H MMM MM M L)) ("131+" (reedbanks H MMM MM M LL)) ("131-" (reedbanks H MMM MM M LLL)) ("132" (reedbanks H MMM MM M LL LLL)) ("1+00" (reedbanks HH)) ("1+01" (reedbanks HH L)) ("1+01+" (reedbanks HH LL)) ("1+01-" (reedbanks HH LLL)) ("1+02" (reedbanks HH LLL LL)) ("1+10" (reedbanks HH M)) ("1+11" (reedbanks HH L M)) ("1+11+" (reedbanks HH LL M)) ("1+11-" (reedbanks HH LLL M)) ("1+12" (reedbanks HH LL LLL M)) ("1+1+0" (reedbanks HH MM)) ("1+1+1" (reedbanks HH MM L)) ("1+1+1+" (reedbanks HH MM LL)) ("1+1+1-" (reedbanks HH MM LLL)) ("1+1+2" (reedbanks HH MM LLL LL)) ("1+1-0" (reedbanks HH MMM)) ("1+1-1" (reedbanks HH MMM L)) ("1+1-1+" (reedbanks HH MMM LL)) ("1+1-1-" (reedbanks HH MMM LLL)) ("1+1-2" (reedbanks HH MMM LLL LL)) ("1+20" (reedbanks HH MMM MM)) ("1+21" (reedbanks HH MMM MM L)) ("1+21+" (reedbanks HH MMM MM LL)) ("1+21-" (reedbanks HH MMM MM LLL)) ("1+22" (reedbanks HH MMM MM LLL LL)) ("1+2+0" (reedbanks HH MM M)) ("1+2+1" (reedbanks HH MM M L)) ("1+2+1+" (reedbanks HH MM M LL)) ("1+2+1-" (reedbanks HH MM M LLL)) ("1+2+2" (reedbanks HH MM M LL LLL)) ("1+2-0" (reedbanks HH MMM M)) ("1+2-1" (reedbanks HH MMM M L)) ("1+2-1+" (reedbanks HH MMM M LL)) ("1+2-1-" (reedbanks HH MMM M LLL)) ("1+2-2" (reedbanks HH MMM M LL LLL)) ("1+30" (reedbanks HH MMM MM M)) ("1+31" (reedbanks HH MMM MM M L)) ("1+31+" (reedbanks HH MMM MM M LL)) ("1+31-" (reedbanks HH MMM MM M LLL)) ("1+32" (reedbanks HH MMM MM M LL LLL)) ("1-00" (reedbanks HHH)) ("1-01" (reedbanks HHH L)) ("1-01+" (reedbanks HHH LL)) ("1-01-" (reedbanks HHH LLL)) ("1-02" (reedbanks HHH LLL LL)) ("1-10" (reedbanks HHH M)) ("1-11" (reedbanks HHH L M)) ("1-11+" (reedbanks HHH LL M)) ("1-11-" (reedbanks HHH LLL M)) ("1-12" (reedbanks HHH LL LLL M)) ("1-1+0" (reedbanks HHH MM)) ("1-1+1" (reedbanks HHH MM L)) ("1-1+1+" (reedbanks HHH MM LL)) ("1-1+1-" (reedbanks HHH MM LLL)) ("1-1+2" (reedbanks HHH MM LLL LL)) ("1-1-0" (reedbanks HHH MMM)) ("1-1-1" (reedbanks HHH MMM L)) ("1-1-1+" (reedbanks HHH MMM LL)) ("1-1-1-" (reedbanks HHH MMM LLL)) ("1-1-2" (reedbanks HHH MMM LLL LL)) ("1-20" (reedbanks HHH MMM MM)) ("1-21" (reedbanks HHH MMM MM L)) ("1-21+" (reedbanks HHH MMM MM LL)) ("1-21-" (reedbanks HHH MMM MM LLL)) ("1-22" (reedbanks HHH MMM MM LLL LL)) ("1-2+0" (reedbanks HHH MM M)) ("1-2+1" (reedbanks HHH MM M L)) ("1-2+1+" (reedbanks HHH MM M LL)) ("1-2+1-" (reedbanks HHH MM M LLL)) ("1-2+2" (reedbanks HHH MM M LL LLL)) ("1-2-0" (reedbanks HHH MMM M)) ("1-2-1" (reedbanks HHH MMM M L)) ("1-2-1+" (reedbanks HHH MMM M LL)) ("1-2-1-" (reedbanks HHH MMM M LLL)) ("1-2-2" (reedbanks HHH MMM M LL LLL)) ("1-30" (reedbanks HHH MMM MM M)) ("1-31" (reedbanks HHH MMM MM M L)) ("1-31+" (reedbanks HHH MMM MM M LL)) ("1-31-" (reedbanks HHH MMM MM M LLL)) ("1-32" (reedbanks HHH MMM MM M LL LLL)) ("200" (reedbanks HH HHH)) ("201" (reedbanks HH HHH L)) ("201+" (reedbanks HH HHH LL)) ("201-" (reedbanks HH HHH LLL)) ("202" (reedbanks HH HHH LLL LL)) ("210" (reedbanks HH HHH M)) ("211" (reedbanks HH HHH L M)) ("211+" (reedbanks HH HHH LL M)) ("211-" (reedbanks HH HHH LLL M)) ("212" (reedbanks HH HHH LL LLL M)) ("21+0" (reedbanks HH HHH MM)) ("21+1" (reedbanks HH HHH MM L)) ("21+1+" (reedbanks HH HHH MM LL)) ("21+1-" (reedbanks HH HHH MM LLL)) ("21+2" (reedbanks HH HHH MM LLL LL)) ("21-0" (reedbanks HH HHH MMM)) ("21-1" (reedbanks HH HHH MMM L)) ("21-1+" (reedbanks HH HHH MMM LL)) ("21-1-" (reedbanks HH HHH MMM LLL)) ("21-2" (reedbanks HH HHH MMM LLL LL)) ("220" (reedbanks HH HHH MMM MM)) ("221" (reedbanks HH HHH MMM MM L)) ("221+" (reedbanks HH HHH MMM MM LL)) ("221-" (reedbanks HH HHH MMM MM LLL)) ("222" (reedbanks HH HHH MMM MM LLL LL)) ("22+0" (reedbanks HH HHH MM M)) ("22+1" (reedbanks HH HHH MM M L)) ("22+1+" (reedbanks HH HHH MM M LL)) ("22+1-" (reedbanks HH HHH MM M LLL)) ("22+2" (reedbanks HH HHH MM M LL LLL)) ("22-0" (reedbanks HH HHH MMM M)) ("22-1" (reedbanks HH HHH MMM M L)) ("22-1+" (reedbanks HH HHH MMM M LL)) ("22-1-" (reedbanks HH HHH MMM M LLL)) ("22-2" (reedbanks HH HHH MMM M LL LLL)) ("230" (reedbanks HH HHH MMM MM M)) ("231" (reedbanks HH HHH MMM MM M L)) ("231+" (reedbanks HH HHH MMM MM M LL)) ("231-" (reedbanks HH HHH MMM MM M LLL)) ("232" (reedbanks HH HHH MMM MM M LL LLL)) ))) (define-register-set stdBass "@code{\\stdBass @var{name}} generates a standard bass accordion register symbol. To make it available, @example #(use-modules (scm accreg)) @end example is required near the top of your input file. The default bass register definitions have been modeled after the article @uref{http://www.accordions.com/index/art/stradella.shtml} originally appearing in Accord Magazine. The underlying register model is @lilypond[quote] \\new PianoStaff << \\new Staff \\with { \\omit TimeSignature } { \\glissando \\glissando } \\new Staff \\with { \\omit TimeSignature } { \\clef bass \\glissando \\glissando } >> @end lilypond This kind of overlapping arrangement is common for Italian instruments though the exact location of the octave breaks differ. When not composing for a particular target instrument, using the five reed definitions makes more sense than using a four reed layout: in that manner, the @samp{Master} register is unambiguous. This is rather the rule in literature bothering about bass registrations at all. Custom registrations can be obtained with combinations of the five sets of reeds: S A C T B (as for Soprano Alto Contralto Tenor Bass). Available registrations are @lilypond[quote] #(use-modules (scm accreg)) \\markup { \\center-column { \\stdBass \"Soprano\" \"\\\\stdBass \\\"Soprano\\\"\" \\vspace #1 \\stdBass \"Alto\" \"\\\\stdBass \\\"Alto\\\"\" \\vspace #1 \\stdBass \"Tenor\" \"\\\\stdBass \\\"Tenor\\\"\" \\vspace #1 \\stdBass \"Master\" \"\\\\stdBass \\\"Master\\\"\" } \\hspace #3 \\center-column { \\stdBass \"Soft Bass\" \"\\\\stdBass \\\"Soft Bass\\\"\" \\vspace #1 \\stdBass \"Soft Tenor\" \"\\\\stdBass \\\"Soft Tenor\\\"\" \\vspace #1 \\stdBass \"Bass/Alto\" \"\\\\stdBass \\\"Bass/Alto\\\"\" } } @end lilypond Available registrations with SACTB system: @lilypond[quote] #(use-modules (scm accreg)) \\markup { \\center-column { \\stdBass \"S\" \"\\\\stdBass \\\"S\\\"\" \\vspace #1 \\stdBass \"A\" \"\\\\stdBass \\\"A\\\"\" \\vspace #1 \\stdBass \"C\" \"\\\\stdBass \\\"C\\\"\" \\vspace #1 \\stdBass \"T\" \"\\\\stdBass \\\"T\\\"\" \\vspace #1 \\stdBass \"B\" \"\\\\stdBass \\\"B\\\"\" } \\hspace #3 \\center-column { \\stdBass \"SA\" \"\\\\stdBass \\\"SA\\\"\" \\vspace #1 \\stdBass \"SC\" \"\\\\stdBass \\\"SC\\\"\" \\vspace #1 \\stdBass \"ST\" \"\\\\stdBass \\\"ST\\\"\" \\vspace #1 \\stdBass \"SB\" \"\\\\stdBass \\\"SB\\\"\" \\vspace #1 \\stdBass \"AC\" \"\\\\stdBass \\\"AC\\\"\" \\vspace #1 \\stdBass \"AT\" \"\\\\stdBass \\\"AT\\\"\" \\vspace #1 \\stdBass \"AB\" \"\\\\stdBass \\\"AB\\\"\" \\vspace #1 \\stdBass \"CT\" \"\\\\stdBass \\\"CT\\\"\" \\vspace #1 \\stdBass \"CB\" \"\\\\stdBass \\\"CB\\\"\" \\vspace #1 \\stdBass \"TB\" \"\\\\stdBass \\\"TB\\\"\" } \\hspace #3 \\center-column { \\stdBass \"SAC\" \"\\\\stdBass \\\"SAC\\\"\" \\vspace #1 \\stdBass \"SAT\" \"\\\\stdBass \\\"SAT\\\"\" \\vspace #1 \\stdBass \"SAB\" \"\\\\stdBass \\\"SAB\\\"\" \\vspace #1 \\stdBass \"SCT\" \"\\\\stdBass \\\"SCT\\\"\" \\vspace #1 \\stdBass \"SCB\" \"\\\\stdBass \\\"SCB\\\"\" \\vspace #1 \\stdBass \"STB\" \"\\\\stdBass \\\"STB\\\"\" \\vspace #1 \\stdBass \"ACT\" \"\\\\stdBass \\\"ACT\\\"\" \\vspace #1 \\stdBass \"ACB\" \"\\\\stdBass \\\"ACB\\\"\" \\vspace #1 \\stdBass \"ATB\" \"\\\\stdBass \\\"ATB\\\"\" \\vspace #1 \\stdBass \"CTB\" \"\\\\stdBass \\\"CTB\\\"\" } \\hspace #3 \\center-column { \\stdBass \"SACT\" \"\\\\stdBass \\\"SACT\\\"\" \\vspace #1 \\stdBass \"SACB\" \"\\\\stdBass \\\"SACB\\\"\" \\vspace #1 \\stdBass \"SATB\" \"\\\\stdBass \\\"SATB\\\"\" \\vspace #1 \\stdBass \"SCTB\" \"\\\\stdBass \\\"SCTB\\\"\" \\vspace #1 \\stdBass \"ACTB\" \"\\\\stdBass \\\"ACTB\\\"\" } \\hspace #3 \\center-column { \\stdBass \"SACTB\" \"\\\\stdBass \\\"SACTB\\\"\" } } @end lilypond " '((glyph . "accordion.stdbass") (register ("Soprano" (reedbanks Soprano)) ("Alto" (reedbanks Alto Soprano)) ("Tenor" (reedbanks Tenor Alto Soprano)) ("Master" (reedbanks Bass Tenor Contralto Alto Soprano)) ("Soft Bass" (reedbanks Bass Tenor Contralto)) ("Soft Tenor" (reedbanks Tenor Alto)) ("Bass/Alto" (reedbanks Bass Alto Soprano)) ("S" (reedbanks Soprano)) ("A" (reedbanks Alto)) ("C" (reedbanks Contralto)) ("T" (reedbanks Tenor)) ("B" (reedbanks Bass)) ("SA" (reedbanks Alto Soprano)) ("SC" (reedbanks Contralto Soprano)) ("ST" (reedbanks Tenor Soprano)) ("SB" (reedbanks Bass Soprano)) ("AC" (reedbanks Contralto Alto)) ("AT" (reedbanks Tenor Alto)) ("AB" (reedbanks Bass Alto)) ("CT" (reedbanks Tenor Contralto)) ("CB" (reedbanks Bass Contralto)) ("TB" (reedbanks Bass Tenor)) ("SAC" (reedbanks Contralto Alto Soprano)) ("SAT" (reedbanks Tenor Alto Soprano)) ("SAB" (reedbanks Bass Alto Soprano)) ("SCT" (reedbanks Tenor Contralto Soprano)) ("SCB" (reedbanks Bass Contralto Soprano)) ("STB" (reedbanks Bass Tenor Soprano)) ("ACT" (reedbanks Tenor Contralto Alto)) ("ACB" (reedbanks Bass Contralto Alto)) ("ATB" (reedbanks Bass Tenor Alto)) ("CTB" (reedbanks Bass Tenor Contralto)) ("SACT" (reedbanks Tenor Contralto Alto Soprano)) ("SACB" (reedbanks Bass Contralto Alto Soprano)) ("SATB" (reedbanks Bass Tenor Alto Soprano)) ("SCTB" (reedbanks Bass Tenor Contralto Soprano)) ("ACTB" (reedbanks Bass Tenor Contralto Alto)) ("SACTB" (reedbanks Bass Tenor Contralto Alto Soprano)) ) (reedbank (Soprano (dots (0 . 3.5))) (Alto (dots (0 . 2.5))) (Contralto (dots (1 . 2))) (Tenor (dots (0 . 1.5))) (Bass (dots (0 . 0.5)))))) (define-register-set stdBassSq "@code{\\stdBassSq @var{name}} generates a standard bass accordion square register symbol. To make it available, @example #(use-modules (scm accreg)) @end example is required near the top of your input file. The default bass register definitions have been modeled after the article @uref{http://www.accordions.com/index/art/stradella.shtml} originally appearing in Accord Magazine. The underlying register model is @lilypond[quote] \\new PianoStaff << \\new Staff \\with { \\omit TimeSignature } { \\glissando \\glissando } \\new Staff \\with { \\omit TimeSignature } { \\clef bass \\glissando \\glissando } >> @end lilypond This kind of overlapping arrangement is common for Italian instruments though the exact location of the octave breaks differ. When not composing for a particular target instrument, using the five reed definitions makes more sense than using a four reed layout: in that manner, the @samp{Master} register is unambiguous. This is rather the rule in literature bothering about bass registrations at all. Custom registrations can be obtained with combinations of the five sets of reeds: S A C T B (as for Soprano Alto Contralto Tenor Bass). Available registrations are @lilypond[quote] #(use-modules (scm accreg)) \\markup { \\center-column { \\stdBassSq \"Soprano\" \"\\\\stdBassSq \\\"Soprano\\\"\" \\vspace #1 \\stdBassSq \"Alto\" \"\\\\stdBassSq \\\"Alto\\\"\" \\vspace #1 \\stdBassSq \"Tenor\" \"\\\\stdBassSq \\\"Tenor\\\"\" \\vspace #1 \\stdBassSq \"Master\" \"\\\\stdBassSq \\\"Master\\\"\" } \\hspace #3 \\center-column { \\stdBassSq \"Soft Bass\" \"\\\\stdBassSq \\\"Soft Bass\\\"\" \\vspace #1 \\stdBassSq \"Soft Tenor\" \"\\\\stdBassSq \\\"Soft Tenor\\\"\" \\vspace #1 \\stdBassSq \"Bass/Alto\" \"\\\\stdBassSq \\\"Bass/Alto\\\"\" } } @end lilypond Available registrations with SACTB system: @lilypond[quote] #(use-modules (scm accreg)) \\markup { \\center-column { \\stdBassSq \"S\" \"\\\\stdBassSq \\\"S\\\"\" \\vspace #1 \\stdBassSq \"A\" \"\\\\stdBassSq \\\"A\\\"\" \\vspace #1 \\stdBassSq \"C\" \"\\\\stdBassSq \\\"C\\\"\" \\vspace #1 \\stdBassSq \"T\" \"\\\\stdBassSq \\\"T\\\"\" \\vspace #1 \\stdBassSq \"B\" \"\\\\stdBassSq \\\"B\\\"\" } \\hspace #3 \\center-column { \\stdBassSq \"SA\" \"\\\\stdBassSq \\\"SA\\\"\" \\vspace #1 \\stdBassSq \"SC\" \"\\\\stdBassSq \\\"SC\\\"\" \\vspace #1 \\stdBassSq \"ST\" \"\\\\stdBassSq \\\"ST\\\"\" \\vspace #1 \\stdBassSq \"SB\" \"\\\\stdBassSq \\\"SB\\\"\" \\vspace #1 \\stdBassSq \"AC\" \"\\\\stdBassSq \\\"AC\\\"\" \\vspace #1 \\stdBassSq \"AT\" \"\\\\stdBassSq \\\"AT\\\"\" \\vspace #1 \\stdBassSq \"AB\" \"\\\\stdBassSq \\\"AB\\\"\" \\vspace #1 \\stdBassSq \"CT\" \"\\\\stdBassSq \\\"CT\\\"\" \\vspace #1 \\stdBassSq \"CB\" \"\\\\stdBassSq \\\"CB\\\"\" \\vspace #1 \\stdBassSq \"TB\" \"\\\\stdBassSq \\\"TB\\\"\" } \\hspace #3 \\center-column { \\stdBassSq \"SAC\" \"\\\\stdBassSq \\\"SAC\\\"\" \\vspace #1 \\stdBassSq \"SAT\" \"\\\\stdBassSq \\\"SAT\\\"\" \\vspace #1 \\stdBassSq \"SAB\" \"\\\\stdBassSq \\\"SAB\\\"\" \\vspace #1 \\stdBassSq \"SCT\" \"\\\\stdBassSq \\\"SCT\\\"\" \\vspace #1 \\stdBassSq \"SCB\" \"\\\\stdBassSq \\\"SCB\\\"\" \\vspace #1 \\stdBassSq \"STB\" \"\\\\stdBassSq \\\"STB\\\"\" \\vspace #1 \\stdBassSq \"ACT\" \"\\\\stdBassSq \\\"ACT\\\"\" \\vspace #1 \\stdBassSq \"ACB\" \"\\\\stdBassSq \\\"ACB\\\"\" \\vspace #1 \\stdBassSq \"ATB\" \"\\\\stdBassSq \\\"ATB\\\"\" \\vspace #1 \\stdBassSq \"CTB\" \"\\\\stdBassSq \\\"CTB\\\"\" } \\hspace #3 \\center-column { \\stdBassSq \"SACT\" \"\\\\stdBassSq \\\"SACT\\\"\" \\vspace #1 \\stdBassSq \"SACB\" \"\\\\stdBassSq \\\"SACB\\\"\" \\vspace #1 \\stdBassSq \"SATB\" \"\\\\stdBassSq \\\"SATB\\\"\" \\vspace #1 \\stdBassSq \"SCTB\" \"\\\\stdBassSq \\\"SCTB\\\"\" \\vspace #1 \\stdBassSq \"ACTB\" \"\\\\stdBassSq \\\"ACTB\\\"\" } \\hspace #3 \\center-column { \\stdBassSq \"SACTB\" \"\\\\stdBassSq \\\"SACTB\\\"\" } } @end lilypond " '((glyph . "accordion.stdBassSq") (register ("Soprano" (reedbanks Soprano)) ("Alto" (reedbanks Alto Soprano)) ("Tenor" (reedbanks Tenor Alto Soprano)) ("Master" (reedbanks Bass Tenor Contralto Alto Soprano)) ("Soft Bass" (reedbanks Bass Tenor Contralto)) ("Soft Tenor" (reedbanks Tenor Alto)) ("Bass/Alto" (reedbanks Bass Alto Soprano)) ("S" (reedbanks Soprano)) ("A" (reedbanks Alto)) ("C" (reedbanks Contralto)) ("T" (reedbanks Tenor)) ("B" (reedbanks Bass)) ("SA" (reedbanks Alto Soprano)) ("SC" (reedbanks Contralto Soprano)) ("ST" (reedbanks Tenor Soprano)) ("SB" (reedbanks Bass Soprano)) ("AC" (reedbanks Contralto Alto)) ("AT" (reedbanks Tenor Alto)) ("AB" (reedbanks Bass Alto)) ("CT" (reedbanks Tenor Contralto)) ("CB" (reedbanks Bass Contralto)) ("TB" (reedbanks Bass Tenor)) ("SAC" (reedbanks Contralto Alto Soprano)) ("SAT" (reedbanks Tenor Alto Soprano)) ("SAB" (reedbanks Bass Alto Soprano)) ("SCT" (reedbanks Tenor Contralto Soprano)) ("SCB" (reedbanks Bass Contralto Soprano)) ("STB" (reedbanks Bass Tenor Soprano)) ("ACT" (reedbanks Tenor Contralto Alto)) ("ACB" (reedbanks Bass Contralto Alto)) ("ATB" (reedbanks Bass Tenor Alto)) ("CTB" (reedbanks Bass Tenor Contralto)) ("SACT" (reedbanks Tenor Contralto Alto Soprano)) ("SACB" (reedbanks Bass Contralto Alto Soprano)) ("SATB" (reedbanks Bass Tenor Alto Soprano)) ("SCTB" (reedbanks Bass Tenor Contralto Soprano)) ("ACTB" (reedbanks Bass Tenor Contralto Alto)) ("SACTB" (reedbanks Bass Tenor Contralto Alto Soprano)) ) (reedbank (Soprano (dots (0 . 3.5))) (Alto (dots (0 . 2.5))) (Contralto (dots (1 . 2))) (Tenor (dots (0 . 1.5))) (Bass (dots (0 . 0.5)))))) (define-register-set stdBassIV "@code{\\stdBassIV @var{name}} generates a standard bass accordion register symbol. To make it available, @example #(use-modules (scm accreg)) @end example is required near the top of your input file. The main use is for four-reed standard bass instruments with reedbank layout @lilypond[quote] \\new PianoStaff << \\new Staff \\with { \\omit TimeSignature } { 2\\glissando } \\new Staff \\with { \\omit TimeSignature } { \\clef bass \\glissando } >> @end lilypond Notable instruments are Morino models with MIII (the others are five-reed instead) and the Atlantic@tie{}IV. Most of those models have three register switches. Some newer Morinos with MIII might have five or even seven. The prevalent three-register layout uses the middle three switches @samp{Tenor}, @samp{Master}, @samp{Soft Bass}. Note that the sound is quite darker than the same registrations of @samp{c,}-based instruments. Custom registrations can be obtained with combinations of the five sets of reeds: S A T B (as for Soprano Alto Tenor Bass). Available registrations are @lilypond[quote] #(use-modules (scm accreg)) \\markup { \\center-column { \\stdBassIV \"Soprano\" \"\\\\stdBassIV \\\"Soprano\\\"\" \\vspace #1 \\stdBassIV \"Alto\" \"\\\\stdBassIV \\\"Alto\\\"\" \\vspace #1 \\stdBassIV \"Tenor\" \"\\\\stdBassIV \\\"Tenor\\\"\" \\vspace #1 \\stdBassIV \"Master\" \"\\\\stdBassIV \\\"Master\\\"\" } \\hspace #3 \\center-column { \\stdBassIV \"Soft Bass\" \"\\\\stdBassIV \\\"Soft Bass\\\"\" \\vspace #1 \\stdBassIV \"Bass/Alto\" \"\\\\stdBassIV \\\"Bass/Alto\\\"\" \\vspace #1 \\stdBassIV \"Soft Bass/Alto\" \"\\\\stdBassIV \\\"Soft Bass/Alto\\\"\" \\vspace #1 \\stdBassIV \"Soft Tenor\" \"\\\\stdBassIV \\\"Soft Tenor\\\"\" } } @end lilypond Available registrations with SATB system: @lilypond[quote] #(use-modules (scm accreg)) \\markup { \\center-column { \\stdBassIV \"S\" \"\\\\stdBassIV \\\"S\\\"\" \\vspace #1 \\stdBassIV \"A\" \"\\\\stdBassIV \\\"A\\\"\" \\vspace #1 \\stdBassIV \"T\" \"\\\\stdBassIV \\\"T\\\"\" \\vspace #1 \\stdBassIV \"B\" \"\\\\stdBassIV \\\"B\\\"\" } \\hspace #3 \\center-column { \\stdBassIV \"SA\" \"\\\\stdBassIV \\\"SA\\\"\" \\vspace #1 \\stdBassIV \"ST\" \"\\\\stdBassIV \\\"ST\\\"\" \\vspace #1 \\stdBassIV \"SB\" \"\\\\stdBassIV \\\"SB\\\"\" \\vspace #1 \\stdBassIV \"AT\" \"\\\\stdBassIV \\\"AT\\\"\" \\vspace #1 \\stdBassIV \"AB\" \"\\\\stdBassIV \\\"AB\\\"\" \\vspace #1 \\stdBassIV \"TB\" \"\\\\stdBassIV \\\"TB\\\"\" } \\hspace #3 \\center-column { \\stdBassIV \"SAT\" \"\\\\stdBassIV \\\"SAT\\\"\" \\vspace #1 \\stdBassIV \"SAB\" \"\\\\stdBassIV \\\"SAB\\\"\" \\vspace #1 \\stdBassIV \"STB\" \"\\\\stdBassIV \\\"STB\\\"\" \\vspace #1 \\stdBassIV \"ATB\" \"\\\\stdBassIV \\\"ATB\\\"\" } \\hspace #3 \\center-column { \\stdBassIV \"SATB\" \"\\\\stdBassIV \\\"SATB\\\"\" } } @end lilypond " '((glyph . "accordion.stdbass") (reedbank (Soprano (dots (0 . 3.5))) (Alto (dots (0 . 2.5))) (Tenor (dots (0 . 1.5))) (Bass (dots (0 . 0.5)))) (register ("Soprano" (reedbanks Soprano)) ("Alto" (reedbanks Alto Soprano)) ("Tenor" (reedbanks Tenor Soprano)) ("Master" (reedbanks Bass Tenor Alto Soprano)) ("Soft Bass" (reedbanks Bass Tenor Alto)) ("Bass/Alto" (reedbanks Bass Alto Soprano)) ("Soft Bass/Alto" (reedbanks Bass Alto)) ("Soft Tenor" (reedbanks Tenor Alto)) ("S" (reedbanks Soprano)) ("A" (reedbanks Alto)) ("T" (reedbanks Tenor)) ("B" (reedbanks Bass)) ("SA" (reedbanks Alto Soprano)) ("ST" (reedbanks Tenor Soprano)) ("SB" (reedbanks Bass Soprano)) ("AT" (reedbanks Tenor Alto)) ("AB" (reedbanks Bass Alto)) ("TB" (reedbanks Bass Tenor)) ("SAT" (reedbanks Tenor Alto Soprano)) ("SAB" (reedbanks Bass Alto Soprano)) ("STB" (reedbanks Bass Tenor Soprano)) ("ATB" (reedbanks Bass Tenor Alto)) ("SATB" (reedbanks Bass Tenor Alto Soprano)) ))) (define-register-set stdBassIVSq "@code{\\stdBassIVSq @var{name}} generates a standard bass accordion square register symbol. To make it available, @example #(use-modules (scm accreg)) @end example is required near the top of your input file. The main use is for four-reed standard bass instruments with reedbank layout @lilypond[quote] \\new PianoStaff << \\new Staff \\with { \\omit TimeSignature } { 2\\glissando } \\new Staff \\with { \\omit TimeSignature } { \\clef bass \\glissando } >> @end lilypond Notable instruments are Morino models with MIII (the others are five-reed instead) and the Atlantic@tie{}IV. Most of those models have three register switches. Some newer Morinos with MIII might have five or even seven. The prevalent three-register layout uses the middle three switches @samp{Tenor}, @samp{Master}, @samp{Soft Bass}. Note that the sound is quite darker than the same registrations of @samp{c,}-based instruments. Custom registrations can be obtained with combinations of the five sets of reeds: S A T B (as for Soprano Alto Tenor Bass). Available registrations are @lilypond[quote] #(use-modules (scm accreg)) \\markup { \\center-column { \\stdBassIVSq \"Soprano\" \"\\\\stdBassIVSq \\\"Soprano\\\"\" \\vspace #1 \\stdBassIVSq \"Alto\" \"\\\\stdBassIVSq \\\"Alto\\\"\" \\vspace #1 \\stdBassIVSq \"Tenor\" \"\\\\stdBassIVSq \\\"Tenor\\\"\" \\vspace #1 \\stdBassIVSq \"Master\" \"\\\\stdBassIVSq \\\"Master\\\"\" } \\hspace #3 \\center-column { \\stdBassIVSq \"Soft Bass\" \"\\\\stdBassIVSq \\\"Soft Bass\\\"\" \\vspace #1 \\stdBassIVSq \"Bass/Alto\" \"\\\\stdBassIVSq \\\"Bass/Alto\\\"\" \\vspace #1 \\stdBassIVSq \"Soft Bass/Alto\" \"\\\\stdBassIVSq \\\"Soft Bass/Alto\\\"\" \\vspace #1 \\stdBassIVSq \"Soft Tenor\" \"\\\\stdBassIVSq \\\"Soft Tenor\\\"\" } } @end lilypond Available registrations with SATB system: @lilypond[quote] #(use-modules (scm accreg)) \\markup { \\center-column { \\stdBassIVSq \"S\" \"\\\\stdBassIVSq \\\"S\\\"\" \\vspace #1 \\stdBassIVSq \"A\" \"\\\\stdBassIVSq \\\"A\\\"\" \\vspace #1 \\stdBassIVSq \"T\" \"\\\\stdBassIVSq \\\"T\\\"\" \\vspace #1 \\stdBassIVSq \"B\" \"\\\\stdBassIVSq \\\"B\\\"\" } \\hspace #3 \\center-column { \\stdBassIVSq \"SA\" \"\\\\stdBassIVSq \\\"SA\\\"\" \\vspace #1 \\stdBassIVSq \"ST\" \"\\\\stdBassIVSq \\\"ST\\\"\" \\vspace #1 \\stdBassIVSq \"SB\" \"\\\\stdBassIVSq \\\"SB\\\"\" \\vspace #1 \\stdBassIVSq \"AT\" \"\\\\stdBassIVSq \\\"AT\\\"\" \\vspace #1 \\stdBassIVSq \"AB\" \"\\\\stdBassIVSq \\\"AB\\\"\" \\vspace #1 \\stdBassIVSq \"TB\" \"\\\\stdBassIVSq \\\"TB\\\"\" } \\hspace #3 \\center-column { \\stdBassIVSq \"SAT\" \"\\\\stdBassIVSq \\\"SAT\\\"\" \\vspace #1 \\stdBassIVSq \"SAB\" \"\\\\stdBassIVSq \\\"SAB\\\"\" \\vspace #1 \\stdBassIVSq \"STB\" \"\\\\stdBassIVSq \\\"STB\\\"\" \\vspace #1 \\stdBassIVSq \"ATB\" \"\\\\stdBassIVSq \\\"ATB\\\"\" } \\hspace #3 \\center-column { \\stdBassIVSq \"SATB\" \"\\\\stdBassIVSq \\\"SATB\\\"\" } } @end lilypond " '((glyph . "accordion.stdBassSq") (reedbank (Soprano (dots (0 . 3.5))) (Alto (dots (0 . 2.5))) (Tenor (dots (0 . 1.5))) (Bass (dots (0 . 0.5)))) (register ("Soprano" (reedbanks Soprano)) ("Alto" (reedbanks Alto Soprano)) ("Tenor" (reedbanks Tenor Soprano)) ("Master" (reedbanks Bass Tenor Alto Soprano)) ("Soft Bass" (reedbanks Bass Tenor Alto)) ("Bass/Alto" (reedbanks Bass Alto Soprano)) ("Soft Bass/Alto" (reedbanks Bass Alto)) ("Soft Tenor" (reedbanks Tenor Alto)) ("S" (reedbanks Soprano)) ("A" (reedbanks Alto)) ("T" (reedbanks Tenor)) ("B" (reedbanks Bass)) ("SA" (reedbanks Alto Soprano)) ("ST" (reedbanks Tenor Soprano)) ("SB" (reedbanks Bass Soprano)) ("AT" (reedbanks Tenor Alto)) ("AB" (reedbanks Bass Alto)) ("TB" (reedbanks Bass Tenor)) ("SAT" (reedbanks Tenor Alto Soprano)) ("SAB" (reedbanks Bass Alto Soprano)) ("STB" (reedbanks Bass Tenor Soprano)) ("ATB" (reedbanks Bass Tenor Alto)) ("SATB" (reedbanks Bass Tenor Alto Soprano)) ))) (define-register-set stdBassV "@code{\\stdBassV @var{name}} generates a standard bass accordion register symbol. To make it available, @example #(use-modules (scm accreg)) @end example is required near the top of your input file. The main use is for five-reed standard bass instruments with reedbank layout @lilypond[quote] \\new PianoStaff << \\new Staff \\with { \\omit TimeSignature } { 2\\glissando } \\new Staff \\with { \\omit TimeSignature } { \\clef bass \\glissando } >> @end lilypond This tends to be the bass layout for Hohner's Morino series without convertor or MIII manual. With the exception of the rather new 7-register layout, the highest two chord reeds are usually sounded together. The Older instruments offer 5 or 3 bass registers. The Tango@tie{}VM offers an additional @samp{Solo Bass} setting that mutes the chord reeds. The symbol on the register buttons of the Tango@tie{}VM would actually match the physical five-octave layout reflected here, but it is not used in literature. Composers should likely prefer the five-reed versions of these symbols. The mismatch of a four-reed instrument with five-reed symbols is easier to resolve for the player than the other way round. Available registrations are @lilypond[quote] #(use-modules (scm accreg)) \\markuplist \\justified-lines { \\center-column { \\stdBassV \"Bass/Alto\" \"\\\\stdBassV \\\"Bass/Alto\\\"\" \\vspace #1 \\stdBassV \"Soft Bass/Alto\" \"\\\\stdBassV \\\"Soft Bass/Alto\\\"\" \\vspace #1 \\stdBassV \"Alto\" \"\\\\stdBassV \\\"Alto\\\"\" \\vspace #1 \\stdBassV \"Tenor\" \"\\\\stdBassV \\\"Tenor\\\"\" \\vspace #1 \\stdBassV \"Master\" \"\\\\stdBassV \\\"Master\\\"\" } \\hspace #3 \\center-column { \\stdBassV \"Soft Bass\" \"\\\\stdBassV \\\"Soft Bass\\\"\" \\vspace #1 \\stdBassV \"Soft Tenor\" \"\\\\stdBassV \\\"Soft Tenor\\\"\" \\vspace #1 \\stdBassV \"Soprano\" \"\\\\stdBassV \\\"Soprano\\\"\" \\vspace #1 \\stdBassV \"Sopranos\" \"\\\\stdBassV \\\"Sopranos\\\"\" \\vspace #1 \\stdBassV \"Solo Bass\" \"\\\\stdBassV \\\"Solo Bass\\\"\" } } @end lilypond " '((glyph . "accordion.stdbass") (reedbank (Sopranos (dots (-0.5 . 3.5) (0.5 . 3.5))) (Soprano (dots (0 . 3.5))) (Alto (dots (0 . 2.5))) (Tenor (dots (0 . 1.5))) (Bass (dots (0 . 0.5)))) (register ("Bass/Alto" (reedbanks Bass Alto Soprano)) ("Soft Bass/Alto" (reedbanks Bass Alto)) ("Alto" (reedbanks Alto Sopranos)) ("Tenor" (reedbanks Tenor Sopranos)) ("Master" (reedbanks Bass Tenor Alto Sopranos)) ("Soft Bass" (reedbanks Bass Tenor Alto)) ("Soft Tenor" (reedbanks Tenor Alto)) ("Soprano" (reedbanks Soprano)) ("Sopranos" (reedbanks Sopranos)) ("Solo Bass" (reedbanks Bass))))) (define-register-set stdBassVI "@code{\\stdBassVI @var{name}} generates a standard bass accordion register symbol for six reed basses. To make it available, @example #(use-modules (scm accreg)) @end example is required near the top of your input file. This is primarily the register layout for the Hohner @qq{Gola} model. The layout is @lilypond[quote] \\new PianoStaff << \\new Staff \\with { \\omit TimeSignature } { \\glissando \\glissando } \\new Staff \\with { \\omit TimeSignature } { \\clef bass \\glissando \\glissando } >> @end lilypond The registers are effectively quite similar to that of @code{\\stdBass}. An additional bass reed at alto pitch is omitted for esthetical reasons from the @samp{Master} setting, so the symbols are almost the same except for the @samp{Alto/Soprano} register with bass notes at Alto pitch and chords at Soprano pitch. Available registrations are @lilypond[quote] #(use-modules (scm accreg)) \\markup { \\center-column { \\stdBassVI \"Soprano\" \"\\\\stdBassVI \\\"Soprano\\\"\" \\vspace #1 \\stdBassVI \"Alto\" \"\\\\stdBassVI \\\"Alto\\\"\" \\vspace #1 \\stdBassVI \"Soft Tenor\" \"\\\\stdBassVI \\\"Soft Tenor\\\"\" \\vspace #1 \\stdBassVI \"Master\" \"\\\\stdBassVI \\\"Master\\\"\" } \\hspace #3 \\center-column { \\stdBassVI \"Alto/Soprano\" \"\\\\stdBassVI \\\"Alto/Soprano\\\"\" \\vspace #1 \\stdBassVI \"Bass/Alto\" \"\\\\stdBassVI \\\"Bass/Alto\\\"\" \\vspace #1 \\stdBassVI \"Soft Bass\" \"\\\\stdBassVI \\\"Soft Bass\\\"\" } } @end lilypond " '((glyph . "accordion.stdbass") (register ("Soprano" (reedbanks Soprano)) ("Alto" (reedbanks Alto)) ("Soft Tenor" (reedbanks Tenor Alto)) ("Master" (reedbanks Bass Tenor Contralto Alto Soprano)) ("Alto/Soprano" (reedbanks Contratenor Soprano)) ("Bass/Alto" (reedbanks Bass Alto Soprano)) ("Soft Bass" (reedbanks Bass Tenor Contralto))) (reedbank (Soprano (dots (0 . 3.5))) (Alto (dots (0 . 2.5))) (Contralto (dots (1 . 2))) (Contratenor (dots (-1 . 2.5))) (Tenor (dots (0 . 1.5))) (Bass (dots (0 . 0.5)))))) ;; The default FreeBass is modeled after the default Discant register ;; description. Being a default, we just provide the normal 2 reed ;; registrations. (define-register-set freeBass "@code{\\freeBass @var{name}} generates a free bass/@/converter accordion register symbol for the usual two-reed layout. To make it available, @example #(use-modules (scm accreg)) @end example is required near the top of your input file. Available registrations are @lilypond[quote] #(use-modules (scm accreg)) \\markup { \\center-column { \\freeBass \"1\" \"\\\\freeBass \\\"1\\\"\" \\vspace #1 \\freeBass \"10\" \"\\\\freeBass \\\"10\\\"\" } \\hspace #3 \\center-column { \\freeBass \"11\" \"\\\\freeBass \\\"11\\\"\" } } @end lilypond " '((glyph . "accordion.freebass") (reedbank (L (dots (0 . 0.5))) (M (dots (0 . 1.5)))) (register ("1" (reedbanks L)) ("10" (reedbanks M)) ("11" (reedbanks L M))))) ;; The default FreeBass is modeled after the default Discant register ;; description. Being a default, we just provide the normal 2 reed ;; registrations. (define-register-set freeBassIII "@code{\\freeBassIII @var{name}} generates a free bass/@/converter accordion register symbol for the usual two-reed layout. To make it available, @example #(use-modules (scm accreg)) @end example is required near the top of your input file. Available registrations are @lilypond[quote] #(use-modules (scm accreg)) \\markup { \\center-column { \\freeBassIII \"1\" \"\\\\freeBassIII \\\"1\\\"\" \\vspace #1 \\freeBassIII \"10\" \"\\\\freeBassIII \\\"10\\\"\" \\freeBassIII \"11\" \"\\\\freeBassIII \\\"11\\\"\" } \\hspace #3 \\center-column { \\freeBassIII \"100\" \"\\\\freeBassIII \\\"100\\\"\" \\freeBassIII \"101\" \"\\\\freeBassIII \\\"101\\\"\" \\freeBassIII \"110\" \"\\\\freeBassIII \\\"110\\\"\" } \\hspace #3 \\center-column { \\freeBassIII \"111\" \"\\\\freeBassIII \\\"111\\\"\" } } @end lilypond " '((glyph . "accordion.bayanbass") (reedbank (L (dots (0 . 0.5))) (M (dots (0 . 1.5))) (H (dots (0 . 2.5))) ) (register ("1" (reedbanks L)) ("10" (reedbanks M)) ("11" (reedbanks L M)) ("100" (reedbanks H)) ("101" (reedbanks H L)) ("110" (reedbanks H M)) ("111" (reedbanks H L M)) )))