[midi-cc-function // lisp coding problems]

Send me the code please.

[pitch-variation]

I will remove the duplicate notes in a chord before the process. I will add the chord-pitch-unique function into the function.

Will be fixed in the next release.

[pitch-variation]

Of course not, step 0 will not return chords.

 

(pitch-variation 6 1 4 (chord-pitch-unique chords) :type 'c)

 

[Updated library of many custom Opusmodus functions]

I think Torsten needs to make changes to his libraries to work with LW first.

[length-modify]

alternative: length-to-ratio

[length-modify]

(encode-seq '(w q e -e = =))
=> (1 1/4 1/8 -1/8 1/8 1/8)

 

[length-modify]

What are you trying to do (code example input, output). What 'all will do?

[second ( or more) notation views]

Naturally, press + in the top right notation window. 

[change randomly lengths to rests]

Here it is:

 

(defun length-to-rnd-rest (n sequence &key seed)
  (let (state)
    (setf state *init-seed*)
    (setf seed (rnd-seed seed))
    (do-verbose ("length-to-rnd-rest :seed ~s" seed)
      (let* ((len (length sequence))
             (sel (rnd-order
                   (append (gen-repeat n t) (gen-repeat (- len n) nil))
                   :seed (seed)))
             (result (loop for i in sel
                           for j in sequence
                           collect (if (null i) j (* j -1)))))
        (init-state state)
        result))))

 

(setf lengths '(15/16 15/32 1/32 1/32 1/32 61/32 1/32 1/2 1/32 5/32 1/32 13/16 17/32 3/2 9/16 7/16))

(length-to-rnd-rest 5 lengths)
=> (15/16 15/32 1/32 -1/32 1/32 61/32 1/32 -1/2 -1/32 -5/32 1/32 -13/16 17/32 3/2 9/16 7/16)

(length-to-rnd-rest 5 lengths :seed 5)
=> (15/16 -15/32 1/32 1/32 1/32 61/32 1/32 -1/2 1/32 -5/32 1/32 13/16 -17/32 -3/2 9/16 7/16)

 

I could make something more useful with steps, omitting existing rests and of course working with length symbols and events (omn).

[change randomly lengths to rests]

The seed is not part of the function therefore it will return different output each time.

Check the rnd-seed doc for how to apply seed function into your functions.

[Change note color?]

This is not possible.

[Change note color?]

You can change the color in Settings...

[Windows Port?]

This post is about Windows Port?

 

Color can be set in the Settings...

[Windows Port?]

The trial is bound to few things on you machine

[Windows Port?]

Practical Common Lisp

GIGAMONKEYS.COM

 

https://www.tutorialspoint.com/lisp/lisp_tutorial.pdf

 

[Windows Port?]

Without a quote you should get an error.

 

Add quote:

'(e. a4 mordent2 s g4 e a4 q. d5) 

 

[Windows Port?]

What are you evaluating.

Code please.

[arp-down and arp-up still supported in OM3?]

You can't use pitches and articulation elements without length element.

 

(setf protochords (gen-repeat 5 (respell '(q eb2eb4g4bb4 arp-down 
c2c4e4ab4 ab2eb4ab4b4 arp-down d2d4f4a4 arp-down bb2d4f4bb4 arp-down 
g2eb4g4b4 arp-down c2c4eb4g4 arp-down ab2eb4ab4b4 arp-down d2d4gb4a4 arp-down 
bb2d4gb4bb4 arp-down g2d4g4bb4 arp-down c2c4eb4g4 arp-down ab2c4eb4ab4 arp-down 
f2db4f4a4 arp-down bb2db4f4bb4 arp-down g2d4g4bb4 arp-down eb2eb4gb4bb4 arp-down 
ab2c4eb4ab4 arp-down f2db4f4a4 arp-down d2d4f4a4 arp-down g2d4g4bb4 arp-down 
eb2eb4g4bb4 arp-down))))

[Revert to Musescore 3 automatic opening in Editor]

(defparameter *default-notation-editor* "MuseScore 3.app")

 

You find the instruction in the musicxml-to-editor doc.

[Windows Port?]

Perfect time for it

[articulations with microtonality]

I thought the microtone was not working. 

I will look into the articulations.

[articulations with microtonality]

I checked it and all works fine.

Remember, the pitch-bend controller needs to be on on the virtual instruments.

[articulations with microtonality]

Will have a look, looks like a bug.

[Having trouble getting code to run without errors]

Place the coursor on the end of the expression and press cmd-1

 

(tonnetz '(c4e4g4) transition
         :net 11
         :join 1
         :rotate rotation)

 

I would suggest to contact Stephane and take a introduction lesson.

All example in the How-to etc... are working

 

I copied the code and I don't see any errors:

(setf pitches '(c4 cs4 fs4 g4 c5))
(setf p-transp (pitch-transpose (pitch-to-integer pitches) (gen-repeat 5 (list pitches))))
(setf r-transp (gen-retrograde p-transp :flatten t))
(setf c-ambitus (ambitus '(c2 c3) p-transp))
(setf p-ambitus (ambitus '(c2 c3) p-transp :type :flat-invert))
(setf s-ambitus (ambitus '((c2 c3) (b2 f3) (g3 cs4) (fs4 g5) (c4 c5)) p-transp))
(setf lengths (span p-transp '(1/8)))
(setf interlude (span s-ambitus '(1/16)))
(setf dynamics (mclist '(p mp mf f ff)))
(setq r-dynamics (mclist '(ff f mf mp p)))

(setf p-rh1 (make-omn
             :length lengths
             :pitch p-transp
             :velocity dynamics))

(setf p-lh1 (make-omn
             :length lengths
             :pitch c-ambitus
             :velocity dynamics))

(setf p-rh2 (make-omn
             :length interlude
             :pitch s-ambitus
             :velocity r-dynamics))

(setf p-lh2 (gen-pause p-rh2 :section '(0 1 2 3 4)))

(setf p-rh3 (make-omn
             :length lengths
             :pitch r-transp
             :velocity dynamics))

(setf p-lh3 (make-omn
             :length lengths
             :pitch p-ambitus
             :velocity dynamics))

(setf rh-1 (assemble-seq p-rh1 p-rh2 p-rh3))
(setf lh-1 (assemble-seq p-lh1 p-lh2 p-lh3))

(setf timesigs (get-time-signature rh-1 :group '((5))))

(def-score lesson-16
           (:key-signature 'chromatic
            :time-signature timesigs
            :flexible-clef t
            :tempo 80
            :layout (piano-layout 'piano-rh 'piano-lh))
  
  (piano-rh
   :omn rh-1
   :channel 1
   :sound 'gm
   :program 'acoustic-grand-piano)
  
  (piano-lh
   :omn lh-1)
  )

 

Quit and restart the app and run the code from above.

[articulations with microtonality]

Without the code not possible to see the problem.