[ruby-list:4272] [Q] tk ext...

< ^ > P N |<>|^_>< --- | ~ ...Help
--AP2g/MAC+5xKAEJP
Content-Type: text/plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

五仁凶卞匹允﹝

﹜ruby匹撢迕皿伕弘仿丞毛迨縣中峇ゥ〣犖鴾礞玫磥中楔銴忖阬
閤中引允﹝

支曰凶中仇午“
   Verilog扑立亙伊□正井日PLI(Program Language Interface)匹
   陸朿ヌ溥申亙□伐毛裟少﹝ヌ溥申亙□伐反UCB互綜勻凶瘋ミ幵第
   皿伕弘仿丞互丐勻化﹜迕及PLI及戊□玉反匹五化中月﹝
   Verilog扑立亙伊□正反Unix永玄毛銀勻化ヌ溥申亙□伐午騷耨允月﹝
   杽鎖反UCB及ヌ溥申亙□伐互衙霾讀卅␘汁□伙平永玄匹中④═瓣①阬
   颱卞扎今勻天曰歹井日卅仁﹜澎毛笛尹月仇午互匹五卅中﹜午中丹仇午匹允﹝
   匹﹜ヌ溥申亙□伐毛Tcl/Tk匹韭馱角銴忖�蚺瓣縣峇エ馱活阬
   媎刈反Unix永玄毛健尹卅中方丹分﹝匹ruby+tk及痐エ飽阬

驕尥及氾旦玄皿伕弘仿丞毛中④艉牏楔縑阬
限限限限限限限限限限限限限限泬鍡蝍闉蘟裍氃鍕懃鍕翴
掠掠掠掠掠掠掠掠掠限限限限限限限限限限限限限限及方丹卅data白央奶伙毛中④炊迨牏飽␂靚儦鄐牴畮痐庥嘟活〤騛鄐珍秅エ飽阬
觶禊 鐏欒灖毿殣氨魟酃
午井允月午﹜日仄中釣反牏飽阬

今化撙杽匹允﹝

1) 伓𥂝洃洃中漱阬淟澮永玄井日及じ恘卞譆五晶尹引允互﹜仇及譬閡匹
  侐釐卅犯□正毛熬仃午勻化中勻化﹜Tk及Canvas反杽鎖卅中匹允井〝
  (丐午朮□丞窗升じ木卅仁切扎分戶分仄)
2) WViewer弁仿旦醱匹銀勻化中月﹜$v, $c, $scr反瘉丰韞馴縞韞嘟捁穭豸楔阬
  凶及匹允互﹜釐啗庍醒卞仄卅中午分戶匹仄凶﹝仇木反中丹手及匹允井〝
3) draw_scale午中丹丟玉匹支勻化中月仇午反﹜瘉阬
  爪  踼搿攠颾鍷魖璈悅及躂詨匹支勻化凶及匹允互﹜互庍匹仄凶﹝
  仇木反卅兮〝
4) 職躂仄凶幻丹互中中鰾

動曉方欠仄仁云友互中仄引允﹝

-- 
諦戲毛ボ扙中髑仆

腑禱 擦(Kikutani Makoto)  kikutani / eis.or.jp kikutani / jdc.ericsson.se
hgf03701 / niftyserve.or.jp    http://www.eis.or.jp/muse/kikutani/

--AP2g/MAC+5xKAEJP
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename="tkwaviewer.rb"

#!/usr/bin/ruby
# test program for WaveViewer which can be called from Verilog PLI

require "tkclass"

# initial window size
$width  500'
$height  100'
$vwidth  0
$pr_time_step  00

class WViewer
  def initialize(signame)
    @high  height.to_i * 0.2
    @low  height.to_i * 0.7
    @pr_time  
    @last_x  
    @last_y  low

    @frm  kFrame.new{|f|
      TkLabel.new(f) {
	text signame
	pack('side' top')
      }

      # canvas for vertical axis
      $v  kCanvas.new(f) {
	relief 'sunken'
	bg 'LightCyan1'
	height $height
	width  $vwidth.to_s
	pack('side' left', 'fill'y')
      }

      # canvas for plotting the points
      $c  kCanvas.new(f) {
	xscrollcommand proc{|idx|
	  $scr.set *idx
	}
	relief 'sunken'
	bg 'LightCyan1'
	height $height
	width  $width
	closeenough '3'
	pack('side' top', 'fill'both', 'expand'1')
      }
  
      $scr  kScrollbar.new(f) {
	orient 'horizontal'
	command proc{|idx|
	  $c.xview *idx
	}
	pack('side'bottom', 'fill'x')
      }
      pack
    }

  end

  def draw_scale
    # draw vertical scale
    TkcLine.new($v, $vwidth/2+10, @low, $vwidth/2+10, @high, 'fill'blue')
    TkcLine.new($v, $vwidth/2, @low, $vwidth/2+10, @low, 'fill'blue')
    TkcLine.new($v, $vwidth/2, @high, $vwidth/2+10, @high, 'fill'blue')
    TkcText.new($v, 5, @high, 'text'1', 'fill'red')
    TkcText.new($v, 5, @low, 'text'0', 'fill'red')
  end

  def plot_bit(dt, b)
    x  last_x + dt
    if b 1
      y  high
    else
      y  low
    end
    TkcLine.new($c, @last_x, @last_y, x, @last_y)
    TkcLine.new($c, x, @last_y, x, y)
    if x > pr_time
      TkcText.new($c, x, @low+10, 'text', 'fill'green')
      @pr_time + pr_time_step
    end
    @last_x  
    @last_y  
  end

  def set_scrarea
    $c.configure('scrollregion', "0 0 #@last_x #$height")
  end
end

# 1st line is the signal name 
signal  ets
view  Viewer.new(signal)
view.draw_scale
# now plot points from stdin 
while gets
  dt, b  plit
  view.plot_bit(dt.to_i, b.to_i)
end
# set scroll area
view.set_scrarea

Tk.mainloop

--AP2g/MAC+5xKAEJP--