summaryrefslogtreecommitdiff
path: root/render/show.tcl
blob: 2688c6cc86fb4a7a472801b813c0a3aa570bc0d5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/wish

gets stdin size
scan $size "%i %i" x y
canvas .can -width [expr $x+16] -height [expr $y+16] -borderwidth 0 -highlightthickness 0 -bg white
pack .can

proc rect {x y w h n t c} {
	set x [expr $x+8]
	set y [expr $y+8]
	.can create rectangle $x $y [expr $x+$w] [expr $y+$h] -fill $c
	.can create text $x $y -anchor nw -text $n -fill red -font "arial 18 bold"
	.can create text $x [expr $y+$h] -anchor sw -text $t -font "courier 12"
}

while {-1 != [gets stdin line]} {
	eval $line
}