diff --git a/atusb/cam/doit b/atusb/cam/doit index 1e24532..383f2ba 100755 --- a/atusb/cam/doit +++ b/atusb/cam/doit @@ -4,18 +4,23 @@ RECT=$DIR/rect/rect ALIGN=$DIR/align/align ZMAP=$DIR/zmap/zmap GP2RML=$DIR/gp2rml/gp2rml +CAMEO=../../../cae-tools/cameo/cameo GEN=${1:-./pcb.pl} -rdata="12.10 8.90 -55.90 12.30 81.50 -55.80 111.70 11.30 -55.60" +rdata="8.1 11.2 -56.3 8.1 80.1 -56.1 117.2 12.8 -55.9" + # we need quite a large Z adjustment due to the table's vertical flexibility -Z=-56.30 +Z=-56.6 rect=`$RECT $rdata | awk '{$3 = ""; print}'` $GEN | awk '{ if ($3 != "") $3 += '$Z'; print $0; }' | + $CAMEO -d 0.4445 | $ALIGN 0 1 $rect | # angle, reference (lower left corner), rect - $GP2RML 1.5 0.1 0.1 + $GP2RML 2 0.5 0.5 # clearance, xy speed, z speed +# since everything is in the same plane, z clearance must be thickness plus +# real clearance ! diff --git a/atusb/cam/pcb.pl b/atusb/cam/pcb.pl index c0876d9..0c0ae9e 100755 --- a/atusb/cam/pcb.pl +++ b/atusb/cam/pcb.pl @@ -41,24 +41,24 @@ sub cut sub one { &cut( - &mil( 0)-$r, &mil( 0)-$r, - &mil( 0)-$r, &mil(620)+$r, - &mil( 810)+$r, &mil(620)+$r, - &mil( 850) , &mil(580)+$r, - &mil( 890)-$r, &mil(620)+$r, - &mil(1300)+$r, &mil(620)+$r, - &mil(1490)+$r, &mil(430)+$r, - &mil(1630)+$r, &mil(430)+$r, - &mil(1630)+$r, &mil(360)+$r, - &mil(1850)-$r, &mil(360)+$r, - &mil(1850)-$r, &mil(430)+$r, - &mil(2150)+$r, &mil(430)+$r, - &mil(2150)+$r, &mil(-70)-$r, - &mil( 890)-$r, &mil(-70)-$r, - &mil( 890)-$r, &mil( 0)-$r, - &mil( 850) , &mil( 40)-$r, - &mil( 810)+$r, &mil( 0)-$r, - &mil( 0)-$r, &mil( 0)-$r); + &mil( 0), &mil( 0), + &mil( 0), &mil(620), + &mil( 810), &mil(620), + &mil( 850) , &mil(580), + &mil( 890), &mil(620), + &mil(1300), &mil(620), + &mil(1490), &mil(430), + &mil(1630), &mil(430), + &mil(1630), &mil(360), + &mil(1850), &mil(360), + &mil(1850), &mil(430), + &mil(2150), &mil(430), + &mil(2150), &mil(-70), + &mil( 890), &mil(-70), + &mil( 890), &mil( 0), + &mil( 850), &mil( 40), + &mil( 810), &mil( 0), + &mil( 0), &mil( 0)); }