/usr/share/doc/libhugs-alut-bundled/examples/ALUT/TestSuite/TestWaveforms.hs is in libhugs-alut-bundled 98.200609.21-5.4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | {-
TestWaveforms.hs (adapted from test_waveforms.c in freealut)
Copyright (c) Sven Panne 2005 <sven.panne@aedion.de>
This file is part of the ALUT package & distributed under a BSD-style license
See the file libraries/ALUT/LICENSE
-}
import Sound.ALUT
-- This program plays a 440Hz tone using a variety of waveforms.
playTone :: (Frequency -> Phase -> Duration -> SoundDataSource a) -> IO ()
playTone soundDataSource = do
buf <- createBuffer (soundDataSource 440 0 1)
[source] <- genObjectNames 1
buffer source $= Just buf
play [source]
sleep 1
main :: IO ()
main =
withProgNameAndArgs runALUT $ \_progName _args ->
mapM_ playTone [ Sine, Square, Sawtooth, (const (const WhiteNoise)), Impulse ]
|