50 lines
1.0 KiB
Tcl
50 lines
1.0 KiB
Tcl
#!/bin/sh
|
|
# WishFix \
|
|
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
|
|
|