opmo

Here's the file from this session.
 
Enjoy !
 
Stéphane
 
BackToBasics-Def-Score150820.opmo

New release soon.
New symbol * (pedal note or pedal point) added to the counterpoint dictum:
;; Patterns (setf  p1 '(q c4 ds5 d4 eb3)  p2 '(e c4 cs4 d4 ds4 e4 f4 fs4 g4)  p3 '(q g4 c5 e ds4 d3 ds4 c4)  p4 '(5q d2 cs3 - g4 - 3q c3 - fs3 q f4 e3)  ) ;; Counterpoint, methods and polyphony (counterpoint  (list p1 p2 p3 p4)  '(((- 1 2 3) :methods (- i r -))    ((- 4 3 *) :methods (- ri - -))    ((4 * * *) :methods (r - - -))    ((1 * 2 3) :methods (- - i -))    ((* * * *) :methods (- - - -)))  :global-methods '((fl) (t12 cl) (hn) (t-12 vc))  :global-polyphony '(7 p)  :iterate t  :index 'vox) ;; Tempo (setf tempo-changes       (gen-tempo        '(44 72)        '(1 2)        vox1 :seed 34)) ;; Preview Score (ps 'gm     :fl (list vox1)     :cl (list vox2)     :hn (list vox3)     :vc (list vox4)     :tempo tempo-changes     )  

 
best wishes,
Janusz
 

Hi folks,
 
here's the file from this session.
It was quite a challenge to show this piece but I was very happy to share it with all of you .
Enjoy and happy study !
 
Stéphane
 
ZoomOnPluton.opmo

Thank you, guys !!
 
Yes, I try to read all the stuff, but it does not mean I understand it all by myself...🤣🤣🤣🤣🤣🤣
 
And this quarantine is so lonely... I need to talk with you...
 
Fortunately, I have this marvelous forum !! With amazing people !
It´s very cool to have some functions with short "nicknames" !
 
Thanks a lot. I will try this.
 
 
 
 
 
 

More important you can apply the the unfold method to a specific bar or even to an event in a given bar number:
 
Method applied to entire sequence:
(unfold 'name 'method sequence)  
Method1 applied to 2nd bar only:
(unfold 'name '((method1 2) method2) sequence)  
Method1 applied to the 3rd event in the 1st bar:
(unfold 'name '((method1 1 3) method2) sequence)  
Examples:
(setf mat '((s c4 d4 e4 f4 g4) (s c4 d4 e4 f4 g4) (s c4 d4 e4 f4 g4))) (unfold 'om 't7 mat) => ((s g4 a4 b4 c5 d5) (s g4 a4 b4 c5 d5) (s g4 a4 b4 c5 d5)) (unfold 'om '((t-12 1 3) (t-1 2) (r 3)) mat) => ((s c4 mf d4 e3 f4 g4) (s b3 cs4 eb4 e4 fs4) (s g4 f4 e4 d4 c4)) (unfold 'om '? mat) => ((s c4 d4 e4 f4 g4) (s g4 a4 bb4 c5 d5) (s c4 bb3 gs3 g3 f3))  
Why so may users do not read/examine the function documentation.🤓

More important you can apply the the unfold method to a specific bar or even to an event in a given bar number:
 
Method applied to entire sequence:
(unfold 'name 'method sequence)  
Method1 applied to 2nd bar only:
(unfold 'name '((method1 2) method2) sequence)  
Method1 applied to the 3rd event in the 1st bar:
(unfold 'name '((method1 1 3) method2) sequence)  
Examples:
(setf mat '((s c4 d4 e4 f4 g4) (s c4 d4 e4 f4 g4) (s c4 d4 e4 f4 g4))) (unfold 'om 't7 mat) => ((s g4 a4 b4 c5 d5) (s g4 a4 b4 c5 d5) (s g4 a4 b4 c5 d5)) (unfold 'om '((t-12 1 3) (t-1 2) (r 3)) mat) => ((s c4 mf d4 e3 f4 g4) (s b3 cs4 eb4 e4 fs4) (s g4 f4 e4 d4 c4)) (unfold 'om '? mat) => ((s c4 d4 e4 f4 g4) (s g4 a4 bb4 c5 d5) (s c4 bb3 gs3 g3 f3))  
Why so may users do not read/examine the function documentation.🤓

I discovered that the default :key-signature in PS function is set to (C Major) - this is why we get the rewrite.
I will change the default to 'chromatic.

Please make documentation for it, then we can add the chord list into the system and not Libraries.

Please make documentation for it, then we can add the chord list into the system and not Libraries.

5, 7 min is not acceptable 🙂
 
Please send me the entier file with all the chords (compressed by email) and I will have a look.

5, 7 min is not acceptable 🙂
 
Please send me the entier file with all the chords (compressed by email) and I will have a look.

The function FIT-TO-SPAN reduces or expands the total length of the sequence to a given span. If the sequence length is lower than the span value, additional rest values will be added at the end of the sequence by default. With the extend keyword set too 's the rest values will be inserted at the beginning of the sequence.
(fit-to-span 5/4 phrase) => ((h c4 q d4) (q e4 c4))

Variations on "Webern Variationen Fuer Klavier Op.27, I" (2019) by JP
 
   
 
 
Instrument: VSL Steinway D

I made small change to the function to preserve the bars if :extend 's (start).
The :extend 'e (end) works fine.
The fix will be part of the next release.
(setf phrase '((h c4 q d4) (q e4 h f4))) (fit-to-span 5/4 phrase) => ((h c4 q d4) (q e4 f4)) (fit-to-span 5/4 phrase :extend 's) => ((q c4 d4) (q e4 h f4))  

Done in 2.1.25905
 

Done in 2.1.25905
 

As for now the snippet opens only in a Workspace.

I will add this option to the next release.

To save the notation click on the xml file and go to the Menu and select Save.
As you can see all bars are there 🙂
 
repeat.xml

The repeat is part of OMN:
'((q c4 ds4 fs4 a4) (repeat (e c4 cs4 d4 cs4 d4 eb4 e4 f4)) (q a4 fs4 ds4 c4)) '((q c4 ds4 fs4 a4) (repeat (e c4 cs4 d4 cs4) (e d4 eb4 e4 f4)) (q a4 fs4 ds4 c4))  

I am please the fix did the job.

(setf instrument1 (gen-repeat (length chords) '((s g4c4 c4 g4e4 g4 d4 c4 g4f4 g4)))) Nothing change, it needs to be a list with sublists.
 
(gen-repeat 3 '((c4 g4) (c4 a4))) => ((c4 g4) (c4 a4) (c4 g4) (c4 a4) (c4 g4) (c4 a4)) If number is a list then each list is repeat individually. (gen-repeat '(3) '((c4 g4) (c4 a4))) => ((c4 g4 c4 g4 c4 g4) (c4 a4 c4 a4 c4 a4))  

2.1.25892
 
– Fixed:
Stop playback with <Cmd>-<Escape>, will no longer append MIDI entry input as if you were in a chord or the sustain pedal was down.
 
– Changes:
Revised attributes list entry.
Pitch-Bend Down-Half is now assign to attributes.
Pitch-Bend Up-Half is now assign to velocities.
 
– Documentation
Revised MIDI Entry document.
 

 
Best wishes,
Janusz

MIDI ENTRY
 
To start the MIDI input into your score file, select the command MIDI Entry from the Tools menu. When MIDI Entry is ON, the Listener echo bar will change to orange:
 

 
Now you know the MIDI Entry is ON. Depending on the position of the pitch-bend wheel and the modulation wheel as well as the position of the sustain pedal the colour of the Listener echo bar will change.
 
To make the MIDI Entry as functional as possible there are a number of commands that will increase the speed of your work without the need to move away form your MIDI keyboard.
 
Every entry is octave independent, except the pitch entry.
 

 
 Pitch                                  
Enter pitch symbols and chords into your score.
 
 Length and Tuplet                      
Pitch-Bend: Up-Full
C 1 D 1/2 E 1/4 F 1/8 G 1/16 A 1/32 B 1/64 Cs 3 Ds 5 Fs 6 Gs 7 Bb 9  
 Length-rest and Tuplet                 
Pitch-Bend: Down-Full
C -1 D -1/2 E -1/4 F -1/8 G -1/16 A -1/32 B -1/64 Cs -3 Ds -5 Fs -6 Gs -7 Bb -9  
 Velocity                               
Pitch-Bend: UP-Half
C   pppp Cs  ppp D   pp Eb  p E   mp F   mf Fs  f G   ff Gs fff A   ffff Bb < B   >  
 Attribute                              
Pitch-Bend: Down-Half
C stacc Cs ord D marc Eb fermata E mart F ten Fs pizz G leg Gs trem A tie Bb ped1 B ped  
 Microtonality and Commands             
Modulation Wheel: Up
Add a microtonal symbol next to the pitch symbol.
 
F   + G   - A   . B   .. C   parenthesis pair D   open parenthesis E   close parenthesis Cs move forward char Eb move backward char Fs delete backward char Gs undo Bb new line and indent Note: If you enable MIDI input with the modulation wheel up, you need to move it down and up again in order for it to be considered up.
 
Entries with Sustain Pedal Down
 
 Pitch                                  
Add a pitch symbol next to the previous pitch (chord).
 
 Length and Tuplet                      
Pitch-Bend: Up-Full
Add a length entry to the previous length value (combine length).
 
 Length-rest and Tuplet                 
Pitch-Bend: Down-Full
Add a length-rest entry to the previous rest value (combine length).
 
 Velocity                               
Pitch-Bend: Up-Half
Add < or > dynamic symbol to the previous velocity value.
 
 Attribute                              
Pitch-Bend: Down-Half
Add (+) attribute to the previous attribute value (combine attributes).
 
Examples:
c4e4g4 Enter a chord c4e4g4 on your MIDI keyboard or pitch by pitch: c4 e4 g4 with sustain pedal down. (q c4 mp e4 g4) 1. Modulation wheel up then C => () 2. PB-UpF then E => (q) 3. Enter c4 => (q c4) 4. PB-UpH then E => (q c4 mp) 5. Enter e4 then g4 => (q c4 mp e4 g4) (q c4 mp e4 stacc g4 p fermata+trem) 1. Modulation wheel up then C => () 2. PB-UpF then E => (q) 3. Enter c4 => (q c4) 4. PB-UpH then E => (q c4 mp) 5. Enter e4 => (q c4 mp e4) 6. PB-DnH then C => (q c4 mp e4 stacc) 7. Enter g4 => (q c4 mp e4 stacc g4) 8. PB-UpH then Eb => (q c4 mp e4 stacc g4 p) 9. PB-DnH then Eb => (q c4 mp e4 stacc g4 p fermata) 10. PB-DnH then Gs + sustain => (q c4 mp e4 stacc g4 p fermata+trem) (q c4 mp e4 stacc g4 p fermata+trem 3q c4 eb4 fs4) 1. Modulation wheel up then C => () 2. PB-UpF then E => (q) 3. Enter c4 => (q c4) 4. PB-UpH then E => (q c4 mp) 5. Enter e4 => (q c4 mp e4) 6. PB-DnH then C => (q c4 mp e4 stacc) 7. Enter g4 => (q c4 mp e4 stacc g4) 8. PB-UpH then Eb => (q c4 mp e4 stacc g4 p) 9. PB-DnH then Eb => (q c4 mp e4 stacc g4 p fermata) 10. PB-DnH then Gs + sustain => (q c4 mp e4 stacc g4 p fermata+trem) 11. PB-UpF Cs/E (chord) => (q c4 mp e4 stacc g4 p fermata+trem 3q) 12. Enter c4 then eb4 then fs4 => (q c4 mp e4 stacc g4 p fermata+trem 3q c4 eb4 fs4) Best wishes,
Janusz

The MIDI Entry will be explained in the next Zoom into OPUSMODUS session.