-
Posts
81 -
Joined
-
Last visited
Content Type
Forums
Events
Store
Video Gallery
Posts posted by lviklund
-
-
-
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
-
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.
-
Ah..
Thank you. I should have figured that out.
-
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
-
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.
-
Not bad for a test
Very good
-
-
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
-
Very nice. Thank you.
-
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
-
Thank you.
-
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
-
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) ))Just tried to help. I meant that the error message is a good hint. It makes sense.
-
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)))
-
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.
-
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
-
Thank you Stephan,
For some reason I have missed this highly helpful and educational post.
Nice piece
/Lasse
-
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
- EAIP and Stephane Boussuge
- 2
-
Automatic name completion
in Suggestions & Ideas
Posted
Something that would relly help is the possibility to fold sections.
/Lasse