The example in How to in 100'' doesn't seem to work

[PatrickMimran]

Hello 

 

i'v transcribe the the example nbr 5  in How to in 100'' but it doesn't seem to work as written , I join the file as an attachment could you please help 

 

Thank you 

 

Patrick

 

 

Choralis.opmo

[opmo]

The score How-to in 100sec (5) works. You can find the original score next to the video.
In your score parenthesis was missing.
I would consider improving the style of your code. In doing so you will find your own typos (errors) much quicker.

(setf mychords  
      '(
        (q eb3g3bb3) (q c3eb3g3) (q c3eb3ab3) (q f3ab3c4)
        (q g3b3d4) (q a3c4e4) (q b3eb4gb4) (q g3c4e4)
        (q c3g4e5c5) (q d3a4d5f5) (q g2b4d5f5) (q c3g4c5e5)
        (q a2a4c5e5) (q fs2fs4a4c5) (q g2g4b4d5) (q a2fs4a4d5)
        (h b3ds5fs5a4) (h e3e4g4b4)
        ))
        
(choralis mychords
          :rotation -1 
          :ambitus '(bass tenor alto soprano)
          :index 'v
          :interval 8
          :path nil
          :seed 1282
          :methods
          '(
            :sop ((ls (3 4)) (dyn)) ;; parenthesis was missing
            :alt ((d4 (1 2 3 4)))
            :ten ((ri (3 4)))
            :bass ((ri (3 4)))
            )
          :edit
          '(
            :sop (((h e4 f4) (e a4 c5 c5 fs5 g5 d5 a5 d5)) (3 4))
            :alt ((e c4 e4 c4 d4 c4 d4 f4 e4) 3)
            :ten ((-w) 3)
            :bass ((h g2 q a2 b2) 3)
            )
          )
          
(ps 'gm
    :satb (list v1 v2 v3 v4)
    :tempo 60)

 

[PatrickMimran]

Thank you