./../../src/set-map.lsp

## sc-map/set-map [ Classes ]

[ Top ] [ sc-map ] [ Classes ]

NAME

     set-map

     File:             set-map.lsp

     Class Hierarchy:  named-object -> linked-named-object -> sclist ->
                       circular-sclist -> assoc-list -> recursive-assoc-list ->
                       sc-map -> set-map

     Version:          1.0.0-beta3

     Project:          slippery chicken (algorithmic composition)

     Purpose:          Implementation of the set-map class for mapping sets for
                       a piece.

     Author:           Michael Edwards: m@michael-edwards.org

     Creation date:    March 11th 2010

     $$ Last modified: 20:10:09 Fri Mar 19 2010 GMT

     SVN ID: $Id: set-map.lsp 2531 2012-07-03 19:50:40Z medward2 $

## set-map/gen-midi-chord-seq [ Methods ]

[ Top ] [ set-map ] [ Methods ]

DESCRIPTION

     Write a midi file with each set in the set-map played as a chord at 1
     second intervals.

ARGUMENTS

     - A set-map object.
     - The path+file-name for the midi file to be written.

RETURN VALUE

     Returns T.

EXAMPLE

    (let ((mini
           (make-slippery-chicken
            '+mini+
            :ensemble '(((vn (violin :midi-channel 1))))
            :set-palette '((1 ((c3 e3 g3 a3 c4 d4 g4 a4 b4 e5))))
            :set-map '((1 (1 1 1)))
            :rthm-seq-palette '((1 ((((2 4) q e s s))
                                    :pitch-seq-palette ((1 2 3 4)))))
            :rthm-seq-map '((1 ((vn (1 1 1))))))))
      (gen-midi-chord-seq (set-map mini) "/tmp/mchsq.mid"))

    => T

SYNOPSIS

    (defmethod gen-midi-chord-seq ((sm set-map) midi-file)