1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65#set text(10pt, font: "Menlo")
#let header = {
set text(weight: "bold")
grid(
columns: 2,
column-gutter: 1fr,
row-gutter: 0.5em,
align: (left,right),
[TX-100-1], [],
[TELEPHONE DIRECTORY], [THE NETHERLANDS],
)
}
#set page(header: header)
#let book(..data) = table(
columns: (1fr, auto),
align: (left, right),
inset: (left: 0pt, right: 0pt, top: 4pt, bottom: 4pt),
stroke: none,
table.header(
table.hline(stroke: 0.8pt),
table.cell(inset: 1.5pt)[], table.cell(inset: 1.5pt)[],
[*SUPPLIER*], [*TELEPHONE No.*],
table.cell(inset: 1.5pt)[], table.cell(inset: 1.5pt)[],
table.hline(stroke: 0.8pt),
[], [],
),
..data.pos().enumerate().map(
((i, x)) => if calc.rem-euclid(i, 2) == 0 {
x + box(width: 1fr, repeat[.])
} else {
x
}),
)
#book(
[MASSACHUSETTS ELECTRONICS #box(width: 1fr, repeat[.])], [339-200-0160],
[KENTUCKY ROCKET ENGINES], [270-221-4095],
[NEW YORK LITHOGRAPHY ENGINEERING], [212-278-7384],
[LAFAYETTE GENOMICS], [720-401-2136],
[TEXAS ATOMICS ORGANIZATION], [512-377-4036],
[ATLANTA DISPLAY MANUFACTURING CO], [404-357-1401],
[PHOENIX SPACE LABS], [480-300-2535],
[COLORADO QUANTUM COMPUTING], [938-223-3503],
[ALABAMA GENERAL INTELLIGENCE], [985-640-4955],
[MIAMI CIRCUITS], [215-346-8891],
[APPALACHIAN RF SYSTEMS], [305-992-0234],
[JACKSON TURBOMECHANICS INC.], [423-531-0076],
[NEBRASKA DYNAMICS], [601-977-6373],
[MICHIGAN CYBERNETICS CORPORATION], [402-602-6456],
[PALO ALTO NUCLEAR LABORATORY], [586-880-9817],
[CHICAGO ELECTRON CORP], [650-858-9397],
[WYOMING ADVANCED SEMICONDUCTORS], [312-891-2811],
[RALEIGH PHOTONICS], [307-870-4891],
[SEATTLE MATERIAL RESEARCH], [919-268-2944],
[OHIO PRECISION INCORPORATED], [206-540-8299],
[ALASKA ARTIFICIAL INTELLIGENCE], [216-673-1315],
[PORTLAND ELECTROMECHANICS], [907-496-1419],
[BERKELEY GRAPHICS], [503-295-3129],
[LOS ANGELES FASTENERS], [775-375-5525],
[PHILADELPHIA RAPID PROTOTYPING], [323-824-7371],
)