[CM] tempo-change

[Johannes Quint]

i've written a function, which opens midifiles via sibelius instead of 
quicktime.

(set-midi-output-hook! #'sib-play-midifile)

this works fine. then i've add two functions to change time-signatures 
and tempos from bar to bar:

(define (metermsg time n d)
   (multiple-value-bind (msg data)
       (make-time-signature n d)
     (new midimsg time time msg msg data data)))

(define (tempomsg time tempo)
   (multiple-value-bind (msg data)
       (make-tempo-change tempo)
     (new midimsg time time msg msg data data)))

strange is, that the first (metermsg) works fine but the second 
(tempomsg) creates in sibelius odd tempi, i.e.
(tempomsg (now) 120)
creates in sibelius tempo 90000 or so.
is this a problem of sib or is something wrong with my code?

j.


__

Johannes Quint
Rilkestr.55
D-53225 Bonn
0228 468256
johannes.quint at web.de
http://private.addcom.de/j.quint/index.htm
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/enriched
Size: 1000 bytes
Desc: not available
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20030715/60525e55/attachment.bin>