added cmn-display to intervals-mapper but no clef change yet added

mdedwards · Aug 19, 2024 · 23fe504 · 23fe504
1 parent 7863d4b
commit 23fe504
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 4 deletions.
diff --git a/src/intervals-mapper.lsp b/src/intervals-mapper.lsp
@@ -28,7 +28,7 @@
 ;;;
 ;;; Creation date:    August 3rd 2010 Edinburgh
 ;;;
-;;; $$ Last modified:  12:52:49 Mon Aug 19 2024 CEST
+;;; $$ Last modified:  20:24:51 Mon Aug 19 2024 CEST
 ;;;
 ;;;
 ;;; SVN ID: $Id$
@@ -404,6 +404,12 @@ data: E4
        (when (pitch-class-eq pitch this-pitch t)
          (return (if return-nth start degree)))))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defmethod cmn-display ((im intervals-mapper)
+                        &rest keyargs &key &allow-other-keys)
+  (apply #'cmn-display-pitch-list (cons (scale-pitches im) keyargs)))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
 ;;; Related functions.

diff --git a/src/pitch.lsp b/src/pitch.lsp
@@ -19,7 +19,7 @@
 ;;;
 ;;; Creation date:    March 18th 2001
 ;;;
-;;; $$ Last modified:  11:42:21 Sat Jul 20 2024 CEST
+;;; $$ Last modified:  20:33:12 Mon Aug 19 2024 CEST
 ;;;
 ;;; SVN ID: $Id$
 ;;;
@@ -3732,7 +3732,7 @@ data: F4
         (when auto-open
           (system-open-file file)))
       (error "pitch::cmn-display-pitch-list: argument 1 must be a list of ~
-          pitch objects: ~a" pitches)))
+              pitch objects: ~a" pitches)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; 6.8.13

diff --git a/src/set-palette.lsp b/src/set-palette.lsp
@@ -56,7 +56,7 @@
 ;;;
 ;;; Creation date:    August 14th 2001
 ;;;
-;;; $$ Last modified:  14:31:39 Fri Mar 22 2024 CET
+;;; $$ Last modified:  20:22:55 Mon Aug 19 2024 CEST
 ;;;
 ;;; SVN ID: $Id$
 ;;;