proc trf_line {y x len dir {hdr {}}} {
# $Header: /home/cvsroot/tcldb/ucodb/Tlib/trf_line,v 1.1.1.1 1996/10/12 01:08:27 de Exp $
	global trf_arr trf_lin
	
	if {$y == "."} {
		set y $trf_lin
	}

#
	if {$dir == "H"} {
		set val [replicate - $len]
		trf_place $y $x $val %${len}s 0 {} $hdr
	} else {
		loop l $y [expr $y + $len + 1] {
			trf_place $l $x "|" %1s
		}
	}
}
