1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
<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 FLscroll.wav -W ;;; for file output any platform
</CsOptions>
<CsInstruments>
; Demonstration of the flscroll opcode which enables
; the use of widget sizes and placings beyond the
; dimensions of the containing panel
sr = 44100
kr = 441
ksmps = 100
nchnls = 1
FLpanel "Text Box", 420, 200, 50, 50
iwidth = 420
iheight = 200
ix = 0
iy = 0
FLscroll iwidth, iheight, ix, iy
ih3 FLbox "DRAG THE SCROLL BAR TO THE RIGHT IN ORDER TO READ THE REST OF THIS TEXT!", 1, 10, 20, 870, 30, 10, 100
FLscrollEnd
; End of panel contents
FLpanelEnd
; Run the widget thread!
FLrun
instr 1
endin
</CsInstruments>
<CsScore>
; 'Dummy' score event of 1 hour.
f 0 3600
e
</CsScore>
</CsoundSynthesizer>
|
