- gsharp-cvs@common-lisp.net - mailman3.common-lisp.net

[gsharp-cvs] CVS update: gsharp/Fonts/viewer.lisp
by Robert Strandh 25 Mar '04

25 Mar '04

Update of /project/gsharp/cvsroot/gsharp/Fonts In directory common-lisp.net:/tmp/cvs-serv8952 Added Files: viewer.lisp Log Message: Software for viewing gf font files. Date: Thu Mar 25 01:50:26 2004 Author: rstrandh

1 0

[gsharp-cvs] CVS update: gsharp/Fonts/ties.mf gsharp/Fonts/Makefile gsharp/Fonts/charmap.mf gsharp/Fonts/sdl.mf
by Robert Strandh 25 Mar '04

25 Mar '04

Update of /project/gsharp/cvsroot/gsharp/Fonts In directory common-lisp.net:/tmp/cvs-serv21198 Modified Files: Makefile charmap.mf sdl.mf Added Files: ties.mf Log Message: New glyphs for ties, small version. More being worked on. Date: Thu Mar 25 01:48:56 2004 Author: rstrandh Index: gsharp/Fonts/Makefile diff -u gsharp/Fonts/Makefile:1.1.1.1 gsharp/Fonts/Makefile:1.2 --- gsharp/Fonts/Makefile:1.1.1.1 Mon Feb 16 10:46:31 2004 +++ gsharp/Fonts/Makefile Thu Mar 25 01:48:56 2004 @@ -2,7 +2,7 @@ f_clef.mf c_clef.mf accents.mf dot.mf accidentals.mf sharp.mf\ double-sharp.mf double-flat.mf flat.mf natural.mf flags.mf\ rests.mf whole_rest.mf half_rest.mf quarter_rest.mf\ - eighth_rest.mf beams.mf + eighth_rest.mf ties.mf all: sdl6.gf sdl8.gf sdl10.gf sdl12.gf Index: gsharp/Fonts/charmap.mf diff -u gsharp/Fonts/charmap.mf:1.1.1.1 gsharp/Fonts/charmap.mf:1.2 --- gsharp/Fonts/charmap.mf:1.1.1.1 Mon Feb 16 10:46:32 2004 +++ gsharp/Fonts/charmap.mf Thu Mar 25 01:48:56 2004 @@ -85,3 +85,22 @@ global_variable(numeric)(flags_up_four_light)(127) global_variable(numeric)(flags_up_five)(128) global_variable(numeric)(flags_up_five_light)(129) + +global_variable(numeric)(small_tie_one_up)(130) +global_variable(numeric)(small_tie_two_up)(132) +global_variable(numeric)(small_tie_three_up)(134) +global_variable(numeric)(small_tie_four_up)(136) +global_variable(numeric)(small_tie_five_up)(138) +global_variable(numeric)(small_tie_six_up)(140) +global_variable(numeric)(small_tie_seven_up)(142) +global_variable(numeric)(small_tie_eight_up)(144) + +global_variable(numeric)(small_tie_one_down)(146) +global_variable(numeric)(small_tie_two_down)(148) +global_variable(numeric)(small_tie_three_down)(150) +global_variable(numeric)(small_tie_four_down)(152) +global_variable(numeric)(small_tie_five_down)(154) +global_variable(numeric)(small_tie_six_down)(156) +global_variable(numeric)(small_tie_seven_down)(158) +global_variable(numeric)(small_tie_eight_down)(160) + Index: gsharp/Fonts/sdl.mf diff -u gsharp/Fonts/sdl.mf:1.1.1.1 gsharp/Fonts/sdl.mf:1.2 --- gsharp/Fonts/sdl.mf:1.1.1.1 Mon Feb 16 10:46:35 2004 +++ gsharp/Fonts/sdl.mf Thu Mar 25 01:48:56 2004 @@ -143,10 +143,11 @@ endfor; enddef; -input noteheads; -input accidentals; +input noteheads +input accidentals input rests -input clefs; +input clefs input accents input flags +input ties bye

1 0

[gsharp-cvs] CVS update: gsharp/midi.lisp
by Christophe Rhodes 11 Mar '04

11 Mar '04

