#!/usr/local/bin/wish

canvas .can -bg white\
	-width 512 -height 384
pack .can

proc drawPoint {x y} {
	set r 4
	set xl [expr $x-$r]
	set yl [expr $y-$r]
	set xr [expr $x+$r]
	set yr [expr $y+$r]
	.can create oval $xl $yl $xr $yr\
		-fill darkgreen -outline white\
		-tags tag_point
}

proc drawSegment {xl yl xr yr} {
	.can create line $xl $yl $xr $yr\
		-tags tag_segment
}

set fn $argv
if {$argc!=1} {puts argc=$argc;exit}
if {[file exists $fn]==0} {
	puts "file don't exist"
	exit
}

set fp [open $fn r]

gets $fp n
for {set i 0} {$i<$n} {incr i} {
	gets $fp p
	set x [lindex $p 0]
	set y [lindex $p 1]
	drawPoint $x $y
}

gets $fp n
for {set i 0} {$i<$n} {incr i} {
	gets $fp s
	set xl [lindex $s 0]
	set yl [lindex $s 1]
	set xr [lindex $s 2]
	set yr [lindex $s 3]
	drawSegment $xl $yl $xr $yr
}

.can lower tag_segment tag_point

close $fp