diff options
author | Norbert Preining <norbert@preining.info> | 2021-06-04 03:02:48 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-06-04 03:02:48 +0000 |
commit | a5ae129f3aa3a3a0aeaa21c55b75a1d543fe4111 (patch) | |
tree | fe5e1e212aec203e668df8581a17374cdde352a1 /graphics/circuit_macros/examples/svg/CrossbarSVG.m4 | |
parent | d231c6331f53a048d29c2f847254a9f56d5ee2dd (diff) |
CTAN sync 202106040302
Diffstat (limited to 'graphics/circuit_macros/examples/svg/CrossbarSVG.m4')
-rw-r--r-- | graphics/circuit_macros/examples/svg/CrossbarSVG.m4 | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/graphics/circuit_macros/examples/svg/CrossbarSVG.m4 b/graphics/circuit_macros/examples/svg/CrossbarSVG.m4 deleted file mode 100644 index 12bb2d72c3..0000000000 --- a/graphics/circuit_macros/examples/svg/CrossbarSVG.m4 +++ /dev/null @@ -1,54 +0,0 @@ -.PS -# Crossbar switch -gen_init(svg_font(sans-serif,11bp__)) - circlerad = 0.12 - boxwid = 0.18 - boxht = 0.18 - rathick = 1.5 - rawd = rathick*4 bp__ - raht = rawd*2 - boxdist = boxwid*1.8 - -`define bcoord {($2,-($1))*boxdist}' -`define redarrow { arrow ht raht wid rawd thick rathick color "red" }' - -`define cbx {' - thinlines_ - n = $+ - 1 - for i=0 to n do { - line color "blue" from bcoord(i,0) to bcoord(i,n) - line color "blue" from bcoord(0,i) to bcoord(n,i) - C[i]: circle invis at bcoord(i,-1.5) - } - for i=0 to n do { - exec sprintf("col = $%g",i+1) - redarrow from C[i].e right 1.25*boxwid - redarrow from C[i].w+(-boxwid,0) right raht - for j=0 to n do { - B: box color "blue" shaded "yellow" at bcoord(i,j) - if j==col then { - line color "blue" from B.s to B.e - line thick rathick color "red" from C[i].e to B.w \ - then to B.n then to (B.x,C[0].y+(2+j*2/3)*boxht) - continue to (C[j].x-(2+j*2/3)*boxht,Here.y) - continue to (Here,C[j]) then to C[j].w - } \ - else { - line color "blue" from B.n to B.s - line color "blue" from B.w to B.e - } - } - } - thicklines_ - for i=0 to n do { - circle thick 1.5 outlined "blue" shaded "yellow" at C[i] \ - sprintf("ifpostscript(,ifsvg(,\large))%g",i) - } - } - -[ - cbx(3,6,0,5,2,7,1,4) - ] at 4,4 - - command "</g>" # end font -.PE |