%%Title: PADS Postscript Driver Header
%%Creator: Andy Montalvo, 18 Lupine St., Lowell, MA 01851
%%For: CAD Software, Littleton, MA
%%BeginProcSet: Markers 1.0 0
% draw marker 5: hourglass
% draw marker 7: small plus (goes with char marker)
% Command from driver: draw marker
MAttr_Size 4 div dup scale
4 MAttr_Size div dup scale
%%EndProcSet: Markers 1.0 0
%%BeginProcSet: Lib 1.0 0
% Command from driver: set the gray scale 0 - 100
100 div dup setgray /glev exch def
% STACK: x y radius Circle -
% select a round aperture
% select a square aperture
% draw a set of connected lines
% STACK: x1 y1 [ x2 y2 ... xn yn ] Line -
% This pushes the x then the y then does lineto
{ exch { false } { lineto true } ifelse } forall
% set clipping rectangle from 0,0 to new values
% set clipping rectangle from xmin,ymin to xmax,ymax
% STACK: xmin ymin xmax ymax Clip4 -
4 copy pop exch lineto pop
%%BeginProcSet: Lines 1.0 0
% Cammand from driver: draw a set of connected lines
% STACK: x1 y1 [ x2 y2 ... xn yn ] PLine -
% Command from driver: draw a character at the current position
% STACK: type x y stroke_array Char -
% stroke array -- [ stroke1 stroke2 ... stroken ]
% stroke -- connected staight lines
% type = 0 if text 1 if marker
0 eq { TAttr_Width } { MAttr_Width } ifelse setlinewidth
dup dup 0 get exch 1 get % get starting point
3 -1 roll % put x y before array
dup length 2 sub 2 exch getinterval % delete first items from array
aload pop currentlinewidth 2 div Circle fill
% Command from driver: draw an arc
% STACK: x y radius startangle deltaangle Arc -
% Command from driver: draw an circle
% STACK: x y radius PCircle -
%%EndProcSet: Lines 1.0 0
%%BeginProcSet: Polygon 1.0 0
% set up for loop condition
% STACK: start end LoopSet low gridwidth high
% make grid line up to absolute coordinates
PAttr_Grid div truncate PAttr_Grid mul exch
% draw cross hatch pattern in current path
dup lly exch ury moveto lineto
llx exch dup urx exch moveto lineto
PAttr_IntWidth setlinewidth
% Command from driver: draw a plygon
% STACK: x1 y1 [ x2 y2 ... xn yn ] PLine -
PAttr_IntWidth PAttr_Grid ge {fill} {Hatch} ifelse
PAttr_ExtWidth setlinewidth
%%EndProcSet: Polygon 1.0 0
%%BeginProcSet: Text 1.0 0
% Command from driver: Draw text
% STACK: x y width string Text -
%%BeginProcSet: FlashSymbols 1.0 0
% flash symbol attributes %
% flash symbol procedures
% Command from driver: draw an circular pad
% Draw an rectangular pad
FAttr_Length FAttr_Width scale
FAttr_Length FAttr_Width sub 2 div dup
FAttr_Length FAttr_Width lt
FAttr_Length 0 gt { FAttr_Length FAttr_Width div } { .5 } ifelse
% Draw an thermal relief pad
% Command from driver: Flash a symbol
%%EndProcSet: FlashSymbols 1.0 0
%%BeginProcSet: SetAttr 1.0 0
% Set the width of the lines
% STACK: linewidth SetLine -
% Set attribute of polygon
% STACK: external_width internal_grid_width grid_spacing SetPoly -
% Set Attributed of flash pad
% STACK: orientation_angle length width aperture_type SetFlash -
FAttr_Type /PSqrPad eq FAttr_Type /PRectPad eq or
{ SqrAper } { RndAper } ifelse
/FAttr_Orient exch 10 div def
% Set attributes of markers
% STACK: linewidth size type SetMkr -
% STACK: fontname height orient mirror SetMkr -
/TAttr_Orient exch 10 div def
exch findfont exch scalefont setfont
% STACK: linewidth height mirror orient SetMkr -
%%EndProcSet: SetAttr 1.0 0
%%BeginProcSet: Initialize 1.0 0
72 1000 div dup scale % Scale to 1/1000 inch
250 250 translate % make origin 1/4 inch from bottom left
1.5 setmiterlimit 1 RndAper % set line defaults
0 setgray % set color default
%%EndProcSet: Initialize 1.0 0
/Helvetica findfont 12 scalefont setfont
(gadget.job - Fri Aug 21 03:34:56 1992) show
-1350 4700 [ -1350 4900 ] PLine
-1350 4900 [ -1150 4900 ] PLine
1150 4900 [ 1350 4900 ] PLine
1350 4900 [ 1350 4700 ] PLine
1350 0 [ 1350 200 ] PLine
-1350 200 [ -1350 0 ] PLine
-1350 0 [ -1150 0 ] PLine
0 0 177 /PRndPad SetFlash
0 0 177 /PRndPad SetFlash
0 0 250 /PRndPad SetFlash
0 -300 4725 [ [ 31 56 27 62 20 65 11 65 4 62 0 56 0 50 2 43 4 40 9 37 22 31 27 28 29 25 31 18 31 9 27 3 20 0 11 0 4 3 0 9 ] ] Char
0 -248 4725 [ [ 0 65 0 0 ] ] Char
0 -228 4725 [ [ 0 65 0 0 ] [ 0 65 15 65 22 62 27 56 29 50 31 40 31 25 29 15 27 9 22 3 15 0 0 0 ] ] Char
0 -176 4725 [ [ 0 65 0 0 ] [ 0 65 29 65 ] [ 0 34 18 34 ] [ 0 0 29 0 ] ] Char
0 -74 4725 [ [ 0 53 4 56 11 65 11 0 ] ] Char
-100 900 [ -100 800 ] PLine
-100 800 [ 100 800 ] PLine
100 900 [ 100 800 ] PLine
100 800 [ 900 800 ] PLine
300 1100 [ 600 1100 ] PLine
-1100 1150 [ -700 1150 ] PLine
-700 1150 [ -700 1600 ] PLine
175 3300 [ -100 3300 ] PLine
700 3000 [ 300 3000 ] PLine
300 3000 [ 300 3100 ] PLine
300 2500 [ 300 2650 ] PLine
300 2650 [ 800 2650 ] PLine
800 2800 [ 800 2650 ] PLine
800 2650 [ 1000 2650 ] PLine
400 2500 [ 400 2600 ] PLine
400 2600 [ 1100 2600 ] PLine
1100 2600 [ 1100 2800 ] PLine
-900 2300 [ -700 2100 ] PLine
-700 2100 [ -450 2100 ] PLine
500 2500 [ 550 2550 ] PLine
550 2550 [ 750 2550 ] PLine
750 2550 [ 800 2500 ] PLine
-650 2600 [ -100 2600 ] PLine
-100 2250 [ 450 2250 ] PLine
450 2250 [ 500 2200 ] PLine
-1200 2300 [ -1050 2300 ] PLine
-1050 2300 [ -1050 2100 ] PLine
-1050 2100 [ -800 2100 ] PLine
-900 2500 [ -700 2300 ] PLine
-700 2300 [ -700 2200 ] PLine
-700 2200 [ -300 2200 ] PLine
-300 2200 [ -300 2100 ] PLine
1250 1900 [ 1250 1800 ] PLine
1250 1800 [ 800 1800 ] PLine
300 1900 [ 300 1800 ] PLine
300 1800 [ 800 1800 ] PLine
700 1900 [ 450 1900 ] PLine
300 1700 [ 600 1700 ] PLine
500 1600 [ -100 1600 ] PLine
-100 1600 [ -100 1700 ] PLine
1000 3900 [ 1050 3950 ] PLine
1050 3950 [ 1050 4050 ] PLine
1050 4050 [ 50 4050 ] PLine
0 4100 [ 900 4100 ] PLine
800 3000 [ 1100 3000 ] PLine
0 3850 [ 450 3850 ] PLine
450 3850 [ 500 3900 ] PLine
-400 3400 [ -400 3600 ] PLine
-400 3600 [ 300 3600 ] PLine
300 3600 [ 300 3700 ] PLine
300 3700 [ 600 3700 ] PLine
450 2700 [ -400 2700 ] PLine
-400 2300 [ -300 2300 ] PLine
-700 4200 [ -650 4250 ] PLine
-650 4250 [ 550 4250 ] PLine
550 4250 [ 600 4200 ] PLine
350 3800 [ 1100 3800 ] PLine
1100 3800 [ 1100 3900 ] PLine
-800 3100 [ -800 2800 ] PLine
-800 2800 [ -400 2800 ] PLine
-850 3700 [ -400 3700 ] PLine
400 1300 [ 600 1300 ] PLine
-1100 4200 [ -1050 4150 ] PLine
-1050 4150 [ 650 4150 ] PLine
650 4150 [ 700 4200 ] PLine
-300 3400 [ -250 3350 ] PLine
-250 3350 [ 1200 3350 ] PLine
1200 3350 [ 1200 4200 ] PLine
1200 4200 [ 1100 4200 ] PLine
-700 3100 [ -700 2875 ] PLine
-700 2875 [ -200 2875 ] PLine
-200 2875 [ -200 2800 ] PLine
-600 3100 [ -600 2950 ] PLine
-600 2950 [ 600 2950 ] PLine
600 2950 [ 600 2800 ] PLine
-750 550 [ -750 1050 ] PLine
-750 1050 [ -1050 1050 ] PLine
950 3200 [ 700 3200 ] PLine
850 1200 [ -600 1200 ] PLine
-550 3900 [ -350 3900 ] PLine
540 4479 [ 540 4300 ] PLine
540 4300 [ -800 4300 ] PLine
432 4479 [ 432 4350 ] PLine
432 4350 [ -750 4350 ] PLine
400 3400 [ 700 3400 ] PLine
-1000 3400 [ -1000 3250 ] PLine
-1000 3250 [ -200 3250 ] PLine
-200 3250 [ -200 3100 ] PLine
-200 3100 [ -100 3100 ] PLine
0 2350 [ 200 2350 ] PLine
200 2350 [ 200 2500 ] PLine
0 2350 [ -200 2350 ] PLine
-1000 3400 [ -1200 3400 ] PLine
200 2350 [ 1100 2350 ] PLine
1100 2350 [ 1100 2450 ] PLine
1100 2450 [ 1200 2450 ] PLine
-600 1600 [ -600 1750 ] PLine
-600 1750 [ -200 1750 ] PLine
-1200 3700 [ -1000 3700 ] PLine
-1000 3700 [ -1000 3400 ] PLine
1100 3200 [ 1250 3200 ] PLine
1250 3200 [ 1250 2450 ] PLine
1250 2450 [ 1200 2450 ] PLine
900 4200 [ 900 4300 ] PLine
900 4300 [ 1250 4300 ] PLine
1250 4300 [ 1250 3200 ] PLine
-700 4000 [ -1000 4000 ] PLine
-1000 4000 [ -1000 3700 ] PLine
900 4200 [ 800 4200 ] PLine
200 1400 [ 1100 1400 ] PLine
1100 1400 [ 1100 800 ] PLine
-50 450 [ -50 150 ] PLine
950 150 [ 1100 450 ] PLine
1100 450 [ 1000 800 ] PLine
-250 450 [ -250 1000 ] PLine
-250 1000 [ 200 1000 ] PLine
200 1000 [ 200 1100 ] PLine
-750 450 [ -1100 450 ] PLine
0 4400 [ -648 4400 ] PLine
-648 4400 [ -648 4479 ] PLine
75 4000 [ 300 4000 ] PLine
300 4000 [ 300 3900 ] PLine
1100 450 [ 750 450 ] PLine
900 2200 [ 900 2000 ] PLine
900 2000 [ 75 2000 ] PLine
75 2000 [ 75 2200 ] PLine
75 2200 [ 200 2200 ] PLine
300 4000 [ 1000 4000 ] PLine
-1100 450 [ -1050 150 ] PLine
-600 1900 [ -600 2000 ] PLine
-600 2000 [ 75 2000 ] PLine