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
46
47
48
49
|
load_file("demo.hoc")
load_file("electrod.hoc")
xpanel("Demo Control")
cycling = 1
xbutton("Quit Cycle", "cycling = 0")
xpanel()
proc crun() {local i
for i=1,5 if (cycling) {
run()
doNotify()
system("sleep 2")
doEvents()
}
}
objectvar e
proc cyc() {local cycle, i
cycling = 1
cycle = 0
while (cycling) {
cycle = cycle%4 + 1
demo(cycle)
doNotify()
crun()
if (cycle == 1) {
// switch to vc family
cyckeep()
e = Electrode[0]
execute("installFamily()", e)
execute("varyamp(1)", e)
system("sleep 5")
objref e
}
}
}
proc cyckeep() {local i, j
for i=0, n_graph_lists - 1 {
cnt = graphList[i].count()
for j=0, cnt - 1 {
graphList[i].object(j).family(1)
}
}
}
cyc()
|
