o_e

Hi, This works fine: (q f5 leg e f5 turn22+leg s ab5 leg f5 q eb5 leg e. f5 leg s d5) but this does not compile (omn-auditioning) (q f5 leg e f5 cturn22+leg s ab5 leg f5 q eb5 leg e. f5 leg s d5) what I'am missing? thanks ole

Hi, When I type in the following: (q. g2 fp -e -h) I get the following result: the (for me) wrong order of the rests makes it hard to read. Is there a workaround? best ole

I don't get the other shortcut, command+alt+ what? thanks! ole

what I know is that you can mark the function, then press control+tab and than the function will pop up in the most right window. But than you have to open it (one more click). Maybe this can serve as a workaround. best ole

Hi, When I use a midi-file produced by OM in Logic, changes of data like Volume or Panorama I make in Logic are overwritten by the data stored in the midi-file. Is there a way to change this behaviour? Or is there a way to erase all those data in Logic? Thanks for help! best ole

Thanks! I knew it was easy and I had used it before..

Hi, This seems to be a rather simple problem but I can't find a solution myself: I have a list of 16th notes and 16th rests and I want to make sublists every nth 16th (note or rest), like so: (setf list '(1/16 1/16 -1/16 1/16 1/16 1/16 -1/16 1/16 1/16 -1/16 1/16 1/16 1/16 -1/16 1/16 1/16 1/16 -1/16 1/16 1/16 1/16 1/16 1/16 -1/16)) (make-sublists '4 list) -> ((1/16 1/16 -1/16 1/16) (1/16 1/16 -1/16 1/16) (1/16 -1/16 1/16 1/16) (1/16 -1/16 1/16 1/16) (1/16 -1/16 1/16 1/16) (1/16 1/16 1/16 -1/16))thanks for hints, best ole

Thank you Stephane! Only problem is that if my 'timepoints' list is starting with rests than they will be swallowed. But I think I can handle this somehow. ole

Hi, Is there a way to fill in distances between 'time-points' like in the example? Thanks for help! best ole (setf time-points '(e b5 f - - - b5 - - b5 - - - - b5 - b5 - - b5 - - - b5 - - - - a5 - - - - - a5 - - - a5 - - - - a5 - - - a5 - - - a5 - - - - a5 - - - a5 - - - - a5)) (omn :length time-points) ;is there a way to achive this: (setf filled '(4/8 3/8 5/8 2/8 3/8 4/8 5/8 6/8 4/8 5/8 4/8 4/8 5/8 4/8 5/8 1/8)) (setf time-points-filled (make-omn :length filled :pitch (pitch-transpose -12 (omn :pitch time-points)) :velocity (omn :velocity time-points))) (def-score tp (:key-signature '(c maj) :time-signature '(4 4) :tempo 50) (voice1 :omn time-points :channel 1 :sound 'gm :program 0) (voice2 :omn time-points-filled :channel 2 :sound 'gm :program 0))

thanks!!

Hi, I want to distribute every second note (with its length) to one voice (instrument) and every first and third note to another voice (instrument) like in the example. Is there a way to do this automatically? What I want it to spread a voice to different instruments, preserving the position.. Thanks for help! ole edit: I just saw that half of the work could be done with gen-swallow, just need to change every nth length-value into a rest-value (preferably leaving my sublists (bars) untouched)..something like length-to-rest for position instead of size of the length. (setf stimme1 '((h d4 q a4 g4) (q a4 e4 h f4) (h e4 g4) (q f4 e4 d4 cs4) (h d4 q a4 a4))) (flatten (omn :pitch stimme1)) => (d4 a4 g4 a4 e4 f4 e4 g4 f4 e4 d4 cs4 d4 a4 a4) (omn :length stimme1) => ((1/2 1/4 1/4) (1/4 1/4 1/2) (1/2 1/2) (1/4 1/4 1/4 1/4) (1/2 1/4 1/4)) (setf sieve '(d4 g4 e4 e4 f4 d4 d4 a4)) ;first, third, fifth pitch and so on (setf sieve-rhy '((1/2 -1/4 1/4) (-1/4 1/4 -1/2) (1/2 -1/2) (1/4 -1/4 1/4 -1/4) (1/2 -1/4 1/4)) ;every second length is replaced by rest (make-omn :length sieve-rhy :pitch sieve) => (h d4 -q g4 - e4 -h e4 - q f4 - d4 - h d4 -q a4) (setf sieve2 '(a4 a4 f4 g4 e4 cs4 a4)) ;the other way around (setf sieve-rhy2 '((-1/2 1/4 -1/4) (1/4 -1/4 1/2) (-1/2 1/2) (-1/4 1/4 -1/4 1/4) (-1/2 1/4 -1/4))) ;the other way around (make-omn :length sieve-rhy2 :pitch sieve2) => ((-h q a4 -) (q a4 - h f4) (-h g4) (-q e4 - cs4) (-h q a4 -))

Thanks for shed light on this. Now I understand (a little more :-)).

(setf eins '((q g3 = = tie) (q g3 = =))) (get-time-signature eins) -->((4 4 1) (3 4 1)) I don't understand the idea behind, counting beats in 'eins' I count 6 beats (overall), 'get-time-signature' tells me there are 7 beats (overall) (I would understand: -->((4 4 1) (2 4 1))) But what I was asking originally was the (imo) inconsistency that 'get-time-signature' reports different results when using pitch-symbols instead of pitch-symbol repeat signs (=) (third pitch-symbol in the example..)? (setf one '((q g3 = = tie)(q g3 = =))) (get-time-signature one) -->((4 4 1) (3 4 1)) (setf two '((q g3 g3 g3 tie)(q g3 = =))) (get-time-signature two) -->((3 4 2)) btw. how can I post my code also in a different font like in your examples..?

Hi, Don't know if this is a known issue: (setf one '((q g3 = = tie)(q g3 = =))) (setf two '((q g3 g3 g3 tie)(q g3 = =))) (get-time-signature one) -->((4 4 1) (3 4 1)) ;wrong (get-time-signature two) -->((3 4 2)) ;correct best ole

yeah, I found other faults too, shame on me :-(

I did try that of corse, gives me: Error: Not a pitch symbol (q). ? Here is my omn-voice: ;;;; (setf melodie-bb '((q b3) (q e4 stacc b3 stacc c4 stacc a3 stacc) (e b3 a3 g3 fs3 q e3 stacc e4 stacc) (q ds 4 e4 fs4 e g4 e4) (fs4 stacc h b3 comma q fs4 stacc) (e g4 fs4 h e4 e a4 e4) (fs4 stacc d4 stacc g4 stacc e fs4 e4) (q d4 stacc e c4 stacc b3 stacc a3 b2 c4 stacc a3) (e b3 cs4 d4 stacc b3 stacc cs4 d4 e4 stacc cs4 stacc) (e d4 e4 fs4 stacc d4 stacc e4 fs4 g4 stacc e4 stacc) (e fs4 stacc b4 a4 g4 stacc q fs4 e4) (q d4 stacc e cs4 stacc b3 stacc q cs4 stacc as3 stacc) (h. b3) ;wdhl (q b3) (q e4 stacc b3 stacc c4 stacc a3 stacc) (e b3 a3 g3 fs3 q e3 stacc e4 stacc) (q ds 4 e4 fs4 e g4 e4) (fs4 stacc h b3 comma q fs4 stacc) (e g4 fs4 h e4 e a4 e4) (fs4 stacc d4 stacc g4 stacc e fs4 e4) (q d4 stacc e c4 stacc b3 stacc a3 b2 c4 stacc a3) (e b3 cs4 d4 stacc b3 stacc cs4 d4 e4 stacc cs4 stacc) (e d4 e4 fs4 stacc d4 stacc e4 fs4 g4 stacc e4 stacc) (e fs4 stacc b4 a4 g4 stacc q fs4 e4) (q d4 stacc e cs4 stacc b3 stacc q cs4 stacc as3 stacc) (h. b3) ;seite2 (q fs4) (q ds4 stacc b3 stacc e4 stacc fs4 stacc) (e g4 fs4 g4 fs4 q e4 a4) (q fs4 stacc e4 d4 q e4 stacc cs4 stacc) (h. d4 p e a3 stacc g3 stacc) (q a3 e b3 stacc c4 stacc q d4 e c4 stacc b4 stacc) (q c4 stacc a3 stacc h a4 tie) (e a4 fs4 g4 b4 stacc a4 g4 fs4 stacc e4 stacc) (e ds4 e4 fs4 stacc ds4 stacc q b3 stacc fs4 stacc) (e g4 fs4 h e4 e fs4 stacc g4 stacc) (e a4 fs4 h ds4 q b4 stacc) (q b3 stacc e4 stacc e g4 fs4 e4 ds4 stacc) (h. e4) ;wdhl (q fs4) (q ds4 stacc b3 stacc e4 stacc fs4 stacc) (e g4 fs4 g4 fs4 q e4 a4) (q fs4 stacc e4 d4 q e4 stacc cs4 stacc) (h. d4 p e a3 stacc g3 stacc) (q a3 e b3 stacc c4 stacc q d4 e c4 stacc b4 stacc) (q c4 stacc a3 stacc h a4 tie) (e a4 fs4 g4 b4 stacc a4 g4 fs4 stacc e4 stacc) (e ds4 e4 fs4 stacc ds4 stacc q b3 stacc fs4 stacc) (e g4 fs4 h e4 e fs4 stacc g4 stacc) (e a4 fs4 h ds4 q b4 stacc) (q b3 stacc e4 stacc e g4 fs4 e4 ds4 stacc) (h. e4))) ;;;;

Hi, I have an omn-script and I want to transpose the pitches, so I tried to use '(omn :pitch variable) but this does only work for plain lists.. How can I mapcar it to all my sublists (measures)? Or are there other ways to transpose (only) the pitches from an omn-script? thanks! ole

I've tried the piano layout: why the voices called 'right-hand' are displayed in the lower (left-hand) system? And how can I avoid that the ends are double-displayed?

The score starts with a one quarter upbeat which is completed in the last bar (end1) to 4/4, than the next part also starts with that one quarter upbeat: (setf rechte-hand-oben '((repeat (e f3 leg g3) (q a3 stacc e f4 leg e4 q d4 e c4 leg bb3) (q a3 stacc cs4 stacc d4 stacc d4 leg) (leg q cs4 d4 e4 leg e f4 leg d4) (w e4) (h f4 g4) (h e4 q f4 stacc e4 stacc) (q f4 g4 f4 leg e4) (h. f4 leg e g4 f4) (h e4 d4) (q. e4 leg e f4 q e4 stacc gs4 stacc) (h. a4 q gs4) (end1 (h. a4)) (end2 (h. a4 ))) (repeat (e cs4 leg d4) (q e4 a4 = =) (w f4) (h e4 q f4 d4) (q e4 e e4 f4 g4 a4 g4 b4) (w c5) (w bb4) (h a4 g4) (h. g4 q a4) (w f4) (h. g4 q a4 tie) (q a4 h f4 q e4) (end1 (h. d4)) (end2 (h. d4))))) and it should be look like this: (setf rechte-hand-oben '((-h.) (repeat (e f3 leg g3) (q a3 stacc e f4 leg e4 q d4 e c4 leg bb3) (q a3 stacc cs4 stacc d4 stacc d4 leg) (leg q cs4 d4 e4 leg e f4 leg d4) (w e4) (h f4 g4) (h e4 q f4 stacc e4 stacc) (q f4 g4 f4 leg e4) (h. f4 leg e g4 f4) (h e4 d4) (q. e4 leg e f4 q e4 stacc gs4 stacc) (h. a4 q gs4) (end1 (h. a4)) (end2 (h. a4 e cs4 leg d4))) (repeat (q e4 a4 = =) (w f4) (h e4 q f4 d4) (q e4 e e4 f4 g4 a4 g4 b4) (w c5) (w bb4) (h a4 g4) (h. g4 q a4) (w f4) (h. g4 q a4 tie) (q a4 h f4 q e4) (end1 (h. d4)) (end2 (w d4)))))

thanks, the upbeat thing is still unsolved for me and merge-voice still returns an error: "Error: No note before bare list attribute."

sorry, but I still don't get it to work, please take one more look (and how do I handle those upbeats?): ;;; (setf rechte-hand-oben '((repeat (e f3 leg g3) (q a3 stacc e f4 leg e4 q d4 e c4 leg bb3) (q a3 stacc cs4 stacc d4 stacc d4 leg) (leg q cs4 d4 e4 leg e f4 leg d4) (w e4) (h f4 g4) (h e4 q f4 stacc e4 stacc) (q f4 g4 f4 leg e4) (h. f4 leg e g4 f4) (h e4 d4) (q. e4 leg e f4 q e4 stacc gs4 stacc) (h. a4 q gs4) (end1 h. a4) (end2 h. a4)) ;seite2 (repeat (e cs4 leg d4) (q e4 a4 = =) (w f4) (h e4 q f4 d4) (q e4 e e4 f4 g4 a4 g4 b4) (w c5) (w bb4) (h a4 g4) (h. g4 q a4) (w f4) (h. g4 q a4 tie) (q a4 h f4 q e4) (end1 (h. d4)) (end2 (h. d4))))) (setf rechte-hand-unten '((repeat (-q) (-w) (-q g3 a3 bb3) (h. a3 e a3 b3) (w cs4) (h. d4 q b3) (h c4 q c4 bb3) (q c4 stacc d4 stacc h g3) (h a3 d4) (h c4 q a3 b3) (h c4 q b3 stacc b3) (q a3 stacc e b3 stacc c4 stacc q d4 stacc b3 stacc) (end1 h. a3) (end2 h. a3)) ;seite2 (repeat (-q) (-q cs4 d4 e4) (h. d4 e c4 d4) (h c4 q d4 stacc b3 stacc) (q c4 -h -e f4) (h e4 f4) (w e4) (q e4 f4 d4 e4) (h. cs4 q e4) (w d4) (q d4 e4 cs4 d4 tie) (q d4 h d4 q cs4 stacc) (end1 (-h.)) (end2 (-h.)) ))) ;(setf rh-zusammen (merge-voices rechte-hand-oben rechte-hand-unten)) (def-score bach-bourree (:title "Bourree" :key-signature '(d min) :time-signature '(4 4) :tempo 96 ;:layout (piano-layout 'left-hand '(right-hand-1 right-hand-2) ) (rh-1 :omn rechte-hand-oben :channel 1 :sound 'gm :program 0) ;(rh-2 :omn rechte-hand-unten :channel 2 :sound 'gm :program 0) ) ;;;

anyway thanks a lot! the upbeat problem is still unsolved for me and where do I find the how to examples?

Hi, it's me again- Excuses for pressing but I try to use OM for a radio-play work that I do for the MDR and I'am getting an error warning again and could'nt find it myself: I still have the error from above, also when I try to eval the second voice, in the meantime I try to glue the voices together and getting: "Error: No note before bare list attribute." I'am blind with my own defects, please help, thanks! ;;;;;;;;;; (setf rechte-hand-oben '((-h.) (repeat (e f3 leg g3) (q a3 stacc e f4 leg e4 q d4 e c4 leg bb3) (q a3 stacc cs4 stacc d4 stacc d4 leg) (leg q cs4 d4 e4 leg e f4 leg d4) (w e4) (h f4 g4) (h e4 q f4 stacc e4 stacc) (q f4 g4 f4 leg e4) (h. f4 leg e g4 f4) (h e4 d4) (q. e4 leg e f4 q e4 stacc gs4 stacc) (h. a4 q gs4) (end1 h. a4) (end2 h. a4)) ;seite2 (repeat (e cs4 leg d4) (q e4 a4 = =) (w f4) (h e4 q f4 d4) (q e4 e e4 f4 g4 a4 g4 b4) (w c5) (w bb4) (h a4 g4) (h. g4 q a4) (w f4) (h. g4 q a4 tie) (q a4 h f4 q e4) (end1 h. d4) (end2 h. d4) ))) (setf rechte-hand-unten '((-h.)(repeat (-q) (-w) (-q g3 a3 bb3) (h. a3 e a3 b3) (w cs4) (h. d4 q b3) (h c4 q c4 bb3) (q c4 stacc d4 stacc h g3) (h a3 d4) (h c4 q a3 b3) (h c4 q b3 stacc b3) (q a3 stacc e b3 stacc c4 stacc q d4 stacc b3 stacc) (end1 h. a3) (end2 h. a3)) (repeat (-q) (-q cs4 d4 e4) (h. d4 e c4 d4) (h c4 q d4 stacc b3 stacc) (q c4 -h -e f4) (h e4 f4) (w e4) (q e4 f4 d4 e4) (h. cs4 q e4) (w d4) (q d4 e4 cs4 d4 tie) (q d4 h d4 q cs4 stacc) (end1 -h.) (end2 -h.) ))) (setf rh-zusammen (merge-voices rechte-hand-oben rechte-hand-unten)) ;;;;;;;;

Hi, I'am typing in the bourree of the first french suite from Bach. First, how can I create an upbeat/anacrusis? Second, when I try to compile my score I get the error: "> Error: The value h. is not of the expected type list." Notation OMN via the context menu is working fine..What am I missing? ole ;;;;;;;;;;;;;;;; (setf rechte-hand-oben '((repeat (e f3 leg g3) (q a3 stacc e f4 leg e4 q d4 e c4 leg bb3) (q a3 stacc cs4 stacc d4 stacc d4 leg) (leg q cs4 d4 e4 leg e f4 leg d4) (w e4) (h f4 g4) (h e4 q f4 stacc e4 stacc) (q f4 g4 f4 leg e4) (h. f4 leg e g4 f4) (h e4 d4) (q. e4 leg e f4 q e4 stacc gs4 stacc) (end1 h. a4) (end2 h. a4)))) (def-score bach-bourree (:title "Bourree" :key-signature '(d min) :time-signature '(4 4) :tempo 96 ;:layout (piano-layout 'left-hand '(right-hand-1 right-hand-2) ) (right-hand-1 :omn rechte-hand-oben :channel 1 :sound 'gm :program 0) ; (left-hand :omn left-hand :channel 2 :sound 'gm :program 0) ) ;;;;;;;;;;;;;;;;;;;;;