#!/usr/bin/php
<?php

$fname = "pads.txt";
$pads = file($fname);		// open the file
?>
%!PS-Adobe-2.0
%%Title: DTV V2 pads
%%Creator: Data: Jeri Ellsworth --- converting script and this document: D. Garmon
%% coords are mm X 10: div by 10, convert to points (ps coords)
%% JE indicates pads are 70 um: convert to points, div by 1000
%%EndComments
/s {stroke} def
/m {moveto} def
/cv { 10.0 div 2.834646 mul } def
/boxleng { 70.0 2.834646 mul 1000.0 div } def
/xleng {boxleng 4 div} def
/xhair {xleng neg 0 rmoveto xleng 2 mul 0 rlineto
    xleng neg xleng rmoveto 0 xleng 2 mul neg rlineto} def
/padbx { boxleng 2 div boxleng 2 div neg rmoveto
    0 boxleng rlineto
    boxleng neg 0 rlineto
    0 boxleng neg rlineto closepath } def
%%EndProlog
gsave
0 setgray
.0005 setlinewidth
300 300 translate
40 40 scale
%%BeginDocument: DTV Pads

<?php
foreach ($pads as $padline)
{
$temp = explode(' ', rtrim($padline));
//copy coords on stack so they are available for both drawing routines
echo "$temp[1] cv $temp[2] cv 2 copy\n";
echo "m xhair s\n";
echo "m padbx s\n";
}

echo "0 0 moveto\n";
echo "xhair stroke\n";
echo "grestore\n";
echo "%%End of part one -----------------------------------------------\n";

echo "gsave\n";
echo "0 setgray\n";
echo ".000005 setlinewidth\n";
echo "100 650 translate\n";

foreach ($pads as $padline)
{
$temp = explode(' ', rtrim($padline));
//print only one graphic, too small for both
echo "$temp[1] cv $temp[2] cv\n";
//echo "m xhair s\n";
echo "m padbx s\n";
}

echo "0 0 moveto\n";
echo "xhair stroke\n";
echo "grestore\n";
echo "%%End of part two -----------------------------------------------\n";
?>
/Helvetica findfont 12 scalefont setfont
72 750 moveto
(DTV Rev2 ASIC Pad Locations (coords provided by J.E.--DTVprogrammers guide)) show
/Helvetica findfont 10 scalefont setfont
72 710 moveto
(Fig 1-- actual size of die:    3.785mm x 3.759mm    Pads:   70um) show
150 690 moveto
(Note: each separate pad is drawn in Fig 1, but not pad centers.) show
150 675 moveto
((I doubt your printer can render the individual pads, tho...)) show
72 570 moveto
(Fig 2-- die scaled to 40x) show
150 555 moveto
(Fig 2 includes pads and xhairs on pad centers.) show
%%EndDocument
%%Trailer
showpage