r2930 - developers/werner

[werner at sita.openmoko.org]

Author: werner
Date: 2007-09-06 11:11:23 +0200 (Thu, 06 Sep 2007)
New Revision: 2930

Added:
   developers/werner/sandw.ps
Log:
Holes for "sandwich" board stack holders.



Added: developers/werner/sandw.ps
===================================================================
--- developers/werner/sandw.ps	2007-09-05 17:42:17 UTC (rev 2929)
+++ developers/werner/sandw.ps	2007-09-06 09:11:23 UTC (rev 2930)
@@ -0,0 +1,117 @@
+%!PS
+
+72 25.4 div dup scale
+0.1 setlinewidth
+100 150 translate
+
+/sgn {
+    /v exch def
+    v 0 eq { 0 } { v v abs div } ifelse
+} def
+
+/circle {
+    2 div /cr exch def
+    /cr 2 def
+    currentpoint
+    currentpoint
+    cr 0 rmoveto
+    cr 0 360 arc
+    moveto
+    currentpoint
+    -4 -4 rmoveto
+    8 8 rlineto
+    -8 0 rmoveto
+    8 -8 rlineto
+    moveto
+} def
+
+/orlineto {
+    /oy exch def
+    /ox exch def
+    -5 ox sgn mul -5 oy sgn mul rmoveto
+    ox oy rlineto
+    10 ox sgn mul 10 oy sgn mul rlineto
+    -5 ox sgn mul -5 oy sgn mul rmoveto
+} def
+
+/here {
+    currentpoint dup
+    newpath
+    moveto
+    -10 0 rmoveto
+    20 0 rlineto
+    -10 -10 rmoveto
+    0 20 rlineto
+    stroke
+    moveto
+} def
+
+/two_y {
+    /tr exch def
+    /dy exch def
+    currentpoint
+    tr circle
+    0 dy rlineto
+    tr circle
+    stroke
+    moveto
+} def
+
+/half {
+    /hy exch def
+    /hx exch def
+    hx 2 div neg hy 2 div neg rmoveto
+} def
+
+/box {
+    /x exch def
+    /y exch def
+    currentpoint
+    x y half
+    x 0 rlineto
+    0 y rlineto
+    x neg 0 rlineto
+    0 y neg rlineto stroke
+    moveto
+} def
+
+/four {
+    /r exch def
+    /x exch def
+    /y exch def
+    currentpoint
+    x y half
+    r circle
+    x 0 rlineto r circle
+    0 y rlineto r circle
+    x neg 0 rlineto r circle
+    0 y neg rlineto stroke
+    moveto
+} def
+
+% total size
+0 0 moveto
+120 120 box
+
+% hxd8
+0 0 moveto
+96 59 5 four
+
+% debug board
+0 0 moveto
+47.2 86 4 four
+
+% gta02 pair
+9 0 moveto
+77 44.7 half
+44.7 2.5 two_y
+
+% gta02 single
+79 2.5 rmoveto
+39.7 2.5 two_y
+
+% corner holes
+0 0 moveto
+100 100 5 four
+
+showpage