# HG changeset patch
# User Chris Cannam
# Date 1367601420 -3600
# Node ID 045908c861a4e2bde7171a1d50442f7133006bf3
# Parent  7cfcc3a07177fd74c4176542bed5e30713f12387
Implement pulse channel, untested

diff -r 7cfcc3a07177 -r 045908c861a4 yetilab/stream/test/audiofile_reference.yeti
--- a/yetilab/stream/test/audiofile_reference.yeti	Fri May 03 18:11:56 2013 +0100
+++ b/yetilab/stream/test/audiofile_reference.yeti	Fri May 03 18:17:00 2013 +0100
@@ -6,7 +6,18 @@
 vec = load yetilab.block.fvector;
 block = load yetilab.block.block;
 
-pulseChannel rate = syn.silent rate; //!!! to be implemented!
+pulseChannel rate =
+   (pulseFreq = 2;
+    pulseWidth = 0.01 * rate;
+    generator i =
+       (pulseNo = int ((i * pulseFreq) / rate);
+        index = (i * pulseFreq) - (rate * pulseNo);
+        if index < pulseWidth then
+	    s = 1.0 - abs(pulseWidth/2 - index) / (pulseWidth/2);
+	    if pulseNo % 2 != 0 then (-s) else s fi
+        else 0
+        fi);
+    syn.generated rate generator);
 
 referenceChannels rate =
    (leftovers rate n =