Jump to content

JulioHerrlein

Members
  • Posts

    827
  • Joined

  • Last visited

Posts posted by JulioHerrlein

  1. Thanks a lot !! No problem !

    This is cool and generate some kind of diatonic version for Hauer stuff

    This was my inspiration to this Idea...

    WWW.INSTAGRAM.COM

    171 likes, 9 comments - schmeinstein on May 31, 2024: "all the notes of C major, once each. you can play these phrases forwards or backwards, even reflect them about the note D, and they still...".

     

    VERY COOL !

     

    Thanks !

    (setf diat-permute (loop for i in (combination2 7 '(1 2 3 4 5 6 7))
            when (and (equal 1 (first i)) (equal 7 (length (find-unique i))))
            collect i))
    
    (setf diatonic-tropes (substitute-map '(c4 d4 e4 f4 g4 a4 b4) '(1 2 3 4 5 6 7) diat-permute))
    
    (circle-pitch-plot
    (flatten (list
    (rnd-pick diatonic-tropes
    )))
                     :sort nil
                       ;:remove-duplicates t
                       :join-first nil
                       :point-radius 6)

     

  2. Thanks a lot for your time and patience, my dear friends !

    But, actually, I need to remove the redundant permutations, not to generate.

    I just wanted to make sure I have all the prime permutations.

     

    Here is the result of the first 720 permutations of the diatonic scale. looks like the algorithm of the function start with all notes begining in C , then in D, then in E. I hope that the batch that starts all on C (the example below), contains all the permutations (the prime ones), but I´m not sure, I would need to check it manually...

    Is it rigth ?  The algorithm is doing like this (starting in every note at each 720 permutations) ?

     

    Best !

    Julio

    Quote
    ((c4 d4 e4 f4 g4 a4 b4) (c4 d4 e4 f4 g4 b4 a4) (c4 d4 e4 f4 a4 g4 b4) (c4 d4 e4 f4 a4 b4 g4) (c4 d4 e4 f4 b4 g4 a4) (c4 d4 e4 f4 b4 a4 g4) (c4 d4 e4 g4 f4 a4 b4) (c4 d4 e4 g4 f4 b4 a4) (c4 d4 e4 g4 a4 f4 b4) (c4 d4 e4 g4 a4 b4 f4) (c4 d4 e4 g4 b4 f4 a4) (c4 d4 e4 g4 b4 a4 f4) (c4 d4 e4 a4 f4 g4 b4) (c4 d4 e4 a4 f4 b4 g4) (c4 d4 e4 a4 g4 f4 b4) (c4 d4 e4 a4 g4 b4 f4) (c4 d4 e4 a4 b4 f4 g4) (c4 d4 e4 a4 b4 g4 f4) (c4 d4 e4 b4 f4 g4 a4) (c4 d4 e4 b4 f4 a4 g4) (c4 d4 e4 b4 g4 f4 a4) (c4 d4 e4 b4 g4 a4 f4) (c4 d4 e4 b4 a4 f4 g4) (c4 d4 e4 b4 a4 g4 f4) (c4 d4 f4 e4 g4 a4 b4) (c4 d4 f4 e4 g4 b4 a4) (c4 d4 f4 e4 a4 g4 b4) (c4 d4 f4 e4 a4 b4 g4) (c4 d4 f4 e4 b4 g4 a4) (c4 d4 f4 e4 b4 a4 g4) (c4 d4 f4 g4 e4 a4 b4) (c4 d4 f4 g4 e4 b4 a4) (c4 d4 f4 g4 a4 e4 b4) (c4 d4 f4 g4 a4 b4 e4) (c4 d4 f4 g4 b4 e4 a4) (c4 d4 f4 g4 b4 a4 e4) (c4 d4 f4 a4 e4 g4 b4) (c4 d4 f4 a4 e4 b4 g4) (c4 d4 f4 a4 g4 e4 b4) (c4 d4 f4 a4 g4 b4 e4) (c4 d4 f4 a4 b4 e4 g4) (c4 d4 f4 a4 b4 g4 e4) (c4 d4 f4 b4 e4 g4 a4) (c4 d4 f4 b4 e4 a4 g4) (c4 d4 f4 b4 g4 e4 a4) (c4 d4 f4 b4 g4 a4 e4) (c4 d4 f4 b4 a4 e4 g4) (c4 d4 f4 b4 a4 g4 e4) (c4 d4 g4 e4 f4 a4 b4) (c4 d4 g4 e4 f4 b4 a4) (c4 d4 g4 e4 a4 f4 b4) (c4 d4 g4 e4 a4 b4 f4) (c4 d4 g4 e4 b4 f4 a4) (c4 d4 g4 e4 b4 a4 f4) (c4 d4 g4 f4 e4 a4 b4) (c4 d4 g4 f4 e4 b4 a4) (c4 d4 g4 f4 a4 e4 b4) (c4 d4 g4 f4 a4 b4 e4) (c4 d4 g4 f4 b4 e4 a4) (c4 d4 g4 f4 b4 a4 e4) (c4 d4 g4 a4 e4 f4 b4) (c4 d4 g4 a4 e4 b4 f4) (c4 d4 g4 a4 f4 e4 b4) (c4 d4 g4 a4 f4 b4 e4) (c4 d4 g4 a4 b4 e4 f4) (c4 d4 g4 a4 b4 f4 e4) (c4 d4 g4 b4 e4 f4 a4) (c4 d4 g4 b4 e4 a4 f4) (c4 d4 g4 b4 f4 e4 a4) (c4 d4 g4 b4 f4 a4 e4) (c4 d4 g4 b4 a4 e4 f4) (c4 d4 g4 b4 a4 f4 e4) (c4 d4 a4 e4 f4 g4 b4) (c4 d4 a4 e4 f4 b4 g4) (c4 d4 a4 e4 g4 f4 b4) (c4 d4 a4 e4 g4 b4 f4) (c4 d4 a4 e4 b4 f4 g4) (c4 d4 a4 e4 b4 g4 f4) (c4 d4 a4 f4 e4 g4 b4) (c4 d4 a4 f4 e4 b4 g4) (c4 d4 a4 f4 g4 e4 b4) (c4 d4 a4 f4 g4 b4 e4) (c4 d4 a4 f4 b4 e4 g4) (c4 d4 a4 f4 b4 g4 e4) (c4 d4 a4 g4 e4 f4 b4) (c4 d4 a4 g4 e4 b4 f4) (c4 d4 a4 g4 f4 e4 b4) (c4 d4 a4 g4 f4 b4 e4) (c4 d4 a4 g4 b4 e4 f4) (c4 d4 a4 g4 b4 f4 e4) (c4 d4 a4 b4 e4 f4 g4) (c4 d4 a4 b4 e4 g4 f4) (c4 d4 a4 b4 f4 e4 g4) (c4 d4 a4 b4 f4 g4 e4) (c4 d4 a4 b4 g4 e4 f4) (c4 d4 a4 b4 g4 f4 e4) (c4 d4 b4 e4 f4 g4 a4) (c4 d4 b4 e4 f4 a4 g4) (c4 d4 b4 e4 g4 f4 a4) (c4 d4 b4 e4 g4 a4 f4) (c4 d4 b4 e4 a4 f4 g4) (c4 d4 b4 e4 a4 g4 f4) (c4 d4 b4 f4 e4 g4 a4) (c4 d4 b4 f4 e4 a4 g4) (c4 d4 b4 f4 g4 e4 a4) (c4 d4 b4 f4 g4 a4 e4) (c4 d4 b4 f4 a4 e4 g4) (c4 d4 b4 f4 a4 g4 e4) (c4 d4 b4 g4 e4 f4 a4) (c4 d4 b4 g4 e4 a4 f4) (c4 d4 b4 g4 f4 e4 a4) (c4 d4 b4 g4 f4 a4 e4) (c4 d4 b4 g4 a4 e4 f4) (c4 d4 b4 g4 a4 f4 e4) (c4 d4 b4 a4 e4 f4 g4) (c4 d4 b4 a4 e4 g4 f4) (c4 d4 b4 a4 f4 e4 g4) (c4 d4 b4 a4 f4 g4 e4) (c4 d4 b4 a4 g4 e4 f4) (c4 d4 b4 a4 g4 f4 e4) (c4 e4 d4 f4 g4 a4 b4) (c4 e4 d4 f4 g4 b4 a4) (c4 e4 d4 f4 a4 g4 b4) (c4 e4 d4 f4 a4 b4 g4) (c4 e4 d4 f4 b4 g4 a4) (c4 e4 d4 f4 b4 a4 g4) (c4 e4 d4 g4 f4 a4 b4) (c4 e4 d4 g4 f4 b4 a4) (c4 e4 d4 g4 a4 f4 b4) (c4 e4 d4 g4 a4 b4 f4) (c4 e4 d4 g4 b4 f4 a4) (c4 e4 d4 g4 b4 a4 f4) (c4 e4 d4 a4 f4 g4 b4) (c4 e4 d4 a4 f4 b4 g4) (c4 e4 d4 a4 g4 f4 b4) (c4 e4 d4 a4 g4 b4 f4) (c4 e4 d4 a4 b4 f4 g4) (c4 e4 d4 a4 b4 g4 f4) (c4 e4 d4 b4 f4 g4 a4) (c4 e4 d4 b4 f4 a4 g4) (c4 e4 d4 b4 g4 f4 a4) (c4 e4 d4 b4 g4 a4 f4) (c4 e4 d4 b4 a4 f4 g4) (c4 e4 d4 b4 a4 g4 f4) (c4 e4 f4 d4 g4 a4 b4) (c4 e4 f4 d4 g4 b4 a4) (c4 e4 f4 d4 a4 g4 b4) (c4 e4 f4 d4 a4 b4 g4) (c4 e4 f4 d4 b4 g4 a4) (c4 e4 f4 d4 b4 a4 g4) (c4 e4 f4 g4 d4 a4 b4) (c4 e4 f4 g4 d4 b4 a4) (c4 e4 f4 g4 a4 d4 b4) (c4 e4 f4 g4 a4 b4 d4) (c4 e4 f4 g4 b4 d4 a4) (c4 e4 f4 g4 b4 a4 d4) (c4 e4 f4 a4 d4 g4 b4) (c4 e4 f4 a4 d4 b4 g4) (c4 e4 f4 a4 g4 d4 b4) (c4 e4 f4 a4 g4 b4 d4) (c4 e4 f4 a4 b4 d4 g4) (c4 e4 f4 a4 b4 g4 d4) (c4 e4 f4 b4 d4 g4 a4) (c4 e4 f4 b4 d4 a4 g4) (c4 e4 f4 b4 g4 d4 a4) (c4 e4 f4 b4 g4 a4 d4) (c4 e4 f4 b4 a4 d4 g4) (c4 e4 f4 b4 a4 g4 d4) (c4 e4 g4 d4 f4 a4 b4) (c4 e4 g4 d4 f4 b4 a4) (c4 e4 g4 d4 a4 f4 b4) (c4 e4 g4 d4 a4 b4 f4) (c4 e4 g4 d4 b4 f4 a4) (c4 e4 g4 d4 b4 a4 f4) (c4 e4 g4 f4 d4 a4 b4) (c4 e4 g4 f4 d4 b4 a4) (c4 e4 g4 f4 a4 d4 b4) (c4 e4 g4 f4 a4 b4 d4) (c4 e4 g4 f4 b4 d4 a4) (c4 e4 g4 f4 b4 a4 d4) (c4 e4 g4 a4 d4 f4 b4) (c4 e4 g4 a4 d4 b4 f4) (c4 e4 g4 a4 f4 d4 b4) (c4 e4 g4 a4 f4 b4 d4) (c4 e4 g4 a4 b4 d4 f4) (c4 e4 g4 a4 b4 f4 d4) (c4 e4 g4 b4 d4 f4 a4) (c4 e4 g4 b4 d4 a4 f4) (c4 e4 g4 b4 f4 d4 a4) (c4 e4 g4 b4 f4 a4 d4) (c4 e4 g4 b4 a4 d4 f4) (c4 e4 g4 b4 a4 f4 d4) (c4 e4 a4 d4 f4 g4 b4) (c4 e4 a4 d4 f4 b4 g4) (c4 e4 a4 d4 g4 f4 b4) (c4 e4 a4 d4 g4 b4 f4) (c4 e4 a4 d4 b4 f4 g4) (c4 e4 a4 d4 b4 g4 f4) (c4 e4 a4 f4 d4 g4 b4) (c4 e4 a4 f4 d4 b4 g4) (c4 e4 a4 f4 g4 d4 b4) (c4 e4 a4 f4 g4 b4 d4) (c4 e4 a4 f4 b4 d4 g4) (c4 e4 a4 f4 b4 g4 d4) (c4 e4 a4 g4 d4 f4 b4) (c4 e4 a4 g4 d4 b4 f4) (c4 e4 a4 g4 f4 d4 b4) (c4 e4 a4 g4 f4 b4 d4) (c4 e4 a4 g4 b4 d4 f4) (c4 e4 a4 g4 b4 f4 d4) (c4 e4 a4 b4 d4 f4 g4) (c4 e4 a4 b4 d4 g4 f4) (c4 e4 a4 b4 f4 d4 g4) (c4 e4 a4 b4 f4 g4 d4) (c4 e4 a4 b4 g4 d4 f4) (c4 e4 a4 b4 g4 f4 d4) (c4 e4 b4 d4 f4 g4 a4) (c4 e4 b4 d4 f4 a4 g4) (c4 e4 b4 d4 g4 f4 a4) (c4 e4 b4 d4 g4 a4 f4) (c4 e4 b4 d4 a4 f4 g4) (c4 e4 b4 d4 a4 g4 f4) (c4 e4 b4 f4 d4 g4 a4) (c4 e4 b4 f4 d4 a4 g4) (c4 e4 b4 f4 g4 d4 a4) (c4 e4 b4 f4 g4 a4 d4) (c4 e4 b4 f4 a4 d4 g4) (c4 e4 b4 f4 a4 g4 d4) (c4 e4 b4 g4 d4 f4 a4) (c4 e4 b4 g4 d4 a4 f4) (c4 e4 b4 g4 f4 d4 a4) (c4 e4 b4 g4 f4 a4 d4) (c4 e4 b4 g4 a4 d4 f4) (c4 e4 b4 g4 a4 f4 d4) (c4 e4 b4 a4 d4 f4 g4) (c4 e4 b4 a4 d4 g4 f4) (c4 e4 b4 a4 f4 d4 g4) (c4 e4 b4 a4 f4 g4 d4) (c4 e4 b4 a4 g4 d4 f4) (c4 e4 b4 a4 g4 f4 d4) (c4 f4 d4 e4 g4 a4 b4) (c4 f4 d4 e4 g4 b4 a4) (c4 f4 d4 e4 a4 g4 b4) (c4 f4 d4 e4 a4 b4 g4) (c4 f4 d4 e4 b4 g4 a4) (c4 f4 d4 e4 b4 a4 g4) (c4 f4 d4 g4 e4 a4 b4) (c4 f4 d4 g4 e4 b4 a4) (c4 f4 d4 g4 a4 e4 b4) (c4 f4 d4 g4 a4 b4 e4) (c4 f4 d4 g4 b4 e4 a4) (c4 f4 d4 g4 b4 a4 e4) (c4 f4 d4 a4 e4 g4 b4) (c4 f4 d4 a4 e4 b4 g4) (c4 f4 d4 a4 g4 e4 b4) (c4 f4 d4 a4 g4 b4 e4) (c4 f4 d4 a4 b4 e4 g4) (c4 f4 d4 a4 b4 g4 e4) (c4 f4 d4 b4 e4 g4 a4) (c4 f4 d4 b4 e4 a4 g4) (c4 f4 d4 b4 g4 e4 a4) (c4 f4 d4 b4 g4 a4 e4) (c4 f4 d4 b4 a4 e4 g4) (c4 f4 d4 b4 a4 g4 e4) (c4 f4 e4 d4 g4 a4 b4) (c4 f4 e4 d4 g4 b4 a4) (c4 f4 e4 d4 a4 g4 b4) (c4 f4 e4 d4 a4 b4 g4) (c4 f4 e4 d4 b4 g4 a4) (c4 f4 e4 d4 b4 a4 g4) (c4 f4 e4 g4 d4 a4 b4) (c4 f4 e4 g4 d4 b4 a4) (c4 f4 e4 g4 a4 d4 b4) (c4 f4 e4 g4 a4 b4 d4) (c4 f4 e4 g4 b4 d4 a4) (c4 f4 e4 g4 b4 a4 d4) (c4 f4 e4 a4 d4 g4 b4) (c4 f4 e4 a4 d4 b4 g4) (c4 f4 e4 a4 g4 d4 b4) (c4 f4 e4 a4 g4 b4 d4) (c4 f4 e4 a4 b4 d4 g4) (c4 f4 e4 a4 b4 g4 d4) (c4 f4 e4 b4 d4 g4 a4) (c4 f4 e4 b4 d4 a4 g4) (c4 f4 e4 b4 g4 d4 a4) (c4 f4 e4 b4 g4 a4 d4) (c4 f4 e4 b4 a4 d4 g4) (c4 f4 e4 b4 a4 g4 d4) (c4 f4 g4 d4 e4 a4 b4) (c4 f4 g4 d4 e4 b4 a4) (c4 f4 g4 d4 a4 e4 b4) (c4 f4 g4 d4 a4 b4 e4) (c4 f4 g4 d4 b4 e4 a4) (c4 f4 g4 d4 b4 a4 e4) (c4 f4 g4 e4 d4 a4 b4) (c4 f4 g4 e4 d4 b4 a4) (c4 f4 g4 e4 a4 d4 b4) (c4 f4 g4 e4 a4 b4 d4) (c4 f4 g4 e4 b4 d4 a4) (c4 f4 g4 e4 b4 a4 d4) (c4 f4 g4 a4 d4 e4 b4) (c4 f4 g4 a4 d4 b4 e4) (c4 f4 g4 a4 e4 d4 b4) (c4 f4 g4 a4 e4 b4 d4) (c4 f4 g4 a4 b4 d4 e4) (c4 f4 g4 a4 b4 e4 d4) (c4 f4 g4 b4 d4 e4 a4) (c4 f4 g4 b4 d4 a4 e4) (c4 f4 g4 b4 e4 d4 a4) (c4 f4 g4 b4 e4 a4 d4) (c4 f4 g4 b4 a4 d4 e4) (c4 f4 g4 b4 a4 e4 d4) (c4 f4 a4 d4 e4 g4 b4) (c4 f4 a4 d4 e4 b4 g4) (c4 f4 a4 d4 g4 e4 b4) (c4 f4 a4 d4 g4 b4 e4) (c4 f4 a4 d4 b4 e4 g4) (c4 f4 a4 d4 b4 g4 e4) (c4 f4 a4 e4 d4 g4 b4) (c4 f4 a4 e4 d4 b4 g4) (c4 f4 a4 e4 g4 d4 b4) (c4 f4 a4 e4 g4 b4 d4) (c4 f4 a4 e4 b4 d4 g4) (c4 f4 a4 e4 b4 g4 d4) (c4 f4 a4 g4 d4 e4 b4) (c4 f4 a4 g4 d4 b4 e4) (c4 f4 a4 g4 e4 d4 b4) (c4 f4 a4 g4 e4 b4 d4) (c4 f4 a4 g4 b4 d4 e4) (c4 f4 a4 g4 b4 e4 d4) (c4 f4 a4 b4 d4 e4 g4) (c4 f4 a4 b4 d4 g4 e4) (c4 f4 a4 b4 e4 d4 g4) (c4 f4 a4 b4 e4 g4 d4) (c4 f4 a4 b4 g4 d4 e4) (c4 f4 a4 b4 g4 e4 d4) (c4 f4 b4 d4 e4 g4 a4) (c4 f4 b4 d4 e4 a4 g4) (c4 f4 b4 d4 g4 e4 a4) (c4 f4 b4 d4 g4 a4 e4) (c4 f4 b4 d4 a4 e4 g4) (c4 f4 b4 d4 a4 g4 e4) (c4 f4 b4 e4 d4 g4 a4) (c4 f4 b4 e4 d4 a4 g4) (c4 f4 b4 e4 g4 d4 a4) (c4 f4 b4 e4 g4 a4 d4) (c4 f4 b4 e4 a4 d4 g4) (c4 f4 b4 e4 a4 g4 d4) (c4 f4 b4 g4 d4 e4 a4) (c4 f4 b4 g4 d4 a4 e4) (c4 f4 b4 g4 e4 d4 a4) (c4 f4 b4 g4 e4 a4 d4) (c4 f4 b4 g4 a4 d4 e4) (c4 f4 b4 g4 a4 e4 d4) (c4 f4 b4 a4 d4 e4 g4) (c4 f4 b4 a4 d4 g4 e4) (c4 f4 b4 a4 e4 d4 g4) (c4 f4 b4 a4 e4 g4 d4) (c4 f4 b4 a4 g4 d4 e4) (c4 f4 b4 a4 g4 e4 d4) (c4 g4 d4 e4 f4 a4 b4) (c4 g4 d4 e4 f4 b4 a4) (c4 g4 d4 e4 a4 f4 b4) (c4 g4 d4 e4 a4 b4 f4) (c4 g4 d4 e4 b4 f4 a4) (c4 g4 d4 e4 b4 a4 f4) (c4 g4 d4 f4 e4 a4 b4) (c4 g4 d4 f4 e4 b4 a4) (c4 g4 d4 f4 a4 e4 b4) (c4 g4 d4 f4 a4 b4 e4) (c4 g4 d4 f4 b4 e4 a4) (c4 g4 d4 f4 b4 a4 e4) (c4 g4 d4 a4 e4 f4 b4) (c4 g4 d4 a4 e4 b4 f4) (c4 g4 d4 a4 f4 e4 b4) (c4 g4 d4 a4 f4 b4 e4) (c4 g4 d4 a4 b4 e4 f4) (c4 g4 d4 a4 b4 f4 e4) (c4 g4 d4 b4 e4 f4 a4) (c4 g4 d4 b4 e4 a4 f4) (c4 g4 d4 b4 f4 e4 a4) (c4 g4 d4 b4 f4 a4 e4) (c4 g4 d4 b4 a4 e4 f4) (c4 g4 d4 b4 a4 f4 e4) (c4 g4 e4 d4 f4 a4 b4) (c4 g4 e4 d4 f4 b4 a4) (c4 g4 e4 d4 a4 f4 b4) (c4 g4 e4 d4 a4 b4 f4) (c4 g4 e4 d4 b4 f4 a4) (c4 g4 e4 d4 b4 a4 f4) (c4 g4 e4 f4 d4 a4 b4) (c4 g4 e4 f4 d4 b4 a4) (c4 g4 e4 f4 a4 d4 b4) (c4 g4 e4 f4 a4 b4 d4) (c4 g4 e4 f4 b4 d4 a4) (c4 g4 e4 f4 b4 a4 d4) (c4 g4 e4 a4 d4 f4 b4) (c4 g4 e4 a4 d4 b4 f4) (c4 g4 e4 a4 f4 d4 b4) (c4 g4 e4 a4 f4 b4 d4) (c4 g4 e4 a4 b4 d4 f4) (c4 g4 e4 a4 b4 f4 d4) (c4 g4 e4 b4 d4 f4 a4) (c4 g4 e4 b4 d4 a4 f4) (c4 g4 e4 b4 f4 d4 a4) (c4 g4 e4 b4 f4 a4 d4) (c4 g4 e4 b4 a4 d4 f4) (c4 g4 e4 b4 a4 f4 d4) (c4 g4 f4 d4 e4 a4 b4) (c4 g4 f4 d4 e4 b4 a4) (c4 g4 f4 d4 a4 e4 b4) (c4 g4 f4 d4 a4 b4 e4) (c4 g4 f4 d4 b4 e4 a4) (c4 g4 f4 d4 b4 a4 e4) (c4 g4 f4 e4 d4 a4 b4) (c4 g4 f4 e4 d4 b4 a4) (c4 g4 f4 e4 a4 d4 b4) (c4 g4 f4 e4 a4 b4 d4) (c4 g4 f4 e4 b4 d4 a4) (c4 g4 f4 e4 b4 a4 d4) (c4 g4 f4 a4 d4 e4 b4) (c4 g4 f4 a4 d4 b4 e4) (c4 g4 f4 a4 e4 d4 b4) (c4 g4 f4 a4 e4 b4 d4) (c4 g4 f4 a4 b4 d4 e4) (c4 g4 f4 a4 b4 e4 d4) (c4 g4 f4 b4 d4 e4 a4) (c4 g4 f4 b4 d4 a4 e4) (c4 g4 f4 b4 e4 d4 a4) (c4 g4 f4 b4 e4 a4 d4) (c4 g4 f4 b4 a4 d4 e4) (c4 g4 f4 b4 a4 e4 d4) (c4 g4 a4 d4 e4 f4 b4) (c4 g4 a4 d4 e4 b4 f4) (c4 g4 a4 d4 f4 e4 b4) (c4 g4 a4 d4 f4 b4 e4) (c4 g4 a4 d4 b4 e4 f4) (c4 g4 a4 d4 b4 f4 e4) (c4 g4 a4 e4 d4 f4 b4) (c4 g4 a4 e4 d4 b4 f4) (c4 g4 a4 e4 f4 d4 b4) (c4 g4 a4 e4 f4 b4 d4) (c4 g4 a4 e4 b4 d4 f4) (c4 g4 a4 e4 b4 f4 d4) (c4 g4 a4 f4 d4 e4 b4) (c4 g4 a4 f4 d4 b4 e4) (c4 g4 a4 f4 e4 d4 b4) (c4 g4 a4 f4 e4 b4 d4) (c4 g4 a4 f4 b4 d4 e4) (c4 g4 a4 f4 b4 e4 d4) (c4 g4 a4 b4 d4 e4 f4) (c4 g4 a4 b4 d4 f4 e4) (c4 g4 a4 b4 e4 d4 f4) (c4 g4 a4 b4 e4 f4 d4) (c4 g4 a4 b4 f4 d4 e4) (c4 g4 a4 b4 f4 e4 d4) (c4 g4 b4 d4 e4 f4 a4) (c4 g4 b4 d4 e4 a4 f4) (c4 g4 b4 d4 f4 e4 a4) (c4 g4 b4 d4 f4 a4 e4) (c4 g4 b4 d4 a4 e4 f4) (c4 g4 b4 d4 a4 f4 e4) (c4 g4 b4 e4 d4 f4 a4) (c4 g4 b4 e4 d4 a4 f4) (c4 g4 b4 e4 f4 d4 a4) (c4 g4 b4 e4 f4 a4 d4) (c4 g4 b4 e4 a4 d4 f4) (c4 g4 b4 e4 a4 f4 d4) (c4 g4 b4 f4 d4 e4 a4) (c4 g4 b4 f4 d4 a4 e4) (c4 g4 b4 f4 e4 d4 a4) (c4 g4 b4 f4 e4 a4 d4) (c4 g4 b4 f4 a4 d4 e4) (c4 g4 b4 f4 a4 e4 d4) (c4 g4 b4 a4 d4 e4 f4) (c4 g4 b4 a4 d4 f4 e4) (c4 g4 b4 a4 e4 d4 f4) (c4 g4 b4 a4 e4 f4 d4) (c4 g4 b4 a4 f4 d4 e4) (c4 g4 b4 a4 f4 e4 d4) (c4 a4 d4 e4 f4 g4 b4) (c4 a4 d4 e4 f4 b4 g4) (c4 a4 d4 e4 g4 f4 b4) (c4 a4 d4 e4 g4 b4 f4) (c4 a4 d4 e4 b4 f4 g4) (c4 a4 d4 e4 b4 g4 f4) (c4 a4 d4 f4 e4 g4 b4) (c4 a4 d4 f4 e4 b4 g4) (c4 a4 d4 f4 g4 e4 b4) (c4 a4 d4 f4 g4 b4 e4) (c4 a4 d4 f4 b4 e4 g4) (c4 a4 d4 f4 b4 g4 e4) (c4 a4 d4 g4 e4 f4 b4) (c4 a4 d4 g4 e4 b4 f4) (c4 a4 d4 g4 f4 e4 b4) (c4 a4 d4 g4 f4 b4 e4) (c4 a4 d4 g4 b4 e4 f4) (c4 a4 d4 g4 b4 f4 e4) (c4 a4 d4 b4 e4 f4 g4) (c4 a4 d4 b4 e4 g4 f4) (c4 a4 d4 b4 f4 e4 g4) (c4 a4 d4 b4 f4 g4 e4) (c4 a4 d4 b4 g4 e4 f4) (c4 a4 d4 b4 g4 f4 e4) (c4 a4 e4 d4 f4 g4 b4) (c4 a4 e4 d4 f4 b4 g4) (c4 a4 e4 d4 g4 f4 b4) (c4 a4 e4 d4 g4 b4 f4) (c4 a4 e4 d4 b4 f4 g4) (c4 a4 e4 d4 b4 g4 f4) (c4 a4 e4 f4 d4 g4 b4) (c4 a4 e4 f4 d4 b4 g4) (c4 a4 e4 f4 g4 d4 b4) (c4 a4 e4 f4 g4 b4 d4) (c4 a4 e4 f4 b4 d4 g4) (c4 a4 e4 f4 b4 g4 d4) (c4 a4 e4 g4 d4 f4 b4) (c4 a4 e4 g4 d4 b4 f4) (c4 a4 e4 g4 f4 d4 b4) (c4 a4 e4 g4 f4 b4 d4) (c4 a4 e4 g4 b4 d4 f4) (c4 a4 e4 g4 b4 f4 d4) (c4 a4 e4 b4 d4 f4 g4) (c4 a4 e4 b4 d4 g4 f4) (c4 a4 e4 b4 f4 d4 g4) (c4 a4 e4 b4 f4 g4 d4) (c4 a4 e4 b4 g4 d4 f4) (c4 a4 e4 b4 g4 f4 d4) (c4 a4 f4 d4 e4 g4 b4) (c4 a4 f4 d4 e4 b4 g4) (c4 a4 f4 d4 g4 e4 b4) (c4 a4 f4 d4 g4 b4 e4) (c4 a4 f4 d4 b4 e4 g4) (c4 a4 f4 d4 b4 g4 e4) (c4 a4 f4 e4 d4 g4 b4) (c4 a4 f4 e4 d4 b4 g4) (c4 a4 f4 e4 g4 d4 b4) (c4 a4 f4 e4 g4 b4 d4) (c4 a4 f4 e4 b4 d4 g4) (c4 a4 f4 e4 b4 g4 d4) (c4 a4 f4 g4 d4 e4 b4) (c4 a4 f4 g4 d4 b4 e4) (c4 a4 f4 g4 e4 d4 b4) (c4 a4 f4 g4 e4 b4 d4) (c4 a4 f4 g4 b4 d4 e4) (c4 a4 f4 g4 b4 e4 d4) (c4 a4 f4 b4 d4 e4 g4) (c4 a4 f4 b4 d4 g4 e4) (c4 a4 f4 b4 e4 d4 g4) (c4 a4 f4 b4 e4 g4 d4) (c4 a4 f4 b4 g4 d4 e4) (c4 a4 f4 b4 g4 e4 d4) (c4 a4 g4 d4 e4 f4 b4) (c4 a4 g4 d4 e4 b4 f4) (c4 a4 g4 d4 f4 e4 b4) (c4 a4 g4 d4 f4 b4 e4) (c4 a4 g4 d4 b4 e4 f4) (c4 a4 g4 d4 b4 f4 e4) (c4 a4 g4 e4 d4 f4 b4) (c4 a4 g4 e4 d4 b4 f4) (c4 a4 g4 e4 f4 d4 b4) (c4 a4 g4 e4 f4 b4 d4) (c4 a4 g4 e4 b4 d4 f4) (c4 a4 g4 e4 b4 f4 d4) (c4 a4 g4 f4 d4 e4 b4) (c4 a4 g4 f4 d4 b4 e4) (c4 a4 g4 f4 e4 d4 b4) (c4 a4 g4 f4 e4 b4 d4) (c4 a4 g4 f4 b4 d4 e4) (c4 a4 g4 f4 b4 e4 d4) (c4 a4 g4 b4 d4 e4 f4) (c4 a4 g4 b4 d4 f4 e4) (c4 a4 g4 b4 e4 d4 f4) (c4 a4 g4 b4 e4 f4 d4) (c4 a4 g4 b4 f4 d4 e4) (c4 a4 g4 b4 f4 e4 d4) (c4 a4 b4 d4 e4 f4 g4) (c4 a4 b4 d4 e4 g4 f4) (c4 a4 b4 d4 f4 e4 g4) (c4 a4 b4 d4 f4 g4 e4) (c4 a4 b4 d4 g4 e4 f4) (c4 a4 b4 d4 g4 f4 e4) (c4 a4 b4 e4 d4 f4 g4) (c4 a4 b4 e4 d4 g4 f4) (c4 a4 b4 e4 f4 d4 g4) (c4 a4 b4 e4 f4 g4 d4) (c4 a4 b4 e4 g4 d4 f4) (c4 a4 b4 e4 g4 f4 d4) (c4 a4 b4 f4 d4 e4 g4) (c4 a4 b4 f4 d4 g4 e4) (c4 a4 b4 f4 e4 d4 g4) (c4 a4 b4 f4 e4 g4 d4) (c4 a4 b4 f4 g4 d4 e4) (c4 a4 b4 f4 g4 e4 d4) (c4 a4 b4 g4 d4 e4 f4) (c4 a4 b4 g4 d4 f4 e4) (c4 a4 b4 g4 e4 d4 f4) (c4 a4 b4 g4 e4 f4 d4) (c4 a4 b4 g4 f4 d4 e4) (c4 a4 b4 g4 f4 e4 d4) (c4 b4 d4 e4 f4 g4 a4) (c4 b4 d4 e4 f4 a4 g4) (c4 b4 d4 e4 g4 f4 a4) (c4 b4 d4 e4 g4 a4 f4) (c4 b4 d4 e4 a4 f4 g4) (c4 b4 d4 e4 a4 g4 f4) (c4 b4 d4 f4 e4 g4 a4) (c4 b4 d4 f4 e4 a4 g4) (c4 b4 d4 f4 g4 e4 a4) (c4 b4 d4 f4 g4 a4 e4) (c4 b4 d4 f4 a4 e4 g4) (c4 b4 d4 f4 a4 g4 e4) (c4 b4 d4 g4 e4 f4 a4) (c4 b4 d4 g4 e4 a4 f4) (c4 b4 d4 g4 f4 e4 a4) (c4 b4 d4 g4 f4 a4 e4) (c4 b4 d4 g4 a4 e4 f4) (c4 b4 d4 g4 a4 f4 e4) (c4 b4 d4 a4 e4 f4 g4) (c4 b4 d4 a4 e4 g4 f4) (c4 b4 d4 a4 f4 e4 g4) (c4 b4 d4 a4 f4 g4 e4) (c4 b4 d4 a4 g4 e4 f4) (c4 b4 d4 a4 g4 f4 e4) (c4 b4 e4 d4 f4 g4 a4) (c4 b4 e4 d4 f4 a4 g4) (c4 b4 e4 d4 g4 f4 a4) (c4 b4 e4 d4 g4 a4 f4) (c4 b4 e4 d4 a4 f4 g4) (c4 b4 e4 d4 a4 g4 f4) (c4 b4 e4 f4 d4 g4 a4) (c4 b4 e4 f4 d4 a4 g4) (c4 b4 e4 f4 g4 d4 a4) (c4 b4 e4 f4 g4 a4 d4) (c4 b4 e4 f4 a4 d4 g4) (c4 b4 e4 f4 a4 g4 d4) (c4 b4 e4 g4 d4 f4 a4) (c4 b4 e4 g4 d4 a4 f4) (c4 b4 e4 g4 f4 d4 a4) (c4 b4 e4 g4 f4 a4 d4) (c4 b4 e4 g4 a4 d4 f4) (c4 b4 e4 g4 a4 f4 d4) (c4 b4 e4 a4 d4 f4 g4) (c4 b4 e4 a4 d4 g4 f4) (c4 b4 e4 a4 f4 d4 g4) (c4 b4 e4 a4 f4 g4 d4) (c4 b4 e4 a4 g4 d4 f4) (c4 b4 e4 a4 g4 f4 d4) (c4 b4 f4 d4 e4 g4 a4) (c4 b4 f4 d4 e4 a4 g4) (c4 b4 f4 d4 g4 e4 a4) (c4 b4 f4 d4 g4 a4 e4) (c4 b4 f4 d4 a4 e4 g4) (c4 b4 f4 d4 a4 g4 e4) (c4 b4 f4 e4 d4 g4 a4) (c4 b4 f4 e4 d4 a4 g4) (c4 b4 f4 e4 g4 d4 a4) (c4 b4 f4 e4 g4 a4 d4) (c4 b4 f4 e4 a4 d4 g4) (c4 b4 f4 e4 a4 g4 d4) (c4 b4 f4 g4 d4 e4 a4) (c4 b4 f4 g4 d4 a4 e4) (c4 b4 f4 g4 e4 d4 a4) (c4 b4 f4 g4 e4 a4 d4) (c4 b4 f4 g4 a4 d4 e4) (c4 b4 f4 g4 a4 e4 d4) (c4 b4 f4 a4 d4 e4 g4) (c4 b4 f4 a4 d4 g4 e4) (c4 b4 f4 a4 e4 d4 g4) (c4 b4 f4 a4 e4 g4 d4) (c4 b4 f4 a4 g4 d4 e4) (c4 b4 f4 a4 g4 e4 d4) (c4 b4 g4 d4 e4 f4 a4) (c4 b4 g4 d4 e4 a4 f4) (c4 b4 g4 d4 f4 e4 a4) (c4 b4 g4 d4 f4 a4 e4) (c4 b4 g4 d4 a4 e4 f4) (c4 b4 g4 d4 a4 f4 e4) (c4 b4 g4 e4 d4 f4 a4) (c4 b4 g4 e4 d4 a4 f4) (c4 b4 g4 e4 f4 d4 a4) (c4 b4 g4 e4 f4 a4 d4) (c4 b4 g4 e4 a4 d4 f4) (c4 b4 g4 e4 a4 f4 d4) (c4 b4 g4 f4 d4 e4 a4) (c4 b4 g4 f4 d4 a4 e4) (c4 b4 g4 f4 e4 d4 a4) (c4 b4 g4 f4 e4 a4 d4) (c4 b4 g4 f4 a4 d4 e4) (c4 b4 g4 f4 a4 e4 d4) (c4 b4 g4 a4 d4 e4 f4) (c4 b4 g4 a4 d4 f4 e4) (c4 b4 g4 a4 e4 d4 f4) (c4 b4 g4 a4 e4 f4 d4) (c4 b4 g4 a4 f4 d4 e4) (c4 b4 g4 a4 f4 e4 d4) (c4 b4 a4 d4 e4 f4 g4) (c4 b4 a4 d4 e4 g4 f4) (c4 b4 a4 d4 f4 e4 g4) (c4 b4 a4 d4 f4 g4 e4) (c4 b4 a4 d4 g4 e4 f4) (c4 b4 a4 d4 g4 f4 e4) (c4 b4 a4 e4 d4 f4 g4) (c4 b4 a4 e4 d4 g4 f4) (c4 b4 a4 e4 f4 d4 g4) (c4 b4 a4 e4 f4 g4 d4) (c4 b4 a4 e4 g4 d4 f4) (c4 b4 a4 e4 g4 f4 d4) (c4 b4 a4 f4 d4 e4 g4) (c4 b4 a4 f4 d4 g4 e4) (c4 b4 a4 f4 e4 d4 g4) (c4 b4 a4 f4 e4 g4 d4) (c4 b4 a4 f4 g4 d4 e4) (c4 b4 a4 f4 g4 e4 d4) (c4 b4 a4 g4 d4 e4 f4) (c4 b4 a4 g4 d4 f4 e4) (c4 b4 a4 g4 e4 d4 f4) (c4 b4 a4 g4 e4 f4 d4) (c4 b4 a4 g4 f4 d4 e4) (c4 b4 a4 g4 f4 e4 d4)) 

     

     

    Dear Janusz

    I need the reverse of what you did

     

    From this set of combinations

    ((1 2 3 4) (1 3 2 4) (1 2 4 3) (1 4 2 3) (1 3 4 2) (1 4 3 2))

    filter to get only the generator (1 2 3 4)

     

    Best

  3. Dear Janusz and friends,

     I´m back to the subject of permutations. The expression below brings all the permutations for a diatonic scale (or any other set you might want to do).

     

    (setf diat-permute (permute '(1 2 3 4 5 6 7)))
    
    (substitute-map '(c4 d4 e4 f4 g4 a4 b4) '(1 2 3 4 5 6 7) diat-permute)

     

    But the list is too long and redundant (I got also a stack overflow when trying to make a snippet out of it (but this is another problem...)

     

    The question I´d like to ask is for a function for filtering the rotational variations of a set, to exclude a large number of unnecessary permutations.

    For Example:

    (1 3 4 2) is rotationally the same as (3 4 2 1 ), (4 2 1 3) and (2 1 3 4), so there is no need of the 4 permutations, since musically you can just use the rotations.

    The same goes for other cardinalities

    (2 4 3 1 5 6 7) is the rotationally the same that  (4 3 1 5 6 7 2) (3 1 5 6 7 2 4) (1 5 6 7 2 4 3) (5 6 7 2 4 3 1) (6 7 2 4 3 1 5) and (7 2 4 3 1 5 6), there is no need for 7 versions of it.

     

    I´d like to have a function to get only the "parent" of each rotational set,  a kind of rotate-permute function.

    It´s a very musical way to think about it.

     

    Can someone help ?

     

    All the best !

     

    Thanks

  4. Hi, 

     

    I´m searching for an option in PS score to bypass the rewriting the accidentals. My scale lists are carefully ordered in terms of enharmonics.

    I think that what mess it all is the make-omn expression I use before the PS.

    Is there some way of bypass reordering accidentals in the make-omn expression and also in the PS ?

     

    Thanks !

     

    Julio

  5. Dear All,

     

    just a little help, please !

     

    Here´s a list of scales...

     

    ((fs4 gs4 a4 b4 cs5 eb5 e5) (db5 eb5 f5 g5 ab5 bb5 c6) (cs5 eb5 e5 fs5 gs5 bb5 b5) (bb4 c5 d5 e5 f5 g5 a5) (d4 e4 f4 g4 a4 b4 c5) (gb4 ab4 bb4 c5 db5 eb5 f5) (g4 a4 b4 cs5 d5 e5 fs5) (f4 g4 a4 b4 c5 d5 e5) (c5 d5 e5 fs5 g5 a5 b5) (cb5 db5 eb5 f5 gb5 ab5 bb5) (g4 a4 b4 cs5 d5 e5 fs5) (f4 g4 a4 b4 c5 d5 e5) (a4 b4 c5 d5 e5 fs5 g5) (c5 d5 e5 fs5 g5 a5 b5) (cs5 eb5 e5 fs5 gs5 bb5 b5) (e4 fs4 g4 a4 b4 cs5 d5) (gb4 ab4 bb4 c5 db5 eb5 f5) (db5 eb5 f5 g5 ab5 bb5 c6) (bb4 c5 d5 e5 f5 g5 a5) (eb4 f4 fs4 gs4 bb4 c5 cs5) (c5 d5 e5 fs5 g5 a5 b5) (a4 b4 c5 d5 e5 fs5 g5) (db5 eb5 f5 g5 ab5 bb5 c6) (g4 a4 b4 cs5 d5 e5 fs5))

     

    I just want to pick the same elements of all the sublists. I don´t remember how to do it...

    For example (0 2 1) of all the sublists would return  this:

     

    ((fs4 a4 gs4) 

    (db5 f5 eb5)

    (cs5 e5 eb5) etc etc

     

    Please, some help ?

     

    Thanks a lot !

     

    Best, 

    Julio

     

     

  6. Thank you, Jesele and Janusz !

    Janusz, puting the [ ] creates a bug in the notation engine... Don´t know why...

    Best,

    Julio 

     

    ((w a2g3c4e4 am7) (w c3a3e4g4 cadd6) (w e3gs3d4f4 e7b9) (w gs2f3b3d4 gsdim7) (w g2f3b3e4 g7-13) (w cs3f3b3e4 cs7s9) (w b2f3a3d4 bhd) (w d3a3c4f4 dm7) (w f3c4e4a4 fmaj7))

     

    OM 3 > audition-musicxml-omn-snippet

    Error: OMN Parse Error: fail
      1 (abort) Return to top loop level 0.

    Type 😛 for backtrace or :c <option number> to proceed.
    Type :bug-form "<subject>" for a bug report template or :? for other options.

    OM 4 : 1 > 

  7. Hello, 

     

    I did some text attributes for displaying chord symbols but when I use the make-omn, I don´t know how to retrieve the chord symbols.

     

    I´d like to use this for a a lesson. The display of chords is good, but I need also to chaneg the chord lengths to create some examples. The ideia is to create automatic harmonizations using pre-defined voicings.

     

     I know that I filtered out the attributes in the make-omn expression below, but how can I retrieve the chord symbols and change the lengths ?

     

    Thanks for the help !

    Best,

    Julio

     

    Here is the code

     

    (add-text-attributes
     '(Am7 "Am7")
     '(C6 "C6")
     '(E7b9 "E7b9")
     '(Gsdim7 "G#o")
     '(G7 "G7")
     '(G7-13 "G7(13)")
     '(Cs7s9 "C#7(#9)")
     '(Bhd "Bm7b5")
     '(Dm7 "Dm7")
     '(Fmaj7 "Fmaj7")
     '(G74b9 "G7,4(b9)") 
    )

    (setf C-chords '((w a2g3c4e4 am7) (w c3a3e4g4 c6) (w e3gs3d4f4 e7b9) (w gs2f3b3d4 gsdim7) (w g2f3b3e4 g7-13) (w cs3f3b3e4 cs7s9) (w b2f3a3d4 bhd) (w d3a3c4f4 dm7) (w f3c4e4a4 fmaj7)))

     

    ;; I know that I filtered out the attributes in the expression below, but how can I retrieve the chord symbols and change the lengths ?

     

    (make-omn 
    :pitch (omn :pitch C-chords)
    :length '((e e e eh) (h w))
    :span :length
    )

     

    CHORD SYMBLOS BEFOREimage.png.f5ef99a5f73f5943a56689d4e5a7a2d5.png

    Looks good !

  8. Dear All, 

     

    One interesting conversion would be the one for transforming the get-time-signature result to

    length-span time signature format. This would be useful to rephrase rhythmically one rhythm with another´s rhythm time-signature structure.

    For example:

     

    ; Take this rhythm


    (setf ritmos (gen-repeat 4 (gen-length '((1 2 1 2 1 1) (1 1 1 1 1 2 1) (1 -3 1 -3 2 -2 4) (-3 1 -1 1 1 1)) '(16))))

     

    Here is the bar structure for this

     

    (get-time-signature ritmos)

     

    This is the output

     

    ((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))

     

    If I want to use this result as a time signature template in the length-span I have to convert it to

     

    (2/4 2/4 1 2/4 2/4 2/4 1 2/4 2/4 2/4 1 2/4 2/4 2/4 1 2/4)

     

    in order to use the time-signature order it in the length-span function

     

    Is there some function that performs this ?

     

    Best !

     

    Julio 

    I did this extravagant coding , but I need it with the slashes ( " / " ) and the repetitions, like converting (2 4 3) into (2/4 2/4 2/4)...

     

    (setf timesig-to-length-span 
    (flatten
    (matrix-transpose 
    (list 
    (lake-everyother 
    (get-count (get-count (get-time-signature ritmos))) ; how many
    0 3  (flatten (get-time-signature ritmos)))
    (lake-everyother 
    (get-count (get-count (get-time-signature ritmos))) ; how many
    1 3  (flatten (get-time-signature ritmos)))
    )
    ))
    )

     

    ;;(2 4 4 4 2 4)

    I love lake-everyother

  9. Dear Ottorino,

     

    In OSX, all the midi inputs configured in MIDI Studio setup (of the OSX system itself) will be available.

    Maybe this behaviour of the notes appearing and then disappearing can be due to doubling the midi information at some point.

    Maybe the other software, like midipipe are doing some duplication or filtering off the notes.

  10. 5 hours ago, Stephane Boussuge said:

    Lilypond works also very well with Opmo.

     

     

    Nice, but do you know an easy way how to import MusicXML to Lily ? Not having to use command line...

    Or directly from Opmo ?

    Best !

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy