summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/Heathkit.m4
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/circuit_macros/examples/Heathkit.m4')
-rw-r--r--graphics/circuit_macros/examples/Heathkit.m454
1 files changed, 27 insertions, 27 deletions
diff --git a/graphics/circuit_macros/examples/Heathkit.m4 b/graphics/circuit_macros/examples/Heathkit.m4
index 5cf7ca38d2..8d3ec5ad00 100644
--- a/graphics/circuit_macros/examples/Heathkit.m4
+++ b/graphics/circuit_macros/examples/Heathkit.m4
@@ -67,7 +67,7 @@ define Pad { P`$1': box fill_(1) "$1" }
GRN2: line from P3.e to L2.end "GRN" above
spline <-> from GRN2.end+(-g,0) up 2.5*g right 0.5*g then up 5*g left g \
then up 2.5*g right 0.5*g
- box invis fill_(1) wid 3*g ht g "\unit{6}{\hbox{VAC}}" at L2.c-(2*g,0)
+ box invis fill_(1) wid 3*g ht g "\SI{6}{VAC}" at L2.c-(2*g,0)
Pad(4) at P3-(0,3*g)
line right_ 3*g from P4.e "BRN" above
arrow down_ 2*g ht arrowht*2/3
@@ -96,7 +96,7 @@ define(`socket',`[
line right_ g; PL: dot
line from BLKYEL.end right g then to Here+(0,-g)
fuse(down_ 3*g,D)
- rlabel(,"\unit{3}{\ampere} FUSE" rjust "SLOW BLOW")
+ rlabel(,"\SI{3}{\ampere} FUSE" rjust "SLOW BLOW")
line to (Here.x,int(Here.y/g)*g-g); dot
Sckt1: socket at Here+(5*g,0)
line from Sckt1.w to (PL,Sckt1); A: dot; "A" rjust
@@ -117,7 +117,7 @@ define(`plug',`[ w = dimen_*2/3; q = 0.25*w
line from T2 to (T2,F.c)-(0,2*g) ]')
PP: plug with .F.c at Sckt3+(0,-8*g)
- "\unit{120}{\hbox{VAC}}" ljust "\unit{50/60}{\hertz}" ljust at PP.e
+ "\SI{120}{VAC}" ljust "\SI{50/60}{\hertz}" ljust at PP.e
define(`pwrswitch',`[ right; circlerad = 1.75*g/2
C1: circle "1"
@@ -154,7 +154,7 @@ define(`pwrswitch',`[ right; circlerad = 1.75*g/2
Pad(22) at Board.sw+(0,3*g)
R514: resistor(right_ 8*g from P22.e); llabel(,"R514")
- rlabel(,"\unit{680}{\kilo}")
+ rlabel(,"\SI{680}{\kilo{}}")
dot; { ground }
line to (P23,Here) then to P23.n
@@ -168,7 +168,7 @@ define(`pwrswitch',`[ right; circlerad = 1.75*g/2
diode(from BE left_ d1h down_ d1h); llabel(,,"D509")
BS: dot
diode(left_ d1h up_ d1h); llabel(D507)
- capacitor(down_ from BN to BS,C); llabel("C507",,\unit{.22}{})
+ capacitor(down_ from BN to BS,C); llabel("C507",,\num{.22})
line from BE to P24.n
line from BN to P2.w
line from BS to P1.w
@@ -192,17 +192,17 @@ define(`hbi_tr',`[ linewid = linewid*4/4.16
# Interior circuits
line from P6.w left 2*g; ground
line from P5.w left 4*g; dot
- { C504: capacitor(down_ 4*g,C); llabel("C504",,\unit{.22}{}); ground(,T) }
+ { C504: capacitor(down_ 4*g,C); llabel("C504",,\num{.22}); ground(,T) }
D504: diode(left_ 5*g); rlabel(,"D504"); dot
{ C505: capacitor(down_ to (Here,C504.end),C+L)
- rlabel("C505",\unit{100}{},\unit{75}{\volt}); ground(,T) }
+ rlabel("C505",\num{100},\SI{75}{\volt}); ground(,T) }
line right_ to (Here,P7); dot
{ D503: reversed(`diode',to (D504.start,Here)); llabel(,"D503")
line to P7.w }
d3 = lin_leng(L3)
spline <-> from C504.start+(g/2,0) \
up d3/4 right g/4 then up d3*2/4 left g/2 then up d3/4 right g/4
- box invis fill_(1) ht g wid 4*g "\unit{100}{\hbox{VAC}}" \
+ box invis fill_(1) ht g wid 4*g "\SI{100}{VAC}" \
at last spline.c+(-g,0)
down_
@@ -211,11 +211,11 @@ define(`hbi_tr',`[ linewid = linewid*4/4.16
line from Q503.B.s to (Q503.B.x,Q503.E.y-4*g)
R513: resistor(down_ 5*g); llabel(,"R513" ljust "1500"); ground(,T)
line from P19.e to (BW-(2*g,0),P19) then up Q503.E.y-P19.y+2*g
- R511: resistor(right_ 5*g); llabel(,"R511"); rlabel(,\unit{470}{});
+ R511: resistor(right_ 5*g); llabel(,"R511"); rlabel(,\num{470});
line to (Q503.E,Here) then to Q503.E.n
line from P20.e to (BW,P20) then up R513.end.y-P20.y
resistor(up_ lin_leng(R513))
- rlabel(,"R512" ljust "5600" ljust "\unit{1}{\watt}")
+ rlabel(,"R512" ljust "5600" ljust "\SI{1}{\watt}")
line to (Here,Q503.B) then to Q503.B.w
"Q503" "S2091 HI TEMP" "CONTROL" at Q503.E+(1.5*g,4*g)
D505: reversed(`diode',right_ from Q503.E.e to (C504,Q503.E)); llabel(,"D505")
@@ -226,23 +226,23 @@ define(`hbi_tr',`[ linewid = linewid*4/4.16
{ Pad(8) at (Here,Board.n) }
{ line to P8.s }
R505: resistor(down_ to (Here,P6))
- llabel(,"R505" ljust "\unit{12}{\kilo}"); dot
+ llabel(,"R505" ljust "\SI{12}{\kilo{}}"); dot
{ C503: capacitor(down_ to (Here,C505.end),C+L)
- rlabel(,"C503" rjust "100" rjust "\unit{70}{\volt}")
+ rlabel(,"C503" rjust "100" rjust "\SI{70}{\volt}")
ground(,T) }
right_
Q502: hbi_tr(,R) with .B at (R511.start,Here)
line from Q502.C.e to R505.start
line from Q502.B.e to R505.end
R504: resistor(down_ from Q502.B.s to (Q502.B,C505.end))
- rlabel(,"R504" rjust "\unit{51}{\kilo}"); ground(,T)
+ rlabel(,"R504" rjust "\SI{51}{\kilo{}}"); ground(,T)
"Q502" "TA7311" "REGULATOR" "CONTROL" at Q502.C+(-1*g,3.5*g)
Pad(9) at (Q502.E,Board.n)
line from Q502.E.n to P9.s
Pad(10) at (Q502.B-(9*g,0),Board.n)
R502: resistor(left_ from Q502.E.w to (P10,Q502.E))
- rlabel(,"R502"); llabel(,\unit{150}{}); dot
+ rlabel(,"R502"); llabel(,\num{150}); dot
Pad(11) at (Board.w,Q502.E)
Pad(14) at P11+(0,2.5*g)
@@ -275,41 +275,41 @@ define(`hbi_tr',`[ linewid = linewid*4/4.16
{ line to P10.s }
{ resistor(down_ 5*g)
llabel(,
- "R510" ljust "225" ljust "\unit{10}{\watt}" ljust "\unit{5}{\hbox{\%}}")
+ "R510" ljust "225" ljust "\SI{10}{\watt}" ljust "\SI{5}{\hbox{\%}}")
line to Q504.C.n }
R503:resistor(left_ 10*g); rlabel(,"R503")
- { "290" "\unit{10}{\watt} \unit{5}{\hbox{\%}}" at last [].s+(0,-1.3*g) }
+ { "290" "\SI{10}{\watt} \SI{5}{\hbox{\%}}" at last [].s+(0,-1.3*g) }
dot
line to (Here,Q504.B)
- resistor(right_ to Q504.B.w); llabel(,"R507"); rlabel(,\unit{100}{})
+ resistor(right_ to Q504.B.w); llabel(,"R507"); rlabel(,\num{100})
line from P15.e to R503.end
# "Q504" "40409" "REGULATOR" at Q504.C+(3.5*g,3*g)
"Q504" "40409" "REGULATOR" at Q504.n+(-2*g,3*g)
resistor(left_ from R502.end to (R503.end,P11)); rlabel(,"R501")
- {"390" "\unit{5}{\watt} \unit{5}{\hbox{\%}}" at last [].s+(0,-1.3*g)}
+ {"390" "\SI{5}{\watt} \SI{5}{\hbox{\%}}" at last [].s+(0,-1.3*g)}
line to P11.e
resistor(right_ from P16.e to (R514.end,P16)); llabel(,"R506")
- rlabel(,\unit{82}{})
+ rlabel(,\num{82})
line down P16.y-P17.y; dot
dot(at (R514.end,P11))
C501: capacitor(down_ 6*g,C+); llabel("C501")
- {"100" ljust "\unit{30}{\volt}" ljust at last [].s+(0,-g) below }
+ {"100" ljust "\SI{30}{\volt}" ljust at last [].s+(0,-g) below }
ground(,T)
dot(at (Here.x+4*g,P11.y))
ZD501: reversed(`diode',down_ lin_leng(C501),Z); llabel("ZD501"); ground(,T)
dot(at (R514.end,P15))
C502: capacitor(down_ 6*g,C+); llabel("C502")
- {"100" ljust "\unit{30}{\volt}" ljust at last [].s+(0,-g) below }
+ {"100" ljust "\SI{30}{\volt}" ljust at last [].s+(0,-g) below }
ground(,T)
dot(at (Here.x+4*g,P15.y))
ZD502: reversed(`diode',down_ lin_leng(C502),Z); llabel("ZD502"); ground(,T)
line from (C502,P17) to (C502,R508.start+(0,g))
C506: capacitor(down_ to (Here,R508.end),C+); llabel("C506")
- {"100" ljust "\unit{30}{\volt}" ljust at last [].s+(0,-g) below }
+ {"100" ljust "\SI{30}{\volt}" ljust at last [].s+(0,-g) below }
ground(,T)
# Left-side boxes
@@ -326,27 +326,27 @@ define(`hbi_tr',`[ linewid = linewid*4/4.16
line left 3*g from P17.w "RED" above
line left 3*g from P18.w "WHT-" "RED" above
box with .e at (Here,0.5 between P17 and P18) \
- "\shortstack[l]{\unit{12.7}{\volt} SOURCE\\ TO MULTIPLEX}"
+ "\shortstack[l]{\SI{12.7}{\volt} SOURCE\\ TO MULTIPLEX}"
line left 3*g from P16.w "WHT" above
box with .se at Here+(0,-g) \
- "\shortstack[l]{\unit{12}{\volt} SOURCE\\ TO FM TUNER\\ SOURCE SWITCH}"
+ "\shortstack[l]{\SI{12}{\volt} SOURCE\\ TO FM TUNER\\ SOURCE SWITCH}"
line left 3*g from P15.w "ORG" above
box ht 3*g with .e at Here \
- "\shortstack[l]{\unit{15}{\volt} SOURCE\\ TO FM TUNER}"
+ "\shortstack[l]{\SI{15}{\volt} SOURCE\\ TO FM TUNER}"
line left 3*g from P13.w "BLU" above
line left 3*g from P12.w " WHT-" "RED"
line left 3*g from P11.w "RED" above
box ht 6*g with .e at (Here,P12) \
- "\shortstack[l]{\unit{27}{\volt} SOURCE\\ TO CONTROL\\ PREAMP AND\\ PWR\
+ "\shortstack[l]{\SI{27}{\volt} SOURCE\\ TO CONTROL\\ PREAMP AND\\ PWR\
AMPLIFIER}"
line left 3*g from P14.w
{ "WHT-" "GRY-" "GRN" at last line.c+(0,2*g) }
box with .se at Here+(0,-g) \
- "\shortstack[l]{\unit{50}{\volt} SOURCE\\ TO PHONO\\ PREAMP}"
+ "\shortstack[l]{\SI{50}{\volt} SOURCE\\ TO PHONO\\ PREAMP}"
iflatex(`ifpsfrag(,`latexcommand(})')')