%%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:35:28 1992) show
-1350 0 [ -1350 4900 ] PLine
-1350 4900 [ 1350 4900 ] PLine
1350 4900 [ 1350 0 ] PLine
-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
1 113 913 [ [ 25 52 0 0 ] [ 0 52 25 52 ] [ 0 0 25 0 ] ] Char
1 613 913 [ [ 25 52 0 0 ] [ 0 52 25 52 ] [ 0 0 25 0 ] ] Char
1 713 3713 [ [ 25 52 0 0 ] [ 0 52 25 52 ] [ 0 0 25 0 ] ] Char
1 213 3713 [ [ 25 52 0 0 ] [ 0 52 25 52 ] [ 0 0 25 0 ] ] Char
1 953 4549 [ [ 0 52 14 27 14 0 ] [ 29 52 14 27 ] ] Char
1 -927 4549 [ [ 0 52 14 27 14 0 ] [ 29 52 14 27 ] ] Char
1 963 3537 [ [ 0 52 25 0 ] [ 25 52 0 0 ] ] Char
1 1039 3625 [ [ 0 52 25 0 ] [ 25 52 0 0 ] ] Char
1 963 3713 [ [ 0 52 25 0 ] [ 25 52 0 0 ] ] Char
1 -1187 1613 [ [ 0 52 9 0 ] [ 18 52 9 0 ] [ 18 52 27 0 ] [ 36 52 27 0 ] ] Char
1 -1087 1713 [ [ 0 52 9 0 ] [ 18 52 9 0 ] [ 18 52 27 0 ] [ 36 52 27 0 ] ] Char
1 -1187 1813 [ [ 0 52 9 0 ] [ 18 52 9 0 ] [ 18 52 27 0 ] [ 36 52 27 0 ] ] Char
1 1213 2463 [ [ 0 52 9 0 ] [ 18 52 9 0 ] [ 18 52 27 0 ] [ 36 52 27 0 ] ] Char
1 1113 2363 [ [ 0 52 9 0 ] [ 18 52 9 0 ] [ 18 52 27 0 ] [ 36 52 27 0 ] ] Char
1 1213 2263 [ [ 0 52 9 0 ] [ 18 52 9 0 ] [ 18 52 27 0 ] [ 36 52 27 0 ] ] Char
1 1013 1563 [ [ 0 52 14 27 14 0 ] [ 29 52 14 27 ] ] Char
1 -1087 463 [ [ 0 52 14 27 14 0 ] [ 29 52 14 27 ] ] Char
1 1113 463 [ [ 0 52 14 27 14 0 ] [ 29 52 14 27 ] ] Char
-1355 -485 [ -275 -485 ] PLine
-1355 -725 [ -275 -725 ] PLine
-1355 -965 [ -275 -965 ] PLine
-1355 -1205 [ -275 -1205 ] PLine
-1355 -1445 [ -275 -1445 ] PLine
-1355 -1685 [ -275 -1685 ] PLine
-1355 -1925 [ -275 -1925 ] PLine
-1355 -485 [ -1355 -1925 ] PLine
-995 -485 [ -995 -1925 ] PLine
-635 -485 [ -635 -1925 ] PLine
-275 -485 [ -275 -1925 ] PLine
0 -1295 -665 [ [ 38 67 32 75 24 78 13 78 5 75 0 67 0 60 2 52 5 48 10 45 27 37 32 33 35 30 38 22 38 11 32 3 24 0 13 0 5 3 0 11 ] ] Char
0 -1233 -665 [ [ 0 78 0 0 ] ] Char
0 -1209 -665 [ [ 38 78 0 0 ] [ 0 78 38 78 ] [ 0 0 38 0 ] ] Char
0 -1147 -665 [ [ 0 78 0 0 ] [ 0 78 35 78 ] [ 0 41 21 41 ] [ 0 0 35 0 ] ] Char
0 -873 -665 [ [ 16 78 10 75 5 67 2 60 0 48 0 30 2 18 5 11 10 3 16 0 27 0 32 3 38 11 40 18 43 30 43 48 40 60 38 67 32 75 27 78 16 78 ] [ 24 15 40 -7 ] ] Char
0 -805 -665 [ [ 19 78 19 0 ] [ 0 78 38 78 ] ] Char
0 -743 -665 [ [ 0 78 21 41 21 0 ] [ 43 78 21 41 ] ] Char
0 -575 -665 [ [ 38 67 32 75 24 78 13 78 5 75 0 67 0 60 2 52 5 48 10 45 27 37 32 33 35 30 38 22 38 11 32 3 24 0 13 0 5 3 0 11 ] ] Char
0 -513 -665 [ [ 0 78 21 41 21 0 ] [ 43 78 21 41 ] ] Char
0 -445 -665 [ [ 0 78 0 0 ] [ 0 78 21 0 ] [ 43 78 21 0 ] [ 43 78 43 0 ] ] Char
0 -1233 -905 [ [ 5 78 35 78 19 48 27 48 32 45 35 41 38 30 38 22 35 11 30 3 21 0 13 0 5 3 2 7 0 15 ] ] Char
0 -1171 -905 [ [ 38 78 10 0 ] [ 0 78 38 78 ] ] Char
0 -873 -905 [ [ 2 60 2 63 5 71 8 75 13 78 24 78 30 75 32 71 35 63 35 56 32 48 27 37 0 0 38 0 ] ] Char
0 -811 -905 [ [ 16 78 8 75 2 63 0 45 0 33 2 15 8 3 16 0 21 0 30 3 35 15 38 33 38 45 35 63 30 75 21 78 16 78 ] ] Char
0 -749 -905 [ [ 27 78 0 26 40 26 ] [ 27 78 27 0 ] ] Char
0 -1233 -1145 [ [ 27 78 0 26 40 26 ] [ 27 78 27 0 ] ] Char
0 -1168 -1145 [ [ 0 63 5 67 13 78 13 0 ] ] Char
0 -749 -1145 [ [ 32 67 30 75 21 78 16 78 8 75 2 63 0 45 0 26 2 11 8 3 16 0 19 0 27 3 32 11 35 22 35 26 32 37 27 45 19 48 16 48 8 45 2 37 0 26 ] ] Char
0 -515 -1145 [ [ 0 78 13 0 ] [ 27 78 13 0 ] [ 27 78 40 0 ] [ 54 78 40 0 ] ] Char
0 -1233 -1385 [ [ 5 78 35 78 19 48 27 48 32 45 35 41 38 30 38 22 35 11 30 3 21 0 13 0 5 3 2 7 0 15 ] ] Char
0 -1171 -1385 [ [ 2 60 2 63 5 71 8 75 13 78 24 78 30 75 32 71 35 63 35 56 32 48 27 37 0 0 38 0 ] ] Char
0 -749 -1385 [ [ 5 78 35 78 19 48 27 48 32 45 35 41 38 30 38 22 35 11 30 3 21 0 13 0 5 3 2 7 0 15 ] ] Char
0 -515 -1385 [ [ 0 78 38 0 ] [ 38 78 0 0 ] ] Char
0 -1295 -1625 [ [ 0 63 5 67 13 78 13 0 ] ] Char
0 -1257 -1625 [ [ 2 60 2 63 5 71 8 75 13 78 24 78 30 75 32 71 35 63 35 56 32 48 27 37 0 0 38 0 ] ] Char
0 -1195 -1625 [ [ 16 78 8 75 2 63 0 45 0 33 2 15 8 3 16 0 21 0 30 3 35 15 38 33 38 45 35 63 30 75 21 78 16 78 ] ] Char
0 -749 -1625 [ [ 35 78 8 78 5 45 8 48 16 52 24 52 32 48 38 41 40 30 38 22 35 11 30 3 21 0 13 0 5 3 2 7 0 15 ] ] Char
0 -515 -1625 [ [ 0 78 21 41 21 0 ] [ 43 78 21 41 ] ] Char
0 -1233 -1865 [ [ 5 78 35 78 19 48 27 48 32 45 35 41 38 30 38 22 35 11 30 3 21 0 13 0 5 3 2 7 0 15 ] ] Char
0 -1171 -1865 [ [ 35 78 8 78 5 45 8 48 16 52 24 52 32 48 38 41 40 30 38 22 35 11 30 3 21 0 13 0 5 3 2 7 0 15 ] ] Char
0 -749 -1865 [ [ 27 78 0 26 40 26 ] [ 27 78 27 0 ] ] Char
0 -515 -1865 [ [ 38 78 0 0 ] [ 0 78 38 78 ] [ 0 0 38 0 ] ] Char
projects / unix-history / blob