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)

  )

 

;;;;;;;;;;;;;;;;;;;;;

The end attribute was incorrect:

(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)))))

You can fine many answers in 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))

 

;;;;;;;;

The end attribute was incorrect:

(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)))))

ok, than the examples in the repeats.rtdf is wrong, see part of it:

 

Examples:

'((repeat (-q q. g4bb4d5 e g4bb4d5 q c4c5eb5)

          (q f4a4c5 g4bb4 h f4a4c5)

          (h bb3bb4 g3g4bb4)

          (h d4f4a4 q g4bb4 f4a4c5 tie)

          (q f4a4c5 g4bb4 h d4fs4a4)

          (end1 h g4)

          (end2 h g4)))

Figura 1 (Dialog-Lauda, anonym, 1577)

'((repeat (q f4) (q g4 f4 bb4 a4)

          (h g4 q f4 a4)

          (q a4 a4 d5 c5)

          (h bb4 q a4 a4)

          (q a4 a4 bb4 a4)

          (end1 h g4 -q)

          (end2 q g4 g4 f4 ferm)))

Figura 2 (J. A. P. Schulz, Der Mond ist aufgegangen, 18 Jh.)

 

 

anyway thanks a lot!

 

the upbeat problem is still unsolved for me and where do I find the how to examples?

Looks like the examples you have send it to me are from developing stages.

Thank you for letting me know.

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)

  )

;;;

If you use lists the end apples to list.

(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)))))

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

(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)
  )

(setf clr '((repeat q e5 mp ten - g3 p (leg b4 bb3)
                    (leg g3 mp e5 >)
                     - (acc e bb3 p) q b4 pp ten -h.
                    (end1 h. bb5 -q)
                    (end2 e cs5 h d6 ppp trem+fermata))
            
            (repeat -q h. e5 p< e f5 mp> fs4 pp< cs5 d6 mp> -h
                    (leg q._h. bb3 p e b4 stacc)
                    - - (acc. e g5) (leg q. e5 e f6 -)
                    (end1 -h. e cs5 d6 pp)
                    (end2 q bb4 p trem+fermata -h.))))

(def-score repeat-and-ends
           (:key-signature '(c maj)
            :time-signature '(2 2) 
            :tempo '(q 120))

  (clarinet :omn clr
            :channel 1
            :sound 'gm
            :program 'Clarinet)
  )

Here an example with repeat and end's with one list:

(setf clr '((repeat q e5 mp ten - g3 p (leg b4 bb3)
                    (leg g3 mp e5 >)
                     - (acc e bb3 p) q b4 pp ten -h.
                    (end1 h. bb5 -q)
                    (end2 e cs5 h d6 ppp trem+fermata))
            
            (repeat -q h. e5 p< e f5 mp> fs4 pp< cs5 d6 mp> -h
                    (leg q._h. bb3 p e b4 stacc)
                    - - (acc. e g5) (leg q. e5 e f6 -)
                    (end1 -h. e cs5 d6 pp)
                    (end2 q bb4 p trem+fermata -h.))))

(def-score repeat-and-ends
           (:key-signature '(c maj)
            :time-signature '(2 2) 
            :tempo '(q 120))

  (clarinet :omn clr
            :channel 1
            :sound 'gm
            :program 'Clarinet)
  )

Now the difference is clear :-)

The other thing is to use repeat numbers.

I will make few more examples tomorrow.

thanks, the upbeat thing is still unsolved for me  and merge-voice still returns an error:

 "Error: No note before bare list attribute."

merge-voice is not working with repeats.

Use layout for merge voices works much better.

 

upbeat thing - example please.

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

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?

I need to see the score and the layout but it looks like you have placed the right hand in left hand layout.

The upbeat could be solved with time-signature (1 4 1) and then (4 4)

As for the repeat and the ends (double display), please use only one repeat and ends in a combine voices.

Voices layout example:

Howto/Voices.opmo

Ole, could you email me the score (with all the voices) plus the original (pdf) Bach score, thank you.