score Fibonacci's Meditation

[Stephane Boussuge]

An ambient piece based on a Fibonacci series.

 

SB.

FibonacciMeditation.opmo

[RST]

This is very inspiring, Stephane!

 

[Stephane Boussuge]

Thank you Robert 

 

S.

[RevJames]

This looks really interesting! I just downloaded the .opmo file to try to better understand, but can get no sound. Am I missing something critical?

[Stephane Boussuge]

No, it is normal you didn't get any sound because the sound goes through ports to my host and plugins.

 

I share the score here for study purposes but if you want to get at least gm sound, just comment or suppress the :port 0 expressions.

 

S.

[RevJames]

So, even if I am changing the ports to the LoopMIDI ports assigned to MY DAW, this would produce no sound? That has not been the case with other study examples I have so far worked with.

[Stephane Boussuge]

2 hours ago, RevJames said:

So, even if I am changing the ports to the LoopMIDI ports assigned to MY DAW, this would produce no sound? That has not been the case with other study examples I have so far worked with.

Normally it has to produce sound.

Did you get some error messages ?

 

[david]

Hello Stéphane,

it is very beautiful!

yes I have errors

> Error: Undefined function RND-RANGE called with arguments (48 2000) .
> While executing: CCL::CHEAP-EVAL-IN-ENVIRONMENT, in process Listener-1(7).
> Type cmd-/ to continue, cmd-. to abort, cmd-\ for a list of available restarts.
> If continued: Retry applying RND-RANGE to (48 2000).
> Type :? for other options.

[Stephane Boussuge]

I see,

rnd-range is an old name for the actual function RND-ROUND.

 

Replace all functions rnd-range by rnd-round.

 

S.

[RevJames]

yes, that was it, and it now runs the script.
i still don't quite see why i cant route this to my DAW and listen to it. Attached is my current edit. Anyone see why this would be so? newbie question, sorry ...

Fibonacci Meditation STUDY DOC.opmo

[Stephane Boussuge]

All fine in your file.

 

Try (midi-destinations) into the listener to check your midi ports.

 

SB.

[david]

i have this error

 Error: Unexpected end of file on #<STRING-INPUT-STREAM  #x302003D7018D>, near position 3348, within "\" 
>          )
>        
>        )
>        "
> While executing: CCL::READ-CHAR-INTERNAL, in process Listener-2(8).
> Type cmd-. to abort, cmd-\ for a list of available restarts.
> Type :? for other options.

now i have score but no sound, to get the sound in gm,  how do i change the port?

[RevJames]

ports are fine it seems. used (midi-destinations) to check, and all available ports are there. strange.

[Stephane Boussuge]

1 hour ago, david said:

 

now i have score but no sound, to get the sound in gm,  how do i change the port?

 

To get the sound in GM, just remove all the :port 0.

[RevJames]

I understand. That is not what I am looking to accomplish. Thank you for your help!

[RevJames]

I can call up the notation + sound as well for snippets, and it sends to the proper port in my DAW  ...  but neither notation nor sound comes up when I "Evaluate Score".

[Stephane Boussuge]

Hi,

Did you success with other files ?

Did you try (midi-destinations) function listener to find the correct number of the midi port used by your DAW ?

 

Once this number found, evaluate the following score and replace the number in :port 0 by the number of your midi port to your DAW to test it.

 

(def-score temp 
           (
            :key-signature 'chromatic 
            :time-signature '(4 4) 
            :tempo 120
            )
            


(inst1
 :omn '((q c4 d4 e4 f4)(q g4 a4 b4 c5))
 :channel 1
 :port 0

 )
)

 SB.

[RevJames]

YES. ALL OF THIS WORKS WITH OTHER FILES.

 

and as I said, I can run the script and play snippets, and see the notation  ...  but when I run the script to evaluate score, the script runs, and then nothing.

[Stephane Boussuge]

Please do (midi-destinations) in listener and send me a screenshot of the result.

 

[RevJames]

here is screenshot

[Stephane Boussuge]

Ok, i suppose your DAW is connected to "looMIDI Port" so you have to use :port 1 .

My example above just send to your Microsoft GM wavetable but not to your DAW.

Naturally, if you DAW is connected to  "looMIDI Port 1" , it is :port 2 according to your setup and "looMIDI Port 2" = :port 3 etc...

So, in FiboMedit file, you have to set up the port on 1 (if DAW connected "looMIDI Port") like that:

 

(setf size 48)
;; define the high value for fibonacci serie
(setf fiboharmup (rnd-round size 2000))
;; define low val
(setf fiboharmbase (- fiboharmup size))
;; Fibo definition
(setf fibo (modus (fibonacci fiboharmbase fiboharmup) :mod 12))
;; Transform to pitch
(setf pmat (integer-to-pitch fibo))
;; define chords size for harmonic mapping
(setf chordsize 4)
;; chords generation
(setf chords (gen-chord2 size chordsize pmat :offset (vector-to-list
                                                      (vector-round 3 chordsize fibo))
                         :transpose (vector-to-list 
                                     (vector-round -6 12 fibo))))
