modelsim.tcl

来自「qam的vhdl程序」· TCL 代码 · 共 22 行

# modelsim.tcl
#
# Hooks constellation-diagram code, in <argand.tcl>,
# to the ModelSim wave window.
#
# Jonathan Bromley  25 Apr 2002


# Read the constellation plot code into Tcl
#
source argand.tcl

# Proc to add the appropriate menu item to any wave window
#
proc wave_hook {w} {
  add_menu $w plots
  add_menuitem $w plots Polar [list argand $w]
}

# Hook this stuff into every new ModelSim wave window
#
lappend PrefWave(user_hook) wave_hook