Opusmodus 1.2.21450

[opmo]

Update to MusicXML notation display.

 

Added functions working with OMN events:

GEN-TRIM

(gen-trim 12 '(q c4 mf e d4 e4))

=> (q c4 mf e d4 e4 q c4 e d4 e4 q c4 e d4 e4 q c4 e d4 e4)

 

(gen-trim '(12 4) '((e c4 mf d4) (e e4 mf s f4 g4)))

=> ((e c4 mf d4 c4 d4 c4 d4 c4 d4 c4 d4 c4 d4)

    (e e4 mf s f4 g4 e e4))

 

GEN-REPEAT

(gen-repeat 3 '(s c4 q d4))

=> (s c4 mf q d4 s c4 q d4 s c4 q d4)

 

(gen-repeat '(3) '(q c4 d4 e4 f4 g4 a4))

=> ((q c4 mf c4 c4) (q d4 mf d4 d4) (q e4 mf e4 e4)

    (q f4 mf f4 f4) (q g4 mf g4 g4) (q a4 mf a4 a4))

 

(gen-repeat 3 '((q c4 g4) (s c4 a4)))

=> ((q c4 mf g4) (s c4 mf a4) (q c4 mf g4)

    (s c4 mf a4) (q c4 mf g4) (s c4 mf a4))

 

(gen-repeat '(3) '((q c4 e g4) (s c4 a4) (e b4 d5 q fs5)))

=> ((q c4 mf e g4 q c4 e g4 q c4 e g4)

    (s c4 mf a4 c4 a4 c4 a4)

    (e b4 mf d5 q fs5 e b4 d5 q fs5 e b4 d5 q fs5))

 

(gen-repeat '(3 2) '((q c4 g4) (s c4 a4) (e b4 d5)))

=> ((q c4 mf g4 c4 g4 c4 g4) (s c4 mf a4 c4 a4) (e b4 mf d5 b4 d5 b4 d5))

 

GEN-REPEAT-SEQ

(gen-repeat-seq 8 1 3 '(q c4 mf e cs4 s d4 s ds4))

=> (q c4 mf e cs4 cs4 cs4 s d4 d4 d4 ds4)

 

(gen-repeat-seq

 '(5 2 7 1) 1 2

 '((q c4d4e4f4 p) (s c4 mp fs4)

   (e c4d4e4f4 f) (e c4 fs4 =) (e c4d4e4f4 p)))

 

=> ((q c4d4e4f4 p c4d4e4f4 c4d4e4f4 c4d4e4f4 c4d4e4f4)

    (s c4 mp fs4)

    (e c4d4e4f4 f c4d4e4f4 c4d4e4f4 c4d4e4f4 c4d4e4f4 c4d4e4f4 c4d4e4f4)

    (e c4 f)

    (e c4d4e4f4 p c4d4e4f4 c4d4e4f4 c4d4e4f4 c4d4e4f4))

 

Best wishes,

Janusz