comparison implementations/gsharp/methods.lisp @ 168:f1d0ea63581c

Improved spelling for score output. amuse-gsharp now depends on ps13

darcs-hash:20080103134532-40ec0-e36c64cecc14ce9f821da7381d546c9e87bc7f63.gz

 (defmethod import-from-identifier (frame (id gsharp-gsh-identifier))
   (clim:execute-frame-command frame '(gsharp::com-new-buffer))
   (gsharp::frame-find-file frame (%gsharp-identifier-pathname id)))
 (defmethod import-from-identifier (frame (id gsharp-mxml-identifier))
   (clim:execute-frame-command frame `(gsharp::com-import-musicxml ,(%gsharp-identifier-pathname id))))
+
+(defmethod get-applicable-key-signatures (anchored-period (composition gsharp-composition))
+  (let ((keysigs))
+    (sequence::dosequence (event composition (reverse keysigs))
+      (cond
+        ((overlaps event anchored-period)
+         (unless (member (gsharp::keysig event) keysigs)
+           (push (gsharp::keysig event) keysigs)))
+        ((not (before event anchored-period))
+         (return-from get-applicable-key-signatures (reverse keysigs)))))))
+
+(defmethod crotchet ((object gsharp-object))
+  (make-standard-period 1))