diff options
author | Karl Berry <karl@freefriends.org> | 2022-10-15 20:23:31 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2022-10-15 20:23:31 +0000 |
commit | 19aeadee8fa32b9cc9192c6daba31bb08644a0d5 (patch) | |
tree | 5da7a9df3896d731e11e436d6e949bf80f9eea74 /Master/texmf-dist/doc/latex/circuit-macros/examples/EVplugs.m4 | |
parent | f80587771c52eb55c27e2bcdc8846d0e6dbc8746 (diff) |
circuit_macros (14oct22)
git-svn-id: svn://tug.org/texlive/trunk@64713 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/EVplugs.m4')
-rw-r--r-- | Master/texmf-dist/doc/latex/circuit-macros/examples/EVplugs.m4 | 209 |
1 files changed, 209 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/EVplugs.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/EVplugs.m4 new file mode 100644 index 00000000000..5631482bf9a --- /dev/null +++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/EVplugs.m4 @@ -0,0 +1,209 @@ +.PS +# EV_lugs.m4 +# https://en.wikipedia.org/wiki/CHAdeMO +gen_init +divert(-1) + + `EV_J1772(keys) + EV charging plug in a [] block + keys: wdth=expr; # plug width + diamLNP=expr; # diam of L1, N, PE + twdth=expr; # tab width + thgt=expr; # tab hght + thick=expr; # outer line thickness (pt) + inthick=expr; # inner line thickness (pt) + BG=attributes; # shaded gray etc + L1=attributes; # L1 attributes ... + N=attributes; + PE=attributes; + PP=attributes; + CP=attributes; ' +define(`pEVskale',25.4) dnl default plug size (20 mm) +define(`EV_J1772',`[ pushkeys_(`$1', `wdth:20/pEVskale; + twdth:3.5/20*m4wdth; thgt:1.5/20*m4wdth; diamLNP:6/20*m4wdth; + thick:2; inthick:1.5; BG::N; L1::N; N::N; PE::N; PP::N; CP::N; ') + tang = atan2(m4twdth/2,m4wdth/2)*rtod_ + TS: (Rect_(m4wdth/2,-90-tang)); TE: (Rect_(m4wdth/2,-90+tang)) + Tab: line thick m4thick from TS down_ m4thgt \ + then to TE-(0,m4thgt) then to TE m4BG + Arc: arc thick m4thick to TS with .c at (0,0) m4BG + round(at TS,last arc.thick); round(at TE,last arc.thick) + L1: circle diam m4diamLNP thick m4inthick at (Rect_(m4wdth/4,150)) m4L1 + N: circle diam m4diamLNP thick m4inthick at (Rect_(m4wdth/4, 30)) m4N + PE: circle diam m4diamLNP thick m4inthick at (0,-m4wdth/4) m4PE + PP: circle diam m4diamLNP*0.55 thick m4inthick at (Rect_(m4wdth/3,210)) m4PP + CP: circle diam m4diamLNP*0.55 thick m4inthick at (Rect_(m4wdth/3,-30)) m4CP + `$2' popdef(`m4CP',`m4PP',`m4PE',`m4N',`m4L1',`m4BG', + `m4wdth',`m4diamLNP',`m4twdth',`m4thgt',`m4thick',`m4inthick') ]') + + `EV_J3068(keys,shade) + EV charging plug in a [] block + keys: wdth=expr; # plug width + diamLNP=expr; # diam of L1, N, PE + twdth=expr; # tab width + thgt=expr; # tab hght + thick=expr; # outer line thickness (pt) + inthick=expr; # inner line thickness (pt) + BG=attributes; # shaded gray etc + L1|L2|L3=attributes; # pin attributes ... + N=attributes; + PE=attributes; + PP=attributes; + CP=attributes; + arg2= R:G:B background fill color ' +define(`EV_J3068',`[ pushkeys_(`$1', + `wdth:25/pEVskale; diamLNP:m4wdth*0.25; thick:2; inthick:1.5; + BG::N; L1::N; L2::N; L3::N; N::N; PE::N; PP::N; CP::N; ') + C: Here + NE: C+(Rect_(m4wdth/2,45)); NW: C+(Rect_(m4wdth/2,135)) + Ac: NE-(1,1)/sqrt(2)*m4diamLNP/2 + Arc: arc thick m4thick from NW to NE with .c at C m4BG ifelse(`$2',,, + `shaded rgbstring(patsubst(`$2',:,`,')) + line invis from NE to Ac+(0,m4diamLNP/2) \ + then to Ac+(0,m4diamLNP/2) \ + then to NW+(1,-1)/sqrt(2)*m4diamLNP/2 + (0,m4diamLNP/2) \ + then to NW then to NE shaded rgbstring(patsubst(`$2',:,`,'))') + arc thick m4thick to Ac+(0,m4diamLNP/2) with .c at Ac m4BG + Top: line thick m4thick to (NW+NE-Ac, Here) m4BG + arc thick m4thick to NW with .c at Here+(0,-m4diamLNP/2) m4BG + PE: circle diam m4diamLNP thick m4inthick at C m4PE + PP: circle diam m4diamLNP*0.55 thick m4inthick at C+(Rect_(m4wdth/3,45)) m4PP + CP: circle diam m4diamLNP*0.55 thick m4inthick at C+(Rect_(m4wdth/3,135)) m4CP + L1: circle diam m4diamLNP thick m4inthick at C+(m4wdth*.3,0) m4L1 + L2: circle diam m4diamLNP thick m4inthick at C+(Rect_(m4wdth*.3,-60)) m4L2 + L3: circle diam m4diamLNP thick m4inthick at C+(Rect_(m4wdth*.3,-120)) m4L3 + N: circle diam m4diamLNP thick m4inthick at C-(m4wdth*.3,0) m4N + `$3' popdef(`m4wdth',`m4diamLNP',`m4thick',`m4inthick', + `m4BG',`m4L1',`m4L2',`m4L3',`m4N',`m4PE',`m4PP',`m4CP') ]') + + `EV_CCS1(J1772 keys,DC keys) + DC keys: wdth=expr; # DC socket width + hght=expr; # DC socket height + diamPM=expr; # diam of DC+, DC- circles + sep=expr; # separation of Jack and DC + thick=expr; # outer line thickness (pt) + inthick=expr; # inner line thickness (pt) + BG=attributes; # shaded gray etc + DCplus=attributes; + DCminus=attributes; ' +define(`EV_CCS1',`[ + J: EV_J1772(`$1') + pushkeys_(`$2',`wdth:J.wid:23.5/20; hght:J.wid*11/20; diamPM:m4hght*7/11; + sep:J.wid*3/30; thick:J.Arc.thick; inthick:J.PE.thick; + BG::N; DCplus::N; DCminus::N;') + DC: [ Box: box thick m4thick wid m4wdth ht m4hght rad m4hght/2 m4BG + DCplus: circle thick m4inthick diam m4diamPM at Box.w+(m4hght/2,0) m4DCplus + DCminus:circle thick m4inthick diam m4diamPM at Box.e-(m4hght/2,0) m4DCminus + ] with .n at J.s+(0,-m4sep) + popdef(`m4wdth',`m4hght',`m4diamPM',`m4sep',`m4thick',`m4inthick',`m4BG', + `m4DCplus',`m4DCminus') + ]') + + `EV_CCS2(J3068 keys,shade,DC keys) + DC keys: wdth=expr; # DC socket width + hght=expr; # DC socket height + diamPM=expr; # diam of DC+, DC- circles + sep=expr; # separation of Jack and DC + thick=expr; # outer line thickness (pt) + inthick=expr; # inner line thickness (pt) + BG=attributes; # shaded gray etc + DCplus=attributes; + DCminus=attributes; + arg2= R:G:B background fill color ' +define(`EV_CCS2',`[ + J: EV_J3068(`$1',`$2') + pushkeys_(`$3',`wdth:J.wid:23.5/20; hght:J.wid*11/20; diamPM:m4hght*7/11; + sep:J.wid*3/30; thick:J.Arc.thick; inthick:J.PE.thick; + BG::N; DCplus::N; DCminus::N;') + DC: [ Box: box thick m4thick wid m4wdth ht m4hght rad m4hght/2 dnl + m4BG ifelse(`$2',,,`shaded rgbstring(patsubst(`$2',:,`,'))') + DCplus: circle thick m4inthick diam m4diamPM at Box.w+(m4hght/2,0) m4DCplus + DCminus:circle thick m4inthick diam m4diamPM at Box.e-(m4hght/2,0) m4DCminus + ] with .n at J.s+(0,-m4sep) + popdef(`m4wdth',`m4hght',`m4diamPM',`m4sep',`m4thick',`m4inthick',`m4BG', + `m4DCplus',`m4DCminus') + ]') + + `EV_CHAdeMO(keys,shade) + EV charging plug in a [] block + keys: wdth=expr; # plug width + thick=expr; # outer line thickness (pt) + inthick=expr; # inner line thickness (pt) + BG=attributes; # background shaded gray etc + DCplus=|DCminusNS=|FG=|NC=|SS1=|DCP=|PP=| + CL=|CH=|SS2=attributes # pin attributes ...' +define(`EV_CHAdeMO',`[ pushdef(`m4sk',33/140/pEVskale) pushkeys_(`$1', + `wdth:140*m4sk; thick:m4wdth*9/140/(1bp__); inthick:m4thick*1.5/9; + BG::N; DCplus::N; DCminus::N;N::N;S::N; + FG::N; NC::N; SS1::N; DCP::N; PP::N; CL::N; CH::N; SS2::N') + C: circle thick m4thick diam m4wdth-m4thick bp__ m4BG + line thick m4thick*0.6 from C+(Rect_(C.rad+m4thick bp__*3/4,42)) \ + to C+(Rect_(C.rad+m4thick bp__*3/4,50)) then left m4thick bp__ m4BG + line thick m4thick*0.6 from C+(Rect_(C.rad+m4thick bp__*3/4,138)) \ + to C+(Rect_(C.rad+m4thick bp__*3/4,130)) then right m4thick bp__ m4BG + idiam = (m4wdth-m4thick bp__*2)*47/(27+47*2) + N: circle diam idiam thick m4inthick with .n at C.n-(0,m4thick bp__/2) m4N + S: circle diam idiam thick m4inthick with .s at C.s+(0,m4thick bp__/2) m4S + E: circle diam idiam thick m4inthick at Cintersect(N,N.diam,S,S.diam) m4DCminus + W: circle diam idiam thick m4inthick at Cintersect(S,S.diam,N,N.diam) m4DCplus + Loopover_(`Z', + `line thick m4inthick up Z.diam*0.6 right Z.diam*0.6 with .c at Z + line thick m4inthick up Z.diam*0.6 left Z.diam*0.6 with .c at Z',N,S) + Loopover_(`L',`L: circle diam idiam/4 thick linethick/2 \ + at N+(Rect_(idiam/4,90*m4Lx)) m4xpand(m4`'L)',FG,NC,DCP,SS1) + Loopover_(`L',`L: circle diam idiam/4 thick linethick/2 \ + at S+(Rect_(idiam/4,90*m4Lx)) m4xpand(m4`'L)',PP,CL,SS2,CH) + `$3' popdef(`m4sk',`m4wdth',`m4thick',`m4inthick',`m4BG', + `m4DCplus',`m4DCminus',`m4N',`m4S', + `m4FG',`m4NC',`m4SS1',`m4DCP',`m4PP',`m4CL',`m4CH',`m4SS2') ]') + +divert(0)dnl + + ifsvg(svg_font(sans-serif,6bp__)) + iflatex(command "{\sf\scriptsize") + define(`EVsmall',`ifsvg(svg_small(`$1'),{\tiny `$1'})') + define(`EVtxt',`ifsvg(``$1'',`{patsubst(`$1',_,\\_)}')') + define(`EVk',`ifsvg(+(0,0.75bp__))') + +[ +P1: EV_J1772(BG=fill_(0.75); PE=fill_(1) "PE";L1=fill_(1) "L1";N=fill_(1) "N"; + PP=fill_(1); CP=fill_(1);) + "EVsmall(PP)" at P1.PP EVk + "EVsmall(CP)" at P1.CP EVk + +P2: EV_J3068(PE=shaded "green" "PE";\ + L1=shaded "yellow" "L1";L2=shaded "yellow" "L2";L3=shaded "yellow" "L3"; + N=fill_(1) "N";", + 0.85:0.85:0.85) at P1+(15bp__,0) \ + with .w at P1.e+(P1.wid/5,0) + "EVsmall(PP)" at P2.PP EVk + "EVsmall(CP)" at P2.CP EVk + +P3: EV_CCS1(L1="L1";N="N";PE="PE", + DCplus="DC+";DCminus="DC-") with .w at P2.e+(P1.wid/5,0) + "EVsmall(PP)" at P3.J.PP EVk + "EVsmall(CP)" at P3.J.CP EVk + +P4: EV_CCS2(L1="L1";L2="L2";L3="L3";N="N";PE="PE",0.85:0.85:0.85, + DCplus="DC+";DCminus="DC-") with .w at P3.e+(P1.wid/5,0) + "EVsmall(PP)" at P4.J.PP EVk + "EVsmall(CP)" at P4.J.CP EVk +P5: EV_CHAdeMO( BG=outlined "blue" fill_(0.8); + DCplus=shaded "red" "DC+"; + DCminus=shaded "red" "DC-"; + Loopover_(`L',`L=fill_(1);',N,S) + FG=shaded "green"; + Loopover_(`L',`L=shaded "orange";',SS1,DCP,NC,PP,CH,SS2,CL)) \ + with .w at P4.e+(P4.w.x-P3.e.x,0) + Loopover_(`L',`"EVsmall(L)" at P5.L EVk',FG,NC,DCP,SS1,PP,CL,CH,SS2) +# + "EVtxt(`EV_CCS2')" at P4.s+(0,-10bp__) + "EVtxt(`EV_CCS1')" at (P3,last "") + "EVtxt(`EV_J3068')" at (P2,last "") + "EVtxt(`EV_J1772')" at (P1,last "") + "EVtxt(`EV_CHAdeMO')" at (P5,last "") + ] # with .nw at last [].sw+(0,-0.2) + + iflatex(command "}%") + ifsvg(command "</g>") +.PE |