Pretty cute Marc. Dave On Jan 30, 2008, at 2:36 AM, Marc van Doornik wrote:
> Could anyone explain this optical probing concept? We don't have > Digital > Machinist here, but if it is what I imagine (basically a magnifying > camera setup with crosshairs to align on an edge), it is fairly easily > accomplished. Over here, we've just used an industrial camera > connected > to a cheap v4l-compatible framegrabber card. This can then be used > through a program like tvtime (in synaptic). For the crosshairs, I > couldn't find any software to superimpose them on a camera image. > Instead, I've just used a solid red toplevel window in tcl/tk, > which is > then shaped like a crosshair. Code can be found at the tcl/tl wiki > (http://wiki.tcl.tk/13409). The code I've used is this: > > <<< Start crosshairs.tcl >>> > > #!/usr/bin/wish > package require Tk > wm withdraw . > load wmx.so > #package require Img > > wm title . "Crosshairs" > > set bgimg [image create photo -file [file join shape.gif]] > #label .l -bd 0 -bg maroon -image $bgimg > set iwid [image width $bgimg] > set ihei [image height $bgimg] > . config -width $iwid -height $ihei > . configure -bg green > > button .b -text quit -command exit > text .t -width 40 -height 5 > button .b1 -text script -command {show lib app-wmx wmx.tcl} > #place .l -x 0 -y 0 -anchor nw > > bind . <1> { > set x [expr [winfo rootx .]-%X] > set y [expr [winfo rooty .]-%Y] > } > > bind . <B1-Motion> { > wm geometry . +[expr %X+$x]+[expr %Y+$y] > } > > bind all <Control-c> exit > wm geometry . 1x1 > wm deiconify . > # IMPORTANT: we must do an "update idle" to let the window manager > # reparent our toplevel before issuing the setXwinshape command. > update idle > wm geometry . ${iwid}x$ihei+600+100 > setXwinshape . $bgimg > > <<< End crosshairs.tcl >>> > > > > In this code, the transparent parts of the image shape.gif are 'cut > out' > from the window, thus leaving the desired shape. This way of > generating > crosshairs and the like prevents flicker and uses a very low overhead, > as everything required is already included in X. It should even be > possible to change the shape of the image on the fly, so perhaps this > could be used to add readouts etc. to the overlay image. > > Good luck, > > Marc. > > ---------------------------------------------------------------------- > --- > This SF.net email is sponsored by: Microsoft > Defy all challenges. Microsoft(R) Visual Studio 2008. > http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/ > _______________________________________________ > Emc-users mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/emc-users ------------------------------------------------------------------------- This SF.net email is sponsored by: Microsoft Defy all challenges. Microsoft(R) Visual Studio 2008. http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/ _______________________________________________ Emc-users mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/emc-users
