jesele

There is one parenthesis too many (after make-omn). Jesper (make-omn :length '(3/16 1/16 3/32 1/4 1/8 3/16 1/16 3/32 -1/8 -1/16 3/16 1/16 3/32 -1/8 -1/16 1/8 3/16 1/16 3/32 -1/8 -3/32 1/16 3/32 -1/8 1/4 1/8 3/16 1/16 3/32 -1/8 -1/16 1/8 3/16 1/16 3/32 -1/8 -1/16 3/8 1/16 3/32 -1/8 1/4 1/8 3/16 1/16 3/32 -1/8 -1/16 3/16 1/16 3/32 -1/8 -1/16 -1/8 3/16 1/16 3/32 -1/4 1/8 3/16 3/32 -1/8 -1/4 1/8 3/16 1/16 3/32 1/4 1/8 1/16 3/32 -1/16 1/16 3/32 -1/8 -1/16 1/4 1/8 3/16 1/16 3/32 1/4 1/8 3/16 1/16 3/32 1/8 3/16 1/16 3/32 -1/8 -1/16) :pitch '(as3.. b3.. d4 gs4. bb1 c2. d2 d2 e2. fs2 a2. c3+ d3 e3. fs3 a3. cs4 d4 e4. fs4 b1.. d2 ds2.. g2 a2.. b2.. d3 ds3.. g3 as3.. b3.. d4 gs4. bb1 c2. d2 d2 e2. fs2 a2. c3+ d3 e3. gs3 a3. cs4 d4 e4. fs4 b1.. d2 ds2.. g2 a2.. b2.. d3 ds3.. g3 as3.. b3.. d4 gs4. bb1 c2. d2 d2 e2.) :velocity '(f mf mf mf mf mf mf mf ff ff mf mf ppp ppp ppp p mf p mf ppp pp ppp mf p mf ppp ppp ppp ppp p pp ppp p p mf pp ppp ppp ppp ppp ppp p ff f ff ff mf ff f ff mf mf ff mf mf ff mf mf mf mf ff f mf ff f mf mf) :articulation '(- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -))

Very nicely done, Stephane. Jesper

Love the video. Jesper

Indeed, thanks, Janusz. Jesper

When re-exporting it from Finale, it opens OK in Dorico and MuseScore. Jesper

Same in Dorico 6. Or rather. Jesper

Personally, I'm happy they are gone. What I mean is, I would rather have Janusz spend time on other things. Jesper

vector-scale works with lists. Jesper ;;;; (vector-scale 1.0 2.0 '(1 2 3 4 5)) (vector-scale 1.0 2.0 '(1 3 6 7)) (defun range (lis min max) (vector-scale (float min) (float max) lis)) (Note that range is already used in OM, so not a good function name.) (range '(1 2 3 4 5) 1 2) => (1.0 1.25 1.5 1.75 2.0) (range '(1 3 6 7) 1 2) => (1.0 1.3333334 1.8333334 2.0) (range '(2 3 6 4 5 8 6 7) 2 3) => (2.0 2.1666667 2.6666667 2.3333333 2.5 3.0 2.6666667 2.8333333) (range '(0.2 0.4 0.7 0.3 0.9) 0.3 1.2) =>(0.3 0.55714286 0.9428572 0.42857146 1.2)

Well done, Julio. Jesper

Hi Julio. You could get the same results with omn-replace I think. Jesper ;; Exemplo 1: Dinâmicas simples (setf expressao-omn '((s eb4 d4 e a4 -s s eb4 tie) (h eb4 a4 -s eb4 d4 -s tie) (e. d4 a4 eb4 d4) (-q e f4 s c5 qs fs4))) (rewrite-dyn expressao-omn '(p mf ff)) ;;slightly different (omn-replace :velocity '(p mf ff) expressao-omn) ;; with span the same (omn-replace :velocity (span expressao-omn '(p mf ff)) expressao-omn) (rewrite-dyn expressao-omn '(ff > p p< ff> pp ff p p< ff p mf ppp p < ff)) (omn-replace :velocity (span expressao-omn '(ff > p p< ff> pp ff p p< ff p mf ppp p < ff)) expressao-omn)

How about functions with more than one argument? Jesper

There's also a more generic option. Jesper (maybe-section (lambda (x) (ambitus '(c7 c8) x)) mat '(23 24 30)) (maybe-section (lambda (x) (pitch-transpose 12 x)) mat '(23 24 30))

Like this, I think. Jesper (setf test (ambitus '(c7 c8) mat :section '(23 24 30)))

Don't know if this simple function will be of use for now. Jesper ;; for single pitches (defun harmonics2 (start-pitch length &key (partial 1) quantize) (let ((sp (pitch-to-hertz start-pitch)) (part (max partial 1)) res) (setf res (loop for i from part to (+ length (1- part)) collect (* i sp))) (if quantize (pitch-to-hertz (micro-quantize (hertz-to-pitch res) :quantize quantize)) res))) (harmonics2 'a2 8) =>(110.0 220.0 330.0 440.0 550.0 660.0 770.0 880.0) (harmonics2 'a2 8 :partial 4) =>(440.0 550.0 660.0 770.0 880.0 990.0 1100.0 1210.0) (harmonics2 'a2 8 :partial 1 :quantize 1/8) =>(110.0 220.0 329.62756 440.0 546.4174 659.2551 772.751 880.0) (mapcar (lambda (x) (harmonics2 x 4)) '(a2 c3 d3)) =>((110.0 220.0 330.0 440.0) (130.81278 261.62555 392.43832 523.2511) (146.83238 293.66476 440.49713 587.3295))

Can't you use merge-voices? From the doc: (setf voice1 '(w c2) voice2 '(h c4 d4) voice3 '(q g5 g5 g5 g5)) (merge-voices voice1 voice2 voice3) =>(z^w c2 z^h c4 q g5 g5 z^h d4 q g5 g5) Jesper