Aligning Pitches with a Rhythm Across 12 Bars

[david]

Hello,

I am working on a 12-bar sequence based on the harmonic grid of Charlie Parker's "Blues for Alice."

I have a list of pitches in sixteenth notes that correspond to the chords of the piece:

(setf alice-chord4 '((s fs4 g4 b4 d5)(s bb4 b4 d5 fs5)(s cs5 d5 fs5 a5)(s f5 fs5 a5 cs6);GM7
(s f4 fs4 a4 c5) (s ab4 a4 c5 e5)(s bb4 b4 eb5 fs5)(s d5 eb5 fs5 a5);F#m7b5/B7
(s eb5 e5 g5 b5) (s fs4 g4 b4 d5) (s gs4 a4 cs5 e5)(s c5 cs5 e5 g5);Em7/A7
(s cs5 d5 f5 a5)(s e5 f5 a5 c6)(s fs5 g5 b5 d6)(s bb4 b4 d5 f5);Dm7/G7
(s b4 c5 e5 g5)(s eb5 e5 g5 bb5)(s fs4 g4 bb4 d5)(s a4 bb4 d5 fs5);C7
(s b4 c5 eb5 g5)(s d5 eb5 g5 bb5)(s e5 f5 a5 c6)(s ab5 a5 c6 eb6);Cm7/F7
(s bb4 b4 d5 fs5)(s cs5 d5 fs5 a5)(s eb5 e5 gs5 b5)(s g5 gs5 b5 d6);Bm7/E7
(s a4 bb4 cs5 f5)(s c5 db5 f5 ab5)(s d5 eb5 g5 bb5)(s fs5 g5 bb5 db6);Bbm7/Eb7
(s gs4 a4 c5 e5)(s b4 c5 e5 g5)(s eb5 e5 g5 b5)(s fs5 g5 b5 d6);Am7
(s cs5 d5 fs5 a5)(s f5 fs5 a5 c6)(s gs5 a5 c6 e6)(s b4 c5 e5 gs5);D7
(s fs5 g5 b5 d6)(s bb4 b4 d5 fs5)(s eb5 e5 gs5 b5)(s g5 gs5 b5 d6);GM7/E7
(s gs4 a4 c5 e5)(s b4 c5 e5 g5)(s cs5 d5 fs5 a5)(s f5 fs5 a5 c6)));Am7/D7

 

I want to apply a  rhythm that spans 12 beats (which is equivalent to 3 bars in 4/4) and repeat it across the entire 12 bars.

Here is the rhythm I'm using:

(e. s -q -q e. s -q -q e. s -q -q e. s -q -q)

 

