Jump to content

jesele

Members
 View Profile  See their activity

  • Posts

    14

  • Joined

  • Last visited

 Content Type 

Posts posted by jesele

    Get-Time-Signature to Length-Span

    in Function Examples

    Posted

    Hi Julio.

    Maybe something like this will work.

     

    Jesper

     

    (setf tst '((2 4 2) (4 4 1) (2 4 3) (4 4 1) (2 4 3) (4 4 1) (2 4 3) (4 4 1) (2 4 1)))

    (defun foo (lst)
      (flatten (loop for x in lst collect (make-list (caddr x) :initial-element (/ (car x) (cadr x)))))
      )

    (foo tst)

     

    ->(1/2 1/2 1 1/2 1/2 1/2 1 1/2 1/2 1/2 1 1/2 1/2 1/2 1 1/2)

    Tension level according to Hindemith Chord Classification

    in Support & Troubleshooting

    Posted

    Was missing the last chord:

     

    ((q b3eb4gs4bb4cs5fs5 mf d3c4e4g4b4d5 g2a3cs4e4fs4b4 e. bb2eb3gs3c4d4g4 s eb3g3c4d4f4bb4 tie) (h eb3g3c4d4f4bb4 mf q a2g3c4d4fs4b4 d3g3c4e4fs4a4) (q g3b3e4fs4a4d5 mf bb2gs3c4eb4g4bb4 eb2f3a3c4d4g4 e. gs2cs3fs3bb3c4eb4 s b2eb3gs3bb3cs4fs4 tie) (h b2eb3gs3bb3cs4fs4 mf q f2eb3gs3bb3d4g4 e. bb2eb3gs3c4d4f4 s eb3g3c4d4f4bb4 tie) (h eb3g3c4d4f4bb4 mf q a2g3c4d4fs4b4 e. d3g3c4e4fs4a4 s g3b3e4fs4a4d5 tie) (h g3b3e4fs4a4d5 mf q cs3b3e4fs4bb4eb5 e. fs3b3e4gs4bb4cs5 s b3eb4gs4bb4cs5fs5 tie) (h b3eb4gs4bb4cs5fs5 mf q f3eb4gs4bb4d5g5 e. bb3eb4gs4c5d5f5 s eb4g4c5d5f5bb5 tie) (h eb4g4c5d5f5bb5 mf e. cs4e4bb4b4eb5fs5 s fs3e4gs4b4eb5fs5 -q))

     

    This is what the optional print argument shows:

     

    major:Bmaj13                      Root: B4  - Topnote: FS5 - Tension: 3  - Test-type: 4 - First try.
    unaltered-dominant:D13sus4        Root: D4  - Topnote: D5  - Tension: 4  - Test-type: 4 - First try.
    major:Gmaj13#11                   Root: G4  - Topnote: B4  - Tension: 13 - Test-type: 4 - First try.
    unaltered-dominant:Bb13add11      Root: BB4 - Topnote: G4  - Tension: 5  - Test-type: 4 - First try.
    major:Ebmaj13                     Root: EB4 - Topnote: BB4 - Tension: 3  - Test-type: 4 - First try.
    dorian-minor:Am13                 Root: A4  - Topnote: B4  - Tension: 9  - Test-type: 4 - First try.
    unaltered-dominant:D13add11       Root: D4  - Topnote: A4  - Tension: 5  - Test-type: 4 - First try.
    major:Gmaj13                      Root: G4  - Topnote: D5  - Tension: 3  - Test-type: 4 - First try.
    unaltered-dominant:Bb13sus4       Root: BB4 - Topnote: BB4 - Tension: 4  - Test-type: 4 - First try.
    major:Ebmaj13#11                  Root: EB4 - Topnote: G4  - Tension: 13 - Test-type: 4 - First try.
    unaltered-dominant:Gs13add11      Root: GS4 - Topnote: EB4 - Tension: 5  - Test-type: 4 - First try.
    major:Bmaj13                      Root: B4  - Topnote: FS4 - Tension: 3  - Test-type: 4 - First try.
    dorian-minor:Fm13                 Root: F4  - Topnote: G4  - Tension: 9  - Test-type: 4 - First try.
    unaltered-dominant:Bb13add11      Root: BB4 - Topnote: F4  - Tension: 5  - Test-type: 4 - First try.
    major:Ebmaj13                     Root: EB4 - Topnote: BB4 - Tension: 3  - Test-type: 4 - First try.
    dorian-minor:Am13                 Root: A4  - Topnote: B4  - Tension: 9  - Test-type: 4 - First try.
    unaltered-dominant:D13add11       Root: D4  - Topnote: A4  - Tension: 5  - Test-type: 4 - First try.
    major:Gmaj13                      Root: G4  - Topnote: D5  - Tension: 3  - Test-type: 4 - First try.
    dorian-minor:Csm13                Root: CS4 - Topnote: EB5 - Tension: 9  - Test-type: 4 - First try.
    unaltered-dominant:Fs13add11      Root: FS4 - Topnote: CS5 - Tension: 5  - Test-type: 4 - First try.
    major:Bmaj13                      Root: B4  - Topnote: FS5 - Tension: 3  - Test-type: 4 - First try.
    dorian-minor:Fm13                 Root: F4  - Topnote: G5  - Tension: 9  - Test-type: 4 - First try.
    unaltered-dominant:Bb13add11      Root: BB4 - Topnote: F5  - Tension: 5  - Test-type: 4 - First try.
    major:Ebmaj13                     Root: EB4 - Topnote: BB5 - Tension: 3  - Test-type: 4 - First try.
    dorian-minor:Csm13                Root: CS4 - Topnote: FS5 - Tension: 9  - Test-type: 4 - First try.
    unaltered-dominant:Fs13sus4       Root: FS4 - Topnote: FS5 - Tension: 4  - Test-type: 4 - First try.

    Tension level according to Hindemith Chord Classification

    in Support & Troubleshooting

    Posted

    Another short example:

     

    ;; Giant steps
    (setf gs-mel (length-diminution 2 '(h fs5 d5 b4 q. g4 9/8 bb4 h b4 a4 d5 bb4 g4 q. eb4 9/8 fs4 h g4 q. f4 9/8 bb4 h b4 q. a4 9/8 d5
                     h ds5 q. cs5 9/8 fs5 h g5 q. f5 9/8 bb5 q. fs5 e fs5 -h)))

    (setf gs-types '("Bmaj9" "D13" "Gmaj9" "Bb13" "Ebmaj9" "Am11" "D13" "Gmaj9" "Bb13" "Ebmaj9" "Gs13" "Bmaj9" "Fm11" "Bb13" "Ebmaj9" "Am11" "D13" "Gmaj9" 
                     "Csm11" "Fs13" "Bmaj9" "Fm11" "Bb13" "Ebmaj9" "Csm11" "Fs13"))
     

    ;; with max tension level 18

    (setf gs-chords2 (jazz-voicings4 gs-mel nil gs-types 18 nil nil :tonality-use nil :div-type :length :add-root '(t) :printp t :drop 2 
                                    :rhythm nil :measures '(4/4) :test-type 4))

     

     

    ((q b3eb4gs4bb4cs5fs5 mf d3c4e4g4b4d5 g2a3cs4e4fs4b4 e. bb2eb3gs3c4d4g4 s eb3g3c4d4f4bb4 tie) (h eb3g3c4d4f4bb4 mf q a2g3c4d4fs4b4 d3g3c4e4fs4a4) (q g3b3e4fs4a4d5 mf bb2gs3c4eb4g4bb4 eb2f3a3c4d4g4 e. gs2cs3fs3bb3c4eb4 s b2eb3gs3bb3cs4fs4 tie) (h b2eb3gs3bb3cs4fs4 mf q f2eb3gs3bb3d4g4 e. bb2eb3gs3c4d4f4 s eb3g3c4d4f4bb4 tie) (h eb3g3c4d4f4bb4 mf q a2g3c4d4fs4b4 e. d3g3c4e4fs4a4 s g3b3e4fs4a4d5 tie) (h g3b3e4fs4a4d5 mf q cs3b3e4fs4bb4eb5 e. fs3b3e4gs4bb4cs5 s b3eb4gs4bb4cs5fs5 tie) (h b3eb4gs4bb4cs5fs5 mf q f3eb4gs4bb4d5g5 e. bb3eb4gs4c5d5f5 s eb4g4c5d5f5bb5 tie) (h eb4g4c5d5f5bb5 mf e. cs4e4bb4b4eb5fs5 s fs3e4gs4b4eb5fs5 -q))

    Tension level according to Hindemith Chord Classification

    in Support & Troubleshooting

    Posted

    Hi Julio. Yes, I know about the drop-voicings thanks. My function is a completely new library of 4-part and 5-part voicings that voice from the melody

    down. 

     

     

    Example from this melody:

    (setf mt-omn (-h -e bb4 mf c5 f5 d5 bb4 c5 f5 h d5 tie e e bb4 c5 f5 d5 bb4 fs4 f4 tie q e fs4 he f4 tie h -e bb4 c5 f5 d5 bb4 c5 f5 h d5 -e a4 bb4 c5 d5 eb5 f5 fs5 tie q. e eb5 - b4 - gs4 h fs4 -e eb5 bb4 cs5 tie q e fs4 he tie h -e bb4 b4 cs5 tie q e fs4 he -e e5 d5 cs5 - b4 - cs5 tie q e fs4 he tie h -e bb4 b4 cs5 tie q e fs4 bb4 - b4 cs5 d5 tie q e g4 f4 fs4 cs5 - c5 tie w tie h -e f4 gs4 c5 tie q e cs5 he c5 tie h q bb4 e gs4 g4 tie w -e s bb4 gs4 e g4 gs4 c5 eb5 f5 g5 tie w tie h -e f5 - eb5 tie q e gs4 he eb5 -q e gs4 eb5 - gs5 - eb5 tie q e gs4 he eb5 -e cs5 eb5 e5 q eb5 e cs5 eb5 tie q e gs4 he eb5 -q e gs4 eb5 - gs5 - eb5 tie q e gs4 eb5 - e5 fs5 g5 - eb5 eb5 gs4 b4 fs5 d5 f5 tie w))

     

    and these chord-symbols:

     

    (setf mt-types
          ("Bb13" "Ebmaj13" "Gs13" "Ebmaj13" "Csm11" "Fs13" "Bmaj11" "E13" "Bmaj11" "Bm11" "E13#11" "Cm11" "F7alt" "Bbm11" "Fs13#11" "G7alt" "Gsmaj11" "Bb13" "Eb13sus4" "Fs13sus4" "Eb13sus4" "Fs13sus4" "Fm11" "Bb7alt" "Ebmaj11")) 

     

    and how long each chord lasts

    (setf mt-div (list 1 2 2 2 1 1 2 2 2 1/2 1/2 1/2 1/2 2 3/2 1/2 2 2 2 2 2 1 1/2 1/2 1))

     

    And the function looks like this for the trumpet part.

     

    (setf mt-trp (jazz-voicings4 mt-omn mt-div mt-types 18 nil mt-tonalities :div-type :length :test-type 5 :mtt-ambitus '(f3 f6) 
                                   :add-root nil :5-partp nil :typelist '(1 2 3 4) :follow 'i :roots-only nil :tonality-use :passing-tones
                                             :out-ambitus '(c2 f7) :drop nil :drop-change :note :rhythm nil :measures '(4/4) :num-tries 3 :roots-only nil
                                             :chords-inside-lengths '(1/16 4) :chords-inside-ambitus '(c3 e6) :printp t :approach-interval -5
                                             :anticipation t :anticipation-max 1/8 :root-offset 0 :root-type nil :allow-group-switch nil))

     

    Still have a lot of work to do though. Getting complicated with passing-tones, anticipation and approach notes etc…

    The hardest part is to document everything and finding good names for the arguments.

     

    Jesper

     

    opengraph-content-icon-file-audio-landsc

    favicon.ico OpusModus test.mp3

    WWW.DROPBOX.COM
    Shared with Dropbox

      

    The tonalities are optional. You can supply a list like this

    (setf mt-tonalities '(mixolydian ionian mixolydian ionian dorian mixolydian ionian mixolydian ionian dorian altered-dominant dorian 
                                     altered-dominant dorian altered-dominant altered-dominant ionian mixolydian 
                                     mixolydian mixolydian mixolydian mixolydian dorian altered-dominant ionian))

     

    Otherwise will automatically pick tonalities from the chord-symbols with 3 different presets. One with tonalities without avoid-notes, one with "regular" tonalities

    and one depending on the available top notes in each chord family. Altered-dominant for instance have voicings for all notes except F and B in the key of C

    (c4 cs4 d4 ds4 e4 fs4 g4 gs4 a4 as4)

      

    Prélude/Studie "Lake" for Piano

    in Made In Opusmodus

    Posted

    Hi all, it's basically two main functions. infinity-series with a bunch of new options and tone-lakes.

    The other functions are to help you calculate start positions and size for the tone-lakes function, and to

    check if it's a "real" lake etc. No overview that I know of. But they are all in the same documents folder, named Per Noergaard

    in the latest update. Per Nørgård which is the correct name didn't work on the windows version, Janusz told me.

     

    Jesper  

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy

  I accept