I am still writing a complex program to measure crossing lines on a glasplate to measure the Pincushion effect from laserscanners and lenses.\
Each plate has a few hundred points to measure.
With a subroutine to measure the lines Multicapture isn't working... also are the Measurementboxes are at the same position for the lines ...Line1 ..4 ... 7 ...8
Any help to speed up this process ????
Focus is measured once on the plate and handled like boxsizes and magnification over variables!
eric
Einsprung fuer Kreuz
KREUZ =GROUP/SHOWALLPARAMS=YES
SUBROUTINE/CROSS,
=
F1 =GENERIC/POINT,DEPENDENT,CARTESIAN,$
NOM/XYZ,<XPOS,YPOS,NULL>,$
MEAS/XYZ,<XPOS,YPOS,NULL>,$
NOM/IJK,<0,0,1>,$
MEAS/IJK,<0,0,1>
LIN1 =FEAT/VISION/LINE/DEFAULT,CARTESIAN,BOUNDED
THEO/<XPOS-(HL/2),YPOS+(HB/2),FOCUS>,<XPOS+(HL/2),YPOS+(HB/2),0.2609>,<0.99997,-0.00777,0>,<-0.007769,-0.9999698,0>,<0,0,1>,HL
ACTL/<-90.99099,85.28249,0.29738>,<-85.80801,85.68369,0.29738>,<0.99702,0.07718,0>,<0.0771751,-0.9970176,0>,<0,0,1>,5.19848
TARG/<XPOS-(HL/2),YPOS+(HB/2),FOCUS>,<XPOS+(HL/2),YPOS+(HB/2),FOCUS>,<0.99997,-0.00777,0>,<-0.007769,-0.9999698,0>,<0,0,1>
SHOW FEATURE PARAMETERS=NO
SHOW_VISION_PARAMETERS=YES
TYPE=AUTOMATIC HIT TARGET
COVERAGE=100%
MAGNIFICATION=MAG
HIT TARGET COLOR=MAGENTA,NOMINAL COLOR=GREEN
HIT TARGET=EA1,0,1,HIGH,SCANHORTOL
FILTER=YES,11,YES,0,1.85
EDGE=SPECIFIED EDGE,7,[|]->[ ],<--,1,-1,-1,-1,NO,Top Light=<OFF,46,OFF>,Bottom Light=<OFF,93,ON>,Ring Light=<OFF,82,OFF>
FOCUS=NO
LIN2 =FEAT/VISION/LINE/DEFAULT,CARTESIAN,BOUNDED
THEO/<XPOS-(HL/2),YPOS-(HB/2),0.22148>,<XPOS+(HL/2),YPOS-(HB/2),0.22148>,<0.99997,-0.00777,0>,<-0.007769,-0.9999698,0>,<0,0,1>,HL
ACTL/<-90.87493,84.97199,0.29738>,<-85.81069,85.36002,0.29738>,<0.99708,0.0764,0>,<0.0763966,-0.9970775,0>,<0,0,1>,5.07908
TARG/<XPOS-(HL/2),YPOS-(HB/2),FOCUS>,<XPOS+(HL/2),YPOS-(HB/2),FOCUS>,<0.99997,-0.00777,0>,<-0.007769,-0.9999698,0>,<0,0,1>
SHOW FEATURE PARAMETERS=NO
SHOW_VISION_PARAMETERS=YES
TYPE=AUTOMATIC HIT TARGET
COVERAGE=100%
MAGNIFICATION=MAG
HIT TARGET COLOR=MAGENTA,NOMINAL COLOR=GREEN
HIT TARGET=EA1,0,1,NORMAL,SCANHORTOL
FILTER=YES,11,YES,0,1.85
EDGE=SPECIFIED EDGE,16,[|]->[ ],-->,1,-1,-1,-1,NO,Top Light=<OFF,46,OFF>,Bottom Light=<OFF,93,ON>,Ring Light=<OFF,82,OFF>
FOCUS=NO
LIN7 =FEAT/VISION/LINE/DEFAULT,CARTESIAN,BOUNDED
THEO/<XPOS-(VB/2),YPOS-(VL/2),FOCUS>,<XPOS-(VB/2),YPOS+(VL/2),FOCUS>,<0.00777,0.99997,0>,<0.9999698,-0.007769,0>,<0,0,1>,VL
ACTL/<-88.79836,83.33422,0.29738>,<-88.94233,87.12263,0.29738>,<-0.03798,0.99928,0>,<0.9992787,0.037976,0>,<0,0,1>,3.79114
TARG/<XPOS-(VB/2),YPOS-(VL/2),FOCUS>,<XPOS-(VB/2),YPOS+(VL/2),FOCUS>,<0.00777,0.99997,0>,<0.9999698,-0.007769,0>,<0,0,1>
SHOW FEATURE PARAMETERS=NO
SHOW_VISION_PARAMETERS=YES
TYPE=AUTOMATIC HIT TARGET
COVERAGE=100%
MAGNIFICATION=MAG
HIT TARGET COLOR=MAGENTA,NOMINAL COLOR=GREEN
HIT TARGET=EA1,0,1,NORMAL,SCANVERTOL
FILTER=YES,11,YES,0,1.85
EDGE=SPECIFIED EDGE,13,[|]->[ ],<--,1,-1,-1,-1,NO,Top Light=<OFF,46,OFF>,Bottom Light=<OFF,93,ON>,Ring Light=<OFF,82,OFF>
FOCUS=NO
LIN8 =FEAT/VISION/LINE/DEFAULT,CARTESIAN,BOUNDED
THEO/<XPOS-(VB/2),YPOS-(VL/2),FOCUS>,<XPOS+(VB/2),YPOS+(VL/2),FOCUS>,<0.29478,0.95556,0>,<0.9999698,-0.007769,0>,<0,0,1>,VL
ACTL/<-88.15687,83.33202,0.29738>,<-88.30595,87.22193,0.29738>,<-0.0383,0.99927,0>,<0.9992664,0.0382978,0>,<0,0,1>,3.89277
TARG/<XPOS+(VB/2),YPOS-(VL/2),FOCUS>,<XPOS+(VB/2),YPOS+(VL/2),FOCUS>,<0.00777,0.99997,0>,<0.9999698,-0.007769,0>,<0,0,1>
SHOW FEATURE PARAMETERS=NO
SHOW_VISION_PARAMETERS=YES
TYPE=AUTOMATIC HIT TARGET
COVERAGE=100%
MAGNIFICATION=MAG
HIT TARGET COLOR=MAGENTA,NOMINAL COLOR=GREEN
HIT TARGET=EA1,0,1,NORMAL,SCANVERTOL
FILTER=YES,11,YES,0,1.85
EDGE=SPECIFIED EDGE,13,[|]->[ ],-->,1,-1,-1,-1,NO,Top Light=<OFF,46,OFF>,Bottom Light=<OFF,93,ON>,Ring Light=<OFF,82,OFF>
FOCUS=NO
LIN39 =FEAT/LINE,CARTESIAN,UNBOUNDED,NO
THEO/<0.8858,-0.43533,0.27824>,<0.9999698,-0.007769,0>
ACTL/<-90.93297,85.12726,0.29738>,<0.9970476,0.0767858,0>
CONSTR/LINE,MID,LIN1,LIN2
LIN40 =FEAT/LINE,CARTESIAN,UNBOUNDED,NO
THEO/<-89.88423,84.35142,-0.07893>,<0.1427532,0.9897583,0>
ACTL/<-88.47762,83.33312,0.29738>,<-0.0381369,0.9992725,0>
CONSTR/LINE,MID,LIN7,LIN8
RECALL/ALIGNMENT,INTERNAL,WST_KS
SP_1 =FEAT/POINT,CARTESIAN,NO
THEO/<0.92249,-0.43562,0.29154>,<0.9999698,-0.007769,0>
ACTL/<-88.55308,85.31054,0.29738>,<0.9970476,0.0767858,0>
CONSTR/POINT,INT,LIN39,LIN40
ASSIGN/TEST=CONCAT(STR( SP_1.X.MEAS ) , CHR(9), (STR( SP_1.Y.MEAS)))
PROGRAM/END
ENDGROUP/ID=KREUZ