This writes a c39 type barcode and is coded for a laser etching on anodized aluminum (reverse video like).  You'll need [Writing DXF] and [Code 39 generation]. [JBR]

 
 proc dxf::barcode { x y w h string } {
        set y1 [expr $y + $h]

        set x0 $x
        set x  [expr $x + $w * 8]
        dxf::solidbox  $x0 $y $x $y1

        foreach { bar space } [split [c39 $string] ""] {
            set x [expr $x + $w * $bar]

            if { $space ne {} } {
                set x0 $x
                set x  [expr $x + $w * $space]

                dxf::solidbox $x0 $y $x $y1
            }
        }
        dxf::solidbox  $x $y [expr $x + $w * 8] $y1
 }


----
!!!!!!
%| enter categories here |%
!!!!!!