lib/tcl/ngspice.tcl

   1 # ngspice.tcl
   2 #
   3 # This script creates the active loop for the background ngspice
   4 # simulator, and creates buttons for various simulator controls.
   5 #
   6 # Labels wishing to access spice variables can use, e.g.:
   7 # spice send "print TIME\[$STEP\]"
   8
   9 proc ngsim {} {
  10    if {![catch {spice break}]} {
  11       refresh;
  12       spice resume
  13       after 500 ngsim   ;# update at 1/2 second intervals
  14    }
  15 }
  16
  17 proc startspice {} {
  18    spice start
  19    spice run
  20    after 500 ngsim
  21 }
  22
  23 proc stopspice {} {
  24    after cancel ngsim
  25    spice break;
  26    refresh;
  27 }