(setf Gr3+9 
    (omn-to-measure (make-omn 
                                       :pitch (omn :pitch (omn-to-measure 
                                       (loop for x in alice-chord3 collect

                                        (filter-repeat 1 (rnd-order x :type :pitch :seed 3 ))) 
                                       '(1 1/2 1/2 1/2 1/2 1/2 1/2 1 1/2 1/2 1/2 1/2 1/2 1/2 1 1 1/2 1/2 1/2 1/2))) 
                                      :length (omn :length (omn-to-measure 
                                      (gen-repeat 4  '(e. s -q -q e. s -q -q e. s -q -q e. s -q -q )); phrase 12/4 
                                      '(1 1/2 1/2 1/2 1/2 1/2 1/2 1 1/2 1/2 1/2 1/2 1/2 1/2 1 1 1/2 1/2 1/2 1/2))))  4/4))

 

 

The problem I’m encountering is that when I try to align the pitches from `alice-chord3` with this rhythm, they don’t match the bar divisions correctly. I’ve tried different functions like `length-adjust`, but this stretches or compresses the pitches, altering the note order or distributing them incorrectly.

 What I need:
- Keep the exact order of the pitches from `alice-chord3`.
- Apply the 12-beat rhythm without modifying or stretching the pitches.
- Repeat this rhythmic pattern over the 12 bars, while ensuring that the pitches follow the harmonic grid of the piece.

Unsuccessful attempts:
- Using functions like `length-adjust` stretches the pitches or redistributes them in an unwanted way.
- When I repeat the rhythm with `gen-repeat`, it causes misalignment where the pitches no longer correspond to the measures.

I'm looking for a way to correctly align the pitches with the rhythm while keeping the structure of 12 bars and without altering the pitch content. Is there a specific method or function in Opusmodus that can handle this?

 

Thank you in advance for your help!

 

[david]

Hi, after several attempts with chatGPT which really talks nonsense, I come back to humans who are very rare around here!

 

I'm still trying to rephrase my request.

 

This is my pitches, I specify that each bars must correspond to beats in the end

 

(setf alice-chord3

'((s g4 b4 d5 g5)(s b4 d5 fs5 b5)(s d5 fs5 a5 d6)(s a4 cs5 e5 a5);Gmaj7

(s fs4 a4 c5 fs5) (s a4 c5 e5 a5)(s b4 eb5 fs5 b5)(s eb5 fs5 a5 eb6); F#m7b5/ B7

(s e5 g5 b5 e6) (s g4 b4 d5 g5) (s a4 cs5 e5 a5)(s cs5 e5 g5 cs6);Em7/A7

(s d5 f5 a5 d6)(s f5 a5 c6 f6)(s g4 b4 d5 g5)(s b4 d5 f5 b5);Dm7/G7

(s c5 e5 g5 c6)(s e5 g5 bb5 e6)(s g4 bb4 d5 g5)(s bb4 d5 fs5 bb5);C7

(s c5 eb5 g5 c6)(s eb5 g5 bb5 eb6)(s f5 a5 c6 f6)(s a4 c5 eb5 a5);Cm7/F7

(s b4 d5 fs5 b5)(s d5 fs5 a5 d6)(s e5 gs5 b5 e6)(s gs4 b4 d5 gs5);Bm7/E7

(s bb4 cs5 f5 bb5)(s db5 f5 ab5 db6)(s eb5 g5 bb5 eb6)(s g4 bb4 db5 g5);Bbm7/Eb7

(s a4 c5 e5 a5)(s c5 e5 g5 c6)(s e5 g5 b5 e6)(s g4 b4 d5 g5);Am7

(s d5 fs5 a5 d6)(s fs5 a5 c6 fs6)(s a4 c5 e5 a5)(s c5 e5 gs5 c6);D7

(s g4 b4 d5 g5)(s b4 d5 fs5 b5)(s e5 gs5 b5 e6)(s gs4 b4 d5 gs5);Gmaj7/E7

(s a4 c5 e5 a5)(s c5 e5 g5 c6)(s d5 fs5 a5 d6)(s fs4 a4 c5 fs5)));Am7/D7

 

My little rhythmic study on chords of "Blues for Alice"

(setf Gr3 (omn-to-measure (make-omn :pitch (omn :pitch (omn-to-measure (loop for x in alice-chord4 collect (filter-repeat 1 (rnd-order x :type :pitch :seed 3))) '(1 1/2 1/2 1/2 1/2 1/2 1/2 1 1/2 1/2 1/2 1/2 1/2 1/2 1 1 1/2 1/2 1/2 1/2)))

:length (omn :length (omn-to-measure (gen-repeat 4 '(e. s -q -q e. s -q -q e. s -q -q e. s -q -q)) '(1 1/2 1/2 1/2 1/2 1/2 1/2 1 1/2 1/2 1/2 1/2 1/2 1/2 1 1 1/2 1/2 1/2 1/2)))) 4/4))

 

After a Print Expression I get this result which shows a shift of the notes in relation to the alignment of the rhythm:

(setf Gr3result

'(#|1|# (e. g4 s b4 -h e. d5 s g5), Gmaj

#|2|# (-h e. fs4 s a4 -q);F#m7b5/B7

#|3|# (-q e. b4 s eb5 -h);Em7/A7

#|4|# (e. e5 s g5 -h e. a4 s cs5);Dm7/G7

#|5|# (-h e. d5 s f5 -q);C7

#|6|# (-q e. g4 s b4 -h);Cm7/F7

#|7|# (e. c5 s e5 -h e. c5 s eb5);Bm7/E7

#|8|# (-h e. f5 s a5 -q);Bbm7/Eb7

#|9|# (-q e. b4 s d5 -h);Am7

#|10|# (e. e5 s gs5 -h e. b5 s e6);D7

#|11|# (-h e. bb4 s cs5 -q);Gmaj/E7

#|12|# (-q e. eb5 s g5 -h) ));Am7/D7

 

To check with my seed 3 with sixteenth notes, I get the same result as alice-chord3 (pitch)

 

what i want is to get this result, which i did manually and which corresponds exactly to the logic of my seed 3. here is this result:

 

:(setf correctnotes

'(#|1|# (e. g4 s b4 -h e. a4 s cs5);Gmaj

#|2|# (-h e. b4 s eb5 -q);F#m7b5/B7

#|3|# (-q e. g4 s b4 -h);Em7/A7

#|4|# (e. d5 s f5 -h e. b4 s d5);Dm7/G7

#|5|# (-h e. g4 s bb4 -q);C7

#|6|# (-q e. eb5 s g5 -h);Cm7/F7

#|7|# (e. b4 s d5 -h e. gs4 s b4);Bm7/E7

#|8|# (-h e. eb5 s g5 -q);Bbm7/Eb7

#|9|# (-q e. c5 s e5 -h);Am7

#|10|# (e. d5 s fs5 -h e. c5 s e5);D7

#|11|# (-h e. e5 s gs5 -q);Gmaj/E7

#|12|# (-q e. c5 s e5 -h) ));Am7/D7

 

 

So I'm trying to find this result but I'm at the end of the solutions I know. If someone can try to solve my problem.

 

Thanks in advance.

 

[JulioHerrlein]

Hi, David

 

Please, try this

 

(setf alice-chord4 '((s fs4 g4 b4 d5)(s bb4 b4 d5 fs5)(s cs5 d5 fs5 a5)(s f5 fs5 a5 cs6);GM7
(s f4 fs4 a4 c5) (s ab4 a4 c5 e5)(s bb4 b4 eb5 fs5)(s d5 eb5 fs5 a5);F#m7b5/B7
(s eb5 e5 g5 b5) (s fs4 g4 b4 d5) (s gs4 a4 cs5 e5)(s c5 cs5 e5 g5);Em7/A7
(s cs5 d5 f5 a5)(s e5 f5 a5 c6)(s fs5 g5 b5 d6)(s bb4 b4 d5 f5);Dm7/G7
(s b4 c5 e5 g5)(s eb5 e5 g5 bb5)(s fs4 g4 bb4 d5)(s a4 bb4 d5 fs5);C7
(s b4 c5 eb5 g5)(s d5 eb5 g5 bb5)(s e5 f5 a5 c6)(s ab5 a5 c6 eb6);Cm7/F7
(s bb4 b4 d5 fs5)(s cs5 d5 fs5 a5)(s eb5 e5 gs5 b5)(s g5 gs5 b5 d6);Bm7/E7
(s a4 bb4 cs5 f5)(s c5 db5 f5 ab5)(s d5 eb5 g5 bb5)(s fs5 g5 bb5 db6);Bbm7/Eb7
(s gs4 a4 c5 e5)(s b4 c5 e5 g5)(s eb5 e5 g5 b5)(s fs5 g5 b5 d6);Am7
(s cs5 d5 fs5 a5)(s f5 fs5 a5 c6)(s gs5 a5 c6 e6)(s b4 c5 e5 gs5);D7
(s fs5 g5 b5 d6)(s bb4 b4 d5 fs5)(s eb5 e5 gs5 b5)(s g5 gs5 b5 d6);GM7/E7
(s gs4 a4 c5 e5)(s b4 c5 e5 g5)(s cs5 d5 fs5 a5)(s f5 fs5 a5 c6)));Am7/D7



(make-omn
:pitch (find-bar '(1 4 8 12 16 20 24 28 32 36 40 44) (omn :pitch alice-chord4))
:length (omn-to-time-signature (gen-repeat 12 '(e. s -q -q e. s -q -q e. s -q -q e. s -q -q)) '(4 4))
)

 

Best,

Julio

[david]

Hi Julio,

It's nice to see someone around here.

 

for simplicity take his pitches please, I'm sure you'll understand

 

(setf alice-chord3

'((s g4 b4 d5 g5)(s b4 d5 fs5 b5)(s d5 fs5 a5 d6)(s a4 cs5 e5 a5);Gmaj7

(s fs4 a4 c5 fs5) (s a4 c5 e5 a5)(s b4 eb5 fs5 b5)(s eb5 fs5 a5 eb6); F#m7b5/ B7

(s e5 g5 b5 e6) (s g4 b4 d5 g5) (s a4 cs5 e5 a5)(s cs5 e5 g5 cs6);Em7/A7

(s d5 f5 a5 d6)(s f5 a5 c6 f6)(s g4 b4 d5 g5)(s b4 d5 f5 b5);Dm7/G7

(s c5 e5 g5 c6)(s e5 g5 bb5 e6)(s g4 bb4 d5 g5)(s bb4 d5 fs5 bb5);C7

(s c5 eb5 g5 c6)(s eb5 g5 bb5 eb6)(s f5 a5 c6 f6)(s a4 c5 eb5 a5);Cm7/F7

(s b4 d5 fs5 b5)(s d5 fs5 a5 d6)(s e5 gs5 b5 e6)(s gs4 b4 d5 gs5);Bm7/E7

(s bb4 cs5 f5 bb5)(s db5 f5 ab5 db6)(s eb5 g5 bb5 eb6)(s g4 bb4 db5 g5);Bbm7/Eb7

(s a4 c5 e5 a5)(s c5 e5 g5 c6)(s e5 g5 b5 e6)(s g4 b4 d5 g5);Am7

(s d5 fs5 a5 d6)(s fs5 a5 c6 fs6)(s a4 c5 e5 a5)(s c5 e5 gs5 c6);D7

(s g4 b4 d5 g5)(s b4 d5 fs5 b5)(s e5 gs5 b5 e6)(s gs4 b4 d5 gs5);Gmaj7/E7

(s a4 c5 e5 a5)(s c5 e5 g5 c6)(s d5 fs5 a5 d6)(s fs4 a4 c5 fs5)));Am7/D7

 

I modified gen-repeat 4 to get 12 bars.

(make-omn
:pitch (find-bar '(1 4 8 12 16 20 24 28 32 36 40 44) (omn :pitch alice-chord3))
:length (omn-to-time-signature (gen-repeat 4 '(e. s -q -q e. s -q -q e. s -q -q e. s -q -q)) '(4 4))
)

 

After Pprint Expression..........the notes are offset from the chords

(setf Juilo
      '(#|1|# (e. g4 s b4 -q - e. d5 s g5)
        #|2|# (-q - e. a4 s cs5 -q)
        #|3|# (-q e. eb5 s fs5 -q -)
        #|4|# (e. cs5 s e5 -q - e. g5 s cs6)
        #|5|# (-q - e. b4 s d5 -q)
        #|6|# (-q e. bb4 s d5 -q -)
        #|7|# (e. a4 s c5 -q - e. eb5 s a5)
        #|8|# (-q - e. gs4 s b4 -q)
        #|9|# (-q e. g4 s bb4 -q -)
        #|10|# (e. g4 s b4 -q - e. d5 s g5)
        #|11|# (-q - e. c5 s e5 -q)
        #|12|# (-q e. gs4 s b4 -q -)
        ))

 

After Pprint Expression manually we must find this result

it corresponds to each time of alice-chord3

 

(setf david
      '(#|1|# (e. g4 s b4 -h e. a4 s cs5)
        #|2|# (-h e. b4 s eb5 -q)
        #|3|# (-q e. g4 s b4 -h)
        #|4|# (e. d5 s f5 -h e. b4 s d5)
        #|5|# (-h e. g4 s bb4 -q)
        #|6|# (-q e. eb5 s g5 -h)
        #|7|# (e. b4 s d5 -h e. gs4 s b4)
        #|8|# (-h e. eb5 s g5 -q)
        #|9|# (-q e. c5 s e5 -h)
        #|10|# (e. d5 s fs5 -h e. c5 s e5)
        #|11|# (-h e. e5 s gs5 -q)
        #|12|# (-q e. c5 s e5 -h)
        ))

 

 

 

I work on rhythmic note groups

my grouping is in 12/4 because it is repeated 4 times to make 12 bars

 

if you look at bar 2 we have a4 and cs4 which corresponds to the reservoir of notes of the first bar

and the note shift continues until the end

[david]

I just want to use the note pool of alice-chord3 for each beat of the blues.

(#|1|# (s g4 b4 d5 g5) first beat of the first bar of the blues
#|4|# (s a4 cs5 e5 a5) 4th beat of the first bar of the blues
#|7|# (s b4 eb5 fs5 b5) 3rd beat of the second bar of the blues
#|10|# (s g4 b4 d5 g5) 2nd beat of the third bar of the blues

etc etc

 

this amounts to saying list alice-chord3 would be like a beat (s g4 b4 d5 g5) first beat of first bar of a blues, this is why I say reservoir

It's an exercise we do instinctively as jazz musicians;-))

[david]

Je pense que je vais me lancer dans le design ;-)))

Voici un schéma encore plus explicite, 

Voici un schéma encore plus explicite, on voit clairement que les notes ne correspondent pas au rythme.

avec ma graine 3 les notes devraient être les premières de chaque liste d'  alice-chord3.

Merci pour votre aide

 

[david]

Hi Julio,

I found this way of doing things, unfortunately, too laborious for my little eyes.

 

(setf alice-chord3 '((s g4 b4 d5 g5)(s b4 d5 fs5 b5)(s d5 fs5 a5 d6)(s a4 cs5 e5 a5)    
(s fs4 a4 c5 fs5) (s a4 c5 e5 a5)(s b4 eb5 fs5 b5)(s eb5 fs5 a5 eb6)
(s e5 g5 b5 e6) (s g4 b4 d5 g5) (s a4 cs5 e5 a5)(s cs5 e5 g5 cs6)
(s d5 f5 a5 d6)(s f5 a5 c6 f6)(s g4 b4 d5 g5)(s b4 d5 f5 b5)
(s c5 e5 g5 c6)(s e5 g5 bb5 e6)(s g4 bb4 d5 g5)(s bb4 d5 fs5 bb5)
(s c5 eb5 g5 c6)(s eb5 g5 bb5 eb6)(s f5 a5 c6 f6)(s a4 c5 eb5 a5)
(s b4 d5 fs5 b5)(s d5 fs5 a5 d6)(s e5 gs5 b5 e6)(s gs4 b4 d5 gs5)
(s bb4 cs5 f5 bb5)(s db5 f5 ab5 db6)(s eb5 g5 bb5 eb6)(s g4 bb4 db5 g5)
(s a4 c5 e5 a5)(s c5 e5 g5 c6)(s e5 g5 b5 e6)(s g4 b4 d5 g5)
(s d5 fs5 a5 d6)(s fs5 a5 c6 fs6)(s a4 c5 e5 a5)(s c5 e5 gs5 c6)
(s g4 b4 d5 g5)(s b4 d5 fs5 b5)(s e5 gs5 b5 e6)(s gs4 b4 d5 gs5)
(s a4 c5 e5 a5)(s c5 e5 g5 c6)(s d5 fs5 a5 d6)(s fs4 a4 c5 fs5)))

 

(setf unis (flatten alice-chord3))

 

(setf une (gen-divide 2 unis))

 

now the notes are perfectly aligned with my rhythm

(setf div1  (omn-to-measure  (make-omn
:pitch (find-bar '(1 2 13 18 25 32 37 43 49 55 61 67 73 79 85 91 92) (omn :pitch une))
:length   (gen-repeat 4 '(e. s -q -q e. s -q -q e. s -q -q e. s -q -q))
:span :length) '(4/4)))

 

too bad the other code doesn't work at the level of the alignment of the notes because it is simpler and especially could be used for other pieces.
I put it here again in case some of you can find the solution.

 

(setf Gr3oc 
      (omn-to-measure (make-omn 
                       :pitch (omn :pitch 
                                   (omn-to-measure 
                                    (loop for x in une
                                          collect (filter-repeat 1 
                                                                   (rnd-order x :type :pitch :seed 3))) 
                                    '(1 1/2 1/2 1/2 1/2 1/2 1/2 1 1/2 1/2 1/2 1/2 1/2 1/2 1 1 1/2 1/2 1/2 1/2))) 
                        :length (omn :length 
                                    (omn-to-measure 
                                     (gen-repeat 4  '(e. s -q -q e. s -q -q e. s -q -q e. s -q -q)) 
                                               
                                     '(1 1/2 1/2 1/2 1/2 1/2 1/2 1 1/2 1/2 1/2 1/2 1/2 1/2 1 1 1/2 1/2 1/2 1/2)))) 4/4))

 

thank you.