From e137bc42c507f190d9c2dc5fc656af6fae0ca20e Mon Sep 17 00:00:00 2001
From: Werner Almesberger <werner@openmoko.org>
Date: Wed, 1 Dec 2010 11:06:09 -0300
Subject: [PATCH] atusb/cam: modernize, and change setup for current workpiece

- atusb/cam/doit: new workpiece parameters
- atusb/cam/doit: use "cameo", increase feed rate, increase tool clearance
- atusb/cam/pcb.pl: removed radii from toolpath (cameo takes care of them)
---
 atusb/cam/doit   | 11 ++++++++---
 atusb/cam/pcb.pl | 36 ++++++++++++++++++------------------
 2 files changed, 26 insertions(+), 21 deletions(-)

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));
 }