Update of /project/gsharp/cvsroot/gsharp In directory common-lisp.net:/tmp/cvs-serv1844 Modified Files: midi.lisp Log Message: Implement (SETF MIDIFILE-FORMAT) for identity transforms and 0<->1. Format 2 will follow whenever someone finds a use. Fix a bug in the writer for the key-signature message. Date: Thu Mar 11 10:16:55 2004 Author: crhodes Index: gsharp/midi.lisp diff -u gsharp/midi.lisp:1.2 gsharp/midi.lisp:1.3 --- gsharp/midi.lisp:1.2 Wed Feb 18 13:15:46 2004 +++ gsharp/midi.lisp Thu Mar 11 10:16:55 2004 @@ -220,7 +220,8 @@ (setf time (message-time message)))) 1) ; the delta time of the end-of-track message 4) - (mapc #'write-timed-message track) + (dolist (message track) + (write-timed-message message)) (setf (message-time end-of-track-message) *time*) (write-timed-message end-of-track-message))) @@ -230,7 +231,7 @@ (with-midi-input (filename) (let ((type (read-fixed-length-quantity 4)) (length (read-fixed-length-quantity 4)) - (format (read-fixed-length-quantity 2)) + (format (read-fixed-length-quantity 2)) (nb-tracks (read-fixed-length-quantity 2)) (division (read-fixed-length-quantity 2))) (unless (and (= length +header-mthd-length+) (= type +header-mthd+)) @@ -245,7 +246,7 @@ (defun write-midi-file (midifile filename) (with-midi-output (filename :if-exists :supersede) (write-fixed-length-quantity +header-mthd+ 4) - (write-fixed-length-quantity +header-mthd-length+ 4) + (write-fixed-length-quantity +header-mthd-length+ 4) (with-slots (format division tracks) midifile (write-fixed-length-quantity format 2) (write-fixed-length-quantity (length tracks) 2) @@ -257,6 +258,44 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; +;;; Conversion routines + +(defun format1-tracks-to-format0-tracks (tracks) + (list (reduce (lambda (t1 t2) (merge 'list t1 t2 #'< :key #'message-time)) + (copy-tree tracks)))) + +(defun format0-tracks-to-format1-tracks (tracks) + (assert (null (cdr tracks))) + (let (tempo-map track) + (dolist (message (car tracks) (list (nreverse tempo-map) (nreverse track))) + (if (typep message 'tempo-map-message) + (push message tempo-map) + (push message track))))) + +(defun change-to-format-0 (midifile) + (assert (= (midifile-format midifile) 1)) + (setf (slot-value midifile 'format) 0 + (slot-value midifile 'tracks) (format1-tracks-to-format0-tracks (midifile-tracks midifile)))) + +(defun change-to-format-1 (midifile) + (assert (= (midifile-format midifile) 0)) + (setf (slot-value midifile 'format) 1 + (slot-value midifile 'tracks) (format0-tracks-to-format1-tracks (midifile-tracks midifile)))) + +(defmethod (setf midifile-format) (new-value midifile) + (cond + ((= (midifile-format midifile) new-value) new-value) + ((and (= new-value 0) (= (midifile-format midifile) 1)) + (change-to-format-0 midifile) + new-value) + ((and (= new-value 1) (= (midifile-format midifile) 0)) + (change-to-format-1 midifile) + new-value) + (t (error "Unsupported conversion from format ~S to format ~S" + (midifile-format midifile) new-value)))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; ;;; Macro for defining midi messages (defparameter *status-min* (make-hash-table :test #'eq) @@ -485,6 +524,8 @@ (define-midi-message system-message (message)) +(define-midi-message tempo-map-message (message)) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; system common messages @@ -579,7 +620,7 @@ :filler next-byte ; the first data byte which gives the type of meta message :writer (write-bytes data-min)) -(define-midi-message sequence-number-message (meta-message) +(define-midi-message sequence-number-message (meta-message tempo-map-message) :data-min #x00 :data-max #x00 :slots ((sequence)) :filler (let ((data2 next-byte)) @@ -609,7 +650,7 @@ (define-midi-message copyright-message (text-message) :data-min #x02 :data-max #x02) -(define-midi-message sequence/track-name-message (text-message) +(define-midi-message sequence/track-name-message (text-message tempo-map-message) :data-min #x03 :data-max #x03) (define-midi-message instrument-message (text-message) @@ -618,7 +659,7 @@ (define-midi-message lyric-message (text-message) :data-min #x05 :data-max #x05) -(define-midi-message marker-message (text-message) +(define-midi-message marker-message (text-message tempo-map-message) :data-min #x06 :data-max #x06) (define-midi-message cue-point-message (text-message) @@ -651,14 +692,14 @@ :length 0 :writer (write-bytes 0)) -(define-midi-message tempo-message (meta-message) +(define-midi-message tempo-message (meta-message tempo-map-message) :data-min #x51 :data-max #x51 :slots ((tempo :reader message-tempo)) :filler (progn next-byte (setf tempo (read-fixed-length-quantity 3))) :length 3 :writer (progn (write-bytes 3) (write-fixed-length-quantity tempo 3))) -(define-midi-message smpte-offset-message (meta-message) +(define-midi-message smpte-offset-message (meta-message tempo-map-message) :data-min #x54 :data-max #x54 :slots ((hr) (mn) (se) (fr) (ff)) :filler (progn next-byte (setf hr next-byte mn next-byte se next-byte @@ -666,7 +707,7 @@ :length 5 :writer (write-bytes 5 hr mn se fr ff)) -(define-midi-message time-signature-message (meta-message) +(define-midi-message time-signature-message (meta-message tempo-map-message) :data-min #x58 :data-max #x58 :slots ((nn :reader message-numerator) (dd :reader message-denominator) @@ -686,7 +727,7 @@ temp-sf)) mi next-byte)) :length 2 - :writer (write-bytes 2 sf mi)) + :writer (write-bytes 2 (if (< sf 0) (+ sf 256) sf) mi)) (define-midi-message proprietary-event (meta-message) :data-min #x7f :data-max #x7f

1 0

[gsharp-cvs] CVS update: gsharp/gui.lisp
by Robert Strandh 27 Feb '04

27 Feb '04

Update of /project/gsharp/cvsroot/gsharp In directory common-lisp.net:/tmp/cvs-serv8801 Modified Files: gui.lisp Log Message: Now that it is possible to start a second Gsharp after the first one exits, make the quit command call frame-exit in both CMUCL and SBCL. Date: Fri Feb 27 04:34:30 2004 Author: rstrandh Index: gsharp/gui.lisp diff -u gsharp/gui.lisp:1.7 gsharp/gui.lisp:1.8 --- gsharp/gui.lisp:1.7 Fri Feb 27 04:27:42 2004 +++ gsharp/gui.lisp Fri Feb 27 04:34:30 2004 @@ -362,8 +362,7 @@ (message "Saved buffer to ~A~%" filename))) (define-gsharp-command (com-quit :name t) () - #+cmu (unix::unix-exit) - #+sbcl (frame-exit *application-frame*)) + (frame-exit *application-frame*)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;

1 0

[gsharp-cvs] CVS update: gsharp/gui.lisp
by Robert Strandh 27 Feb '04

27 Feb '04

Update of /project/gsharp/cvsroot/gsharp In directory common-lisp.net:/tmp/cvs-serv26137 Modified Files: gui.lisp Log Message: Changed the implementation of keyboard macros to store functions instead of keys. Once we get numeric arguments, we must store thunks that call the commands with appropriate arguments. Date: Fri Feb 27 04:27:42 2004 Author: rstrandh Index: gsharp/gui.lisp diff -u gsharp/gui.lisp:1.6 gsharp/gui.lisp:1.7 --- gsharp/gui.lisp:1.6 Thu Feb 19 03:50:27 2004 +++ gsharp/gui.lisp Fri Feb 27 04:27:42 2004 @@ -100,22 +100,22 @@ (defvar *gsharp-frame*) (defparameter *kbd-macro-recording-p* nil) -(defparameter *kbd-macro-keys* '()) +(defparameter *kbd-macro-funs* '()) (defmethod dispatch-event :around ((pane score-pane) (event key-press-event)) (when (keyboard-event-character event) (let* ((key (list (keyboard-event-character event) (event-modifier-state event))) (command (gethash key *commands*))) - (when *kbd-macro-recording-p* (push key *kbd-macro-keys*)) (cond ((hash-table-p command) (setf *commands* command)) ((fboundp command) + (when *kbd-macro-recording-p* (push command *kbd-macro-funs*)) (handler-case (funcall command) (gsharp-condition (condition) (format *error-output* "~a~%" condition))) (setf *commands* *global-command-table*)) (t (format *error-output* "no command for ~a~%" key) (setf *commands* *global-command-table*) - (when *kbd-macro-recording-p* (setf *kbd-macro-keys* '() + (when *kbd-macro-recording-p* (setf *kbd-macro-funs* '() *kbd-macro-recording-p* nil)))) (redisplay-gsharp-panes *gsharp-frame* :force-p t)))) @@ -1058,19 +1058,13 @@ (define-gsharp-command com-start-kbd-macro () (message "defining keyboad macro~%") (setf *kbd-macro-recording-p* t - *kbd-macro-keys* '())) + *kbd-macro-funs* '())) (define-gsharp-command com-end-kbd-macro () (message "keyboad macro defined~%") (setf *kbd-macro-recording-p* nil - *kbd-macro-keys* (nreverse (cddr *kbd-macro-keys*)))) + *kbd-macro-funs* (nreverse (cdr *kbd-macro-funs*)))) (define-gsharp-command com-call-last-kbd-macro () - (loop with commands = *global-command-table* - for key in *kbd-macro-keys* do - (let ((command (gethash key commands))) - (cond ((hash-table-p command) (setf commands command)) - ((fboundp command) - (handler-case (funcall command) - (gsharp-condition (condition) (format *error-output* "~a~%" condition)))) - (t (message "no command for ~a~%" key)))))) + (handler-case (mapc #'funcall *kbd-macro-funs*) + (gsharp-condition (condition) (format *error-output* "~a~%" condition))))

1 0

[gsharp-cvs] CVS update: gsharp/score-pane.lisp
by Christophe Rhodes 25 Feb '04

25 Feb '04

Update of /project/gsharp/cvsroot/gsharp In directory common-lisp.net:/tmp/cvs-serv28640 Modified Files: score-pane.lisp Log Message: fix for pixmaps bogusly being cached across different connections to the X server. (as seen on gsharp-devel "Problem of second gsharp" on 2004-02-25). Date: Wed Feb 25 17:24:56 2004 Author: crhodes Index: gsharp/score-pane.lisp diff -u gsharp/score-pane.lisp:1.1.1.1 gsharp/score-pane.lisp:1.2 --- gsharp/score-pane.lisp:1.1.1.1 Mon Feb 16 10:46:21 2004 +++ gsharp/score-pane.lisp Wed Feb 25 17:24:56 2004 @@ -1,7 +1,11 @@ (in-package :score-pane) (defclass score-pane (application-pane) - ((pixmaps :initform (make-hash-table :test #'eq) :reader pane-pixmaps))) + ((pixmaps :initform (make-hash-table :test #'eq) :reader pane-pixmaps) + (darker-gray-progressions :initform (make-array 10 :initial-element nil :adjustable t) + :reader darker-gray-progressions) + (lighter-gray-progressions :initform (make-array 10 :initial-element nil :adjustable t) + :reader lighter-gray-progressions))) (defmethod dispatch-event :before ((pane score-pane) (event pointer-enter-event)) (let ((port (port pane))) @@ -474,10 +478,8 @@ (when (stream-drawing-p *pane*) (medium-draw-rectangle* medium x1 y1 x2 y2 t)))) -(defparameter *darker-gray-progressions* - (make-array 10 :initial-element nil :adjustable t)) -(defparameter *lighter-gray-progressions* - (make-array 10 :initial-element nil :adjustable t)) +(defvar *darker-gray-progressions*) +(defvar *lighter-gray-progressions*) ;;; don't delete this yet, since I don't know how the other one will work out. ;; (defun ensure-gray-progressions (index) @@ -563,7 +565,7 @@ (defclass upward-beam-output-record (beam-output-record) ()) -(defmethod replay-output-record ((record upward-beam-output-record) stream +(defmethod replay-output-record ((record upward-beam-output-record) (stream score-pane) &optional (region +everywhere+) (x-offset 0) (y-offset 0)) (declare (ignore x-offset y-offset region)) @@ -572,15 +574,17 @@ (let ((medium (sheet-medium stream))) (let ((*light-glyph* (not (eq ink +black+)))) (with-drawing-options (medium :ink ink) - ;; we replay with the identity tranformation, so - ;; we have to draw the other way - (draw-downward-beam medium x1 (1- y2) (1- (+ y1 thickness)) thickness - (/ (- x2 x1) (- y2 y1 thickness))))))))) + (let ((*lighter-gray-progressions* (lighter-gray-progressions stream)) + (*darker-gray-progressions* (darker-gray-progressions stream))) + ;; we replay with the identity tranformation, so + ;; we have to draw the other way + (draw-downward-beam medium x1 (1- y2) (1- (+ y1 thickness)) thickness + (/ (- x2 x1) (- y2 y1 thickness)))))))))) (defclass downward-beam-output-record (beam-output-record) ()) -(defmethod replay-output-record ((record downward-beam-output-record) stream +(defmethod replay-output-record ((record downward-beam-output-record) (stream score-pane) &optional (region +everywhere+) (x-offset 0) (y-offset 0)) (declare (ignore x-offset y-offset region)) @@ -589,10 +593,12 @@ (let ((medium (sheet-medium stream))) (let ((*light-glyph* (not (eq ink +black+)))) (with-drawing-options (medium :ink ink) - ;; we replay with the identity tranformation, so - ;; we have to draw the other way - (draw-upward-beam medium x1 (1- (+ y1 thickness)) (1- y2) thickness - (/ (- x2 x1) (- y2 y1 thickness))))))))) + (let ((*lighter-gray-progressions* (lighter-gray-progressions stream)) + (*darker-gray-progressions* (darker-gray-progressions stream))) + ;; we replay with the identity tranformation, so + ;; we have to draw the other way + (draw-upward-beam medium x1 (1- (+ y1 thickness)) (1- y2) thickness + (/ (- x2 x1) (- y2 y1 thickness)))))))))) (defun draw-sloped-beam (medium x1 y1 x2 y2 thickness inverse-slope) (let ((transformation (medium-transformation *pane*))) @@ -658,6 +664,8 @@ (let ((pixmap (gensym)) (mirror (gensym))) `(let* ((*pane* ,pane) + (*lighter-gray-progressions* (lighter-gray-progressions pane)) + (*darker-gray-progressions* (darker-gray-progressions pane)) (,pixmap (allocate-pixmap *pane* 800 900)) (,mirror (sheet-direct-mirror *pane*))) (draw-rectangle* ,pixmap 0 0 800 900 :filled t :ink +white+)

1 0

[gsharp-cvs] CVS update: gsharp/Doc/release-notes.tex
by Christophe Rhodes 25 Feb '04

25 Feb '04

Update of /project/gsharp/cvsroot/gsharp/Doc In directory common-lisp.net:/tmp/cvs-serv28640/Doc Modified Files: release-notes.tex Log Message: fix for pixmaps bogusly being cached across different connections to the X server. (as seen on gsharp-devel "Problem of second gsharp" on 2004-02-25). Date: Wed Feb 25 17:24:56 2004 Author: crhodes Index: gsharp/Doc/release-notes.tex diff -u gsharp/Doc/release-notes.tex:1.3 gsharp/Doc/release-notes.tex:1.4 --- gsharp/Doc/release-notes.tex:1.3 Fri Feb 20 01:06:20 2004 +++ gsharp/Doc/release-notes.tex Wed Feb 25 17:24:56 2004 @@ -24,6 +24,7 @@ \subsection{Bug fixes from 0.2} \begin{itemize} +\item fixed a bug in pixmap cacheing \item fixed pathname-related problems for MIDI and fonts. \item fixed annoying bug that ruined the spacing of unevenly timed music.

1 0

[gsharp-cvs] CVS update: gsharp/Doc/gsharp.bib gsharp/Doc/Makefile gsharp/Doc/gsharp.tex
by Robert Strandh 24 Feb '04

24 Feb '04

Update of /project/gsharp/cvsroot/gsharp/Doc In directory common-lisp.net:/tmp/cvs-serv11457 Modified Files: Makefile gsharp.tex Added Files: gsharp.bib Log Message: Added bibliography. Modified the Makefile to compile Bibtex file. Date: Tue Feb 24 00:30:47 2004 Author: rstrandh Index: gsharp/Doc/Makefile diff -u gsharp/Doc/Makefile:1.1.1.1 gsharp/Doc/Makefile:1.2 --- gsharp/Doc/Makefile:1.1.1.1 Mon Feb 16 10:46:21 2004 +++ gsharp/Doc/Makefile Tue Feb 24 00:30:47 2004 @@ -16,6 +16,7 @@ $(NAME).dvi: $(TEXFILES) $(PSTEX_T) $(VERBATIM) latex $< makeindex $(NAME) + bibtex gsharp latex $< $(NAME).ps: $(NAME).dvi $(PSTEX) @@ -27,7 +28,6 @@ clean: rm -f *.aux *.log *~ -spotless: - make clean - rm -f *.ps *.dvi *.pstex *.pstex_t *.toc *.idx *.ilg *.ind +spotless: clean + rm -f *.ps *.dvi *.pstex *.pstex_t *.toc *.idx *.ilg *.ind *.bbl Index: gsharp/Doc/gsharp.tex diff -u gsharp/Doc/gsharp.tex:1.1.1.1 gsharp/Doc/gsharp.tex:1.2 --- gsharp/Doc/gsharp.tex:1.1.1.1 Mon Feb 16 10:46:26 2004 +++ gsharp/Doc/gsharp.tex Tue Feb 24 00:30:47 2004 @@ -800,5 +800,16 @@ Talk about frames, panes, streams, etc. +\nocite{ross-1987} \nocite{haken-1993} \nocite{haken-1995} +\nocite{aho-hopcroft-ullman} \nocite{blostein-1991} +\nocite{blostein-1994} \nocite{gourlay-1987-spacing} +\nocite{gourlay-1987-formatting} \nocite{hegazy-1987} +\nocite{hegazy-1987-breaking} \nocite{rader-1996} \nocite{tex} + + \printindex + +\newpage +\bibliographystyle{alpha} +\bibliography{gsharp} \end{document}

1 0

[gsharp-cvs] CVS update: gsharp/drawing.lisp
by Robert Strandh 20 Feb '04

20 Feb '04

Update of /project/gsharp/cvsroot/gsharp In directory common-lisp.net:/tmp/cvs-serv21473 Modified Files: drawing.lisp Log Message: Introduced new function `compute-min-dist' in order to factor previously duplicated code. Date: Fri Feb 20 03:39:03 2004 Author: rstrandh Index: gsharp/drawing.lisp diff -u gsharp/drawing.lisp:1.3 gsharp/drawing.lisp:1.4 --- gsharp/drawing.lisp:1.3 Mon Feb 16 12:38:10 2004 +++ gsharp/drawing.lisp Fri Feb 20 03:39:03 2004 @@ -49,13 +49,16 @@ (defvar *cursor* nil) +(defun compute-min-dist (measures) + (let ((min-dists (mapcar (lambda (measure) + (reduce #'min (gsharp-measure::abs-rel + (measure-start-times measure)))) + measures))) + (reduce #'min min-dists))) + (defun compute-widths (measures method) - (let* ((compress (compute-compress-factor measures method)) - (min-dists (mapcar (lambda (measure) - (reduce #'min (gsharp-measure::abs-rel - (measure-start-times measure)))) - measures)) - (min-dist (reduce #'min min-dists))) + (let ((compress (compute-compress-factor measures method)) + (min-dist (compute-min-dist measures))) (loop for measure in measures collect (/ (nat-width method (measure-coeff measure) min-dist) compress)))) @@ -81,12 +84,8 @@ (with-light-glyphs pane (draw-bar pane bar x width time-alist draw-cursor)))))) (defun draw-system (pane measures x widths method staves draw-cursor) - (let* ((compress (compute-compress-factor measures method)) - (min-dists (mapcar (lambda (measure) - (reduce #'min (gsharp-measure::abs-rel - (measure-start-times measure)))) - measures)) - (min-dist (reduce #'min min-dists))) + (let ((compress (compute-compress-factor measures method)) + (min-dist (compute-min-dist measures))) (loop for measure in measures for width in widths do (draw-measure pane measure min-dist compress x method draw-cursor)

1 0

[gsharp-cvs] CVS update: gsharp/Doc/release-notes.tex
by Robert Strandh 20 Feb '04

20 Feb '04

Update of /project/gsharp/cvsroot/gsharp/Doc In directory common-lisp.net:/tmp/cvs-serv12480 Modified Files: release-notes.tex Log Message: Updated release notes according to recent fixes. Date: Fri Feb 20 01:06:20 2004 Author: rstrandh Index: gsharp/Doc/release-notes.tex diff -u gsharp/Doc/release-notes.tex:1.2 gsharp/Doc/release-notes.tex:1.3 --- gsharp/Doc/release-notes.tex:1.2 Mon Feb 16 11:08:01 2004 +++ gsharp/Doc/release-notes.tex Fri Feb 20 01:06:20 2004 @@ -5,8 +5,9 @@ \subsection{Features added from 0.2} \begin{itemize} -\item right edge of staff is no longer hard wired. -\item left margin is now a parameter of the buffer (and on disk). +\item An Emacs-style keyboard macro facility has been added. +\item Right edge of staff is no longer hard wired. +\item Left margin is now a parameter of the buffer (and on disk). \item x-position of first measure on line now depends on the size of the key signature. This means that wide key signatures no longer overlap with notes of the first measure on the line. @@ -23,6 +24,9 @@ \subsection{Bug fixes from 0.2} \begin{itemize} +\item fixed pathname-related problems for MIDI and fonts. +\item fixed annoying bug that ruined the spacing of unevenly timed + music. \item last sharp sign in key signature with seven sharp signs is now drawn. \item fixed conformance bugs in some \texttt{loop} constructs (thanks to

1 0