DimmerExtra.jam

(dimmerextra.jam) =

(units) {7.2 .mul}.cvx .def

(u2) {units .exch units .exch}.cvx .def

(mv) {u2 .moveto}.cvx .def

(ln) {u2 .lineto}.cvx .def

(blob) {black .setcolor 1 .makeoutline .maskfill}.cvx .def

(hole) {{u2 .translatet white .setcolor 0 .15 u2 .moveto 0 -.15 u2 0 .15 u2 .arcto 1 .makeoutline .maskfill}.cvx .dosave}.cvx .def

(traces) {blob1 blob2 blob3 blob4 blob5 blob6 blob7 blob8}.cvx .def

(blob1) {.3 .3 mv .3 3.7 ln 3.7 3.7 ln 3.7 1.5 ln 6 1.5 ln 6 2.3 ln 7.7 2.3 ln 7.7 1.5 ln 11.5 1.5 ln 11.5 2.3 ln 13.5 2.3 ln 13.5 .3 ln blob}.cvx .def

(blob2) {.3 4.0 mv .3 7 ln 1.7 7 ln 1.7 4 ln blob}.cvx .def

(blob3) {2.3 4.0 mv 2.3 7 ln 3.7 7 ln 3.7 4 ln blob}.cvx .def

(blob4) {4.3 7 mv 4.3 2.6 ln 9 2.6 ln 9 3.4 ln 5.5 3.4 ln 5.5 7 ln blob}.cvx .def

(blob5) {.3 9 mv 5 9 ln 6 9.5 ln 9 9.5 ln 9 10.7 ln .3 10.7 ln blob}.cvx .def

(blob6) {6 5.3 mv 9 5.3 ln 9 8.7 ln 6 8.7 ln blob}.cvx .def

(blob7) {6 3.7 mv 7.7 3.7 ln 7.7 4 ln 10.5 4 ln 11.7 5 ln 12.7 5 ln 12.7 7 ln 11 7 ln 9 4.7 ln 6 4.7 ln blob}.cvx .def

(blob8) {14 2.7 mv 14 10.7 ln 11 10.7 ln 11 7.3 ln 13 7.3 ln 13 4.5 ln 11 4 ln 11 2.7 ln blob}.cvx .def

(holes) {1 10 hole 3 10 hole 5 10 hole 8 10 hole 12 10 hole 12 8 hole 12 6 hole 8 6 hole 8 8 hole 7 7 hole 5 6 hole 3 6 hole 1 6 hole 10 5 hole 5 5 hole 3 5 hole 1 5 hole 7 4 hole 12.5 3.25 hole 12.5 1.75 hole 8 3 hole 7 2 hole 5 1 hole 2.5 3 hole 1.5 3 hole 3 2 hole 2 2 hole 1 2 hole 2.5 1 hole 1.5 1 hole}.cvx .def

(board) {traces holes}.cvx .def

(line) {{board 14.5 units 0 .translatet board 14.5 units 0 .translatet board 14.5 units 0 .translatet board}.cvx .dosave}.cvx .def

(page) {{line 0 12 units .translatet line 0 12 units .translatet line}.cvx .dosave}.cvx .def

(printpage) {{page}.cvx (page.ip) .makeinterpress}.cvx .def