Metronome: Difference between revisions

{{task}}<!--{{task|Temporal media}}-->

 

 

 

=={{header|AutoHotkey}}==

Rather basic implementation, but meets the requirements and is reasonably accurate.

pattern = 4/4 ;

duration = 100 ; Milliseconds

Esc::

MsgBox % "Metronome beeped " beats " beats, over " (A_TickCount-Start)/1000 " seconds. "

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

Tempo% = 100

WAIT 6000/Tempo%

NEXT

 

=={{header|C}}==

Using <code>usleep</code> with self correcting delays. Audio is the bell character, which will definitely drive one insane (but I'm ok: my computer doesn't have the bell device). Invoke with <code>./a.out [beats_per_minute]</code>, default to 60.

#include <stdlib.h>

#include <unistd.h>

 

return 0;

 

=={{header|Common Lisp}}==

Depends on quicklisp and OpenAL.

 

(defparameter *short-max* (- (expt 2 15) 1))

(h (play-it high-buffer)))

(princ symbol))

<pre>CL-USER> (metronome 100 '(h l l l))

HLLL

HLL; Evaluation aborted on NIL.</pre>

 

=={{header|EchoLisp}}==

;; available preloaded sounds are : ok, ko, tick, tack, woosh, beep, digit .

(lib 'timer)

(at-every 1000 'metronome) ;; every 1000 msec

;; CTRL-C to stop

 

 

=={{header|Factor}}==

command-line continuations io kernel math math.parser namespaces

openal.example sequences system timers ui ui.gadgets

[ [ metronome-cmdline metronome-ui ] [ drop metronome-usage 1 exit ] recover ] with-ui ;

 

 

=={{header|Go}}==

It would be reasonably simple (but covered better in other tasks)

to change bpm and bpb into command line arguments,

So, as long as the output or sound production finishes before the next tick,

the timing will be reliable and will not drift which is the gist of this task.

 

import (

}

}

{{out}}

<pre>

TICK tick ^C

</pre>

=={{header|Haskell}}==

 

{{works with|GHC|7.4.2}}

 

import Control.Concurrent.MVar

import System.Process (runCommand)

_ <- forkIO $ tick b i

_ <- getChar

 

=={{header|Liberty BASIC}}==

Requires two supplied wav files for accentuated & standard sounds.

WindowHeight =220

 

#w "flush"

 

 

 

}

TICK tick tick tick tick tick

TICK tick tick tick tick tick

TICK tick tick tick tick tick

TICK tick tick tick tick tick

</pre>

 

=={{header|PicoLisp}}==

A short beep (440 Hz, 40 msec) is produced in a child process, while a "pendulum" is swinging left and right. Hitting any key will stop it.

(if (fork)

(let Pid @

(T (key (*/ 30000 Bpm)) (tell Pid 'bye)) )

(prinl) )

Test:

/

 

=={{header|Pure Data}}==

#X connect 40 0 41 0;

</pre>

 

=={{header|Python}}==

#lang Python

import time

main()

 

 

=={{header|Racket}}==

#lang racket

 

(send* f (center) (show #t))

(void (thread flip))

 

=={{header|REXX}}==

===textual visual, no sound===

 

 

===with sound, REGINA only===

 

end /*until et≥dur*/

 

===with sound, PC/REXX only===

 

 

=={{header|Tcl}}==

This code only rings the bell on the high beat, which occurs at the start of the bar.

 

lassign $argv bpm bpb

# Run the metronome until the user uses Ctrl+C...

beat

It might be executed like this:

 

{{omit from|GUISS}}

{{omit from|Lotus 123 Macro Scripting}}