Jump to content

david

Members
  • Posts

    125
  • Joined

  • Last visited

Posts posted by david

  1. i have this error

     Error: Unexpected end of file on #<STRING-INPUT-STREAM  #x302003D7018D>, near position 3348, within "\" 
    >          )
    >        
    >        )
    >        "
    > While executing: CCL::READ-CHAR-INTERNAL, in process Listener-2(8).
    > Type cmd-. to abort, cmd-\ for a list of available restarts.
    > Type :? for other options.

    now i have score but no sound, to get the sound in gm,  how do i change the port?

    image.thumb.png.f12ea2bbbcc742a3b92ffb8e0c77eb33.png

  2. Hello Stéphane,

    it is very beautiful!

    yes I have errors

    > Error: Undefined function RND-RANGE called with arguments (48 2000) .
    > While executing: CCL::CHEAP-EVAL-IN-ENVIRONMENT, in process Listener-1(7).
    > Type cmd-/ to continue, cmd-. to abort, cmd-\ for a list of available restarts.
    > If continued: Retry applying RND-RANGE to (48 2000).
    > Type :? for other options.

  3. Hi,

    I would like to do for example

    (setf ry1 '((e)))
    (setf c7 (make-scale 'c4 24 :alt '(9 2 -9 9 1 -8 8 2 -9 9 2 -9 9 1 -8 8 2 -8 8 2 -9 9 2))) 
    (setf rc7 (gen-retrograde c7))
    (setf ass3 (assemble-seq c7 rc7))
    (setf omn3 (pitch-transpose '(0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 -2 -2 -1 -1 11 11) 
                                 (gen-repeat 12 ass3)))
    (setf six+deux (omn-to-measure
                    (make-omn 
                     :pitch omn3 
                     :length ry1
                     :span :pitch)
                    '(3/8)))
    
    (chordize six+deux)
    
    > Error: OMN Parse Error: fail
    > While executing: omn-to-ast, in process Listener-1(7).
    > Type cmd-. to abort, cmd-\ for a list of available restarts.
    > Type :? for other options.

     

  4. I know how to do;-)

    I would like to do for example

    (setf ry1 '((e)))
    (setf c7 (make-scale 'c4 24 :alt '(9 2 -9 9 1 -8 8 2 -9 9 2 -9 9 1 -8 8 2 -8 8 2 -9 9 2))) 
    (setf rc7 (gen-retrograde c7))
    (setf ass3 (assemble-seq c7 rc7))
    (setf omn3     (pitch-transpose '(0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 -2 -2 -1 -1 11 11) 
                                   (gen-repeat 12  ass3)))
    (setf six+deux (omn-to-measure (make-omn 
           :pitch  omn3 
           :length ry1
           :span :pitch)
    '(3/8)))

    (chordize six+deux)

    > Error: OMN Parse Error: fail
    > While executing: omn-to-ast, in process Listener-1(7).
    > Type cmd-. to abort, cmd-\ for a list of available restarts.
    > Type :? for other options.

  5. For exemple, if you look my attachment with my example in C maj

    (setf Cmaj7 '(c5e5g5b5))
    (drop-voicing Cmaj7 :type '(1)) it is drop3!
    (drop-voicing Cmaj7 :type '(2)) right it is drop 2
    (drop-voicing Cmaj7 :type '(3)) it is drop 2+4!

    for me it doesn't make sense

    here are 4 results

    image.thumb.png.1fa9f91d99b9afc1717dc44fb5a645b6.png

    I think it should be clearly indicated in doc what each type of drop corresponds to.

    -1 Close position (States)

    -2 Drop 2

    -3 Drop 3

    -4 Drop 2+3

    -5 Drop 2+4

    - 6 Double Drop 2+3

     

     

     

     

     

     

    I know Ben Monder very well;-)

  6. Thank you it's much better;-)

    should i do this ?can i not shorten

    (setf seq+ry12 
                    (make-omn
                    :pitch (omn :pitch seq)
                    :length (gen-repeat 24 tr)                                  
                    :span :length))

    (setf for4 (rnd-order seq+ry12  :type :pitch))

    (setf bw-rh1 (omn-to-measure seq+ry12 '(4/4)))

    (setf rep (filter-repeat 1 bw-rh1 :type :pitch))

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy