I need some help.

[lviklund]

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.

[opmo]

(string-quartet-a :start 1 :end 2 :instrument 'violin1)

This will produce an error. The :instruments is for extracting an instrument/s only.
Each score need to have the same count of instrument and the same instrument names.

[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