can anyone help me to get rid of the tied quarters (see in score) in context with triplets and merge them to single lengths?

Thanks in advance,

Achim

;; view with cmd-1
(progn
 (init-seed 123)
 (setf events 80)
 (setf data (half-sine events 1))
 (setf map (gen-tendency events (gen-integer 6 16)))
 (setf lengths (quantize (vector-map map data) '(1 2 3 4)))
 )
; end of progn

I'm working on a score for solo contrabass.

Here is where I arrived, and I cannot generate an xml score out of it:

(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 '(- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -)))

and this is the error I'm getting:

Error: Undefined operator :length in form (:length (quote (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 ...)) :pitch (quote (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. ...)) :velocity (quote (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 ...)) :articulation (quote (- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ...))).

1 (continue) Try invoking :length again.

2 Return some values from the form (:length (quote (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 ...)) :pitch (quote (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. ...)) :velocity (quote (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 ...)) :articulation (quote (- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ...))).

3 Try invoking length with the same arguments.

4 Set the symbol-function of :length to the symbol-function of length.

5 Try invoking something other than :length with the same arguments.

6 Set the symbol-function of :length to another function.

7 Set the macro-function of :length to another function.

8 (abort) Return to top loop level 0.

Type :b for backtrace, or :c <option number> to proceed, or :a to abort.

Type :bug-form "<subject>" for a bug report template or :? for other options.

Thanks for help, Achim

(setf lengths
      (flatten
       (loop with seed = (init-seed 123)
             ;; random number of quarters
             with quarterlist = (rnd-sum-to-size
                                 96 28
                                 '(2 3 4 5 6 7 8))
             ;; tuplet denominator for 1/4
             with division = 5
             ;; tuplet denominator per 4/4 measure
             with tup = (* division 4)
             for quarters in quarterlist
             ;; random number (numerator for rest)
             for rand = (rndn 1 1 (1- division))
             ;; rest (part of a tuplet)
             for rest = (/ rand tup)
             ;; overall duration - rest
             for dur = (- (/ (* division quarters) tup) rest)
             collect (quantize (list (* -1 rest) dur)
                               '(1 2 4 5) :type :ratio))))

(The layout documentation has no explicit description about, how to notate more than one voice in one system.)

Thanks for help.
Achim

does anyone has by any chance a drum kit def-score template which is compatible with Musescores Instruments "Drum Kit (large)"?

Thanks for help.

Achim

Thanks,

-Beth

I think that a practical thing would be having the omn file from the MusicXML To Score to be automatically saved in the same folder where the corresponding MusicXML file is located. I´m using a folder for each composition or draft and in this folder I locate everything related to that composition, like the Musescore Files, the PDF Files and research material, the midi, the OPMO files, etc.

Would be handy to have this option.

Can it be programed in some user preferences LISP config file ?
Thanks a lot !!

Julio

How can I do that?

Most importantly: where in the documentation can I find how to do that?

I wasn't able to find anything in the docs, so eventually I buckled and used the built-in ChatGPT. It's hard to determine if I'm doing something wrong, or it's just hallucinating. It kept suggesting I use make-system, which I can't tell if that's even a thing. It has never been mentioned on this forum.

I'm seeing that some of my pitches in OMN are getting re-spelled in def-score. The score below shows that in a score in d minor, the c-sharps are notated as d-flats. If I just view the OMN as a snippet, it's rendered properly. Is there some function I can apply or some parameter in def-score I can pass to force the accidentals to be rendered exactly as I specify in the OMN?

My score:

(progn

(setf main-lh-ver-01 '( (q d2 stacc h d3f3a3 ten) (q e2 stacc h e3g3cs4 ten) (q f2 stacc h f3a3d4 ten) (q fs2 stacc h eb3a3c4 ten)

(q g2 stacc h d3g3bb3 ten) (q gs2 stacc h d3f3b3 ten) (q a2 stacc h e3a3cs4 ten) (-h.)))

;(gen-repeat 2 main-lh-ver-01)

(def-score waltz-score-example (:title "Waltz Chaconne"

:key-signature '(d minor)

:time-signature '(3 4)

:tempo 160

:layout (bass-layout 'lh))

(lh :omn (gen-repeat 4 main-lh-ver-01)

:channel 1

:sound 'gm

:program 'acoustic-grand-piano)

)

)

If I view the Snippet here:
(setf main-lh-ver-01 '( (q d2 stacc h d3f3a3 ten) (q e2 stacc h e3g3cs4 ten) (q f2 stacc h f3a3d4 ten) (q fs2 stacc h eb3a3c4 ten)

(q g2 stacc h d3g3bb3 ten) (q gs2 stacc h d3f3b3 ten) (q a2 stacc h e3a3cs4 ten) (-h.)))

it's rendered correctly:

In the score rendered with def-score, I get this:

It's probably something obvious, but I've searched the forum and RTFM'ed with little success.

Thanks!

Paul

Tablature is part of the musicxml standard. It´s also important in baroque guitar and also for dealing with finger mechanisms in the guitar, like fingering combinations, etc.

Can it be generated in Opusmodus, there is a TAB clef available ?

Thanks a lot !

Julio

Thank you

Patrick

My results with import of notation into Dorico 5 is *very* disappointing.  I imagine it is my lack of practice with this.  Some scores will show only the first few notes and then an open framework (flow) full of rests after that.  The results in other software are better, but also present the composer with a massive editing job to fix notation issues.

I have used the technique that Stephane suggested to open first in Musescore 4 and then export again and THEN open in Dorico, etc.

I would like to know how others on the Windows platform are doing with XML import (Dorico, etc.) and exchange ideas.  If anyone is working on this please message me if you have time to do so.  We can hope that this aspect becomes more and more effective as time goes on - it would be a great help to the creative process and would save us a great deal of time.
 

Happy composing!

I found this today. The red playback bar in the snippet does not follow the repeats and end1 and end2 in this example.

The sound and score is right, just the red playback bar of the notation engine does not follow correctly. 

   '((-h. q b5)
        (repeat
         (q g5 a5 e. g5 s fs5 e. e5 s fs5)
         (s g5 a5 g5 a5 e. tr2-x t g5 a5 q b5 e. b5 s c6)
         (q d6 s c6 e b5 s a5 q g5 e a5 b5)
         (end1 (qs c6 t d6 e6 s c6 b5 q b5 comma b5))
         (end2 (qs c6 t d6 e6 s c6 b5 q b5 comma d6)))
        (q e6 e d6 t c6 b5 s c6 e b5 a5 g5 a5)
        (q b5 a5 g5 b5)
        (q b5 b5 a5 g5)
        (h fs5 e5)
        (q g5 fs5 h e5)
        (h. d5 q d5)
        (q g5 g5 a5 a5)
        (h. b5 q c6)
        (q b5 a5 g5 e. e5 s fs5)
        (q g5 fs5 e5))

1. generate by add-cents-tuning-to-text-atrributes the cent values into text-attributes (only one time), you could decide if it will be shown in the score "as CENTS or as FLOAT"

2. now you could write your CENTS for tuning into OMN-attributes like 50ct, -34ct ...also in combination with other text-attributes legno+50ct, pizz+-65ct, -45ct+batt

3. you could EXTRACT afterwards your LIST for TUNING directly from OMN by   get-tuning-from-omn*.if an EVENT has no cent-attribute it will be unchangend (= 0 cents)

;;; -------------------------------------------------------------------------------------------------------------------
;;; -------------------------------------------------------------------------------------------------------------------
;;; this function adds CENTS or FLOATS to text-attributes, in this way you can notate 
;;; - have a look how it's written in the score -> all combinations of attributes possible
;;; -------------------------------------------------------------------------------------------------------------------
;;; -------------------------------------------------------------------------------------------------------------------


(defun add-cents-tuning-to-text-atrributes (&key (centlist nil) (type nil))
  (loop for i in (loop for x in (if (null centlist)
                                  (append (loop for i from 0 upto 99 collect i) (loop for i from 1 upto 99 collect (neg! i)))
                                  centlist)
                   collect (compress (list x 'ct)))
    append (add-text-attributes (list i (write-to-string (if (equal type :float) 
                                                           (float (/ (append (compress (if (equal (car (explode i)) '-)
                                                                                         (if (= (length (explode i)) 5)
                                                                                           (filter-first 3 (explode i))
                                                                                           (filter-first 2 (explode i)))
                                                                                         (if (= (length (explode i)) 4)
                                                                                           (filter-first 2 (explode i))
                                                                                           (filter-first 1 (explode i)))
                                                                                         ))) 100))
                                                           i))))))




;;; EXAMPLES

(add-cents-tuning-to-text-atrributes :type :float)
;; have a look to notation: cmd3
(-q -q  e c4 fff q c4 mf 50ct e c4 mf -40ct e c5 ff)


(add-cents-tuning-to-text-atrributes :type :cents) ;; cents are written
;; have a look to notation: cmd3
(-q -q  e c4 fff q c4 mf 50ct e c4 mf -40ct e c5 ff)



;;; -------------------------------------------------------------------------------------------------------------------
;;; -------------------------------------------------------------------------------------------------------------------
;;; this function get out all notated microtones for TUNING ;;; if there is nothing written it will be 0 cents (0)
;;; you can combine all kinds of attributes
;;; -------------------------------------------------------------------------------------------------------------------
;;; -------------------------------------------------------------------------------------------------------------------

(defun memberp (n liste)
  (not (equal 'nil (member n liste))))

(defun find-duplicates (lst)
  (cond ((null lst) '())
        ((member (car lst) (cdr lst)) (cons (car lst) (find-duplicates (cdr lst))))
        (t (find-duplicates (cdr lst)))))


(defun get-tuning-from-omn* (omnlist centlist)
  (loop for i in (single-events (length-rest-remove omnlist))
    with n = 0
    when (not (null (find-duplicates (append (disjoin-attributes (car (last i))) centlist))))
    do (setf n  (float (/ (append (compress 
                                   (remove-if-not #'numberp (explode (car 
                                                                      (find-duplicates 
                                                                       (append (disjoin-attributes (car (last i)))
                                                                               centlist))))))) 
                          100)))

    and collect (if (equal (car (explode (car (find-duplicates  (append (disjoin-attributes (car (last i))) 
                                                                        centlist)))))
                           '-)
                  (* -1 n)
                  n)

    else collect 0))





;;; EXAMPLES

(setf centlist (add-cents-tuning-to-text-atrributes :type :float))

;;; evaluate this and you will get the tuning-list with all combinations of attributes
(get-tuning-from-omn* '(-q -q  e c4 fff q c4 mf legno+50ct+num1 e c4 mf -50ct+legno+batt e c5 ff pizz+-34ct) centlist)
=> (0 0.5 0.5 -0.34)

(get-tuning-from-omn* '(-q -q  e c4 fff -34ct+pizz q c4 mf legno+50ct e c4 mf -50ct+legno+batt e c5 ff pizz+-34ct) centlist)
=> (-0.34 0.5 -0.5 -0.34)

(get-tuning-from-omn* '(-q -q  e c4 fff -34ct+pizz+num11 q c4 mf legno+50ct e c4 mf -50ct+legno+batt e c5 ff pizz+-34ct) centlist)
=> (-0.34 0.5 -0.5 -0.34)



;;; cmd3 for LAYOUT/SCORE
(-q -q  e c4 fff -34ct+pizz+num11 q c4 mf legno+50ct e c4 mf -50ct+legno+batt e c5 ff pizz+-34ct)
(-q -q  e c4 fff q c4 mf legno+50ct+num1 e c4 mf -50ct+legno+batt+num2 e c5 ff pizz+legno+-34ct)

I have the following as output from an algorithm.

Can anyone help put me in the right direction for combining these two voices into a more legible format?  There are two OMN lists - two voices.  One is "delayed" by 5s from the other and is in 16th notes while the lead voice is in 32nd notes.

Any suggestion would be appreciated.

I'm not sure whether running the two inside (list sequence :cc) form in ps works? The code doesn't throw an error but doesn't work properly only the second :cc seems to work. If not possible within ps, how would one do this within def-score? I presume that it's possible to generate multiple :cc controls within a def-score. Ideally, I'd like to be able to use ps as this is great for sketching ideas quickly.

Here's the simple example I'm working on. As noted, the code doesn't throw an error - which is why I think it might be possible - but the first :cc 1 controller is not working on the VI, only the second :cc 21 controller is working.

(ps 'r-ens
:sf-vn1a (list (ambitus 'violin genner-vel) 
:cc '(1 (gen-dynamic-controller genner-vel :scale '(0.5 0.6 0.7) :loop t)) 
:cc '(21 (gen-dynamic-controller genner-vel :scale '(0.5 0.6 0.7) :loop t)))
:time-signature '(3 2)
:tempo 110)

Any ideas, advice? What am I missing?

Many thanks

Andrew

I think I found a problem with displaying certain tuplets. If I write the following sequence of ratios, it can#t be displayed properly

'(-3w 9w = = -3w)

In the notation viewer, the time-signature is always 1/3+1/3+1/3, and I didn't a way to change it to 4/4.

I tried also to write '(-9w - - = = = - - -), but it's being shortened automaticly.

I'm sure it's related to the rounding of the floating values:

'(3w = = ) --> sum of floatingvalues: 3.9989999 | displayed properly with 4/4

'(-3w 9w = = -3w) --> sum of floatingvalues: 3.998 | displayed wrong.

Anyone, who knows to switch of either the rounding or the shortening of fractions?

greetings, gustav

could someone help me

here's a blues;-)

(setf blues '((-e e a5 -e e fs5 g5 e5 d5 bs4)(3e cs5 3e d5 3e cs5 e b4 q as4 tie e as4 fs4 3e cs5 d5 cs5 e a4)(e b4 cs5 d5 e5 fs5 e5 d5 cs5)(e c5 e4 g4 b4 bb4 fs4 d4 c4)(q b3 -q 3e a4 3e bb4 3e a4 e fs4 e g4 a4)(e bb4 b4 c5 cs5 d5 bb4 g4 es4)(e fs4 a4 3q b4 cs5 e5 e cs5 d5 fs5 a5)(e bb5 s a5 ab5 e g5 eb5 c5 ab4 g4 f4)(e e4 g4 b4 d5 b4 bs4 cs5 a4)(e b4 g4 e4 a4 fs4 g4 b4 d5)(e fs5 f5 cs5 a4 q d5 -e e cs5)(e c5 d5 e5 g5 bb5 3e g5 3e f5 3e d5 e c5 g4)))

;;; transpose loop is ok
(setf looptrans (loop for i in '(0 5) 
      append (pitch-transpose i blues)))

;;;main task applied to all measurements with notation error bar 2-7-12-14-19-24
(setf loopbars   (loop for bar in looptrans collect ;;or append
               (list (filter-repeat 1 (rnd-order (first (gen-divide 4 bar))
               :type :pitch :seed 3) :type :pitch) 
               (filter-repeat 1 (rnd-order (second (gen-divide 4 bar))
               :type :pitch :seed 3) :type :pitch))))

I did some text attributes for displaying chord symbols but when I use the make-omn, I don´t know how to retrieve the chord symbols.

I´d like to use this for a a lesson. The display of chords is good, but I need also to chaneg the chord lengths to create some examples. The ideia is to create automatic harmonizations using pre-defined voicings.

 I know that I filtered out the attributes in the make-omn expression below, but how can I retrieve the chord symbols and change the lengths ?

Thanks for the help !

Best,

Julio

Here is the code

(add-text-attributes
 '(Am7 "Am7")
 '(C6 "C6")
 '(E7b9 "E7b9")
 '(Gsdim7 "G#o")
 '(G7 "G7")
 '(G7-13 "G7(13)")
 '(Cs7s9 "C#7(#9)")
 '(Bhd "Bm7b5")
 '(Dm7 "Dm7")
 '(Fmaj7 "Fmaj7")
 '(G74b9 "G7,4(b9)") 
)

(setf C-chords '((w a2g3c4e4 am7) (w c3a3e4g4 c6) (w e3gs3d4f4 e7b9) (w gs2f3b3d4 gsdim7) (w g2f3b3e4 g7-13) (w cs3f3b3e4 cs7s9) (w b2f3a3d4 bhd) (w d3a3c4f4 dm7) (w f3c4e4a4 fmaj7)))

;; I know that I filtered out the attributes in the expression below, but how can I retrieve the chord symbols and change the lengths ?

(make-omn 
:pitch (omn :pitch C-chords)
:length '((e e e eh) (h w))
:span :length
)

CHORD SYMBLOS BEFORE

Looks good !