Jump to content

BrianCope

Members
 View Profile  See their activity

  • Posts

    28

  • Joined

  • Last visited

 Content Type 

Posts posted by BrianCope

    Installation problem

    in Support & Troubleshooting

    Posted

    Hello

    I renamed and compressed the OM user folder then deleted the original file as instructed. Updated, opened and entered new registration code but I wasn't asked for permission to create a new user folder in my home directory. All I get is this error message:

     

    Screenshot 2019-01-21 at 10.31.04.png

    Infinity-series applied to scales/modes

    in Support & Troubleshooting

    Posted

    36 minutes ago, AM said:

    i will write you a "merged"-function, takes not a lot of time, then it looks smarter :-)

    do you know how to use USER LIBRARY? very usefull - take a look... then you could import and use it like an ordinary OPMO-function

    Thank you.  No, I've only ever used libraries when working with spectral tools.  I'll have a look.

     

    Best, Brian

    Infinity-series applied to scales/modes

    in Support & Troubleshooting

    Posted

    Thanks André, yes that produces the same sequence as the c major example starting on g4.  Tried it with longer sequences and with different modes:  

    (setf pitch (step-to-pitch :steps (integer-to-interval (reset-seq (infinity-series 2848 '(1 0))))
               :pitches (multiple-expand-tonality :startpitch 'c0
                          :octaves 7
                          :tonality '(minor-hexatonic))
               :start 'g4))

     

    Perfect!! I really appreciate your help with this.  Combined with the new time-swallow it's amazing.

     

    Best wishes

     

    Brian

    Infinity-series applied to scales/modes

    in Support & Troubleshooting

    Posted

    Thanks André, I thought it might be that.  It works now with the integers as they are but I still need to solve the problem of how the infinity-series projects the intervals.  The integers produced by the infinity series work like this http://web.archive.org/web/20070523051434/http://www.pernoergaard.dk:80/eng/strukturer/uendelig/ukonstruktion01.html

     

    So, applying the resultant integers from the infinity-series function doesn't work.  I think the scale mode would need to be built into the function?

     

    Best wishes

     

    Brian

    Infinity-series applied to scales/modes

    in Support & Troubleshooting

    Posted

    Thanks André

     

    I tried to superimpose the first 64 infinity-series onto the c major scale but it kept returning an error?  Also, I couldn't find the tonality-step function? Brian

     

    (step-to-pitch :steps '(0 1 -1 2 1 0 -2 3 -1 2 0 1 2 -1 -3 4 1 0 -2 3 0 1 -1 2 -2 3 1 0 3 -2 -4 5 -1 2 0 1 2 -1 -3 4 0 1 -1 2 1 0 -2 3 2 -1 -3 4 -1 2 0 1 -3 4 2 -1 4 -3 -5 6)
                   :pitches '(c3 d3 e3 f3 g3 a3 b3 c4 d4 e4 f4 g4 a4 b4 c5 d5 e5 f5 g5 a5 b5 c6)
                   :start 'g4)

    Infinity-series applied to scales/modes

    in Support & Troubleshooting

    Posted

    Hello All

     

    As I continue my fascination with the fractal structures contained in Per Norgard's infinity series, I am wondering whether it might be possible to apply the infinity to particular scales or modes?

     

    Say I want to generate an infinity-series based on a pre-existing scales/modes (like in G major) or by any self-defined mode such as  (make-scale 'c2 49  :alt '(1 2 1 1))

     

    Any help much appreciated as always.

     

    Kind regards

     

    Brian

    Help with combining lists

    in Support & Troubleshooting

    Posted

    Hello All

     

    Can anyone help me develop a function which superimposes a rhythm onto a constant list of pitches?

     

    For example, how would I go about superimposing a rhythm like (1/2 1/16 7/16 1/8 3/8 3/16 5/16 1/4 1/4 5/16 3/16 3/8)

     

    on to list of pitches like (infinity-series 100 '(g4 gs4))

    => (g4 gs4 fs4 a4 gs4 g4 f4 bb4 fs4 a4 g4 gs4 a4 fs4 e4 b4 gs4 g4 f4 bb4 g4 gs4 fs4 a4 f4 bb4 gs4 g4 bb4 f4 eb4 c5 fs4 a4 g4 gs4 a4 fs4 e4 b4 g4 gs4 fs4 a4 gs4 g4 f4 bb4 a4 fs4 e4 b4 fs4 a4 g4 gs4 e4 b4 a4 fs4 b4 e4 d4 cs5 gs4 g4 f4 bb4 g4 gs4 fs4 a4 f4 bb4 gs4 g4 bb4 f4 eb4 c5 g4 gs4 fs4 a4 gs4 g4 f4 bb4 fs4 a4 g4 gs4 a4 fs4 e4 b4 f4 bb4 gs4 g4)

     

    So that the melody would be:

    => (g4 gs4 fs4 a4 gs4 g4 f4 bb4 fs4 a4 g4 gs4 a4 fs4 e4 b4 gs4 g4 f4 bb4 g4 gs4 fs4 a4 f4 bb4 gs4 g4 bb4 f4 eb4 c5 fs4 a4 g4 gs4 a4 fs4 e4 b4 g4 gs4 fs4 a4 gs4 g4 f4 bb4

          1/2                                        1/16 7/16                              1/8       3/8                             3/16          5/16                      1/4                  1/4                5/16                      3/16           

    => (1/2 g4 1/16 fs4 7/16 a4 1/8 gs4 3/8 f4 3/16 f4 5/16 g4 1/4 fs4 1/4 a4 5/16 g4 3/16 g4)                 

     

    I want to set each pitch to a constant value, for e.g 1/16 then superimpose the rhythm so that rather than span the rhythm to the pitches, the rhythm swallows the pitches leaving a resultant melody. I hope this makes sense.

     

    Any help gratefully received.

     

    Best wishes

     

    Brian

     

     

    DO-TIMELINE

    in Support & Troubleshooting

    Posted

    Thanks for this.  Nice easy fix.

     

    I'm having another difficulty with do-timeline when trying to do full orchestral score as in the example.  All three DO-TIMELINE return this error message: 

    25 >
> Error: The GET-SPAN output denominator is not a power of two (1, 2, 4, 8, 16, ...). Denominator: 12.
> While executing: (:internal get-time-signature-l get-time-signature), in process Listener-1(7).
> Type cmd-. to abort, cmd-\ for a list of available restarts.
> Type :? for other options.

     

    Silly question I'm sure but where can I adjust the denominator?

     

    Thanks Brian

    DO-TIMELINE

    in Support & Troubleshooting

    Posted

    16 hours ago, opmo said:

    The original length span of each instrument will not change after the DO-TIMELINE process.

    If one of your instrument is 6 bar long (6 x 4/4) and the span of your section is bigger then the rest of the section will have no effect.

     

    Example: 

    
(setf inst '((q c4) (q c4) (q c4) (q c4) (q c4) (q c4) (q c4) (q c4)))

(do-timeline
 '(inst (x - x - x - x - x x x x - x - x - x x x))
 '(pitch-transpose -12 x))

inst
=> ((q c3) (q c4) (q c3) (q c4) (q c3) (q c4) (q c3) (q c4))

     

     

    Thanks for your reply.  So taking your score example from OM below, what would you need to change to double the length to 24 bars?  Each of my partial-rows return 12 pitches each.  Is this the problem? 

    (setf partial1 (library 'tbn-cs3-frames 'partials 'p0))
(setf partial2 (library 'tbn-cs3-frames 'partials 'p1))
(setf partial3 (library 'tbn-cs3-frames 'partials 'p2))
(setf partial4 (library 'tbn-cs3-frames 'partials 'p3))
(setf partial5 (library 'tbn-cs3-frames 'partials 'p4))
(setf partial6 (library 'tbn-cs3-frames 'partials 'p5))

(setf row1 (partial-row partial1))
(setf row2 (partial-row partial2))
(setf row3 (partial-row partial3))
(setf row4 (partial-row partial4))
(setf row5 (partial-row partial5))
(setf row6 (partial-row partial6))

(setf rhy1 (gen-tuplet 1 2 'd '? (gen-repeat 48 '(q)) (rnd-sample 48 '(5 4 3))))
(setf rhy2 (gen-tuplet 1 2 'd '? (gen-repeat 48 '(q)) (rnd-sample 48 '(5 4 3))))
(setf rhy3 (gen-tuplet 1 2 'd '? (gen-repeat 48 '(q)) (rnd-sample 48 '(5 4 3))))
(setf rhy4 (gen-tuplet 1 2 'd '? (gen-repeat 48 '(q)) (rnd-sample 48 '(5 4))))
(setf rhy5 (gen-tuplet 1 4 'd '? (gen-repeat 24 '(h)) (rnd-sample 24 '(3 2))))
(setf rhy6 (gen-tuplet 1 4 'd '? (gen-repeat 24 '(h)) (rnd-sample 24 '(3 2))))

(setf vel (rnd-sample 24 '(pp p mp mf f)))
(setf afl-omn (make-omn :length rhy1 :pitch row1 :velocity vel))
(setf cl-omn  (make-omn :length rhy2 :pitch row2 :velocity vel))
(setf bcl-omn (make-omn :length rhy3 :pitch row3 :velocity vel))
(setf hn-omn  (make-omn :length rhy4 :pitch row4 :velocity vel))
(setf vn-omn  (make-omn :length rhy5 :pitch row5 :velocity vel))
(setf vc-omn  (make-omn :length rhy6 :pitch row6 :velocity vel))

     

    DO-TIMELINE

    in Support & Troubleshooting

    Posted

    On 21 January 2016 at 5:13 PM, Stephane Boussuge said:

    Hi,

     

    may be your base material is 12 bars long ?

     

    S.

     

    the base material is more or less the same as in the score example, I changed the library file and some of the numbers.  I don't the system well enough yet which is why I'm trying to reconfigure some examples.

    B

    DO-TIMELINE

    in Support & Troubleshooting

    Posted

    this is what I have but still only have 12 bars 

    (do-timeline
 '(
   afl nil
   cl  (x - x - x - x - x - x - x x x x x x x x x x x x)
   bcl (- x - x - x - x - x - x - x - x x x x x x x x x)
   hn  t
   vn  (- x - x - x - x - x - x - x x - x x x x x x x x)
   vc  (x - x - x - x - x - x - - - x x x x x x x x x x)
   )
 '(pitch-variant x :variant '?) :time '1/1)
 
(do-timeline
 '(
   afl (x - x - x x - - x - x - x - x - x x - - x - x -)
   cl  (- x - x x - x - - x - x - x - x x - x - - x - x)
   bcl (x x - x x - x - - x - x x x - x x - x - - x - x)
   hn  (x - x x - x - x x - x - x - x x - x - x x - x -)
   vn  (- x x - x - x - - x - x - x x - x - x - - x - x)
   vc  (- x x - x - x - - x - x - x x - x - x - - x - x)
   )
 '(pitch-figurate '(2 3) x) :time '1/1)
 
(do-timeline
 '(
   afl (binary-invert (gen-binary-euclidean 1 48 30 48))
   cl  (binary-invert (gen-binary-euclidean 1 48 30 48))
   bcl (binary-invert (gen-binary-euclidean 1 48 30 48))
   hn  (binary-invert (gen-binary-euclidean 1 48 30 48))
   vn  (binary-invert (gen-binary-euclidean 1 48 30 48))
   vc  (binary-invert (gen-binary-euclidean 1 48 30 48))
   )
 '(gen-pause x) :time (rnd-sample 24 '(1/4 1/2))

     

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy

  I accept