Jump to content
  1. loopyc


  • Similar Topics

    • By TangoTango
      I'm making a presentation on 12-tone composition in an educational context. While my focus is on a 12-tone map (including OMN and OpusModus code) I want to begin with some more simple examples e.g. a Canon, a Fugue, first second and third species counterpoint.
      While I can create a canon, counterpoint and a fugue myself with a bit of time, it would be much less time-consuming for me if I were able to use existing examples. Is there an existing library of OMN examples of these types of compositions?

      If not, I'm happy to post mine once I'm done.

    • By AM
      is there another way to code such a function/idea?
      this is (at the moment) a "theoretically function"... no concret use - l'art pour l'art :-)
      thanx for smarter LISP-code-IDEAS!
      ;;; evaluate PROGN (as a reset) (progn (defstruct counter n) (defvar cnt) (setf cnt (make-counter :n -1)) (defun read-list-in-steps (alist) (nth (setf (counter-n cnt) (1+ (counter-n cnt))) alist))) ;;; evaluate a view times, so one value after the other will be in the output ;;; you have to evaluate the progn-seq before every new start!!! (read-list-in-steps '(1 2 3 4 5 6)) (read-list-in-steps '(c4 f4 e4 f4 g5))  
    • By Rangarajan
      I am encountering a funny problem with the following score. As shown in the comments, notes played in some bars are not as per the
      supplied pitches list. Strangely, the musicxml notation and what is played agree!
      Request your comment on what might be wrong.
      ;;; ---------------
      ;;; Notes played in the last 2 bars are not as per this list
      (setf m1 '((c4) (e4) (b4) (d5) (g4) (g4) (c5 d4 c5 c5 c5) (a4 d4 a4 e5 a4)))
      (setf rhy1 '((-w) (-w) (-w) (-w) (-w) (-w) (1/4 1/4 1/8 1/8 1/4) (1/4 1/4 1/8 1/8 1/4)))
      ;;; Notes played in the 6th and 8th bars are not as per this list
      (setf m2 '((c4 g4 c4 f4 f4) (e4 d4 c4 d4 f4) (b4 a4 a4 d5 a4) (d5 d5 g4 g4 g4) (g4 d4 d4 g4 c4) 
                 (g4 d4 f4 g4 e4) (c5 e5 a4 c5 d4) (a4 a4 e5 e5 a4)))
      (setf rhy2 '((1/4 1/4 1/8 1/8 1/4) (1/4 1/4 1/8 1/8 1/4) (1/4 1/8 -1/8 1/4 1/4) 
                   (1/4 1/4 1/8 1/8 1/4) (1/4 1/8 1/8 1/4 1/4) (1/4 1/8 -1/8 1/4 1/4) 
                   (1/4 1/4 1/4 1/8 1/8) (1/8 1/8 1/4 -1/8 3/8)))
      (def-score progression-example
                  :key-signature 'chromatic
                  :time-signature '(4 4)
                  :tempo 120
        (instr1 :pitch m1 :length rhy1 :velocity '(f) :channel 1 :sound 'gm :program 'Glockenspiel)
        (instr2 :pitch m2 :length rhy2 :velocity '(f) :channel 2 :sound 'gm :program 'Flute)
      ;;; ------------------
  • Create New...