Define <scale-note>

1 files changed, 11 insertions, 0 deletions

diff --git a/scales.scm b/scales.scm
index c4c0b6d..0ac91db 100644
--- a/scales.scm
+++ b/scales.scm
@@ -8,6 +8,17 @@
   (find-tail (cut eqv? root <>) all-notes))
 
 
+;;; Scale notes
+
+;; A scale note is a note with a scale offset, e.g. a C# at the second
+;; scale position.
+(define-record-type <scale-note>
+  (make-scale-note note offset)
+  scale-note?
+  (note    scale-note-note)
+  (offset  scale-note-offset))
+
+
 ;;; Common scales
 
 (define lydian