(define base-note 12) (define get-note (lambda (octave offset) (+ (* base-note octave) offset))) (define C1 (get-note 1 0)) (define C2 (get-note 2 0)) (define C3 (get-note 3 0)) (define C4 (get-note 4 0)) (define C5 (get-note 5 0)) (define C6 (get-note 6 0)) (define C7 (get-note 7 0)) (define D1 (get-note 1 2)) (define D2 (get-note 2 2)) (define D3 (get-note 3 2)) (define D4 (get-note 4 2)) (define D5 (get-note 5 2)) (define D6 (get-note 6 2)) (define D7 (get-note 7 2)) (define E1 (get-note 1 4)) (define E2 (get-note 2 4)) (define E3 (get-note 3 4)) (define E4 (get-note 4 4)) (define E5 (get-note 5 4)) (define E6 (get-note 6 4)) (define E7 (get-note 7 4)) (define G1 (get-note 1 7)) (define G2 (get-note 2 7)) (define G3 (get-note 3 7)) (define G4 (get-note 4 7)) (define G5 (get-note 5 7)) (define G6 (get-note 6 7)) (define G7 (get-note 7 7)) (define A1 (get-note 1 9)) (define A2 (get-note 2 9)) (define A3 (get-note 3 9)) (define A4 (get-note 4 9)) (define A5 (get-note 5 9)) (define A6 (get-note 6 9)) (define A7 (get-note 7 9)) (define B1 (get-note 1 11)) (define B2 (get-note 2 11)) (define B3 (get-note 3 11)) (define B4 (get-note 4 11)) (define B5 (get-note 5 11)) (define B6 (get-note 6 11)) (define B7 (get-note 7 11))