apero time

code/bipenv.ck

@@ -0,0 +1,12 @@
+// Just a better beep
+SinOsc s  => Envelope e   =>   dac;
+// reglage de notre oscillateur
+0.5         =>   s.gain;
+440         =>   s.freq;
+// reglage de notre enveloppe
+200::ms => e.duration;
+// hop !
+e.keyOn();
+2::second   =>   now;
+e.keyOff();
+1::second   =>   now;

code/bipfilter.ck

@@ -0,0 +1,16 @@
+//--- Just a noisy beep
+SqrOsc s => BPF f => Envelope e => dac;
+//--- reglage de notre oscillateur
+0.8         =>   s.gain;
+440         =>   s.freq;
+//--- reglage de notre enveloppe
+100::ms     =>   e.duration;
+//--- reglage du filtre passe bande
+2           =>   f.Q;
+1337        =>   f.freq;
+
+//--- hop encore un beep !
+e.keyOn();
+2::second   =>   now;
+e.keyOff();
+1::second   =>   now;

code/bipvibrato.ck

@@ -0,0 +1,14 @@
+SqrOsc s => BPF f => Envelope e => dac;
+0.8         =>   s.gain;
+440         =>   s.freq;
+100::ms     =>   e.duration;
+
+//--- reglage du filtre passe bande
+2           =>   f.Q;
+1337        =>   f.freq;
+
+//--- hop encore un beep !
+e.keyOn();
+2::second   =>   now;
+e.keyOff();
+1::second   =>   now;

code/xf_yesno.c

@@ -0,0 +1,33 @@
+#include <forms.h>
+
+int main(int argc, char *argv[]) {
+    FL_FORM *form;
+    FL_OBJECT *yes,
+              *no,
+              *but;
+
+    fl_initialize(&argc, argv, "FormDemo", 0, 0);
+
+    form = fl_bgn_form(FL_UP_BOX, 320, 120);
+    fl_add_box(FL_BORDER_BOX, 160, 40, 0, 0,      \
+                            "Do you want to Quit?");
+    yes = fl_add_button(FL_NORMAL_BUTTON, \
+                            40, 70, 80, 30, "Yes");
+    no  = fl_add_button(FL_NORMAL_BUTTON, \
+                            200, 70, 80, 30, "No");
+    fl_end_form();
+
+    fl_show_form(form, FL_PLACE_MOUSE, FL_TRANSIENT, \
+                             "Question");
+
+    while (1) {
+        if (fl_do_forms() == yes {
+            printf("Yes is pushed\n");
+            break;
+        }
+        else printf("No is pushed\n");
+    }
+
+    fl_finish();
+    return 0;
+}