🚀 go-pugleaf

$BBgJ?!wAa0pED$G$9!#(B

 |$B%9%/%m!<%k%P!<Ey$rMQ$$$F1&J}8~$K%9%/%m!<%k$5$;$?>l9g!"(B
 |$B;OE@$,$O$k$+:8$NJ}$K$"(B$B$C$F=*E@$N$_@5>o0LCV$K%W%m%C%H$5$l$^$9!#(B
 |
 |proc CanvB1Press {sheet x y} {
 |  global dx1 dy1 dx2 dy2 count
 |  set c $sheet
 |  set sx [$c canvasx $x]
 |  set sy [$c canvasy $y]
 |
 |  bind $c <ButtonRelease-1> "drawLine $c $x $y %x %y"
 |  proc drawLine {c sx sy cx cy} {
 |    global dx1 dy1 dx2 dy2 count
 |    set cx [$c canvasx $cx]
 |    $c create line $sx $sy $cx $sy -width 2 -fill red
 |    set dx1($count) $sx
 |    set dy1($count) $sy
 |    set dx2($count) $cx
 |    set dy2($count) $sy
 |    puts ($sx,$sy)-($cx,$sy) ;### $B3NG'=PNO(B
 |    incr count
 |  }
 |}

$B%U%)%m!<%"%C%W$N$H$*$j!"JQ?t$N<u(B$B$1EO$7$r4V0c$($F$*$j$^$7$?!#(B
bind $c <ButtonRelease-1> "drawLine $c $sx $sy %x %y"
$B$H$9$k$3$H$G!"L\E*(B$B$r2L$?$9$3$H$,$G$-$^$7$?!#(B
$B%U%)%m!<$7$F$/$@$5$C$?J}!9!"$"$j$,$H$&$4$6$$$^$7$?!#(B
--
    $B"i(B    $B"i(B   []=====================================[]
   $B"i!2(B  $B!2"i(B  []  $BAa0pEDBg3X(B $BM}9)3XIt(B $B>pJs3X2J#4G/(B   []
   $B"j(B$B"~(!"~($(B  [] $BCN<1>pJs9)3X@l96(B $BGr0f8&5f<<(B $B2;@<HI(B  []
   $B"j(B  $B"](B  $B"_(B  []      $BBgJ?(B $BLP51(B (Ohira Shigeki)      []
   $B"j!@"^!?"j(B  []E-mail:ohira@shirai.info.waseda.ac.jp[]
     $B!@!1!?(B    []=====================================[]       
       $B"w(B