summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/xfig/xfiglib.m4
blob: bfe21e08d21702740ce380fb06b6bc4b709626cf (plain)
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
.PS
# This is the source for a prototype xfig library of electric circuit
# elements.  Each element is a compound xfig object with corners on grid points.
# Connection points (to which lines may be drawn) should also be on grid
# points.
#
# Processing postscript.m4 and this file thought dpic -r gives postscript
# output that can be read into CorelDraw and, probably, Adobe Illustrator.
#

log_init


gunit = 1/16                 # default xfig grid dimension = (1/16) in
divert(-1)
define(`elen_',`8*gunit')    # default 2-terminal element length
define(`dimen_',`8*gunit')   # reference dimension for element bodies
define(`L_unit',`gunit')     # logical gate grid size
define(`N_diam',1)           # L_unit size of `not' circles

                             # grid round and chop
define(`g_round',`(int((`$1')/gunit+100000.5   )-100000)*gunit')
define(`g_chop', `(int((`$1')/gunit+100000.9999)-100000)*gunit')
                             # snap to grid
define(`g_snap',`(g_round((`$1').x),g_round((`$1').y))')

# Box containing an element.  The element must be in a box that is
# intersected by a horizontal or vertical line from entry to exit.
define(`Xfigbox',`[ S: Here; `$1' ; F: Here
   if S.y == F.y then { move from (max(S.x,F.x),F.y+g_chop(last[].n.y-F.y)) \
                               to (min(S.x,F.x),F.y-g_chop(F.y-last[].s.y)) } \
   else { move from (F.x+g_chop(last[].e.x-F.x),max(S.y,F.y))\
                 to (F.x-g_chop(F.x-last[].w.x),min(S.y,F.y))
   } ] ')

# Place compound object corners at grid intersections
define(`Below',
  `with .nw at g_snap(ifelse(`$1',,`last []',`$1').sw)-(0,2*gunit)')
define(`Right',
  `with .nw at g_snap(ifelse(`$1',,`last []',`$1').ne)+(2*gunit,0)')

# for debug
define(`prpos',`print (`$1').x/gunit,(`$1').y/gunit')
divert(0)dnl

[ [

rpoint_(up_ elen_)
A:Xfigbox( resistor )
  Xfigbox( inductor(,W) ) Right
  Xfigbox( inductor(,W,,M) ) Right
  Xfigbox( inductor ) Right
  Xfigbox( inductor(,,,M) ) Right
  Xfigbox( capacitor(down_ elen_,C) ) Right
  Xfigbox( capacitor ) Right
  Xfigbox( diode(down_ elen_) ) Right
  Xfigbox( diode(down_ elen_,Z) ) Right
  Xfigbox( diode(down_ elen_,B) ) Right
  Xfigbox( xtal ) Right
  Xfigbox( down_ ; { [right_; ground] }; move down_ 3*gunit ) Right
  Xfigbox( {move down_ gunit}; [right_; ground(,T)] ) Below
  Xfigbox( move up_ 2*gunit; dot(at last move.c) ) Below

B:Xfigbox( source ) Below(A)
  Xfigbox( source(,I) ) Right
  Xfigbox( source(,AC) ) Right
  Xfigbox( consource ) Right
  Xfigbox( consource(,I) ) Right
  Xfigbox( battery ) Right
  Xfigbox( battery(,3) ) Right
  Xfigbox( ebox ) Right

rpoint_(right_ elen_ from B)
C:Xfigbox( switch ) Below(B)
  Xfigbox( switch(,,O) ) Below
D:Xfigbox( switch(,,C) ) Below
  Xfigbox( amp(right_ elen_*10/8) ) with .nw at C.ne+(gunit,0)
D1:Xfigbox( delay ) Right
  Xfigbox(define(`dimen_',dimen_*6/5)dnl
     transformer(down_ 6*gunit,L)
     define(`dimen_',`8*gunit') ) Right

define(`bi_tr_adj',`with .E at Here
  line ifelse(`$1',,left,right) gunit*2/3 from last [].B')

define(`dimen_',`5/6*8*gunit')      # Adjust transistors to grid
  Xfigbox( [move right_ g_chop(29/10*gunit*2)
      circle rad 29/10*gunit at last move] ) Right
up_
  Xfigbox( {bi_tr bi_tr_adj}; move up_ gunit ) \
   with .se at (g_round(D1.w.x),g_round(D.s.y))
  Xfigbox( {bi_tr(,R) bi_tr_adj(R)}; move up_ gunit ) Right
  Xfigbox( {bi_tr(,,P) bi_tr_adj}; move up_ gunit ) Right
  Xfigbox( {bi_tr(,R,P) bi_tr_adj(R)}; move up_ gunit ) Right

define(`dimen_',15/16*8*gunit)
define(`fet_adj',`with .S at Here
  line ifelse(`$1',,left,right) gunit*3/4 from last [].G')
define(`fet_move',`move up_ 5*gunit from last [].S-(0,gunit)')

E:Xfigbox( {j_fet fet_adj}; fet_move ) Below(D)
  Xfigbox( {j_fet(,R) fet_adj(R)}; fet_move ) Right
  Xfigbox( {j_fet(,,P,) fet_adj(R)}; fet_move ) Right
  Xfigbox( {j_fet(,R,P,) fet_adj(R)}; fet_move ) Right
  Xfigbox( {e_fet(,,,) fet_adj(R)}; fet_move ) Right
  Xfigbox( {e_fet(,R,,) fet_adj(R)}; fet_move ) Right

F:Xfigbox( {e_fet(,,P,) fet_adj}; fet_move ) Below(E)
  Xfigbox( {e_fet(,R,P,) fet_adj(R)}; fet_move ) Right
  Xfigbox( {d_fet(,,,) fet_adj}; fet_move ) Right
  Xfigbox( {d_fet(,R,,) fet_adj(R)}; fet_move ) Right
  Xfigbox( {d_fet(,,P,) fet_adj}; fet_move ) Right
  Xfigbox( {d_fet(,R,P,) fet_adj(R)}; fet_move ) Right

right_
G:Xfigbox( OR_gate(1) ) Below(F)
  Xfigbox( NOR_gate ) Right
  Xfigbox( XOR_gate ) Right
  Xfigbox( NXOR_gate ) Right

# input lines for OR-like gates.
define(`OR_inlgth',`(-sqrt(OR_rad^2-G_hht^2)+sqrt(OR_rad^2-`$1'^2))*L_unit')

H:Xfigbox( [ {move right_ gunit}
    {move from last move-svec_(0,G_hht) to last move+svec_(0,G_hht)}
    {line right_ OR_inlgth(0)}
    {line right_ OR_inlgth(2) from Here+svec_(0,2)}
    {line same                from Here-svec_(0,2)}
    {line right_ OR_inlgth(1) from Here+svec_(0,1)}
    {line same                from Here-svec_(0,1)}] ) Below(G)
  Xfigbox( [ {move right_ gunit}
    {move from last move-svec_(0,G_hht) to last move+svec_(0,G_hht)}
    {line right_ OR_inlgth(0)}
    {line right_ OR_inlgth(2) from Here+svec_(0,2)}
    {line same                from Here-svec_(0,2)}] ) Right
  Xfigbox( [ {move right_ gunit}
    {move from last move-svec_(0,G_hht) to last move+svec_(0,G_hht)}
    {line right_ OR_inlgth(2) from Here+svec_(0,2)}
    {line same                from Here-svec_(0,2)}] ) Right
  Xfigbox( [ {move right_ gunit}
    {move from last move-svec_(0,G_hht) to last move+svec_(0,G_hht)}
    {line right_ OR_inlgth(0)}] ) Right

  Xfigbox( AND_gate ) Right
  Xfigbox( NAND_gate ) Right
  Xfigbox( line right_ L_unit/2; BUFFER_gate ) Right
  Xfigbox( line right_ L_unit/2; NOT_gate ) Right

# Deleted because of labels:
#right_
#textht = 10/72
#I:Xfigbox( FlipFlop(D) )  Below(H)
#  Xfigbox( FlipFlop(T) )  Right
#J:Xfigbox( FlipFlop(RS) ) Below(I)
#  Xfigbox( FlipFlop(JK) ) Right

  ]
  box invis wid last [].wid+2*gunit ht last [].ht+2*gunit at last []
] with .sw at (1,1)
#print last [].wid,last[].ht
.PE