Jump to content


  • Posts

  • Joined

  • Last visited

Everything posted by lviklund

  1. Hi Rangarajan, Some interesting ideas here. Thank you for sharing. /Lasse
  2. Something that would relly help is the possibility to fold sections. /Lasse
  3. Hi all Just want to wish you all on this forum Happy New Year Lasse
  4. I understand. (compile-score '((string-quartet-a-t :start 1 :end 2) (string-quartet-a :start 1 :end 2)) :instrument 'violin1) That works. I guess it is because it is written to a omn file and that file knows nothing about any scores. They are of course concatenated by "compile score". (pprint (compile-score '((string-quartet-a-t :start 1 :end 2) (string-quartet-a :start 1 :end 2)) :output :score)) /Lasse
  5. Hi again. Maybe this is a pure LISP support Q but I ask anyway. This works in my score of course: (display-midi (compile-score 'string-quartet-a :instrument 'violin1)) but when I try to do this: (defparameter *default-pathname-defaults* "XXXXXX") (load "score.opmo") (load "String Quartet-A.opmo") (load "String Quartet-A-Timeline.opmo") (load "String Quartet-B.opmo") (load "String Quartet-C.opmo") (display-midi (compile-score '((string-quartet-a :start 1 :end 2 :instrument 'violin1) ;<-------- (string-quartet-a :start 1 :end 2) (string-quartet-b) (string-quartet-c) (string-quartet-a-t :start 4 :end 4) (string-quartet-a :start 1 :end 2)) :file "xxx") :display :quick-view) (display-musicxml *last-score*) ":instrument" gives an error. I like this way of working but I can't figure out how to solve this. If I execute without ":instrument 'violin1" things work great. Thx in advance Lasse Any LISP Guru that can give me a clue? By the way... Is there a way to save score "a" in the workspace from within score "b" programmatically? In my LISP books that seems to be not an easy task. Happy for any advice.
  6. Ah.. Thank you. I should have figured that out.
  7. I can't get the :chord nil to work. Am I missing something? (gen-trope my-trope :chord nil) Error: Incorrect keyword arguments in (:chord nil) . /Lasse
  8. That looks amazing. Looking forward to this. For the moment I just copy and paste since the amount of data that I am using is not that big.
  9. Great source for repetition on how LISP works and what can be done. Thank you for a great score and code.
  10. Thank you again Stephane Your functions like "(defun px-edm-melo-harmo (...)" are invaluable to me as teaching samples. Learn a lot from them. /Lasse
  11. Hi Julio, You should not have the apostrophes on (setf mix '(rnd-order bird1 :type :pitch :seed 500)) and (setf retromix '(gen-retrograde mix)) the ' makes LISP read the (gen-retrograde mix) as "text" and should return just whats inside the (). It is not interpreted. (setf mix (rnd-order bird1 :type :pitch :seed 500)) ;---> Works with cmd-1 (setf retromix (gen-retrograde mix)) ;---> Works with cmd-1 /Lasse
  12. Janusz, There is no error. I am sorry for messing up things for you. Try the code in the first post. I just corrected that one. Lasse
  13. Just tried to help. I meant that the error message is a good hint. It makes sense.
  14. I have done that to. Look in the lstener and it says: Error: Attempt to diminuendo from pp to ff. That makes sense. Try this: (setf piano-rh '((s f5 ffff t e4 = = = = s f4 pp t f3 <) ; pp < (t f3 < t f4 < t f4 < e f3 < trem) ; < ff (e g2 ff s f5 ppp s g6 sfz stacc f3 mp)))
  15. I forgot to mention that the problem is this line: (pitch-transpose 2 test :omn t) It might be SBTK (silly me again) but I think it should work.
  16. Hi all, When I change in the example for repeat: (setf test '((repeat (-q q. g4bb4d5 e g4bb4d5 q c4c5eb5) (q f4a4c5 g4bb4 h f4a4c5) (h bb3bb4 -h) (h d4f4a4 q g4bb4 f4a4c5 tie) (q f4a4c5 g4bb4 h d4fs4a4) (end1 (h g4)) (end2 (h g4))))) to: (setf test '((repeat (-q q. g4bb4d5 e g4bb4d5 q c4c5eb5) (q f4a4c5 g4bb4 h f4a4c5) (h bb3bb4 -h) (h d4f4a4 q g4bb4 f4a4c5 tie) (q f4a4c5 g4bb4 h d4fs4a4) (end1 (-e e g4)) ;<---- a rest (end2 (h g4))))) I get: > Error: Incompatible ending types in #S(=phrase :event-count 2 :events (#S(=event :omn (-e) :types (:rest) > :length -e) #S(=event :omn (a4 end1) :types (:pitch :attribute) :length e))) > While executing: classify=event, in process Listener-2(7). > Type cmd-. to abort, cmd-\ for a list of available restarts. > Type :? for other options. A bug maybe? Lasse
  17. Thank you Stephan, For some reason I have missed this highly helpful and educational post. Nice piece /Lasse
  18. I just want to thank you all for you hard work. I have lived and breath Opusmodus for a long time now. It is a wonderful music tool in more or less every aspect. Regards Lasse
  19. Good evening, Uh...How do I do this in OMN (see attached pic)? I Can't figure that out. Anyone? regards Lasse Hi again. It was simple. Sorry. '(5q -5q 5q -5q 5q) To hot here. Overheating. Helped to just formulate the question Cheers
  • Create New...

Important Information

Terms of Use Privacy Policy