;;Hamonic path definition
(setf path (tonality-series chords))
;; Make some parts
(setf pad1* (tonality-map path (gen-repeat (/ size 4) '((4/1 c4g4c5e5g5)))))
(setf pad2* (tonality-map path (gen-repeat (/ size 4) '((4/1 c3g3c4e4g4)))))

(setf arpbase1 
                (make-omn
                 :pitch (integer-to-pitch (gen-trim 64 fibo))
                 :length (list (length-span 4 (binary-map (modus fibo :mod 2) (gen-repeat 16 's))))
                ))
(setf arp1* (tonality-map path (gen-repeat (/ size 4) arpbase1)))
(setf arpbase2 
                (make-omn
                 :pitch (integer-to-pitch (gen-trim 64 (gen-rotate 8 fibo)))
                 :length (list (length-span 4 (binary-map (modus (gen-rotate 8 fibo) :mod 2) (gen-repeat 16 's))))
                 ))
(setf arp2* (tonality-map path (gen-repeat (/ size 4) arpbase2)))


;; Instrumentation et timeline
(setf  
 pad1 pad1*
 arp1 arp1*
 arp2 arp2*
 pad2 pad1*
 pad3 pad2*
)

(setf fibobase1 (rnd-round size 2000))
(setf fibomute1 (substitute-map 
                 '(x -) '(0 1)
                 (modus (fibonacci (- fibobase1 size) fibobase1) :mod 2)))
(setf fibobase2 (rnd-round size 2000))
(setf fibomute2 (substitute-map 
                 '(x -) '(0 1)
                 (modus (fibonacci (- fibobase2 size) fibobase2) :mod 2)))
(setf fibobase3 (rnd-round size 2000))
(setf fibomute3 (substitute-map 
                 '(x -) '(0 1)
                 (modus (fibonacci (- fibobase3 size) fibobase3) :mod 2)))
(setf fibobase4 (rnd-round size 2000))
(setf fibomute4 (substitute-map 
                 '(x -) '(0 1)
                 (modus (fibonacci (- fibobase4 size) fibobase4) :mod 2)))
(setf fibobase5 (rnd-round size 2000))
(setf fibomute5 (substitute-map 
                 '(x -) '(0 1)
                 (modus (fibonacci (- fibobase5 size) fibobase5) :mod 2)))
(setf fibobase6 (rnd-round size 2000))
(setf fibomute6 (substitute-map 
                 '(x -) '(0 1)
                 (modus (fibonacci (- fibobase6 size) fibobase6) :mod 2)))

(do-timeline 
 '(
   pad1 fibomute1
   arp1 fibomute2
   arp2 fibomute3
   pad2 fibomute4
   pad3 fibomute5
   )
 '(gen-pause x) :time 4/1)


;; Score definition
(def-score fibomeditation
           (
            :title "Fibonacci's Meditation"
            :key-signature 'chromatic
            :time-signature '(4 4)
            :composer "S.Boussuge"
            :copyright "Copyright © 2015 S.Boussuge"
            :tempo 72
            )

(pad1 :omn pad1 :channel 1 :port 1 :volume 52 :pan 42)
(arp1 :omn arp1 :channel 2 :port 1 :volume 112 :pan 74)
(arp2 :omn arp2 :channel 3 :port 1 :volume 96 :pan 45)
(pad2 :omn pad2 :channel 4 :port 1 :volume 38)
(pad3 :omn pad3 :channel 5 :port 1 :volume 58 :pan 64)
)

 

[RevJames]

yes, and thank you.   I seem to be missing something fundamental here, as, when I evaluate score, no notation appears, and no sound made. Perhaps I need to go further study Opusmodus. Or, perhaps it is not for me. I have no coding background, and it just doesn't feel very intuitive to me. Which is sad. It appears to be a wonderful software.  I just can't justify taking up any more of anyone's time on this.

[Stephane Boussuge]

Opusmodus is for everybody but the start could be difficult indeed.

 

To evaluate, you have to be sure you right click into the score file and choose : "Evaluate score / Notation" and NOT "Evaluate all" because in that case you will get nothing...

 

May be you can take a private lesson with me just for the start or check my videos course, particularly "Introduction to Opusmodus".

 

Appointment for lessons or videos pack lessons are available here:

 

ComposerWorkshop.com

 

 

Best !

 

Stéphane

 

 

[RevJames]

Thanks for that, Stéphane... I was choosing: "Evaluate score/Notation", so I had that right! I am an ambient music composer, and it seems that the promise of OpusModus in that regard would be very powerful ... maybe overkill?  At any rate, I want to keep trying. Maybe, as you said, a lesson or so might be of some help. I'll further consider! And many thanks for your help!

All the best

James

[Stephane Boussuge]

I don't know if it could be the reason but in you study score, I see a (midi-destination) function in the middle of your def-score !!!

 

Try to remove it to see if it was the problem...

 

 

We will find a solution.

 

If you can't find, I will help you by Zoom (for free).

 

Best

 

Stéphane

 

Hi again,

 

here's your file corrected.

Continue to study, you will success.

Best

 

S.

 

Fibonacci Meditation STUDY DOC Correction.opmo