[gsharp-cvs] CVS gsharp - gsharp-cvs@common-lisp.net - mailman3.common-lisp.net

14 Sep 2007

Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv14666
Modified Files:
    gui.lisp 
Log Message:
Reverse the notehead rotation order for C-r.  I apologise if this 
destroys someone's finger macros, but the current order is too illogical 
in the default state.

--- /project/gsharp/cvsroot/gsharp/gui.lisp	2007/09/14 15:48:05	1.84
+++ /project/gsharp/cvsroot/gsharp/gui.lisp	2007/09/14 15:52:57	1.85
@@ -754,10 +754,10 @@
   (define-duration-altering-command com-rotate-notehead ()
     (setf (notehead element)
           (ecase (notehead element)
-            (:breve :whole)
-            (:whole :half)
-            (:half :filled)
-            (:filled :breve)))))
+            (:whole :breve)
+            (:half :whole)
+            (:filled :half)
+            (:breve :filled)))))
(define-gsharp-command com-rotate-stem-direction ()
   (setf (stem-direction (cur-cluster))
@@ -1302,10 +1302,10 @@
 (define-gsharp-command com-istate-rotate-notehead ()
   (setf (notehead (input-state *application-frame*))
         (ecase (notehead (input-state *application-frame*))
-          (:breve :whole)
-          (:whole :half)
-          (:half :filled)
-          (:filled :breve))))            
+          (:whole :breve)
+          (:half :whole)
+          (:filled :half)
+          (:breve :filled))))
(define-gsharp-command com-istate-rotate-stem-direction ()
   (setf (stem-direction (input-state *application-frame*))

    