Jump to content

lviklund

Members
  • Posts

    81
  • Joined

  • Last visited

Posts posted by lviklund

  1. 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

  2. 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.

  3. 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

  4. 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.

     

  5. 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)))

     

  6. 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

  7. Good evening,

    Uh...How do I do this in OMN (see attached pic)?

    I Can't figure that out. Anyone?

    regards

    Lasse

    Skärmavbild 2015-08-14 kl. 19.35.55.png

    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