# SIMULA UNA RED NEURONAL
global widget;
proc {memoriza} {} {
}
proc {colorea} {boton nom x y} {
global p i s
set color [ $boton cget -background ]
if { $color == "systembuttonface" } then {
$boton configure -background red
if { $nom == "p" } then {set p($x,$y) 1} else {set p($x,$y) -1}
if { $nom == "i" } then {set i($x,$y) 1} else {set i($x,$y) -1}
if { $nom == "s" } then {set s($x,$y) 1} else {set s($x,$y) -1}
} else {
$boton configure -background systembuttonface
}
}
proc init {argc argv} {
}
init $argc $argv
proc {main} {argc argv} {
}
proc {Window} {args} {
global vTcl
set cmd [lindex $args 0]
set name [lindex $args 1]
set newname [lindex $args 2]
set rest [lrange $args 3 end]
if {$name == "" || $cmd == ""} {return}
if {$newname == ""} {
set newname $name
}
set exists [winfo exists $newname]
switch $cmd {
show {
if {$exists == "1" && $name != "."} {wm deiconify $name; return}
if {[info procs vTclWindow(pre)$name] != ""} {
eval "vTclWindow(pre)$name $newname $rest"
}
if {[info procs vTclWindow$name] != ""} {
eval "vTclWindow$name $newname $rest"
}
if {[info procs vTclWindow(post)$name] != ""} {
eval "vTclWindow(post)$name $newname $rest"
}
}
hide { if $exists {wm withdraw $newname; return} }
iconify { if $exists {wm iconify $newname; return} }
destroy { if $exists {destroy $newname; return} }
}
}
#################################
# VTCL GENERATED GUI PROCEDURES
#
proc vTclWindow. {base} {
if {$base == ""} {
set base .
}
}
proc vTclWindow.top17 {base} {
if {$base == ""} {
set base .top17
}
if {[winfo exists $base]} {
wm deiconify $base; return
}
###################
# CREATING WIDGETS
###################
toplevel $base -class Toplevel \
-background #400000
wm focusmodel $base passive
wm geometry $base 886x684+22+22
wm maxsize $base 1028 753
wm minsize $base 104 1
wm overrideredirect $base 0
wm resizable $base 1 1
wm deiconify $base
frame $base.fra18 \
-background #008040 -borderwidth 2 -height 75 -relief groove \
-width 125
button $base.fra18.but19 \
-padx 11 -pady 4 -textvariable p(1,1) -command {colorea .top17.fra18.but19}
button $base.fra18.but21 \
-padx 11 -pady 4 -textvariable p(2,1) -command { colorea .top17.fra18.but21 }
button $base.fra18.but22 \
-padx 11 -pady 4 -textvariable p(3,1) -command { colorea .top17.fra18.but22 }
button $base.fra18.but23 \
-padx 11 -pady 4 -textvariable p(1,2) -command { colorea .top17.fra18.but23 }
button $base.fra18.but24 \
-padx 11 -pady 4 -textvariable p(2,2) -command { colorea .top17.fra18.but24 }
button $base.fra18.but25 \
-padx 11 -pady 4 -textvariable p(3,2) -command { colorea .top17.fra18.but25 }
button $base.fra18.but26 \
-padx 11 -pady 4 -textvariable p(1,3) -command { colorea .top17.fra18.but26 }
button $base.fra18.but27 \
-padx 11 -pady 4 -textvariable p(2,3) -command { colorea .top17.fra18.but27 }
button $base.fra18.but28 \
-padx 11 -pady 4 -textvariable p(3,3) -command { colorea .top17.fra18.but28 }
button $base.but29 \
-background #ff8080 -foreground #004000 -padx 11 -pady 4 \
-text {Patron de Aprendizaje} -command { memoriza }
frame $base.fra31 \
-background #ff0000 -borderwidth 2 -height 75 -relief groove \
-width 125
button $base.fra31.01 \
-padx 11 -pady 4 -textvariable i(1,1)
button $base.fra31.02 \
-padx 11 -pady 4 -textvariable i(2,1)
button $base.fra31.03 \
-padx 11 -pady 4 -textvariable i(3,1)
button $base.fra31.04 \
-padx 11 -pady 4 -textvariable i(1,2)
button $base.fra31.05 \
-padx 11 -pady 4 -textvariable i(2,2)
button $base.fra31.06 \
-padx 11 -pady 4 -textvariable i(3,2)
button $base.fra31.07 \
-padx 11 -pady 4 -textvariable i(1,3)
button $base.fra31.08 \
-padx 11 -pady 4 -textvariable i(2,3)
button $base.fra31.09 \
-padx 11 -pady 4 -textvariable i(3,3)
frame $base.fra32 \
-background #000080 -borderwidth 2 -height 75 -relief groove \
-width 125
button $base.fra32.01 \
-padx 11 -pady 4 -textvariable s(1,1)
button $base.fra32.02 \
-padx 11 -pady 4 -textvariable s(2,1)
button $base.fra32.03 \
-padx 11 -pady 4 -textvariable s(3,1)
button $base.fra32.04 \
-padx 11 -pady 4 -textvariable s(1,2)
button $base.fra32.05 \
-padx 11 -pady 4 -textvariable s(2,2)
button $base.fra32.06 \
-padx 11 -pady 4 -textvariable s(3,2)
button $base.fra32.07 \
-padx 11 -pady 4 -textvariable s(1,3)
button $base.fra32.08 \
-padx 11 -pady 4 -textvariable s(2,3)
button $base.fra32.09 \
-padx 11 -pady 4 -textvariable s(3,3)
button $base.but33 \
-background #ff8080 -foreground #004000 -padx 11 -pady 4 \
button $base.but34 \
-background #ff8080 -foreground #004000 -padx 11 -pady 4 -text Salida
frame $base.fra35 \
-background #004040 -borderwidth 2 -height 75 -relief groove \
-width 125
button $base.fra35.01 \
-padx 11 -pady 4 -textvariable w(1,1)
button $base.fra35.02 \
-padx 11 -pady 4 -textvariable w(2,1)
button $base.fra35.03 \
-padx 11 -pady 4 -textvariable w(3,1)
button $base.fra35.04 \
-padx 11 -pady 4 -textvariable w(1,2)
button $base.fra35.05 \
-padx 11 -pady 4 -textvariable w(2,2)
button $base.fra35.06 \
-padx 11 -pady 4 -textvariable w(3,2)
button $base.fra35.07 \
-padx 11 -pady 4 -textvariable w(1,3)
button $base.fra35.08 \
-padx 11 -pady 4 -textvariable w(2,3)
button $base.fra35.09 \
-padx 11 -pady 4 -textvariable w(3,3)
button $base.fra35.but36 \
-padx 11 -pady 4 -textvariable w(4,1)
button $base.fra35.but37 \
-padx 11 -pady 4 -textvariable w(5,1)
button $base.fra35.but38 \
-padx 11 -pady 4 -textvariable w(6,1)
button $base.fra35.but39 \
-padx 11 -pady 4 -textvariable w(7,1)
button $base.fra35.but40 \
-padx 11 -pady 4 -textvariable w(8,1)
button $base.fra35.but41 \
-padx 11 -pady 4 -textvariable w(9,1)
button $base.fra35.but42 \
-padx 11 -pady 4 -textvariable w(1,4)
button $base.fra35.but43 \
-padx 11 -pady 4 -textvariable w(1,5)
button $base.fra35.but44 \
-padx 11 -pady 4 -textvariable w(1,6)
button $base.fra35.but45 \
-padx 11 -pady 4 -textvariable w(1,7)
button $base.fra35.but46 \
-padx 11 -pady 4 -textvariable w(1,8)
button $base.fra35.but47 \
-padx 11 -pady 4 -textvariable w(1,9)
button $base.fra35.but48 \
-padx 11 -pady 4 -textvariable w(2,4)
button $base.fra35.but49 \
-padx 11 -pady 4 -textvariable w(2,5)
button $base.fra35.but50 \
-padx 11 -pady 4 -textvariable w(2,6)
button $base.fra35.but51 \
-padx 11 -pady 4 -textvariable w(2,7)
button $base.fra35.but52 \
-padx 11 -pady 4 -textvariable w(2,8)
button $base.fra35.but53 \
-padx 11 -pady 4 -textvariable w(2,9)
button $base.fra35.but54 \
-padx 11 -pady 4 -textvariable w(3,4)
button $base.fra35.but55 \
-padx 11 -pady 4 -textvariable w(3,5)
button $base.fra35.but56 \
-padx 11 -pady 4 -textvariable w(3,6)
button $base.fra35.but57 \
-padx 11 -pady 4 -textvariable w(3,7)
button $base.fra35.but58 \
-padx 11 -pady 4 -textvariable w(3,8)
button $base.fra35.but59 \
-padx 11 -pady 4 -textvariable w(3,9)
button $base.fra35.but60 \
-padx 11 -pady 4 -textvariable w(4,2)
button $base.fra35.but61 \
-padx 11 -pady 4 -textvariable w(4,3)
button $base.fra35.but62 \
-padx 11 -pady 4 -textvariable w(4,4)
button $base.fra35.but63 \
-padx 11 -pady 4 -textvariable w(4,5)
button $base.fra35.but64 \
-padx 11 -pady 4 -textvariable w(4,6)
button $base.fra35.but65 \
-padx 11 -pady 4 -textvariable w(4,7)
button $base.fra35.but66 \
-padx 11 -pady 4 -textvariable w(4,8)
button $base.fra35.but67 \
-padx 11 -pady 4 -textvariable w(4,9)
button $base.fra35.but68 \
-padx 11 -pady 4 -textvariable w(5,2)
button $base.fra35.but69 \
-padx 11 -pady 4 -textvariable w(5,3)
button $base.fra35.but70 \
-padx 11 -pady 4 -textvariable w(5,4)
button $base.fra35.but71 \
-padx 11 -pady 4 -textvariable w(5,5)
button $base.fra35.but72 \
-padx 11 -pady 4 -textvariable w(5,6)
button $base.fra35.but73 \
-padx 11 -pady 4 -textvariable w(5,7)
button $base.fra35.but74 \
-padx 11 -pady 4 -textvariable w(5,8)
button $base.fra35.but75 \
-padx 11 -pady 4 -textvariable w(5,9)
button $base.fra35.but76 \
-padx 11 -pady 4 -textvariable w(6,2)
button $base.fra35.but77 \
-padx 11 -pady 4 -textvariable w(6,3)
button $base.fra35.but78 \
-padx 11 -pady 4 -textvariable w(6,4)
button $base.fra35.but79 \
-padx 11 -pady 4 -textvariable w(6,5)
button $base.fra35.but80 \
-padx 11 -pady 4 -textvariable w(6,6)
button $base.fra35.but81 \
-padx 11 -pady 4 -textvariable w(6,7)
button $base.fra35.but82 \
-padx 11 -pady 4 -textvariable w(6,8)
button $base.fra35.but83 \
-padx 11 -pady 4 -textvariable w(6,9)
button $base.fra35.but84 \
-padx 11 -pady 4 -textvariable w(7,2)
button $base.fra35.but85 \
-padx 11 -pady 4 -textvariable w(7,3)
button $base.fra35.but86 \
-padx 11 -pady 4 -textvariable w(7,4)
button $base.fra35.but87 \
-padx 11 -pady 4 -textvariable w(7,5)
button $base.fra35.but88 \
-padx 11 -pady 4 -textvariable w(7,6)
button $base.fra35.but89 \
-padx 11 -pady 4 -textvariable w(7,7)
button $base.fra35.but90 \
-padx 11 -pady 4 -textvariable w(7,8)
button $base.fra35.but91 \
-padx 11 -pady 4 -textvariable w(7,9)
button $base.fra35.but92 \
-padx 11 -pady 4 -textvariable w(8,2)
button $base.fra35.but93 \
-padx 11 -pady 4 -textvariable w(8,3)
button $base.fra35.but94 \
-padx 11 -pady 4 -textvariable w(8,4)
button $base.fra35.but95 \
-padx 11 -pady 4 -textvariable w(8,5)
button $base.fra35.but96 \
-padx 11 -pady 4 -textvariable w(8,6)
button $base.fra35.but97 \
-padx 11 -pady 4 -textvariable w(8,7)
button $base.fra35.but98 \
-padx 11 -pady 4 -textvariable w(8,8)
button $base.fra35.but99 \
-padx 11 -pady 4 -textvariable w(8,9)
button $base.fra35.but100 \
-padx 11 -pady 4 -textvariable w(9,2)
button $base.fra35.but101 \
-padx 11 -pady 4 -textvariable w(9,3)
button $base.fra35.but102 \
-padx 11 -pady 4 -textvariable w(9,4)
button $base.fra35.but103 \
-padx 11 -pady 4 -textvariable w(9,5)
button $base.fra35.but104 \
-padx 11 -pady 4 -textvariable w(9,6)
button $base.fra35.but105 \
-padx 11 -pady 4 -textvariable w(9,7)
button $base.fra35.but106 \
-padx 11 -pady 4 -textvariable w(9,8)
button $base.fra35.but107 \
-padx 11 -pady 4 -textvariable w(9,9)
button $base.but108 \
-background #ff8080 -foreground #004000 -padx 11 -pady 4 \
-text {Pesos de la Red (matriz W)}
frame $base.fra110 \
-background #ff0000 -borderwidth 2 -height 75 -relief groove \
-width 125
button $base.fra110.01 \
-padx 11 -pady 4 -textvariable ant(1)
button $base.fra110.02 \
-padx 11 -pady 4 -textvariable ant(9)
button $base.fra110.03 \
-padx 11 -pady 4 -textvariable ant(8)
button $base.fra110.04 \
-padx 11 -pady 4 -textvariable ant(2)
button $base.fra110.05 \
-padx 11 -pady 4 -textvariable ant(6)
button $base.fra110.06 \
-padx 11 -pady 4 -textvariable ant(7)
button $base.fra110.07 \
-padx 11 -pady 4 -textvariable ant(3)
button $base.fra110.08 \
-padx 11 -pady 4 -textvariable ant(4)
button $base.fra110.09 \
-padx 11 -pady 4 -textvariable ant(5)
button $base.but111 \
-background #004080 -foreground #ffff00 -padx 11 -pady 4 \
-text {Salida Anterior}
button $base.but112 \
-background #004080 -foreground #ffff00 -padx 11 -pady 4 \
-text {Salida Actual}
frame $base.fra113 \
-background #ff0000 -borderwidth 2 -height 75 -relief groove \
-width 125
button $base.fra113.01 \
-padx 11 -pady 4 -textvariable act(1)
button $base.fra113.02 \
-padx 11 -pady 4 -textvariable act(9)
button $base.fra113.03 \
-padx 11 -pady 4 -textvariable act(8)
button $base.fra113.04 \
-padx 11 -pady 4 -textvariable act(2)
button $base.fra113.05 \
-padx 11 -pady 4 -textvariable act(6)
button $base.fra113.06 \
-padx 11 -pady 4 -textvariable act(7)
button $base.fra113.07 \
-padx 11 -pady 4 -textvariable act(3)
button $base.fra113.08 \
-padx 11 -pady 4 -textvariable act(4)
button $base.fra113.09 \
-padx 11 -pady 4 -textvariable act(5)
button $base.but114 \
-background #0000ff -foreground #00ff00 -padx 11 -pady 4 \
-text Limpiar
button $base.but115 \
-background #0000ff -foreground #00ff00 -padx 11 -pady 4 \
-text Siguiente
button $base.but116 \
-background #0000ff -foreground #00ff00 -padx 11 \
-pady 4 -text Terminar
# -background #0000ff -command exit -foreground #00ff00 -padx 11 \
###################
# SETTING GEOMETRY
###################
place $base.fra18 \
-x 20 -y 35 -width 165 -height 135 -anchor nw -bordermode ignore
place $base.fra18.but19 \
-x 10 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra18.but21 \
-x 10 -y 50 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra18.but22 \
-x 10 -y 90 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra18.but23 \
-x 60 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra18.but24 \
-x 60 -y 50 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra18.but25 \
-x 60 -y 90 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra18.but26 \
-x 110 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra18.but27 \
-x 110 -y 50 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra18.but28 \
-x 110 -y 90 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.but29 \
-x 20 -y 170 -width 160 -height 26 -anchor nw -bordermode ignore
place $base.fra31 \
-x 20 -y 210 -width 165 -height 135 -anchor nw -bordermode ignore
place $base.fra31.01 \
-x 10 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra31.02 \
-x 10 -y 50 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra31.03 \
-x 10 -y 90 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra31.04 \
-x 60 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra31.05 \
-x 60 -y 50 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra31.06 \
-x 60 -y 90 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra31.07 \
-x 110 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra31.08 \
-x 110 -y 50 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra31.09 \
-x 110 -y 90 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra32 \
-x 640 -y 210 -width 165 -height 135 -anchor nw -bordermode ignore
place $base.fra32.01 \
-x 10 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra32.02 \
-x 10 -y 50 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra32.03 \
-x 10 -y 90 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra32.04 \
-x 60 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra32.05 \
-x 60 -y 50 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra32.06 \
-x 60 -y 90 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra32.07 \
-x 110 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra32.08 \
-x 110 -y 50 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra32.09 \
-x 110 -y 90 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.but33 \
-x 20 -y 345 -width 160 -height 26 -anchor nw -bordermode ignore
place $base.but34 \
-x 645 -y 345 -width 160 -height 26 -anchor nw -bordermode ignore
place $base.fra35 \
-x 200 -y 35 -width 425 -height 335 -anchor nw -bordermode ignore
place $base.fra35.01 \
-x 10 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.02 \
-x 10 -y 45 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.03 \
-x 10 -y 80 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.04 \
-x 55 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.05 \
-x 55 -y 45 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.06 \
-x 55 -y 80 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.07 \
-x 100 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.08 \
-x 100 -y 45 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.09 \
-x 100 -y 80 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but36 \
-x 10 -y 115 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but37 \
-x 10 -y 150 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but38 \
-x 10 -y 185 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but39 \
-x 10 -y 220 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but40 \
-x 10 -y 255 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but41 \
-x 10 -y 290 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but42 \
-x 145 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but43 \
-x 190 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but44 \
-x 235 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but45 \
-x 280 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but46 \
-x 325 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but47 \
-x 370 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but48 \
-x 145 -y 45 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but49 \
-x 190 -y 45 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but50 \
-x 235 -y 45 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but51 \
-x 280 -y 45 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but52 \
-x 325 -y 45 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but53 \
-x 370 -y 45 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but54 \
-x 145 -y 80 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but55 \
-x 190 -y 80 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but56 \
-x 235 -y 80 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but57 \
-x 280 -y 80 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but58 \
-x 325 -y 80 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but59 \
-x 370 -y 80 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but60 \
-x 55 -y 115 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but61 \
-x 100 -y 115 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but62 \
-x 145 -y 115 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but63 \
-x 190 -y 115 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but64 \
-x 235 -y 115 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but65 \
-x 280 -y 115 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but66 \
-x 325 -y 115 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but67 \
-x 370 -y 115 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but68 \
-x 55 -y 150 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but69 \
-x 100 -y 150 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but70 \
-x 145 -y 150 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but71 \
-x 190 -y 150 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but72 \
-x 235 -y 150 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but73 \
-x 280 -y 150 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but74 \
-x 325 -y 150 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but75 \
-x 370 -y 150 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but76 \
-x 55 -y 185 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but77 \
-x 100 -y 185 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but78 \
-x 145 -y 185 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but79 \
-x 190 -y 185 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but80 \
-x 235 -y 185 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but81 \
-x 280 -y 185 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but82 \
-x 325 -y 185 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but83 \
-x 370 -y 185 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but84 \
-x 55 -y 220 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but85 \
-x 100 -y 220 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but86 \
-x 145 -y 220 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but87 \
-x 190 -y 220 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but88 \
-x 235 -y 220 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but89 \
-x 280 -y 220 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but90 \
-x 325 -y 220 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but91 \
-x 370 -y 220 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but92 \
-x 55 -y 255 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but93 \
-x 100 -y 255 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but94 \
-x 145 -y 255 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but95 \
-x 190 -y 255 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but96 \
-x 235 -y 255 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but97 \
-x 280 -y 255 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but98 \
-x 325 -y 255 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but99 \
-x 370 -y 255 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but100 \
-x 55 -y 290 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but101 \
-x 100 -y 290 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but102 \
-x 145 -y 290 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but103 \
-x 190 -y 290 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but104 \
-x 235 -y 290 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but105 \
-x 280 -y 290 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but106 \
-x 325 -y 290 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra35.but107 \
-x 370 -y 290 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.but108 \
-x 305 -y 370 -width 220 -height 26 -anchor nw -bordermode ignore
place $base.fra110 \
-x 205 -y 440 -width 430 -height 60 -anchor nw -bordermode ignore
place $base.fra110.01 \
-x 10 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra110.02 \
-x 370 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra110.03 \
-x 325 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra110.04 \
-x 55 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra110.05 \
-x 235 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra110.06 \
-x 280 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra110.07 \
-x 100 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra110.08 \
-x 145 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra110.09 \
-x 190 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.but111 \
-x 30 -y 455 -width 160 -height 26 -anchor nw -bordermode ignore
place $base.but112 \
-x 30 -y 555 -width 160 -height 26 -anchor nw -bordermode ignore
place $base.fra113 \
-x 205 -y 540 -width 430 -height 60 -anchor nw -bordermode ignore
place $base.fra113.01 \
-x 10 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra113.02 \
-x 370 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra113.03 \
-x 325 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra113.04 \
-x 55 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra113.05 \
-x 235 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra113.06 \
-x 280 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra113.07 \
-x 100 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra113.08 \
-x 145 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.fra113.09 \
-x 190 -y 10 -width 46 -height 36 -anchor nw -bordermode ignore
place $base.but114 \
-x 95 -y 645 -width 123 -height 31 -anchor nw -bordermode ignore
place $base.but115 \
-x 225 -y 645 -width 123 -height 31 -anchor nw -bordermode ignore
place $base.but116 \
-x 755 -y 645 -width 123 -height 31 -anchor nw -bordermode ignore
}
Window show .
Window show .top17
main $argc $argv