# Programa que pega o output do graficos.el e plota na tela 
# (find-angg "elisp/graficos.el")
# (eev "wish ~/elisp/plot.tcl &")
# (start-process "plot" nil "wish" "plot.tcl")
# (start-process "plot" nil "c:/FundComp/bin/tclkit.exe" "plot.tcl")

canvas .c -width 500 -height 350 -relief sunken -borderwidth 2
frame  .buttons
button .buttons.b1 -text {source 1.tcl} -command {source /tmp/1.tcl}
button .buttons.b2 -text {delete all} -command {.c delete all}
button .buttons.b3 -text {gera eps} -command {save_eps /tmp/1.eps}
pack   .buttons.b1 .buttons.b2 .buttons.b3 -side left
pack   .c -expand yes -fill both -side top
pack   .c .buttons

set radius 2            ;# para pontos
set arrowstyle {-arrow last -width 2 -arrowshape {6 7 2} -smooth 1}

proc blackify {} {
  .c itemconfigure all -fill black
}
proc save_eps {psfile} {
  foreach {xl yu xr yd} [.c bbox all] {}
  .c postscript \
    -x $xl -y $yu -width [expr $xr-$xl] -height [expr $yd-$yu] \
     -pageanchor nw -file $psfile
}
proc limpa {} {
  .c delete all
}
proc ponto {x y args} {
  global radius
  eval .c create oval [expr $x-$radius] [expr $y-$radius] \
                      [expr $x+$radius] [expr $y+$radius] -fill black
}
proc seta {x1 y1 x2 y2} {
  eval .c create line $x1 $y1 $x2 $y2 \
    {-arrow last -width 2 -arrowshape {6 7 2} -smooth 1}
}
proc segmento {x1 y1 x2 y2} {
  eval .c create line $x1 $y1 $x2 $y2 -width 1.5
}
proc segmento_eixo {x1 y1 x2 y2} {
  eval .c create line $x1 $y1 $x2 $y2 -width 1
}

.c create line 100 100 110 120
.c create line         110 120 140 120

ponto 250 200
seta 100 50 200 60
segmento 100 120 200 120

# (eev "wish ~/elisp/plot.tcl &")