;; look at the pc-lib.scm to find what scales and chord symbols are available

;; define some scales as pitch classes
(define *c-major* (pc:scale 0 'ionian))
(define *c-minor* (pc:scale 0 'aeolian))
(define *a-aeolian* (pc:scale 9 'aeolian))

;; check *c-major* against pc list
(print (equal? *c-major* '(0 2 4 5 7 9 11)))
(print (equal? *a-aeolian* '(9 11 0 2 4 5 7)))

;; define some chords
(define *cmaj7* (pc:chord 0 '^7))
(define *dmin* (pc:chord 2 '-))
(define *f-7b5* (pc:chord 5 '-7b5))

;; a non-standard pitch set
(define *wierd-pc* (list 0 1 5 9 10 11))

;; pc:? examples
(pc:? 61 (pc:scale 5 'ionian)) ; is c# in f major 
(pc:? 61 (pc:scale 2 'ionian)) ; is c# in d major

;; quantize-pc examples
;; find the closest value in the pitch class
(pc:quantize 65 *wierd-pc*)
(pc:quantize 66 *wierd-pc*)
(pc:quantize 77 *cmaj7*)
(pc:quantize 96 *f-7b5*)

;; random-pc examples
;; select any pitch from the class within lower and upper bounds
(pc:random 60 72 *a-aeolian*)

;; relative-pc examples
;; select pitch from pitch class a specified number of steps from the 
;; original pitch.
(pc:relative 60 -1 *c-major*)
(pc:relative 60 -1 *c-minor*)

;; make-chord-from-pc examples
;; Select an even distribution of notes from pitch class within bounds.
;; non-deterministic (i.e. result can vary each time)
(pc:make-chord 48 72 4 *dmin*)

;; returns a diatonic chord based on a root major or minor key and degree
(pc:diatonic 0 '- 'i)  ; c minor
(pc:diatonic 0 '- 'vi) ; ab major
(pc:diatonic 0 '- 'ii) ; d minor
(pc:diatonic 0 '- 'v7) ; g dom 7
(pc:diatonic 0 '- 'i) ; c minor