diff options
author | Felipe Sateler <fsateler@gmail.com> | 2008-03-24 16:39:11 -0300 |
---|---|---|
committer | Felipe Sateler <fsateler@gmail.com> | 2008-03-24 16:39:11 -0300 |
commit | 2af72543872544f18b7e3812cb64d9fe5886c47b (patch) | |
tree | e35d9468794be891222d3ddc05e46e2810add952 /examples/FLslidBnk.csd |
Imported Upstream version 5.08
Diffstat (limited to 'examples/FLslidBnk.csd')
-rw-r--r-- | examples/FLslidBnk.csd | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/examples/FLslidBnk.csd b/examples/FLslidBnk.csd new file mode 100644 index 0000000..25f2b3c --- /dev/null +++ b/examples/FLslidBnk.csd @@ -0,0 +1,60 @@ +<CsoundSynthesizer> +<CsOptions> +; Select audio/midi flags here according to platform +; Audio out Audio in No messages +-odac -iadc -d ;;;RT audio I/O +; For Non-realtime ouput leave only the line below: +; -o FLslidBnk.wav -W ;;; for file output any platform +</CsOptions> +<CsInstruments> + +sr = 44100 +kr = 441 +ksmps = 100 +nchnls = 1 + +gitypetable ftgen 0, 0, 8, -2, 1, 1, 3, 3, 5, 5, 7, 7 +giouttable ftgen 0, 0, 8, -2, 0, 0.2, 0.3, 0.4, 0.5, 0.6, 0.8, 1 + +FLpanel "Slider Bank", 400, 380, 50, 50 + ;Number of sliders + inum = 8 + ; Table to store output + iouttable = giouttable + ; Width of the slider bank in pixels + iwidth = 350 + ; Height of the slider in pixels + iheight = 160 + ; Distance of the left edge of the slider + ; from the left edge of the panel + ix = 30 + ; Distance of the top edge of the slider + ; from the top edge of the panel + iy = 10 + ; Table containing fader types + itypetable = gitypetable + FLslidBnk "1@2@3@4@5@6@7@8", inum , iouttable , iwidth , iheight , ix \ + , iy , itypetable + FLslidBnk "1@2@3@4@5@6@7@8", inum , iouttable , iwidth , iheight , ix \ + , iy + 200 , -23 +; End of panel contents +FLpanelEnd +; Run the widget thread! +FLrun + + +instr 1 +;Dummy instrument +endin + + +</CsInstruments> +<CsScore> + +; Instrument 1 will play a note for 1 hour. +i 1 0 3600 +e + + +</CsScore> +</CsoundSynthesizer> |