Add play-waveform and play-sine to openal.examples

diff --git a/extra/openal/example/example.factor b/extra/openal/example/example.factor
index 54ce402957188711ed9c9510362c1de91214654a..9e438a70eff30871f49e5e0b0e605831476556a0 100755 (executable)
--- a/extra/openal/example/example.factor
+++ b/extra/openal/example/example.factor
@@ -9,6 +9,18 @@ IN: openal.example
     first dup AL_BUFFER  alutCreateBufferHelloWorld set-source-param
     source-play
     1000 milliseconds sleep ;
+
+: play-waveform ( waveshape freq phase duration -- )
+    init-openal
+    [
+        [ 1 gen-sources first dup AL_BUFFER ] 4dip
+        alutCreateBufferWaveform
+        set-source-param
+        source-play
+    ] [ seconds sleep ] bi ;
+
+: play-sine ( freq duration -- )
+  [ ALUT_WAVEFORM_SINE ] 2dip [ 0 ] dip play-waveform ;
   
 : (play-file) ( source -- )
     100 milliseconds sleep