LOGO-L> Re: Logo

[George Mills <mills@softronix.com>]

Ooops, I thought I had an example for playing a midi file (.MID).
Sorry about that, this example will be included in the next release.

to aaaaaa
;
; Function:
;
; This routine will allow you to play a MIDI (.MID) file
; The :arg is the midi file you wish to play.
; It plays it asynchronously and you can stop it any time
; by issuing the command midistop.
;
; To run:
;
; load "midi.lgo
; Call midi file
;
; Example:
;
midi "c:/windows/media/canyon.mid
;
; System requirements:
;
; You must have Windows 3.1 (or 3.0 with Multi-Media Extentions)
; You must have the correct driver loaded in Windows for video
;    (MCI avivideo).
;
end

to midi :a
print sentence [opened sequencer on channel] mci (sentence [open] (word
"sequencer! :a) [alias music])
print sentence [playing the music] :a
(mci [play music notify] [mci [close music] print "Done])
end

to midistop
mci [stop music wait]
print [Midi stopped]
end

Justin Gerhing wrote:
> 
> Hi
> I was wondering if there is a way to have logo play a midi file on it's
> own. Like in your midi example only this time it loads a midi file so
> that i could play something like cannon.mid.
> 
> Get what i am saying?
> All i want logo to do it play a midi file in a program.
> 
> Thanx
> JJ DOUGHBOY
> pgehring@mmmpcc.org
> jjdb210@hotmail.com

-- 
===============================================================
George Mills
email: mills@softronix.com
http://www.softronix.com
The www page contains some very powerful educational software.
Our single most important investment is our kids.
---------------------------------------------------------------
Please post messages to the Logo forum to logo-l@gsn.org.  Mail
questions about the list administration to logofdn@gsn.org.  To
unsubscribe send    unsubscribe logo-l    to majordomo@gsn.org.