sc/instruments [ Modules ]
NAME
instrument File: instruments.lsp Class Hierarchy: none (no classes defined) Version: 1.1.0 Project: slippery chicken (algorithmic composition) Purpose: Definition of various standard instruments and other data/functions useful to slippery-chicken users. Author: Michael Edwards: m@michael-edwards.org Creation date: 30th December 2010 $$ Last modified: 20:10:53 Mon Jul 15 2024 CEST SVN ID: $Id$
instruments/+slippery-chicken-standard-instrument-palette+ [ Global Parameters ]
[ Top ] [ instruments ] [ Global Parameters ]
DESCRIPTION
A palette of standard instruments (by no means exhaustive...) for use directly in projects or for combining with user palettes e.g. (combine +slippery-chicken-standard-instrument-palette+ (make-instrument-palette 'esoteric-stuff '((toy-piano (:staff-name "toy piano" ....
SYNOPSIS
(defparameter +slippery-chicken-standard-instrument-palette+ (make-instrument-palette 'slippery-chicken-standard-instrument-palette ;; SAR Fri Jan 20 11:43:32 GMT 2012: Re-ordering these to Adler's "standard" ;; score order for easier look-up '((piccolo (:staff-name "piccolo" :staff-short-name "picc" :lowest-written d4 :highest-written c7 :transposition-semitones 12 :missing-notes nil :largest-fast-leap 19 :starting-clef treble :chords nil :microtones t :midi-program 73)) (flute (:staff-name "flute" :staff-short-name "fl" :lowest-written c4 :highest-written d7 :missing-notes (cqs4 dqf4) :largest-fast-leap 19 :starting-clef treble :chords nil :microtones t :midi-program 74)) (alto-flute (:staff-name "alto flute" :staff-short-name "alt fl" :lowest-written c4 :highest-written c7 :transposition-semitones -5 :missing-notes (cqs4 dqf4) :largest-fast-leap 17 :starting-clef treble :chords nil :microtones t :midi-program 74)) ;; SAR Fri Jan 20 11:46:45 GMT 2012: Modified bass flute range to that ;; stated by Adler. (bass-flute (:staff-name "bass flute" :staff-short-name "bass fl" :lowest-written c4 :highest-written c7 :transposition-semitones -12 :missing-notes (cqs4 dqf4) :largest-fast-leap 15 :clefs-in-c (treble bass) :starting-clef treble :chords nil :microtones t :midi-program 74)) ;; MDE Wed Oct 20 11:48:45 2021, Heidhausen (sopranino-recorder (:lowest-written f4 :highest-written g6 :chords nil :staff-name "sopranino recorder" :staff-short-name "sop.no rec." :midi-program 75 :microtones nil :largest-fast-leap 12 :transposition-semitones 12 :starting-clef treble)) (soprano-recorder (:lowest-written c4 :highest-written d6 :chords nil :staff-name "soprano recorder" :staff-short-name "sop. rec." :midi-program 75 :microtones nil :largest-fast-leap 12 :transposition-semitones 12 :starting-clef treble)) (alto-recorder (:lowest-written f4 :highest-written g6 :chords nil :staff-name "alto recorder" :staff-short-name "alt. rec." :midi-program 75 :microtones nil :largest-fast-leap 12 :starting-clef treble)) (tenor-recorder (:lowest-written c4 :highest-written d6 :chords nil :staff-name "tenor recorder" :staff-short-name "ten. rec." :midi-program 75 :microtones nil :largest-fast-leap 12 :starting-clef treble)) ;; this is a special instrument that is not fully chromatic and has a ;; tuning of a4 = 466 Hz. I wrote a piece for 41 of these for Ulrike ;; Volkhardt and colleagues in 2021/2 (consort-tenor-recorder (:lowest-written c4 :highest-written a5 :chords nil :staff-name "consort tenor recorder" :staff-short-name "cons. ten. rec." :midi-program 75 :microtones nil :largest-fast-leap 12 :missing-notes (cs4 ds4) :starting-clef treble)) (bass-recorder (:lowest-written f2 :highest-written f4 :chords nil :staff-name "bass recorder" :staff-short-name "bs. rec." :midi-program 75 :microtones nil :largest-fast-leap 12 :transposition-semitones 12 :starting-clef bass)) ;; SAR Fri Jan 20 12:01:37 GMT 2012: Added oboe. Conservative range taken ;; from the Adler (oboe (:staff-name "oboe" :staff-short-name "ob" :lowest-written bf3 :highest-written a6 :largest-fast-leap 12 :starting-clef treble :chords nil :microtones t :missing-notes (bqf3 bqs3 cqs4 dqf4) :midi-program 69)) ;; MDE Tue Feb 20 19:43:50 2018 (cor-anglais (:staff-name "cor anglais" :staff-short-name "c.a." :lowest-written bf3 :highest-written a6 :transposition-semitones -7 :largest-fast-leap 12 :starting-clef treble :chords nil :microtones t :missing-notes (bqf3 bqs3 cqs4 dqf4) :midi-program 70)) (oboe-d-amore (:staff-name "oboe d'amore" :staff-short-name "ob d'am" :lowest-written bf3 :highest-written a6 :transposition-semitones -3 :largest-fast-leap 12 :starting-clef treble :chords nil :microtones t :missing-notes (bqf3 bqs3 cqs4 dqf4) :midi-program 70)) (e-flat-clarinet (:staff-name "E-flat clarinet" :staff-short-name "E-flat cl" :lowest-written e3 :highest-written a6 :transposition-semitones 3 :missing-notes (aqs4 bqf4 bqs4 cqs5 dqf5 gqf3 fqs3 fqf3) :largest-fast-leap 15 :starting-clef treble :chords nil :microtones t :midi-program 72)) (b-flat-clarinet (:staff-name "B-flat clarinet" :staff-short-name "B-flat cl" :lowest-written e3 :highest-written a6 :transposition-semitones -2 :missing-notes (aqs4 bqf4 bqs4 cqs5 dqf5 gqf3 fqs3 fqf3) :largest-fast-leap 15 :starting-clef treble :chords nil :microtones t :midi-program 72)) (a-clarinet (:staff-name "A clarinet" :staff-short-name "A cl" :lowest-written e3 :highest-written a6 :transposition-semitones -3 :missing-notes (aqs4 bqf4 bqs4 cqs5 dqf5 gqf3 fqs3 fqf3) :largest-fast-leap 15 :starting-clef treble :chords nil :microtones t :midi-program 72)) (bass-clarinet (:staff-name "bass clarinet" :staff-short-name "bass cl" :lowest-written c3 :highest-written g6 :transposition-semitones -14 :missing-notes (aqs4 bqf4 bqs4 cqs5 dqf5 gqf3 fqs3 fqf3 eqf3 dqs3 dqf3 cqs3) :largest-fast-leap 13 :prefers-notes low :clefs (treble) :clefs-in-c (treble bass) :starting-clef treble :chords nil :microtones t :midi-program 72)) (sopranino-sax (:staff-name "sopranino saxophone" :staff-short-name "spino sax" :lowest-written bf3 :highest-written fs6 :transposition-semitones 3 :missing-notes (gqs4 gqs5) :largest-fast-leap 15 :starting-clef treble :chords nil :microtones t :midi-program 65)) (soprano-sax (:staff-name "soprano saxophone" :staff-short-name "sop sax" :lowest-written bf3 :highest-written fs6 :transposition-semitones -2 :missing-notes (gqs4 gqs5) :largest-fast-leap 15 :starting-clef treble :chords nil :microtones t :midi-program 65)) (alto-sax (:staff-name "alto saxophone" :staff-short-name "alt sax" ;; altissimo extra....by hand... :lowest-written bf3 :highest-written fs6 :transposition-semitones -9 :missing-notes (gqs4 gqs5) :largest-fast-leap 15 :starting-clef treble :chords nil :microtones t :midi-program 66)) (tenor-sax (:staff-name "tenor sax" :staff-short-name "ten sax" :lowest-written bf3 :highest-written fs6 :transposition-semitones -14 :missing-notes (gqs4 gqs5) :largest-fast-leap 13 :starting-clef treble :clefs-in-c (treble bass) :chords nil :microtones t :midi-program 67)) (baritone-sax (:staff-name "baritone sax" :staff-short-name "bar sax" :lowest-written bf3 :highest-written fs6 :transposition-semitones -21 :missing-notes (gqs4 gqs5) :largest-fast-leap 11 :clefs-in-c (treble bass) :starting-clef treble :chords nil :microtones t :midi-program 68)) (bassoon (:staff-name "bassoon" :staff-short-name "bsn" ;; of course it can go higher but best not to algorithmically select ;; these :lowest-written bf1 :highest-written c5 ;; Wolfgang Ruediger says all 1/4 tones are OK above low E :missing-notes (bqf1 bqs1 cqs2 dqf2 dqs2 eqf2) :largest-fast-leap 13 :clefs (bass tenor) :starting-clef bass :chords nil :microtones t :midi-program 71)) (contra-bassoon (:staff-name "contrabassoon" :staff-short-name "cbsn" ;; some pieces go up to c5 but let's not :lowest-written bf1 :highest-written a4 :transposition-semitones -12 ;; Wolfgang Ruediger says all 1/4 tones are OK above low E for the ;; bassoon, so let's assume for now that these work here too. :missing-notes (bqf1 bqs1 cqs2 dqf2 dqs2 eqf2) :largest-fast-leap 13 :clefs (bass tenor) :starting-clef bass :chords nil :microtones t :midi-program 71)) (french-horn (:staff-name "french horn" :staff-short-name "hn" :lowest-written f2 :highest-written c6 :transposition-semitones -7 :largest-fast-leap 9 ;; :clefs (treble bass) :starting-clef treble :clefs (treble) :chords nil :microtones t :midi-program 61)) ;; MDE Fri Mar 5 08:42:59 2021, Heidhausen -- for typical orchestral ;; scorings of 1+3 (high), 2+4 (low) (french-horn-high (:staff-name "french horn" :staff-short-name "hn" :lowest-written g3 :highest-written c6 :transposition-semitones -7 :largest-fast-leap 9 :clefs (treble) :chords nil :microtones t :midi-program 61)) (french-horn-low (:staff-name "french horn" :staff-short-name "hn" :lowest-written f2 :highest-written g5 :transposition-semitones -7 :largest-fast-leap 9 :clefs (treble) :chords nil :microtones t :midi-program 61)) (c-trumpet (:staff-name "trumpet in c" :staff-short-name "c tpt" :lowest-written fs3 :highest-written c6 :largest-fast-leap 9 :clefs (treble) :starting-clef treble :chords nil :microtones t :midi-program 57)) ;; SAR Fri Jan 20 12:09:41 GMT 2012: Added b-flat-trumpet from Adler ;; MDE Mon Feb 20 20:02:55 2012 -- modified to keep in line with clarinet (b-flat-trumpet (:staff-name "B-flat trumpet" :staff-short-name "b-flat tpt" ;; the -flat should be converted in CMN and LilyPond to the flat sign :lowest-written fs3 :highest-written d6 :transposition-semitones -2 :largest-fast-leap 9 :starting-clef treble :chords nil :midi-program 57)) ;; SAR Fri Jan 20 12:17:24 GMT 2012: Added tenor trombone from Adler (tenor-trombone (:staff-name "trombone" :staff-short-name "tbn" :lowest-written e2 :highest-written bf4 :largest-fast-leap 7 :microtones t :clefs (bass tenor) :starting-clef bass :chords nil :midi-program 58)) ;; MDE Thu Nov 8 19:32:19 2018 -- (bass-trombone (:staff-name "bass trombone" :staff-short-name "btbn" ;; these are of course not true for every instrument/player :lowest-written e1 :highest-written g4 :largest-fast-leap 7 :microtones t :clefs (bass tenor) :starting-clef bass :chords nil :midi-program 58)) ;;; SAR Fri Jul 13 12:35:35 BST 2012 (tuba (:staff-name "tuba" :staff-short-name "tba" :lowest-written d1 :highest-written g4 :largest-fast-leap 5 :clefs (bass) :starting-clef bass :chords nil :midi-program 59)) (marimba (:staff-name "marimba" :staff-short-name "mba" :lowest-written c3 :highest-written c7 :starting-clef treble :clefs (treble) ; (treble bass) :chords t :chord-function mallet-chord-fun :microtones nil :midi-program 13)) (vibraphone (:staff-name "vibraphone" :staff-short-name "vib" :lowest-written f3 :highest-written f6 :starting-clef treble :chords t :chord-function mallet-chord-fun :microtones nil :midi-program 12)) (accordion (:staff-name "accordion" :staff-short-name "acc" :lowest-written e1 :highest-written bf7 :clefs (treble bass double-treble double-bass) :starting-clef treble ;; clearly a better function should be provided at some point :chords t :chord-function piano-chord-fun :microtones nil :midi-program 22)) ;; MDE Mon Mar 24 20:21:08 2014 -- following three added from data given ;; by Zach Howell (thanks). (glockenspiel (:staff-name "glockenspiel" :staff-short-name "glk" :lowest-written f3 :highest-written c6 :transposition-semitones +24 :starting-clef treble :chords nil :microtones nil :missing-notes nil :midi-program 10)) (xylophone (:staff-name "xylophone" :staff-short-name "xyl" :lowest-written f3 :highest-written c7 :transposition-semitones +12 :starting-clef treble :chords nil :microtones nil :missing-notes nil :midi-program 14)) (celesta (:staff-name "celesta" :staff-short-name "cel" :lowest-written c3 :highest-written c7 :transposition-semitones +12 :starting-clef treble :chords t :microtones nil :missing-notes nil :midi-program 9)) (crotales (:staff-name "crotales" :staff-short-name "crt" :lowest-written c4 :highest-written c6 :starting-clef treble :transposition-semitones 24 :chords t :chord-function mallet-chord-fun ;; no crotales in GM set so use glockenspiel :microtones nil :midi-program 10)) (piano (:staff-name "piano" :staff-short-name "pno" :lowest-written a0 :highest-written c8 :largest-fast-leap 9 :clefs (treble bass double-treble double-bass) :starting-clef treble :chords t :chord-function piano-chord-fun :microtones nil :midi-program 1)) ;; We generally treat the piano as two instruments (LH, RH), generating ;; lines separately. So this is the same as the piano instrument but has ;; no staff-name and starts with bass clef. Use set-limits to change the ;; range of the two hands, as they're both set to be full piano range ;; here. (piano-lh (:lowest-written a0 :highest-written c8 ;; MDE Tue Aug 21 17:47:07 2012 -- to avoid the NIL ins name in CMN :staff-name "" :staff-short-name "" :largest-fast-leap 9 :chords t :chord-function piano-chord-fun :clefs (treble bass double-treble double-bass) :starting-clef bass :microtones nil :midi-program 1)) ;; MDE Wed Sep 12 12:51:00 2018 -- the 5 octave instrument...range varies ;; according to model of course (harpsichord (:staff-name "harpsichord" :staff-short-name "hpd" :lowest-written f1 :highest-written f6 :largest-fast-leap 9 :clefs (treble bass) :starting-clef treble :chords t :chord-function piano-chord-fun :microtones nil :midi-program 7)) (harp (:staff-name "harp" :staff-short-name "hp" :lowest-written b0 :highest-written gs7 :largest-fast-leap 12 :clefs (treble bass) :starting-clef treble :chords t :chord-function piano-chord-fun :microtones nil :harmonics t :open-strings nil :nodes ((12 2)) :midi-program 47)) ;; MDE Fri Jul 24 20:18:16 2015 -- range typical for modern organ with ;; 61-key manuals and 32-key pedalboard (organ (:lowest-written c2 :highest-written c7 :staff-name "organ" :staff-short-name "org" :largest-fast-leap 9 :chords t :chord-function piano-chord-fun :clefs (treble bass) :starting-clef treble :microtones nil :midi-program 20)) (organ-pedals (:lowest-written c2 :highest-written g4 :staff-name "organ pedals" :staff-short-name "ped" :largest-fast-leap 6 :chords nil :clefs (bass) :starting-clef bass :microtones nil :midi-program 20)) (percussion (:staff-name "percussion" :staff-short-name "perc" :staff-lines 5 :lowest-written d4 :highest-written g5 :starting-clef percussion :midi-program 1)) (tambourine (:staff-name "tambourine" :staff-short-name "tmb" :staff-lines 1 ;; MDE Fri Nov 13 16:05:46 2015 -- put on b4 not c4 ;; :lowest-written c4 :highest-written c4 :lowest-written b4 :highest-written b4 :starting-clef percussion :midi-program 1)) (guitar (:staff-name "guitar" :staff-short-name "gtr" :lowest-written e3 :highest-written b6 :transposition-semitones -12 :largest-fast-leap 31 :starting-clef treble :chords t :chord-function guitar-chord-selection-fun :microtones nil :harmonics t :open-strings (e5 b4 g4 d4 a3 e3) ; written! :open-string-marks (c1 c2 c3 c4 c5 c6) :midi-program 25)) ;; MDE Wed Oct 9 12:21:22 2013 (mandolin (:staff-name "mandolin" :staff-short-name "mln" :lowest-written g3 :highest-written c7 :largest-fast-leap 25 :starting-clef treble ;; mandolin has same tuning as the violin :open-strings (e5 a4 d4 g3) :open-string-marks (c1 c2 c3 c4) ; assuming guitar numbering strategy :chords t :chord-function violin-chord-selection-fun ;; there is no GM programme for mandolin so use either steel string ;; guitar (26) or banjo 106 perhaps :microtones nil :midi-program 26)) (soprano ; voice (:staff-name "soprano" :staff-short-name "sop" :lowest-written c4 :highest-written c6 :starting-clef treble :midi-program 54)) (mezzo ; voice (:staff-name "mezzo-soprano" :staff-short-name "mez" :lowest-written a3 :highest-written a5 :starting-clef treble :midi-program 54)) (alto ; voice (:staff-name "alto" :staff-short-name "alt" :lowest-written f3 :highest-written f5 :starting-clef treble :midi-program 54)) (countertenor ; voice (:staff-name "countertenor" :staff-short-name "ctr" :lowest-written e3 :highest-written e5 :starting-clef treble-8vb :midi-program 54)) (tenor ; voice (:staff-name "tenor" :staff-short-name "ten" :lowest-written c3 :highest-written c5 :starting-clef treble-8vb :midi-program 54)) (baritone ; voice (:staff-name "baritone" :staff-short-name "bar" :lowest-written a2 :highest-written a4 :starting-clef bass :midi-program 54)) (bass ; voice (:staff-name "bass" :staff-short-name "bas" :lowest-written e2 :highest-written e4 :starting-clef bass :midi-program 54)) (violin (:staff-name "violin" :staff-short-name "vln" :lowest-written g3 :highest-written c7 :largest-fast-leap 13 :starting-clef treble :chords t :chord-function violin-chord-selection-fun :microtones t :harmonics t :open-strings (e5 a4 d4 g3) :open-string-marks (i ii iii iv) :midi-program 41)) (viola (:staff-name "viola" :staff-short-name "vla" :lowest-written c3 :highest-written f6 :largest-fast-leap 13 :clefs (alto treble) :starting-clef alto :chords t :chord-function viola-chord-selection-fun :microtones t :harmonics t :open-strings (a4 d4 g3 c3) :open-string-marks (i ii iii iv) :midi-program 42)) (viola-d-amore (:staff-name "viola d'amore" :staff-short-name "vla d'am" :lowest-written a2 :highest-written f7 :largest-fast-leap 13 :clefs (alto treble) :starting-clef alto :chords t :chord-function nil :microtones t :harmonics t :midi-program 41)) (cello (:staff-name "cello" :staff-short-name "vc" ;; of course it can go higher but best not to algorithmically select ;; these :lowest-written c2 :highest-written a5 :largest-fast-leap 12 :clefs (bass tenor treble) :starting-clef bass :chords t :chord-function cello-chord-selection-fun :microtones t :harmonics t :open-strings (a3 d3 g2 c2) :open-string-marks (i ii iii iv) :midi-program 43)) (double-bass (:staff-name "double bass" :staff-short-name "db" :lowest-written e2 :highest-written g5 :transposition-semitones -12 :prefers-notes low :largest-fast-leap 8 ; 10 :clefs (bass tenor treble) :starting-clef bass :chords nil :microtones t :harmonics t :open-strings (g3 d3 a2 e2) ; written! :open-string-marks (i ii iii iv) :midi-program 44)) (bass-guitar (:staff-name "bass guitar" :staff-short-name "b. gtr" :lowest-written e2 :highest-written g4 :transposition-semitones -12 :prefers-notes low :largest-fast-leap 10 :clefs (bass treble) :starting-clef bass :chords t :microtones nil :harmonics t :open-strings (g3 d3 a2 e2) ; written! :open-string-marks (c1 c2 c3 c4) :midi-program 33)) ;; SAR Thu Apr 12 18:19:21 BST 2012: Added "computer" part for "silent" ;; parts in case the user would like to create rhythmically independent ;; computer parts. ;; MDE Jul 2012 -- changed to reflect more clefs (and removed percussion) (computer (:staff-name "computer" :staff-short-name "comp" :lowest-sounding C-1 :highest-sounding bf8 :clefs (treble bass double-treble double-bass) ;; MDE Thu Oct 8 17:13:35 2020, Heidhausen -- FX 4 (atmosphere) :midi-program 100 ;; MDE Sat Aug 5 18:42:03 2017 -- :microtones t :starting-clef treble)))))
instruments/cello-chord-selection-fun [ Functions ]
[ Top ] [ instruments ] [ Functions ]
DESCRIPTION
Create a double-stop chord object using the core string-chord-selection-fun and a value of 'G2 for the open III string.
SYNOPSIS
(let ((vc-III (make-pitch 'g2))) (defun cello-chord-selection-fun (curve-num index pitch-list pitch-seq instrument set)
instruments/chord-fun-aux [ Functions ]
[ Top ] [ instruments ] [ Functions ]
DESCRIPTION
An auxiliary function that allows users to create moderately tailored chord functions by setting values for the number of notes in the current set to skip, the number of desired notes in the resulting chord, and the maximum span of the resulting chord in semitones. This function must be called within a call to the defun macro to create a new chord function, as demonstrated below.
ARGUMENTS
The first six arguments -- curve-num, index, pitch-list, pitch-seq, instrument, and set -- are inherited and not required to be directly accessed by the user. - skip: An integer that is the step by which the function skips through the subset of currently available pitches. A value of 2, for example, will instruct the method to build chords from every second pitch in that subset. - An integer that is the number of pitches that should be in each resulting chord. If the list of pitches available to an instrument is too short to make a chord with x notes, a chord with fewer pitches may be made instead. - An integer that is the largest interval in semitones allowed between the bottom and top notes of the chord. If a chord made with the specified number of notes surpasses this span, a chord with fewer pitches may be made instead.
EXAMPLE
(defun new-chord-function (curve-num index pitch-list pitch-seq instrument set) (chord-fun-aux curve-num index pitch-list pitch-seq instrument set 4 3 14)) => NEW-CHORD-FUNCTION
SYNOPSIS
(defun chord-fun-aux (curve-num index pitch-list pitch-seq instrument set skip num-notes max-span)
instruments/chord-fun1 [ Functions ]
[ Top ] [ instruments ] [ Functions ]
DESCRIPTION
Generate three-note chords where possible, using every second pitch from the list of pitches currently available to the given instrument from the current set, and ensuring that none of the chords it makes span more than an octave. In all functions that take this format curve-num is the
SYNOPSIS
(defun chord-fun1 (curve-num index pitch-list pitch-seq instrument set)
instruments/chord-fun2 [ Functions ]
[ Top ] [ instruments ] [ Functions ]
DESCRIPTION
Generates 4-note chords where possible, using every third pitch from the list of pitches currently available to the given instrument from the current set, with (almost) no limit on the total span of the chord.
SYNOPSIS
(defun chord-fun2 (curve-num index pitch-list pitch-seq instrument set)
instruments/get-standard-ins [ Functions ]
[ Top ] [ instruments ] [ Functions ]
DATE
August 29th 2018, Heidhausen
DESCRIPTION
Convenience function for get-data from the standard instrument palette
ARGUMENTS
- the ID of the instrument (symbol)
OPTIONAL ARGUMENTS
- either NIL (no error/warning) or a function (object) to call if the instrument isn't found. Default = #'error
RETURN VALUE
the instrument object
SYNOPSIS
(defun get-standard-ins (ins &optional (on-fail #'error))
instruments/guitar-chord-selection-fun [ Functions ]
[ Top ] [ instruments ] [ Functions ]
DESCRIPTION
Create chord objects with differing numbers of pitches, drawing the pitches from set-palette object subsets with the ID 'guitar. This function was written for the composition "Cheat Sheet", in which the pitch sets were defined explicitly such that all of the pitches available to the guitar at any moment were playable as a guitar chord. As such, this function always assumes that the pitch-list it is drawing from contains pitches that are already playable as a guitar chord. It also adds the fingering as mark above each chord when outputting to CMN, which may or may not be desirable.
SYNOPSIS
(defun guitar-chord-selection-fun (curve-num index pitch-list pitch-seq instrument set)
instruments/piano-chord-fun [ Functions ]
[ Top ] [ instruments ] [ Functions ]
DESCRIPTION
Generate four-note chords, where possible, from consecutive notes in the current set, with the number enclosed in parentheses in the pitch-seq being the top note of that chord, where possible.
SYNOPSIS
(defun piano-chord-fun (curve-num index pitch-list pitch-seq instrument set)
instruments/piano-chord-fun3 [ Functions ]
[ Top ] [ instruments ] [ Functions ]
DATE
August 2nd 2019, Heidhausen
DESCRIPTION
Almost exactly the same as piano-chord-fun but generally get just three notes rather than four. If we want to force a maximum of three notes, it will need to be done with subseq or similar. I find this 'usually three notes' preferable though as some four-note chords are returned, for variety.
SYNOPSIS
(defun piano-chord-fun3 (curve-num index pitch-list pitch-seq instrument set)
instruments/play-all [ Functions ]
[ Top ] [ instruments ] [ Functions ]
DESCRIPTION
A very simple chord function to simply play all the notes in the set, no matter which instrument should play them. Useful perhaps for computer voices. In any case there's no checking of instrument range as we ignore the pitch-list here.
SYNOPSIS
(defun play-all (curve-num index pitch-list pitch-seq instrument set)
instruments/salzedo-p [ Functions ]
[ Top ] [ instruments ] [ Functions ]
AUTHOR
Ruben Philipp <me@rubenphilipp.com> CREATED 2023-11-30
DESCRIPTION
Determine whether a given input is a valid salzedo-list, which is a 7-number list reflecting the pedal positions of a concert harp according to the Salzedo-notation. The order of the pedals in the list is (D C B E F G A), where -1 indicates lowering the respective note a half step, 0 means no alteration, 1 means raising the note a half. Thus, '(0 1 0 0 0 -1 0) implies the following alteration: D C# B E F Gb A, or (in a more common order: C# D E F Gb A B.
ARGUMENTS
The object to be tested.
RETURN VALUE
T if the tested object is a salzedo-list, otherwise NIL.
EXAMPLE
(salzedo-p '(-1 1 0 1 0 1 1)) => T
SYNOPSIS
(defun salzedo-p (object)
instruments/salzedo-to-symbol [ Functions ]
[ Top ] [ instruments ] [ Functions ]
AUTHOR
Ruben Philipp <me@rubenphilipp.com> CREATED 2023-11-30
DESCRIPTION
This function converts a salzedo harp pedaling list (cf. harp-salzedo-to-tl-set) into a symbol which could be further used e.g. as an id for subsets or sets. During the processing, the values in the salzedo-list will be replaced with the following characters: -1 => F (lower a semitone/flat) 0 => N (natural) 1 => S (raise a semitone/sharp)
ARGUMENTS
The salzedo list (e.g. '(0 -1 1 1 0 -1 1)) to be parsed into a symbol.
OPTIONAL ARGUMENTS
keyword-arguments: - :prefix. The prefix to be added to the generated symbol. Default = 'harp-. - :suffix. The suffix to be added to the generated symbol. Default = NIL.
RETURN VALUE
A symbol generated from the given salzedo-list.
EXAMPLE
(salzedo-to-symbol '(-1 1 0 1 1 -1 0) :prefix 'harp-) ;; => 'HARP-FSNSSFN
SYNOPSIS
(defun salzedo-to-symbol (salzedo &key
(prefix 'harp-)
suffix)
instruments/set-standard-range [ Functions ]
[ Top ] [ instruments ] [ Functions ]
DATE
September 24th 2018, Heidhausen
DESCRIPTION
Set the lowest and highest pitches of an instrument in the standard instrument palette. Use this function to correctly set the highest sounding and written slots of transposing and non-transposing instruments alike.
ARGUMENTS
- the instrument id (symbol) - the lowest pitch (symbol or pitch object). This can also be NIL, whereupon no change will be made to the current slot's value. - the highest pitch (symbol or pitch object). Can also be NIL.
OPTIONAL ARGUMENTS
- T or NIL to indicated whether the pitches given are to be interpreted as written or sounding pitches. In either case, both written and sounding pitches will be set for the instrument. Default = NIL = written.
RETURN VALUE
The instrument object for which the changes were made.
SYNOPSIS
(defun set-standard-range (ins low high &optional sounding)
instruments/string-chord-selection-fun [ Functions ]
[ Top ] [ instruments ] [ Functions ]
DESCRIPTION
This is the core function for creating instances of double-stop chords for strings, ensuring that the highest note of the double-stop is not lower than the open III string. The pitch of the open III string is passed as an argument in the chord-selection functions for the individual stringed instruments. This function uses the best-string-diad function. If no double-stops instances can be created using best-string-diad, two-note chords will be created using the default-chord-function. If neither of these are possible, a chord of a single pitch will be returned instead.
SYNOPSIS
(defun string-chord-selection-fun (curve-num index pitch-list pitch-seq instrument set string-III)
instruments/symbol-to-salzedo [ Functions ]
[ Top ] [ instruments ] [ Functions ]
AUTHOR
Ruben Philipp <me@rubenphilipp.com> CREATED 2023-11-30
DESCRIPTION
This method converts a salzedo symbol (e.g. created via salzedo-to-symbol) back to a salzedo-list (cf. ibid). It removes the prefix and suffix (if given) from the symbol and translates each of the seven (!) characters of the remaining symbol as follows: F => -1 (lower a semitone/flat) N => 0 (natural) S => 1 (raise a semitone/sharp)
ARGUMENTS
A symbol.
OPTIONAL ARGUMENTS
keyword-arguments: - :prefix. A symbol which will be removed from the start of the input symbol and be ignored while processing. Default = 'harp-. - :suffix. A symbol which will be removed from the end of the input symbol and be ignored while processing. Default = NIL.
RETURN VALUE
A salzedo-list (cf. salzedo-to-symbol).
EXAMPLE
(symbol-to-salzedo 'HARP-FSNSSFN-ONE :prefix 'harp- :suffix '-ONE)
;; => (-1 1 0 1 1 -1 0)
|#
(defun symbol-to-salzedo (symbol &key
(prefix 'harp-)
suffix)
instruments/viola-chord-selection-fun [ Functions ]
[ Top ] [ instruments ] [ Functions ]
DESCRIPTION
Create a double-stop chord object using the core string-chord-selection-fun and a value of 'G3 for the open III string.
SYNOPSIS
(let ((vla-III (make-pitch 'g3))) (defun viola-chord-selection-fun (curve-num index pitch-list pitch-seq instrument set)
instruments/violin-chord-selection-fun [ Functions ]
[ Top ] [ instruments ] [ Functions ]
DESCRIPTION
Create a double-stop chord object using the core string-chord-selection-fun and a value of 'D4 for the open III string.
SYNOPSIS
(let ((vln-III (make-pitch 'd4))) (defun violin-chord-selection-fun (curve-num index pitch-list pitch-seq instrument set)