JulioHerrlein Posted December 14, 2021 Share Posted December 14, 2021 I´m having a little problem with ties... (setf tierhythm '((q c5 b4 q. a4 e g4) (q db4 tie e e c4 bb3 ab4 q f4))) But, when I need only the rhythm, a get this... (omn :length tierhythm) some solution ? Best ! Julio Quote Link to comment Share on other sites More sharing options...
JulioHerrlein Posted December 14, 2021 Author Share Posted December 14, 2021 It have influence on other functions, like setf r-guia-count (get-count tierhythm :length :note)) >>(4 6) It was supposed to be (4 5) because of the tie. Quote Link to comment Share on other sites More sharing options...
opmo Posted December 14, 2021 Share Posted December 14, 2021 The tie is a special case and is not part of the length. (setf len (omn-merge-ties '((q c5 b4 q. a4 e g4) (q db4 tie e e c4 bb3 ab4 q f4)))) (omn :length len) => ((1/4 1/4 3/8 1/8) (3/8 1/8 1/8 1/8 1/4)) Example: (disassemble-omn len) => (:length ((1/4 1/4 3/8 1/8) (1/4 1/8 1/8 1/8 1/8 1/4)) :pitch ((c5 b4 a4 g4) (db4 db4 c4 bb3 ab4 f4)) :velocity ((mf mf mf mf) (mf mf mf mf mf mf)) :articulation ((- - - -) (tie - - - - -))) (apply 'make-omn (disassemble-omn len)) => ((q c5 b4 q. a4 e g4) (q db4 tie e e c4 bb3 ab4 q f4)) JulioHerrlein and o_e 1 1 Quote Link to comment Share on other sites More sharing options...
JulioHerrlein Posted December 14, 2021 Author Share Posted December 14, 2021 Thank you. Best, Julio Now I know why some of my lists were out of sync... Best ! Julio Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.