blob: 458e903d675c31e3339e2bf28adcf84cca8cf645 (
plain)
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
|
#!/bin/sh
# -*- mode: tcl -*- \
exec wish -f "$0" ${1+"$@"}
package require BLT
load ../../../src/.libs/libspice.so
namespace import blt::*
wm title . "Vector Test script"
wm geometry . 800x600+40+40
pack propagate . false
stripchart .chart
pack .chart -side top -fill both -expand true
.chart axis configure x -title "Time"
# Create a vector (and call it $vector)
#vector create v1
spice::source example.cir
spice::bg run
after 1000
vector create a0
vector create b0
vector create a1
vector create b1
vector create stime
proc bltupdate {} {
#puts [spice::spice_data]
spice::spicetoblt a0 a0
spice::spicetoblt b0 b0
spice::spicetoblt a1 a1
spice::spicetoblt b1 b1
spice::spicetoblt time stime
#puts $spice::lastitercount
after 100 bltupdate
}
bltupdate
.chart element create a0 -color red -xdata stime -ydata a0
.chart element create b0 -color blue -xdata stime -ydata b0
.chart element create a1 -color yellow -xdata stime -ydata a1
.chart element create b1 -color black -xdata stime -ydata b1
|
