From 2ac242022724f2d73a48967d721d423512c89832 Mon Sep 17 00:00:00 2001
From: Werner Almesberger <werner@openmoko.org>
Date: Mon, 3 Jan 2011 13:43:10 -0300
Subject: [PATCH] atusb/cam: it's obsolete now - removed

---
 atusb/cam/Makefile |  9 --------
 atusb/cam/doit     | 26 ---------------------
 atusb/cam/pcb.pl   | 56 ----------------------------------------------
 3 files changed, 91 deletions(-)
 delete mode 100644 atusb/cam/Makefile
 delete mode 100755 atusb/cam/doit
 delete mode 100755 atusb/cam/pcb.pl

diff --git a/atusb/cam/Makefile b/atusb/cam/Makefile
deleted file mode 100644
index 6e3863f..0000000
--- a/atusb/cam/Makefile
+++ /dev/null
@@ -1,9 +0,0 @@
-DIR=/home/moko/svn.openmoko.org/developers/werner/cncmap
-
-.PHONY:		pcb spool
-
-pcb:
-		./doit >job
-
-spool:
-		PORT=/dev/ttyUSB0 $(DIR)/spool/spool job
diff --git a/atusb/cam/doit b/atusb/cam/doit
deleted file mode 100755
index 383f2ba..0000000
--- a/atusb/cam/doit
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/bin/sh -e
-DIR=/home/moko/svn.openmoko.org/developers/werner/cncmap
-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="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.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 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
deleted file mode 100755
index 6f2c5b3..0000000
--- a/atusb/cam/pcb.pl
+++ /dev/null
@@ -1,56 +0,0 @@
-#!/usr/bin/perl
-
-$d = 2.54/1000*12;
-$r = $d/2+0.1;
-
-
-sub orig
-{
-    $x0 = $_[0];
-    $y0 = $_[1];
-}
-
-
-sub mil
-{
-    return $_[0]/1000*25.4;
-}
-
-
-sub cut
-{
-    if (defined $x) {
-	if ($x == $_[0]+$x0 && $y == $_[1]+$y0) {
-	    shift @_;
-	    shift @_;
-	} else {
-	    print "\n";
-	}
-    }
-    while (@_) {
-	$x = shift @_;
-	$y = shift @_;
-#	($x, $y) = (-$y, $x);
-	$x += $x0;
-	$y += $y0;
-	print "$x $y $z\n";
-    }
-}
-
-
-sub one
-{
-    &cut(
-      &mil(   0),	&mil(  0),
-      &mil(   0),	&mil(640),
-      &mil(1305),	&mil(640),
-      &mil(1305),	&mil(  0),
-      &mil(   0),	&mil(  0));
-}
-
-
-$z = -0.8;
-# x: corner offset, compensation for rotation, array position
-# y: corner offet
-&orig(25+36*1, 2+17*0)
-&one;