summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/Blogix.m4
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/Blogix.m4')
-rw-r--r--Master/texmf-dist/doc/latex/circuit-macros/examples/Blogix.m487
1 files changed, 0 insertions, 87 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/Blogix.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/Blogix.m4
deleted file mode 100644
index b2d44c5222f..00000000000
--- a/Master/texmf-dist/doc/latex/circuit-macros/examples/Blogix.m4
+++ /dev/null
@@ -1,87 +0,0 @@
-.PS
-# `Blogix.m4'
-log_init
-
-linewid = 0.4
-
-# A more complex expression
- F: Autologix(And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
- And(x4,Or(x2,x1,~x0),Xor(x2,~x1)))))
-
- Loopover_(`v_', `"$v_$" at F.In`'v_ above', x0,x1,x2,x3,x4)
- "\sl Out" ljust at F.Out
- `"{\tt \shortstack[l]{Autologix(And(Or(x3,x1,\~{}x0),\\
- \quad Nor(Or(x3,Not(x2),\~{}x1,x0),And(x4,Or(x2,x1,\~{}x0),%\
- Xor(x2,\~{}x1)))))}}"' wid 440pt__ ht 20pt__ \
- with .w at F.sw+(0,-0.25)
-# Inputs on the left with vert offset in L_units
-define(`Doff',LV;offset=25)
- G: Autologix(And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
- And(x4,Or(x2,x1,~x0),Xor(x2,~x1)))),
- Doff*L_unit) \
- with .sw at F.Out+(0.2,-0.7)
-
- Loopover_(`v_', `"$v_$" wid 11pt__ at G.In`'v_ rjust ', x0,x1,x2,x3,x4)
- "\sl Out" ljust at G.Out
- "{\tt ...,Doff*L\_unit)}" at G.s+(0,-10pt__)
-
-# A more complex expression
-define(`Eoff',R)
- E: Autologix(And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
- And(x4,Or(x2,x1,~x0),Xor(x2,~x1))));
- And(~x0,Nand(~x1,x3)),
- Eoff) \
- with .nw at F.sw+(0,-1.5)
-
- Loopover_(`v_', `"$v_$" at E.In`'v_ above ', x0,x1,x2,x3,x4)
- "\sl Out1" ljust at E.Out1
- "\sl Out2" ljust at E.Out2
- "{\tt ...,Eoff)}" at E.s+(0,-10pt__)
-
-# Inputs on the left with vert offset in L_units
-define(`Foff',LRV;offset=17)
- D: Autologix(And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
- And(x4,Or(x2,x1,~x0),Xor(x2,~x1)))),
- Foff*L_unit) \
- with .sw at E.Out1+(0.2,-0.5)
-
- Loopover_(`v_', `"$v_$" wid 11pt__ at D.In`'v_ rjust ', x0,x1,x2,x3,x4)
- "\sl Out" ljust at D.Out
- "{\tt ...,Foff)}" at D.s+(0,-10pt__)
-
-# Here's how to include an arbitrary circuit
-# that isn't one of the standard gates.
-# First, define the circuit with a name ending
-# in _gate. Make sure its inputs are on the left
-# and named In1, In2, ... and the output Out
-# is on the right.
-define(`SR_gate',`[
- S: NOR_gate
- R: NOR_gate at S+(0,-L_unit*(AND_ht+4))
- w = (S.Out.x-R.In1.x)/3
- v = 2*L_unit
- line right_ dimen_/2 from S.Out
- Out: Here
- TR: R.In1-(v,0)
- line from S.Out+(v,0) down w*3/2 then left S.Out.x-TR.x+v down w \
- then to TR then to R.In1
- TS: S.In2-(v,0);
- line from R.Out right v then up w*3/2 then left R.Out.x-TS.x+v up w \
- then to TS then to S.In2
- In1: S.In1
- In2: R.In2 ]')
-# Now define the function by which the circuit
-# will be invoked, with a preceding _:
-define(`SRff',`_AutoGate(SR,$@)')
-
-# You're done. Here is an example:
- F: Autologix(Or(y,SRff(And(x,y),Nand(x,y)))) \
- with .nw at 2nd last [].sw+(0,-0.5)
-
- "\sl Out" at F.Out ljust
- "$x$" at F.Inx above
- "$y$" at F.Iny above
- `"{\tt Autologix(Or(y,SRff(And(x,y),Nand(x,y))))}"' wid 267pt__ ht 7pt__ \
- with .w at last [].sw+(0,-10pt__)
-
-.PE