texlive[59444] Master/texmf-dist/doc/latex/circuit-macros:
commits+karl at tug.org
commits+karl at tug.org
Thu Jun 3 22:45:51 CEST 2021
Revision: 59444
http://tug.org/svn/texlive?view=revision&revision=59444
Author: karl
Date: 2021-06-03 22:45:51 +0200 (Thu, 03 Jun 2021)
Log Message:
-----------
circuit_macros (3jun21)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/latex/circuit-macros/CHANGES
trunk/Master/texmf-dist/doc/latex/circuit-macros/Copying
trunk/Master/texmf-dist/doc/latex/circuit-macros/README
trunk/Master/texmf-dist/doc/latex/circuit-macros/darrow.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.bib
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.pdf
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Makefile
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Oblique.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/SourcesMan.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/SwitchesMan.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/VariableMan.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Version.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/body.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/currents.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/defines.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/fetMan.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/relaycoilMan.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/dpictools.pic
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Ball.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Buttons.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Chuck.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Conn.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Connectors.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Cruller.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Dini.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Escher.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Euro.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Geometry.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Heathkit.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Lyap.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Makefile
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Orbits.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Planes.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/README-examples
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/control.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/csc.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/examples.pdf
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/examples.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/exp.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/fet.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/files.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/graysurf.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ics.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/lcct.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/cct.mf
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/cct.tfm
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/person.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/relaycoil.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/shapes.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AlogixSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/BtreeSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrullerSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DiniSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/GeometrySVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/GrayCodeSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Makefile
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MultiplexerSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PushPullSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ShiftRSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TTLnandSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/UNOSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/WindingsSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/controlSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/cscSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex21SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/examplesSVG.htmx
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/expSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/fetSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/graysurfSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/icsSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/paletteSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/roseSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/shapesSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/tstSVG.htmx
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/tst.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/xfig/xfiglib.fig
trunk/Master/texmf-dist/doc/latex/circuit-macros/gpic.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/lib3D.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/libcct.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/libgen.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/liblog.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/mfpic.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/mpost.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/pgf.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/postscript.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/psfrag.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/pstricks.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/svg.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/xfig.m4
Added Paths:
-----------
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CapacitorsMan.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/InductorsMan.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/MoreTableMan.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ResistorsMan.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/opampex.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/opampexbody.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ArrowFn.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Capacitors.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Chips.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Inductors.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MoreTable.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Plate.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Resistors.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ArrowFnSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CapacitorsSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ChipsSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/EEPSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/EscherSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/InductorsSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MoreTableSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PlateSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ResistorsSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/sldtestsSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/tsttikz.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/venus.m4
Removed Paths:
-------------
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Capture.JPG
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CctTable.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CctTableMan.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/oax.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/oaxbody.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/AntiqueClock.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/CctTable.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AntiqueClockSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrossbarSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/LyapSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/UNO.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Y14-5SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/tikz.tex
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/CHANGES
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/CHANGES 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/CHANGES 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,5 +1,10 @@
CHANGES
+Version 9.6: Tweaked svg examples; macros lg_bartxt, opamp, beginshade,
+ endshade, relaycoil, inductor, source, rotbox; files lib3D, libgen. New
+ macros DIP, g_fet, Fe_fet, shielded, setkeys_, Deltasymbol, Ysymbol,
+ PtoL, ToPos. New options for resistor, capacitor, inductor,
+ transformer, ArcAngle, variable.
Version 9.5: Distribution cleaned and a non utf-8 character removed.
Version 9.4: Changes to examples and additional SVG examples. New
macros RightAngle, PerpTo, langle, ArcAngle, DCsymbol. Rewritten
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/Copying
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/Copying 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/Copying 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,4 +1,4 @@
-* Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under *
+* Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under *
* the LaTeX Project Public Licence in file Licence.txt. The files of *
* this distribution may be redistributed or modified provided that this *
* copyright notice is included and provided that modifications are clearly *
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/README
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/README 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/README 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,5 +1,5 @@
-* Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under *
+* Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under *
* the LaTeX Project Public Licence in file Licence.txt. The files of *
* this distribution may be redistributed or modified provided that this *
* copyright notice is included and provided that modifications are clearly *
@@ -197,11 +197,11 @@
at https://pypi.org/project/pycirkuit/ and
https://github.com/orestesmas/pycirkuit. For an
introduction, look at the FOSDEM video by Orestes Mas:
- https://ftp.osuosl.org/pub/fosdem/2020/H.2215/pycirkuit.webm
+ https://archive.fosdem.org/2020/schedule/event/pycirkuit/
A python build-automation tool, m4cm, by Peter Jan Randewijk is at
- https://m4cmpy.wordpress.com/
- with very clear instructions about getting started with Circuit_macros at
+ https://m4cmpy.wordpress.com/ and very clear instructions about getting
+ started with Circuit_macros are at
https://m4cmpy.wordpress.com/2020/02/23/getting-started-with-m4-circuit-macros/
Fabrice Salvaire has a blog and a useful bash script at
@@ -231,13 +231,16 @@
LaTeX automation tools are discussed at, for example,
http://tex.stackexchange.com/questions/64/tools-for-automating-document-compilation
+ A Windows batch file for Circuit_macros is found at
+ http://someonehasdonethis.blogspot.ca/2012/12/a-solution-for-drawing-circuit-diagrams.html
+
Mac users:
+ A nice description of a Mac installation is at
+ https://www.hamish.science/2020/06/24/circuitmacros
+
A previewer app for Mac OS X written by Collin J. Delker is available at
http://www.collindelker.com/wp/2013/04/circuit_macros_previewer/
- A Windows batch file for Circuit_macros is found at
- http://someonehasdonethis.blogspot.ca/2012/12/a-solution-for-drawing-circuit-diagrams.html
-
VARIATIONS
Macros such as these inevitably will be modified to suit individual
needs and taste. They continue to evolve in my own library as I use
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/darrow.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/darrow.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/darrow.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,7 +1,7 @@
divert(-1)
darrow.m4 Macros for double lines and arrows
-* Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under *
+* Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under *
* the LaTeX Project Public Licence in file Licence.txt. The files of *
* this distribution may be redistributed or modified provided that this *
* copyright notice is included and provided that modifications are clearly *
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CapacitorsMan.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CapacitorsMan.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CapacitorsMan.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,41 @@
+.PS
+# `CapacitorsMan.m4'
+cct_init
+divert(-1)
+
+divert(0)dnl
+
+movewid = 2 pt__
+hm = 2.05
+vm = 0.28
+{ {capacitor ; move ;"`{\tt capacitor}'" ljust}
+ move right_ hm
+ {capacitor(,C); move ;"`{\tt capacitor(,C)}'" ljust}
+ move right_ hm
+ {capacitor(,C+); move ;"`{\tt capacitor(,C+)}'" ljust}
+}
+ move down vm; right_
+{ {capacitor(,P); move ;"`{\tt capacitor(,P)}'" ljust}
+ move right_ hm
+ {capacitor(,E); move ;"`{\tt capacitor(,E)}'" ljust}
+ move right_ hm
+ {capacitor(,K); move ;"`{\tt capacitor(,K)}'" ljust}
+}
+ move down 0.25; right_
+{ {capacitor(,M); move ;"`{\tt capacitor(,M)}'" ljust}
+ move right_ hm
+ {capacitor(,N); move ;"`{\tt capacitor(,N)}'" ljust}
+ move right_ hm
+ {xtal ; move ;"`{\tt xtal}'" ljust}
+}
+ move down 0.25; right_
+{ {capacitor(,dC); move ;"`{\tt capacitor(,dC)}'" ljust}
+ move right_ hm
+ {capacitor(,dF); move ;"`{\tt capacitor(,dF)}'" ljust}
+ move right_ hm
+ {variable(`capacitor',NN,-30,dimen_/3)
+ move ;`"{\tt variable(}`{\tt capacitor',}"' ljust \
+ `"{\enskip\tt NN,-30,dimen\_/3)}"' ljust
+ }
+}
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CapacitorsMan.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Deleted: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Capture.JPG
===================================================================
(Binary files differ)
Deleted: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CctTable.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CctTable.tex 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CctTable.tex 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,858 +0,0 @@
-\begin{tikzpicture}[scale=2.54]
-% dpic version 2020.03.01 option -g for TikZ and PGF 1.01
-\ifx\dpiclw\undefined\newdimen\dpiclw\fi
-\global\def\dpicdraw{\draw[line width=\dpiclw]}
-\global\def\dpicstop{;}
-\dpiclw=0.8bp
-\dpiclw=0.8bp
-\dpicdraw (0,0)
- --(0.25,0)
- --(0.270833,0.041667)
- --(0.3125,-0.041667)
- --(0.354167,0.041667)
- --(0.395833,-0.041667)
- --(0.4375,0.041667)
- --(0.479167,-0.041667)
- --(0.5,0)
- --(0.75,0)\dpicstop
-\draw (0.777674,0) node[right=-2bp]{{\tt resistor}};
-\dpicdraw (2.05,0)
- --(2.3,0)
- --(2.341667,0.083333)
- --(2.383333,0)
- --(2.425,0.083333)
- --(2.466667,0)
- --(2.508333,0.083333)
- --(2.55,0)
- --(2.55,0)
- --(2.8,0)\dpicstop
-\draw (2.827674,0) node[right=-2bp]{\tt resistor(,{,}Q) };
-\dpicdraw (4.1,0)
- --(4.35,0)\dpicstop
-\dpicdraw (4.6,0)
- --(4.6,0.05)
- --(4.35,0.05)
- --(4.35,-0.05)
- --(4.6,-0.05)
- --(4.6,0)\dpicstop
-\dpicdraw (4.6,0)
- --(4.85,0)\dpicstop
-\draw (4.877674,0) node[right=-2bp]{\shortstack[l]{\tt resistor(,{,}E)\\ {\tt $\equiv$ ebox}}};
-\dpicdraw (0,-0.28)
- --(0.25,-0.28)\dpicstop
-\dpicdraw (0.5,-0.28)
- --(0.5,-0.23)
- --(0.25,-0.23)
- --(0.25,-0.33)
- --(0.5,-0.33)
- --(0.5,-0.28)\dpicstop
-\dpicdraw (0.5,-0.28)
- --(0.75,-0.28)\dpicstop
-\dpicdraw (0.45,-0.23)
- --(0.3,-0.33)\dpicstop
-\draw (0.777674,-0.28) node[right=-2bp]{\tt resistor(,{,}ES) };
-\dpicdraw (2.05,-0.28)
- --(2.3,-0.28)
- --(2.3,-0.221667)
- --(2.35,-0.221667)
- --(2.35,-0.28)
- --(2.4,-0.28)
- --(2.4,-0.221667)
- --(2.45,-0.221667)
- --(2.45,-0.28)
- --(2.5,-0.28)
- --(2.5,-0.221667)
- --(2.55,-0.221667)
- --(2.55,-0.28)
- --(2.55,-0.28)
- --(2.8,-0.28)\dpicstop
-\draw (2.827674,-0.28) node[right=-2bp]{\tt resistor(,{,}H) };
-\dpicdraw (4.1,-0.28)
- --(4.35,-0.28)\dpicstop
-\global\let\dpicshdraw=\dpicdraw\global\def\dpicdraw{}
-\global\def\dpicstop{--}
-\dpicshdraw[fill=white!50!black]
-\dpicdraw (4.6,-0.28)
- --(4.6,-0.23)
- --(4.35,-0.23)
- --(4.35,-0.33)
- --(4.6,-0.33)
- --(4.6,-0.28)\dpicstop
-cycle; \global\let\dpicdraw=\dpicshdraw\global\def\dpicstop{;}
-\dpicdraw (4.6,-0.28)
- --(4.85,-0.28)\dpicstop
-\draw (4.877674,-0.28) node[right=-2bp]{{\tt ebox(,{,},0.5)}};
-\dpicdraw (0,-0.56)
- --(0.25,-0.56)\dpicstop
-\global\let\dpicshdraw=\dpicdraw\global\def\dpicdraw{}
-\global\def\dpicstop{--}
-\dpicshdraw[fill=white!0!black]
-\dpicdraw (0.25,-0.56)
- --(0.25,-0.6225)
- --(0.375,-0.56)
- --(0.25,-0.56)\dpicstop
-cycle; \global\let\dpicdraw=\dpicshdraw\global\def\dpicstop{;}
-\global\let\dpicshdraw=\dpicdraw\global\def\dpicdraw{}
-\global\def\dpicstop{--}
-\dpicshdraw[fill=white!0!black]
-\dpicdraw (0.5,-0.56)
- --(0.5,-0.4975)
- --(0.375,-0.56)
- --(0.5,-0.56)\dpicstop
-cycle; \global\let\dpicdraw=\dpicshdraw\global\def\dpicstop{;}
-\dpicdraw (0.5,-0.56)
- --(0.75,-0.56)\dpicstop
-\draw (0.777674,-0.56) node[right=-2bp]{{\tt resistor(,{,}V)}};
-\dpicdraw (2.05,-0.61)
- --(2.375,-0.61)
- --(2.375,-0.41)
- --(2.425,-0.36)
- --(2.475,-0.41)
- --(2.475,-0.61)
- --(2.8,-0.61)\dpicstop
-\dpicdraw[fill=black](2.425,-0.36) circle (0.007874in)\dpicstop
-\draw (2.827674,-0.61) node[right=-2bp]{{\tt thermocouple}};
-\dpicdraw (4.1,-0.56)
- --(4.225,-0.56)\dpicstop
-\dpicdraw (4.725,-0.56)
- --(4.725,-0.41)
- --(4.225,-0.41)
- --(4.225,-0.71)
- --(4.725,-0.71)
- --(4.725,-0.56)\dpicstop
-\dpicdraw (4.725,-0.56)
- --(4.85,-0.56)\dpicstop
-\draw (4.877674,-0.56) node[right=-2bp]{{\tt ebox(,0.5,0.3)}};
-\dpicdraw (0,-0.84)
- --(0.25,-0.84)\dpicstop
-\dpicdraw (0.25,-0.84)
- --(0.25,-0.845556)\dpicstop
-\dpicdraw (0.25,-0.84)
- ..controls (0.25,-0.822741) and (0.263991,-0.80875)
- ..(0.28125,-0.80875)
- ..controls (0.298509,-0.80875) and (0.3125,-0.822741)
- ..(0.3125,-0.84)\dpicstop
-\dpicdraw (0.3125,-0.84)
- --(0.3125,-0.845556)\dpicstop
-\dpicdraw (0.3125,-0.84)
- ..controls (0.3125,-0.822741) and (0.326491,-0.80875)
- ..(0.34375,-0.80875)
- ..controls (0.361009,-0.80875) and (0.375,-0.822741)
- ..(0.375,-0.84)\dpicstop
-\dpicdraw (0.375,-0.84)
- --(0.375,-0.845556)\dpicstop
-\dpicdraw (0.375,-0.84)
- ..controls (0.375,-0.822741) and (0.388991,-0.80875)
- ..(0.40625,-0.80875)
- ..controls (0.423509,-0.80875) and (0.4375,-0.822741)
- ..(0.4375,-0.84)\dpicstop
-\dpicdraw (0.4375,-0.84)
- --(0.4375,-0.845556)\dpicstop
-\dpicdraw (0.4375,-0.84)
- ..controls (0.4375,-0.822741) and (0.451491,-0.80875)
- ..(0.46875,-0.80875)
- ..controls (0.486009,-0.80875) and (0.5,-0.822741)
- ..(0.5,-0.84)\dpicstop
-\dpicdraw (0.5,-0.84)
- --(0.5,-0.845556)\dpicstop
-\dpicdraw (0.5,-0.84)
- --(0.75,-0.84)\dpicstop
-\draw (0.777674,-0.84) node[right=-2bp]{{\tt inductor}};
-\dpicdraw (2.05,-0.84)
- --(2.283266,-0.84)\dpicstop
-\dpicdraw[line width=0.4bp](2.283266,-0.84) circle (0.00109in)\dpicstop
-\dpicdraw (2.283266,-0.84)
- ..controls (2.265746,-0.802428) and (2.298931,-0.761082)
- ..(2.339404,-0.770054)
- ..controls (2.379877,-0.779027) and (2.392478,-0.830524)
- ..(2.360721,-0.857171)\dpicstop
-\dpicdraw[line width=0.4bp](2.360721,-0.857171) circle (0.00109in)\dpicstop
-\dpicdraw (2.360721,-0.857171)
- ..controls (2.324962,-0.827166) and (2.34618,-0.768869)
- ..(2.392861,-0.768869)
- ..controls (2.439541,-0.768869) and (2.460759,-0.827166)
- ..(2.425,-0.857171)\dpicstop
-\dpicdraw[line width=0.4bp](2.425,-0.857171) circle (0.00109in)\dpicstop
-\dpicdraw (2.425,-0.857171)
- ..controls (2.389241,-0.827166) and (2.410459,-0.768869)
- ..(2.457139,-0.768869)
- ..controls (2.50382,-0.768869) and (2.525038,-0.827166)
- ..(2.489279,-0.857171)\dpicstop
-\dpicdraw[line width=0.4bp](2.489279,-0.857171) circle (0.00109in)\dpicstop
-\dpicdraw (2.489279,-0.857171)
- ..controls (2.457522,-0.830524) and (2.470123,-0.779027)
- ..(2.510596,-0.770054)
- ..controls (2.551069,-0.761082) and (2.584254,-0.802428)
- ..(2.566734,-0.84)\dpicstop
-\dpicdraw[line width=0.4bp](2.566734,-0.84) circle (0.00109in)\dpicstop
-\dpicdraw (2.566734,-0.84)
- --(2.8,-0.84)\dpicstop
-\draw (2.827674,-0.84) node[right=-2bp]{{\tt inductor(,W)}};
-\dpicdraw (4.1,-0.84)
- --(4.35,-0.84)\dpicstop
-\dpicdraw[line width=0.4bp](4.35,-0.84) circle (0.00109in)\dpicstop
-\dpicdraw (4.35,-0.84)
- ..controls (4.35,-0.805625) and (4.364625,-0.7775)
- ..(4.3825,-0.7775)
- ..controls (4.400375,-0.7775) and (4.415,-0.797188)
- ..(4.415,-0.82125)
- ..controls (4.415,-0.845313) and (4.40825,-0.865)
- ..(4.4,-0.865)
- ..controls (4.39175,-0.865) and (4.385,-0.845313)
- ..(4.385,-0.82125)
- ..controls (4.385,-0.797188) and (4.403,-0.7775)
- ..(4.425,-0.7775)
- ..controls (4.447,-0.7775) and (4.465,-0.797188)
- ..(4.465,-0.82125)
- ..controls (4.465,-0.845313) and (4.45825,-0.865)
- ..(4.45,-0.865)
- ..controls (4.44175,-0.865) and (4.435,-0.845313)
- ..(4.435,-0.82125)
- ..controls (4.435,-0.797188) and (4.453,-0.7775)
- ..(4.475,-0.7775)
- ..controls (4.497,-0.7775) and (4.515,-0.797188)
- ..(4.515,-0.82125)
- ..controls (4.515,-0.845313) and (4.50825,-0.865)
- ..(4.5,-0.865)
- ..controls (4.49175,-0.865) and (4.485,-0.845313)
- ..(4.485,-0.82125)
- ..controls (4.485,-0.797188) and (4.503,-0.7775)
- ..(4.525,-0.7775)
- ..controls (4.547,-0.7775) and (4.565,-0.797188)
- ..(4.565,-0.82125)
- ..controls (4.565,-0.845313) and (4.55825,-0.865)
- ..(4.55,-0.865)
- ..controls (4.54175,-0.865) and (4.535,-0.845313)
- ..(4.535,-0.82125)
- ..controls (4.535,-0.797188) and (4.549625,-0.7775)
- ..(4.5675,-0.7775)
- ..controls (4.585375,-0.7775) and (4.6,-0.805625)
- ..(4.6,-0.84)\dpicstop
-\dpicdraw[line width=0.4bp](4.6,-0.84) circle (0.00109in)\dpicstop
-\dpicdraw (4.6,-0.84)
- --(4.85,-0.84)\dpicstop
-\draw (4.877674,-0.84) node[right=-2bp]{{\tt inductor(,L)}};
-\dpicdraw (0,-1.12)
- --(0.25,-1.12)\dpicstop
-\dpicdraw (0.25,-1.12)
- --(0.25,-1.125556)\dpicstop
-\dpicdraw (0.25,-1.12)
- ..controls (0.25,-1.102741) and (0.263991,-1.08875)
- ..(0.28125,-1.08875)
- ..controls (0.298509,-1.08875) and (0.3125,-1.102741)
- ..(0.3125,-1.12)\dpicstop
-\dpicdraw (0.3125,-1.12)
- --(0.3125,-1.125556)\dpicstop
-\dpicdraw (0.3125,-1.12)
- ..controls (0.3125,-1.102741) and (0.326491,-1.08875)
- ..(0.34375,-1.08875)
- ..controls (0.361009,-1.08875) and (0.375,-1.102741)
- ..(0.375,-1.12)\dpicstop
-\dpicdraw (0.375,-1.12)
- --(0.375,-1.125556)\dpicstop
-\dpicdraw (0.375,-1.12)
- ..controls (0.375,-1.102741) and (0.388991,-1.08875)
- ..(0.40625,-1.08875)
- ..controls (0.423509,-1.08875) and (0.4375,-1.102741)
- ..(0.4375,-1.12)\dpicstop
-\dpicdraw (0.4375,-1.12)
- --(0.4375,-1.125556)\dpicstop
-\dpicdraw (0.4375,-1.12)
- ..controls (0.4375,-1.102741) and (0.451491,-1.08875)
- ..(0.46875,-1.08875)
- ..controls (0.486009,-1.08875) and (0.5,-1.102741)
- ..(0.5,-1.12)\dpicstop
-\dpicdraw (0.5,-1.12)
- --(0.5,-1.125556)\dpicstop
-\dpicdraw (0.5,-1.12)
- --(0.75,-1.12)\dpicstop
-\dpicdraw (0.25,-1.067917)
- --(0.5,-1.067917)\dpicstop
-\dpicdraw (0.25,-1.036667)
- --(0.5,-1.036667)\dpicstop
-\draw (0.777674,-1.12) node[right=-2bp]{{\tt inductor(,{,},M)}};
-\dpicdraw (2.05,-1.12)
- --(2.218988,-1.12)\dpicstop
-\dpicdraw[line width=0.4bp](2.218988,-1.12) circle (0.00109in)\dpicstop
-\dpicdraw (2.218988,-1.12)
- ..controls (2.201468,-1.082428) and (2.234652,-1.041082)
- ..(2.275125,-1.050054)
- ..controls (2.315598,-1.059027) and (2.3282,-1.110524)
- ..(2.296442,-1.137171)\dpicstop
-\dpicdraw[line width=0.4bp](2.296442,-1.137171) circle (0.00109in)\dpicstop
-\dpicdraw (2.296442,-1.137171)
- ..controls (2.260683,-1.107166) and (2.281901,-1.048869)
- ..(2.328582,-1.048869)
- ..controls (2.375262,-1.048869) and (2.396481,-1.107166)
- ..(2.360721,-1.137171)\dpicstop
-\dpicdraw[line width=0.4bp](2.360721,-1.137171) circle (0.00109in)\dpicstop
-\dpicdraw (2.360721,-1.137171)
- ..controls (2.324962,-1.107166) and (2.34618,-1.048869)
- ..(2.392861,-1.048869)
- ..controls (2.439541,-1.048869) and (2.460759,-1.107166)
- ..(2.425,-1.137171)\dpicstop
-\dpicdraw[line width=0.4bp](2.425,-1.137171) circle (0.00109in)\dpicstop
-\dpicdraw (2.425,-1.137171)
- ..controls (2.389241,-1.107166) and (2.410459,-1.048869)
- ..(2.457139,-1.048869)
- ..controls (2.50382,-1.048869) and (2.525038,-1.107166)
- ..(2.489279,-1.137171)\dpicstop
-\dpicdraw[line width=0.4bp](2.489279,-1.137171) circle (0.00109in)\dpicstop
-\dpicdraw (2.489279,-1.137171)
- ..controls (2.453519,-1.107166) and (2.474738,-1.048869)
- ..(2.521418,-1.048869)
- ..controls (2.568099,-1.048869) and (2.589317,-1.107166)
- ..(2.553558,-1.137171)\dpicstop
-\dpicdraw[line width=0.4bp](2.553558,-1.137171) circle (0.00109in)\dpicstop
-\dpicdraw (2.553558,-1.137171)
- ..controls (2.5218,-1.110524) and (2.534402,-1.059027)
- ..(2.574875,-1.050054)
- ..controls (2.615348,-1.041082) and (2.648532,-1.082428)
- ..(2.631012,-1.12)\dpicstop
-\dpicdraw[line width=0.4bp](2.631012,-1.12) circle (0.00109in)\dpicstop
-\dpicdraw (2.631012,-1.12)
- --(2.8,-1.12)\dpicstop
-\dpicdraw[dash pattern=on 0.032415in off 0.032415in](2.214303,-1.028036)
- --(2.635697,-1.028036)\dpicstop
-\dpicdraw[dash pattern=on 0.032415in off 0.032415in](2.214303,-0.996786)
- --(2.635697,-0.996786)\dpicstop
-\draw (2.827674,-1.12) node[right=-2bp]{{\tt inductor(,W,6,P)}};
-\dpicdraw (4.3,-1.12)
- --(4.51875,-1.12)\dpicstop
-\dpicdraw (4.553969,-1.08875)
- --(4.51875,-1.08875)
- --(4.51875,-1.15125)
- --(4.553969,-1.15125)\dpicstop
-\dpicdraw (4.675,-1.12) circle (0.049213in)\dpicstop
-\draw (4.675,-1.12) node{G};
-\dpicdraw (4.796031,-1.08875)
- --(4.83125,-1.08875)
- --(4.83125,-1.15125)
- --(4.796031,-1.15125)\dpicstop
-\dpicdraw (4.83125,-1.12)
- --(5.05,-1.12)\dpicstop
-\draw (5.077674,-1.12) node[right=-2bp]{{\tt ttmotor(,G)}};
-\dpicdraw (0,-1.4)
- --(0.35,-1.4)\dpicstop
-\dpicdraw (0.35,-1.483333)
- --(0.35,-1.316667)\dpicstop
-\dpicdraw (0.4,-1.483333)
- --(0.4,-1.316667)\dpicstop
-\dpicdraw (0.4,-1.4)
- --(0.75,-1.4)\dpicstop
-\draw (0.777674,-1.4) node[right=-2bp]{{\tt capacitor}};
-\dpicdraw (2.05,-1.4)
- --(2.4,-1.4)\dpicstop
-\dpicdraw (2.4,-1.4625)
- --(2.4,-1.3375)\dpicstop
-\dpicdraw (2.45,-1.4625)
- ..controls (2.427671,-1.423825) and (2.427671,-1.376175)
- ..(2.45,-1.3375)\dpicstop
-\dpicdraw (2.433253,-1.4)
- --(2.8,-1.4)\dpicstop
-\draw (2.827674,-1.4) node[right=-2bp]{{\tt capacitor(,C)}};
-\dpicdraw (4.1,-1.4)
- --(4.45,-1.4)\dpicstop
-\dpicdraw (4.45,-1.4625)
- --(4.45,-1.3375)\dpicstop
-\dpicdraw (4.5,-1.4625)
- ..controls (4.477671,-1.423825) and (4.477671,-1.376175)
- ..(4.5,-1.3375)\dpicstop
-\dpicdraw (4.483253,-1.4)
- --(4.85,-1.4)\dpicstop
-\dpicdraw[line width=0.5bp](4.429167,-1.441667)
- --(4.3875,-1.441667)\dpicstop
-\dpicdraw[line width=0.5bp](4.408333,-1.420833)
- --(4.408333,-1.4625)\dpicstop
-\draw (4.877674,-1.4) node[right=-2bp]{{\tt capacitor(,C+)}};
-\dpicdraw (0,-1.68)
- --(0.35,-1.68)\dpicstop
-\dpicdraw (0.4,-1.7425)
- --(0.35,-1.7425)
- --(0.35,-1.6175)
- --(0.4,-1.6175)\dpicstop
-\dpicdraw (0.383333,-1.726875)
- --(0.383333,-1.633125)\dpicstop
-\dpicdraw (0.383333,-1.68)
- --(0.75,-1.68)\dpicstop
-\draw (0.777674,-1.68) node[right=-2bp]{{\tt capacitor(,P)}};
-\dpicdraw (2.05,-1.68)
- --(2.375,-1.68)\dpicstop
-\dpiclw=0.4bp
-\dpicdraw (2.40625,-1.68)
- --(2.40625,-1.63)
- --(2.375,-1.63)
- --(2.375,-1.73)
- --(2.40625,-1.73)
- --(2.40625,-1.68)\dpicstop
-\global\let\dpicshdraw=\dpicdraw\global\def\dpicdraw{}
-\global\def\dpicstop{--}
-\dpicshdraw[fill=white!0!black]
-\dpicdraw (2.44375,-1.68)
- --(2.44375,-1.63)
- --(2.475,-1.63)
- --(2.475,-1.73)
- --(2.44375,-1.73)
- --(2.44375,-1.68)\dpicstop
-cycle; \global\let\dpicdraw=\dpicshdraw\global\def\dpicstop{;}
-\dpiclw=0.8bp
-\dpicdraw (2.475,-1.68)
- --(2.8,-1.68)\dpicstop
-\draw (2.827674,-1.68) node[right=-2bp]{{\tt capacitor(,E)}};
-\dpicdraw (4.1,-1.68)
- --(4.425,-1.68)\dpicstop
-\global\let\dpicshdraw=\dpicdraw\global\def\dpicdraw{}
-\global\def\dpicstop{--}
-\dpicshdraw[fill=white!0!black]
-\dpicdraw (4.45625,-1.68)
- --(4.45625,-1.63)
- --(4.425,-1.63)
- --(4.425,-1.73)
- --(4.45625,-1.73)
- --(4.45625,-1.68)\dpicstop
-cycle; \global\let\dpicdraw=\dpicshdraw\global\def\dpicstop{;}
-\global\let\dpicshdraw=\dpicdraw\global\def\dpicdraw{}
-\global\def\dpicstop{--}
-\dpicshdraw[fill=white!0!black]
-\dpicdraw (4.49375,-1.68)
- --(4.49375,-1.63)
- --(4.525,-1.63)
- --(4.525,-1.73)
- --(4.49375,-1.73)
- --(4.49375,-1.68)\dpicstop
-cycle; \global\let\dpicdraw=\dpicshdraw\global\def\dpicstop{;}
-\dpicdraw (4.525,-1.68)
- --(4.85,-1.68)\dpicstop
-\draw (4.877674,-1.68) node[right=-2bp]{{\tt capacitor(,K)}};
-\dpicdraw (0,-1.93)
- --(0.325,-1.93)\dpicstop
-\dpiclw=0.4bp
-\dpicdraw (0.35625,-1.93)
- --(0.35625,-1.88)
- --(0.325,-1.88)
- --(0.325,-1.98)
- --(0.35625,-1.98)
- --(0.35625,-1.93)\dpicstop
-\dpicdraw (0.39375,-1.93)
- --(0.39375,-1.88)
- --(0.425,-1.88)
- --(0.425,-1.98)
- --(0.39375,-1.98)
- --(0.39375,-1.93)\dpicstop
-\dpiclw=0.8bp
-\dpicdraw (0.425,-1.93)
- --(0.75,-1.93)\dpicstop
-\draw (0.777674,-1.93) node[right=-2bp]{{\tt capacitor(,M)}};
-\dpicdraw (2.05,-1.93)
- --(2.391667,-1.93)\dpicstop
-\dpicdraw (2.422917,-1.93)
- --(2.422917,-1.88)
- --(2.391667,-1.88)
- --(2.391667,-1.98)
- --(2.422917,-1.98)
- --(2.422917,-1.93)\dpicstop
-\dpicdraw (2.458333,-1.88)
- --(2.458333,-1.98)\dpicstop
-\dpicdraw (2.458333,-1.93)
- --(2.8,-1.93)\dpicstop
-\draw (2.827674,-1.93) node[right=-2bp]{{\tt capacitor(,N)}};
-\dpicdraw (4.1,-1.93)
- --(4.433333,-1.93)\dpicstop
-\dpicdraw (4.433333,-1.971667)
- --(4.433333,-1.888333)\dpicstop
-\dpicdraw (4.454167,-1.93)
- --(4.454167,-1.8675)
- --(4.495833,-1.8675)
- --(4.495833,-1.9925)
- --(4.454167,-1.9925)
- --(4.454167,-1.93)\dpicstop
-\dpicdraw (4.516667,-1.971667)
- --(4.516667,-1.888333)\dpicstop
-\dpicdraw (4.516667,-1.93)
- --(4.85,-1.93)\dpicstop
-\draw (4.877674,-1.93) node[right=-2bp]{{\tt xtal}};
-\dpicdraw (0,-2.18)
- --(0.25,-2.18)\dpicstop
-\dpicdraw (0.5,-2.18)
- --(0.5,-2.13)
- --(0.25,-2.13)
- --(0.25,-2.23)
- --(0.5,-2.23)
- --(0.5,-2.18)\dpicstop
-\dpicdraw (0.25,-2.18)
- --(0.29,-2.18)
- --(0.29,-2.155)
- --(0.33,-2.155)
- --(0.33,-2.205)
- --(0.37,-2.205)
- --(0.37,-2.155)
- --(0.41,-2.155)
- --(0.41,-2.18)
- --(0.45,-2.18)\dpicstop
-\global\let\dpicshdraw=\dpicdraw\global\def\dpicdraw{}
-\global\def\dpicstop{--}
-\dpicshdraw[fill=white!0!black]
-\dpicdraw (0.5125,-2.18)
- --(0.5125,-2.13)
- --(0.45,-2.13)
- --(0.45,-2.23)
- --(0.5125,-2.23)
- --(0.5125,-2.18)\dpicstop
-cycle; \global\let\dpicdraw=\dpicshdraw\global\def\dpicstop{;}
-\dpicdraw (0.5125,-2.18)
- --(0.7625,-2.18)\dpicstop
-\draw (0.777674,-2.18) node[right=-2bp]{{\tt memristor}};
-\dpicdraw (2.05,-2.18)
- --(2.3,-2.18)\dpicstop
-\dpicdraw (2.55,-2.18)
- --(2.55,-2.13)
- --(2.3,-2.13)
- --(2.3,-2.23)
- --(2.55,-2.23)
- --(2.55,-2.18)\dpicstop
-\dpicdraw (2.3625,-2.13)
- --(2.3625,-2.23)\dpicstop
-\dpicdraw (2.425,-2.13)
- --(2.425,-2.23)\dpicstop
-\dpicdraw (2.4875,-2.13)
- --(2.4875,-2.23)\dpicstop
-\dpicdraw (2.55,-2.18)
- --(2.8,-2.18)\dpicstop
-\draw (2.827674,-2.18) node[right=-2bp]{{\tt heater}};
-\dpicdraw (4.6625,-2.18)
- --(4.85,-2.18)\dpicstop
-\dpicdraw (4.1,-2.18)
- --(4.308333,-2.18)\dpicstop
-\dpicdraw[line width=0.4bp](4.308333,-2.18) circle (0.00109in)\dpicstop
-\dpicdraw (4.308333,-2.221667)
- --(4.641667,-2.221667)\dpicstop
-\dpicdraw (4.641667,-2.221667)
- ..controls (4.653173,-2.221667) and (4.6625,-2.203012)
- ..(4.6625,-2.18)
- ..controls (4.6625,-2.156988) and (4.653173,-2.138333)
- ..(4.641667,-2.138333)\dpicstop
-\dpicdraw (4.641667,-2.138333)
- --(4.308333,-2.138333)\dpicstop
-\dpicdraw (4.308333,-2.138333)
- ..controls (4.296827,-2.138333) and (4.2875,-2.156988)
- ..(4.2875,-2.18)
- ..controls (4.2875,-2.203012) and (4.296827,-2.221667)
- ..(4.308333,-2.221667)
- ..controls (4.31984,-2.221667) and (4.329167,-2.203012)
- ..(4.329167,-2.18)
- ..controls (4.329167,-2.156988) and (4.31984,-2.138333)
- ..(4.308333,-2.138333)\dpicstop
-\draw (4.877674,-2.18) node[right=-2bp]{{\tt tline}};
-\dpicdraw[fill=black](0,-2.38) circle (0.007874in)\dpicstop
-\dpicdraw[fill=black](0.75,-2.38) circle (0.007874in)\dpicstop
-\draw (0.777674,-2.38) node[right=-2bp]{{\tt gap}};
-\dpicdraw[fill=black](2.05,-2.43) circle (0.007874in)\dpicstop
-\dpicdraw[fill=black](2.8,-2.43) circle (0.007874in)\dpicstop
-\filldraw[line width=0bp](2.64,-2.455)
- --(2.74,-2.43)
- --(2.64,-2.405) --cycle\dpicstop
-\dpicdraw (2.11,-2.43)
- --(2.717094,-2.43)\dpicstop
-\draw (2.827674,-2.43) node[right=-2bp]{{\tt gap(,{,}A)}};
-\dpicdraw (4.1,-2.43)
- --(4.85,-2.43)\dpicstop
-\filldraw[line width=0bp](4.425,-2.455)
- --(4.525,-2.43)
- --(4.425,-2.405) --cycle\dpicstop
-\dpicdraw (4.425,-2.43)
- --(4.502094,-2.43)\dpicstop
-\draw (4.877674,-2.43) node[right=-2bp]{{\tt arrowline}};
-\dpicdraw (0,-2.68)
- --(0.325,-2.68)
- --(0.325,-2.52375)\dpicstop
-\dpicdraw (0.325,-2.52375)
- ..controls (0.325,-2.489264) and (0.339567,-2.46125)
- ..(0.3575,-2.46125)
- ..controls (0.375433,-2.46125) and (0.39,-2.480859)
- ..(0.39,-2.505)
- ..controls (0.39,-2.529141) and (0.383277,-2.54875)
- ..(0.375,-2.54875)
- ..controls (0.366723,-2.54875) and (0.36,-2.529141)
- ..(0.36,-2.505)
- ..controls (0.36,-2.480859) and (0.374567,-2.46125)
- ..(0.3925,-2.46125)
- ..controls (0.410433,-2.46125) and (0.425,-2.489264)
- ..(0.425,-2.52375)\dpicstop
-\dpicdraw (0.425,-2.52375)
- --(0.425,-2.68)
- --(0.75,-2.68)\dpicstop
-\dpicdraw (0.375,-2.52375) circle (0.03937in)\dpicstop
-\draw (0.777674,-2.68) node[right=-2bp]{{\tt lamp}};
-\dpicdraw (2.05,-2.68)
- --(2.225,-2.68)\dpicstop
-\dpicdraw (2.625,-2.68)
- ..controls (2.624554,-2.672786) and (2.623417,-2.664086)
- ..(2.622464,-2.660589)
- ..controls (2.621511,-2.657091) and (2.619497,-2.651585)
- ..(2.617969,-2.648304)
- ..controls (2.616442,-2.645022) and (2.613514,-2.639948)
- ..(2.611437,-2.636982)
- ..controls (2.609359,-2.634016) and (2.605593,-2.629528)
- ..(2.603033,-2.626967)
- ..controls (2.600472,-2.624407) and (2.595984,-2.620641)
- ..(2.593018,-2.618563)
- ..controls (2.590052,-2.616486) and (2.584978,-2.613558)
- ..(2.581696,-2.612031)
- ..controls (2.578415,-2.610503) and (2.572909,-2.608489)
- ..(2.569411,-2.607536)
- ..controls (2.565914,-2.606583) and (2.560143,-2.605628)
- ..(2.556537,-2.605404)
- ..controls (2.55293,-2.605181) and (2.493973,-2.605)
- ..(2.425,-2.605)
- ..controls (2.356027,-2.605) and (2.29707,-2.605181)
- ..(2.293463,-2.605404)
- ..controls (2.289857,-2.605628) and (2.284086,-2.606583)
- ..(2.280589,-2.607536)
- ..controls (2.277091,-2.608489) and (2.271585,-2.610503)
- ..(2.268304,-2.612031)
- ..controls (2.265022,-2.613558) and (2.259948,-2.616486)
- ..(2.256982,-2.618563)
- ..controls (2.254016,-2.620641) and (2.249528,-2.624407)
- ..(2.246967,-2.626967)
- ..controls (2.244407,-2.629528) and (2.240641,-2.634016)
- ..(2.238563,-2.636982)
- ..controls (2.236486,-2.639948) and (2.233558,-2.645022)
- ..(2.232031,-2.648304)
- ..controls (2.230503,-2.651585) and (2.228489,-2.657091)
- ..(2.227536,-2.660589)
- ..controls (2.226583,-2.664086) and (2.225628,-2.669857)
- ..(2.225404,-2.673463)
- ..controls (2.225181,-2.67707) and (2.225,-2.68)
- ..(2.225,-2.68)
- ..controls (2.225,-2.68) and (2.225181,-2.68293)
- ..(2.225404,-2.686537)
- ..controls (2.225628,-2.690143) and (2.226583,-2.695914)
- ..(2.227536,-2.699411)
- ..controls (2.228489,-2.702909) and (2.230503,-2.708415)
- ..(2.232031,-2.711696)
- ..controls (2.233558,-2.714978) and (2.236486,-2.720052)
- ..(2.238563,-2.723018)
- ..controls (2.240641,-2.725984) and (2.244407,-2.730472)
- ..(2.246967,-2.733033)
- ..controls (2.249528,-2.735593) and (2.254016,-2.739359)
- ..(2.256982,-2.741437)
- ..controls (2.259948,-2.743514) and (2.265022,-2.746442)
- ..(2.268304,-2.747969)
- ..controls (2.271585,-2.749497) and (2.277091,-2.751511)
- ..(2.280589,-2.752464)
- ..controls (2.284086,-2.753417) and (2.289857,-2.754372)
- ..(2.293463,-2.754596)
- ..controls (2.29707,-2.754819) and (2.356027,-2.755)
- ..(2.425,-2.755)
- ..controls (2.493973,-2.755) and (2.55293,-2.754819)
- ..(2.556537,-2.754596)
- ..controls (2.560143,-2.754372) and (2.565914,-2.753417)
- ..(2.569411,-2.752464)
- ..controls (2.572909,-2.751511) and (2.578415,-2.749497)
- ..(2.581696,-2.747969)
- ..controls (2.584978,-2.746442) and (2.590052,-2.743514)
- ..(2.593018,-2.741437)
- ..controls (2.595984,-2.739359) and (2.600472,-2.735593)
- ..(2.603033,-2.733033)
- ..controls (2.605593,-2.730472) and (2.609359,-2.725984)
- ..(2.611437,-2.723018)
- ..controls (2.613514,-2.720052) and (2.616442,-2.714978)
- ..(2.617969,-2.711696)
- ..controls (2.619497,-2.708415) and (2.621511,-2.702909)
- ..(2.622464,-2.699411)
- ..controls (2.623417,-2.695914) and (2.624372,-2.690143)
- ..(2.624596,-2.686537)
- ..controls (2.624819,-2.68293) and (2.625,-2.68)
- ..(2.625,-2.68)\dpicstop
-\dpicdraw (2.225,-2.68)
- --(2.305,-2.68)
- --(2.465,-2.63)\dpicstop
-\dpicdraw (2.425,-2.68)
- --(2.625,-2.68)\dpicstop
-\dpicdraw (2.625,-2.68)
- --(2.8,-2.68)\dpicstop
-\draw (2.827674,-2.68) node[right=-2bp]{{\tt reed}};
-\dpicdraw (4.1,-2.68)
- --(4.275,-2.68)\dpicstop
-\fill[fill=white!90!black,line width=0bp](4.675,-2.68)
- ..controls (4.674554,-2.672786) and (4.673417,-2.664086)
- ..(4.672464,-2.660589)
- ..controls (4.671511,-2.657091) and (4.669497,-2.651585)
- ..(4.667969,-2.648304)
- ..controls (4.666442,-2.645022) and (4.663514,-2.639948)
- ..(4.661437,-2.636982)
- ..controls (4.659359,-2.634016) and (4.655593,-2.629528)
- ..(4.653033,-2.626967)
- ..controls (4.650472,-2.624407) and (4.645984,-2.620641)
- ..(4.643018,-2.618563)
- ..controls (4.640052,-2.616486) and (4.634978,-2.613558)
- ..(4.631696,-2.612031)
- ..controls (4.628415,-2.610503) and (4.622909,-2.608489)
- ..(4.619411,-2.607536)
- ..controls (4.615914,-2.606583) and (4.610143,-2.605628)
- ..(4.606537,-2.605404)
- ..controls (4.60293,-2.605181) and (4.543973,-2.605)
- ..(4.475,-2.605)
- ..controls (4.406027,-2.605) and (4.34707,-2.605181)
- ..(4.343463,-2.605404)
- ..controls (4.339857,-2.605628) and (4.334086,-2.606583)
- ..(4.330589,-2.607536)
- ..controls (4.327091,-2.608489) and (4.321585,-2.610503)
- ..(4.318304,-2.612031)
- ..controls (4.315022,-2.613558) and (4.309948,-2.616486)
- ..(4.306982,-2.618563)
- ..controls (4.304016,-2.620641) and (4.299528,-2.624407)
- ..(4.296967,-2.626967)
- ..controls (4.294407,-2.629528) and (4.290641,-2.634016)
- ..(4.288563,-2.636982)
- ..controls (4.286486,-2.639948) and (4.283558,-2.645022)
- ..(4.282031,-2.648304)
- ..controls (4.280503,-2.651585) and (4.278489,-2.657091)
- ..(4.277536,-2.660589)
- ..controls (4.276583,-2.664086) and (4.275628,-2.669857)
- ..(4.275404,-2.673463)
- ..controls (4.275181,-2.67707) and (4.275,-2.68)
- ..(4.275,-2.68)
- ..controls (4.275,-2.68) and (4.275181,-2.68293)
- ..(4.275404,-2.686537)
- ..controls (4.275628,-2.690143) and (4.276583,-2.695914)
- ..(4.277536,-2.699411)
- ..controls (4.278489,-2.702909) and (4.280503,-2.708415)
- ..(4.282031,-2.711696)
- ..controls (4.283558,-2.714978) and (4.286486,-2.720052)
- ..(4.288563,-2.723018)
- ..controls (4.290641,-2.725984) and (4.294407,-2.730472)
- ..(4.296967,-2.733033)
- ..controls (4.299528,-2.735593) and (4.304016,-2.739359)
- ..(4.306982,-2.741437)
- ..controls (4.309948,-2.743514) and (4.315022,-2.746442)
- ..(4.318304,-2.747969)
- ..controls (4.321585,-2.749497) and (4.327091,-2.751511)
- ..(4.330589,-2.752464)
- ..controls (4.334086,-2.753417) and (4.339857,-2.754372)
- ..(4.343463,-2.754596)
- ..controls (4.34707,-2.754819) and (4.406027,-2.755)
- ..(4.475,-2.755)
- ..controls (4.543973,-2.755) and (4.60293,-2.754819)
- ..(4.606537,-2.754596)
- ..controls (4.610143,-2.754372) and (4.615914,-2.753417)
- ..(4.619411,-2.752464)
- ..controls (4.622909,-2.751511) and (4.628415,-2.749497)
- ..(4.631696,-2.747969)
- ..controls (4.634978,-2.746442) and (4.640052,-2.743514)
- ..(4.643018,-2.741437)
- ..controls (4.645984,-2.739359) and (4.650472,-2.735593)
- ..(4.653033,-2.733033)
- ..controls (4.655593,-2.730472) and (4.659359,-2.725984)
- ..(4.661437,-2.723018)
- ..controls (4.663514,-2.720052) and (4.666442,-2.714978)
- ..(4.667969,-2.711696)
- ..controls (4.669497,-2.708415) and (4.671511,-2.702909)
- ..(4.672464,-2.699411)
- ..controls (4.673417,-2.695914) and (4.674372,-2.690143)
- ..(4.674596,-2.686537)
- ..controls (4.674819,-2.68293) and (4.675,-2.68)
- ..(4.675,-2.68) --cycle\dpicstop
-\dpicdraw (4.675,-2.68)
- ..controls (4.674554,-2.672786) and (4.673417,-2.664086)
- ..(4.672464,-2.660589)
- ..controls (4.671511,-2.657091) and (4.669497,-2.651585)
- ..(4.667969,-2.648304)
- ..controls (4.666442,-2.645022) and (4.663514,-2.639948)
- ..(4.661437,-2.636982)
- ..controls (4.659359,-2.634016) and (4.655593,-2.629528)
- ..(4.653033,-2.626967)
- ..controls (4.650472,-2.624407) and (4.645984,-2.620641)
- ..(4.643018,-2.618563)
- ..controls (4.640052,-2.616486) and (4.634978,-2.613558)
- ..(4.631696,-2.612031)
- ..controls (4.628415,-2.610503) and (4.622909,-2.608489)
- ..(4.619411,-2.607536)
- ..controls (4.615914,-2.606583) and (4.610143,-2.605628)
- ..(4.606537,-2.605404)
- ..controls (4.60293,-2.605181) and (4.543973,-2.605)
- ..(4.475,-2.605)
- ..controls (4.406027,-2.605) and (4.34707,-2.605181)
- ..(4.343463,-2.605404)
- ..controls (4.339857,-2.605628) and (4.334086,-2.606583)
- ..(4.330589,-2.607536)
- ..controls (4.327091,-2.608489) and (4.321585,-2.610503)
- ..(4.318304,-2.612031)
- ..controls (4.315022,-2.613558) and (4.309948,-2.616486)
- ..(4.306982,-2.618563)
- ..controls (4.304016,-2.620641) and (4.299528,-2.624407)
- ..(4.296967,-2.626967)
- ..controls (4.294407,-2.629528) and (4.290641,-2.634016)
- ..(4.288563,-2.636982)
- ..controls (4.286486,-2.639948) and (4.283558,-2.645022)
- ..(4.282031,-2.648304)
- ..controls (4.280503,-2.651585) and (4.278489,-2.657091)
- ..(4.277536,-2.660589)
- ..controls (4.276583,-2.664086) and (4.275628,-2.669857)
- ..(4.275404,-2.673463)
- ..controls (4.275181,-2.67707) and (4.275,-2.68)
- ..(4.275,-2.68)
- ..controls (4.275,-2.68) and (4.275181,-2.68293)
- ..(4.275404,-2.686537)
- ..controls (4.275628,-2.690143) and (4.276583,-2.695914)
- ..(4.277536,-2.699411)
- ..controls (4.278489,-2.702909) and (4.280503,-2.708415)
- ..(4.282031,-2.711696)
- ..controls (4.283558,-2.714978) and (4.286486,-2.720052)
- ..(4.288563,-2.723018)
- ..controls (4.290641,-2.725984) and (4.294407,-2.730472)
- ..(4.296967,-2.733033)
- ..controls (4.299528,-2.735593) and (4.304016,-2.739359)
- ..(4.306982,-2.741437)
- ..controls (4.309948,-2.743514) and (4.315022,-2.746442)
- ..(4.318304,-2.747969)
- ..controls (4.321585,-2.749497) and (4.327091,-2.751511)
- ..(4.330589,-2.752464)
- ..controls (4.334086,-2.753417) and (4.339857,-2.754372)
- ..(4.343463,-2.754596)
- ..controls (4.34707,-2.754819) and (4.406027,-2.755)
- ..(4.475,-2.755)
- ..controls (4.543973,-2.755) and (4.60293,-2.754819)
- ..(4.606537,-2.754596)
- ..controls (4.610143,-2.754372) and (4.615914,-2.753417)
- ..(4.619411,-2.752464)
- ..controls (4.622909,-2.751511) and (4.628415,-2.749497)
- ..(4.631696,-2.747969)
- ..controls (4.634978,-2.746442) and (4.640052,-2.743514)
- ..(4.643018,-2.741437)
- ..controls (4.645984,-2.739359) and (4.650472,-2.735593)
- ..(4.653033,-2.733033)
- ..controls (4.655593,-2.730472) and (4.659359,-2.725984)
- ..(4.661437,-2.723018)
- ..controls (4.663514,-2.720052) and (4.666442,-2.714978)
- ..(4.667969,-2.711696)
- ..controls (4.669497,-2.708415) and (4.671511,-2.702909)
- ..(4.672464,-2.699411)
- ..controls (4.673417,-2.695914) and (4.674372,-2.690143)
- ..(4.674596,-2.686537)
- ..controls (4.674819,-2.68293) and (4.675,-2.68)
- ..(4.675,-2.68)\dpicstop
-\dpicdraw (4.275,-2.68)
- --(4.355,-2.68)
- --(4.515,-2.691111)\dpicstop
-\dpicdraw (4.475,-2.68)
- --(4.675,-2.68)\dpicstop
-\dpicdraw (4.675,-2.68)
- --(4.85,-2.68)\dpicstop
-\draw (4.877674,-2.68) node[right=-2bp]{{\tt reed(,{,},fill\_(0.9),CR)}};
-\dpicdraw (0,-2.93)
- --(0.25,-2.93)\dpicstop
-\dpicdraw (0.5,-2.93)
- --(0.5,-2.88)
- --(0.25,-2.88)
- --(0.25,-2.98)
- --(0.5,-2.98)
- --(0.5,-2.93)\dpicstop
-\dpicdraw (0.25,-2.98)
- --(0.333333,-2.93)
- --(0.25,-2.88)\dpicstop
-\dpicdraw (0.5,-2.93)
- --(0.75,-2.93)\dpicstop
-\draw (0.777674,-2.93) node[right=-2bp]{{\tt pvcell}};
-\end{tikzpicture}
-\vspace*{-0.5\baselineskip}
Deleted: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CctTableMan.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CctTableMan.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CctTableMan.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,92 +0,0 @@
-.PS
-# `CctTable.m4'
-cct_init
-
-movewid = 2 pt__
-hm = 2.05
-vm = 0.28
-{ {resistor ; move ;"`{\tt resistor}'" ljust}
- move right_ hm
- {resistor(,,Q) ; move ;"`\tt resistor(,{,}Q) '" ljust}
- move right_ hm
- {resistor(,,E) ; move
- "`\shortstack[l]{\tt resistor(,{,}E)\\ {\tt $\equiv$ ebox}}'" ljust}
-}
- move down vm; right_
-{ {resistor(,,ES) ; move ;"`\tt resistor(,{,}ES) '" ljust}
- move right_ hm
- {resistor(,,H) ; move ;"`\tt resistor(,{,}H) '" ljust}
- move right_ hm
- {ebox(,,,0.5) ; move ;"`{\tt ebox(,{,},0.5)}'" ljust}
-}
- move down vm; right_
-{ {resistor(,,V) ; move ;"`{\tt resistor(,{,}V)}'" ljust}
- move right_ hm
- {move down_ 0.05; right_
- thermocouple ; move;"`{\tt thermocouple}'" ljust; move up_ 0.05}
- move right_ hm
- {ebox(,0.5,0.3) ; move ;"`{\tt ebox(,0.5,0.3)}'" ljust}
-}
- move down vm; right_
-{ {inductor ; move ;"`{\tt inductor}'" ljust}
- move right_ hm
- {inductor(,W); move ;"`{\tt inductor(,W)}'" ljust}
- move right_ hm
- {inductor(,L); move ;"`{\tt inductor(,L)}'" ljust}
-}
- move down vm; right_
-{ {inductor(,,,M) ; move ;"`{\tt inductor(,{,},M)}'" ljust}
- move right_ hm
- {inductor(,W,6,P); move ;"`{\tt inductor(,W,6,P)}'" ljust}
- move right_ hm
- {move right_ 0.2; ttmotor(,G) ; move ;"`{\tt ttmotor(,G)}'" ljust}
-}
- move down vm; right_
-{ {capacitor ; move ;"`{\tt capacitor}'" ljust}
- move right_ hm
- {capacitor(,C); move ;"`{\tt capacitor(,C)}'" ljust}
- move right_ hm
- {capacitor(,C+); move ;"`{\tt capacitor(,C+)}'" ljust}
-}
- move down vm; right_
-{ {capacitor(,P); move ;"`{\tt capacitor(,P)}'" ljust}
- move right_ hm
- {capacitor(,E); move ;"`{\tt capacitor(,E)}'" ljust}
- move right_ hm
- {capacitor(,K); move ;"`{\tt capacitor(,K)}'" ljust}
-}
- move down 0.25; right_
-{ {capacitor(,M); move ;"`{\tt capacitor(,M)}'" ljust}
- move right_ hm
- {capacitor(,N); move ;"`{\tt capacitor(,N)}'" ljust}
- move right_ hm
- {xtal ; move ;"`{\tt xtal}'" ljust}
-}
- move down 0.25; right_
-{ {memristor ; move;"`{\tt memristor}'" ljust}
- move right_ hm
- {heater; move;"`{\tt heater}'" ljust}
- move right_ hm
- {tline ; move;"`{\tt tline}'" ljust}
-}
- move down 0.25; right_
-{ {move up_ 0.05; right_; gap ; move ;"`{\tt gap}'" ljust}
- move right_ hm
- {gap(,,A) ; move ;"`{\tt gap(,{,}A)}'" ljust}
- move right_ hm
- {arrowline ; move;"`{\tt arrowline}'" ljust}
-}
- move down 0.25; right_
-{ {lamp ; move;"`{\tt lamp}'" ljust}
- move right_ hm
- {reed ; move ;"`{\tt reed}'" ljust}
- move right_ hm
- {reed(,,,fill_(0.9),CR) ; move ; "`{\tt reed(,{,},fill\_(0.9),CR)}'" ljust}
-}
- move down 0.25; right_
-{ {pvcell ; move;"`{\tt pvcell}'" ljust}
- move right_ hm
- {arrester ; move ;"`{\tt arrester}'" ljust}
-}
-
-.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.bib
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.bib 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.bib 2021-06-03 20:45:51 UTC (rev 59444)
@@ -42,6 +42,15 @@
publisher={Addison-Wesley},
year={1997}}
+ at misc{IECstd,
+author={IEC},
+title={International Standard Database Snapshot 2007-01,
+Graphical Symbols for Diagrams},
+note={IEC-60617.},
+institution={International Electrotechnical Commission},
+address={Geneva, Switzerland},
+year={2007}}
+
@misc{IEEEstd,
author={IEEE},
title={Graphic Symbols for Electrical and Electronic Diagrams},
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.tex 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.tex 2021-06-03 20:45:51 UTC (rev 59444)
@@ -70,20 +70,25 @@
citecolor=purple}
\begin{document}
+%\pagenumbering{roman}
\title{M4 Macros for Electric Circuit Diagrams in \LaTeX\ Documents}
\author{Dwight Aplevich}
\enlargethispage{\baselineskip}
\date{%
-%\input Version
+%\input Version%
+%\footnote{This document is best displayed with a reader that shows bookmarks.}
\vspace*{-\baselineskip}
}
\maketitle
-% \pdfbookmark[section]{\contentsname}{toc}
- \pdfbookmark[section]{Contents}{toc}
+ \pdfbookmark[section]{\contentsname}{toc}
+% \pdfbookmark[section]{Contents}{toc}
\begin{multicols}{2}
\tableofcontents
\end{multicols}
+%\pagebreak
+%\pagenumbering{arabic}
+
\input body
%\pdfbookmark[section]{\refname}{refs}
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/InductorsMan.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/InductorsMan.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/InductorsMan.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,47 @@
+.PS
+# inductors.m4
+cct_init
+iflatex(command "{\tt")
+
+movewid = 2 pt__
+hm = 2.05
+vm = 0.4
+{ {I: inductor ; move ;"`{inductor}'" ljust}
+ move right_ hm
+ {inductor(,W); move ;"`{inductor(,W)}'" ljust}
+ move right_ hm
+ {inductor(,L); move ;"`{inductor(,L)}'" ljust}
+}
+
+ move down vm; right_
+{ {inductor(,,3,M) ; move ;"`{...(,,3,M)}'" ljust}
+ move right_ hm
+ {inductor(,W,6,P1); variable; move
+ "`...(,W,6,P1);'" ljust "`variable'" ljust}
+ move right_ hm
+ {inductor(,L,9,K); move ;"`{...(,L,9,K)}'" ljust}
+}
+
+ move down vm; right_
+{ {inductor(,,,M3); addtaps(-,1/2,-dimen_/6); move; `"...(,{,},M3)"' ljust
+ {`"addtaps(-,1/2,-dimen\_/6)"' ljust at (I.start,last ""+(0,-0.2)) }
+ }
+ move right_ hm
+ {ebox(,,,0) ; move ;"`{ebox(,{,},0)}'" ljust}
+ move right_ hm -10bp__
+ {TI: tapped(`ebox(,,,0)',-,1/4,-dimen_/6,3/4,-dimen_/6) ; move ;
+ "`tapped(\char96{}ebox(,{,},0)\char39,'" ljust at Here+(10bp__,-5bp__) \
+ "-,1/4,-dimen\_/6," ljust "3/4,-dimen\_/6)" ljust
+ "\sl Tap1" at TI.Tap1 rjust below
+ "\sl Tap2" at TI.Tap2 ljust below }
+}
+
+ move down vm*5/4; right_
+{ {shielded(`inductor(,,,M)') ; move
+ `"shielded("' ljust `"\char96inductor(,{,},M)\char39)"' ljust
+ move to (3rd last line.start,Here)
+ shielded(`ebox(,,,0)',R) ; move; `"shielded(`ebox(,{,},0)',R)"' ljust }
+}
+
+iflatex(command "}")
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/InductorsMan.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Makefile
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Makefile 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Makefile 2021-06-03 20:45:51 UTC (rev 59444)
@@ -8,19 +8,21 @@
ACsymbol.tex \
AmpTableMan.tex AntennasMan.tex ArrestersMan.tex AudioMan.tex Axes.tex \
Buffer.tex BigResistor.tex BipMan.tex \
- CctTableMan.tex Composite.tex ConfigA.tex ConfigB.tex ConfigC.tex \
- ConnMan.tex Corners.tex ContactMan.tex ContactsMan.tex \
+ CapacitorsMan.tex Composite.tex ConfigA.tex ConfigB.tex \
+ ConfigC.tex ConnMan.tex Corners.tex ContactMan.tex ContactsMan.tex \
Dac.tex Darlington.tex DCsymbol.tex DemultiplexerMan.tex DiodesMan.tex \
EmarrowsMan.tex FF.tex FlipFlop.tex Flowdiag.tex FusesMan.tex \
- GroundsMan.tex HeadersMan.tex HybridPi.tex JackMan.tex LogicMan.tex \
+ GroundsMan.tex HeadersMan.tex HybridPi.tex InductorsMan.tex \
+ JackMan.tex LogicMan.tex \
Loop.tex MultiplexerMan.tex NPDTMan.tex NLGMan.tex NportMan.tex \
Oblique.tex OpampMan.tex Opto.tex ParSeries.tex PconnMan.tex \
- Potentiometers.tex RelayMan.tex relaycoilMan.tex Series.tex ShiftRMan.tex \
- Sinus.tex SourcesMan.tex SwitchesMan.tex Taps.tex TgateMan.tex \
- Thermal.tex Tline.tex VariableMan.tex XformMan.tex \
- WindingsMan.tex Workflow.tex bitr.tex bi_trans.tex bistableMan.tex \
+ Potentiometers.tex RelayMan.tex relaycoilMan.tex ResistorsMan.tex \
+ Series.tex ShiftRMan.tex Sinus.tex SourcesMan.tex SwitchesMan.tex \
+ Taps.tex TgateMan.tex Thermal.tex Tline.tex \
+ VariableMan.tex WindingsMan.tex Workflow.tex XformMan.tex \
+ bitr.tex bi_trans.tex bistableMan.tex \
currents.tex eboxdims.tex fbfilter.tex fetMan.tex lrarrows.tex \
- mplex.tex oax.tex quick.tex \
+ MoreTableMan.tex mplex.tex opampex.tex quick.tex \
sampleIC.tex stringdims.tex thyristorMan.tex ujtMan.tex \
woodchips.tex
@@ -39,7 +41,7 @@
# For gpic
MODE = gpic
-PIC = gpic -t
+PIC = pic -t
PRE =
POST = ;printf '\\centerline{\\box\\graph}\n'
PST =
@@ -122,7 +124,7 @@
printf '\\usepackage{multicol}\n' >> heading.tex
printf '\\usepackage{amssymb,boxdims}\n' >> heading.tex $(PST)
-oax.tex tran.tex bitr.tex: oax.m4
+opampex.tex tran.tex bitr.tex: opampex.m4
$(M4) $(M4LIBS) $*.m4 > $*.pic
$(PIC) $*.pic > $*.tex
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/MoreTableMan.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/MoreTableMan.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/MoreTableMan.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,36 @@
+.PS
+# MoreTable.m4
+cct_init
+
+movewid = 2 pt__
+hm = 2.05
+vm = 0.28
+{ {memristor ; move;"`{\tt memristor}'" ljust}
+ move right_ hm
+ {heater; move;"`{\tt heater}'" ljust}
+ move right_ hm
+ {tline ; move;"`{\tt tline}'" ljust}
+}
+ move down 0.25; right_
+{ {pvcell ; move;"`{\tt pvcell}'" ljust}
+ move right_ hm
+ {reed ; move ;"`{\tt reed}'" ljust}
+ move right_ hm
+ {reed(,,,fill_(0.9),CR) ; move ; "`{\tt reed(,{,},fill\_(0.9),CR)}'" ljust}
+}
+ move down 0.25; right_
+{ {gap ; move ;"`{\tt gap}'" ljust}
+ move right_ hm
+ {gap(,,A) ; move ;"`{\tt gap(,{,}A)}'" ljust}
+ move right_ hm
+ {arrowline ; move;"`{\tt arrowline}'" ljust}
+}
+ move down 0.25; right_
+{ move down 0.10; right; {lamp ; move;"`{\tt lamp}'" ljust}
+ move right_ hm
+ {thermocouple ; move;"`{\tt thermocouple}'" ljust }
+# move up 0.10 right_ hm
+# {arrester ; move ;"`{\tt arrester}'" ljust}
+}
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/MoreTableMan.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Oblique.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Oblique.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Oblique.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -10,13 +10,13 @@
inductor(from T to Ct); dlabel(0.12,-0.1,,,L_1)
Point_(-30); inductor(from Cr to Cr+vec_(elen_,0))
- dlabel(0,-0.07,,L_3,)
+ dlabel(0,-0.1,,L_3,)
R:dot
L:dot( at Cl-(R.x-Cr.x,Cr.y-R.y) )
inductor(from L to Cl); dlabel(0,-0.12,,L_2,)
right_; resistor(from L to R); rlabel(,R_2,)
- resistor(from T to R); dlabel(0,0.15,,R_3,) ; b_current(y,ljust)
+ resistor(from T to R); dlabel(0,0.15,,R_3,) ; b_current(\;y,ljust)
line from L to 0.2<L,T>
source(to 0.5 between L and T); dlabel(sourcerad_+0.07,0.1,-,,+)
dlabel(0,sourcerad_+0.07,,u,)
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ResistorsMan.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ResistorsMan.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ResistorsMan.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,30 @@
+.PS
+# ResistorsMan.m4
+cct_init
+
+movewid = 2 pt__
+hm = 2.05
+vm = 0.28
+{ {resistor ; move ;"`{\tt resistor}'" ljust}
+ move right_ hm
+ {resistor(,,Q) ; move ;"`\tt resistor(,{,}Q) '" ljust}
+ move right_ hm
+ {resistor(,,E) ; move
+ "`\shortstack[l]{\tt resistor(,{,}E)\\ {\tt $\equiv$ ebox}}'" ljust}
+}
+ move down vm; right_
+{ {resistor(,,ES) ; move ;"`\tt resistor(,{,}ES) '" ljust}
+ move right_ hm
+ {resistor(,,H) ; move ;"`\tt resistor(,{,}H) '" ljust}
+ move right_ hm
+ {ebox(,,,0.9) ; move ;"`{\tt ebox(,{,},0.9)}'" ljust}
+}
+ move down vm; right_
+{ {resistor(,,V) ; move ;"`{\tt resistor(,{,}V)}'" ljust}
+ move right_ hm
+ {ebox(,0.5,0.3) ; move ;"`{\tt ebox(,0.5,0.3)}'" ljust}
+ move right_ hm+4bp__
+ {resistor(,,B) ; move movewid-4bp__ ;"`{\tt resistor(,{,}B)}'" ljust}
+}
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ResistorsMan.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/SourcesMan.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/SourcesMan.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/SourcesMan.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -16,7 +16,7 @@
{source(,i) ; move ; "`source(,i)'" ljust} NL
{source(,V) ; move ; "`source(,V)'" ljust} NL
{source(,v) ; move ; "`source(,v)'" ljust} NL
- {source(,SC) ; move ; "`source(,SC)'" ljust} NL
+ {source(,S) ; move ; "`source(,S)'" ljust} NL
{source(,AC); move ; "`source(,AC)'" ljust} NL
{source(,X) ; move ; "`source(,X)'" ljust} NL
{source(,F) ; move ; "`source(,F)'" ljust} NL
@@ -31,7 +31,7 @@
{source(,U) ; move ; "`source(,U)'" ljust} NL
{source(,H) ; move ; "`source(,H)'" ljust} NL
{source(,R) ; move ; "`source(,R)'" ljust} NL
- {source(,S) ; move ; "`source(,S)'" ljust} NL
+ {source(,SC) ; move ; "`source(,SC)'" ljust} NL
{source(,SCr) ; move ; "`source(,SCr)'" ljust} NL
{source(,T) ; move ; "`source(,T)'" ljust} NL
{source(,L) ; move ; "`source(,L)'" ljust} NL
@@ -51,7 +51,8 @@
{consource(,V) ; move ; "`consource(,V)'" ljust} NL(0.32)
{consource(,v) ; move ; "`consource(,v)'" ljust} NL(0.3)
{battery ; move ; "`battery'" ljust} NL(0.3)
- {battery(,3,R) ; move ; "`battery(,3,R)'" ljust}
+ {battery(,3,R) ; move ; "`battery(,3,R)'" ljust} NL(0.35)
+ {ttmotor(,G) ; move ; "`ttmotor(,G)'" ljust}
iflatex(`ifpsfrag(,`latexcommand(})')')
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/SwitchesMan.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/SwitchesMan.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/SwitchesMan.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -20,7 +20,7 @@
lswitch(,,uDC); {"\tt (,{,}uDC)" at (last [],S)}
}
# Row 2
- move down; right_; {
+ move down 0.4; right_; {
lswitch(,,K); {S:"\tt (,{,}K)" Below}
move right_
lswitch(,,KD); {"\tt (,{,}KD)" at (last [],S)}
@@ -60,7 +60,7 @@
dswitch(,,WBCo); {"\tt (,{,}WBCo)" at (last [],S)}
}
# Row 4
- move down; right_; {
+ move down 0.4; right_; {
dswitch(,,WBKCo); {S: "\tt (,{,}WBKCo)" Below}
move right_
dswitch(,,WBCb); {"\tt (,{,}WBCb)" at (last [],S)}
@@ -74,7 +74,8 @@
dswitch(,,WBFSd); {"\tt (,{,}WBFSd)" at (last [],S)}
}
# Row 5
- move down moveht*5/4; right_; {
+# move down moveht*5/4; right_; {
+ move down moveht; right_; {
dswitch(,,WBTh); {S: "\tt (,{,}WBTh)" Below}
move right_
dswitch(,,WBKC); {"\tt (,{,}WBKC)" at (last [],S)}
@@ -102,6 +103,20 @@
dswitch(,,WBRHH); {"\tt (,{,}WBRHH)" at (last [],S)}
}
# Row 7
+ move down 0.4; right_; {
+ dswitch(,,WBMMR); {S: "\tt (,{,}WBMMR)" Below}
+ move right_
+ dswitch(,,WBMM); {"\tt (,{,}WBMM)" at (last [],S)}
+ move right_
+ dswitch(,,WBMR); {"\tt (,{,}WBMR)" at (last [],S)}
+ move right_
+ dswitch(,,WBEL); {"\tt (,{,}WBEL)" at (last [],S)}
+ move right_
+ dswitch(,,WBLE); {"\tt (,{,}WBLE)" at (last [],S)}
+ move right_
+ dswitch(,,WBoKEL); {"\tt (,{,}WBoKEL)" at (last [],S)}
+ }
+# Row 8
move down moveht; right_; {
move down_ 2bp__; right_
dswitch(,,WBPr); {S: "\tt (,{,}WBPr)" Below}
@@ -114,18 +129,4 @@
move down_ 6bp__ then right_
dswitch(,,WBPrM); {S: "\tt (,{,}WBPrM)" Below}
}
-# Row 8
- move down; right_; {
- dswitch(,,WBMMR); {S: "\tt (,{,}WBMMR)" Below}
- move right_
- dswitch(,,WBMM); {"\tt (,{,}WBMM)" at (last [],S)}
- move right_
- dswitch(,,WBMR); {"\tt (,{,}WBMR)" at (last [],S)}
- move right_
- dswitch(,,WBEL); {"\tt (,{,}WBEL)" at (last [],S)}
- move right_
- dswitch(,,WBLE); {"\tt (,{,}WBLE)" at (last [],S)}
- move right_
- dswitch(,,WBoKEL); {"\tt (,{,}WBoKEL)" at (last [],S)}
- }
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/VariableMan.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/VariableMan.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/VariableMan.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,19 +1,19 @@
.PS
-# `Variable.m4'
+# `VariableMan.m4'
cct_init
-define(`elen_',dimen_); down_
-[ { variable(`resistor',A) }; {"A" at last line.end below}; move right
- { variable(`resistor',N) }; {"N" at last line.end below}; move right
- { variable(`resistor',uN) }; {"uN" at last line.end below}; move right
- { variable(`resistor',NN) }; {"uN" at last line.end below}; move right
- { variable(`resistor',uNN) }; {"uNN" at last line.end below}; #; move right
+define(`elen_',dimen_); up_
+[ { variable(`resistor(up_ dimen_)',A) };
+ {"A" at last line.start below}; move right
+ { variable(`resistor',N) }; {"N" at last line.start below}; move right
+ { variable(`resistor',uN) }; {"uN" at last line.start below}; move right
+ { variable(`resistor',NN) }; {"NN" at last line.start below}; move right
+ { variable(`resistor',uNN) }; {"uNN" at last line.start below}; #; move right
]
[
skp = 0.4
hskip = linewid*0.5
cskip = hskip
-Orig: Here
{ move right cskip+elen_+hskip
line invis right_ elen_ "\tt C"; move right_ hskip
line invis right_ elen_ "\tt S" }
@@ -25,4 +25,5 @@
variable(`capacitor(,C)',char`'S) }',
A,P,L,N)
] with .w at last [].e+(0.4,0)
+
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Version.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Version.tex 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Version.tex 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1 +1 @@
-Version 9.5
+Version 9.6
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/body.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/body.tex 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/body.tex 2021-06-03 20:45:51 UTC (rev 59444)
@@ -48,15 +48,13 @@
%
\xection{Introduction\label{Introduction:}}
\begin{quotation}\noindent
-% Before every conference, I find Ph.D.s in on weekends running back
-% and forth from their offices to the printer.
It appears that people
who are unable to execute pretty pictures with pen and paper find it
gratifying to try with a computer~\cite{Landauer95}.
\end{quotation}
-This manual\footnote{%
-This document is best displayed with a reader that shows bookmarks.}
+This manual%
+\footnote{This document is best displayed with a reader that shows bookmarks.}
describes a method for drawing electric circuits and
other diagrams in \latex and web documents.
The diagrams are defined in the simple \pic drawing language~\cite{KRpic}
@@ -69,8 +67,8 @@
is taken correctly points out that the payoff can be in quality of
diagrams at the price of the time spent in learning how to draw them.
-A collection of basic components, most based on IEEE
-standards~\cite{IEEEstd},
+A collection of basic components, most based on IEC and IEEE
+standards~\cite{IECstd,IEEEstd},
and conventions for their internal
structure are described. Macros such as these are only a starting
point, since it is often convenient to customize elements or to package
@@ -204,8 +202,6 @@
which can be printed or viewed using {\tt gsview}, for example.
For \TPGF,
Invoking PDFlatex on the source produces {\tt .pdf} output directly.
-%Whether or not the figure environment is used,
-%the essential line in all cases is \verb|\input quick|.
The essential line is \verb|\input quick| whether or not the figure
environment is used.
@@ -301,10 +297,35 @@
\verb%m4 quick.m4 | dpic -p > quick.tex%
+\enlargethispage{\baselineskip}
\item
-It may be desirable to invoke \Mfour and \dpic automatically from the
-document file as shown:
+You can put several diagrams into a single source file.
+Make each diagram the body of a \latex macro, as shown:
+\par
+\verb|\newcommand{\diaA}{%|\NVL
+\verb|.PS|\NVL
+{\sl drawing commands}\NVL
+\verb|.PE|\NVL
+\verb|\box\graph }% \box\graph not required for dpic|\NVL
+\verb|\newcommand{\diaB}{%|\NVL
+\verb|.PS|\NVL
+{\sl drawing commands}\NVL
+\verb|.PE|\NVL
+\verb|\box\graph }% \box\graph not required for dpic|\NVL
+Produce a {\tt .tex} file as usual,
+insert the {\tt .tex} into the \latex source, and
+invoke the macros \verb^\diaA^ and \verb^\diaB^ at the appropriate places.
+
+\item
+%Whether this and the next item rightly belong under the heading
+%``Simplifications'' might be debated. They appear most useful
+%when a project-management tool is employed.
+In some circumstances,
+it may be desirable to invoke \Mfour and \dpic automatically from the
+document. Define a macro \verb|\mtotex| as shown in the
+following example:
+
{\tt \verb^\documentclass{article}^ \brtt
\verb^\usepackage{tikz}^ \brtt
\verb^\newcommand\mtotex[2]{\immediate\write18{m4 ^%-I^ {\sl installdir}
@@ -322,7 +343,7 @@
Sources \verb|FileA.m4| and \verb|FileB.m4| must contain any required
\verb|include| statements,
and the main document should be processed using
-the latex or pdflatex option \verb|-shell-escape|.
+the latex or pdflatex option \verb|--shell-escape|.
If the {\tt M4PATH} environment variable is not set then insert
{\tt -I }{\sl installdir} after {\tt m4} in the command definition,
where {\sl installdir} is the absolute path to the installation directory.
@@ -333,24 +354,24 @@
\pic code into a \Tikz picture is described in \SR{Tikzwithpic:}.
\item
-You can put several diagrams into a single source file.
-Make each diagram the body of a \latex macro, as shown:
+It might be convenient for the source of small diagrams to be part
+of the document source text. The {\tt filecontents} environment of current
+\LaTeX\ allows this; older versions can employ a now-obsolete package
+{\tt filecontents.sty}. The following example
+for processing by {\tt pdflatex} \verb|--shell-escape|
+first writes the \Mfour\ source
+to file {\tt sample.m4}, invokes \verb|\mtotex| on it, and reads in the result:
\par
-\verb|\newcommand{\diaA}{%|\NVL
+\verb|\begin{filecontents}[overwrite,noheader,nosearch]{sample.m4}|\NVL
+\verb|include(pgf.m4)|\NVL
\verb|.PS|\NVL
-{\sl drawing commands}\NVL
+\verb|cct_init|\NVL
+{\sl drawing commands} $\ldots$\NVL
\verb|.PE|\NVL
-\verb|\box\graph }% \box\graph not required for dpic|\NVL
-\verb|\newcommand{\diaB}{%|\NVL
-\verb|.PS|\NVL
-{\sl drawing commands}\NVL
-\verb|.PE|\NVL
-\verb|\box\graph }% \box\graph not required for dpic|\NVL
-Produce a {\tt .tex} file using \verb|\mtotex|
-or \Mfour and \dpic or \gpic,
-insert the {\tt .tex} into the \latex source, and
-invoke the macros \verb^\diaA^ and \verb^\diaB^ at the appropriate places.
+\verb|\end{filecontents}|\NVL
+\verb|\mtotex{g}{sample}|\NVL
+\verb|\input{sample.tex}|\NVL
\end{enumerate}
\subsection{Including the libraries\label{Libraries:}}
@@ -394,7 +415,7 @@
\xection{\Pic essentials\label{Pic:}}
-\Pic source is a sequence of lines in a file.
+\Pic source is a sequence of lines in a text file.
The first line of a diagram begins with {\tt .PS} with optional following
arguments, and the last line is normally {\tt .PE}.
Lines outside of these pass through the \pic processor unchanged.
@@ -406,8 +427,10 @@
The object {\tt move} is linear but draws nothing. A compound object,
or {\tt block,} is planar and consists of a pair of square brackets enclosing
other objects, as described in \SR{Compoundobjects:}.
-Objects can be placed using absolute coordinates or relative to other objects.
+Objects can be placed using absolute coordinates or,
+as is often better, relative to other objects.
+
\Pic allows the definition of real-valued variables, which are alphameric
names beginning with lower-case letters, and computations using them.
Objects or locations on the diagram can be given symbolic names
@@ -829,18 +852,21 @@
\end{itemize}
\subsection{The two-terminal elements\label{Twoterminal:}}
-The two-terminal elements are shown in \FRS{CctTable}
-% to~\REF{Diodes} and \FRS{Fuses}
-%to~\REF{Switches}.
-to~\REF{Arresters}.
+The two-terminal elements are shown in
+\FRS{Resistors}
+to~\REF{Switches} and part of~\FR{Arresters}.
Several elements are included more than once to illustrate
-some of their arguments, which are listed in \SR{defines}.
-\enlargethispage{\baselineskip}
+some of their arguments, which are listed in detail in \SR{defines}.
+\FR{Resistors} shows some resistors with typical variants.
\begin{figure}[h!]
- \input CctTableMan
-% \ifpdf\vspace*{-\baselineskip}\fi%
- \caption{Basic two-terminal elements, showing some variations.}
- \label{CctTable}
+ \input ResistorsMan
+ \caption{Resistors dawn by the macro
+ {\tt resistor({\sl linespec, n}|E, {\sl chars}, {\sl cycle wid})}.
+ The second argument is either an integer to specify number of cycles,
+ the letter {\tt E}, or blank. The third argument specifies the desired
+ variant.
+ The default {\tt ebox} element designates a resistor.}
+ \label{Resistors}
\end{figure}
The first macro argument specifies
@@ -849,13 +875,7 @@
the element is drawn from the current position in the current drawing
direction along a default length.
The other arguments produce variants of the default elements.
-\begin{figure}[ht]
- \input AmpTableMan
- \caption{Amplifier, delay, and integrator.}
- \label{AmpTable}
- \end{figure}
-\pagebreak
Thus, for example,
\par
{\tt resistor(up\_ 1.25,7)}
@@ -866,29 +886,67 @@
The macro {\tt up\_} evaluates to {\tt up} but also resets the current
directional parameters to point up.
-\begin{figure}[ht]
+\pagebreak
+Capacitors are illustrated in \FR{Capacitors}.
+See \SR{Composite:} for the {\tt variable} macro.
+\begin{figure}[h!t]
+ \input CapacitorsMan
+ \caption{The {\tt capacitor({\sl linespec, chars,} [R],{\sl height, width})}
+ macro, and an example application of the {\tt variable} macro.}
+ \label{Capacitors}
+ \end{figure}
+
+Basic inductors are illustrated in \FR{Inductors}.
+\begin{figure}[h!]
+ \input InductorsMan
+ \caption{Basic inductors created with the
+ {\tt inductor({\sl linespec,} W|L, {\sl cycles,} M|P|K, {\sl loop wid})}
+ macro, the {\tt ebox} macro for European-style inductors, and some
+ modifications (see also \SR{Composite:}).
+ When an embellished element is repeated several times,
+ writing a wrapper macro may be desirable.}
+ \label{Inductors}
+ \end{figure}
+
+Some more basic elements are in \FR{MoreTable}, and amplifiers in \FR{AmpTable}.
+\begin{figure}[h!t]
+ \input MoreTableMan
+ \caption{More two-terminal elements.}
+ \label{MoreTable}
+ \end{figure}
+\begin{figure}[h!t]
+ \input AmpTableMan
+ \caption{Amplifier, delay, and integrator.}
+ \label{AmpTable}
+ \end{figure}
+
+\FR{Sources} shows sources, many of which contain internal symbols,
+and of which the {\tt AC} and {\tt S} options illustrate the need
+to draw a single cycle of a sinusoid or approximate sinusoid.
+\begin{figure}[h!t]
\input SourcesMan
-% \ifpdf\vspace*{-0.5\baselineskip}\fi%
\caption{Sources and source-like elements.}
\label{Sources}
\end{figure}
-
-The {\tt AC} and {\tt S} options of the {\tt source} macro in \FR{Sources}
-illustrate the need
-to draw a single cycle of a sinusoid or approximate sinusoid.
As a convenience,
the macro {\tt ACsymbol(at {\sl position, length, height,}
[A]U|D|L|R|{\sl degrees})} is included as an interface to
the {\tt sinusoid} macro. For example to add the sumbol
-(\input{ACsymbol.tex}) to an ebox:
+``\input{ACsymbol.tex}'' to an ebox:
\par
{\tt ebox; $\lbrace$\ ACsymbol(at last [],{,},dimen\_/8) $\rbrace$}
\noindent
For direct current (\input{DCsymbol.tex}), there is also
-{\tt DCsymbol(at {\sl position, length, height,} U|D|L|R|{\sl degrees})}.
+{\tt DCsymbol(at {\sl position, length, height,} U|D|L|R|{\sl degrees})},
+and for power-system diagrams, macros
+{\tt Deltasymbol(at {\sl position, keys,} U|D|L|R|{\sl degrees})},
+and
+{\tt Ysymbol(at {\sl position, keys,} U|D|L|R|{\sl degrees})},
-\begin{figure}[ht]
+\pagebreak
+Diodes and fuses are shown in \FRS{Diodes} and \REF{Fuses}.
+\begin{figure}[h!]
\input DiodesMan
\caption{The macro
{\tt diode(\linespec,B|CR|D|L|LE[R]|P[R]|S|T|V|v|w|Z|{\sl chars},[R][E])}.
@@ -895,8 +953,7 @@
Appending {\tt K} to the second argument draws an open arrowhead.}
\label{Diodes}
\end{figure}
-
-\begin{figure}[t!]
+\begin{figure}[h!]
\input FusesMan
\caption{Variations of the macros
{\tt fuse(\linespec, A|dA|B|C|D|E|S|HB|HC|SB, {\sl wid}, {\sl ht})}
@@ -903,23 +960,8 @@
and {\tt cbreaker(\linespec,L|R,D|T|TS)}.}
\label{Fuses}
\end{figure}
-\begin{figure}[t!]
- \input SwitchesMan
- \caption{The
- {\tt switch(\linespec,L|R,{\sl chars},L|B|D)}
- macro is a wrapper for the macros
- {\tt lswitch(\linespec,[L|R],[O|C][D][K][A])},
- {\tt bswitch(\linespec,[L|R],[O|C])},
- and the many-optioned
- {\tt dswitch(\linespec,R,W[ud]B[K] {\sl chars})} shown.
- The switch is drawn in the current drawing direction.
- A second-argument {\tt R} produces a mirror
- image with respect to the drawing direction.
- The separately defined macros {\tt Proxim} and {\tt Magn}
- embellish switches in the second-last row.}
- \label{Switches}
- \end{figure}
+\enlargethispage{\baselineskip}%
Most of the two-terminal elements are oriented; that is, they have
a defined direction or polarity. Several element macros include an
argument that reverses polarity, but there is also a more general
@@ -931,10 +973,7 @@
\par
\noindent
is the name of a two-terminal element in quotes, followed by the
-element arguments. The element is drawn with reversed direction.
-
-\pagebreak
-Thus,
+element arguments. The element is drawn with reversed direction; thus,
\par
{\tt diode(right\_ 0.4); reversed(`diode',right\_ 0.4)}
\par
@@ -955,31 +994,17 @@
{\tt resized(1.8,`diode',right\_ 0.4);}
{\tt resized(1.8,`reversed',`diode',right\_ 0.4)}
-\pagebreak
-\FR{Arresters} shows a collection of surge-protection devices, or arresters,
-of which the {\tt E} and {\tt S} types may be either 2-terminal or as
-3-terminal (composite) elements described in \SR{Composite:}.
-\begin{figure}[ht]
- \input ArrestersMan
- \caption{Variations of the {\tt arrester({\sl linespec, chars,}
- {\sl wid}[{\tt :}{\sl arrowhead ht}], {\sl ht}[{\tt :}{\sl arrowhead wid})}
- macro. Putting {\tt D} in argument 2 for the {\tt S} or {\tt E}
- configuration creates a 3-terminal composite element
- with terminals {\sl A, B}, and {\sl G.}}
- \label{Arresters}
- \end{figure}
-
\FR{Emarrows} contains radiation-effect arrows for embellishing two-terminal
and other macros.
+\begin{figure}[h!]
+ \input EmarrowsMan
+ \caption{Radiation arrows: {\tt em\_arrows({\sl type, angle, length})}}
+ \label{Emarrows}
+ \end{figure}
The arrow stems are named {\sl A1}, {\sl A2},
and each pair is drawn in a \verb|[]| block, with
the names {\sl Head} and {\sl Tail} defined to
aid placement near another device. The second argument specifies
-\begin{figure}[ht]
- \input EmarrowsMan
- \caption{Radiation arrows: {\tt em\_arrows({\sl type, angle, length})}}
- \label{Emarrows}
- \end{figure}
absolute angle in degrees (default 135 degrees).
The arrows are drawn relative to the diode direction by the {\tt LE}
option in \FR{Diodes}. For absolute arrow directions, one can
@@ -989,10 +1014,43 @@
{\tt define(`myLED',`diode(`\$1'); em\_arrows(N,45)
with .Tail at last [].ne')}
+\enlargethispage{\baselineskip}
+Switches with numerous controls are in \FR{Switches}.
+\begin{figure}[h!]
+ \input SwitchesMan
+ \caption{The
+ {\tt switch(\linespec,L|R,{\sl chars},L|B|D)}
+ macro is a wrapper for the macros
+ {\tt lswitch(\linespec,[L|R],[O|C][D][K][A])},
+ {\tt bswitch(\linespec,[L|R],[O|C])},
+ and the many-optioned
+ {\tt dswitch(\linespec,R,W[ud]B[K] {\sl chars})} shown.
+ The switch is drawn in the current drawing direction.
+ A second-argument {\tt R} produces a mirror
+ image with respect to the drawing direction.
+ The separately defined macros {\tt Proxim} and {\tt Magn}
+ embellish switches in the second-last row.}
+ \label{Switches}
+ \end{figure}
+
+\FR{Arresters} shows a collection of surge-protection devices, or arresters,
+of which the {\tt E} and {\tt S} types may be either 2-terminal or as
+3-terminal (composite) elements described in \SR{Composite:}.
+\begin{figure}[h!]
+ \input ArrestersMan
+ \caption{Variations of the {\tt arrester({\sl linespec, chars,}
+ {\sl wid}[{\tt :}{\sl arrowhead ht}],
+ {\sl ht}[{\tt :}{\sl arrowhead wid}])}
+ macro. Putting {\tt D} in argument 2 for the {\tt S} or {\tt E}
+ configuration creates a 3-terminal composite element
+ with terminals {\sl A, B}, and {\sl G.}}
+ \label{Arresters}
+ \end{figure}
+
\FR{Variable} shows some two-terminal elements with
arrows or lines overlaid to indicate variability using the macro
\par
-{\tt variable(`}{\sl element}{\tt',{\sl type},{\sl angle},{\sl length})},
+{\tt variable(`}{\sl element}{\tt',{\sl type},[+|-]{\sl angle},{\sl length})},
\noindent
where {\sl type} is one of {\tt A, P, L, N, NN} with {\tt C} or {\tt S}
@@ -1000,9 +1058,9 @@
Alternatively, this macro
can be invoked similarly to the label macros in
\SR{Labels:} by specifying an empty first argument;
-thus, the following line draws the resistor in \FR{Variable}:
+thus, the following line draws the third resistor in \FR{Variable}:
\par
- {\tt resistor(down\_ dimen\_); variable(,uN)}
+ {\tt resistor(up\_ dimen\_); variable(,uN)}
\begin{figure}[ht]
\vspace*{-\baselineskip}
@@ -1009,12 +1067,14 @@
\input VariableMan
\caption{Illustrating
{\tt variable(`{\sl element}',%
-[A|P|L|[u]N]|[u]NN]][C|S],{\sl angle},{\sl length})}.
- For example,\break {\tt variable(`resistor(down\_ dimen\_)',A)} draws
- the leftmost resistor shown above, and {\tt variable(`resistor(down\_
- dimen\_)',uN)} draws the third resistor. The default angle is
- 45${}^{\circ}$, regardless of the direction of the element. The array
- on the right shows the effect of the second argument.}
+[A|P|L|[u]N]|[u]NN]][C|S],[+|-]{\sl angle},{\sl length})}.
+ For example, {\tt variable(`resistor(up\_ dimen\_)',A)} draws
+ the leftmost resistor shown above.
+ The default angle is 45${}^{\circ}$, regardless of the direction of
+ the element, but the angle preceded by a sign ($+$ or $-$) is taken
+ to be relative to the drawing direction of the element as for the
+ lower right capacitor in \FR{Capacitors}, for example. The array on
+ the right shows the effect of the second argument.}
\label{Variable}
\end{figure}
@@ -1026,8 +1086,16 @@
\verb|arrow right arrowht from last line.start+(alpha,0) "$i_1$" above|
+\enlargethispage{\baselineskip}%
Macros have been defined to simplify labelling two-terminal
elements, as shown in \FR{currents}.
+\begin{figure}[ht]
+% \ifpdf\vspace*{-0.5\baselineskip}\fi%
+ \input currents
+ \caption{Illustrating {\tt b\_current, larrow,} and {\tt rarrow}.
+ The drawing direction is to the right.}
+ \label{currents}
+ \end{figure}
The macro
{\tt b\_current({\sl label,} above\_|below\_, In|O[ut], Start|E[nd],
@@ -1036,13 +1104,6 @@
\noindent
draws an arrow from the start of the last-drawn two-terminal element
{\sl frac} of the way toward the body.
-\begin{figure}[ht]
-% \ifpdf\vspace*{-0.5\baselineskip}\fi%
- \input currents
- \caption{Illustrating {\tt b\_current, larrow,} and {\tt rarrow}.
- The drawing direction is to the right.}
- \label{currents}
- \end{figure}
If the fourth argument is {\tt End}, the arrow is drawn from the end
toward the body.
@@ -1068,7 +1129,16 @@
specifies the separation from the element.
\subsection{Labels\label{Labels:}}
- Special macros for labeling two-terminal elements are included:
+ Arbitrary labels
+ can be positioned by any \pic\ placement method including the
+ representative basic examples shown:
+
+ {\tt "}{\sl text}{\tt" at {\sl position}}\NVL
+ {\tt "}{\sl text}{\tt" at {\sl position} above}\NVL
+ {\tt "}{\sl text}{\tt" wid {\sl width} ht {\sl height}
+ with .sw at {\sl position}}\NVL
+
+ In addition, special macros for labeling two-terminal elements are available:
\par
{\tt
llabel(} {\sl arg1,arg2,arg3} {\tt )
@@ -1085,6 +1155,14 @@
The second places the arguments along the centre, and the third along the
right side.
A simple circuit example with labels is shown in \FR{Loop}.
+\begin{figure}[h!t]
+ \vspace*{-\baselineskip}
+ \parbox{4in}{\small \verbatiminput{Loop.m4}}%
+ \hfill\raise-0.5in\hbox{\input Loop }
+ \vspace*{-\baselineskip}
+ \caption{A loop containing labeled elements, with its source code.}
+ \label{Loop}
+ \end{figure}
The macro {\tt dlabel} performs these functions for an
obliquely drawn element, placing the three macro arguments at
{\tt vec\_(-long,lat),} {\tt vec\_(0,lat),} and {\tt vec\_(long,lat)}
@@ -1097,25 +1175,11 @@
with {\tt sprintf} or a double quote are copied literally rather than
assumed to be in math mode.
- Arbitrary \latex including {\bsl\tt includegraphics,} for example,
- can also be placed on a diagram using
-
- {\tt "}{\sl \latex text}{\tt" wid {\sl width} ht {\sl height}
- at {\sl position}}
-
-\begin{figure}[ht]
- \vspace*{-\baselineskip}
- \parbox{4in}{\small \verbatiminput{Loop.m4}}%
- \hfill\raise-0.5in\hbox{\input Loop }
- \vspace*{-\baselineskip}
- \caption{A loop containing labeled elements, with its source code.}
- \label{Loop}
- \end{figure}
-
\xection{Placing two-terminal elements\label{Placing:}}
The length and position of a two-terminal element
-are defined by a straight-line segment and, possibly, a direction, so
-four numbers are required to place the element as in the following example:
+are defined by a straight-line segment, so
+four numbers or equivalent
+are required to place the element as in the following example:
\par
{\tt resistor(from (1,1) to (2,1))}.
@@ -1143,8 +1207,8 @@
{\tt resistor(up\_ d)}
\Pic stores the current drawing direction,
-the latter unfortunately limited to {\tt up, down, left, right,}
-which is assumed when necessary.
+which is unfortunately limited to {\tt up, down, left, right,}
+for reference when necessary.
The circuit macros need to know the current direction, so
whenever {\tt up, down, left, right} are used they should be written
respectively as the macros {\tt up\_, down\_, left\_, right\_} as in
@@ -1152,8 +1216,9 @@
To allow drawing circuit objects in other than the standard four directions,
a transformation matrix
-is applied at the macro level to generate the required \pic code.
-Potentially, the matrix can be used for other transformations.
+is applied at the macro level to generate the required
+(but sometimes very elaborate) \pic code.
+Potentially, the matrix elements can be used for other transformations.
The macro
{\tt setdir\_({\sl direction, default direction})}
@@ -1178,7 +1243,7 @@
to establish element length and direction.
As shown in \FR{Oblique},
-\begin{figure}[ht]
+\begin{figure}[h!t]
\vspace{-\baselineskip}
\parbox{4.5in}{\small \verbatiminput{Oblique.m4}}%
\hfill\raise-0.7in\llap{\hbox{\input Oblique }}%
@@ -1208,6 +1273,7 @@
Commas also may be avoided by writing
{\tt 0.5 between L and T} instead of {\tt 0.5<L,T>.}
+\pagebreak
\subsection{Series and parallel circuits\label{Seriesandparallel:}}
To draw elements in series, each element can be placed by specifying
@@ -1321,6 +1387,7 @@
Nearly all elements drawn within blocks can be customized by adding an
extra argument, which is executed as the last item within the block.
+\pagebreak
The macro {\tt
potentiometer(\linespec,{\sl cycles},{\sl fractional pos},{\sl length},
@@ -1363,7 +1430,7 @@
A few composite symbols derived from two-terminal elements
are shown in \FR{Composite}.
-\begin{figure}[h!b]
+\begin{figure}[ht]
\vspace*{-0.5ex}
% \vspace*{-\baselineskip}
\input Composite
@@ -1373,7 +1440,7 @@
\label{Composite}
\end{figure}
-\enlargethispage{\baselineskip}
+%\enlargethispage{\baselineskip}
The ground symbol is shown in \FR{Grounds}.
The first argument specifies position; for example, the two lines shown
have identical effect:
@@ -1442,14 +1509,14 @@
using postprocessor commands (for example \PSTricks \verb|\rput|)
as second and third arguments.
-The code in \FR{oax} places an opamp with three connections.
+The code in \FR{opampex} places an opamp with three connections.
\begin{figure}[h!b]
- \parbox{4in}{\small \verbatiminput{oaxbody.m4}}%
- \quad\raise-0.2in\hbox{\input oax }%
+ \parbox{4in}{\small \verbatiminput{opampexbody.m4}}%
+ \quad\raise-0.2in\hbox{\input opampex }%
% \vspace{-\baselineskip}
\caption{A code fragment invoking the
{\tt opamp(\linespec,-,+,{\sl size},[R][P])} macro.}
- \label{oax}
+ \label{opampex}
\end{figure}
\FR{Xform} shows variants of the transformer macro,
@@ -1587,8 +1654,8 @@
{\tt relaycoil({\sl chars, wid, ht,} {\tt U|D|L|R|}{\sl degrees})}
shown in \FR{relaycoil} provides a choice of connection points and
actuator types.
+\pagebreak
-\pagebreak
\begin{figure}[ht]
% \ifpdf\vspace*{-\baselineskip}\else\vspace*{-0.5\baselineskip}\fi%
\input relaycoilMan
@@ -1611,7 +1678,7 @@
The {\tt jack} and {\tt plug} macros and their defined points are
illustrated in \FR{Jack}.
The first argument of both macros establishes the drawing direction.
-\begin{figure}[h!]
+\begin{figure}[!ht]
\input JackMan
\vspace{-1ex}
\caption{The {\tt jack(U|D|L|R|{\sl degrees}, {\sl chars})}
@@ -1635,27 +1702,22 @@
and some experimental connectors are shown in \FR{Conn} and \FR{Pconn}.
The {\tt tstrip} macro allows ``{\sl key}{\tt =}{\sl value}{\tt ;}'' arguments
for width and height.
-\begin{figure}[ht]
-% \ifpdf\vspace*{-0.5\baselineskip}\fi%
+\begin{figure}[h!b]
\input HeadersMan
-% \ifpdf{\vspace*{-0.5ex}}\fi%
\caption{Macro {\tt Header(1|2, {\sl rows, wid, ht, type})}.}
\label{Headers}
\end{figure}
-\begin{figure}[ht]
+\begin{figure}[h!b]
\input ConnMan
-% \ifpdf{\vspace*{-0.5ex}}\fi%
\caption{Macros {\tt tstrip(R|L|U|D|{\sl degrees}, {\sl chars})},
{\tt ccoax(at} {\sl location}, {\tt M|F, {\sl diameter})},
{\tt tconn(\linespec, >|>>|<|<<|O[F], {\sl wid})}, and
{\tt tbox({\sl text, wid, ht}, <|>|<>,{\sl type})}. }
\label{Conn}
-% \ifpdf{\vspace*{-1ex}}\fi%
\end{figure}
+
\begin{figure}[ht]
-% \ifpdf{\vspace*{-1ex}}\fi%
\input PconnMan
-% \ifpdf{\vspace*{-0.5ex}}\fi%
\caption{A small set of power connectors drawn by
{\tt pconnex(R|L|U|D|}{\sl degrees, chars}{\tt)}. Each connector has
an internal {\tt H}, {\tt N}, and where applicable, a {\tt G} shape.}
@@ -1665,7 +1727,7 @@
The double-throw switches shown in \FR{NPDT} are drawn in the
current drawing direction like the two-terminal elements, but are
composite elements that must be placed accordingly.
-\begin{figure}[h!b]
+\begin{figure}[h!t]
\ifpdf{\vspace*{-1ex}}\fi%
\input NPDTMan
\caption{Multipole double-throw switches drawn by
@@ -1678,7 +1740,7 @@
For simplicity, the complete spline
is first drawn and then blanked in appropriate places using the background
(core) color (\verb!lightgray! for example, default \verb!white!).
-\begin{figure}[h!b]
+\begin{figure}[h!t]
\vspace*{-\baselineskip}%
% \ifpdf\vspace*{-2\baselineskip}\else \vspace{-\baselineskip}\fi
\input WindingsMan
@@ -1690,6 +1752,7 @@
\label{Windings}
\end{figure}
+\pagebreak
\subsection{Semiconductors\label{Semiconductors:}}%
\FR{Bip} shows the variants of bipolar transistor macro
{\tt bi\_tr(\linespec,L|R,P,E)}
@@ -1697,9 +1760,7 @@
{\sl B}, {\sl C}.
The first argument defines the distance and direction from {\sl E}
\begin{figure}[ht]
-% \ifpdf\vspace*{-0.5\baselineskip}\fi%
\input BipMan
-% \ifpdf\vspace*{-0.5\baselineskip}\fi%
\caption{Variants of bipolar transistor {\tt bi\_tr(\linespec,L|R,P,E)}
(current direction upward).}
\label{Bip}
@@ -1711,7 +1772,7 @@
argument to {\tt P} creates a PNP device instead of NPN, and setting the
fourth to {\tt E} draws an envelope around the device.
\FR{Darlington} shows a composite macro with several optional internal elements.
-\begin{figure}[ht]
+\begin{figure}[h!t]
\input Darlington
\caption{Macro {\tt Darlington(L|R,[E][P][B1][E1|R1][E2|R2][D][Z])},
drawing direction {\tt up\_}.}
@@ -1720,8 +1781,7 @@
The code fragment example in \FR{bitr} places a bipolar transistor,
connects a ground to the emitter, and connects a resistor to the collector.
-\begin{figure}[ht]
-%\vspace*{-\baselineskip}
+\begin{figure}[h!t]
\quad\quad\parbox{4in}{\small \verbatiminput{bitrbody.m4}}%
\quad\raise-0.4in\hbox{\input bitr }%
\vspace{-\baselineskip}
@@ -1734,8 +1794,7 @@
draws the components of the transistor according to the characters in its
third argument. For example, multiple emitters and collectors can be
specified as shown in \FR{bitrans}.
-\begin{figure}[ht]
-%\vspace*{-0.5\baselineskip}
+\begin{figure}[h!t]
\input bi_trans
\caption{The {\tt bi\_trans(\linespec,L|R,{\sl chars},E)} macro.
The sub-elements are specified by the third argument. The substring
@@ -1744,14 +1803,9 @@
\label{bitrans}
\end{figure}
-\pagebreak
A UJT macro with predefined internal locations {\sl B1,} {\sl B2,}
-and {\sl E} is shown in \FR{ujt},
-and a thyristor macro with predefined internal locations
- {\sl G} and {\sl T1,} {\sl T2,} or
- {\sl A,} {\sl K} is in \FR{thyristor}.
-Except for the {\sl G} terminal, a thyristor (the {\tt IEC} variant excluded)
-\begin{figure}[ht]
+and {\sl E} is shown in \FR{ujt}.
+\begin{figure}[h!t]
% \ifpdf\vspace*{-\baselineskip}\else\vspace*{-0.5\baselineskip}\fi%
\input ujtMan
% \ifpdf\vspace*{-0.5\baselineskip}\fi%
@@ -1758,7 +1812,12 @@
\caption{UJT devices, with current drawing direction {\tt up\_}. }
\label{ujt}
\end{figure}
-\begin{figure}[h!t]
+
+A thyristor macro with predefined internal locations
+ {\sl G} and {\sl T1,} {\sl T2,} or
+ {\sl A,} {\sl K} is in \FR{thyristor}.
+Except for the {\sl G} terminal, a thyristor (the {\tt IEC} variant excluded)
+\begin{figure}[h!b]
% \ifpdf\vspace*{-\baselineskip}\else\vspace*{-0.5\baselineskip}\fi%
\input thyristorMan
\vspace*{-1ex}
@@ -1770,7 +1829,7 @@
to the second argument to draw open arrowheads.}
\label{thyristor}
\end{figure}
-is much like an two-terminal element. The wrapper macro
+is much like a two-terminal element. The wrapper macro
{\tt scr({\sl linespec, chars, label})} and similar macros
{\tt scs, sus,} and {\tt sbs} place thyristors
using {\sl linespec} as for a two-terminal element,
@@ -1782,18 +1841,17 @@
draws the element from position {\sl A} to position {\sl B} with label
{\sl Q3}, and draws a line from {\sl G}.
+\enlargethispage{\baselineskip}
Some FETs with predefined internal locations {\sl S,} {\sl D,} and {\sl G} are
also included, with similar arguments to those of {\tt bi\_tr,} as shown in
\FR{fet}.
\begin{figure}[ht]
-% \ifpdf\vspace*{-\baselineskip}\fi%
\input fetMan
-% \ifpdf\vspace*{-\baselineskip}\fi%
\caption{JFET, insulated-gate enhancement and depletion MOSFETs,
- and simplified versions.
+ simplified versions, graphene, and ferroelectric fets.
These macros are wrappers that invoke the {\tt mosfet}
macro as shown in the middle and bottom rows.
- The two lower-right examples show custom devices, the first
+ The bottom-row examples show custom devices, the first
defined by omitting the substrate connection, and the second
defined using a wrapper macro.}
\label{fet}
@@ -1823,7 +1881,7 @@
\FR{thyristor} is derived from the diode and bipolar transistor macros.
Another example is the {\tt tgate} macro shown in \FR{Tgate}, which
also shows a pass transistor.
-\begin{figure}[ht]
+\begin{figure}[h!t]
% \ifpdf\vspace*{-\baselineskip}\fi%
\input TgateMan
\caption{The {\tt tgate({\sl linespec,} [B][R|L])} element, derived from
@@ -1835,13 +1893,12 @@
\label{Tgate}
\end{figure}
-\pagebreak
Some other non-two-terminal macros are {\tt dot}, which has an
optional argument ``{\tt at} {\sl location}'', the line-thickness
macros, the {\tt fill\_} macro, and {\tt crossover}, which is a useful if
archaic method to show non-touching conductor crossovers, as in
\FR{bistable}.
-\begin{figure}[ht]
+\begin{figure}[h!t]
\input bistableMan
% \vspace{-1ex}
\caption{Bipolar transistor circuit, illustrating {\tt crossover}
@@ -1873,6 +1930,8 @@
\noindent%
These macros depend heavily on the postprocessor and are intended only for
\PSTricks, \TPGF, \MetaPost, \SVG, and the Postscript or PDF output of \dpic.
+Basic \Pic\ objects are probably best colored and filled as discussed
+in \SR{Planarobjects:}.
\xection{Corners\label{Corners:}}%
If two straight lines meet at an angle then, depending on the postprocessor,
@@ -1898,6 +1957,7 @@
of the figure,
or a two-segment line can be overlaid at the corner to produce the same effect.
+\pagebreak
\xection{Looping\label{Looping:}}
Sequential actions can be performed using either the
\dpic command
@@ -1941,6 +2001,7 @@
first argument, which is treated as the line specification of a
two-terminal element.
\begin{figure}[h!]
+ \vspace*{-0.5\baselineskip}
\input LogicMan
\caption{Basic logic gates. The input and output locations of
a three-input NOR gate are shown. Inputs are negated by
@@ -1961,13 +2022,15 @@
\caption{$SR$ flip-flop.}
\label{FF}
\end{figure}
-\begin{figure}[ht]
+Beyond a default number (6) of inputs, the
+gates are given wings as in \FR{exVIII}.
+\begin{figure}[h!t]
\input mplex
+ \vspace*{-0.5\baselineskip}
\caption{Eight-input multiplexer, showing a gate with wings.}
\label{exVIII}
\end{figure}
-Beyond a default number (6) of inputs, the
-gates are given wings as in \FR{exVIII}.
+
Negated inputs or outputs are marked by circles drawn using the
\verb|NOT_circle| macro. The name marks the point at the outer edge of the
circle and the circle itself has the same name prefixed by~{\tt N\_}.
@@ -2035,7 +2098,8 @@
an invisible line like a two-terminal element, which is convenient sometimes
but requires internal locations of the block to be referenced using
{\tt last []}, as shown in \FR{Buffer}.
-\begin{figure}[ht]
+\begin{figure}[h!t]
+ \vspace*{-\baselineskip}
\input Buffer
\caption{The {\tt BUFFER\_gate} and {\tt BUFFER\_gen} macros.
The bottom two examples show how the gate can be drawn as a two-terminal
@@ -2071,7 +2135,6 @@
The {\sl pinopts} are {\tt [L|M|I|O][N][E]} as for the \verb|lg_pin| macro.
Optional argument 7 is the pin length in drawing units.
-\pagebreak
\FR{Multiplexer} shows a multiplexer block with variations, and
\FR{Demultiplexer} shows
the very similar demultiplexer.
@@ -2087,6 +2150,7 @@
[L][B|H|X][N[$n$]|S[$n$]][[N]OE],{\sl wid},{\sl ht})} macro.}
\label{Demultiplexer}
\end{figure}
+\pagebreak
Customized gates can be defined simply.
For example, the following code defines the custom flipflops in \FR{ShiftR}.
@@ -2104,7 +2168,6 @@
There are three pins on the right; the centre pin is null and
the bottom is null if the first macro argument is 1.
-\pagebreak
For hybrid applications, the \verb|dac| and \verb|adc| macros are
illustrated in \FR{Dac}.
The figure shows the default and predefined internal locations, the number
@@ -2175,7 +2238,8 @@
proportions of objects within it. You may wish to change the sizes or
proportions of individual elements within a diagram. You must take
into account that line widths are scaled separately from drawn objects,
-and that the size of typeset text is independent of the \pic language.
+and that the size of typeset text is independent of the \pic language
+except when svg is being produced.
The scaling of circuit elements will be described first, then
the \pic scaling facilities.
@@ -2287,7 +2351,7 @@
directory then the statement {\tt include(}{\sl mylibrary}{\tt.m4)}
can bring its definitions into play.
-\enlargethispage{\baselineskip}
+%\enlargethispage{\baselineskip}
It may not be necessary to define your own macro if all that is needed is
a small addition to an existing element that is defined in an enclosing
\verb|[ ]| block. After the element arguments are expanded,
@@ -2326,7 +2390,7 @@
of a series resistor and series inductor, and the macro {\tt tsection} defines
a subcircuit that is replicated several times to generate \FR{Tline}.
{\small \verbatiminput{Tline.m4}}
-\begin{figure}[h!]
+\begin{figure}[h!t]
% \ifpdf\vspace*{-\baselineskip}\fi%
\input Tline
\caption{A lumped model of a transmission line, illustrating the
@@ -2336,10 +2400,17 @@
\Example{3}
%\par\noindent {\bf Example 3:}
-Composite elements containing several basic elements may be
-required. \FR{HybridPi} shows a circuit that can be drawn in
-any reference direction prespecified by {\tt Point\_({\sl degrees})},
-containing labels that always appear in their natural horizontal orientation.
+\FR{HybridPi} shows an element that is composed of several basic
+elements and that can be drawn in any direction prespecified by
+{\tt Point\_({\sl degrees})}. The labels always appear in their natural
+horizontal orientation.
+\begin{figure}[h!t]
+ \vspace*{-0.5ex}
+ \input HybridPi
+ \vspace*{-0.5ex}
+ \caption{A composite element containing several basic elements}
+ \label{HybridPi}
+ \end{figure}
Two flags in the argument determine the circuit orientation with respect to
the current drawing direction and whether a mirrored circuit is drawn.
The key to writing such a macro is to observe that the \pic language
@@ -2379,15 +2450,7 @@
`"$\mathrm{r_o}$"' at Ro.c+vec_(hunit/4,0)
`$2' ] ')
\end{verbatim}
-\begin{figure}[ht]
- \vspace*{-0.5ex}
- \input HybridPi
- \vspace*{-0.5ex}
- \caption{A composite element containing several basic elements}
- \label{HybridPi}
- \end{figure}
-%\enlargethispage{\baselineskip}
\Example{4}
A number of elements have arguments meant explicitly for customization.
\FR{Sinus} customizes the {\tt source} macro to show a cycle of a horizontal sinusoid with adjustable phase given by argument 2 in degrees,
@@ -2534,6 +2597,73 @@
default it will be placed as if it were a box.
\fi
+\subsection{Macro arguments\label{Marcroarguments:}}
+Macro parameters are defined
+by entering them into specific arguments, and if an argument is blank then
+a default parameter is used.
+For the resistor macro, for example:
+
+{\tt resistor( {\sl linespec, cycles, chars, cycle wid} );}
+
+\noindent
+an integer (3, say) in the second argument specifies the number of cycles.
+Arguments could be entered in a key--value style (for example,
+{\tt resistor(up\_ elen\_,style=N;cycles=8}) instead of by positional
+parameters, but it was decided early on
+to keep macro usage as close as possible to \pic\ conventions.
+
+More recently, a mixed style has been adopted by which some
+parameters are entered using keys. Two macros assist this process,
+of which the first is
+
+{\tt setkey\_({\sl string, key, default value, }[N])}
+
+The first argument
+is taken to be a sequence of semicolon (;)-separated terms of the form
+{\tt key={\sl value};}.
+Then for example in a macro, the line
+
+{\tt setkey\_( `\$2', wdth, dimen\_*2 )}
+
+\noindent
+checks argument 2 for a term {\tt wdth=}{\sl value} and defines
+the macro {\tt m4wdth} to evaluate to
+{\tt (dimen\_*2)} if not found,
+otherwise to {\tt ({\sl value}).}
+The enclosing parentheses are omitted if the
+third argument of {\tt setkey\_} is {\tt N,} as may be required if {\tt m4wdth}
+is non-numeric.
+
+In addition, the macro
+
+{\tt setkeys\_({\sl string, keysequence})}
+
+\noindent
+applies {\tt setkey\_()} multiple times to its {\sl keysequence}
+(second) argument.
+Each term of the second argument consists of the three
+arguments of {\tt setkey\_} separated by the colons (:) rather than commas.
+
+For example, consider the elementary example of a custom box macro:
+
+\begin{verbatim}
+define(`custombox',
+`setkeys_(`$1',wdth:boxwid:; hgt:boxht:; label::N; text::N)
+ ifelse(m4label,,,m4label:) box wid m4wdth ht m4hgt "m4text" ')
+\end{verbatim}
+
+Then {\tt custombox(wdth=2; label=B1; text=Hello)}
+first causes the macros {\tt m4wdth, m4hgt, m4label,} and {\tt m4text}
+to be created, with values {\tt (2), (boxht), B1,} and {\tt Hello}
+respectively, and {\tt custombox} evaluates to
+
+{\tt B1:\ box wid (2) ht (boxht) "Hello"}.
+
+The key prefix {\tt m4} of the automatically created parameter macros can be
+redefined if necessary, since it is given in the distribution by the line
+{\tt define(`key\_prefix',`m4')}.
+
+
\xection{Interaction with \latex\label{Interaction:}}
The sizes of typeset labels and other \tex boxes are generally unknown
prior to processing the diagram by \latex.
@@ -2553,12 +2683,13 @@
The \pic interpreter cannot know the size of the text to the left
and right of the box, and the diagram is generated using
-default text values. One solution to this problem is to measure the
+default text size values. One solution to this problem is to measure the
text sizes by hand and include them literally, thus:\hfill\break
\hbox{}\quad%
\verb|"Left text" wid 38.47pt__ ht 7pt__ at B.w rjust|\hfill\break
but this is tedious.
+%\enlargethispage{\baselineskip}
Often, a better solution is to process the diagram twice. The
diagram source is processed as usual by \Mfour and a \pic processor, and the
main document source is \latex{}ed to input the diagram and format the
@@ -2579,7 +2710,7 @@
The argument of {\tt s\_box} need not be text exclusively; it can
be anything that produces a \TeX\ box, for example, \verb|\includegraphics|.
\end{itemize}
-\begin{figure}[ht]
+\begin{figure}[h!t]
\parbox{3.5in}{\small\tt.PS\\
gen\_init\\
sinclude(Circuit\_macros.dim)\\
@@ -2589,10 +2720,10 @@
\hbox{}\quad s\_box(Right text: \$x\^{}{\%g}\$,2) at B.e ljust\\
.PE}%
\hfill\llap{\raise-0.25in\hbox{\input stringdims }}%
- \caption{The macro {\tt s\_box} sets string dimensions automatically
+ \caption{Macro {\tt s\_box} sets string dimensions automatically
when processed twice. If two or more arguments are
given to {\tt s\_box}, they
- are passed through {\tt sprintf}. The dots show the figure bounding box.}
+ are passed through {\tt sprintf}. The bounding box is shown.}
\label{stringdim}
\end{figure}
@@ -2669,7 +2800,6 @@
Here is a second small example. Suppose that the file {\tt tsbox.m4} contains
the following:
-\pagebreak
\begin{verbatim}
\documentclass{article}
\usepackage{boxdims,ifpstricks(pstricks,tikz)}
@@ -2690,7 +2820,7 @@
The first command line produces a file {\tt tsbox.pdf} with
incorrect bounding box. The second command reads the data in {\tt tsbox.dim}
to size the label correctly. The equivalent pstricks commands (note
-the {\tt ifpstricks} macro in the second source line) are
+the {\tt ifpstricks} macro in the second line of the diagram source) are
{\tt m4 pstricks.m4 tsbox.m4 | dpic -p > tsbox.tex; latex tsbox}
\par
@@ -2889,7 +3019,7 @@
One of the easiest methods
for producing web documents is to generate postscript as usual and to
convert the result to pdf format with Adobe Distiller or equivalent.
-\begin{figure}[h!b]
+\begin{figure}[h!t]
% \ifpdf\vspace*{-\baselineskip}\fi%
\input Workflow
% \ifpdf\vspace*{-\baselineskip}\fi%
@@ -2944,61 +3074,63 @@
\verb|\includegraphics{|{\sl filename}\verb|.mps}|
as usual.
-The \dpic processor is capable of other output formats, as illustrated in
-\FR{Workflow} and in example files included with the distribution.
-The \latex drawing commands alone or with {\tt eepic} or {\tt pict2e}
-extensions are suitable only for simple diagrams.
+The \dpic processor can generate other output formats,
+as illustrated in \FR{Workflow} and in example files included with the
+distribution. The \latex drawing commands alone or with {\tt eepic}
+or {\tt pict2e} extensions are suitable only for simple diagrams.
\xection{Developer's notes\label{Developersnotes:}}
Years ago in the course of writing a book, I took a few days off to
-write a \pic-like interpreter (\dpic) to automate the tedious
-coordinate calculations required by \latex picture objects. The
-macros in this distribution and the interpreter are the result of that
-effort, drawings I have had to produce since, and suggestions received from
-others. The interpreter has been upgraded over time to generate
-\mfpic, \MetaPost~\cite{metapost}, raw \Postscript, \Postscript with
-{\tt psfrag} tags, raw PDF, \PSTricks, and
-Ti{\it k}Z PGF output, the latter two my preference
-because of their quality and flexibility, including facilities for colour
-and rotations, together with simple font selection.
+write a \pic-like interpreter (\dpic) to automate the tedious coordinate
+calculations required by \latex picture objects. The macros in this
+distribution and the interpreter are the result of that effort, drawings
+I have had to produce since, and suggestions received from others.
+The interpreter has been upgraded over time to generate \mfpic,
+\MetaPost~\cite{metapost}, raw \Postscript, \Postscript with {\tt
+psfrag} tags, raw PDF, \PSTricks, and Ti{\it k}Z PGF output, the latter
+two my preference because of their quality and flexibility, including
+facilities for colour and rotations, together with simple font selection.
\Xfig{}-compatible output was introduced early on to allow the creation of
-diagrams both by programming and by interactive graphics.
-\SVG output was added relatively recently, and seems suitable for
-producing web diagrams directly and for further editing by the
-Inkscape interactive graphics editor. The latest addition
-is raw PDF output, which has very basic text capability and is most
-suitable for creating diagrams without labels, but on which sophisticated
-text can be overlaid. \Dpic can write the coordinates of selected
-locations to an external file to be used in overlaying text or other
-items on the diagram.
+diagrams both by programming and by interactive graphics. \SVG output
+was added relatively recently, and seems suitable for producing web
+diagrams directly and for further editing by the Inkscape interactive
+graphics editor. The latest addition is raw PDF output, which has very
+basic text capability and is most suitable for creating diagrams without
+labels, but on which sophisticated text can be overlaid if necessary.
+\Dpic can write the coordinates of selected locations to an external
+file to be used in overlaying text or other items on the diagram.
-Instead of using \pic macros, I preferred the equally simple
-but more powerful \Mfour macro processor, and therefore \Mfour is
-required here, although \dpic now supports \pic-like macros. Free
-versions of \Mfour are available for Unix, Windows, and other
-operating systems.
+The main value of this distribution is not intended to be in the use
+of a specific language but in the element data encoded in the macros,
+which have been developed with reference to standards and refined over
+more than two decades, and which now total thousands of lines. Some of
+the macros have become less readable as more options and flexibility
+have been added, and if starting over today, perhaps I would change
+some details. Compromises have been made in order to retain reasonable
+compatibility with the variety of postprocessors. No choice of tool
+is without compromise, and producing good graphics seems to be time
+consuming, no matter how it is done, especially for circuits or other
+diagrams that contain random detail.
+Instead of using \pic macros, I preferred the equally simple but more
+powerful \Mfour macro processor, and therefore \Mfour is required here,
+although \dpic now supports \pic-like macros.
+% One way of viewing macro
+% preprocessing is to suggest that \Mfour is to the \pic language as the C
+% preprocessor is to the C language.
+Free versions of \Mfour are available
+for Unix and its descendents, Windows, and other operating systems.
+
If starting over today would I not just use one of the other drawing
-packages available these days? It would depend on the context, but
-\pic remains a good choice for line drawings because it is easy to learn
+packages available these days? It would depend on the context, but \pic
+remains a good choice for line drawings because it is easy to learn
and read but powerful enough for coding the geometrical calculations
required for precise component sizing and placement. It would be nice
if arbitrary rotations and scaling were simpler and if a general path
-element with clipping were available as in \Postscript. However, all the
-power of \Postscript or \TPGF, for example, remains available,
+element with clipping were available as in \Postscript. However,
+all the power of \Postscript or \TPGF, for example, remains available,
as arbitrary postprocessor code can be included with \pic code.
-The main value of this distribution is not in the use of a specific
-language but in the element data encoded in the macros, which have been
-developed with reference to standards and refined over two decades.
-Some of them have become less readable as more options and flexibility
-have been added, and if starting over today, perhaps I would change
-some details. Compromises have been made in order to retain reasonable
-compatibility with the variety of postprocessors. No choice of tool
-is without compromise, and producing good graphics seems to be time
-consuming, no matter how it is done, especially for circuits
-or other diagrams that contain random detail.
-
The \dpic interpreter has several output-format options that may be
useful. The {\tt eepicemu} and {\tt pict2e} extensions of the
primitive \latex picture objects are supported. The \mfpic output
@@ -3021,7 +3153,6 @@
responsible for ensuring that the correct fonts are provided and for
formatting the text.
-\pagebreak
Many thanks to the people who continue to send comments, questions,
and, occasionally, bug fixes. What began as a tool for my own use changed
into a hobby that has persisted, thanks to your help and advice.
@@ -3030,10 +3161,6 @@
This section provides hints and a list of common errors.
The distributed macros are not written for maximum robustness.
-Arguments could be entered in a key--value style (for example, {\tt
-resistor(up\_ elen\_,style=N;cycles=8}) instead of by positional
-parameters, but it was decided early on
-to keep macro usage as close as possible to \pic\ conventions.
Macro arguments could be tested for correctness and
explanatory error messages could be written as necessary, but that
would make the macros more difficult to read and to write. You will
@@ -3041,7 +3168,7 @@
to modify them.
Maintaining reasonable compatibility with both \gpic\ and \dpic
-and, especially, for different postprocessors, has
+and, especially, with different postprocessors, has
resulted in some macros becoming more complicated than is preferable.
Here are some hints, gleaned from experience and from comments I have
@@ -3087,7 +3214,7 @@
\item
\bflistitem{Initialization}{initialization}
If the first element macro evaluated is not two-terminal or is within a
-\Pic block, then later macros evaluated outside the block may produce
+\Pic\ block, then later macros evaluated outside the block may produce
the error message
{\tt there is no variable `rp\_ang'}
@@ -3157,8 +3284,8 @@
{\tt source(up\_)}
-\noindent draws a source up a distance equal to the current
-{\tt lineht} value, which may cause confusion.
+\noindent draws a source from the current position up a distance equal
+to the current {\tt lineht} value, which may cause confusion.
Writing
{\tt source(0.5)}
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/currents.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/currents.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/currents.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -17,7 +17,7 @@
{"\tt $\ldots$(i,below\_,O)" at last line + (0,-0.20)}
}
- move down_ 0.60
+ move down_ 0.50
{right_
resistor; b_current(i,,,E)
{"\tt b\_current(i,{,},E)" wid 1.2 at last line + (0,-0.20)}
@@ -32,7 +32,7 @@
{"\tt $\ldots$(i,below\_,O,E)" at last line + (0,-0.20)}
}
- move down_ 0.60
+ move down_ 0.55
{right_
del = 0.55
inductor; larrow(i)
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/defines.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/defines.tex 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/defines.tex 2021-06-03 20:45:51 UTC (rev 59444)
@@ -38,7 +38,7 @@
\noindent
\LR{A} \LR{B} \LR{C} \LR{D} \LR{E} \LR{F} \LR{G} \LR{H} \LR{I} \LR{J}
\LR{K} \LR{L} \LR{M} \LR{N} \LR{O} \LR{P}
-\LR{R} \LR{S} \LR{T} \LR{U} \LR{V} \LR{W} \LR{X}
+\LR{R} \LR{S} \LR{T} \LR{U} \LR{V} \LR{W} \LR{X} \LR{Y}
\\
\Letter{A}%
@@ -122,11 +122,11 @@
{gen}
{arc with acute angle (obtuse if radius is negative), drawn in a [ ] block}
\macrodef{ArcAngle}{ArcAngle}{({\sl position, position, position, radius,
- modifiers}) }
+ modifiers, label}) }
{gen}
{Arc angle symbol drawn ccw at arg2. Arg4 is the radius from arg2;
- arg5 contains line attributes, e.g., {\tt thick linethick/2}}
-
+ arg5 contains line attributes, e.g., {\tt thick linethick/2 ->};
+ arg6 is an optional label at mid-arc}
\macrodef{arcd}{arcd}{({\sl center},
{\sl radius},{\sl start degrees},{\sl end degrees}) }
{gen}
@@ -191,6 +191,9 @@
{Draw the tree for a gate as in the {\tt Autologix} macro. No inputs
or external connections are drawn. The names of the internal gate
inputs are stacked in {\tt `AutoInNames'}}
+\macrodef{assign3}{assign3}{({\sl var name,var name,var name,arg4,arg5,arg6})}
+ {gen}
+ {Assigns \$1 = arg4 if \$1 is nonblank; similarly \$2 = arg5 and \$3 = arg6}
\macrodef{Autologix}{Autologix}%
{({\sl Boolean function sequence},%
[N[oconnect]][L[eftinputs]][R][V][M][;offset={\sl value}]}
@@ -321,22 +324,27 @@
{buzzer, {\sl In1} to {\sl In3} defined, C=curved
\seesect{Composite:}}
\Letter{C}%
-\macrodef{c\_fet}{c_fet}{(\linespec,L|R,P)}
+\macrodef{c\_fet}{c_fet}{(\linespec,R,P)}
{cct}
{left or right, plain or negated pin simplified MOSFET}
-\macrodef{capacitor}{capacitor}{(\linespec,{\sl char}[+[L]],R,
+\macrodef{capacitor}{capacitor}{(\linespec,{\sl chars},R,
{\sl height}, {\sl wid})}
{cct}
- {capacitor, {\sl char}: F or none=flat plate, C=curved-plate,
- E=polarized boxed plates,
- K=filled boxed plates,
- M=unfilled boxes,
- M=one rectangular plate,
- P=alternate polarized; + adds a polarity sign;
+ {capacitor, {\sl chars}:
+ F or blank=flat plate;
+ dF flat plate with hatched fill;
+ C=curved-plate;
+ dC=curved-plate with variability arrowhead;
+ E=polarized boxed plates;
+ K=filled boxed plates;
+ M=unfilled boxes;
+ M=one rectangular plate;
+ P=alternate polarized;
+ + adds a polarity sign;
+L polarity sign to the left of drawing direction;
- arg3: R=reversed polarity,
+ arg3: R=reversed polarity;
arg4 = height (defaults F: {\tt dimen\_}$/3$,
- C,P: {\tt dimen\_}$/4$, E,K: {\tt dimen\_}$/5$)
+ C,P: {\tt dimen\_}$/4$, E,K: {\tt dimen\_}$/5$);
arg5 = wid (defaults F: {\sl height}*0.3,
C,P: {\sl height}*0.4, E,K: {\sl height}) \seesect{Twoterminal:}}
\macrodef{cbreaker}{cbreaker}{(\linespec,L|R,D|Th|TS)}
@@ -358,9 +366,17 @@
{gen}
{Upper (lower if arg5={\tt R}) intersection of circles at
{\sl Pos1} and {\sl Pos2}, radius {\sl rad1} and {\sl rad2}}
-\macrodef{clabel}{clabel}{({\sl label},{\sl label},{\sl label})}
+\macrodef{clabel}{clabel}{({\sl label},{\sl label},{\sl label},{\sl arg4},%
+ {\sl arg5})}
{cct}
- {centre triple label \seesect{Labels:}}
+ {Triple label along the drawing axis of an element in the current
+ direction \seesect{Labels:}. Labels are placed at the beginning,
+ centre, or end of the last {\tt []} block (or a named {\tt []}
+ block). The labels are treated as math, but copied literally if
+ in double quotes or defined by sprintf. {\sl Arg4} can be {\tt
+ above,} {\tt below,} {\tt left,} or {\tt right} to supplement the
+ default position. {\sl Arg5} is the optional name of a {\tt []}
+ block to be labelled and is {\tt last []} by default}
\macrodef{cm\_\_}{cm__}{}
{gen}
{absolute centiimetres}
@@ -433,10 +449,9 @@
{cct}
{controlled-source width}
\Letter{D}%
-\macrodef{d\_fet}{d_fet}{(\linespec,L|R,P,S,E|S)}
+\macrodef{d\_fet}{d_fet}{(\linespec,R,P,E|S)}
{cct}
- {left or right, N or P depletion MOSFET, normal or simplified,
- without or with envelope or thick channel
+ {left or right, N or P depletion MOSFET, envelope or simplified
\seesect{Semiconductors:}}
\macrodef{dabove}{dabove}{(at {\sl location})}
{darrow}
@@ -536,6 +551,11 @@
\macrodef{deleminit\_}{deleminit_}{}
{darrow}
{sets drawing direction for dlines}
+\macrodef{Deltasymbol}{Deltasymbol}{(at {\sl position},keys,
+ U|D|L|R|{\sl degrees}) (default {\tt U} for up)}
+ {cct}
+ {Delta symbol for power-system diagrams.
+ {\sl keys:} {\tt size={\sl expression}}}
\macrodef{Demux}{Demux}{({\sl n},{\sl label},
{\tt [L][B|H|X][N[{\sl n}]|S[{\sl n}]][[N]OE],
{\sl wid},{\sl ht}})}
@@ -591,6 +611,18 @@
{\tt Z}=zener;
appending {\tt K} to arg 2 draws open arrowheads;
arg 3: {\tt R}=reversed polarity, {\tt E}=enclosure \seesect{Twoterminal:}}
+%\macrodef{DIP}{DIP}{({\sl pin count, attributes})}%
+% {log}
+% {Dual in-line package diagram. Default pin count = 8.
+% Arg2 ({\sl attributes})= semicolon-separated list of optional terms:
+% {\tt bodywid=}{\sl expr} (default 0.25$\,$in${}={}$5{\tt *L\_unit}),
+% {\tt bodylen=}{\sl expr} (default {\sl pin count} $\times$ {\sl pin pitch}),
+% {\tt pinpitch=}{\sl expr} (default 0.1),
+% {\tt pinwid=}{\sl expr} (default 0.06),
+% {\tt pinlen=}{\sl expr} (default 0.05),
+% {\tt direct=U|D|L|R} (default {\tt U} for up),
+% {\tt type=I|Q} (default {\tt I}; Q=pins of alternating length)
+% \seesect{Logicgates:}}
\macrodef{dir\_}{dir_}{}
{darrow}
{used for temporary storage of direction by darrow macros}
@@ -714,10 +746,10 @@
\macrodef{e\_}{e_}{}
{gen}
{.e relative to current direction}
-\macrodef{e\_fet}{e_fet}{(\linespec,L|R,P,S,E|S)}
+\macrodef{e\_fet}{e_fet}{(\linespec,R,P,E|S)}
{cct}
{left or right, N or P enhancement MOSFET, normal
- or simplified, without or with envelope or thick channel
+ or simplified, without or with envelope
\seesect{Semiconductors:}}
\macrodef{earphone}{earphone}{( U|D|L|R|{\sl degrees, size})}
{cct}
@@ -766,6 +798,11 @@
{3D}
{vector projected on current view plane with top face
of 3-dimensonal arrowhead normal to x2,y2,z2 }
+\macrodef{Fe\_fet}{Fe_fet}{(\linespec,R,{\sl chars})}
+ {cct}
+ {FET with superimposed ferroelectric symbol. Args 1 to 3 are as for
+ the {\tt mosfet} macro
+ \seesect{Semiconductors:}}
\macrodef{FF\_ht}{FF_ht}{}
{cct}
{flipflop height parameter in {\tt L\_unit}s}
@@ -841,6 +878,10 @@
\macrodef{G\_hht}{G_hht}{}
{log}
{gate half-height in {\tt L\_unit}s}
+\macrodef{g\_fet}{g_fet}{(\linespec,R,P,{\sl shade spec})}
+ {cct}
+ {left or right, N or P graphene FET, without or with shading
+ \seesect{Semiconductors:}}
\macrodef{gap}{gap}{(\linespec,{\sl fill},A)}
{cct}
{gap with (filled) dots, A=chopped arrow between dots\seesect{Twoterminal:}}
@@ -972,11 +1013,14 @@
\macrodef{in\_\_}{in__}{}
{gen}
{absolute inches}
-\macrodef{inductor}{inductor}{(\linespec,W|L,{\sl n},[M|P],{\sl loop wid})}
+\macrodef{inductor}{inductor}{(\linespec, W|L, {\sl cycles}, M[n]|P[n]|K[n],
+ {\sl loop wid})}
{cct}
{inductor, arg2: narrow (default), W=wide, L=looped;
- arg3: {\sl n} arcs (default 4);
- arg4: M=magnetic core, P=powder (dashed) core,
+ arg3: number of arcs or cycles (default 4);
+ arg4: M=magnetic core, P=powder (dashed) core, K=long-dashed core,
+ n={\sl integer} (default 2) number of core lines named
+ {\sl M4Core1, M4Core2,} $\ldots$;
arg5: loop width (default L,W: {\tt dimen\_}/5; other: {\tt dimen\_}/8)
\seesect{Twoterminal:}}
\macrodef{inner\_prod}{inner_prod}{({\sl linear obj},{\sl linear obj})}
@@ -1092,9 +1136,17 @@
\macrodef{ljust\_}{ljust_}{}
{gen}
{ljust with respect to current direction}
-\macrodef{llabel}{llabel}{({\sl label},{\sl label},{\sl label})}
+\macrodef{llabel}{llabel}{({\sl label},{\sl label},{\sl label},{\sl arg4},%
+ {\sl arg5})}
{cct}
- {triple label on left side of the element \seesect{Labels:}}
+ {Triple label on the left of an element with respect to the current
+ direction \seesect{Labels:}. Labels are placed at the beginning,
+ centre, or end of the last {\tt []} block (or a named {\tt []}
+ block). The labels are treated as math, but copied literally if
+ in double quotes or defined by sprintf. {\sl Arg4} can be {\tt
+ above,} {\tt below,} {\tt left,} or {\tt right} to supplement the
+ default position. {\sl Arg5} is the optional name of a {\tt []}
+ block to be labelled and is {\tt last []} by default}
\macrodef{loc\_}{loc_}{({\sl x}, {\sl y})}
{gen}
{location adjusted for current direction}
@@ -1108,24 +1160,26 @@
\macrodef{loge}{loge}{}
{gen}
{logarithm, base $e$}
-\macrodef{Loopover\_}{Loopover_}{(`{\sl variable}',{\sl actions},{\sl value1,
+\macrodef{Loopover\_}{Loopover_}{(`{\sl variable}',{\sl actions},{\sl
+value1,
value2, $\ldots$})}
{gen}
{Repeat {\sl actions} with {\sl variable} set successively to
- {\sl value1, value2, $\ldots$}, setting macro {\tt m4Lx} to 1, 2, $\ldots$,
- terminating if {\sl variable} is nul}
+ {\sl value1, value2, $\ldots$}, setting macro {\tt m4Lx} to 1, 2,
+ $\ldots$, terminating if {\sl variable} is nul}
\macrodef{lp\_xy}{lp_xy}{}
{log}
{coordinates used by {\tt lg\_pin}}
-\macrodef{lpop}{lpop}{({\sl xcoord}, {\sl ycoord}, {\sl radius}, {\sl fill},
- {\sl zero ht})}
- {gen}
- {for lollipop graphs: filled circle with stem to (xcoord,zeroht)}
+\macrodef{lpop}{lpop}{({\sl xcoord}, {\sl ycoord}, {\sl radius},
+{\sl fill},
+ {\sl zero ht})} {gen}
+ {for lollipop graphs: filled circle with stem to
+ (xcoord,zeroht)}
\macrodef{lswitch}{lswitch}{( \linespec, L|R, {\sl chars} )}
{cct}
{knife switch R=right orientation (default L=left);
- {\sl chars}=[O{\tt|}C][D][K][A] O=opening arrow; C=closing arrow; D=dots;
- K=closed switch; A=blade arrowhead \seesect{Twoterminal:}}
+ {\sl chars}=[O{\tt|}C][D][K][A] O=opening arrow; C=closing arrow;
+ D=dots; K=closed switch; A=blade arrowhead \seesect{Twoterminal:}}
\macrodef{lt\_}{lt_}{}
{gen}
{left with respect to current direction}
@@ -1141,7 +1195,8 @@
{arrow with adjustable head, filled when possible}
\macrodef{m4dupstr}{m4dupstr}{({\sl string},{\sl n},`{\sl name}')}
{gen}
- {Defines {\sl name} as {\sl n} concatenated copies of {\sl string}.}
+ {Defines {\sl name} as {\sl n} concatenated copies of {\sl
+ string}.}
\macrodef{m4lstring}{m4lstring}{({\sl arg1},{\sl arg2})}
{gen}
{expand {\sl arg1} if it begins
@@ -1163,9 +1218,9 @@
{memristor element\seesect{Twoterminal:}}
\macrodef{microphone}{microphone}{( A|U|D|L|R|{\sl degrees, size})}
{cct}
- {microphone; if arg1 = A: upright mic, otherwise arg1 sets direction
- of standard microphone with
- {\sl In1} to {\sl In3} defined
+ {microphone; if arg1 = A: upright mic, otherwise arg1 sets
+ direction
+ of standard microphone with {\sl In1} to {\sl In3} defined
\seesect{Composite:}}
\macrodef{Min}{Min}{({\sl arg, arg, $\ldots$})}
{gen}
@@ -1181,8 +1236,8 @@
({\sl Position1,Position2,Position3,length,line attributes})}
{gen}
{e.g., {\tt mitre\_(A,B,C)} draws angle ABC with legs
- of length arg4 (default {\tt linethick bp\_\_/2});
- sets {\tt Here} to Position2
+ of length arg4 (default {\tt linethick bp\_\_/2}); sets {\tt Here}
+ to Position2
\seesect{Corners:}}
\macrodef{mm\_\_}{mm__}{}
{gen}
@@ -1189,25 +1244,20 @@
{absolute millimetres}
\macrodef{mosfet}{mosfet}{(\linespec,L|R,{\sl chars},E)}
{cct}
- {MOSFET left or right, included components defined by characters, envelope.
+ {MOSFET left or right, included components defined by characters,
+ envelope.
arg 3 chars:
- {\tt [u][d]B:} center bulk connection pin;
- {\tt D:} D pin and lead;
- {\tt E:} dashed substrate;
- {\tt F:} solid-line substrate;
- {\tt [u][d]G:} G pin to substrate at source;
- {\tt [u][d]H:} G pin to substrate at center;
- {\tt L:} G pin to channel (obsolete);
- {\tt [u][d]M:} G pin to channel; u: at drain end; d: at source end
- {\tt [u][d]M{\sl n}:} multiple gates G0 to G{\sl n}
- {\tt Py:} parallel diode;
- {\tt Pz:} parallel zener diode;
- {\tt Q:} connect B pin to S pin;
- {\tt R:} thick channel;
- {\tt [u][d]S:} S pin and lead u: arrow up; d: arrow down;
- {\tt [d]T:} G pin to center of channel d: not circle;
- {\tt X:} XMOSFET terminal;
- {\tt Z:} simplified complementary MOS
+ {\tt [u][d]B:} center bulk connection pin; {\tt D:} D pin and lead;
+ {\tt E:} dashed substrate; {\tt F:} solid-line substrate; {\tt
+ [u][d]G:} G pin to substrate at source; {\tt [u][d]H:} G pin to
+ substrate at center; {\tt L:} G pin to channel (obsolete); {\tt
+ [u][d]M:} G pin to channel; u: at drain end; d: at source end {\tt
+ [u][d]M{\sl n}:} multiple gates G0 to G{\sl n} {\tt Py:} parallel
+ diode; {\tt Pz:} parallel zener diode; {\tt Q:} connect B pin to
+ S pin; {\tt R:} thick channel; {\tt [u][d]S:} S pin and lead u:
+ arrow up; d: arrow down; {\tt [d]T:} G pin to center of channel
+ d: not circle; {\tt X:} XMOSFET terminal; {\tt Z:} simplified
+ complementary MOS
\seesect{Semiconductors:}}
\macrodef{Mux\_ht}{Mux_ht}{}
{cct}
@@ -1216,19 +1266,15 @@
{cct}
{Mux width parameter in {\tt L\_unit}s}
\macrodef{Mux}{Mux}{({\sl n},{\sl label},
- {\tt [L][B|H|X][N[{\sl n}]|S[{\sl n}]][[N]OE],
- {\sl wid},{\sl ht}})}
+ {\tt [L][B|H|X][N[{\sl n}]|S[{\sl n}]][[N]OE], {\sl wid},{\sl ht}})}
{log}
{binary multiplexer, $n$ inputs,
- {\tt L} reverses input pin numbers,
- {\tt B} display binary pin numbers,
- {\tt H} display hexadecimal pin numbers,
- {\tt X} do not print pin numbers,
- {\tt N[{\sl n}]} puts Sel or Sel$0$ .. Sel$n$ at the top
- (i.e., to the left of the drawing direction),
- {\tt S[{\sl n}]} puts the Sel inputs at the bottom (default)
- {\tt OE} ({\tt N=}negated) {\tt OE} pin
- \seesect{Logicgates:}}
+ {\tt L} reverses input pin numbers, {\tt B} display binary pin
+ numbers, {\tt H} display hexadecimal pin numbers, {\tt X} do not
+ print pin numbers, {\tt N[{\sl n}]} puts Sel or Sel$0$ .. Sel$n$
+ at the top (i.e., to the left of the drawing direction), {\tt
+ S[{\sl n}]} puts the Sel inputs at the bottom (default) {\tt OE}
+ ({\tt N=}negated) {\tt OE} pin \seesect{Logicgates:}}
\macrodef{Mx\_pins}{Mx_pins}{}
{log}
{max number of gate inputs without wings}
@@ -1245,8 +1291,8 @@
\macrodef{NAND\_gate}{NAND_gate}{({\sl n},N)}
{log}
{`nand' gate, 2 or {\sl n\/} inputs; N=negated input.
- Otherwise, arg1 can be a sequence of letters {\tt P|N}
- to define normal or negated inputs.
+ Otherwise, arg1 can be a sequence of letters {\tt P|N} to define
+ normal or negated inputs.
\seesect{Logicgates:}}
\macrodef{ne\_}{ne_}{}
{gen}
@@ -1253,7 +1299,8 @@
{.ne with respect to current direction}
\macrodef{NeedDpicTools}{NeedDpicTools}{}
{gen}
- {executes {\tt copy "HOMELIB\_/dpictools.pic"} if the file has not been read}
+ {executes {\tt copy "HOMELIB\_/dpictools.pic"} if the file has
+ not been read}
\macrodef{neg\_}{neg_}{}
{gen}
{unary negation}
@@ -1260,8 +1307,8 @@
\macrodef{NOR\_gate}{NOR_gate}{({\sl n},N)}
{log}
{`nor' gate, 2 or {\sl n\/} inputs; N=negated input.
- Otherwise, arg1 can be a sequence of letters {\tt P|N}
- to define normal or negated inputs.
+ Otherwise, arg1 can be a sequence of letters {\tt P|N} to define
+ normal or negated inputs.
\seesect{Logicgates:}}
\macrodef{norator}{norator}{(\linespec,{\sl width},{\sl ht})}
{cct}
@@ -1269,13 +1316,14 @@
\macrodef{NOT\_circle}{NOT_circle}{}
{log}
{`not' circle}
-\macrodef{NOT\_gate}{NOT_gate}{(\linespec,[B][N|n],{\sl wid},{\sl height})}
+\macrodef{NOT\_gate}{NOT_gate}{(\linespec,[B][N|n],{\sl wid},{\sl
+height})}
{log}
{`not' gate.
When {\sl linespec} is blank then the element is composite and In1,
- Out, C, NE, and SE are defined; otherwise the element is drawn as
- a two-terminal element. arg2: {\tt B}=box gate, {\tt N}=not circle at input
- and output, {\tt n}=not circle at input only
+ Out, C, NE, and SE are defined; otherwise the element is drawn as a
+ two-terminal element. arg2: {\tt B}=box gate, {\tt N}=not circle at
+ input and output, {\tt n}=not circle at input only
\seesect{Logicgates:}}
\macrodef{NOT\_rad}{NOT_rad}{}
{log}
@@ -1289,21 +1337,20 @@
nw,nn,ne,ns,space ratio,pin lgth,style, other commands})}
{cct}
{ Default is a standard-box twoport. Args 2 to 5 are
- the number of ports to be drawn on w, n, e, s sides.
- The port pins are named by side, number, and by a or b pin,
- e.g., W1a, W1b, W2a, $\ldots$
- Arg 6 specifies the ratio of port width to interport space (default 2),
- and arg 7 is the pin length. Set arg 8 to N to omit the dots on
- the port pins. Arguments 1 and 9 allow customizations
+ the number of ports to be drawn on w, n, e, s sides. The port pins
+ are named by side, number, and by a or b pin, e.g., W1a, W1b, W2a,
+ $\ldots$ Arg 6 specifies the ratio of port width to interport space
+ (default 2), and arg 7 is the pin length. Set arg 8 to N to omit
+ the dots on the port pins. Arguments 1 and 9 allow customizations
\seesect{Composite:}}
\macrodef{nterm}{nterm}{({\sl box spec{\tt ;}other commands,
nw,nn,ne,ns,pin lgth,style, other commands})}
{cct}
{n-terminal box macro (default three pins).
- Args 2 to 5 are the number of pins to be drawn on W, N, E, S sides.
- The pins are named by side and number, e.g. W1, W2, N1, $\ldots$
- Arg 6 is the pin length. Set arg 7 to N to omit the dots
- on the pins. Arguments 1 and 8 allow customizations, e.g.
+ Args 2 to 5 are the number of pins to be drawn on W, N, E, S
+ sides. The pins are named by side and number, e.g. W1, W2, N1,
+ $\ldots$ Arg 6 is the pin length. Set arg 7 to N to omit the
+ dots on the pins. Arguments 1 and 8 allow customizations, e.g.
{\tt nterm(,{,},{,},{,}N,"\$a\$" at Box.w ljust,"\$b\$" at Box.e rjust,
"\$c\$" at Box.s above)} }
\macrodef{nullator}{nullator}{(\linespec,{\sl width},{\sl ht})}
@@ -1315,18 +1362,20 @@
\macrodef{NXOR\_gate}{NXOR_gate}{({\sl n},N)}
{log}
{`nxor' gate, 2 or {\sl n\/} inputs; N=negated input.
- Otherwise, arg1 can be a sequence of letters {\tt P|N}
- to define normal or negated inputs.
+ Otherwise, arg1 can be a sequence of letters {\tt P|N} to define
+ normal or negated inputs.
\seesect{Logicgates:}}
\Letter{O}%
-\macrodef{opamp}{opamp}{(\linespec,{\sl label},{\sl label},{\sl size},{\sl
+\macrodef{opamp}{opamp}{(\linespec,{\sl label},{\sl
+label},{\sl size},{\sl
chars}, other commands)}
{cct}
{operational amplifier with $-,$ $+$ or other internal labels,
- specified size. {\sl chars:} {\tt P=} add power connections,
- {\tt R=} swap In1, In2 labels,
- {\tt T=} truncated point.
- The first and last arguments allow added customizations
+ specified size. {\sl chars:} {\tt P=} add power connections, {\tt
+ R=} swap In1, In2 labels, {\tt T=} truncated point. The internally
+ defined positions are {\sl W, N, E, S, Out, NE, SE, In, In2}, and
+ the (obsolete) positions {\sl E1 = NE, E2 = SE}. The first and last
+ arguments allow added customizations
\seesect{Composite:}}
\macrodef{open\_arrow}{open_arrow}{(\linespec,{\sl ht},{\sl wid})}
{gen}
@@ -1334,40 +1383,39 @@
\macrodef{OR\_gate}{OR_gate}{({\sl n},N)}
{log}
{`or' gate, 2 or {\sl n\/} inputs; N=negated input.
- Otherwise, arg1 can be a sequence of letters {\tt P|N}
- to define normal or negated inputs.
+ Otherwise, arg1 can be a sequence of letters {\tt P|N} to define
+ normal or negated inputs.
\seesect{Logicgates:}}
\macrodef{OR\_gen}{OR_gen}{($n$,{\sl chars},[{\sl wid},[{\sl ht}]])}
{log}
{general OR gate: $n$=number of inputs $(0\leq n\leq 16)$;
{\sl chars:} B=base and straight sides; A=Arcs;
- [N]NE,[N]SE,[N]I,[N]N,[N]S=inputs or circles;
- [N]P=XOR arc; [N]O=output; C=center.
- Otherwise, arg1 can be a sequence of letters {\tt P|N}
- to define normal or negated inputs.}
+ [N]NE,[N]SE,[N]I,[N]N,[N]S=inputs or circles; [N]P=XOR arc;
+ [N]O=output; C=center.
+ Otherwise, arg1 can be a sequence of letters {\tt P|N} to define
+ normal or negated inputs.}
\macrodef{OR\_rad}{OR_rad}{}
{log}
{radius of OR input face in {\tt L\_unit}s}
\Letter{P}%
-\macrodef{parallel\_}{parallel_}{(\char96{\sl elementspec}\char39,%
+\macrodef{parallel\_}{parallel_}{(\char96{\sl
+elementspec}\char39,%
\char96{\sl elementspec}\char39 $\ldots$)}
{cct}
- { Parallel combination of two-terminal elements in a {\tt [ ]} block.
- Each argument is a {\em quoted} elementspec of the form
- {\tt[Sep={\sl val};][{\sl Label}:] {\sl element}; [{\sl attributes}]}
- where an {\sl attribute} is of the form
- {\tt[llabel($\ldots$);] | [rlabel($\ldots$);] | [b\_current($\ldots$);]}.
- An argument may also be {\tt series\_($\ldots$)} or
- {\tt parallel\_($\ldots$)} {\em without} attributes or quotes.
- Sep={\sl val}; in the first branch sets the default
- separation of all branches to {\sl val}; in a later
- element Sep={\sl val}; applies only to that branch.
- An element may have normal arguments but should
- not change the drawing direction.
+ { Parallel combination of two-terminal elements in a {\tt [
+ ]} block.
+ Each argument is a {\em quoted} elementspec of the form {\tt[Sep={\sl
+ val};][{\sl Label}:] {\sl element}; [{\sl attributes}]} where
+ an {\sl attribute} is of the form {\tt[llabel($\ldots$);] |
+ [rlabel($\ldots$);] | [b\_current($\ldots$);]}. An argument may
+ also be {\tt series\_($\ldots$)} or {\tt parallel\_($\ldots$)} {\em
+ without} attributes or quotes. Sep={\sl val}; in the first branch
+ sets the default separation of all branches to {\sl val}; in a later
+ element Sep={\sl val}; applies only to that branch. An element may
+ have normal arguments but should not change the drawing direction.
\seesect{Seriesandparallel:}}
%\macrodef{par\_}{par_}{({\sl element},{\sl element},{\sl separation})}
-% {cct}
-% {two same-direction, same-length elements in parallel}
+% {cct} % {two same-direction, same-length elements in parallel}
\macrodef{proximity}{proximity}{(\sl linespec)}
{cct}
{proximity detector (= {\tt consource(,P)})}
@@ -1383,13 +1431,9 @@
\macrodef{pconnex}{pconnex}{(R|L|U|D|{\sl degrees},{\sl chars})}
{cct}
{power connectors, arg 1: drawing direction; {\sl chars:}
- {\tt R}=right orientation,
- {\tt M|F}= male, female,
- {\tt A|AC}=115V, 3 prong, B=box, C=circle,
- {\tt P}= PC connector,
- {\tt D}= 2-pin connector,
- {\tt G|GC}= GB 3-pin,
- {\tt J}= 110V 2-pin
+ {\tt R}=right orientation, {\tt M|F}= male, female, {\tt A|AC}=115V,
+ 3 prong, B=box, C=circle, {\tt P}= PC connector, {\tt D}= 2-pin
+ connector, {\tt G|GC}= GB 3-pin, {\tt J}= 110V 2-pin
\seesect{Composite:}}
\macrodef{pi\_}{pi_}{}
{gen}
@@ -1397,8 +1441,7 @@
\macrodef{plug}{plug}{(U|D|L|R|{\sl degrees},[2|3][R])}
{cct}
{arg1: drawing direction; string arg2: {\tt R} right orientation,
- {\tt 2|3} number of conductors
- \seesect{Composite:}}
+ {\tt 2|3} number of conductors \seesect{Composite:}}
\macrodef{pmod}{pmod}{({\sl integer}, {\sl integer})}
{gen}
{+ve $\hbox{mod}(M,N)$ e.g., $\hbox{\tt pmod}(-3,5)=2$}
@@ -1407,7 +1450,8 @@
{(radians) set direction cosines}
\macrodef{PerpTo}{PerpTo}{({\sl Pos1, Line, Point})}
{gen}
- {{\sl Point} is the label for the point on {\sl Line} of the perpendicular
+ {{\sl Point} is the label for the point on {\sl Line} of the
+ perpendicular
from {\sl Point} to {\sl Line}.}
\macrodef{Point\_}{Point_}{({\sl integer})}
{gen}
@@ -1417,22 +1461,21 @@
{rectangular-to polar conversion}
\macrodef{langle}{langle}{({\sl Start, End})}
{gen}
- {Angle in radians from horizontal of the line from {\sl Start} to {\sl End}.}
+ {Angle in radians from horizontal of the line from {\sl Start}
+ to {\sl End}.}
\macrodef{potentiometer}{potentiometer}{(\linespec,%
- {\sl cycles},{\sl fractional pos},{\sl length},$\cdots$)}
- {cct}
+ {\sl cycles},{\sl fractional pos},{\sl length},$\cdots$)} {cct}
{resistor with taps T1, T2, $\ldots$
- with specified fractional positions and lengths (possibly neg)
+ with specified fractional positions and lengths (possibly neg)
\seesect{Composite:}}
\macrodef{print3D}{print3D}{(x,y,z)}
- {3D}
- {write out triple for debugging}
+ {3D} {write out triple for debugging}
\macrodef{prod\_}{prod_}{({\sl a},{\sl b})}
{gen}
{binary multiplication}
\macrodef{project}{project}{({\sl x},({\sl y},({\sl z})}
- {3D}
- {3D to 2D projection onto the plane perpendicular to the view vector with
+ {3D} {3D to 2D projection onto the plane perpendicular to the view
+ vector with
angles defined by {\tt setview({\sl azim, elev})}}
\macrodef{psset\_}{psset_}{({\sl PSTricks settings})}
{gen}
@@ -1440,6 +1483,11 @@
\macrodef{pt\_\_}{pt__}{}
{gen}
{\TeX\ point-size factor, in scaled inches, ({\tt *scale/72.27})}
+\macrodef{PtoL}{PtoL}{({\sl position}, U|D|L|R|{\sl degrees}, {\sl length}) }
+ {gen}
+ {Evaluates to {\tt from {\sl position} to
+ {\sl position} + Rect\_({\sl length, angle}) }
+ from the polar-coordinate data in the arguments }
\macrodef{ptrans}{ptrans}{(\linespec, [R|L])}
{cct}
{pass transistor; {\tt L=} left orientation
@@ -1458,40 +1506,31 @@
\macrodef{rect\_}{rect_}{({\sl radius},{\sl angle})}
{gen}
{(radians) polar-rectangular conversion}
-\macrodef{reed}{reed}{({\sl linespec, width, height, box attribues}, [R][C])}
+\macrodef{reed}{reed}{({\sl linespec, width, height, box attribues},
+[R][C])}
{cct}
{Enclosed reed two-terminal contact;
- {\tt R}=right orientation; {\tt C}=closed contact;
- e.g., {\tt reed(,,dimen\_/5,shaded "lightgreen"}
- \seesect{Composite:}}
+ {\tt R}=right orientation; {\tt C}=closed contact; e.g., {\tt
+ reed(,,dimen\_/5,shaded "lightgreen"} \seesect{Composite:}}
\macrodef{relay}{relay}{({\sl number of poles, chars})}
{cct}
{relay: n poles (default 1), {\sl chars:} {\tt O}=normally open,
- {\tt C}=normally closed, {\tt P}=three position, default double throw,
- {\tt L}=drawn left (default),
- {\tt R}=drawn right, {\tt Th}=thermal.
- Argument 3={\tt [L|R]} is deprecated but works for
+ {\tt C}=normally closed, {\tt P}=three position, default double
+ throw, {\tt L}=drawn left (default), {\tt R}=drawn right, {\tt
+ Th}=thermal. Argument 3={\tt [L|R]} is deprecated but works for
backward compatibility
\seesect{Composite:}}
-\macrodef{relaycoil}{relaycoil}{({\sl chars, wid, ht,} R|L|U|D|{\sl degrees})}
+\macrodef{relaycoil}{relaycoil}{({\sl chars, wid, ht,} R|L|U|D|{\sl
+degrees})}
{cct}
- {chars:
- {\tt X}=or default: external lines from A2 and B2;
- {\tt AX}=external lines at positions A1,A3;
- {\tt BX}=external lines at positions B1,B3;
- {\tt NX}=no lines at positions A1,A2,A3,B1,B2,B3;
- {\tt SO}=slow operating;
- {\tt SOR}=slow operating and release;
- {\tt SR}=slow release;
- {\tt HS}=hight speed;
- {\tt HS}=hight speed;
- {\tt NAC}=unaffected by AC current;
- {\tt AC AC}=current;
- {\tt ML}=mechanically latched;
- {\tt PO}=polarized;
- {\tt RM}=remanent;
- {\tt RH}=remanent;
- {\tt TH}=thermal;
+ {chars:
+ {\tt X}=or default: external lines from A2 and B2; {\tt AX}=external
+ lines at positions A1,A3; {\tt BX}=external lines at positions
+ B1,B3; {\tt NX}=no lines at positions A1,A2,A3,B1,B2,B3; {\tt
+ SO}=slow operating; {\tt SOR}=slow operating and release; {\tt
+ SR}=slow release; {\tt HS}=high speed; {\tt NAC}=unaffected by AC
+ current; {\tt AC AC}=current; {\tt ML}=mechanically latched; {\tt
+ PO}=polarized; {\tt RM}=remanent; {\tt RH}=remanent; {\tt TH}=thermal;
{\tt EL}=electronic
\seesect{Composite:}}
\macrodef{resetdir\_}{resetdir_)}{}
@@ -1504,14 +1543,10 @@
cycle wid})}
{cct}
{resistor, n cycles (default 3), {\sl chars:}
- {\tt E}={\tt ebox},
- {\tt ES}={\tt ebox} with slash,
- {\tt Q}=offset,
- {\tt H}=squared,
- {\tt N}=IEEE,
- {\tt V}=varistor variant,
- {\tt R}=right-oriented,
- {\sl cycle width} (default {\tt dimen\_}$/6$) \seesect{Twoterminal:}}
+ {\tt E}={\tt ebox}, {\tt ES}={\tt ebox} with slash, {\tt Q}=offset,
+ {\tt H}=squared, {\tt N}=IEEE, {\tt B}=not burnable, {\tt V}=varistor
+ variant, {\tt R}=right-oriented, {\sl cycle width} (default {\tt
+ dimen\_}$/6$) \seesect{Twoterminal:}}
\macrodef{resized}{resized}{({\sl factor},`{\sl macro name}',args)}
{cct}
{scale the element body size by {\sl factor}}
@@ -1526,47 +1561,51 @@
{gen}
{color drawing for PSTricks, pgf, MetaPost, SVG postprocessors;
(color entries are 0 to 1 except for SVG entries which are 0 to 255),
- see {\tt setrgb} \seesect{Semiconductors:}.
- Exceptionally, the color of
- SVG arrows other than the default black has to be defined using
- the {\tt outlined }{\sl string} and {\tt shaded }{\sl string} constructs.}
+ see {\tt setrgb} \seesect{Semiconductors:}. Exceptionally, the color
+ of SVG arrows other than the default black has to be defined using the
+ {\tt outlined }{\sl string} and {\tt shaded }{\sl string} constructs.}
\macrodef{rgbfill}{rgbfill}{({\sl color triple}, {\sl closed path})}
{gen}
- {fill with arbitrary color (color entries are 0 to 1 except
- SVG entries which are 0 to 255); see {\tt setrgb}\seesect{Semiconductors:}}
+ {fill with arbitrary color (color entries are 0 to 1 except
+ SVG entries which are 0 to 255); see {\tt
+ setrgb}\seesect{Semiconductors:}}
\macrodef{rgbstring}{rgbstring}{({\sl color triple or color name})}
{gen}
{evaluates to a string compatible with the postprocessor in use
to go with {\tt colored}, {\tt shaded}, or {\tt outlined} attributes.
- (PSTricks, metapost, pgf-tikz, pdf, postscript, svg).
- The arguments are fractions
- in the range $[0,1]$; For example,
- {\tt box outlined rgbstring(0.1,0.2,0.7) shaded rgbstring(0.75,0.5,0.25)}.
- For those postprocessors that allow it,
- there can be one argument which is the name of a defined color}
+ (PSTricks, metapost, pgf-tikz, pdf, postscript, svg). The arguments
+ are fractions in the range $[0,1]$; For example, {\tt box outlined
+ rgbstring(0.1,0.2,0.7) shaded rgbstring(0.75,0.5,0.25)}. For those
+ postprocessors that allow it, there can be one argument which is the
+ name of a defined color}
\macrodef{right\_}{right_}{}
{gen}
{set current direction right \seesect{Placing:}}
\macrodef{RightAngle}{RightAngle}{({\sl Pos1, Pos2, Pos3, line len,
- attributes})}
- {gen}
- {Draw a right-angle symbol at {\sl Pos2}, of size given by arg4. Arg5 =
+ attributes})} {gen}
+ {Draw a right-angle symbol at {\sl Pos2}, of size
+ given by arg4. Arg5 =
line attributes, e.g., {\tt outlined "gray"}}
\macrodef{rjust\_}{rjust_}{}
{gen}
{right justify with respect to current direction}
-\macrodef{rlabel}{rlabel}{({\sl label},{\sl label},{\sl label})}
+\macrodef{rlabel}{rlabel}{({\sl label},{\sl label},{\sl label},{\sl arg4},%
+ {\sl arg5})}
{cct}
- {triple label on right side of the element \seesect{Labels:}}
+ {Triple label on the right of an element with respect to the current
+ direction \seesect{Labels:}. Labels are placed at the beginning,
+ centre, or end of the last {\tt []} block (or a named {\tt []}
+ block). The labels are treated as math, but copied literally if
+ in double quotes or defined by sprintf. {\sl Arg4} can be {\tt
+ above,} {\tt below,} {\tt left,} or {\tt right} to supplement the
+ default position. {\sl Arg5} is the optional name of a {\tt []}
+ block to be labelled and is {\tt last []} by default}
\macrodef{rot3Dx}{rot3Dx}{({\sl radians,x,y,z})}
- {3D}
- {rotates x,y,z about x axis}
+ {3D} {rotates x,y,z about x axis}
\macrodef{rot3Dy}{rot3Dy}{({\sl radians,x,y,z})}
- {3D}
- {rotates x,y,z about y axis}
+ {3D} {rotates x,y,z about y axis}
\macrodef{rot3Dz}{rot3Dz}{({\sl radians,x,y,z})}
- {3D}
- {rotates x,y,z about z axis}
+ {3D} {rotates x,y,z about z axis}
\macrodef{Rot\_}{Rot_}{({\sl position, degrees})}
{gen}
{rotate position by degrees}
@@ -1576,20 +1615,20 @@
\macrodef{rotbox}{rotbox}{({\sl wid,ht,type},[r|t={\sl val}])}
{gen}
{box oriented in current direction in {\tt [ ]} block;
- {\sl type}= e.g. {\tt dotted shaded "green".} Defined
- internal locations: N, E, S, W (and NE, SE, NW, SW if arg4 is blank).
- If arg4 is {\tt r=}{\sl val} then corners have radius {\sl val}.
- If arg4 is {\tt t=}{\sl val} then a spline with tension {\sl val}
- is used to draw a ``superellipse,'' and the bounding box is then
- only approximate. }
+ {\sl type}= e.g. {\tt dotted shaded "green".} Defined internal
+ locations: N, E, S, W (and NE, SE, NW, SW if arg4 is blank). If arg4
+ is {\tt r=}{\sl val} then corners have radius {\sl val}. If arg4 is
+ {\tt t=}{\sl val} then a spline with tension {\sl val} is used to draw
+ a ``superellipse,'' and the bounding box is then only approximate. }
\macrodef{rotellipse}{rotellipse}{({\sl wid,ht,type})}
{gen}
{ellipse oriented in current direction in {\tt [ ]} block;
- e.g. {\tt Point\_(45); rotellipse(,{},dotted fill\_(0.9)).} Defined internal
- locations: N, S, E, W.}
+ e.g. {\tt Point\_(45); rotellipse(,{},dotted fill\_(0.9)).} Defined
+ internal locations: N, S, E, W.}
\macrodef{round}{round}{(at {\sl location,line thickness,attributes})}
{gen}
- {filled circle for rounded corners; attributes={\tt colored "gray"}
+ {filled circle for rounded corners; attributes={\tt colored
+ "gray"}
for example; leaves {\tt Here} unchanged if arg1 is blank
\seesect{Corners:}}
\macrodef{rpoint\_}{rpoint_}{(\linespec)}
@@ -1639,7 +1678,8 @@
\seesect{Interaction:}}
\macrodef{s\_init}{s_init}{({\sl name})}
{gen}
- {initialize {\tt s\_box} string label to {\sl name} which should be unique
+ {initialize {\tt s\_box} string label to {\sl name} which should
+ be unique
\seesect{Interaction:}}
\macrodef{s\_name}{s_name}{}
{gen}
@@ -1674,43 +1714,50 @@
\macrodef{se\_}{se_}{}
{gen}
{.se with respect to current direction}
-\macrodef{series\_}{series_}{({\sl elementspec}, {\sl elementspec}, $\ldots$)}
+\macrodef{series\_}{series_}{({\sl elementspec}, {\sl elementspec},
+$\ldots$)}
{cct}
{ Series combination in a {\tt []} block of elements
- with shortened default length. An {\sl elementspec} is of the form
- {\tt [{\sl Label}:] {\sl element}; [{\sl attributes}]},
- where an {\sl attribute} is of the form
- {\tt [llabel($\ldots$);] | [rlabel($\ldots$);] [b\_current($\ldots$);]}.
- Internal points {\tt Start}, {\tt End}, and {\tt C} are defined
+ with shortened default length. An {\sl elementspec} is of the
+ form {\tt [{\sl Label}:] {\sl element}; [{\sl attributes}]},
+ where an {\sl attribute} is of the form {\tt [llabel($\ldots$);] |
+ [rlabel($\ldots$);] [b\_current($\ldots$);]}. Internal points {\tt
+ Start}, {\tt End}, and {\tt C} are defined
\seesect{Seriesandparallel:} }
-\macrodef{setdir\_}{setdir_}{(R|L|U|D|{\sl degrees}, {\sl default} U|D|R|L|{\sl degrees})}
+\macrodef{setdir\_}{setdir_}{(R|L|U|D|{\sl degrees}, {\sl default}
+U|D|R|L|{\sl degrees})}
{gen}
{store drawing direction and set it to
- up, down, left, right, or angle in degrees (reset by {\tt resetdir\_}).
- The directions may be spelled out, i.e., Right, Left, $\ldots$
+ up, down, left, right, or angle in degrees (reset by {\tt
+ resetdir\_}). The directions may be spelled out, i.e., Right,
+ Left, $\ldots$
\seesect{Seriesandparallel:}}
\macrodef{setrgb}{setrgb}{({\sl red value, green value, blue value},[{\sl
name}])}
{gen}
- {define colour for lines and text, optionally named (default {\tt lcspec});
+ {define colour for lines and text, optionally named (default
+ {\tt lcspec});
svg values are integers from 0 to 255\seesect{Semiconductors:}}
\macrodef{setkey\_}{setkey_}{({\sl string, key, default,}[N])}
{gen}
- {Key-value definition. The string contains semicolon-separated terms
+ {Key-value definition. The string contains semicolon-separated
+ terms
of the form {\sl key}{\tt =}{\sl value}. Then macro {\tt m4{\sl key}}
- is defined using {\tt pushdef} to be {\tt ({\sl value})} but if arg4 is
- nonbland, the parentheses are omitted.}
-\macrodef{setview}{setview}{({\sl azimuth degrees},{\sl elevation degrees})}
- {3D}
- {set projection viewpoint}
-\macrodef{sfg\_init}{sfg_init}{({\sl default line len, node rad, arrowhd len,
- arrowhd wid}), (reads {\tt libcct.m4})}
- {cct}
- {initialization of signal flow graph macros}
+ is defined using {\tt pushdef} to be {\tt ({\sl value})} but if arg4
+ is nonbland, the parentheses are omitted.}
+\macrodef{setview}{setview}{({\sl azimuth degrees},{\sl elevation
+degrees})}
+ {3D} {set projection viewpoint}
+\macrodef{sfg\_init}{sfg_init}{({\sl default line len, node rad,
+arrowhd len,
+ arrowhd wid}), (reads {\tt libcct.m4})} {cct}
+ {initialization of signal
+ flow graph macros}
\macrodef{sfgabove}{sfgabove}{}
{cct}
{like above but with extra space}
-\macrodef{sfgarc}{sfgarc}{(\linespec,{\sl text},{\sl text justification},cw|ccw,
+\macrodef{sfgarc}{sfgarc}{(\linespec,{\sl text},{\sl text
+justification},cw|ccw,
{\sl height scale factor})}
{cct}
{directed arc drawn between nodes, with text label
@@ -1718,16 +1765,17 @@
\macrodef{sfgbelow}{sfgbelow}{}
{cct}
{like below but with extra space}
-\macrodef{sfgline}{sfgline}{(\linespec,{\sl text},{\sl text justification})}
+\macrodef{sfgline}{sfgline}{(\linespec,{\sl text},{\sl text
+justification})}
{cct}
{directed straight line chopped by node radius, with text label}
\macrodef{sfgnode}{sfgnode}{(at {\sl location},{\sl text},above|below,{\sl
circle options})}
{cct}
- {small circle default white interior, with text label. The default label
- position is inside if the diameter is bigger than {\tt textht} and
- {\tt textwid}; otherwise it is {\tt sfgabove.} Options such as fill or
- line thickness can be given.}
+ {small circle default white interior, with text label. The default
+ label position is inside if the diameter is bigger than {\tt textht}
+ and {\tt textwid}; otherwise it is {\tt sfgabove.} Options such as
+ fill or line thickness can be given.}
\macrodef{sfgself}{sfgself}{(at {\sl location}, U|D|L|R|{\sl degrees},
{\sl text}, {\sl text justification}, cw|ccw, {\sl scale factor})}
{cct}
@@ -1740,19 +1788,27 @@
{gen}
{box with edge shading}
\macrodef{ShadedPolygon}{ShadedPolygon}{({\sl vertexseq, line attributes,
- degrees, colorseq})}
- {gen}
- {Draws the polygon specified in arg1 and shades the interior according
- to arg4 by drawing lines perpendicular to the angle in arg3.
- The {\sl vertexseq} is a colon ({\tt:}) separated sequence of vertex
- positions (or names) of the polygon in cw or ccw order. A {\sl colorseq}
- is of the form 0, r0,g0,b0, {\sl frac1},r1,g1,b1, {\sl frac2},r2,g2,b2,
- \ldots 1,rn,gn,bn with $0 < \hbox{\sl frac1} < \hbox{\sl frac2} \ldots 1$
-}
+ degrees, colorseq})} {gen}
+ {Draws the polygon specified in arg1 and
+ shades the interior according
+ to arg4 by drawing lines perpendicular to the angle in arg3. The {\sl
+ vertexseq} is a colon ({\tt:}) separated sequence of vertex positions
+ (or names) of the polygon in cw or ccw order. A {\sl colorseq} is of
+ the form 0, r0,g0,b0, {\sl frac1},r1,g1,b1, {\sl frac2},r2,g2,b2,
+ \ldots 1,rn,gn,bn with $0 < \hbox{\sl frac1} < \hbox{\sl frac2}
+ \ldots 1$
+} \macrodef{shielded}{shielded}{(`{\sl two-terminal element}',
+ L|U, {\sl line attributes})} {cct}
+ {shielding in a {\tt [ ]} box for
+ two-terminal element. Arg2= blank
+ (default) to enclose the element body; L for the left side with
+ respect to drawing direction, R for right. Internal points {\tt
+ .Start, .End,} and {\tt .C} are defined}
\macrodef{SIdefaults}{SIdefaults}{}
{gen}
{Sets {\tt scale = 25.4} for drawing units in mm, and sets
- pic parameters {\tt lineht = 12, linewid = 12, moveht = 12, movewid = 12,
+ pic parameters {\tt lineht = 12, linewid = 12, moveht = 12, movewid
+ = 12,
arcrad = 6, circlerad = 6, boxht = 12, boxwid = 18, ellipseht = 12,
ellipsewid = 18, dashwid = 2, arrowht = 3, arrowwid = arrowht/2,}}
\macrodef{sign\_}{sign_}{({\sl number})}
@@ -1767,29 +1823,30 @@
\macrodef{sind}{sind}{({\sl arg})}
{gen}
{sine of an expression in degrees}
-\macrodef{sinusoid}{sinusoid}{({\sl amplitude, frequency, phase, tmin, tmax,
+\macrodef{sinusoid}{sinusoid}{({\sl amplitude, frequency, phase, tmin,
+tmax,
linetype})}
{gen}
- {draws a sinusoid over the interval
- $(t_{\hbox{\scriptsize min}}, t_{\hbox{\scriptsize max}})$;
- e.g., to draw a dashed sine curve, amplitude {\sl a}, of {\sl n} cycles
- of length {\sl x} from {\sl A},
- {\tt sinusoid(a,twopi\_*n/x,-pi\_/2,0,x,dashed) with .Start at A}}
+ {draws a sinusoid over the interval $(t_{\hbox{\scriptsize min}},
+ t_{\hbox{\scriptsize max}})$;
+ e.g., to draw a dashed sine curve, amplitude {\sl a},
+ of {\sl n} cycles of length {\sl x} from {\sl A}, {\tt
+ sinusoid(a,twopi\_*n/x,-pi\_/2,0,x,dashed) with .Start at A}}
\macrodef{source}{source}{(\linespec,
- V|v|I|i|AC|B|F|G|H|J|Q|L|N|P|S[C[r]]|E[r]]|T|X|U|{\sl other},
- {\sl diameter},R)}
+ V|v|I|i|AC|B|F|G|H|J|Q|L|N|P|S[C[r]]|E[r]]|T|X|U|{\sl other}, {\sl
+ diameter},R)}
{cct}
{source, blank or:
- V = voltage source; v = alternate voltage source;
- I = current source; i = alternate current source;
- AC = AC source; B = bulb; F = fluorescent; G =
- generator; H = step function; L = lamp;
- N = neon; P = pulse; Q = charge; R = ramp; r = right
- orientation; S = sinusoid; SC = quarter arc; SE =
- arc; T = triangle; U = square-wave; X = interior X;
- other = custom interior label or waveform;
- arg 4: R = reversed polarity;
- arg 5 modifies the circle with e.g., color or fill
+ V = voltage source; v = alternate voltage source; I =
+ current source; i = alternate current source; AC =
+ AC source; B = bulb; F = fluorescent; G = generator;
+ H = step function; L = lamp; N = neon; P = pulse;
+ Q = charge; R = ramp; r = right orientation; S =
+ sinusoid; SC = quarter arc; SE = arc; T = triangle;
+ U = square-wave; X = interior X; other = custom
+ interior label or waveform; arg 4: R = reversed
+ polarity; arg 5 modifies the circle with e.g.,
+ color or fill
\seesect{Twoterminal:}}
\macrodef{sourcerad\_}{sourcerad_}{}
{cct}
@@ -1802,8 +1859,7 @@
{speaker, {\sl In1} to {\sl In7} defined; {\tt H}=horn
\seesect{Composite:}}
\macrodef{sprod3D}{sprod3D}{(a,x,y,z)}
- {3D}
- {scalar product of triple x,y,z by a}
+ {3D} {scalar product of triple x,y,z by a}
\macrodef{sqrta}{sqrta}{({\sl arg})}
{gen}
{square root of the absolute value of {\sl arg}; i.e.,
@@ -1811,17 +1867,16 @@
\macrodef{SQUID}{SQUID}{({\sl n, diameter, initial angle}, {\tt ccw|cw})}
{cct}
{Superconducting quantum interface device
- with {\sl }n junctions labeled {\tt J1, ... J}{\sl n}
- placed around a circle with initial
- angle -90 deg (by default) with respect
- to the current drawing direction. The
- default diameter is {\tt dimen\_} }
+ with {\sl }n junctions labeled {\tt J1, ... J}{\sl n} placed around
+ a circle with initial angle -90 deg (by default) with respect to the
+ current drawing direction. The default diameter is {\tt dimen\_} }
\macrodef{stackargs\_}{stackargs}{(`{\sl stackname}',{\sl args})}
{gen}
{Stack arg 2, arg 3, ... onto the named stack up to a blank arg}
\macrodef{stackcopy\_}{stackcopy_}{(`{\sl name 1}',`{\sl name 2}')}
{gen}
- {Copy stack 1 into stack 2, preserving the order of pushed elements}
+ {Copy stack 1 into stack 2, preserving the order of pushed
+ elements}
\macrodef{stackdo\_}{stackdo}{(`{\sl stackname}',{\sl commands})}
{gen}
{Empty the stack to the first blank entry, performing arg 2}
@@ -1828,15 +1883,15 @@
\macrodef{stackexec\_}{stackexec_}{(`{\sl name 1}',`{\sl name 2}',%
{\sl commands})}
{gen}
- {Copy stack 1 into stack 2, performing arg3 for each nonblank entry}
+ {Copy stack 1 into stack 2, performing arg3 for each nonblank
+ entry}
\macrodef{stackprint\_}{stackprint_}{(`{\sl stack name}')}
{gen}
{Print the contents of the stack to the terminal}
-%\macrodef{stackpromote\_}{stackpromote_}{({\sl prefix},%
+%\macrodef{stackpromote\_}{stackpromote_}{({\sl prefix},%
% `{\sl stack name}',{\sl In name})}
% {gen}
-% {Define locations {\tt In1} or {\sl In name }{\tt 1}, $\ldots$ corresponding
-% to the locations in stack {\sl stack name}, as created by the
+% {Define locations {\tt In1} or {\sl In name }{\tt 1}, $\ldots$ corresponding % to the locations in stack {\sl stack name}, as created by the
% {\tt AutoGate} and {\tt Autologic} macros. Each location is prefixed
% by argument 1 ``.''}
\macrodef{stackreverse\_}{stackreverse_}{(`{\sl stack name}')}
@@ -1845,14 +1900,15 @@
\macrodef{stacksplit\_}{stacksplit_}{(`{\sl stack name}',{\sl string},{\sl
separator})}
{gen}
- {Stack the fields of {\sl string} left to right separated by nonblank
- {\sl separator} (default .). White space preceding the fields is ignored.}
+ {Stack the fields of {\sl string} left to right separated
+ by nonblank
+ {\sl separator} (default .). White space preceding the fields
+ is ignored.}
\macrodef{sum\_}{sum_}{({\sl a},{\sl b})}
{gen}
{binary sum}
\macrodef{sum3D}{sum3D}{({\sl x1,y1,z1,x2,y2,z2})}
- {3D}
- {sum of two triples}
+ {3D} {sum of two triples}
\macrodef{sus}{sus}{({\sl linespec, chars, label})}
{cct}
{Wrapper to place an SUS thyristor as a two-terminal element with
@@ -1881,29 +1937,29 @@
[{\sl arrowhd} | type={\sl arrowhd};name={\sl Name}],
{\sl fraction, length, fraction, length,} $\cdots$)}
{cct}
- {Draw the two-terminal element with taps in a [ ] block (see {\tt addtaps}).
- {\sl arrowhd} = blank or one of {\tt . - <- -> <->}.
- Each fraction determines the position along the element body of the tap.
- A negative length draws the tap to the right of the current
- direction; positive length to the left.
- Tap names are Tap1, Tap2, $\cdots$ by default or
- Name1, Name2, $\cdots$ if specified.
- Internal block names are {\tt .Start, .End,} and {.C} corresponding to the
- drawn element, and the tap names
- \seesect{Composite:} }
+ {Draw the two-terminal element with taps in a [ ] block (see
+ {\tt addtaps}).
+ {\sl arrowhd} = blank or one of {\tt . - <- -> <->}. Each fraction
+ determines the position along the element body of the tap. A negative
+ length draws the tap to the right of the current direction; positive
+ length to the left. Tap names are Tap1, Tap2, $\cdots$ by default
+ or Name1, Name2, $\cdots$ if specified. Internal block names are
+ {\tt .Start, .End,} and {.C} corresponding to the drawn element,
+ and the tap names \seesect{Composite:} }
\macrodef{tbox}{tbox}{({\sl text,wid,ht},<|>|<>,{\sl type})}
{cct}
- {Pointed terminal box. The {\sl text} is placed at the rectangular center
- in math mode unless the text begins with {\tt "} or {\tt sprintf} in which
- case the arument is used literally. Arg 4 determines whether the point is
- forward, backward, or both with respect to the current drawing direction.
+ {Pointed terminal box. The {\sl text} is placed at the rectangular
+ center
+ in math mode unless the text begins with {\tt "} or {\tt sprintf} in
+ which case the arument is used literally. Arg 4 determines whether
+ the point is forward, backward, or both with respect to the current
+ drawing direction.
\seesect{Composite:}}
\macrodef{tconn}{tconn}{({\sl linespec,}>|>>|<|<<|O[F],{\sl wid})}
{cct}
{Terminal connector, {\tt O}=circle; {\tt OF}=filled circle;
- {\tt > or >>} output connector
- (default {\tt >}) ;
- {\tt < or << input connector}; arg3 is arrowhead width or circle diameter
+ {\tt > or >>} output connector (default {\tt >}) ; {\tt < or <<
+ input connector}; arg3 is arrowhead width or circle diameter
\seesect{Composite:}}
\macrodef{tgate}{tgate}{({\sl linespec,} [B][R|L])}
{cct}
@@ -1911,11 +1967,11 @@
\seesect{Semiconductors:}}
\macrodef{thermocouple}{thermocouple}{({\sl linespec, wid, ht,} L|R)}
{cct}
- { Thermocouple drawn to the left (by default) of the {\sl linespec}
- line. If the {\sl linespec} length equals {\sl wid}
- (default {\tt dimen\_/5}), then only the two branches appear.
- {\tt R=} right orientation.
- \seesect{Twoterminal:}}
+ { Thermocouple drawn to the left (by default) of the {\sl
+ linespec}
+ line. If the {\sl linespec} length equals {\sl wid} (default
+ {\tt dimen\_/5}), then only the two branches appear. {\tt R=}
+ right orientation. \seesect{Twoterminal:}}
\macrodef{thicklines\_}{thicklines_}{({\sl number})}
{gen}
{set line thickness in points}
@@ -1923,40 +1979,40 @@
{gen}
{set line thickness in points}
\macrodef{threeD\_init}{threeD_init}{}
- {3D}
- {initialize 3D transformations (reads {\tt lib3D.m4})}
+ {3D} {initialize 3D transformations (reads {\tt lib3D.m4})}
\macrodef{thyristor}{thyristor}{(\linespec,%
{\tt [SCR|SCS|SUS|SBS|IEC][{\sl chars}]})}
{cct}
{Composite thyristor element in {\tt []}block:
types
- SCR: silicon controlled rectifier (default),
- SCS: silicon controlled switch,
- SUS: silicon unilateral switch,
- SBS: silicon bilateral switch,
- IEC: type IEC.
+ SCR: silicon controlled rectifier
+ (default), SCS: silicon controlled
+ switch, SUS: silicon unilateral switch,
+ SBS: silicon bilateral switch, IEC:
+ type IEC.
{\sl Chars} to modify or define the element:
- K: open arrowheads,
- A: arrowhead,
- F: half arrowhead,
- B: bidirectional diode,
- E: adds envelope,
- H: perpendicular gate (endpoint G),
- N: anode gate (endpoint Ga),
- U: centre line in diodes
- V: perpendicular gate across arrowhead centre,
- R=right orientation,
- E=envelope
+ K: open arrowheads, A: arrowhead, F:
+ half arrowhead, B: bidirectional diode,
+ E: adds envelope, H: perpendicular
+ gate (endpoint G), N: anode gate
+ (endpoint Ga), U: centre line in diodes
+ V: perpendicular gate across arrowhead
+ centre,
+ R=right orientation, E=envelope
\seesect{Semiconductors:}}
\macrodef{tikznode}{tikznode}{({\sl \Tikz node name, position}) }
{pgf}
{insert \Tikz code to define a zero-size \Tikz node at {\sl location}
- (default {\tt Here}) to assist with inclusion of \pic code output in
- \Tikz diagrams. This macro must be invoked in the outermost \pic scope.
- \seesect{Tikzwithpic:}}
+ (default {\tt Here}) to assist with inclusion of \pic code output
+ in \Tikz diagrams. This macro must be invoked in the outermost
+ \pic scope. \seesect{Tikzwithpic:}}
\macrodef{tline}{tline}{(\linespec,{\sl wid},{\sl ht}) }
{cct}
{transmission line, manhattan direction\seesect{Twoterminal:}}
+\macrodef{ToPos}{ToPos}{({\sl position}, U|D|L|R|{\sl degrees}, {\sl length}) }
+ {gen}
+ {Evaluates to {\tt from {\sl position} - Rect\_({\sl length, angle}) to
+ {\sl position}} from the polar-coordinate data in the arguments }
\macrodef{tr\_xy\_init}{tr_xy_init}{({\sl origin, unit size, sign })}
{cct}
{initialize {\tt tr\_xy}}
@@ -1966,26 +2022,22 @@
\macrodef{transformer}{transformer}{(\linespec,L|R,{\sl np},%
[A|P][W|L][D1|D2|D12|D21],{\sl ns})}
{cct}
- {2-winding transformer or choke with terminals P1, P2, TP, S1, S2, TS:
- arg2: L = left, R = right,
- arg3: np primary arcs,
- arg5: ns secondary arcs,
- arg4: A = air core, P = powder (dashed) core,
- W = wide windings, L = looped windings,
- D1: phase dots at P1 and S1 end; D2 at P2 and S2 end; D12 at P1 and S2 end;
- D21 at P2 and S1 end
+ {2-winding transformer or choke with terminals P1, P2, TP, S1,
+ S2, TS:
+ arg2: L = left, R = right, arg3: np primary arcs, arg5: ns secondary
+ arcs, arg4: A = air core, P = powder (dashed) core, W = wide windings,
+ L = looped windings, D1: phase dots at P1 and S1 end; D2 at P2 and
+ S2 end; D12 at P1 and S2 end; D21 at P2 and S1 end
\seesect{Composite:}}
\macrodef{tstrip}{tstrip}{(R|L|U|D|{\sl degrees, nterms, chars})}
{cct}
{terminal strip, chars:
- I=invisible terminals,
- C=circle terminals (default),
- D=dot terminals,
- O=omitted separator lines,
- {\tt wid=}value{\tt ;} total strip width,
+ I=invisible terminals, C=circle terminals (default), D=dot terminals,
+ O=omitted separator lines, {\tt wid=}value{\tt ;} total strip width,
{\tt ht=}value{\tt ;} strip height
\seesect{Composite:}}
-\macrodef{ttmotor}{ttmotor}{({\sl linespec, string, diameter, brushwid, brushht})}
+\macrodef{ttmotor}{ttmotor}{({\sl linespec, string, diameter, brushwid,
+brushht})}
{cct}
{motor with label\seesect{Twoterminal:}}
\macrodef{twopi\_}{twopi_}{}
@@ -1997,8 +2049,7 @@
{unijunction transistor, right, P-channel, envelope
\seesect{Semiconductors:}}
\macrodef{unit3D}{unit3D}{(x,y,z)}
- {3D}
- {unit triple in the direction of triple x,y,z}
+ {3D} {unit triple in the direction of triple x,y,z}
\macrodef{up\_\_}{up__}{}
{gen}
{up with respect to current direction}
@@ -2007,14 +2058,16 @@
{set current direction up \seesect{Placing:}}
\Letter{V}%
\macrodef{variable}{variable}{(`{\sl element}',
- {\tt [A|P|L|[u]N|[u]NN][C|S]},{\sl angle},{\sl length})}
+ {\tt [A|P|L|[u]N|[u]NN][C|S]}, [+|-]{\sl angle},
+ {\sl length}, at position)}
{cct}
{overlaid arrow or line to indicate variable 2-terminal element:
- {\tt A}=arrow, {\tt P}=preset,
- {\tt L}=linear,
- {\tt N}= symmetric nonlinear,
- {\tt C}=continuous, {\tt S}=setpwise; {\tt u} changes the
- nonlinearity direction
+ {\tt A}=arrow, {\tt P}=preset, {\tt L}=linear, {\tt N}= symmetric
+ nonlinear, {\tt C}=continuous, {\tt S}=setpwise; {\tt u} changes
+ the nonlinearity direction. The angle is absolute but preceding
+ it with a sign makes the angle (often -30 or -45) relative to the
+ element drawing direction. If arg5 is blank the symbol is placed
+ over the last {\tt [ ]} block
\seesect{Twoterminal:}}
\macrodef{Vcoords\_}{Vcoords_}{({\sl position})}
{gen}
@@ -2021,16 +2074,17 @@
{The $x, y$ coordinate pair of the position}
\macrodef{Vdiff\_}{Vdiff_}{({\sl position},{\sl position})}
{gen}
- {{\tt Vdiff\_(A,B)} evaluates to {\tt A-(B)} with dpic, {\tt A-(B.x,B.y)}
+ {{\tt Vdiff\_(A,B)} evaluates to {\tt A-(B)} with dpic, {\tt
+ A-(B.x,B.y)}
with gpic}
\macrodef{vec\_}{vec_}{({\sl x},{\sl y})}
{gen}
{position rotated with respect to current direction}
\macrodef{View3D}{View3D}{}
- {3D}
- {The view vector (triple) defined by {\tt setview({\sl azim, elev})}. The
- {\tt project}
- macro projects onto the plane perpendicular to this vector}
+ {3D} {The view vector (triple) defined by {\tt setview({\sl azim,
+ elev})}. The
+ {\tt project} macro projects onto the plane perpendicular to this
+ vector}
\macrodef{vlength}{vlength}{({\sl x},{\sl y})}
{gen}
{vector length $\sqrt{x^2+y^2}$}
@@ -2039,7 +2093,8 @@
{unit-vector pair CCW-perpendicular to linear object}
\macrodef{Vperp}{Vperp}{({\sl position name}, {\sl position name})}
{gen}
- {unit-vector pair CCW-perpendicular to line joining two named positions}
+ {unit-vector pair CCW-perpendicular to line joining two named
+ positions}
\macrodef{vrot\_}{vrot_}{({\sl x},{\sl y},{\sl xcosine},{\sl ycosine})}
{gen}
{rotation operator}
@@ -2051,7 +2106,8 @@
{The vector in arg 1 multiplied by the scalar in arg 2}
\macrodef{Vsum\_}{Vsum_}{({\sl position},{\sl position})}
{gen}
- {{\tt Vsum\_(A,B)} evaluates to {\tt A+B} with dpic, {\tt A+(B.x,B.y)}
+ {{\tt Vsum\_(A,B)} evaluates to {\tt A+B} with dpic, {\tt
+ A+(B.x,B.y)}
with gpic}
\Letter{W}%
\macrodef{w\_}{w_}{}
@@ -2071,8 +2127,8 @@
\macrodef{XOR\_gate}{XOR_gate}{({\sl n},N)}
{log}
{`xor' gate, 2 or {\sl n\/} inputs; N=negated input.
- Otherwise, arg1 can be a sequence of letters {\tt P|N}
- to define normal or negated inputs.
+ Otherwise, arg1 can be a sequence of letters {\tt P|N} to define
+ normal or negated inputs.
\seesect{Logicgates:}}
\macrodef{XOR\_off}{XOR_off}{}
{log}
@@ -2084,4 +2140,10 @@
\macrodef{xtract}{xtract}{({\sl string, substr1, substr2, $\ldots$})}
{gen}
{returns substrings if present}
+\Letter{Y}%
+\macrodef{Ysymbol}{Ysymbol}{(at {\sl position},keys,
+ U|D|L|R|{\sl degrees}) (default {\tt U} for up)}
+ {cct}
+ {Y symbol for power-system diagrams
+ {\sl keys:} {\tt size={\sl expression}; type=G}}
% \end{tabbing}
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/fetMan.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/fetMan.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/fetMan.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,11 +1,9 @@
.PS
-# `fet.m4'
+# `fetMan.m4'
cct_init
-dwn = 0.9
-dwn = 1.0
-rgt = 0.9
textht = 0.1
+define(`rmove',0.75)
dnl `IRF4905(linespec,R)'
define(`IRF4905',
@@ -18,74 +16,84 @@
G: Q.G
circle rad 5*dimen_/10 at Q.tr_xy(0,1) ]')
-define(`rmove',0.75)
-define(`dir_',`right_')
+Row1: [ J: j_fet
+ { "{\tt j\_fet}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: j_fet(right_ dimen_,,P,E) with .w at J.e+(0.5,0)
+ { "{\tt j\_fet(right\_}" "{\tt dimen\_,{,}P,E)}" at J.s+(0,-13bp__) below
+ "$G$" at J.G rjust above
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: e_fet with .w at J.e+(0.5,0)
+ { "{\tt $\;$ e\_fet}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: e_fet(,,P) with .w at J.e+(0.6,0)
+ { "{\tt $\;$ e\_fet(,{,}P)}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: e_fet(,,P,S) with .w at J.e+(0.7,0)
+ { "{\tt $\;$ e\_fet(,{,}P,S)}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: c_fet with .w at J.e+(0.6,0)
+ { "{\tt $\;$ c\_fet}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: c_fet(,,P) with .w at J.e+(0.6,0)
+ { "{\tt $\;$ c\_fet(,{,}P)}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ ]
-Orig: Here
-dir_
- { move left 0.2 }
- {J: j_fet(right_ dimen_,,,E)
- "{\tt j\_fet(right\_ dimen\_,{,},E)}" wid 1.75 \
- with .nw at last [].sw+(0.0,-0.25)
- "$G$" at last [].G rjust above
- "$S$" at last [].S rjust
- "$D$" at last [].D ljust
- }
+Row2: [
+ J: d_fet
+ { "{\tt d\_fet}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: d_fet(,,P) with .w at J.e+(0.5,0)
+ { "{\tt d\_fet(,{,}P)}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: d_fet(,,P,S) with .w at J.e+(0.7,0)
+ { "{\tt d\_fet(,{,}P,S)}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: g_fet with .w at J.e+(0.6,0)
+ { "{\tt g\_fet}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: g_fet(up_ dimen_,,P) with .w at J.e+(0.6,0)
+ { "{\tt `g\_fet'(up\_$\;\;$}" at last [].s below
+ "{\tt dimen\_,{,}P)}" at last [].s + (0,-12bp__) below
+ "{\sl G}" at last [].G rjust
+ "{\sl S}" at last [].S + (0,2bp__) ljust
+ "{\sl D}" at last [].D + (0,2bp__) ljust below }
+ right_
+ M1: mosfet(,,dBSDFQM1,E) with .w at J.e+(0.5,0)
+ "$G0$" at M1.G0 above rjust
+ "$G1$" at M1.G1 above ljust
+ {"\tt `mosfet'(,{,}dBSDFQM1,E)" wid 1.45 \
+ with .nw at last [].sw+(0,-0.2) }
+ M2: mosfet(,,dBSDFQuM1) with .nw at M1.ne+(0.5,0)
+ "$G0$" at M2.G0 above ljust
+ "$G1$" at M2.G1 above rjust
+ {"\tt ...(,{,}dBSDFQuM1)" wid 1.25 \
+ with .n at last [].s+(0,-0.05) }
+ ] with .nw at Row1.sw+(0,-0.1)
- move right_ 0.9; dir_
- {j_fet(,,P,)
- "{\tt j\_fet(,{,}P,)}" at last [].s+(0,-0.05) below
- "$G$" at last [].G rjust
- "$S$" at last [].S rjust
- "$D$" at last [].D ljust
- }
-
- move right_ 0.9; dir_
- {e_fet(,R,,)
- "{\tt e\_fet(,R,{,})}" at last [].s+(0,-0.05) below
- "$G$" at last [].G rjust
- "$S$" at last [].S rjust
- "$D$" at last [].D ljust
- }
-
- {move down_ dwn; dir_
- e_fet(,,P)
- "{\tt e\_fet(,{,}P)}" at last [].s+(0.1,-0.2) below}
-
- move right_ 0.9; dir_
- {d_fet(,,,)
- "{\tt d\_fet(,{,},)}" at last [].s+(0,-0.05) below}
-
- {move down_ dwn; dir_
- d_fet(,,P)
- "{\tt d\_fet(,{,}P)}" at last [].s+(0,-0.05) below}
-
- move right_ 0.9; dir_
- {e_fet(,,,S)
- "{\tt e\_fet(,{,},S)}" at last [].s+(0,-0.05) below}
-
- {move down_ dwn; dir_
- e_fet(,,P,S)
- "{\tt e\_fet(,{,}P,S)}" at last [].s+(0,-0.2) below}
-
- move right_ 0.9; dir_
- {d_fet(,,,S)
- "{\tt d\_fet(,{,},S)}" at last [].s+(0,-0.2) below}
-
- {move down_ dwn; dir_
- d_fet(,,P,S)
- "{\tt d\_fet(,{,}P,S)}" at last [].s+(0,-0.05) below}
-
- move right_ 0.9; dir_
- {c_fet(,,,)
- "{\tt `c\_fet'(,{,},)}" at last [].s+(0,-0.05) below}
-
- {move down_ dwn; dir_
- c_fet(,,P)
- "{\tt `c\_fet'(,{,}P)}" at last [].s+(0,-0.2) below}
-
-move down 1; right_
- [
+Row3: [
linewid = linewid*1.2
Q1: mosfet(,,dGSDF,)
@@ -132,8 +140,22 @@
"$D$" at last [].D ljust
"$B$" at last [].B below
}
+ move right_
+ J: Fe_fet #(right_ dimen_)
+ {`"{\tt $\;$ Fe\_fet}"' at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ move right_
+ J: Fe_fet(,,TEDQSuB)
+ {`"{\tt $\;$ Fe\_fet(,,TEDSQuB)}"' at J.s+(0,-0.15) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ ] with .nw at last [].sw
- move right_ rmove
+Row4: [
+ {move left 0.25}
Q5: mosfet(,,ZSDFdT,)
{"\tt `$\ldots$'(,{,}ZSDFdT,)" at last [].s+(0,-0.05) below
thinlines_
@@ -144,8 +166,7 @@
arrow <- down .08 right .24 from (Q5.G.x,Q5.G.y-0.02)
"\tt dT" ljust
thicklines_ }
-
- move right_ rmove
+ move right_ 0.8
up_
Q6: IRF4905 with .c at Here
{`"\tt IRF4905"' at Q6.s+(0,-0.15) below
@@ -153,18 +174,6 @@
"$D$" at Q6.D ljust above
"$S$" at Q6.S ljust below
}
- ] with .nw at J.sw+(0,-1.35) #Orig+(-0.26,-1.2)
+ ] with .nw at last [].sw
- right_
- M1: mosfet(,,dBSDFQM1,E) with .nw at J.nw+(0,-dwn)
- "$G0$" at M1.G0 above rjust
- "$G1$" at M1.G1 above ljust
- {"\tt `mosfet'(,{,}dBSDFQM1,E)" wid 1.45 \
- with .nw at last [].sw+(0,-0.23) }
- M2: mosfet(,,dBSDFQuM1) with .nw at M1.ne+(0.5,0)
- "$G0$" at M2.G0 above ljust
- "$G1$" at M2.G1 above rjust
- {"\tt ...(,{,}dBSDFQuM1)" wid 1.25 \
- with .n at last [].s+(0,-0.05) }
-
.PE
Deleted: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/oax.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/oax.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/oax.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,5 +0,0 @@
-.PS
-# `oax.m4'
-cct_init
-include(oaxbody.m4)
-.PE
Deleted: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/oaxbody.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/oaxbody.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/oaxbody.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,4 +0,0 @@
-line right 0.2 then up 0.1
-A: opamp(up_,,,0.4,R) with .In1 at Here
- line right 0.2 from A.Out
- line down 0.1 from A.In2 then right 0.2
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/opampex.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/opampex.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/opampex.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,5 @@
+.PS
+# `opampex.m4'
+cct_init
+include(opampexbody.m4)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/opampex.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/opampexbody.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/opampexbody.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/opampexbody.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,4 @@
+line right 0.2 then up 0.1
+A: opamp(up_,,,0.4,R) with .In1 at Here
+ line right 0.2 from A.Out
+ line down 0.1 from A.In2 then right 0.2
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/opampexbody.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/relaycoilMan.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/relaycoilMan.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/relaycoilMan.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -3,7 +3,7 @@
cct_init
spc = dimen_/3
-{ relaycoil; S: "\tt re{}laycoil" at last [].s+(0,-20bp__)
+{ relaycoil; S: `"\tt relaycoil"' at last [].s+(0,-16bp__)
{ "\sl V1" wid 10bp__ at last [].V1 rjust
"\sl V2" at last [].V2 ljust }
K: relaycoil(NX) with .nw at last [].ne+(spc*4,0); "\tt (NX)" at (last [],S)
@@ -20,10 +20,12 @@
{ "\sl V1" at last [].V1 rjust; "\sl V2" at last [].V2 rjust }
relaycoil(BXSR) with .nw at last [].ne+(spc*2,0); "\tt (BXSR)" at (last [],S)
{ "\sl V1" at last [].V1 ljust; "\sl V2" at last [].V2 ljust }
- relaycoil(SR) with .nw at last [].ne+(spc*4,0); "\tt (SR)" at (last [],S)
+ relaycoil(SR) with .nw at last [].ne+(spc*3,0); "\tt (SR)" at (last [],S)
relaycoil(SO) with .nw at last [].ne+(spc,0); "\tt (SO)" at (last [],S)
relaycoil(SOR) with .nw at last [].ne+(spc,0); "\tt (SOR)" at (last [],S)
+ relaycoil(PC) with .nw at last [].ne+(spc,0); "\tt (PC)" at (last [],S)
}
+ spc = dimen_/4
{
move down_ 3/4; right_
relaycoil(HS); S: "\tt (HS)" at last [].s+(0,-12bp__)
@@ -35,6 +37,7 @@
relaycoil(RH) with .nw at last [].ne+(spc,0); "\tt (RH)" at (last [],S)
relaycoil(TH) with .nw at last [].ne+(spc,0); "\tt (TH)" at (last [],S)
relaycoil(EL) with .nw at last [].ne+(spc,0); "\tt (EL)" at (last [],S)
+ relaycoil(MR) with .sw at last [].se+(spc,0); "\tt (MR)" at (last [],S)
}
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/dpictools.pic
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/dpictools.pic 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/dpictools.pic 2021-06-03 20:45:51 UTC (rev 59444)
@@ -3,7 +3,7 @@
# m4 macro NeedDpicTools or the pic statement copy "HOMELIB_/dpictools.pic"
# when HOMELIB_ is defined or, generically, copy "<path>dpictools.pic"
-# Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under #
+# Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under #
# the LaTeX Project Public Licence in file Licence.txt. The files of #
# this distribution may be redistributed or modified provided that this #
# copyright notice is included and provided that modifications are clearly #
@@ -66,8 +66,8 @@
define array2 { for i_array=3 to $+ do {
exec sprintf("$1[%g,%g]=$%g",$2,i_array-2,i_array);}}
-# posarray(Var,position1,position2,...)
-# Var[1]:position1; Var[2]:Position2,...
+# posarray(Var,Position1,Position2,...)
+# Var[1]:Position1; Var[2]:Position2,...
define posarray {
for i_array=2 to $+ do { exec sprintf("$1[%g] : $%g",i_array-1,i_array); }}
Deleted: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/AntiqueClock.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/AntiqueClock.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/AntiqueClock.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,149 +0,0 @@
-.PS
-# AntiqueClock.m4
-gen_init
-NeedDpicTools
-
-# PSTricks or tikz only:
-ifelse(ifpstricks(T)`'ifpgf(T),T,`
-
-iflatex(`latexcommand({\sf)')
-
-# https://tex.stackexchange.com/questions/236923/generate-analog-clock-with-numbered-face-add-seconds-roman-numerals
-
-# `hms2deg(hr,min,sec) hr:min:sec to degrees
-# blank arg1: degrees for minute hand
-# blank arg1 and arg2: degrees for second hand'
-define(`hms2deg',`ifelse(`$1',,
- `ifelse(`$2',,
- `(90-pmod(ifelse(`$3',,0,`$3'),60)/60*360)',
- `(90-(pmod(`$2',60)/60 + pmod(ifelse(`$3',,0,`$3'),60)/60/60)*360)')',
- `(90-(pmod(`$1',12) + pmod(ifelse(`$2',,0,`$2'),60)/60 + dnl
- pmod(ifelse(`$3',,0,`$3'),60)/3600)/12*360)')')
-
-# `SecondHand(length,hr,min,sec)'
-define(`SecondHand',`[ shsf = (`$1')/3.2
- C: Here
- { L: rpoint_(to (Rect_(`$1',hms2deg(,,`$4')))) }
- line thick 8*shsf to rvec_(`$1',0)
- ]')
-
-# `AntiqueMinuteHand(length,hr,min,sec)'
-define(`AntiqueMinuteHand',`[ mhsf = (`$1')/2.84
- L: rpoint_(to (Rect_(`$1',hms2deg(,`$3',`$4'))))
- C: circle fill_(0) diam 0.47*mhsf at L.start
- move to C
- spline from rvec_(0,0.047*mhsf) \
- to rvec_(1.65*mhsf,0.11*mhsf) \
- then to rvec_(`$1',0.018*mhsf) \
- then to rvec_(`$1',-0.018*mhsf) \
- then to rvec_(1.65*mhsf,-0.11*mhsf) \
- then to rvec_(0,-0.047*mhsf) \
- shaded rgbstring(0,0,0)
- ]')
-
-# `AntiqueHourHand(length,hr,min,sec)'
-define(`AntiqueHourHand',`[ hhsf = (`$1')/2.2
- L: rpoint_(to (Rect_(`$1',hms2deg(`$2',`$3',`$4'))))
- C: circle fill_(0) diam 0.6*hhsf at L.start
- move to C
- v = 0.25*hhsf
- { line to rvec_(1.1*hhsf,0) thick 0.15/(1bp__)*hhsf }
- { C1: circle rad v at rvec_(1.25*hhsf,0) fill_(0) }
- d = `$1'-1.25*hhsf
- q = 1bp__*hhsf
- r1 = (d^2 + q^2 - v^2)/(v-q)/2
- h = r1+v
- shade(0,
- arc ccw from C1+vec_(d/h*v,(r1+q)/h*v) to \
- C1+vec_(d,q) rad r1 with .c at C1+vec_(d,r1+q)
- arc ccw from C1+vec_(d,-q) to C1+vec_(d/h*v,-(r1+q)/h*v) rad r1 \
- with .c at C1+vec_(d,-r1-q))
- ]')
-
-define(`AntiqueClock',`[ # h,m,s,diam
-# Clock size parameters:
- hour = ifelse(`$1',,3,`$1')
- minute = ifelse(`$2',,41,`$2')
- second = ifelse(`$3',,51,`$3')
- # outer radius
- ifelse(`$4',,`skale=0.5; r1=2',`r1=(`$4')/2; skale=r1/4')
- r2 = r1-0.5*skale
- r3 = r2-0.14*skale
- r4 = r3 - 0.35*skale
- r5 = r4 - 0.17*skale
- r6 = r5 - 0.63*skale
- r7 = r6 - 0.17*skale
- shadelinethick = 1.0
-
-C: circle thick 0.2 rad r1
-
-define shadeline {
- s = 1-($`'1)*2
- v = r*s
- h = sqrt(r^2-v^2)
- t = 1-abs(s)
- line from (vrot_(-h,v,cost,sint)) to (vrot_(h,v,cost,sint)) \
- thick shadelinethick outlined rgbstring(t,t,t)
- }
-
- r = r1 # Bezel outer
- nlines = int(2*r/(shadelinethick pt__)*1.1)
- cost = cosd(10); sint = sind(10);
- ShadeObject(shadeline,nlines, 0, 0,0,0, 0.5, 1,1,1, 1, 0,0,0 ) at C
-
- r = r2 # Bezel inner
- nlines = int(2*r/(shadelinethick pt__)*1.1)
- cost = cosd(-10); sint = sind(-10);
- ShadeObject(shadeline,nlines, 0, 0,0,0, 0.25, 0.8,0.8,0.8, 0.5, 1,1,1,
- 0.75, 0.8,0.8,0.8, 1, 0,0,0 ) at C
-
-# Clock face
-Face: circle thick 0 fill_(1) rad r3 at C
- circle rad r4 at C
- circle rad r5 at C
- circle rad r6 at C
- circle rad r7 at C
-
-# Text rotation for PSTricks or TikZ
- define(`rottext',
- `ifpstricks(`\rput[c]{%g}(0,0)',`ifpgf(`\pgftext[rotate=%g]',%g)')')
-# Outer numbers
- command sprintf("\font\outerfont=cmss12 at %4.2fin",r3-r4)
- for mn = -15 to 15 by 5 do { sprintf("rottext{\outerfont %g}",\
- -mn/60*360,pmod(mn,60)) at C+(Rect_((r3+r4)/2,90-mn/60*360)) }
- for mn = 20 to 40 by 5 do { sprintf("rottext{\outerfont %g}",\
- 180-mn/60*360,mn) at C+(Rect_((r3+r4)/2,90-mn/60*360)) }
-# Outer tics
- for mn = 1 to 60 do { t = 90-mn/60*360
- line from C+(Rect_(r5,t)) to C+(Rect_(r4,t)) }
-
-# Inner numbers
- command sprintf("\font\innerfont=cmss12 at %4.2fin",r5-r6)
- Loopover_(`mx',`t = (m4Lx-4)/12*360;
- sprintf("rottext{\scalebox{0.7}[1.0]{\innerfont mx}}",-t) \
- at C+(Rect_((r5+r6)/2,90-t))', IX,X,XI,XII,I,II,III)
- Loopover_(`mx',`t = (m4Lx+3)/12*360;
- sprintf("rottext{\scalebox{0.7}[1.0]{\innerfont mx}}",-t+180) \
- at C+(Rect_((r5+r6)/2,90-t))', IV,V,VI,VII,VIII)
-
-# Inner tics
- for mn = 5 to 60 by 5 do { t = 90-mn/60*360
- line from C+(Rect_(r7,t)) to C+(Rect_(r6,t)) }
-
-# Hands
- AntiqueHourHand(r6,hour,minute,second) with .C at C
- AntiqueMinuteHand(r5,hour,minute,second) with .C at C
- SecondHand((r3+r4)/2,hour,minute,second) with .C at C
-
-# Center
- dot(at C,0.1/4*r1,1)
- ]')
-
- Clock1: AntiqueClock(,,,3)
-# Clock2: AntiqueClock(4,50,07,2) at Clock1.e+(1.5,0)
-
- iflatex(`latexcommand(})')
-
-',` "AntiqueClock.m4 requires pstricks or pgf" ')
-
-.PE
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ArrowFn.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ArrowFn.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ArrowFn.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,55 @@
+.PS
+# ArrowFn.m4
+# https://tex.stackexchange.com/questions/581089/arrow-function-diagrams
+gen_init
+ brad = 0.04
+ bht = 0.4
+ bwid = 0.25
+define(`rbox',`box rad brad outlined "Orange"')
+
+B1: [
+ linethick = 1.2
+ arrowwid = 0.08
+ rbox wid 5*boxwid ht 3/2*boxwid
+ line from last box.w-(bht/4,0) "\Large $X$" above ljust
+T: Here
+ arrow up bwid right bwid then right bwid
+F: rbox ht bht "\Large $f$"
+ {"\Large $Y$" above ljust }
+ arrow down bwid right bwid from T then right boxwid + bwid*3/2
+G: rbox ht bht "\Large $g$"
+ {"\Large $Z$" above ljust }
+S: circle diam bht "\Large $+$" at (G.e.x+boxwid,(F.y+G.y)/2)
+ d = F.y-S.nw.y
+ arrow from F.e to S.nw+(-d,d) then to S.nw
+ arrow from G.e to S.sw+(-d,-d) then to S.sw
+ arrow right from S.e
+ ]
+[
+ bht = bht/2
+ sbwid = boxwid*3/4
+ bbwid = sbwid*5/4
+ dh = bht/2
+B1: rbox wid bbwid ht bbwid
+B2: rbox wid sbwid*3/2 ht bbwid at B1+(3/2*bbwid,0)
+B3: rbox wid bbwid ht bbwid at B2+(3/2*bbwid,0)
+B4: rbox wid sbwid*3/2 ht bbwid at B3+(3/2*bbwid,0)
+B5: rbox wid bbwid ht bbwid at B4+(3/2*bbwid,0)
+ F: rbox ht bht wid sbwid at B2.n-(0,bht*3/4) "$f$"
+BR: B2.s+(0,B2.n.y-F.y)
+ G: rbox ht bht wid sbwid at (B4,F) "$g$"
+ S: circle diam bht*3/2 at B5+(bht/2,0) "$+$"
+ arrow right from S.e
+ T: B1.w+(dh,0)
+B: rbox ht bbwid*5/4 wid boxwid*7.25 with .w at T-(sbwid*3/4,0)
+ { line from T left sbwid "$x$" above ljust }
+ arrow from T to (B1.e-(dh,0),F) then to F.w
+ arrow from F.e to (B3.w+(dh,0),F) then to (B3.e-(dh,0),BR)
+ continue to (B5.w+(dh,0),Here) then to S.sw
+ line thick 5 outlined "white" from B3.sw to B3.ne chop brad
+ arrow from T to (B1.e-(dh,0),BR) then to (B3.w+(dh,0),BR) \
+ then to (B3.e-(dh,0),G) then to G.w
+ arrow from G.e to (B5.w+(dh,0),G) then to S.nw
+ ] with .nw at B1.sw+(0,-0.2)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ArrowFn.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Ball.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Ball.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Ball.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -29,19 +29,19 @@
ifpstricks(
`command "\pscustom[fillstyle=gradient,gradmidpoint=1.0,%"
command sprintf("gradbegin=gray,gradend=white,gradlines=%g]{",rectwid*200)')
- line from project(-rectht/2,-rectwid*1/3,0) \
- to project( rectht/2,-rectwid*1/3,0) \
- then to project( rectht/2, rectwid*2/3,0) \
- then to project(-rectht/2, rectwid*2/3,0) \
- then to project(-rectht/2,-rectwid*1/3,0)
+ line from Project(-rectht/2,-rectwid*1/3,0) \
+ to Project( rectht/2,-rectwid*1/3,0) \
+ then to Project( rectht/2, rectwid*2/3,0) \
+ then to Project(-rectht/2, rectwid*2/3,0) \
+ then to Project(-rectht/2,-rectwid*1/3,0)
ifpstricks(command "}%")
define(`C3D',`0,0,alpha') # Centre of the sphere
- C: project(C3D)
+ C: Project(C3D)
# Shaded sphere
ifelse(m4postprocessor,pstricks,
- `Highlight: project(sum3D(C3D,rot3Dz(-15*dtor_,rot3Dy(-60*dtor_,alpha,0,0))))
+ `Highlight: Project(sum3D(C3D,rot3Dz(-15*dtor_,rot3Dy(-60*dtor_,alpha,0,0))))
command "\pscustom[fillstyle=gradient,gradmidpoint=0.0,%"
command sprintf("gradbegin=gray,gradend=white,gradlines=%g,%%",alpha*200)
command "GradientCircle=true,GradientScale=1.5,%"
@@ -54,18 +54,18 @@
C.x,C.y,alpha/2.54)',
`circle rad alpha at C fill_(1) ')
- S: "$S$" at project(0,0,0) rjust # The sphere bottom touch point
+ S: "$S$" at Project(0,0,0) rjust # The sphere bottom touch point
"$\alpha$" at 0.5<S,C> rjust
define(`N3D',`0,0,2*alpha') # North pole
- N: "N" at project(N3D) ljust above
+ N: "N" at Project(N3D) ljust above
phi = 65*dtor_
define(`Phat3D',`rot3Dz(phi,alpha*2.7,0,0)')
- Phat: "$\hat{P}$" at project(Phat3D) ljust
+ Phat: "$\hat{P}$" at Project(Phat3D) ljust
- X: project(rectht/2*0.8,0,0)
- Y: project(0,rectwid/2*0.8,0)
+ X: Project(rectht/2*0.8,0,0)
+ Y: Project(0,rectwid/2*0.8,0)
`define' linevis { # ratio # Visibility function for lines fom S to Xb
$2 = distance(($1 between S and Xb),C)-alpha }
@@ -84,8 +84,8 @@
arrow up alpha*0.5 chop 0.05 chop 0 ; "$z,\:\zeta$" above ljust
invisline(Phat)
line to Phat chop 0.05 chop 0
- arc ccw -> rad alpha from project(alpha/2,0,0) to \
- project(rot3Dz(phi,alpha/2,0,0))
+ arc ccw -> rad alpha from Project(alpha/2,0,0) to \
+ Project(rot3Dz(phi,alpha/2,0,0))
"$\phi$" below at 0.5 between last arc.start and last arc.end
# vector (ratio along (N to Phat))
@@ -94,7 +94,7 @@
$2 = length3D(diff3D(ray($1),C3D))-alpha }
bisect( rayvis, 1e-3, 1, 1e-8, p ) # Find P
- P: "$P$" at project(ray(p)) ljust above
+ P: "$P$" at Project(ray(p)) ljust above
thicklines_
line dashed from N to P chop 0 chop 0.05
@@ -108,11 +108,11 @@
bisect( meridianvis, 0, pi_, 1e-8, y )
n = 0
for ang = y-pi_ to y by pi_/20 do {
- Q[n]: project(sum3D(C3D,meridian(ang))); n+=1 }
+ Q[n]: Project(sum3D(C3D,meridian(ang))); n+=1 }
fitcurve(Q,n-1)
n = 0
for ang = y to y+pi_ by pi_/20 do {
- Q[n]: project(sum3D(C3D,meridian(ang))); n+=1 }
+ Q[n]: Project(sum3D(C3D,meridian(ang))); n+=1 }
fitcurve(Q,n-1,dashed)
define(`equator',`rot3Dz($1,alpha,0,0)')
@@ -122,15 +122,15 @@
bisect( equatorvis, 0, pi_, 1e-8, y )
n = 0
for ang = y-pi_ to y by pi_/20 do {
- Q[n]: project(sum3D(C3D,equator(ang))); n+=1 }
+ Q[n]: Project(sum3D(C3D,equator(ang))); n+=1 }
fitcurve(Q,n-1)
n = 0
for ang = y to y+pi_ by pi_/20 do {
- Q[n]: project(sum3D(C3D,equator(ang))); n+=1 }
+ Q[n]: Project(sum3D(C3D,equator(ang))); n+=1 }
fitcurve(Q,n-1,dashed)
line dashed from C to P # beta
- line dashed from C to project(sum3D(C3D,equator(phi)))
+ line dashed from C to Project(sum3D(C3D,equator(phi)))
arc ccw -> from 0.6 along_(last line) to 0.6 between C and P
"$\beta$" above
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Buttons.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Buttons.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Buttons.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -3,6 +3,7 @@
gen_init
NeedDpicTools
+
divert(-1)
#################################################################
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Capacitors.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Capacitors.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Capacitors.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,38 @@
+.PS
+# `Capacitors.m4'
+cct_init
+
+movewid = 2 pt__
+hm = 2.05
+vm = 0.28
+{ {capacitor ; move ;"`{\tt capacitor}'" ljust}
+ move right_ hm
+ {capacitor(,C); move ;"`{\tt capacitor(,C)}'" ljust}
+ move right_ hm
+ {capacitor(,C+); move ;"`{\tt capacitor(,C+)}'" ljust}
+}
+ move down vm; right_
+{ {capacitor(,P); move ;"`{\tt capacitor(,P)}'" ljust}
+ move right_ hm
+ {capacitor(,E); move ;"`{\tt capacitor(,E)}'" ljust}
+ move right_ hm
+ {capacitor(,K); move ;"`{\tt capacitor(,K)}'" ljust}
+}
+ move down 0.25; right_
+{ {capacitor(,M); move ;"`{\tt capacitor(,M)}'" ljust}
+ move right_ hm
+ {capacitor(,N); move ;"`{\tt capacitor(,N)}'" ljust}
+ move right_ hm
+ {xtal ; move ;"`{\tt xtal}'" ljust}
+}
+ move down 0.25; right_
+{ {capacitor(,dC); move ;"`{\tt capacitor(,dC)}'" ljust}
+ move right_ hm
+ {capacitor(,dF); move ;"`{\tt capacitor(,dF)}'" ljust}
+ move right_ hm
+ {variable(`capacitor',NN,-30,dimen_/3)
+ move ;`"{\tt variable(}`{\tt capacitor',}"' ljust \
+ `"{\enskip\tt NN,-30,dimen\_/3)}"' ljust
+ }
+}
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Capacitors.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Deleted: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/CctTable.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/CctTable.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/CctTable.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,93 +0,0 @@
-.PS
-# `CctTable.m4'
-cct_init
-
-movewid = 2 pt__
-hm = 2.05
-vm = 0.28
-{ {resistor ; move ;"`{\tt resistor}'" ljust}
- move right_ hm
- {resistor(,,Q) ; move ;"`\tt resistor(,{,}Q) '" ljust}
- move right_ hm
- {resistor(,,E) ; move
- "`\shortstack[l]{\tt resistor(,{,}E)\\ {\tt $\equiv$ ebox}}'" ljust}
-}
- move down vm; right_
-{ {resistor(,,ES) ; move ;"`\tt resistor(,{,}ES) '" ljust}
- move right_ hm
- {resistor(,,H) ; move ;"`\tt resistor(,{,}H) '" ljust}
- move right_ hm
- {ebox(,,,0.5) ; move ;"`{\tt ebox(,{,},0.5)}'" ljust}
-}
- move down vm; right_
-{ {resistor(,,V) ; move ;"`{\tt resistor(,{,}V)}'" ljust}
- move right_ hm
- {move down_ 0.05; right_
- thermocouple ; move;"`{\tt thermocouple}'" ljust; move up_ 0.05}
- move right_ hm
- {ebox(,0.5,0.3) ; move ;"`{\tt ebox(,0.5,0.3)}'" ljust}
-}
- move down vm; right_
-{ {inductor ; move ;"`{\tt inductor}'" ljust}
- move right_ hm
- {inductor(,W); move ;"`{\tt inductor(,W)}'" ljust}
- move right_ hm
- {inductor(,L); move ;"`{\tt inductor(,L)}'" ljust}
-}
- move down vm; right_
-{ {inductor(,,,M) ; move ;"`{\tt inductor(,{,},M)}'" ljust}
- move right_ hm
- {inductor(,W,6,P); move ;"`{\tt inductor(,W,6,P)}'" ljust}
- move right_ hm
- {move right_ 0.2; ttmotor(,G) ; move ;"`{\tt ttmotor(,G)}'" ljust}
-}
- move down vm; right_
-{ {capacitor ; move ;"`{\tt capacitor}'" ljust}
- move right_ hm
- {capacitor(,C); move ;"`{\tt capacitor(,C)}'" ljust}
- move right_ hm
- {capacitor(,C+); move ;"`{\tt capacitor(,C+)}'" ljust}
-}
- move down vm; right_
-{ {capacitor(,P); move ;"`{\tt capacitor(,P)}'" ljust}
- move right_ hm
- {capacitor(,E); move ;"`{\tt capacitor(,E)}'" ljust}
- move right_ hm
- {capacitor(,K); move ;"`{\tt capacitor(,K)}'" ljust}
-}
- move down 0.25; right_
-{ {capacitor(,M); move ;"`{\tt capacitor(,M)}'" ljust}
- move right_ hm
- {capacitor(,N); move ;"`{\tt capacitor(,N)}'" ljust}
- move right_ hm
- {xtal ; move ;"`{\tt xtal}'" ljust}
-}
- move down 0.25; right_
-{ {memristor ; move;"`{\tt memristor}'" ljust}
- move right_ hm
- {heater; move;"`{\tt heater}'" ljust}
- move right_ hm
- {tline ; move;"`{\tt tline}'" ljust}
-}
- move down 0.25; right_
-{ {move up_ 0.05; right_; gap ; move ;"`{\tt gap}'" ljust}
- move right_ hm
- {gap(,,A) ; move ;"`{\tt gap(,{,}A)}'" ljust}
- move right_ hm
- {arrowline ; move;"`{\tt arrowline}'" ljust}
-}
- move down 0.25; right_
-{ {lamp ; move;"`{\tt lamp}'" ljust}
- move right_ hm
- {reed ; move ;"`{\tt reed}'" ljust}
- move right_ hm
- {reed(,,,fill_(0.9),CR) ; move ; "`{\tt reed(,{,},fill\_(0.9),CR)}'" ljust}
-}
- move down 0.25; right_
-{ {pvcell ; move;"`{\tt pvcell}'" ljust}
- move right_ hm
- {arrester ; move ;"`{\tt arrester}'" ljust}
-}
-
-
-.PE
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Chips.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Chips.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Chips.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,45 @@
+.PS
+# Chips.m4
+log_init
+include(ics.m4)
+
+ command "{\sf"
+
+Chips: [
+ ic4017
+ {"\sf 4017" at last [].Chip.sw below ljust}
+ move
+ ic4510
+ {"\sf 4510" at last [].Chip.sw below ljust}
+ move
+ icVS1053
+ {"\sf VS1053" at last [].Chip.sw below ljust}
+
+ DIP_chip_outline with .sw at last [].se+(0.5,0)
+ { `"DIP\_chip\_outline"' at last [].s below }
+ ]
+
+DIPs: [
+ DIP0: DIP
+ DIP32: DIP(32,direct=R;bodywid=0.5*scale) with .sw at last [].se+(0.5,0)
+ DIP16: DIP(16,type=Q;pinwid=1bp__) with .sw at DIP32.se+(1.5,0)
+
+ thinlines_
+ { `"\tt DIP"' at DIP0.s - (0,10bp__) }
+ { arrow <- from DIP0.Pin1 up 0.2 ; `"\sl Pin1"' ljust at Here+(-0.05,0.1) }
+ { arrow <- from DIP0.c up 0.7 right 0.25; `"\sl Body"' ljust }
+ { arrow <- from DIP0.Pin8 up 0.25 right 0.2 ; `"\sl Pin8"' above ljust }
+
+ { `"\tt DIP(32,direct=R;bodywid=0.5*scale)"' ljust \
+ at DIP32.sw - (0,10bp__) }
+ { arrow <- right 0.2 from DIP32.Pin1; `"\sl Pin1"' ljust }
+ { spline <- right 0.2 then right 0.1 up 0.1 from DIP32.Pin32
+ `"\sl Pin32"' ljust }
+
+ { `"\tt DIP(16,type=Q;pinwid=1bp\_\_)"' at DIP16.sw - (0,10bp__) ljust }
+ thicklines_
+
+ ] with .nw at last [].sw+(0,-0.3)
+
+ command "}%"
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Chips.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Chuck.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Chuck.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Chuck.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,6 +1,6 @@
.PS
# Chuck.m4
-threeD_init s_init(Views) sinclude(tst.dim)
+gen_init s_init(Views) sinclude(tst.dim)
#
#################################################################
divert(-1)
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Conn.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Conn.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Conn.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -65,5 +65,4 @@
{ `"\tt tbox(V\_1,{,},<>)"' at last [].s below }
] with .nw at T.sw+(0,-0.2)
-
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Connectors.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Connectors.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Connectors.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,9 +1,10 @@
.PS
-# Connectors
+# Connectors.m4
log_init
include(ics.m4)
ifelse(ifpgf(T)`'ifpstricks(T)`'ifpsfrag(T),T,`command "{\small\sf"')
+
# ArduinoUno
Ar: ArduinoLeonardo #with .sw at last [].se+(0.25,0)
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Cruller.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Cruller.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Cruller.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -52,10 +52,10 @@
rgbtohsv(0.6,0.4,0,h,s,v)
for i = 1 to n do {
tc = t[ix[i]]; sc = s[ix[i]]
- SE: (project(cruller(tc+dt/2,sc-ds/2)))
- SW: (project(cruller(tc-dt/2,sc-ds/2)))
- NW: (project(cruller(tc-dt/2,sc+ds/2)))
- NE: (project(cruller(tc+dt/2,sc+ds/2)))
+ SE: (Project(cruller(tc+dt/2,sc-ds/2)))
+ SW: (Project(cruller(tc-dt/2,sc-ds/2)))
+ NW: (Project(cruller(tc-dt/2,sc+ds/2)))
+ NE: (Project(cruller(tc+dt/2,sc+ds/2)))
f = ((dcosine3D(3,cruller(tc,sc))/2.25+1)/2)^2
hsvtorgb(h,(1-f)*s,1,r,g,b)
line outlined rgbstring(r,g,b) shaded rgbstring(r,g,b) ifpdf( invis ) \
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Dini.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Dini.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Dini.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -46,10 +46,10 @@
du = ur/ugrid/2
dv = vr/vgrid/2
for i=0 to n do {
- NE: project(Dini(ciu[ix[i]]+du,civ[ix[i]]+dv))
- SE: project(Dini(ciu[ix[i]]+du,civ[ix[i]]-dv))
- SW: project(Dini(ciu[ix[i]]-du,civ[ix[i]]-dv))
- NW: project(Dini(ciu[ix[i]]-du,civ[ix[i]]+dv))
+ NE: Project(Dini(ciu[ix[i]]+du,civ[ix[i]]+dv))
+ SE: Project(Dini(ciu[ix[i]]+du,civ[ix[i]]-dv))
+ SW: Project(Dini(ciu[ix[i]]-du,civ[ix[i]]-dv))
+ NW: Project(Dini(ciu[ix[i]]-du,civ[ix[i]]+dv))
f = (-cos(ciu[ix[i]])+1)/2
g = ( sin(ciu[ix[i]])+1)/2
line from NE to SE then to SW then to NW then to NE \
@@ -174,9 +174,9 @@
}
for i=1 to n do {
for j=1 to 6 do { x[j]=h[ih[i],j] }
- line from project((v[x[1],1]),(v[x[1],2]),(v[x[1],3]))\
- for_(2,6,1,`to project((v[x[m4x],1]),(v[x[m4x],2]),(v[x[m4x],3]))\')\
- to project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) thick 0.2 fill_(0.95)
+ line from Project((v[x[1],1]),(v[x[1],2]),(v[x[1],3]))\
+ for_(2,6,1,`to Project((v[x[m4x],1]),(v[x[m4x],2]),(v[x[m4x],3]))\')\
+ to Project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) thick 0.2 fill_(0.95)
}
m = 0
for i=1 to 12 do { # Visible pentagons
@@ -185,9 +185,9 @@
}
for i=1 to m do {
for j=1 to 5 do { x[j]=p[ip[i],j] }
- line from project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) \
- for_(2,5,1,`to project((v[x[m4x],1]),(v[x[m4x],2]),(v[x[m4x],3]))\')\
- to project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) thick 0.2 fill_(0)
+ line from Project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) \
+ for_(2,5,1,`to Project((v[x[m4x],1]),(v[x[m4x],2]),(v[x[m4x],3]))\')\
+ to Project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) thick 0.2 fill_(0)
}
] scaled 2.5 with .sw at last [].se+(1,0)
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Escher.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Escher.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Escher.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,51 +1,161 @@
.PS
+# Escher.m4
+# https://tex.stackexchange.com/questions/129274/showcase-of-optical-illusions-made-with-tex-latex-luatex-context
threeD_init
+[
+ u=1/2.54 # unit size; could use scale for this
+
+ define(`treadcolor',`0.8,0.75,0.7')
+ define(`darkgrn',`.1,.1,0')
+ define(`lightgrn',`.7,.7,.6')
+
+ define(`northsteps',3)
+ define(`eaststeps',8)
+ define(`southsteps',7)
+ define(`weststeps',4)
+ define(`baselayers',10)
+ define(`eb',eval(baselayers+eaststeps))
+ define(`ebs',eval(eb+southsteps))
+ define(`under',7)
+
+ azimuth = -45 # view angles
+ elevation = 25
+ setview(azimuth,elevation,0)
+ # projected unit vectors
+ UX: Project(u,0,0)
+ UY: Project(0,-u,0)
+ UZ: Project(0,0,u)
+ # layer thickness in units of u
+ f= -(eaststeps*UX.y + southsteps*UY.y - weststeps*UX.y - northsteps*UY.y)/dnl
+ ((eaststeps+southsteps+weststeps+northsteps)*UZ.y)
+ # XY projection of 3D coords in units of u
+define proj {UX*($1)+UY*($2)+UZ*($3)}
+
+define tread {line from UY/2 \
+ to UY then to UY+UX then to UX then to (0,0) \
+ then to UY/2 shaded rgbstring(treadcolor) \
+ with .start at proj($1,$2,$3)+UY/2 }
+
+define wrect {line invis from (0,0) to UX*($4) \
+ then to UX*($4)+UZ*($5) \
+ then to UZ*($5) then to (0,0) with .start at proj($1,$2,$3) \
+ shaded rgbstring(r,g,b)}
+
+define srect {line invis from (0,0) to UY*($4) then to UY*($4)+UZ*($5) \
+ then to UZ*($5) then to (0,0) with .start at proj($1,$2,$3) \
+ shaded rgbstring(r,g,b) }
+ # color blending
+define(`blendwht',`between3D(`$1',`$2',`$3',`$4',1,1,1)')
+define makergb { r = $1; g = $2; b = $3 }
+define dorgb { gg = $2
+ if $1==0 then { makergb(blendwht(gg,lightgrn)) } \
+ else { makergb(blendwht(gg,darkgrn)) } }
+
+# East
+ for i=-under to baselayers do {
+ dorgb((i%2),0.2)
+ wrect(1,1,i*f,eaststeps-2,-f) }
+ for i=0 to eaststeps do {
+ dorgb((i%2),0.2)
+ wrect(i,1,(baselayers+i)*f,(eaststeps+1-i),-f)
+ tread(i,0,(baselayers+i)*f)
+ line from proj(i,1,(baselayers+i)*f) \
+ to proj(i,1,(baselayers-1+i)*f) }
+# South
+ for i=0 to eb do {
+ dorgb((i%2),0.4)
+ srect(eaststeps+1,0,i*f,southsteps+1,-f) }
+ for i=1 to southsteps do {
+ dorgb((i%2),0.4)
+ srect(eaststeps+1,i,(eb+i)*f,(southsteps+1-i),-f)
+ tread(eaststeps,i,(eb+i)*f)
+ line from proj(eaststeps+1,i,(eb+i)*f) \
+ to proj(eaststeps+1,i,(eb+i-1)*f) }
+# North
+ for i=-under to baselayers-northsteps-1 do {
+ dorgb((i%2),0.1)
+ srect(1,1,i*f,northsteps-1,-f) }
+ for i=1 to northsteps do {
+ dorgb((i%2),0.1)
+ srect(1,1,(baselayers-i)*f,i,-f)
+ wrect(0,1+i,(baselayers-i)*f,1,-f)
+ line from proj(0,1+i,(baselayers-i)*f) \
+ to proj(0,1+i,(baselayers-i-1)*f)
+ line from proj(1,1+i,(baselayers-i)*f) \
+ to proj(1,1+i,(baselayers-i-1)*f)
+ tread(0,i,(baselayers-i)*f) }
+# West
+ for i=0 to ebs do {
+ dorgb((i%2),0.4)
+ wrect(eaststeps+1,southsteps+1,i*f,-(weststeps+1),-f) }
+ for i=0 to weststeps-1 do {
+ dorgb((i%2),0.4)
+ wrect(eaststeps-i,southsteps+1,(ebs+i+1)*f,-(weststeps-i),-f,)
+ srect(eaststeps-i,southsteps,(ebs+i+1)*f,1,-f)
+ if i!=weststeps-1 then {
+ line from proj(eaststeps-i,southsteps,(ebs+i+1)*f) \
+ to proj(eaststeps-i,southsteps,(ebs+i)*f) }
+ line from proj(eaststeps-i,southsteps+1,(ebs+i+1)*f) \
+ to proj(eaststeps-i,southsteps+1,(ebs+i)*f)
+ tread(eaststeps-(i+1),southsteps,(ebs+i+1)*f) }
+# Corner lines
+ define(`dgreen',`outlined rgbstring(blendwht(0.2,darkgrn))')
+ line dgreen from proj(1,1,(baselayers-1)*f) to proj(1,1,-under*f)
+ line dgreen from proj(eaststeps+1,southsteps+1,ebs*f) \
+ to proj(eaststeps+1,southsteps+1,-f)
+ line dgreen from proj(0,northsteps+1,(baselayers-northsteps)*f) \
+ to last line.end-UX*(weststeps+1) then to last line.end \
+ then to proj(eaststeps+1,0,-f) then to proj(eaststeps+1,0,eb*f)
+ ]
+
+ifelse(1,1,`
+[
setview(-45,20)
bwid = 2.8
bh = 1.5
bdp = 1.8
bth = 0.3
- A: project(0,0,0)
- AA: A+(project(bth,bth,-bth))
- B: project(0,bwid,0)
- BB: B+(project(bth,-bth,-bth))
- C: project(bdp,bwid,0)
- D: project(bdp,0,0)
- E: project(0,0,-bh)
- F: project(bdp,0,-bh)
- G: project(bdp,bwid,-bh)
- H: B + (project(0,0,-bh))
+ A: Project(0,0,0)
+ AA: A+Project(bth,bth,-bth)
+ B: Project(0,bwid,0)
+ BB: B+Project(bth,-bth,-bth)
+ C: Project(bdp,bwid,0)
+ D: Project(bdp,0,0)
+ E: Project(0,0,-bh)
+ F: Project(bdp,0,-bh)
+ G: Project(bdp,bwid,-bh)
+ H: B + Project(0,0,-bh)
line from A to B then to C then to D then to A then to E then to F \
then to G then to H then to E
line from C to G
- line from A+(project(bth,bth,0)) to B+(project(bth,-bth,0)) \
- then to C+(project(-bth,-bth,0))
- L1: line to D+(project(-bth,bth,0))
- L2: line to A+(project(bth,bth,0))
- L4: line from E+(project(bth,bth,0)) to H+(project(bth,-bth,0))
- L3: line to C+(project(-bth,-bth,-bh))
- line to F+(project(-bth,bth,0)) then to A+(project(bth,bth,-bh))
+ line from A+Project(bth,bth,0) to B+Project(bth,-bth,0) \
+ then to C+Project(-bth,-bth,0)
+ L1: line to D+Project(-bth,bth,0)
+ L2: line to A+Project(bth,bth,0)
+ L4: line from E+Project(bth,bth,0) to H+Project(bth,-bth,0)
+ L3: line to C+Project(-bth,-bth,-bh)
+ line to F+Project(-bth,bth,0) then to A+Project(bth,bth,-bh)
- L5: line from D+(project(-bth,0,-bth)) to A+(project(bth,0,-bth))
- line to E+(project(bth,0,bth))
- L6: line to Here+(project(0,bwid-2*bth,0))
- L7: line from D+(project(0,bth,-bth)) to C+(project(0,-bth,-bth))
- line to G+(project(0,-bth,bth))
- L8: line to Here+(project(-bdp+2*bth,0,0))
- Tmp: line invis from L8.start+(project(-bth,0,0)) up bh
+ L5: line from D+Project(-bth,0,-bth) to A+Project(bth,0,-bth)
+ line to E+Project(bth,0,bth)
+ L6: line to Here+Project(0,bwid-2*bth,0)
+ L7: line from D+Project(0,bth,-bth) to C+Project(0,-bth,-bth)
+ line to G+Project(0,-bth,bth)
+ L8: line to Here+Project(-bdp+2*bth,0,0)
+ Tmp: line invis from L8.start+Project(-bth,0,0) up bh
line from Tmp.start to Intersect_(Tmp,L7)
Tmp: line invis from L8.end up bh
line from L8.end to Intersect_(Tmp,L7)
- line from Intersect_(Tmp,L1) to BB+(project(bth,0,0))
- Tmp: line invis to Here+(project(bdp,0,0))
+ line from Intersect_(Tmp,L1) to BB+Project(bth,0,0)
+ Tmp: line invis to Here+Project(bdp,0,0)
line from Tmp.start to Intersect_(Tmp,L1)
Tmp: line invis from H up bh
line from H to Intersect_(Tmp,L7)
- line from Intersect_(Tmp,L1) to B+(project(bth,-bth,0))
+ line from Intersect_(Tmp,L1) to B+Project(bth,-bth,0)
- Tmp: line invis from AA to AA+(project(0,bwid,0))
+ Tmp: line invis from AA to AA+Project(0,bwid,0)
Tmp2: line invis up bh from L6.end
line from Intersect_(Tmp,L2) to Intersect_(Tmp2,Tmp) \
then to Intersect_(Tmp2,L1)
@@ -56,22 +166,23 @@
Tmp: line invis down bh from D
line from D to Intersect_(Tmp,L6)
- line from Intersect_(Tmp,L4) to F+(project(-bth,bth,0))
+ line from Intersect_(Tmp,L4) to F+Project(-bth,bth,0)
- Tmp: line invis from L5.start to L5.start+(project(0,0,-bh))
- move to E+(project(0,2*bth,0))
- Tmp2: line invis to Here+(project(bdp,0,0))
+ Tmp: line invis from L5.start to L5.start+Project(0,0,-bh)
+ move to E+Project(0,2*bth,0)
+ Tmp2: line invis to Here+Project(bdp,0,0)
line from L5.start to Intersect_(Tmp,L6)
line from Intersect_(Tmp,L4) to Intersect_(Tmp,Tmp2) \
then to Intersect_(Tmp2,L4)
- Tmp: line invis from L7.start to L7.start+(project(0,0,-(bh-bth)))
+ Tmp: line invis from L7.start to L7.start+Project(0,0,-(bh-bth))
line from L7.start to Intersect_(Tmp,L6)
- move to G+(project(-2*bth,0,0))
- Tmp2: line invis to Here+(project(0,-bwid,0))
+ move to G+Project(-2*bth,0,0)
+ Tmp2: line invis to Here+Project(0,-bwid,0)
line from Intersect_(Tmp2,L3) to Intersect_(Tmp,Tmp2)
line from Intersect_(Tmp,L4) to Intersect_(Tmp2,Tmp)
-
+] with .sw at last [].se+(0.2,0)
+')
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Euro.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Euro.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Euro.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,13 +1,5 @@
-% Euro symbol; process this file as follows:
-% m4 Euro.m4 > Euro.pic; dpic -p Euro.pic > Euro.tex ; latex Euro; dvips Euro
-\documentclass{article}
-\usepackage{pstricks}
-\usepackage{boxdims,xcolor}
-\pagestyle{empty}
-\thispagestyle{empty}
-\begin{document}
-\noindent\vspace{2ex}
.PS
+#Euro.m4
include(pstricks.m4)
gen_init
divert(-1)
@@ -135,4 +127,3 @@
euro_symbol(ht=72bp__*2; aspect=1.0; slant=15)
.PE
-\end{document}
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Geometry.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Geometry.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Geometry.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,11 +1,11 @@
.PS
# Geometry.m4
gen_init
- scale = 5/4
- A: Here; "A" at A above
- B: A+(-1,-3.5); "B" at B below rjust
- C: B+(4.6,0); "C" at C below ljust
+Fig1: [ ls = 2/3 # local scale
+ A: Here; "A" at A above
+ B: A+(-1*ls,-3.5*ls); "B" at B below rjust
+ C: B+(4.6*ls,0); "C" at C below ljust
AB: line from A to B
BC: line from B to C
CA: line from C to A
@@ -42,5 +42,29 @@
line dashed from X to Y chop -linewid/2
RightAngle(A,Z,Y)
+ ]
+Fig2: [ ls = 3/4 # local scale
+# https://tex.stackexchange.com/questions/593272/drawing-complex-geometry
+ P: dot(at Here); "P" at P.s below
+ N: dot(at P+(3.5*ls,1.5*ls)); "N" at N.se ljust below
+ O: dot(at (N,P)); "O" at O.s below
+ R: dot(at 1/3 between O and P);"R" at R.s below
+ M: dot(at (R,N)); "M" at M.se ljust below
+ Q: dot(at (M.x,M.y+distance(M,N)/distance(N,O)*distance(P,O)));"Q" at Q.e ljust
+ line from P to Q then to N then to O
+ B: line to P chop -0.3
+ line from M to N
+ Pu: line from R to Q chop 0 chop -0.3
+ H: line from P to N chop 0 chop -0.3
+ X: dot(at Intersect_(Pu,H)); "X" at X.se ljust below
+ thinlines_
+ RightAngle(Q,M,N)
+ RightAngle(Q,N,H.end)
+ RightAngle(N,O,B.start)
+ ArcAngle(N,P,Q,0.4); "$\beta$" at last arc.ne above ljust
+ ArcAngle(O,P,N,0.5); "$\alpha$" at last arc.start+(5bp__,8bp__)
+ ArcAngle(R,Q,N,0.5); "$\alpha$" at last arc.start+(8bp__,-5bp__)
+ ] with .w at Fig1.e+(-0.4,0)
+
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Heathkit.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Heathkit.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Heathkit.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -29,9 +29,9 @@
# Grid
ifdpic(`linethick_(0.4)',`linethick_(0)')
for i=0 to picwid/g do { line color "lightgray" up picht from (i*g,0) }
- for i=0 to picwid/g by 10 do { sprintf("%g",i) at (i*g,0) below }
+ for i=0 to picwid/g by 10 do { sprintf(tsf(%g),i) at (i*g,0) below }
for i=0 to picht/g do { line color "lightgray" right picwid from (0,i*g) }
- for i=0 to picht/g by 10 do { sprintf("%g",i) at (0, i*g) rjust }
+ for i=0 to picht/g by 10 do { sprintf(tsf(%g),i) at (0, i*g) rjust }
linethick_(0.8)
ifdpic(`
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Inductors.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Inductors.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Inductors.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,47 @@
+.PS
+# inductors.m4
+cct_init
+iflatex(command "{\tt")
+
+movewid = 2 pt__
+hm = 2.05
+vm = 0.4
+{ {I: inductor ; move ;"`{inductor}'" ljust}
+ move right_ hm
+ {inductor(,W); move ;"`{inductor(,W)}'" ljust}
+ move right_ hm
+ {inductor(,L); move ;"`{inductor(,L)}'" ljust}
+}
+
+ move down vm; right_
+{ {inductor(,,3,M) ; move ;"`{...(,,3,M)}'" ljust}
+ move right_ hm
+ {inductor(,W,6,P1); variable; move
+ "`...(,W,6,P1);'" ljust "`variable'" ljust}
+ move right_ hm
+ {inductor(,L,9,K); move ;"`{...(,L,9,K)}'" ljust}
+}
+
+ move down vm; right_
+{ {inductor(,,,M3); addtaps(-,1/2,-dimen_/6); move; `"...(,{,},M3)"' ljust
+ {`"addtaps(-,1/2,-dimen\_/6)"' ljust at (I.start,last ""+(0,-0.2)) }
+ }
+ move right_ hm
+ {ebox(,,,0) ; move ;"`{ebox(,{,},0)}'" ljust}
+ move right_ hm -10bp__
+ {TI: tapped(`ebox(,,,0)',-,1/4,-dimen_/6,3/4,-dimen_/6) ; move ;
+ "`tapped(\char96{}ebox(,{,},0)\char39,'" ljust at Here+(10bp__,-5bp__) \
+ "-,1/4,-dimen\_/6," ljust "3/4,-dimen\_/6)" ljust
+ "\sl Tap1" at TI.Tap1 rjust below
+ "\sl Tap2" at TI.Tap2 ljust below }
+}
+
+ move down vm*5/4; right_
+{ {shielded(`inductor(,,,M)') ; move
+ `"shielded("' ljust `"\char96inductor(,{,},M)\char39)"' ljust
+ move to (3rd last line.start,Here)
+ shielded(`ebox(,,,0)',R) ; move; `"shielded(`ebox(,{,},0)',R)"' ljust }
+}
+
+iflatex(command "}")
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Inductors.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Lyap.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Lyap.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Lyap.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -7,7 +7,7 @@
viewel = 18
setview(viewaz,viewel)
-Origin: project(0,0,0)
+Origin: Project(0,0,0)
# Components of view vector W
w1 = view3D1
w2 = view3D2
@@ -45,7 +45,7 @@
y = y1 + (y2-y1)/nT*i
theta = atan2(y,(w3-2*y*w2)*q/2/w1)
r = y/sin(theta)
- T[i]: project(vx(theta,r))
+ T[i]: Project(vx(theta,r))
}
# front and back parts of the top curve
@@ -52,13 +52,13 @@
n = 12
for i = 0 to n do {
theta = theta1 + (theta2-theta1)/n*i
- F[i]: project(vx(theta,c))
- Fp[i]: project(vp(theta,c))
+ F[i]: Project(vx(theta,c))
+ Fp[i]: Project(vp(theta,c))
}
for i = 0 to n do {
theta = theta2 + (theta1+twopi_-theta2)/n*i
- B[i]: project(vx(theta,c))
- Bp[i]: project(vp(theta,c))
+ B[i]: Project(vx(theta,c))
+ Bp[i]: Project(vp(theta,c))
}
# trajectory
@@ -74,8 +74,8 @@
for i = 0 to `$3' do {
tha = ts + (tf-ts)*i/(`$3')
for thx = tha to -twopi_ by twopi_ do {}
- `$4'[i]: project(vx(thx,rx))
- Xp[np]: project(vp(thx,rx))
+ `$4'[i]: Project(vx(thx,rx))
+ Xp[np]: Project(vp(thx,rx))
np = np+1
rx = beta*rx
}')
@@ -102,7 +102,7 @@
# Centre axis
thinlines_
-line from Origin to project(0,0,h)
+line from Origin to Project(0,0,h)
# F[0] is the leftmost point of the front curve
line from F[0] to Fp[0]
# F[n] is the rightmost point of the front curve
@@ -144,16 +144,16 @@
# Axes and vertical lines
thinlines_
line from X1[0] to Xp[0]
-arrow from Origin to project(1.5,0,0)
+arrow from Origin to Project(1.5,0,0)
"$x_1$" rjust below
-arrow from Origin to project(0,1.5,0)
+arrow from Origin to Project(0,1.5,0)
"$x_2$" ljust
-line dashed from project(0,0,h) to F[n/2] chop 0 chop arrowht/4
-arrow from F[n/2] to project(0,0,2)
+line dashed from Project(0,0,h) to F[n/2] chop 0 chop arrowht/4
+arrow from F[n/2] to Project(0,0,2)
"$v(X)$" ljust
"`${0}$'" at Origin+(0,1 pt__) below
-"$\Omega$" at project(0,0.9*c,0) above
-"`$v(X) = c$'" at (project(vp(100*dtor_,c)))+(2bp__,0) above ljust
+"$\Omega$" at Project(0,0.9*c,0) above
+"`$v(X) = c$'" at (Project(vp(100*dtor_,c)))+(2bp__,0) above ljust
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Makefile
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Makefile 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Makefile 2021-06-03 20:45:51 UTC (rev 59444)
@@ -27,39 +27,37 @@
LIBDIR = ..
# The dpic processor:
-PIC = dpic -p
-#PIC = $$HOME/dpic/build/p2c/ftp/dpic -p
-#PIC = $$HOME/dpic/pa*dev/p2c/ftp/dpic -p
-#PIC = $$HOME/dpic/bison/dpic -p
-#PIC = $$HOME/dpic/bi*v/dpic -p
+PIC = dpic
+#PIC = $$HOME/dpic/bisondev/dpic
+#PIC = $$HOME/dpic/bison/dpic
+#PIC = $$HOME/dpic/pascaldev/test/dpic
+#PIC = $$HOME/dpic/pascal/test/dpic
-CONFIGFILE = pstricks.m4
+#MODE = -p
+MODE = -g
-# Testing the mingw version of dpic:
-#PIC = $$HOME/dpic/bison/distsrc/Windows/dpic -p
-#CUSTOM=windows.m4
+#CONF = pstricks.m4
+CONF = pgf.m4
# Uncomment for gpic. Use gpic or pic as applicable on your machine:
-# PIC = gpic -t
-# PIC = pic -t
-# CONFIGFILE = gpic.m4
+# PIC = gpic
+# PIC = pic
+# MODE = -t
+# CONF = gpic.m4
# Convert options
EPSOPTS =
PNGOPTS = -quiet -density 400 -scale 25% -alpha Remove
-# M4 = m4 -B32000
# M4 = m4 -I $(LIBDIR)
# If environment variable M4PATH has been set to the installation directory:
M4 = m4
-#########################################################################
-
DOC = examples
PICS = \
ABlogix.tex Adder.tex Alogix.tex AmpTable.tex Antennas.tex \
- AntiqueClock.tex Audio.tex Bip.tex Btree.tex Buttons.tex Byte.tex \
- CanLogic.tex CctTable.tex Conn.tex Connectors.tex \
+ Audio.tex Bip.tex Btree.tex Buttons.tex Byte.tex \
+ Capacitors.tex CanLogic.tex Chips.tex Conn.tex Connectors.tex \
Contacts.tex Contact.tex control.tex Counting.tex Crossbar.tex Crow.tex \
csc.tex Csource.tex Decoder.tex \
Demultiplexer.tex diamond.tex Dini.tex Diodes.tex Drive.tex Emarrows.tex \
@@ -66,11 +64,15 @@
ex00.tex ex01.tex ex02.tex ex03.tex ex04.tex ex05.tex ex06.tex ex08.tex \
ex09.tex ex10.tex ex11.tex ex12.tex ex15.tex ex16.tex ex17.tex ex18.tex \
ex21.tex exp.tex fet.tex Flow.tex Fuses.tex GrayCode.tex graysurf.tex \
- Grounds.tex Headers.tex Heathkit.tex I2L.tex Incleps.tex Jack.tex \
- lcct.tex Lyap.tex Logic.tex Loglog.tex MC.tex Mixer.tex MotorControl.tex \
- Multiplexer.tex NLG.tex NPDT.tex Nport.tex Opamp.tex Optoiso.tex \
- Pconn.tex PushPull.tex pwrsupply.tex Quantum.tex quick.tex random.tex \
- Rectifiers.tex recycle.tex relaycoil.tex Relay.tex rose.tex Rotbox.tex \
+ Grounds.tex Headers.tex Heathkit.tex \
+ I2L.tex Incleps.tex Inductors.tex Jack.tex \
+ lcct.tex Lyap.tex Logic.tex Loglog.tex MC.tex Mixer.tex MoreTable.tex \
+ MotorControl.tex Multiplexer.tex \
+ NLG.tex NPDT.tex Nport.tex Opamp.tex Optoiso.tex \
+ Pconn.tex Plate.tex PushPull.tex pwrsupply.tex \
+ Quantum.tex quick.tex \
+ random.tex Rectifiers.tex recycle.tex relaycoil.tex Relay.tex \
+ Resistors.tex rose.tex Rotbox.tex \
Schottky.tex sfg.tex shapes.tex ShiftR.tex Sierpinski.tex Sixpole.tex \
Sources.tex SQUID.tex Switches.tex \
Tgate.tex Three.tex thyristor.tex \
@@ -80,20 +82,26 @@
# Files that have to be processed twice:
BOXDIMS = ex09.tex Crow.tex Incleps.tex Lyap.tex Loglog.tex Opamp.tex \
random.tex Ttree.tex Windings.tex
-BOXPICS = ex09.pic Crow.pic Incleps.pic Lyap.pic Loglog.pic Opamp.pic \
- random.pic Ttree.pic Windings.pic
-DVIPSOPTS = -Ppdf -G0 -t letter
+#########################################################################
+
DVIPSOPTS = -G0 -t letter
-M4LIBS = $(CONFIGFILE) $(CUSTOM)
DIMFILE = $(DOC).dim
BS = tr '|' '\134'
# Might be needed (change latex commands to $(LTX) )
# LTX = latex --shell-escape
+LTX = pdflatex --shell-escape
+PDFLTXSRC=printf "|documentclass[11pt]{standalone}\n\
+|usepackage{times,boxdims,siunitx,amssymb,tikz,geometry}\n\
+|geometry{paperwidth=15in,paperheight=14in,margin=1in}\n\
+|pagestyle{empty}|thispagestyle{empty}\n\
+|begin{document}|noindent|input{"$*".tex}|end{document}\n" | $(BS)
+
LTXFILE=printf "|documentclass[11pt]{article}\n\
-|usepackage{times,pstricks,boxdims,graphicx,pst-grad,pst-slpe}\n\
+|usepackage[dvipsnames]{xcolor}\n\
+|usepackage{times,boxdims,graphicx,pstricks}\n\
|usepackage{siunitx}\n\
|setlength{|textwidth}{28cm}|setlength{|textheight}{28cm}\n\
|setlength{|oddsidemargin}{0pt}|setlength{|evensidemargin}{0pt}\n\
@@ -101,45 +109,45 @@
|pagestyle{empty}|thispagestyle{empty}\n\
|newbox|graph\n\
|begin{document}\n\
-|noindent|input{"$*".tex}\n\
+|noindent|input{"$*".tex}|box|graph\n\
|end{document}\n" | $(BS)
.SUFFIXES: .ps .dvi .tex .m4 .pic .eps .png .pdf .svg .tif .gif
-.dvi.ps:
- dvips $(DVIPSOPTS) $* -o $*.ps
- chmod 644 $*.ps
+.m4.pic:
+ @touch $(DIMFILE) F_$*.dim
+ $(M4) $(CONF) $(DIMFILE) F_$*.dim $*.m4 > $*.pic
.m4.tex:
- @if test -n "$(DIMFILE)" ; then touch $(DIMFILE) ; fi ; touch F_$*.dim
- $(M4) $(M4LIBS) $(DIMFILE) F_$*.dim $*.m4 | sed -e '/^ *$$/d' \
- | $(PIC) > $*.tex
-# $(M4) $(M4LIBS) $(DIMFILE) F_$*.dim $*.m4 | sed -e '/^ *$$/d' > $*.pic
-# $(PIC) $*.pic > $*.tex
-# grep Production dpic.log >> newp.txt
-.m4.pic:
- @if test -n "$(DIMFILE)" ; then touch $(DIMFILE) ; fi
- $(M4) $(M4LIBS) $(DIMFILE) $*.m4 > $*.pic
+ @touch $(DIMFILE) F_$*.dim
+ $(M4) $(CONF) $(DIMFILE) F_$*.dim $*.m4 | $(PIC) $(MODE) > $*.tex
.m4.dvi:
- @if test -n "$(DIMFILE)" ; then touch $(DIMFILE) ; fi ; touch F_$*.dim
- $(M4) $(M4LIBS) $(DIMFILE) F_$*.dim $*.m4 | sed -e '/^ *$$/d' \
- | $(PIC) > $*.tex
- $(LTXFILE) > F_$*.tex
+ @touch $(DIMFILE) F_$*.dim
+ $(M4) pstricks.m4 $(DIMFILE) F_$*.dim $*.m4 | $(PIC) -p > $*.tex
+ @$(LTXFILE) > F_$*.tex
latex --quiet F_$*
- touch F_$*.dim $(DIMFILE) ; rm -f $*.tex $*.pic ; make $*.tex
+ touch F_$*.dim $(DIMFILE)
+ $(M4) pstricks.m4 $(DIMFILE) F_$*.dim $*.m4 | $(PIC) -p > $*.tex
latex --quiet F_$*
- touch F_$*.dim $(DIMFILE) ; rm -f $*.tex $*.pic ; make $*.tex
+ mv F_$*.dvi $*.dvi
+ rm -f F_*
+.dvi.ps:
+ dvips $(DVIPSOPTS) $* -o $*.ps
+ chmod 644 $*.ps
+.m4.ps:
+ @touch $(DIMFILE) F_$*.dim
+ $(M4) pstricks.m4 $(DIMFILE) F_$*.dim $*.m4 | $(PIC) -p > $*.tex
+ @$(LTXFILE) > F_$*.tex
latex --quiet F_$*
+ dvips $(DVIPSOPTS) F_$* -o $*.ps
+ chmod 644 $*.ps
+ rm -f F_*
.m4.eps:
- @if test -n "$(DIMFILE)" ; then touch $(DIMFILE) ; fi ; touch F_$*.dim
- $(M4) $(M4LIBS) $(DIMFILE) F_$*.dim $*.m4 | sed -e '/^ *$$/d' \
- | $(PIC) > $*.tex
- $(LTXFILE) > F_$*.tex
+ @touch $(DIMFILE) F_$*.dim
+ $(M4) pstricks.m4 $(DIMFILE) F_$*.dim $*.m4 | $(PIC) -p > $*.tex
+ @$(LTXFILE) > F_$*.tex
latex --quiet F_$*
- touch F_$*.dim $(DIMFILE) ; rm -f $*.tex $*.pic ; make $*.tex
+ $(M4) pstricks.m4 $(DIMFILE) F_$*.dim $*.m4 | $(PIC) -p > $*.tex
latex --quiet F_$*
- touch F_$*.dim $(DIMFILE) ; rm -f $*.tex $*.pic ; make $*.tex
- latex --quiet F_$*
dvips F_$* -T128cm,28cm -o $*.ps
-# dvips -Ppdf F_$* -T128cm,28cm -o $*.ps
# Recent changes to PSTricks(?) have clashed with the use of TeXtoEPS
# so use ps2epsi
ps2epsi $*.ps $*.epsi
@@ -146,62 +154,45 @@
sed -e '/%%Pages:/d' -e '/BeginPreview/,$$d' $*.epsi \
| tr '\015' '\012' > $*.eps
sed -e '1,/EndPreview/d' $*.epsi >> $*.eps
-.m4.ps:
- make $*.tex && mv $*.tex test.tex; latex tst
- rm -f test.tex $*.pic
- if test -f tst.dim ; then cp tst.dim F_$*.dim ; fi
- make $*.tex && mv $*.tex test.tex; latex tst
- dvips $(DVIPSOPTS) tst -o $*.ps
- chmod 644 $*.ps
-#.m4.svg:
-# make $*.eps
-# convert $(EPSOPTS) $*.eps $*.svg
+ rm -f F_*
+.m4.pdf:
+ @touch $(DIMFILE) F_$*.dim
+ $(M4) pgf.m4 $(DIMFILE) F_$*.dim $*.m4 | $(PIC) -g > $*.tex
+ @$(PDFLTXSRC) > F_$*.tex
+ pdflatex --quiet F_$*
+ $(M4) pgf.m4 $(DIMFILE) F_$*.dim $*.m4 | $(PIC) -g > $*.tex
+ pdflatex --quiet F_$*
+ mv F_$*.pdf $*.pdf
+ rm -f F_*
.m4.png:
- make $*.eps
- convert $(PNGOPTS) $*.eps $*.png
+ make $*.pdf
+ convert $(PNGOPTS) $*.pdf $*.png
@if test -f $*.png.0 ; then mv $*.png.0 $*.png ; fi
+ rm $*.pdf
.m4.gif:
- make $*.ps
- convert $(GIFOPTS) $*.ps $*.gif
-# @if test -f $*.png.0 ; then mv $*.png.0 $*.png ; fi
+ make $*.pdf
+ convert $(GIFOPTS) $*.pdf $*.gif
+ rm $*.pdf
.m4.tif:
- make $*.eps
- convert $(EPSOPTS) $*.eps $*.tif
+ make $*.pdf
+ convert $(EPSOPTS) $*.pdf $*.tif
@if test -f $*.tif.0 ; then mv $*.tif.0 $*.tif ; fi
-.m4.pdf:
- touch F_$*.dim
- $(M4) pgf.m4 F_$*.dim $*.m4 > $*.pic
- $(PIC) -g $*.pic > test.tex
- sed -e '/^\\usepackage.*graphicx/s/^.*$$/\\usepackage{tikz}/' \
- -e '/pstricks/d' tst.tex > F_$*.tex
- pdflatex --quiet F_$*
- $(M4) pgf.m4 F_$*.dim $*.m4 > $*.pic
- $(PIC) -g $*.pic > test.tex
- pdflatex --quiet F_$*
- mv F_$*.pdf $*.pdf
+ rm $*.pdf
.m4.svg:
- touch F_$*.dim
- $(M4) pgf.m4 F_$*.dim $*.m4 > $*.pic
- $(PIC) -g $*.pic > test.tex
- sed -e '/^\\usepackage.*graphicx/s/^.*$$/\\usepackage{tikz}/' \
- -e '/pstricks/d' tst.tex > F_$*.tex
- pdflatex --quiet F_$*
- $(M4) pgf.m4 F_$*.dim $*.m4 > $*.pic
- $(PIC) -g $*.pic > test.tex
- pdflatex --quiet F_$*
- mv F_$*.pdf $*.pdf
- pdf2svg $*.pdf $*.svg
- rm -f $*.pdf $*.pic F_$**
+ make $*.pdf
+ dvisvgm --pdf $*.pdf $*.svg
+ rm $*.pdf
+
#########################################################################
-$(DOC).pdf: clean pdfmode $(DOC).frp
+$(DOC).pdf: clean pdfmode $(DOC).tex files.tex header.tex
touch $(DOC).dim
- rm -f $(BOXDIMS) $(BOXPICS)
- make PIC="$(PIC) -g" CONFIGFILE=pgf.m4 DIMFILE=$(DOC).dim pics
+ make CONF=pgf.m4 MODE=-g DIMFILE=$(DOC).dim pics
+ cp $(LIBDIR)/doc/Version.tex .
pdflatex $(DOC)
- rm -f $(BOXDIMS) $(BOXPICS)
- make PIC="$(PIC) -g" CONFIGFILE=pgf.m4 DIMFILE=$(DOC).dim pics
+ rm -f $(BOXDIMS) ${BOXDIMS:%.tex=%.pic} $(DOC).pdf
+ make CONF=pgf.m4 MODE=-g DIMFILE=$(DOC).dim $(BOXDIMS)
pdflatex $(DOC)
optpdf $(DOC).pdf
@@ -216,47 +207,48 @@
pdfmode:
printf "|usepackage{tikz}\n" | $(BS) > mode.tex
-$(DOC).dvi: $(DOC).frs
+$(DOC).dvi: $(DOC).tex files.tex header.tex psmode
touch $(DOC).dim
- for file in $(BOXDIMS) ; do rm -f $$file.tex $$file.pic ; done
- make PIC="$(PIC)" CONFIGFILE=pstricks.m4 DIMFILE=$(DOC).dim pics
+ make CONF=pstricks.m4 MODE=-p DIMFILE=$(DOC).dim pics
+ cp $(LIBDIR)/doc/Version.tex .
latex $(DOC)
- for file in $(BOXDIMS) ; do rm -f $$file.tex $$file.pic ; done
- make PIC="$(PIC)" CONFIGFILE=pstricks.m4 DIMFILE=$(DOC).dim pics
+ rm -f $(BOXDIMS) ${BOXDIMS:%.tex=%.pic} $(DOC).dvi
+ make CONF=pstricks.m4 MODE=-p DIMFILE=$(DOC).dim $(BOXDIMS)
latex $(DOC)
-$(DOC).frs: $(DOC).tex files.tex header.tex psmode
- make PIC="$(PIC) -p" CONFIGFILE=pstricks.m4 DIMFILE=$(DOC).dim pics
- cp $(LIBDIR)/doc/Version.tex .
- latex $(DOC)
- rm -f $(DOC).dvi
- touch $(DOC).frs
-
-$(DOC).frp: $(DOC).tex files.tex header.tex pdfmode
- make PIC="$(PIC) -g" CONFIGFILE=pgf.m4 DIMFILE=$(DOC).dim pics
- cp $(LIBDIR)/doc/Version.tex .
- pdflatex $(DOC)
- rm -f $(DOC).pdf
- touch $(DOC).frp
-
tst:
- make test.tex; latex tst; rm -f test.tex test.pic
- make DIMFILE=tst.dim test.tex; latex tst
+ @$(LTXFILE) | sed -e 's/{\.tex}/{test.tex}/' > tst.tex
+ make CONF=pstricks.m4 PIC=dpic MODE=-p test.tex; latex --quiet tst
+ rm -f test.tex test.pic
+ make CONF=pstricks.m4 PIC=dpic MODE=-p test.tex; latex --quiet tst
dvips $(DVIPSOPTS) tst -o tst.ps
-tst1: test.tex tst.tex
- latex tst
+tst1:
+ @$(LTXFILE) | sed -e 's/{\.tex}/{test.tex}/' > tst.tex
+ make CONF=pstricks.m4 PIC=dpic MODE=-p test.tex; latex --quiet tst
dvips $(DVIPSOPTS) tst -o tst.ps
-gtst:
- touch test.m4; make PIC="gpic -t" CONFIGFILE="" tst
+tikz:
+ @$(LTXFILE) | sed -e 's/{\.tex}/{test.tex}/' -e 's/pstricks/tikz/' > tst.tex
+ make CONF=pgf.m4 PIC=dpic MODE=-g test.tex; latex --quiet tst
+ dvips $(DVIPSOPTS) tst -o tst.ps
-gtst1:
- touch test.m4; make PIC="gpic -t" CONFIGFILE="" tst1
+gpic:
+ @$(LTXFILE) | sed -e 's/{\.tex}/{test.tex}/' > tst.tex
+ rm -f test.tex test.pic
+ make CONF=gpic.m4 PIC=pic MODE=-t test.tex; latex --quiet tst
+ dvips $(DVIPSOPTS) tst -o tst.ps
echopics:
@echo $(PICS)
+testall:
+ (cd mf; make)
+ (cd mpost; make)
+ (cd psfrag; make)
+ (cd svg; make)
+ (cd xfig; make)
+
clobber: clean
rm -f *.ps
- at for dir in mf mpost pdflatex xfig psfrag svg dev test; \
@@ -270,7 +262,7 @@
for file in `ls *.tex` ; do \
nm=`echo $$file | sed -e "s/\(.*\)\.tex/\1/"` ; \
if test -s $$nm.m4 ; then rm -f $$nm.pic $$nm.tex ; fi ; done
- @if test -f distmakefile ; then make -f distmakefile clobber ; fi
+# @if test -f distmakefile ; then make -f distmakefile clobber ; fi
clean:
@printf "\n examples clean:\n"
@@ -277,9 +269,9 @@
rm -f core boxdims.tar.gz pics
rm -f *.dvi *.aux *.log *.toc *.blg *.eps *.tif *.epsi eps *-mfpic* *.svg
rm -f fig*.tex $(PICS) *.roff *.int *.pic gpic.m4 test.tex xxx* *.fig
- rm -f *.dim *.bak *.frs *.frp $(RPICS) rotate.ps tst.ps *.bbl *-pics.ps
+ rm -f *.dim *.bak rotate.ps tst.ps *.bbl *-pics.ps
rm -f *.tfm *[0-9]pk *.png *.1 *.gif
rm -f F_* Version.tex *stackdump *.ico
rm -rf distfile distfile.tar.gz mode.tex
@printf "\n"
- @if test -f distmakefile ; then make -f distmakefile clean ; fi
+# @if test -f distmakefile ; then make -f distmakefile clean ; fi
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MoreTable.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MoreTable.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MoreTable.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,36 @@
+.PS
+# MoreTable.m4
+cct_init
+
+movewid = 2 pt__
+hm = 2.05
+vm = 0.28
+{ {memristor ; move;"`{\tt memristor}'" ljust}
+ move right_ hm
+ {heater; move;"`{\tt heater}'" ljust}
+ move right_ hm
+ {tline ; move;"`{\tt tline}'" ljust}
+}
+ move down 0.25; right_
+{ {pvcell ; move;"`{\tt pvcell}'" ljust}
+ move right_ hm
+ {reed ; move ;"`{\tt reed}'" ljust}
+ move right_ hm
+ {reed(,,,fill_(0.9),CR) ; move ; "`{\tt reed(,{,},fill\_(0.9),CR)}'" ljust}
+}
+ move down 0.25; right_
+{ {gap ; move ;"`{\tt gap}'" ljust}
+ move right_ hm
+ {gap(,,A) ; move ;"`{\tt gap(,{,}A)}'" ljust}
+ move right_ hm
+ {arrowline ; move;"`{\tt arrowline}'" ljust}
+}
+ move down 0.25; right_
+{ move down 0.10; right; {lamp ; move;"`{\tt lamp}'" ljust}
+ move right_ hm
+ {thermocouple ; move;"`{\tt thermocouple}'" ljust }
+# move up 0.10 right_ hm
+# {arrester ; move ;"`{\tt arrester}'" ljust}
+}
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MoreTable.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Orbits.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Orbits.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Orbits.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -10,7 +10,7 @@
define(`orbitpos',
`rot3Dx((`$2')*dtor_,rot3Dz((`$1')*dtor_,rot3Dy(-(`$4')*dtor_,`$3',0,0)))')
-define(`PO',`B.C+(project(orbitpos(orbitlong,orbitlat,orbitrad,`$1')))')
+define(`PO',`B.C+(Project(orbitpos(orbitlong,orbitlat,orbitrad,`$1')))')
define vis { X: PO($1)
if (distance(X,B.C)>crad) || \
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Planes.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Planes.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Planes.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -77,10 +77,10 @@
# Recover the 4th corner and draw
define(`drawfacet',`
- NW_facet: project(xyz(($1)*3))
- NE_facet: project(xyz(($1)*3+1))
- SE_facet: project(xyz(($1)*3+2))
- SW_facet: project(x[($1)*3+2],y[($1)*3],z[($1)*3])
+ NW_facet: Project(xyz(($1)*3))
+ NE_facet: Project(xyz(($1)*3+1))
+ SE_facet: Project(xyz(($1)*3+2))
+ SW_facet: Project(x[($1)*3+2],y[($1)*3],z[($1)*3])
shd = 1-($2)^4
line from SW_facet to SE_facet then to NE_facet \
then to NW_facet then to SW_facet shaded rgbstring(shd,shd,shd)
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Plate.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Plate.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Plate.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,174 @@
+.PS
+# Plate.m4
+# ASME_Y14-5.m4
+# https://en.wikipedia.org/wiki/Geometric_dimensioning_and_tolerancing
+# See the ASME Y14.5 standard, Figure 6-30.
+scale = 100/3
+cct_init
+include(ASME_Y14-5.m4)
+ifsvg(`svg_font(sans-serif,10bp__)',
+`textht = 10bp__*2/3
+ iflatex(`command "{\sf"')')
+# ASME Y14.5 specs:
+ arrowht = textht*0.8
+ arrowwid = textht*0.6
+ maxpswid = 12
+
+# Diameters
+ d1 = (20.13+20.00)/2
+ d2 = 31.7
+ d3 = 36
+ d4 = (40.60+40.45)/2
+ d5 = 57
+ d6 = 86
+ d7 = 100
+ d8 = 8.0
+ adj = 1.5
+
+Section: [
+ Orig: (0,0)
+ T0: (0,-d7/2)
+ T1: (6,-d5/2)
+ T2: (15.5,-d3/2)
+ T3: (22,-d3/2-adj)
+ T4: (32,-d2/2)
+ T5: (41.3,0)
+ T6: (9.5,-d4/2)
+# for_(0,5,1,`"m4x" at T`'m4x')
+# Hatching
+ H: hatchbox(invis ht d7 wid 41.3,2,thick 0.4,-45) with .w at Orig
+ box invis fill_(1) wid T5.x-T1.x ht T1.y-H.s.y with .se at H.se
+ box same with .ne at H.ne
+ box invis fill_(1) wid T3.x-T2.x ht T2.y-T1.y with .nw at T2
+ box same with .sw at (T2.x,-T2.y)
+ box invis fill_(1) wid T4.x-T3.x ht T3.y-T1.y with .nw at T3
+ box same with .sw at (T3.x,-T3.y)
+ box invis fill_(1) wid T5.x-T4.x ht T4.y-T1.y with .nw at T4
+ box same with .sw at (T4.x,-T4.y)
+# Section outline lower
+ line from (0,-d4/2) to T0 then right T1.x-T0.x then up 1
+ arcto(T1,(T2,T1),1)
+ line to (T2,T1) then up 1
+ arcto(T2,(T3,T2),1)
+ arcto((T3,T2),T3,0.5)
+ arcto(T3,(T4,T3),0.5)
+ arcto((T4,T3),T4,1)
+ arcto(T4,(T5,T4),1)
+ line to (T5,T4) then to (T5.x,-T4.y) then left 1
+# Section outline upper
+ line from (0,d4/2) to (0,-T0.y) then right T1.x-T0.x then down 1
+ arcto((T1.x,-T1.y),(T2.x,-T1.y),1)
+ line to (T2.x,-T1.y) then down 1
+ arcto((T2.x,-T2.y),(T3.x,-T2.y),1)
+ arcto((T3.x,-T2.y),(T3.x,-T3.y),0.5)
+ arcto((T3.x,-T3.y),(T4.x,-T3.y),0.5)
+ arcto((T4.x,-T3.y),(T4.x,-T4.y),1)
+ arcto((T4.x,-T4.y),(T5.x,-T4.y),1)
+ line to (T5.x,-T4.y)
+
+ box wid 6 ht d8 fill_(1) with .w at (0,d6/2)
+ box wid 6 ht d8 fill_(1) with .w at (0,-d6/2)
+ box invis wid T6.x ht d4 fill_(1) with .w at Orig
+ box wid T5.x-T6.x ht d1 fill_(1) with .e at T5
+
+ line from (Orig.x,-T6.y) to (Orig.x,T6.y)
+ arcto(T6,(T6,Orig),1)
+ arcto((T6.x,-T6.y),(0,-T6.y),1)
+ line to (0,-T6.y)
+
+define(`dialabel',
+`[tmpthick = linethick; linethick_(1)
+ [Y14_dia_]; [$1 wid ifelse(`$2',,textht,`$2')] with .w at last [].e+(0.5,0)
+ linethick_(tmpthick)]')
+
+thinlines_
+ dimension_(from (0,T6.y) to (0,-T6.y),40,dialabel("40.60" "40.45",12),textht*3)
+ line up 4 from AE_dimen_.end
+ Y14_frame(Y14_per_,Y14_dia_;"0";"(M)","A") with .sw at Here
+ Y14_frame("B") with .s at last [].n+(0,6)
+thicklines_(1)
+ datumarrow(from last [].s to 2nd last [].n)
+thinlines_
+ dimension_(from T2 to (T2.x,-T2.y),30,
+ dialabel("35.5" "36.0",12),textht*3)
+ dimension_(from T0 to T0+(T1.x,0),-8," 6.1 " " 5.9 ",textht)
+ dimension_(from S_dimen_.end to S_dimen_.end+(T2.x,0),-9,
+ "15.4" "15.6",textht*4)
+ line from E_dimen_.start to (T2,T1) chop 0 chop 1
+ dimension_(from S_dimen_.end to S_dimen_.end+(T3.x,0),-9,
+ "21.9" "22.1",textht*4)
+ line from E_dimen_.start to T3 chop 0 chop 1
+ dimension_(from S_dimen_.end to S_dimen_.end+(T4.x,0),-9,
+ "31.9" "32.1",textht*4)
+ line from E_dimen_.start to (T4,T3) chop 0 chop 1
+ dimension_(from S_dimen_.end to S_dimen_.end+(T5.x,0),-9,
+ "41.2" "41.4",textht*4)
+ line from E_dimen_.start to (T5,T4) chop 0 chop 1
+ line from S_dimen_.start to T0 chop 0 chop 1
+ dimension_(from (0,d7/2) right T6.x,8,"9.6" "9.4",3*textht)
+ line from E_dimen_.start to (T6.x,d4/2) chop 0 chop 1
+ ctrline(from (-3,0) to T5+(3,0),T5.x/2)
+ ctrline(from (-3,d6/2) right T1.x+6)
+ ctrline(from (-3,-d6/2) right T1.x+6)
+ dimension_(from T5-(0,d1/2) to T5+(0,d1/2),-14,
+ dialabel("20.13" "20.00",4*textht),textht*3)
+ dimension_(from T5-(0,d2/2) to T5+(0,d2/2),-35,
+ dialabel("31.8" "31.6",3*textht),textht*3)
+ arrow <- from (T5.x+6,d1/2) by (Rect_(20,75)) then right 6
+ Y14_frame(Y14_cir_,"0.06" wid 3*textht,"A","B") with .w at Here
+ Y14_frame("C") with .n at last [].se+(-6,-8)
+thicklines_(1)
+ datumarrow(from last [].n up 8)
+thinlines_
+ arrow <- from (T5.x+6,-d2/2) by (Rect_(10,-75)) then right 4
+ Y14_frame(Y14_cir_,"0.1" wid textht*2,"C") with .w at Here
+ arrow <- from ((T3.x+T4.x)/2,d3/2+adj) by (Rect_(30,75)) then right 4
+ "M42 X 1.5 - 6g" wid 9*textht ljust
+ Y14_frame(Y14_pos_,Y14_dia_;"0.1" wid textht*2;"(M)","C";"(M)") \
+ with .nw at last "".sw+(0,-2)
+ line from (T2.x,-T1.y) up 25 chop 1 chop 0
+ Y14_frame(Y14_par_,"0.06" wid 3*textht,"A") with .sw at Here
+ Y14_frame(Y14_sur_," 0.1 " wid 3*textht,"A") with .sw at last [].nw
+ arrow <- from (0,-d6/2+10) left 13
+ Y14_frame(Y14_fla_,"0.02" wid 4*textht) with .e at Here
+ Y14_frame("A") with .n at last [].s+(0,-6)
+ datumarrow(from last [].n up 6)
+ ]
+
+Topview:[
+ C: circle diam d7
+ for i=0 to 7 do { circle diam d8 at C+(Rect_(d6/2,i/8*360)) }
+ C5: circle diam d5 at C
+ C4: circle diam d3+2*adj at C
+ C3: circle dashed diam d3 at C
+ C2: circle diam d2 at C
+ C1: circle diam d1 at C
+
+thinlines_
+ dimension_(from C.w-(0,10) to C.e-(0,10),-C.rad-15,
+ dialabel("100" "99",textht*3),textht*5)
+ dimension_(from C5.w-(0,5) to C5.e-(0,5),-C.rad-5,
+ dialabel("57.2" "56.8",textht*4),textht*5)
+ arrow <-> from C+(Rect_(d6/2,-120)) to C+(Rect_(d6/2,60))
+ line from last arrow.end to C+(Rect_(d7/2+6,60)) then right 4
+ dialabel("86.2" "85.8",textht*4) with .w at Here+(1,0)
+ ctrline(from (C.x-(d6-d7/2),C.y) to (C.x+(d6-d7/2),C.y))
+ ctrline(from (C.x,C.y-d6/2+d8/2) to (C.x,C.y+d6/2-d8/2))
+ for_(0,315,45,`ctrarcr(C,d6/2,(m4x-22.5)*dtor_,(m4x+22.5)*dtor_)
+ ctrline(from C+(Rect_(d6-d7/2,m4x)) to C+(Rect_(d7/2,m4x))) ')
+ arcdimension_(from C+(0,d7/2) to C+(Rect_(d7/2,135)) with .c at C,
+ 8,"8X 45`'iflatex($^\circ$)" wid textht*3.5,15,1)
+ ifsvg("svg_deg" wid textht*2/3 with .w at last "".e)
+ move to C+(0,d6/2)
+ arrow <- from Here+(Rect_(8/2,75)) to Here+(Rect_(25,75)) then right_ 3
+ "8X" wid 2*textht ljust
+ linethick_(1); [Y14_dia_] with .w at last "".e+(1,0)
+ "7.9 - 8.1" wid 8*textht ljust
+ Y14_frame(Y14_pos_,Y14_dia_;"0.14" wid 3*textht;"(M)","A","C") \
+ with .nw at 2nd last "".sw+(0,-2)
+
+ ] with .C at Section.Orig+(4.5*scale,0)
+
+
+command iflatex(`"}"',ifsvg(`"</g>"'))
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Plate.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/README-examples
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/README-examples 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/README-examples 2021-06-03 20:45:51 UTC (rev 59444)
@@ -31,7 +31,7 @@
To use tikz and pdflatex to produce test.pdf, type "make test.pdf" as above.
To test and debug a single diagram in a different directory, copy Makefile
-and tst.tex to where you want to work, adjust the definition of LIBDIR
+to where you want to work, adjust the definition of LIBDIR
in Makefile if environment variable M4PATH has not been defined, and type
one of the above commands.
@@ -40,7 +40,7 @@
To process the diagrams using TikZ PGF for processing either by LaTeX or
PDFlatex, type "make" or "make examplespgf.ps" in the pgf subdirectory.
-There are often several methods of producing similar graphical results,
+There are often several methods for producing similar graphical results,
particularly of text labels. Some of the diagrams in this directory are
slightly more complicated than required for Tikz or PSTricks in order
that they will work with other postprocessors. Dpic output that does
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Resistors.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Resistors.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Resistors.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,30 @@
+.PS
+# Resistors.m4
+cct_init
+
+movewid = 2 pt__
+hm = 2.05
+vm = 0.28
+{ {resistor ; move ;"`{\tt resistor}'" ljust}
+ move right_ hm
+ {resistor(,,Q) ; move ;"`\tt resistor(,{,}Q) '" ljust}
+ move right_ hm
+ {resistor(,,E) ; move
+ "`\shortstack[l]{\tt resistor(,{,}E)\\ {\tt $\equiv$ ebox}}'" ljust}
+}
+ move down vm; right_
+{ {resistor(,,ES) ; move ;"`\tt resistor(,{,}ES) '" ljust}
+ move right_ hm
+ {resistor(,,H) ; move ;"`\tt resistor(,{,}H) '" ljust}
+ move right_ hm
+ {ebox(,,,0.5) ; move ;"`{\tt ebox(,{,},0.5)}'" ljust}
+}
+ move down vm; right_
+{ {resistor(,,V) ; move ;"`{\tt resistor(,{,}V)}'" ljust}
+ move right_ hm
+ {ebox(,0.5,0.3) ; move ;"`{\tt ebox(,0.5,0.3)}'" ljust}
+ move right_ hm+4bp__
+ {resistor(,,B) ; move movewid-4bp__ ;"`{\tt resistor(,,B)}'" ljust}
+}
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Resistors.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/control.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/control.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/control.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -30,6 +30,81 @@
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . #
+# https://tex.stackexchange.com/questions/575592/how-to-create-a-controls-system-diagram
+Observer: [
+ define(`thickarrow',`arrow thick 3 wid 7bp__')
+ define(`thickline',`line thick 3')
+ fillval = 0.6
+ boxwid = 0.3
+ boxht = 0.4
+ circlerad = 0.1
+ {"$r$" above ljust}
+R: arrow
+S: circle fill
+ {"$-$" below ljust at S.s; "$+$" above rjust at S.w+(2bp__,0)}
+{ OLP: box invis fill 0.9 wid 3.1 ht 1.4 with .nw at Here+(0.3,boxht*5/4)
+ "\sf plant" at OLP.nw below ljust }
+U: arrow right 0.4
+ {"$u$" at last arrow+(2bp__,0) above }
+Bp: box fill "$B$"
+ thickarrow right 0.4
+Sp: circle fill
+ {"$\;+$" below ljust at Sp.s; "$+$" above rjust at Sp.w+(2bp__,2bp__)}
+ thickarrow right 0.4
+ {"`$\dot{\mathbf x}$'" at last arrow + (0,7bp__)}
+Ip: box fill "$I/s$"
+ thickarrow right 1
+ {"$\mathbf x$" at last arrow + (0,7bp__) }
+Cp: box fill "$C$"
+# print Cp.e.x - Bp.w.x + 0.2
+ thickline right 0.4
+Yp: thickarrow
+ {"$\mathbf y$" at last arrow + (0,7bp__) }
+Ap: box fill "$A$" with .n at Ip.s+(0,-boxht/2)
+ thickarrow <- from Ap.e right 0.4 then up Ip.y-Ap.y
+ thickarrow from Ap.w to (Sp,Ap) then to Sp.s
+# print OLP.n.y-Ap.s.y+0.1
+#
+K: box fill "$K$" at Ap + (0,-boxht*3/2)
+ arrow from K.w to (S,K) then to S.s
+ {OBS: box invis fill 0.9 wid 4.3 ht 1.8 with .nw at (S.w,K.s)-(0.1,0.1)
+ "\sf observer" at OBS.sw ljust above }
+Io: box fill "$I/s$" at K + (0,-boxht*3/2)
+ thickarrow <- from Io.w left 0.4
+ {"`$\dot{\hat{\mathbf x}}$'" at last arrow + (0,7bp__)}
+Sxo: circle fill
+ {"$\;+$" below ljust at Sxo.s; "$+$" above rjust at Sxo.w+(2bp__,2bp__)}
+ thickarrow <- left 0.4
+SLo: circle fill
+ {"$\;+$" below ljust at SLo.s; "$+$" above rjust at SLo.w+(2bp__,2bp__)}
+ thickarrow <- left 0.4
+Bo: box fill "$B$"
+ arrow from 1/4 between U.start and U.end up boxht \
+ then left 2*boxht then down Bp.y-Bo.y+boxht then to Bo.w
+Ao: box fill "$A$" with .n at Io.s+(0,-boxht/2)
+ thickline from Io.e right 0.4
+ {thickarrow <-> from K.e to (Here,K.e) then to (Here,Ao) then to Ao.e
+ thickarrow from Ao.w to (Sxo,Ao.w) then to Sxo.s }
+Xhat: Here
+Co: box fill "$C$" at (Cp,Here)
+ thickarrow right 0.4
+ {"$\hat{\mathbf y}$" at last arrow + (0,7bp__) }
+ { thickarrow from Xhat to Co.w }
+ {"$\hat{\mathbf x}$" at last arrow + (0,7bp__) }
+Syo: circle fill
+ {"$\;+$" above ljust at Syo.n; "$-$" below rjust at Syo.w+(2bp__,-2bp__)}
+ thickarrow <- from Syo.n to (Syo,Cp)
+Lo: box fill "$L$" with .n at Ao.s+(0,-boxht/2)
+# print Io.n.y+0.1 - (Lo.s.y-0.1)
+ thickarrow from Syo.s down Syo.s.y-Lo.y then to Lo.e
+ thickarrow from Lo.w to (SLo,Lo.w) then to SLo.s
+] with .nw at last [].sw+(0,-0.3)
+ "(b) Single-input plant with feedback from a full-order observer" \
+ below ljust at Observer.sw+(0,-5pt__)
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . #
+
+ifelse(0,1,`
Observer: [ {"$r$" above ljust}
arrow
S: circle
@@ -53,13 +128,14 @@
move to last arrow.c
line to (Here, 1/4<Obs.se,Obs.ne>)
arrow to (Obs.e,Here)
-] with .nw at PID.sw+(0,-0.5)
- "(b) Output feedback with a full-order observer" below ljust \
- at Observer.sw+(0,-5pt__)
+] with .nw at last [].sw+(0,-0.5)
+')
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . #
+ifelse(1,1,`
Multiblock: [
+boxht = 0.4
boxwid = boxht
circlerad = boxht*0.4
@@ -95,8 +171,9 @@
arrow from T to (T,Rf) then to Rf.e
arrow from Rf.w to (S1,Rf) then to S1.s
"$n_2$" at S1.s+(0,-boxht/2) ljust
-] with .nw at Observer.sw + (0,-0.5)
+] with .nw at Observer.sw + (0,-0.3)
"(c) A multiblock example" below ljust at Multiblock.sw+(0,-5pt__)
+')
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . #
@@ -128,7 +205,6 @@
"$-$" at Here + (-0.15,-0.1)
arrow <- down from R.s
"$W$ control input" at Here - (0,0.1)
-
UL:R.nw +(-boxht/2,boxht/2)
UR:(D.e,UL) + (0.1,0)
line dashed from UL to UR then to (UR,G.s+(0,-boxht*3/2))
@@ -135,8 +211,9 @@
line dashed to (Gh.w,Here) "Controller" above
line dashed to (Here,Gh.s+(0,-boxht/2))
line dashed to (UL,Here) then to UL
-] with .nw at Multiblock.sw + (0,-0.5)
- "(d) Nonlinear feedforward (for performance) and small-signal feedback (for stability)" \
- below ljust at Nonlinear.sw+(0,-5pt__)
+] with .nw at last [].sw + (0,-0.2)
+ "(d) Nonlinear feedforward (for performance) and small-signal feedback
+ (for stability)" below ljust at Nonlinear.sw+(0,-5pt__)
+#print PID.n.y - Nonlinear.s.y
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/csc.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/csc.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/csc.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,12 +1,15 @@
-ifelse(ifpstricks(T)`'ifmpost(T)`'ifpostscript(T)`'ifpgf(T),,
- `PSTricks, MetaPost, PGF, or Postscript required for this diagram',`dnl
-.PS 3.5
+.PS
+#.PS 3.5
# csc.m4
gen_init
+NeedDpicTools
+ifelse(ifpstricks(T)`'ifmpost(T)`'ifpostscript(T)`'ifpgf(T),,
+ `PSTricks, MetaPost, PGF, or Postscript required for this diagram',`
-circlerad=1.91
-hubrad=0.10
-s=0.5
+skale = 3.5/3.97*0.9955
+circlerad=1.91*skale
+hubrad=0.10*skale
+s=0.5*skale
define(`midnight',`0.1, 0.1, 0.44')
define(`white',`1, 1, 1')
@@ -18,7 +21,7 @@
define(`coord',`(s*(`$1'),s*(`$2'))')
# Circle and spokes
-# [
+CSC: [
rgbdraw(midnight,
linethick=`0.'eval(lwid*15)/(1pt__)
{circle with .c at Here
@@ -72,5 +75,156 @@
line to coord(-2.2,-2.05) then to coord(2.1,-1.75)
spline to coord(-1,-2.08) then to coord(0.55,-1.77)
)
-# ] with .sw at 1,1
-.PE')
+ ]
+')
+# PSTricks or tikz only:
+ifelse(ifpstricks(T)`'ifpgf(T),T,`
+Clock: [
+#.PS
+# AntiqueClock.m4
+#gen_init
+#NeedDpicTools
+
+iflatex(`latexcommand({\sf)')
+
+# https://tex.stackexchange.com/questions/236923/generate-analog-clock-with-numbered-face-add-seconds-roman-numerals
+
+# `hms2deg(hr,min,sec) hr:min:sec to degrees
+# blank arg1: degrees for minute hand
+# blank arg1 and arg2: degrees for second hand'
+define(`hms2deg',`ifelse(`$1',,
+ `ifelse(`$2',,
+ `(90-pmod(ifelse(`$3',,0,`$3'),60)/60*360)',
+ `(90-(pmod(`$2',60)/60 + pmod(ifelse(`$3',,0,`$3'),60)/60/60)*360)')',
+ `(90-(pmod(`$1',12) + pmod(ifelse(`$2',,0,`$2'),60)/60 + dnl
+ pmod(ifelse(`$3',,0,`$3'),60)/3600)/12*360)')')
+
+# `SecondHand(length,hr,min,sec)'
+define(`SecondHand',`[ shsf = (`$1')/3.2
+ C: Here
+ { L: rpoint_(to (Rect_(`$1',hms2deg(,,`$4')))) }
+ line thick 8*shsf to rvec_(`$1',0)
+ ]')
+
+# `AntiqueMinuteHand(length,hr,min,sec)'
+define(`AntiqueMinuteHand',`[ mhsf = (`$1')/2.84
+ L: rpoint_(to (Rect_(`$1',hms2deg(,`$3',`$4'))))
+ C: circle fill_(0) diam 0.47*mhsf at L.start
+ move to C
+ spline from rvec_(0,0.047*mhsf) \
+ to rvec_(1.65*mhsf,0.11*mhsf) \
+ then to rvec_(`$1',0.018*mhsf) \
+ then to rvec_(`$1',-0.018*mhsf) \
+ then to rvec_(1.65*mhsf,-0.11*mhsf) \
+ then to rvec_(0,-0.047*mhsf) \
+ shaded rgbstring(0,0,0)
+ ]')
+
+# `AntiqueHourHand(length,hr,min,sec)'
+define(`AntiqueHourHand',`[ hhsf = (`$1')/2.2
+ L: rpoint_(to (Rect_(`$1',hms2deg(`$2',`$3',`$4'))))
+ C: circle fill_(0) diam 0.6*hhsf at L.start
+ move to C
+ v = 0.25*hhsf
+ { line to rvec_(1.1*hhsf,0) thick 0.15/(1bp__)*hhsf }
+ { C1: circle rad v at rvec_(1.25*hhsf,0) fill_(0) }
+ d = `$1'-1.25*hhsf
+ q = 1bp__*hhsf
+ r1 = (d^2 + q^2 - v^2)/(v-q)/2
+ h = r1+v
+ shade(0,
+ arc ccw from C1+vec_(d/h*v,(r1+q)/h*v) to \
+ C1+vec_(d,q) rad r1 with .c at C1+vec_(d,r1+q)
+ arc ccw from C1+vec_(d,-q) to C1+vec_(d/h*v,-(r1+q)/h*v) rad r1 \
+ with .c at C1+vec_(d,-r1-q))
+ ]')
+
+define(`AntiqueClock',`[ # h,m,s,diam
+# Clock size parameters:
+ hour = ifelse(`$1',,3,`$1')
+ minute = ifelse(`$2',,41,`$2')
+ second = ifelse(`$3',,51,`$3')
+ # outer radius
+ ifelse(`$4',,`skale=0.5; r1=2',`r1=(`$4')/2; skale=r1/4')
+ r2 = r1-0.5*skale
+ r3 = r2-0.14*skale
+ r4 = r3 - 0.35*skale
+ r5 = r4 - 0.17*skale
+ r6 = r5 - 0.63*skale
+ r7 = r6 - 0.17*skale
+ shadelinethick = 1.0
+
+C: circle thick 0.2 rad r1
+
+define shadeline {
+ s = 1-($`'1)*2
+ v = r*s
+ h = sqrt(r^2-v^2)
+ t = 1-abs(s)
+ line from (vrot_(-h,v,cost,sint)) to (vrot_(h,v,cost,sint)) \
+ thick shadelinethick outlined rgbstring(t,t,t)
+ }
+
+ r = r1 # Bezel outer
+ nlines = int(2*r/(shadelinethick pt__)*1.1)
+ cost = cosd(10); sint = sind(10);
+ ShadeObject(shadeline,nlines, 0, 0,0,0, 0.5, 1,1,1, 1, 0,0,0 ) at C
+
+ r = r2 # Bezel inner
+ nlines = int(2*r/(shadelinethick pt__)*1.1)
+ cost = cosd(-10); sint = sind(-10);
+ ShadeObject(shadeline,nlines, 0, 0,0,0, 0.25, 0.8,0.8,0.8, 0.5, 1,1,1,
+ 0.75, 0.8,0.8,0.8, 1, 0,0,0 ) at C
+
+# Clock face
+Face: circle thick 0 fill_(1) rad r3 at C
+ circle rad r4 at C
+ circle rad r5 at C
+ circle rad r6 at C
+ circle rad r7 at C
+
+# Text rotation for PSTricks or TikZ
+ define(`rottext',
+ `ifpstricks(`\rput[c]{%g}(0,0)',`ifpgf(`\pgftext[rotate=%g]',%g)')')
+# Outer numbers
+ command sprintf("\font\outerfont=cmss12 at %4.2fin",r3-r4)
+ for mn = -15 to 15 by 5 do { sprintf("rottext{\outerfont %g}",\
+ -mn/60*360,pmod(mn,60)) at C+(Rect_((r3+r4)/2,90-mn/60*360)) }
+ for mn = 20 to 40 by 5 do { sprintf("rottext{\outerfont %g}",\
+ 180-mn/60*360,mn) at C+(Rect_((r3+r4)/2,90-mn/60*360)) }
+# Outer tics
+ for mn = 1 to 60 do { t = 90-mn/60*360
+ line from C+(Rect_(r5,t)) to C+(Rect_(r4,t)) }
+
+# Inner numbers
+ command sprintf("\font\innerfont=cmss12 at %4.2fin",r5-r6)
+ Loopover_(`mx',`t = (m4Lx-4)/12*360;
+ sprintf("rottext{\scalebox{0.7}[1.0]{\innerfont mx}}",-t) \
+ at C+(Rect_((r5+r6)/2,90-t))', IX,X,XI,XII,I,II,III)
+ Loopover_(`mx',`t = (m4Lx+3)/12*360;
+ sprintf("rottext{\scalebox{0.7}[1.0]{\innerfont mx}}",-t+180) \
+ at C+(Rect_((r5+r6)/2,90-t))', IV,V,VI,VII,VIII)
+
+# Inner tics
+ for mn = 5 to 60 by 5 do { t = 90-mn/60*360
+ line from C+(Rect_(r7,t)) to C+(Rect_(r6,t)) }
+
+# Hands
+ AntiqueHourHand(r6,hour,minute,second) with .C at C
+ AntiqueMinuteHand(r5,hour,minute,second) with .C at C
+ SecondHand((r3+r4)/2,hour,minute,second) with .C at C
+
+# Center
+ dot(at C,0.1/4*r1,1)
+ ]')
+
+ Clock1: AntiqueClock(,,,3.5)
+# Clock2: AntiqueClock(4,50,07,2) at Clock1.e+(1.5,0)
+
+ iflatex(`latexcommand(}%)')
+
+
+#.PE
+ ] with .sw at last [].se+(0.25,0)
+',` "AntiqueClock.m4 requires pstricks or pgf" ')
+.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/examples.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/examples.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/examples.tex 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/examples.tex 2021-06-03 20:45:51 UTC (rev 59444)
@@ -2,7 +2,6 @@
\documentclass[11pt]{article}
\usepackage{times}
-%\usepackage{pstricks,pst-grad}
\input mode
\usepackage{rotating}
\usepackage{graphicx}
@@ -22,15 +21,16 @@
\hfill\break
This is a collection of diagrams the author has had occasion to produce
- using m4 circuit macros and others, and gpic or dpic. In some cases
- there are other or better m4 or pic constructs for producing the
- same drawings, but the source-file names are shown for reference.
- Most of the examples can be processed using either dpic~-p, dpic~-g,
- or gpic~-t, but the possibility of other postprocessing has meant that
+ using m4 circuit macros and others, and dpic or gpic. In some cases
+ there are other or better m4 or pic constructs for producing the same
+ drawings, but names of the actual source-files are shown for reference.
+ Some of the later examples test the boundaries of what can be done
+ when employing a ``little language'' like pic. Most of the examples
+ can be processed using either dpic~-p, dpic~-g, or, with exceptions,
+ gpic~-t, but the possibility of other postprocessing has meant that
sometimes the source is slightly more complicated than it would be if
- only one workflow had been assumed. Some of the examples require dpic.
- The most simplicity and elegance is achieved by sticking to one pic
- interpreter and one postprocessor.
+ only one workflow had been assumed. The most simplicity and elegance
+ is achieved by sticking to one pic interpreter and one postprocessor.
This document duplicates a few diagrams from the manual
Circuit\_macros.pdf. There are also a few files in the
@@ -37,9 +37,6 @@
examples directory that are not included in this document. To process
{\sl file}.m4, for example, type "make {\sl file}.pdf."
-% Some of the boundaries of what macros and the pic language can do are
-% tested toward the end of the following examples.
-
\input files
\endinput
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/exp.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/exp.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/exp.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -32,37 +32,37 @@
define(`D3',`0.3*g,0.6*g,0.9*g')
# fixed coordinate frame
-O: project(O3)
-X: project(X0)
-Y: project(Y0)
+O: Project(O3)
+X: Project(X0)
+Y: Project(Y0)
Fector(X0,Z0) with .Origin at O ; "$x_0$" at X rjust
Fector(Y0,Z0) with .Origin at O ; "$y_0$" at Y ljust below
- Fector(Z0,Y0) with .Origin at O ; "`$z_0$'" at project(Z0) above
+ Fector(Z0,Y0) with .Origin at O ; "`$z_0$'" at Project(Z0) above
define(`R01',`rot3Dz(pazim,rot3Dy(-pelev,$1,$2,$3))')
define(`R10',`rot3Dy(pelev,rot3Dz(-pazim,$1,$2,$3))')
thinlines_ ; psset_(linecolor=gray)
- line from O to project(rot3Dz(pazim,axlen,0,0))
+ line from O to Project(rot3Dz(pazim,axlen,0,0))
psset_(linecolor=black)
- arc -> ccw from project(arad,0,0) to project(rot3Dz(pazim,arad,0,0)) rad arad
+ arc -> ccw from Project(arad,0,0) to Project(rot3Dz(pazim,arad,0,0)) rad arad
"$\theta$" below
up_
- arc -> cw from project(rot3Dz(pazim,arad,0,0)) \
- to project(R01(arad,0,0)) rad arad
- "$\phi$" rjust at project(rot3Dz(pazim,rot3Dy(-pelev/2,arad,0,0)))
- arc -> from project(0,arad,0) to project(R01(0,arad,0)) rad arad
+ arc -> cw from Project(rot3Dz(pazim,arad,0,0)) \
+ to Project(R01(arad,0,0)) rad arad
+ "$\phi$" rjust at Project(rot3Dz(pazim,rot3Dy(-pelev/2,arad,0,0)))
+ arc -> from Project(0,arad,0) to Project(R01(0,arad,0)) rad arad
"$\theta$" above
right_
- arc -> cw from project(0,0,arad/2) to project(R01(0,0,arad/2)) rad arad/2
+ arc -> cw from Project(0,0,arad/2) to Project(R01(0,0,arad/2)) rad arad/2
"$\phi$" ljust at Here+(-1pt__,-3pt__)
Fector(R01(X0),R01(Z0)) with .Origin at O ;
- "$x_1$" above rjust at project(R01(X0))
+ "$x_1$" above rjust at Project(R01(X0))
Fector(R01(Y0),R01(Z0)) with .Origin at O ;
- "$y_1$" ljust at project(R01(Y0))
+ "$y_1$" ljust at Project(R01(Y0))
Fector(R01(Z0),R01(Y0)) with .Origin at O ;
- "$z_1$" above at project(R01(Z0))
+ "$z_1$" above at Project(R01(Z0))
thicklines_
# box object dimension
@@ -72,23 +72,23 @@
# box object corners
define(`B0',`D3')
-define(`B1',`sum3D(D3,d,0,0)') PB1: project(B1)
-define(`B2',`sum3D(D3,d,b,0)') PB2: project(B2)
-define(`B3',`sum3D(D3,0,b,0)') PB3: project(B3)
-define(`B4',`sum3D(D3,0,0,h)') PB4: project(B4)
-define(`B5',`sum3D(D3,d,0,h)') PB5: project(B5)
-define(`B6',`sum3D(D3,d,b,h)') PB6: project(B6)
-define(`B7',`sum3D(D3,0,b,h)') PB7: project(B7)
+define(`B1',`sum3D(D3,d,0,0)') PB1: Project(B1)
+define(`B2',`sum3D(D3,d,b,0)') PB2: Project(B2)
+define(`B3',`sum3D(D3,0,b,0)') PB3: Project(B3)
+define(`B4',`sum3D(D3,0,0,h)') PB4: Project(B4)
+define(`B5',`sum3D(D3,d,0,h)') PB5: Project(B5)
+define(`B6',`sum3D(D3,d,b,h)') PB6: Project(B6)
+define(`B7',`sum3D(D3,0,b,h)') PB7: Project(B7)
# projected corners
-P0:project(R01(0,dcosine3D(2,R10(B0)),dcosine3D(3,R10(B0))))
-P1:project(R01(0,dcosine3D(2,R10(B1)),dcosine3D(3,R10(B1))))
-P2:project(R01(0,dcosine3D(2,R10(B2)),dcosine3D(3,R10(B2))))
-P3:project(R01(0,dcosine3D(2,R10(B3)),dcosine3D(3,R10(B3))))
-P4:project(R01(0,dcosine3D(2,R10(B4)),dcosine3D(3,R10(B4))))
-P5:project(R01(0,dcosine3D(2,R10(B5)),dcosine3D(3,R10(B5))))
-P6:project(R01(0,dcosine3D(2,R10(B6)),dcosine3D(3,R10(B6))))
-P7:project(R01(0,dcosine3D(2,R10(B7)),dcosine3D(3,R10(B7))))
+P0:Project(R01(0,dcosine3D(2,R10(B0)),dcosine3D(3,R10(B0))))
+P1:Project(R01(0,dcosine3D(2,R10(B1)),dcosine3D(3,R10(B1))))
+P2:Project(R01(0,dcosine3D(2,R10(B2)),dcosine3D(3,R10(B2))))
+P3:Project(R01(0,dcosine3D(2,R10(B3)),dcosine3D(3,R10(B3))))
+P4:Project(R01(0,dcosine3D(2,R10(B4)),dcosine3D(3,R10(B4))))
+P5:Project(R01(0,dcosine3D(2,R10(B5)),dcosine3D(3,R10(B5))))
+P6:Project(R01(0,dcosine3D(2,R10(B6)),dcosine3D(3,R10(B6))))
+P7:Project(R01(0,dcosine3D(2,R10(B7)),dcosine3D(3,R10(B7))))
thinlines_
line from PB1 to P1
line from PB2 to P2
@@ -134,10 +134,10 @@
alpha = rectht/3
# # Rectangle
- NW: project(-rectht/2,-rectwid*0.25,0)
- SW: project( rectht/2,-rectwid*0.25,0)
- SE: project( rectht/2, rectwid*0.75,0)
- NE: project(-rectht/2, rectwid*0.75,0)
+ NW: Project(-rectht/2,-rectwid*0.25,0)
+ SW: Project( rectht/2,-rectwid*0.25,0)
+ SE: Project( rectht/2, rectwid*0.75,0)
+ NE: Project(-rectht/2, rectwid*0.75,0)
ShadedPolygon(NW:NE:SE:SW,,-90,
0,0.25,0.25,0.25,
@@ -144,7 +144,7 @@
1,1,1,1) with .Start at NW
define(`C3D',`0,0,alpha') # Centre of the sphere
- C: project(C3D)
+ C: Project(C3D)
# # Shaded sphere using PSTricks or tikz:
# # this is black magic but PSTricks
@@ -151,7 +151,7 @@
# # seems to give more control
# ifpstricks(
# `Highlight: \
-# project(sum3D(C3D,rot3Dz(-15*dtor_,rot3Dy(-60*dtor_,alpha,0,0))))
+# Project(sum3D(C3D,rot3Dz(-15*dtor_,rot3Dy(-60*dtor_,alpha,0,0))))
# command "\pscustom[fillstyle=gradient,gradmidpoint=0.0,%"
# command sprintf("gradbegin=gray,gradend=white,gradlines=%g,%%",alpha*200)
# command "GradientCircle=true,GradientScale=1.5,%"
@@ -174,15 +174,15 @@
"$\alpha$" at 0.5<S,C> ljust
define(`N3D',`0,0,2*alpha') # North pole
- N: project(N3D)
+ N: Project(N3D)
"$N$" at N+(0,3pt__) ljust
phi = 65*dtor_
define(`Phat3D',`rot3Dz(phi,alpha*3,0,0)')
- Phat: "$\hat{P}$" at project(Phat3D) ljust
+ Phat: "$\hat{P}$" at Project(Phat3D) ljust
- X: project(rectht/2*0.8,0,0)
- Y: project(0,rectwid/2*0.8,0)
+ X: Project(rectht/2*0.8,0,0)
+ Y: Project(0,rectwid/2*0.8,0)
`define' linevis { # ratio # Visibility function for lines fom S to Tmp
Tlv: $1 between S and Tmp
@@ -202,8 +202,8 @@
arrow up alpha*0.5 chop 0.05 chop 0 ; "$z$" above
invisline(Phat)
line to Phat chop 0.05 chop 0
- arc ccw -> rad alpha from project(alpha/2,0,0) to \
- project(rot3Dz(phi,alpha/2,0,0))
+ arc ccw -> rad alpha from Project(alpha/2,0,0) to \
+ Project(rot3Dz(phi,alpha/2,0,0))
"$\phi$" below at 0.5 between last arc.start and last arc.end
# vector (ratio along (N to Phat))
@@ -212,7 +212,7 @@
$2 = length3D(diff3D(ray($1),C3D))-alpha }
findroot(rayvis, 1e-3, 1, 1e-8, p) # Find P
- P: "$P$" at project(ray(p)) ljust above
+ P: "$P$" at Project(ray(p)) ljust above
thicklines_
line dashed from N to P chop 0 chop 0.05
@@ -226,11 +226,11 @@
findroot(meridianvis, 0, pi_, 1e-8, y)
n = 0
for ang = y-pi_ to y by pi_/20 do {
- Q[n]: project(sum3D(C3D,meridian(ang))); n+=1 }
+ Q[n]: Project(sum3D(C3D,meridian(ang))); n+=1 }
fitcurve(Q,n-1)
n = 0
for ang = y to y+pi_ by pi_/20 do {
- Q[n]: project(sum3D(C3D,meridian(ang))); n+=1 }
+ Q[n]: Project(sum3D(C3D,meridian(ang))); n+=1 }
fitcurve(Q,n-1,dashed)
define(`equator',`rot3Dz($1,alpha,0,0)')
@@ -240,15 +240,15 @@
findroot(equatorvis, 0, pi_, 1e-8, y)
n = 0
for ang = y-pi_ to y by pi_/20 do {
- Q[n]: project(sum3D(C3D,equator(ang))); n+=1 }
+ Q[n]: Project(sum3D(C3D,equator(ang))); n+=1 }
fitcurve(Q,n-1)
n = 0
for ang = y to y+pi_ by pi_/20 do {
- Q[n]: project(sum3D(C3D,equator(ang))); n+=1 }
+ Q[n]: Project(sum3D(C3D,equator(ang))); n+=1 }
fitcurve(Q,n-1,dashed)
line dashed from C to P # beta
- line dashed from C to project(sum3D(C3D,equator(phi)))
+ line dashed from C to Project(sum3D(C3D,equator(phi)))
arc ccw -> from 0.6 along_(last line) to 0.6 between C and P
"$\beta$" ljust at last arc.e+(0,2pt__)
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/fet.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/fet.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/fet.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -2,10 +2,8 @@
# `fet.m4'
cct_init
-dwn = 0.9
-dwn = 1.0
-rgt = 0.9
textht = 0.1
+define(`rmove',0.75)
dnl `IRF4905(linespec,R)'
define(`IRF4905',
@@ -18,74 +16,84 @@
G: Q.G
circle rad 5*dimen_/10 at Q.tr_xy(0,1) ]')
-define(`rmove',0.75)
-define(`dir_',`right_')
+Row1: [ J: j_fet
+ { "{\tt j\_fet}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: j_fet(right_ dimen_,,P,E) with .w at J.e+(0.5,0)
+ { "{\tt j\_fet(right\_}" "{\tt dimen\_,{,}P,E)}" at J.s+(0,-13bp__) below
+ "$G$" at J.G rjust above
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: e_fet with .w at J.e+(0.5,0)
+ { "{\tt $\;$ e\_fet}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: e_fet(,,P) with .w at J.e+(0.6,0)
+ { "{\tt $\;$ e\_fet(,{,}P)}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: e_fet(,,P,S) with .w at J.e+(0.7,0)
+ { "{\tt $\;$ e\_fet(,{,}P,S)}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: c_fet with .w at J.e+(0.6,0)
+ { "{\tt $\;$ c\_fet}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: c_fet(,,P) with .w at J.e+(0.6,0)
+ { "{\tt $\;$ c\_fet(,{,}P)}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ ]
-Orig: Here
-dir_
- { move left 0.2 }
- {J: j_fet(right_ dimen_,,,E)
- "{\tt j\_fet(right\_ dimen\_,{,},E)}" wid 1.75 \
- with .nw at last [].sw+(0.0,-0.25)
- "$G$" at last [].G rjust above
- "$S$" at last [].S rjust
- "$D$" at last [].D ljust
- }
+Row2: [
+ J: d_fet
+ { "{\tt d\_fet}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: d_fet(,,P) with .w at J.e+(0.5,0)
+ { "{\tt d\_fet(,{,}P)}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: d_fet(,,P,S) with .w at J.e+(0.7,0)
+ { "{\tt d\_fet(,{,}P,S)}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: g_fet with .w at J.e+(0.6,0)
+ { "{\tt g\_fet}" at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ J: g_fet(up_ dimen_,,P) with .w at J.e+(0.6,0)
+ { "{\tt `g\_fet'(up\_$\;\;$}" at last [].s below
+ "{\tt dimen\_,{,}P)}" at last [].s + (0,-12bp__) below
+ "{\sl G}" at last [].G rjust
+ "{\sl S}" at last [].S + (0,2bp__) ljust
+ "{\sl D}" at last [].D + (0,2bp__) ljust below }
+ right_
+ M1: mosfet(,,dBSDFQM1,E) with .w at J.e+(0.5,0)
+ "$G0$" at M1.G0 above rjust
+ "$G1$" at M1.G1 above ljust
+ {"\tt `mosfet'(,{,}dBSDFQM1,E)" wid 1.45 \
+ with .nw at last [].sw+(0,-0.2) }
+ M2: mosfet(,,dBSDFQuM1) with .nw at M1.ne+(0.5,0)
+ "$G0$" at M2.G0 above ljust
+ "$G1$" at M2.G1 above rjust
+ {"\tt ...(,{,}dBSDFQuM1)" wid 1.25 \
+ with .n at last [].s+(0,-0.05) }
+ ] with .nw at Row1.sw+(0,-0.1)
- move right_ 0.9; dir_
- {j_fet(,,P,)
- "{\tt j\_fet(,{,}P,)}" at last [].s+(0,-0.05) below
- "$G$" at last [].G rjust
- "$S$" at last [].S rjust
- "$D$" at last [].D ljust
- }
-
- move right_ 0.9; dir_
- {e_fet(,R,,)
- "{\tt e\_fet(,R,{,})}" at last [].s+(0,-0.05) below
- "$G$" at last [].G rjust
- "$S$" at last [].S rjust
- "$D$" at last [].D ljust
- }
-
- {move down_ dwn; dir_
- e_fet(,,P)
- "{\tt e\_fet(,{,}P)}" at last [].s+(0.1,-0.2) below}
-
- move right_ 0.9; dir_
- {d_fet(,,,)
- "{\tt d\_fet(,{,},)}" at last [].s+(0,-0.05) below}
-
- {move down_ dwn; dir_
- d_fet(,,P)
- "{\tt d\_fet(,{,}P)}" at last [].s+(0,-0.05) below}
-
- move right_ 0.9; dir_
- {e_fet(,,,S)
- "{\tt e\_fet(,{,},S)}" at last [].s+(0,-0.05) below}
-
- {move down_ dwn; dir_
- e_fet(,,P,S)
- "{\tt e\_fet(,{,}P,S)}" at last [].s+(0,-0.2) below}
-
- move right_ 0.9; dir_
- {d_fet(,,,S)
- "{\tt d\_fet(,{,},S)}" at last [].s+(0,-0.2) below}
-
- {move down_ dwn; dir_
- d_fet(,,P,S)
- "{\tt d\_fet(,{,}P,S)}" at last [].s+(0,-0.05) below}
-
- move right_ 0.9; dir_
- {c_fet(,,,)
- "{\tt `c\_fet'(,{,},)}" at last [].s+(0,-0.05) below}
-
- {move down_ dwn; dir_
- c_fet(,,P)
- "{\tt `c\_fet'(,{,}P)}" at last [].s+(0,-0.2) below}
-
-move down 1; right_
- [
+Row3: [
linewid = linewid*1.2
Q1: mosfet(,,dGSDF,)
@@ -132,8 +140,22 @@
"$D$" at last [].D ljust
"$B$" at last [].B below
}
+ move right_
+ J: Fe_fet #(right_ dimen_)
+ {`"{\tt $\;$ Fe\_fet}"' at J.s+(0,-0.05) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ move right_
+ J: Fe_fet(,,TEDQSuB)
+ {`"{\tt $\;$ Fe\_fet(,,TEDSQuB)}"' at J.s+(0,-0.15) below
+ "$G$" at J.G rjust
+ "$S$" at J.S rjust
+ "$D$" at J.D ljust }
+ ] with .nw at last [].sw
- move right_ rmove
+Row4: [
+ {move left 0.5}
Q5: mosfet(,,ZSDFdT,)
{"\tt `$\ldots$'(,{,}ZSDFdT,)" at last [].s+(0,-0.05) below
thinlines_
@@ -144,8 +166,7 @@
arrow <- down .08 right .24 from (Q5.G.x,Q5.G.y-0.02)
"\tt dT" ljust
thicklines_ }
-
- move right_ rmove
+ move right_ 0.8
up_
Q6: IRF4905 with .c at Here
{`"\tt IRF4905"' at Q6.s+(0,-0.15) below
@@ -153,18 +174,6 @@
"$D$" at Q6.D ljust above
"$S$" at Q6.S ljust below
}
- ] with .nw at J.sw+(0,-1.35) #Orig+(-0.26,-1.2)
+ ] with .nw at last [].sw
- right_
- M1: mosfet(,,dBSDFQM1,E) with .nw at J.nw+(0,-dwn)
- "$G0$" at M1.G0 above rjust
- "$G1$" at M1.G1 above ljust
- {"\tt `mosfet'(,{,}dBSDFQM1,E)" wid 1.45 \
- with .nw at last [].sw+(0,-0.23) }
- M2: mosfet(,,dBSDFQuM1) with .nw at M1.ne+(0.5,0)
- "$G0$" at M2.G0 above ljust
- "$G1$" at M2.G1 above rjust
- {"\tt ...(,{,}dBSDFQuM1)" wid 1.25 \
- with .n at last [].s+(0,-0.05) }
-
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/files.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/files.tex 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/files.tex 2021-06-03 20:45:51 UTC (rev 59444)
@@ -7,12 +7,24 @@
}
\bfig{
- \centerline{{\small\getpic{CctTable}}}
- \caption{Two-terminal elements, showing some variations
- \src{CctTable.m4}.}
+ \centerline{{\small\getpic{Resistors}}}
+ \caption{Resistors, showing some variations
+ \src{Resistors.m4}.}
}
\bfig{
+ \centerline{{\small\getpic{Capacitors}}}
+ \caption{Capacitors, showing some variations
+ \src{Capacitors.m4}.}
+ }
+
+\bfig{
+ \centerline{{\small\getpic{Inductors}}}
+ \caption{Inductors, showing some variations
+ \src{Inductors.m4}.}
+ }
+
+\bfig{
\centerline{\getpic{Diodes}}
\caption{Diodes: a {\tt K} in the second argument draws an open arrowhead
\src{Diodes.m4}.}
@@ -47,6 +59,11 @@
\caption{Macros {\tt fuse} and {\tt cbreaker}
\src{Fuses.m4}.}
}
+\bfig{
+ \centerline{\getpic{MoreTable}}
+ \caption{Additional two-terminal elements
+ \src{MoreTable.m4}.}
+ }
\bfig{
\centerline{\getpic{Grounds}}
@@ -146,6 +163,12 @@
}
\bfig{
+ \centerline{\getpic{Chips}}
+ \caption{IC package outlines
+ \src{Chips.m4}.}
+ }
+
+\bfig{
\centerline{\getpic{fet}}
\caption{FETs, showing programmable components and example customizations
\src{fet.m4}.}
@@ -484,7 +507,7 @@
\bfig{
\centerline{\getpic{control}}
- \caption{Control-system block diagrams that do not require m4
+ \caption{Control-system block diagrams
\src{control.m4}.}
}
@@ -539,6 +562,12 @@
}
\bfig{
+ \centerline{\getpic{Plate}}
+ \caption{Dimensioning with tolerances
+ \src{Plate.m4}.}
+ }
+
+\bfig{
\centerline{\getpic{ex05}}
\caption{Use of {\tt darrow}
\src{ex05.m4}.}
@@ -570,6 +599,7 @@
determines plotting order
\src{graysurf.m4}.}
}
+\clearpage
\bfig{
\centerline{\getpic{shapes}}
@@ -578,12 +608,6 @@
}
\bfig{
- \centerline{\getpic{AntiqueClock}}
- \caption{An antique clock face
- \src{AntiqueClock.m4}.}
- }
-
-\bfig{
\centerline{\getpic{Lyap}}
\caption{Illustrating a Lyapunov function
\src{Lyap.m4}.}
@@ -592,7 +616,7 @@
\bfig{
\centerline{\getpic{csc}}
\caption{Conestoga Sailing Club (illustrating the filling of arbitrary
- shapes)
+ shapes) and an antique clock face with shading and rotated text
\src{csc.m4}.}
}
@@ -632,6 +656,7 @@
\caption{Dini surface and an icosahedron
\src{Dini.m4}.}
}
+\clearpage
\bfig{
\centerline{\getpic{Sierpinski}}
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/graysurf.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/graysurf.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/graysurf.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -25,9 +25,9 @@
Orig: (0,0)
linethick_(1.2)
- arrow from Orig to 1.2 <Orig,(project(xmax,0,0))> ; "$x$" below
- arrow from Orig to 1.2 <Orig,(project(0,ymax,0))> ; "$y$" ljust
- arrow from Orig to 1.2 <Orig,(project(0,0,zmax))> ; "$z$" rjust
+ arrow from Orig to 1.2 <Orig,(Project(xmax,0,0))> ; "$x$" below
+ arrow from Orig to 1.2 <Orig,(Project(0,ymax,0))> ; "$y$" ljust
+ arrow from Orig to 1.2 <Orig,(Project(0,0,zmax))> ; "$z$" rjust
linethick_(0)
for i = 0 to nx-1 do {
@@ -36,10 +36,10 @@
y = ymax*j/ny
fnxy = fn(x,y)
shade((fnmax+fnxy)/fnmax/2,
- line from (project(x,y,fnxy)) to (project(x,(y+dy),`fn(x,(y+dy))'))\
- then to (project((x+dx),(y+dy),`fn((x+dx),(y+dy))'))\
- then to (project((x+dx),y,`fn((x+dx),y)'))\
- then to (project(x,y,fnxy))
+ line from (Project(x,y,fnxy)) to (Project(x,(y+dy),`fn(x,(y+dy))'))\
+ then to (Project((x+dx),(y+dy),`fn((x+dx),(y+dy))'))\
+ then to (Project((x+dx),y,`fn((x+dx),y)'))\
+ then to (Project(x,y,fnxy))
) } }
] #with .w at last [].e+(-0.2,0)
@@ -63,8 +63,8 @@
`dot3D(View3D, rot3Dz((`$1')*dtor_,rot3Dy((`$2')*dtor_,1,0,0)))')
Orig: (0,0)
-X: arrow from Orig to (project(tradius+sradius*4,0,0)); "x" rjust
-Y: arrow from Orig to (project(0,tradius+sradius*2,0)); "y" ljust
+X: arrow from Orig to (Project(tradius+sradius*4,0,0)); "x" rjust
+Y: arrow from Orig to (Project(0,tradius+sradius*2,0)); "y" ljust
dt = 10 # major angle degrees per facet
ds = 10 # minor angle degrees per facet
@@ -87,10 +87,10 @@
thinlines_
for i = 1 to n do {
tc = t[ix[i]]; sc = s[ix[i]]
- SE: (project(torus(tc+dt/2,sc-ds/2)))
- SW: (project(torus(tc-dt/2,sc-ds/2)))
- NW: (project(torus(tc-dt/2,sc+ds/2)))
- NE: (project(torus(tc+dt/2,sc+ds/2)))
+ SE: (Project(torus(tc+dt/2,sc-ds/2)))
+ SW: (Project(torus(tc-dt/2,sc-ds/2)))
+ NW: (Project(torus(tc-dt/2,sc+ds/2)))
+ NE: (Project(torus(tc+dt/2,sc+ds/2)))
f = ((dcosine3D(3,torus(tc,sc))/sradius+1)/2)^2
g = min(f,0.9)
setrgb(g,g,g)
@@ -102,10 +102,10 @@
}
thicklines_
- arrow from Orig to (project(0,0,tradius*1.4)); "z" above
- dashline(from Orig to (project(torus(0,0))),,,,G)
+ arrow from Orig to (Project(0,0,tradius*1.4)); "z" above
+ dashline(from Orig to (Project(torus(0,0))),,,,G)
arrow to X.end
- dashline(from Orig to (project(torus(90,0))),,,,G)
+ dashline(from Orig to (Project(torus(90,0))),,,,G)
arrow to Y.end
] with .sw at last [].se+(0.2,0)
@@ -130,11 +130,11 @@
dy = 0.05
Orig: (0,0)
-X: arrow from Orig to (project(maxy*1.2,0,0)); "x" rjust
-Y: arrow from Orig to (project(0,maxy*1.2,0)); "y" ljust
-Xv: (project(1,0,0))
-Yv: (project(0,1,0))
-Zv: (project(0,0,1))
+X: arrow from Orig to (Project(maxy*1.2,0,0)); "x" rjust
+Y: arrow from Orig to (Project(0,maxy*1.2,0)); "y" ljust
+Xv: (Project(1,0,0))
+Yv: (Project(0,1,0))
+Zv: (Project(0,0,1))
# create the arrays and sort
n = 0
for t = dang/2 to 360.1 by dang do {
@@ -150,14 +150,14 @@
dpquicksort(d,1,n,ix)
# draw the facets
ellipse wid maxy*2 ht maxy*2*sind(elevation) \
- with .c at (project(0,0,(maxy^2-1)^2)+linethick bp__/2)
+ with .c at (Project(0,0,(maxy^2-1)^2)+(0,linethick bp__/2))
thinlines_
for i = 1 to n do {
tc = t[ix[i]]; yc = y[ix[i]]
- SE: (project(hat(tc+dang/2,yc-dy/2)))
- SW: (project(hat(tc-dang/2,yc-dy/2)))
- NW: (project(hat(tc-dang/2,yc+dy/2)))
- NE: (project(hat(tc+dang/2,yc+dy/2)))
+ SE: (Project(hat(tc+dang/2,yc-dy/2)))
+ SW: (Project(hat(tc-dang/2,yc-dy/2)))
+ NW: (Project(hat(tc-dang/2,yc+dy/2)))
+ NE: (Project(hat(tc+dang/2,yc+dy/2)))
f = abs(yc^2-1)
line invis fill f from SE to SW then to NW then to NE then to SE
}
@@ -168,7 +168,7 @@
for i=1 to mm do { y = i/(mm+3)
findroot(edge,(azimuth+2),(azimuth+180-2),1e-8,t)
nr +=1
- R[mm+nr]: (project(hat(t,y)))
+ R[mm+nr]: (Project(hat(t,y)))
R[mm-1-nr]: (-R[mm+nr].x,R[mm+nr].y)
}
fitcurve(R,mm*2-1)
@@ -175,7 +175,7 @@
# Z axis
thicklines_
-Z: arrow from Zv to (project(0,0,1.2)); "z" ljust
+Z: arrow from Zv to (Project(0,0,1.2)); "z" ljust
line dashed from Orig to Zv chop 0 chop dashwid/2
line dashed from Orig to Xv
line dashed from Orig to Yv
@@ -182,7 +182,7 @@
# Partial rim
ellipsearc(maxy*2,maxy*2*sind(elevation),-pi_*1.4,pi_/3) \
- with .C at (project(0,0,(maxy^2-1)^2)+linethick bp__/2)
+ with .C at (Project(0,0,(maxy^2-1)^2)+(0,linethick bp__/2))
] scaled 1.25 with .s at 1st [].ne+(0,-0.75)
] scaled 0.85
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ics.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ics.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ics.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,17 +1,7 @@
divert(-1)
- Macros defining some integrated circuits and connectors
+ Macros defining some integrated circuits and connectors for LaTeX
- `DIP_chip_outline( pin count, wid )'
-define(`DIP_chip_outline',
- `[ define(`m4chgw',`ifelse(`$2',,(18*L_unit),`$2')')dnl
- Chip: box invis wid m4chgw ht lg_pinsep*eval((`$1')/2+1)
- arcd(last box.n, lg_pinsep/2, 180, 360)
- { line to last box.ne chop -linewid bp__/2 }
- { line from last arc.start to last box.nw chop -linewid bp__/2 }
- line from last box.nw to last box.sw then to last box.se then to last box.ne
- `$3']')
-
`A sequence of pins along the east or west side of a chip:
lg_pinseq(initial pin no, final pin no,
e|w, initial offset, pinnum_root, Labelroot, [N])'
@@ -20,6 +10,8 @@
`lg_pin( Chip.s`$3'+(0,($4+m4x)*lg_pinsep),
$6`'m4x,Pin`'eval($5`'m4x),`$3'`$7',eval($5`'m4x))') ')
+define(`ic_tiny',`iflatex(`\hbox{\tiny `$1'}',ifsvg(`svg_small(`$1')',`$1'))')
+define(`ic_tilde',`iflatex(`{\raisebox{-0.5ex}{\char126}}',~)')
define(`ic6116',`[ Chip: box wid_ lg_chipwd ht_ 15*lg_pinsep
lg_pin(Chip.sw_+(0,lg_pinsep),GND,Pin12,w,12)
@@ -27,7 +19,7 @@
lg_pinseq(0,2,w,4,9+,D)
lg_pinseq(3,7,w,4,10+,D)
lg_pin(Chip.sw_+(0,13*lg_pinsep),R/lg_bartxt(W),Pin21,w,21)
- lg_pin(Chip.sw_+(0,14*lg_pinsep),V\hbox{\tiny CC},Pin24,w,24)
+ lg_pin(Chip.sw_+(0,14*lg_pinsep),V`'ic_tiny(CC),Pin24,w,24)
lg_pin(Chip.se_+(0,lg_pinsep),lg_bartxt(OE),Pin20,eN,20)
lg_pinseq(0,7,e,3,8-,A)
lg_pinseq(8,9,e,3,31-,A)
@@ -35,8 +27,8 @@
`$1']')
define(`ic6502',`[ Chip: box wid_ lg_chipwd ht_ 24*lg_pinsep
- lg_pin(Chip.sw_+(0,lg_pinsep),V\hbox{\tiny SS},Pin21,w,21)
- lg_pin(Chip.sw_+(0,2*lg_pinsep),V\hbox{\tiny SS},Pin1,w,1)
+ lg_pin(Chip.sw_+(0,lg_pinsep),V`'ic_tiny(SS),Pin21,w,21)
+ lg_pin(Chip.sw_+(0,2*lg_pinsep),V`'ic_tiny(SS),Pin1,w,1)
lg_pin(Chip.sw_+(0,4*lg_pinsep),R/lg_bartxt(W),Pin34,w,34)
lg_pinseq(0,7,w,6,33-,D)
lg_pin(Chip.sw_+(0,15*lg_pinsep),lg_bartxt(RESET),Pin40,wN,40)
@@ -44,10 +36,10 @@
lg_pin(Chip.sw_+(0,19*lg_pinsep),lg_bartxt(NMI),Pin6,wN,6)
lg_pin(Chip.sw_+(0,21*lg_pinsep),RDY,Pin2,w,2)
lg_pin(Chip.sw_+(0,22*lg_pinsep),SO,Pin38,w,38)
- lg_pin(Chip.sw_+(0,23*lg_pinsep),V\hbox{\tiny CC},Pin8,w,8)
- lg_pin(Chip.se_+(0,lg_pinsep),{\large$\phi$}\hbox{\tiny 1}(in),Pin39,e,39)
+ lg_pin(Chip.sw_+(0,23*lg_pinsep),V`'ic_tiny(CC),Pin8,w,8)
+ lg_pin(Chip.se_+(0,lg_pinsep),CK`'ic_tiny(1)(in),Pin39,e,39)
lg_pin(Chip.se_+(0,4*lg_pinsep),
- {\large$\phi$}\hbox{\tiny 2}(out),Pin37,e,37)
+ CK`'ic_tiny(2)(out),Pin37,e,37)
lg_pinseq(0,11,e,6,9+,A)
lg_pinseq(12,15,e,6,10+,A)
lg_pin(Chip.se+(0,23*lg_pinsep),lg_bartxt(IRQ),Pin4,eN,4)
@@ -54,9 +46,9 @@
`$1']')
define(`ic6522',`[ Chip: box wid_ lg_chipwd ht_ 24*lg_pinsep
- lg_pin(Chip.sw_+(0,lg_pinsep),V\hbox{\tiny SS},Pin1,w,1)
+ lg_pin(Chip.sw_+(0,lg_pinsep),V`'ic_tiny(SS),Pin1,w,1)
lg_pin(Chip.sw_+(0,3*lg_pinsep),CS1,Pin24,w,24)
- lg_pin(Chip.sw_+(0,4*lg_pinsep),{\large$\phi$},Pin25,w,25)
+ lg_pin(Chip.sw_+(0,4*lg_pinsep),CK,Pin25,w,25)
lg_pin(Chip.sw_+(0,5*lg_pinsep),lg_bartxt(CS2),Pin23,wN,23)
lg_pin(Chip.sw_+(0,7*lg_pinsep),RS0(A0),Pin38,w,38)
lg_pin(Chip.sw_+(0,8*lg_pinsep),RS1(A1),Pin37,w,37)
@@ -65,7 +57,7 @@
lg_pinseq(0,7,w,12,33-,D)
lg_pin(Chip.sw_+(0,21*lg_pinsep),R/lg_bartxt(W),Pin22,w,22)
lg_pin(Chip.sw_+(0,22*lg_pinsep),lg_bartxt(IRQ),Pin21,wN,21)
- lg_pin(Chip.sw_+(0,23*lg_pinsep),V\hbox{\tiny CC},Pin20,w,20)
+ lg_pin(Chip.sw_+(0,23*lg_pinsep),V`'ic_tiny(CC),Pin20,w,20)
lg_pinseq(0,7,e,1,10+,PB)
lg_pinseq(1,2,e,8,17+,CB)
lg_pinseq(0,7,e,12,2+,PA)
@@ -81,12 +73,12 @@
lg_pin(Chip.sw_+(0,6*lg_pinsep),B,Pin2,w,2)
lg_pin(Chip.sw_+(0,7*lg_pinsep),C,Pin3,w,3)
lg_pin(Chip.sw_+(0,9*lg_pinsep),G1,Pin6,w,6)
- lg_pin(Chip.sw_+(0,10*lg_pinsep),V\hbox{\tiny CC},Pin16,w,16)
+ lg_pin(Chip.sw_+(0,10*lg_pinsep),V`'ic_tiny(CC),Pin16,w,16)
lg_pinseq(0,6,e,2,15-,Y,n)
lg_pin(Chip.se_+(0,9*lg_pinsep),Y7,Pin7,eN,7)
`$1']')
-define(`ic4017',`[ Chip: chip_gen(16)
+define(`ic4017',`[ Chip: DIP_chip_outline(16)
Loopover_(`x',
`lg_pin(Chip.nw-(0,lg_pinsep*m4Lx),x,Pin`'m4Lx,w,m4Lx)',
PL, Q3, I3, I0, CLE, Q0, TC, GND)
@@ -95,7 +87,7 @@
MR, U/D, Q1, I1, I2, Q2, CLK, Vcc)
`$1']')
-define(`ic4510',`[ Chip: chip_gen(16)
+define(`ic4510',`[ Chip: DIP_chip_outline(16)
Loopover_(`x',
`lg_pin(Chip.nw-(0,lg_pinsep*m4Lx),x,Pin`'m4Lx,w,m4Lx)',
PL, Q3, I3, I0, CLE, Q0, TC, GND)
@@ -104,13 +96,13 @@
MR, U/D, Q1, I1, I2, Q2, CLK, Vcc)
`$1']')
-define(`icVS1053',`[ Chip: chip_gen(32)
+define(`icVS1053',`[ Chip: DIP_chip_outline(32)
Loopover_(`x',
`lg_pin(Chip.nw-(0,lg_pinsep*m4Lx),x,Pin`'m4Lx,w,m4Lx)',
LOUT,ROUT,GBUF,AGND,AGND,DREG,Vcc,3V3,GND,MISO,MOSI,sclk,RST,CS,DCS,DCS)
Loopover_(`x',
`lg_pin(Chip.se+(0,lg_pinsep*m4Lx),x,Pin`'eval(m4Lx+16),e,eval(m4Lx+16))',
- SDCD,RX,TX,7,6,5,4,3,2,1,0,GND,3V3,AGND,MIC-,MIC+)
+ SDCD,RX,TX,7,6,5,4,3,2,1,0,GND,3V3,AGND,MIC`$-$',MIC`$+$')
`$1']')
`ArduinoUno( wid,ht,pinlen )'
@@ -125,14 +117,14 @@
Loopover_(`x',`ifelse(x,nul,,
`Pin`'eval(5+m4Lx): line left_ plen from Connector.nw-(0,(5+m4Lx)*lg_pinsep)
{ "x" ljust at last line.start }')',
- IOREF, RESET,`$+$`'3V3',`$+$`'5V', GND, GND, VIN,
+ IOREF, RESET,$+${3}V3,$+${5}V, GND, GND, VIN,
nul, A0, A1, A2, A3, A4, A5)
#
Loopover_(`x',`ifelse(x,nul,,
`Pin`'eval(22-m4Lx): line right_ plen from Connector.ne-(0,m4Lx*lg_pinsep)
{ "x" rjust at last line.start }')',
- SCL, SDA, AREF, GND, D13, D12, \char126 D11, \char126 D10, \char126 D9, D8,
- nul, D7, \char126 D6, \char126 D5, D4, \char126 D3, D2, TX D1, RX D0)
+ SCL, SDA, AREF, GND, D13, D12, ic_tilde`'D11, ic_tilde`'D10, ic_tilde`'D9, D8,
+ nul, D7, ic_tilde`'D6, ic_tilde`'D5, D4, ic_tilde`'D3, D2, TX D1, RX D0)
#
`$4'] ')
@@ -148,7 +140,7 @@
Loopover_(`x',`ifelse(x,nul,,
`Pin`'eval(5+m4Lx): line left_ plen from Connector.nw-(0,(5+m4Lx)*lg_pinsep)
{ "x" ljust at last line.start }')',
- IOREF, RESET,`$+$`'3V3',`$+$`'5V', GND, GND, VIN,
+ IOREF, RESET,$+${3}V3,$+${5}V, GND, GND, VIN,
nul, A0, A1, A2, A3, A4, A5)
#
Loopover_(`x',`ifelse(x,nul,,
@@ -155,8 +147,8 @@
`Pin`'eval(22-m4Lx): line right_ plen from Connector.ne-(0,m4Lx*lg_pinsep)
{ "x" rjust at last line.start }')',
SCL, SDA, AREF, GND,
- \char126 D13, D12, \char126 D11, \char126 D10, \char126 D9, D8,
- nul, D7, \char126 D6, \char126 D5, D4, \char126 D3, D2, TX D1, RX D0)
+ ic_tilde`'D13, D12, ic_tilde`'D11, ic_tilde`'D10, ic_tilde`'D9, D8,
+ nul, D7, ic_tilde`'D6, ic_tilde`'D5, D4, ic_tilde`'D3, D2, TX D1, RX D0)
#
`$4'] ')
@@ -221,12 +213,14 @@
`B`'eval(13-m4Lx): dnl
line left_ plen from Base.n-(m4bwid/2,(m4Lx+0.5)*lg_pinsep)
{"x" ljust at last line.start}',
- GND, RX1$+$, RX1$-$, VBUS, SBU2, D$-$, D$+$, CC2, VBUS, TX2$-$, TX2$+$, GND)
+ GND, RX1`$+$', RX1`$-$', VBUS, SBU2, D`$-$', D`$+$', CC2, VBUS, TX2`$-$',
+ TX2`$+$', GND)
#
Loopover_(`x',
`A`'m4Lx: line right_ plen from Base.n+(m4bwid/2,-(m4Lx+0.5)*lg_pinsep)
{"x" rjust at last line.start}',
- GND, TX1$+$, TX1$-$, VBUS, CC1, D$+$, D$-$, SBU1, VBUS, RX2$-$, RX2$+$, GND)
+ GND, TX1`$+$', TX1`$-$', VBUS, CC1, D`$+$', D`$-$', SBU1, VBUS, RX2`$-$',
+ RX2`$+$', GND)
#
`$4']')
@@ -245,8 +239,9 @@
`Pin`'m4Lx: line left_ plen from Base.nw-(0,m4bwid/3+m4Lx*lg_pinsep)
{"x" ljust at last line.start}
"m4Lx" at last line.c above',
- HPD, UTILITY, D2$+$, D2\_SH, D2$-$, D1$+$, D1\_SH, D1$-$, D0$+$, D0\_SH,
- D0$-$, CLK$+$, CLK\_SH, CLK$-$, CEC, GND, SCL, SDA, $+``$''5V)
+ HPD, UTILITY, D2`$+$', D2\_SH, D2`$-$', D1`$+$', D1\_SH, D1`$-$',
+ D0`$+$', D0\_SH, D0`$-$', CLK`$+$', CLK\_SH, CLK`$-$',
+ CEC, GND, SCL, SDA,$+${5}V)
line from Base.nw+(m4bwid*2/3-lg_pinsep,0) up plen
r_text(21) at last line.c+(-5bp__,0)
r_text(SH2) at last line.start + (0,-10bp__)
@@ -262,4 +257,51 @@
#
`$4']')
+ `DIP_chip_outline( pin count, wid )'
+define(`DIP_chip_outline',
+ `[ define(`m4pinct',`ifelse(`$1',,16,`$1')')dnl
+ define(`m4chgw',`ifelse(`$2',,(18*L_unit),`$2')')dnl
+ Chip: box invis wid m4chgw ht lg_pinsep*eval((m4pinct)/2+1)
+ arcd(Chip.n, lg_pinsep/2, 180, 360)
+ { line to Chip.ne chop -linewid bp__/2 }
+ { line from last arc.start to Chip.nw chop -linewid bp__/2 }
+ line from Chip.nw to Chip.sw then to Chip.se then to Chip.ne
+ `$3']')
+
+ `DIP( pin count, attributes)
+ Dual in-line package
+ attributes=semicolon-separated list of optional terms:
+ bodywid=expr; (default 0.25 = 5*L_unit )
+ bodylen=expr; (default pin count/2 x pinpitch)
+ pinpitch=expr; (default 0.1)
+ pinwid=expr; (default 0.06)
+ pinlen=expr; (default 0.05)
+ direct=U|D|L|R;(default U for up)
+ type=I|Q; (default I for uniform-length pins;
+ Q: staggered) '
+define(`DIP',`[ pinct= ifelse(`$1',,8,`$1')
+ setkeys_(`$2',
+ bodywid: 5*L_unit;
+ bodylen: m4pinpitch*int(pinct/2+0.5);
+ pinpitch:2*L_unit;
+ pinwid: 1.2*L_unit;
+ pinlen: L_unit;
+ direct:U:N;
+ type:I:N)
+ setdir_(m4direct,U)
+ Body: box ht_ m4bodywid wid_ m4bodylen
+ arcs = ifelse(m4dir,right,90,m4dir,up,180,m4dir,left,270,0)
+ arcd(Body.e_, 0.1/2, arcs,arcs+180)
+ np2 = int(pinct/2+0.5)
+ define(`m4bxht',`m4pinlen ifelse(m4type,Q,`*(1+(i%%2))')')dnl
+ for i=0 to np2-1 do {
+ exec sprintf("Pin%g: box ht_ m4bxht wid_ m4pinwid \
+ with .s_ at (i+0.5)/np2 between Body.ne_ and Body.nw_",i+1) }
+ for i=np2+1 to pinct do {
+ exec sprintf("Pin%g: box ht_ m4bxht wid_ m4pinwid \
+ with .n_ at (i-np2-0.5)/(pinct-np2) between Body.sw_ and Body.se_",i) }
+ `$3'; resetdir_
+ popdef(`m4bodywid',`m4bodylen',`m4pinpitch',`m4pinwid',`m4pinlen',`m4direct',
+ `m4type') ]'))
+
divert(0)dnl
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/lcct.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/lcct.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/lcct.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -3,6 +3,7 @@
log_init
include(ics.m4)
iflatex(`ifpsfrag(,`latexcommand({\sf)')')
+maxpswid = 10
define(`dimen_',0.5)
define(`elen_',dimen_)
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/cct.mf
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/cct.mf 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/cct.mf 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,5 +1,5 @@
% cct.mf, generated by Mfpic, v1.10 2012/12/03,
-% from TeX source "font" on 2021/01/03 at 16:42
+% from TeX source "font" on 2021/06/02 at 22:43
numeric mfpicversion; mfpicversion := 110;
if unknown mode: mode := localfont; fi
if unknown mag: mag := 1000/1000; fi
@@ -81,61 +81,61 @@
drawn
polyline (false)
((0,0),
-(0.024933,0));
+(0.020249,0));
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((0.024933,0),0.002767);
+circle ((0.020249,0),0.002767);
resizedrawpen (0.8bp);
store (curpath)
drawn
-arcplr ((0.070249,0.021131),-155,-410,0.05);
+arcplr ((0.065564,0.021131),-155,-410,0.05);
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((0.102388,-0.017171),0.002767);
+circle ((0.097703,-0.017171),0.002767);
resizedrawpen (0.8bp);
store (curpath)
drawn
-arcplr ((0.134527,0.021131),-130,-410,0.05);
+arcplr ((0.129843,0.021131),-130,-410,0.05);
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((0.166667,-0.017171),0.002767);
+circle ((0.161982,-0.017171),0.002767);
resizedrawpen (0.8bp);
store (curpath)
drawn
-arcplr ((0.198806,0.021131),-130,-410,0.05);
+arcplr ((0.194121,0.021131),-130,-410,0.05);
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((0.230945,-0.017171),0.002767);
+circle ((0.226261,-0.017171),0.002767);
resizedrawpen (0.8bp);
store (curpath)
drawn
-arcplr ((0.263085,0.021131),-130,-385,0.05);
+arcplr ((0.2584,0.021131),-130,-385,0.05);
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((0.3084,0),0.002767);
+circle ((0.303716,0),0.002767);
resizedrawpen (0.8bp);
@@ -142,8 +142,8 @@
store (curpath)
drawn
polyline (false)
-((0.3084,0),
-(0.333333,0));
+((0.303716,0),
+(0.323964,0));
endmfpic; % (3) line 59 in the TeX source.
%------------------------------------------
@@ -163,61 +163,61 @@
drawn
polyline (false)
((0,0),
-(0,-0.024933));
+(0,-0.020249));
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((0,-0.024933),0.002767);
+circle ((0,-0.020249),0.002767);
resizedrawpen (0.8bp);
store (curpath)
drawn
-arcplr ((0.021131,-0.070249),115,-140,0.05);
+arcplr ((0.021131,-0.065564),115,-140,0.05);
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((-0.017171,-0.102388),0.002767);
+circle ((-0.017171,-0.097703),0.002767);
resizedrawpen (0.8bp);
store (curpath)
drawn
-arcplr ((0.021131,-0.134527),140,-140,0.05);
+arcplr ((0.021131,-0.129843),140,-140,0.05);
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((-0.017171,-0.166667),0.002767);
+circle ((-0.017171,-0.161982),0.002767);
resizedrawpen (0.8bp);
store (curpath)
drawn
-arcplr ((0.021131,-0.198806),140,-140,0.05);
+arcplr ((0.021131,-0.194121),140,-140,0.05);
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((-0.017171,-0.230945),0.002767);
+circle ((-0.017171,-0.226261),0.002767);
resizedrawpen (0.8bp);
store (curpath)
drawn
-arcplr ((0.021131,-0.263085),140,-115,0.05);
+arcplr ((0.021131,-0.2584),140,-115,0.05);
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((0,-0.3084),0.002767);
+circle ((0,-0.303716),0.002767);
resizedrawpen (0.8bp);
@@ -224,8 +224,8 @@
store (curpath)
drawn
polyline (false)
-((0,-0.3084),
-(0,-0.333333));
+((0,-0.303716),
+(0,-0.323964));
endmfpic; % (4) line 77 in the TeX source.
%------------------------------------------
@@ -245,61 +245,61 @@
drawn
polyline (false)
((0,0),
-(-0.024933,0));
+(-0.020249,0));
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((-0.024933,0),0.002767);
+circle ((-0.020249,0),0.002767);
resizedrawpen (0.8bp);
store (curpath)
drawn
-arcplr ((-0.070249,-0.021131),25,-230,0.05);
+arcplr ((-0.065564,-0.021131),25,-230,0.05);
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((-0.102388,0.017171),0.002767);
+circle ((-0.097703,0.017171),0.002767);
resizedrawpen (0.8bp);
store (curpath)
drawn
-arcplr ((-0.134527,-0.021131),50,-230,0.05);
+arcplr ((-0.129843,-0.021131),50,-230,0.05);
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((-0.166667,0.017171),0.002767);
+circle ((-0.161982,0.017171),0.002767);
resizedrawpen (0.8bp);
store (curpath)
drawn
-arcplr ((-0.198806,-0.021131),50,-230,0.05);
+arcplr ((-0.194121,-0.021131),50,-230,0.05);
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((-0.230945,0.017171),0.002767);
+circle ((-0.226261,0.017171),0.002767);
resizedrawpen (0.8bp);
store (curpath)
drawn
-arcplr ((-0.263085,-0.021131),50,-205,0.05);
+arcplr ((-0.2584,-0.021131),50,-205,0.05);
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((-0.3084,-0),0.002767);
+circle ((-0.303716,-0),0.002767);
resizedrawpen (0.8bp);
@@ -306,8 +306,8 @@
store (curpath)
drawn
polyline (false)
-((-0.3084,-0),
-(-0.333333,-0));
+((-0.303716,-0),
+(-0.323964,-0));
endmfpic; % (5) line 95 in the TeX source.
%------------------------------------------
@@ -327,61 +327,61 @@
drawn
polyline (false)
((0,0),
-(0,0.024933));
+(0,0.020249));
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((0,0.024933),0.002767);
+circle ((0,0.020249),0.002767);
resizedrawpen (0.8bp);
store (curpath)
drawn
-arcplr ((-0.021131,0.070249),-65,-320,0.05);
+arcplr ((-0.021131,0.065564),-65,-320,0.05);
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((0.017171,0.102388),0.002767);
+circle ((0.017171,0.097703),0.002767);
resizedrawpen (0.8bp);
store (curpath)
drawn
-arcplr ((-0.021131,0.134527),-40,-320,0.05);
+arcplr ((-0.021131,0.129843),-40,-320,0.05);
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((0.017171,0.166667),0.002767);
+circle ((0.017171,0.161982),0.002767);
resizedrawpen (0.8bp);
store (curpath)
drawn
-arcplr ((-0.021131,0.198806),-40,-320,0.05);
+arcplr ((-0.021131,0.194121),-40,-320,0.05);
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((0.017171,0.230945),0.002767);
+circle ((0.017171,0.226261),0.002767);
resizedrawpen (0.8bp);
store (curpath)
drawn
-arcplr ((-0.021131,0.263085),-40,-295,0.05);
+arcplr ((-0.021131,0.2584),-40,-295,0.05);
resizedrawpen (0.4bp);
store (curpath)
drawn
-circle ((-0,0.3084),0.002767);
+circle ((-0,0.303716),0.002767);
resizedrawpen (0.8bp);
@@ -388,8 +388,8 @@
store (curpath)
drawn
polyline (false)
-((-0,0.3084),
-(-0,0.333333));
+((-0,0.303716),
+(-0,0.323964));
endmfpic; % (6) line 113 in the TeX source.
%------------------------------------------
@@ -398,7 +398,7 @@
%----------------------------<7>
unitlen := 1.0pt#;
xscale := 72; yscale := 72;
-bounds (-0.146418, 0.333333, 0, 0.123214);
+bounds (0, 0.333333, 0, 0);
beginmfpic(7); % line 114 in the TeX source.
@@ -405,19 +405,7 @@
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
-store (curpath)
-drawn
-polyline (false)
-((-0.146418,0.091964),
-(0.146418,0.091964));
-
-store (curpath)
-drawn
-polyline (false)
-((-0.146418,0.123214),
-(0.146418,0.123214));
-
-endmfpic; % (7) line 122 in the TeX source.
+endmfpic; % (7) line 118 in the TeX source.
%------------------------------------------
@@ -424,26 +412,14 @@
%----------------------------<8>
unitlen := 1.0pt#;
xscale := 72; yscale := 72;
-bounds (-0.123214, 0, -0.146418, 0.333333);
+bounds (0, 0, 0, 0.333333);
-beginmfpic(8); % line 123 in the TeX source.
+beginmfpic(8); % line 119 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
-store (curpath)
-drawn
-polyline (false)
-((-0.091964,-0.146418),
-(-0.091964,0.146418));
-
-store (curpath)
-drawn
-polyline (false)
-((-0.123214,-0.146418),
-(-0.123214,0.146418));
-
-endmfpic; % (8) line 131 in the TeX source.
+endmfpic; % (8) line 123 in the TeX source.
%------------------------------------------
@@ -452,7 +428,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.333333, -0, 0.03125);
-beginmfpic(9); % line 132 in the TeX source.
+beginmfpic(9); % line 124 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -485,7 +461,7 @@
((0.291667,0),
(0.333333,0));
-endmfpic; % (9) line 144 in the TeX source.
+endmfpic; % (9) line 136 in the TeX source.
%------------------------------------------
@@ -494,7 +470,7 @@
xscale := 72; yscale := 72;
bounds (-0, 0.03125, -0.333333, 0);
-beginmfpic(10); % line 145 in the TeX source.
+beginmfpic(10); % line 137 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -511,23 +487,23 @@
store (curpath)
drawn
-arcplr ((-0,-0.135417),90,-90,0.03125);
+arcplr ((0,-0.135417),90,-90,0.03125);
store (curpath)
drawn
-arcplr ((-0,-0.197917),90,-90,0.03125);
+arcplr ((0,-0.197917),90,-90,0.03125);
store (curpath)
drawn
-arcplr ((-0,-0.260417),90,-90,0.03125);
+arcplr ((0,-0.260417),90,-90,0.03125);
store (curpath)
drawn
polyline (false)
-((-0,-0.291667),
-(-0,-0.333333));
+((0,-0.291667),
+(0,-0.333333));
-endmfpic; % (10) line 157 in the TeX source.
+endmfpic; % (10) line 149 in the TeX source.
%------------------------------------------
@@ -536,7 +512,7 @@
xscale := 72; yscale := 72;
bounds (-0.333333, 0, -0.03125, 0);
-beginmfpic(11); % line 158 in the TeX source.
+beginmfpic(11); % line 150 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -549,7 +525,7 @@
store (curpath)
drawn
-arcplr ((-0.072917,0),-0,-180,0.03125);
+arcplr ((-0.072917,0),0,-180,0.03125);
store (curpath)
drawn
@@ -569,7 +545,7 @@
((-0.291667,0),
(-0.333333,0));
-endmfpic; % (11) line 170 in the TeX source.
+endmfpic; % (11) line 162 in the TeX source.
%------------------------------------------
@@ -578,7 +554,7 @@
xscale := 72; yscale := 72;
bounds (-0.03125, 0, 0, 0.333333);
-beginmfpic(12); % line 171 in the TeX source.
+beginmfpic(12); % line 163 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -599,19 +575,19 @@
store (curpath)
drawn
-arcplr ((-0,0.197917),-90,-270,0.03125);
+arcplr ((0,0.197917),-90,-270,0.03125);
store (curpath)
drawn
-arcplr ((-0,0.260417),-90,-270,0.03125);
+arcplr ((0,0.260417),-90,-270,0.03125);
store (curpath)
drawn
polyline (false)
-((-0,0.291667),
-(-0,0.333333));
+((0,0.291667),
+(0,0.333333));
-endmfpic; % (12) line 183 in the TeX source.
+endmfpic; % (12) line 175 in the TeX source.
%------------------------------------------
@@ -620,7 +596,7 @@
xscale := 72; yscale := 72;
bounds (-0.03125, 0, 0, 0.333333);
-beginmfpic(13); % line 184 in the TeX source.
+beginmfpic(13); % line 176 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -641,19 +617,19 @@
store (curpath)
drawn
-arcplr ((-0,0.197917),-90,-270,0.03125);
+arcplr ((0,0.197917),-90,-270,0.03125);
store (curpath)
drawn
-arcplr ((-0,0.260417),-90,-270,0.03125);
+arcplr ((0,0.260417),-90,-270,0.03125);
store (curpath)
drawn
polyline (false)
-((-0,0.291667),
-(-0,0.333333));
+((0,0.291667),
+(0,0.333333));
-endmfpic; % (13) line 196 in the TeX source.
+endmfpic; % (13) line 188 in the TeX source.
%------------------------------------------
@@ -660,26 +636,14 @@
%----------------------------<14>
unitlen := 1.0pt#;
xscale := 72; yscale := 72;
-bounds (-0.125, 0.333333, 0, 0.083333);
+bounds (0, 0.333333, 0, 0);
-beginmfpic(14); % line 197 in the TeX source.
+beginmfpic(14); % line 189 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
-store (curpath)
-drawn
-polyline (false)
-((-0.125,0.052083),
-(0.125,0.052083));
-
-store (curpath)
-drawn
-polyline (false)
-((-0.125,0.083333),
-(0.125,0.083333));
-
-endmfpic; % (14) line 205 in the TeX source.
+endmfpic; % (14) line 193 in the TeX source.
%------------------------------------------
@@ -686,26 +650,14 @@
%----------------------------<15>
unitlen := 1.0pt#;
xscale := 72; yscale := 72;
-bounds (-0.083333, 0, -0.125, 0.333333);
+bounds (0, 0, 0, 0.333333);
-beginmfpic(15); % line 206 in the TeX source.
+beginmfpic(15); % line 194 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
-store (curpath)
-drawn
-polyline (false)
-((-0.052083,-0.125),
-(-0.052083,0.125));
-
-store (curpath)
-drawn
-polyline (false)
-((-0.083333,-0.125),
-(-0.083333,0.125));
-
-endmfpic; % (15) line 214 in the TeX source.
+endmfpic; % (15) line 198 in the TeX source.
%------------------------------------------
@@ -714,7 +666,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.333333, -0.0625, 0.0625);
-beginmfpic(16); % line 215 in the TeX source.
+beginmfpic(16); % line 199 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -741,7 +693,7 @@
((0.17492,0),
(0.333333,0));
-endmfpic; % (16) line 226 in the TeX source.
+endmfpic; % (16) line 210 in the TeX source.
%------------------------------------------
@@ -750,7 +702,7 @@
xscale := 72; yscale := 72;
bounds (-0.0625, 0.0625, -0.333333, 0);
-beginmfpic(17); % line 227 in the TeX source.
+beginmfpic(17); % line 211 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -777,7 +729,7 @@
((0,-0.17492),
(0,-0.333333));
-endmfpic; % (17) line 238 in the TeX source.
+endmfpic; % (17) line 222 in the TeX source.
%------------------------------------------
@@ -786,7 +738,7 @@
xscale := 72; yscale := 72;
bounds (-0.333333, 0, -0.0625, 0.0625);
-beginmfpic(18); % line 239 in the TeX source.
+beginmfpic(18); % line 223 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -813,7 +765,7 @@
((-0.17492,0),
(-0.333333,0));
-endmfpic; % (18) line 250 in the TeX source.
+endmfpic; % (18) line 234 in the TeX source.
%------------------------------------------
@@ -822,7 +774,7 @@
xscale := 72; yscale := 72;
bounds (-0.0625, 0.0625, 0, 0.333333);
-beginmfpic(19); % line 251 in the TeX source.
+beginmfpic(19); % line 235 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -849,7 +801,7 @@
((0,0.17492),
(0,0.333333));
-endmfpic; % (19) line 262 in the TeX source.
+endmfpic; % (19) line 246 in the TeX source.
%------------------------------------------
@@ -858,7 +810,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.333333, -0.083333, 0.083333);
-beginmfpic(20); % line 263 in the TeX source.
+beginmfpic(20); % line 247 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -887,7 +839,7 @@
((0.191667,0),
(0.333333,0));
-endmfpic; % (20) line 275 in the TeX source.
+endmfpic; % (20) line 259 in the TeX source.
%------------------------------------------
@@ -896,7 +848,7 @@
xscale := 72; yscale := 72;
bounds (-0.083333, 0.083333, 0, 0.333333);
-beginmfpic(21); % line 276 in the TeX source.
+beginmfpic(21); % line 260 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -925,7 +877,7 @@
((0,0.191667),
(0,0.333333));
-endmfpic; % (21) line 288 in the TeX source.
+endmfpic; % (21) line 272 in the TeX source.
%------------------------------------------
@@ -934,7 +886,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.333333, -0.051253, 0.051253);
-beginmfpic(22); % line 289 in the TeX source.
+beginmfpic(22); % line 273 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -945,9 +897,11 @@
((0,0),
(0.130582,0));
+resizedrawpen (0bp);
+
store (curpath)
+drawn
filled
-drawn
lclosed
polyline (false)
((0.130582,0),
@@ -956,9 +910,20 @@
(0.130582,-0.041667),
(0.130582,0));
+resizedrawpen (0.8bp);
+
store (curpath)
drawn
polyline (false)
+((0.130582,0),
+(0.130582,0.041667),
+(0.197216,0),
+(0.130582,-0.041667),
+(0.130582,0));
+
+store (curpath)
+drawn
+polyline (false)
((0.202751,-0.045718),
(0.202751,0.045718));
@@ -968,7 +933,7 @@
((0.202751,0),
(0.333333,0));
-endmfpic; % (22) line 305 in the TeX source.
+endmfpic; % (22) line 294 in the TeX source.
%------------------------------------------
@@ -977,7 +942,7 @@
xscale := 72; yscale := 72;
bounds (-0.051253, 0.051253, -0.333333, 0);
-beginmfpic(23); % line 306 in the TeX source.
+beginmfpic(23); % line 295 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -988,9 +953,11 @@
((0,0),
(0,-0.130582));
+resizedrawpen (0bp);
+
store (curpath)
+drawn
filled
-drawn
lclosed
polyline (false)
((0,-0.130582),
@@ -999,9 +966,20 @@
(-0.041667,-0.130582),
(0,-0.130582));
+resizedrawpen (0.8bp);
+
store (curpath)
drawn
polyline (false)
+((0,-0.130582),
+(0.041667,-0.130582),
+(0,-0.197216),
+(-0.041667,-0.130582),
+(0,-0.130582));
+
+store (curpath)
+drawn
+polyline (false)
((-0.045718,-0.202751),
(0.045718,-0.202751));
@@ -1011,7 +989,7 @@
((0,-0.202751),
(0,-0.333333));
-endmfpic; % (23) line 322 in the TeX source.
+endmfpic; % (23) line 316 in the TeX source.
%------------------------------------------
@@ -1020,7 +998,7 @@
xscale := 72; yscale := 72;
bounds (-0.333333, 0, -0.051253, 0.051253);
-beginmfpic(24); % line 323 in the TeX source.
+beginmfpic(24); % line 317 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1031,9 +1009,11 @@
((0,0),
(-0.130582,0));
+resizedrawpen (0bp);
+
store (curpath)
+drawn
filled
-drawn
lclosed
polyline (false)
((-0.130582,0),
@@ -1042,9 +1022,20 @@
(-0.130582,0.041667),
(-0.130582,0));
+resizedrawpen (0.8bp);
+
store (curpath)
drawn
polyline (false)
+((-0.130582,0),
+(-0.130582,-0.041667),
+(-0.197216,0),
+(-0.130582,0.041667),
+(-0.130582,0));
+
+store (curpath)
+drawn
+polyline (false)
((-0.202751,0.045718),
(-0.202751,-0.045718));
@@ -1054,7 +1045,7 @@
((-0.202751,0),
(-0.333333,0));
-endmfpic; % (24) line 339 in the TeX source.
+endmfpic; % (24) line 338 in the TeX source.
%------------------------------------------
@@ -1063,7 +1054,7 @@
xscale := 72; yscale := 72;
bounds (-0.051253, 0.051253, 0, 0.333333);
-beginmfpic(25); % line 340 in the TeX source.
+beginmfpic(25); % line 339 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1074,9 +1065,11 @@
((0,0),
(0,0.130582));
+resizedrawpen (0bp);
+
store (curpath)
+drawn
filled
-drawn
lclosed
polyline (false)
((0,0.130582),
@@ -1085,9 +1078,20 @@
(0.041667,0.130582),
(0,0.130582));
+resizedrawpen (0.8bp);
+
store (curpath)
drawn
polyline (false)
+((0,0.130582),
+(-0.041667,0.130582),
+(0,0.197216),
+(0.041667,0.130582),
+(0,0.130582));
+
+store (curpath)
+drawn
+polyline (false)
((0.045718,0.202751),
(-0.045718,0.202751));
@@ -1097,7 +1101,7 @@
((0,0.202751),
(0,0.333333));
-endmfpic; % (25) line 356 in the TeX source.
+endmfpic; % (25) line 360 in the TeX source.
%------------------------------------------
@@ -1106,7 +1110,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.333333, -0.051253, 0.051253);
-beginmfpic(26); % line 357 in the TeX source.
+beginmfpic(26); % line 361 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1117,9 +1121,11 @@
((0,0),
(0.130582,0));
+resizedrawpen (0bp);
+
store (curpath)
+drawn
filled
-drawn
lclosed
polyline (false)
((0.130582,0),
@@ -1128,9 +1134,20 @@
(0.130582,-0.041667),
(0.130582,0));
+resizedrawpen (0.8bp);
+
store (curpath)
drawn
polyline (false)
+((0.130582,0),
+(0.130582,0.041667),
+(0.197216,0),
+(0.130582,-0.041667),
+(0.130582,0));
+
+store (curpath)
+drawn
+polyline (false)
((0.181918,-0.045718),
(0.202751,-0.045718),
(0.202751,0.045718),
@@ -1142,7 +1159,7 @@
((0.202751,0),
(0.333333,0));
-endmfpic; % (26) line 375 in the TeX source.
+endmfpic; % (26) line 384 in the TeX source.
%------------------------------------------
@@ -1151,7 +1168,7 @@
xscale := 72; yscale := 72;
bounds (-0.051253, 0.051253, -0.333333, 0);
-beginmfpic(27); % line 376 in the TeX source.
+beginmfpic(27); % line 385 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1162,9 +1179,11 @@
((0,0),
(0,-0.130582));
+resizedrawpen (0bp);
+
store (curpath)
+drawn
filled
-drawn
lclosed
polyline (false)
((0,-0.130582),
@@ -1173,9 +1192,20 @@
(-0.041667,-0.130582),
(0,-0.130582));
+resizedrawpen (0.8bp);
+
store (curpath)
drawn
polyline (false)
+((0,-0.130582),
+(0.041667,-0.130582),
+(0,-0.197216),
+(-0.041667,-0.130582),
+(0,-0.130582));
+
+store (curpath)
+drawn
+polyline (false)
((-0.045718,-0.181918),
(-0.045718,-0.202751),
(0.045718,-0.202751),
@@ -1187,7 +1217,7 @@
((0,-0.202751),
(0,-0.333333));
-endmfpic; % (27) line 394 in the TeX source.
+endmfpic; % (27) line 408 in the TeX source.
%------------------------------------------
@@ -1196,7 +1226,7 @@
xscale := 72; yscale := 72;
bounds (-0.333333, 0, -0.051253, 0.051253);
-beginmfpic(28); % line 395 in the TeX source.
+beginmfpic(28); % line 409 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1207,9 +1237,11 @@
((0,0),
(-0.130582,0));
+resizedrawpen (0bp);
+
store (curpath)
+drawn
filled
-drawn
lclosed
polyline (false)
((-0.130582,0),
@@ -1218,9 +1250,20 @@
(-0.130582,0.041667),
(-0.130582,0));
+resizedrawpen (0.8bp);
+
store (curpath)
drawn
polyline (false)
+((-0.130582,0),
+(-0.130582,-0.041667),
+(-0.197216,0),
+(-0.130582,0.041667),
+(-0.130582,0));
+
+store (curpath)
+drawn
+polyline (false)
((-0.181918,0.045718),
(-0.202751,0.045718),
(-0.202751,-0.045718),
@@ -1232,7 +1275,7 @@
((-0.202751,0),
(-0.333333,0));
-endmfpic; % (28) line 413 in the TeX source.
+endmfpic; % (28) line 432 in the TeX source.
%------------------------------------------
@@ -1241,7 +1284,7 @@
xscale := 72; yscale := 72;
bounds (-0.051253, 0.051253, 0, 0.333333);
-beginmfpic(29); % line 414 in the TeX source.
+beginmfpic(29); % line 433 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1252,9 +1295,11 @@
((0,0),
(0,0.130582));
+resizedrawpen (0bp);
+
store (curpath)
+drawn
filled
-drawn
lclosed
polyline (false)
((0,0.130582),
@@ -1263,9 +1308,20 @@
(0.041667,0.130582),
(0,0.130582));
+resizedrawpen (0.8bp);
+
store (curpath)
drawn
polyline (false)
+((0,0.130582),
+(-0.041667,0.130582),
+(0,0.197216),
+(0.041667,0.130582),
+(0,0.130582));
+
+store (curpath)
+drawn
+polyline (false)
((0.045718,0.181918),
(0.045718,0.202751),
(-0.045718,0.202751),
@@ -1277,7 +1333,7 @@
((0,0.202751),
(0,0.333333));
-endmfpic; % (29) line 432 in the TeX source.
+endmfpic; % (29) line 456 in the TeX source.
%------------------------------------------
@@ -1286,7 +1342,7 @@
xscale := 72; yscale := 72;
bounds (-0.036084, 0.333333, -0.051253, 0.051253);
-beginmfpic(30); % line 433 in the TeX source.
+beginmfpic(30); % line 457 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1297,7 +1353,7 @@
((-0.036084,-0.045718),
(-0.036084,0.045718));
-endmfpic; % (30) line 439 in the TeX source.
+endmfpic; % (30) line 463 in the TeX source.
%------------------------------------------
@@ -1306,7 +1362,7 @@
xscale := 72; yscale := 72;
bounds (-0.051253, 0.051253, -0.333333, 0.036084);
-beginmfpic(31); % line 440 in the TeX source.
+beginmfpic(31); % line 464 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1317,7 +1373,7 @@
((-0.045718,0.036084),
(0.045718,0.036084));
-endmfpic; % (31) line 446 in the TeX source.
+endmfpic; % (31) line 470 in the TeX source.
%------------------------------------------
@@ -1326,7 +1382,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.333333, -0.0625, 0.0625);
-beginmfpic(32); % line 447 in the TeX source.
+beginmfpic(32); % line 471 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1365,7 +1421,7 @@
((0.208333,0),
(0.333333,0));
-endmfpic; % (32) line 465 in the TeX source.
+endmfpic; % (32) line 489 in the TeX source.
%------------------------------------------
@@ -1374,7 +1430,7 @@
xscale := 72; yscale := 72;
bounds (-0.0625, 0.0625, -0.333333, 0);
-beginmfpic(33); % line 466 in the TeX source.
+beginmfpic(33); % line 490 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1413,7 +1469,7 @@
((0,-0.208333),
(0,-0.333333));
-endmfpic; % (33) line 484 in the TeX source.
+endmfpic; % (33) line 508 in the TeX source.
%------------------------------------------
@@ -1422,7 +1478,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.333333, -0.125, 0.125);
-beginmfpic(34); % line 485 in the TeX source.
+beginmfpic(34); % line 509 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1443,7 +1499,7 @@
((0.291667,0),
(0.333333,0));
-endmfpic; % (34) line 494 in the TeX source.
+endmfpic; % (34) line 518 in the TeX source.
%------------------------------------------
@@ -1452,7 +1508,7 @@
xscale := 72; yscale := 72;
bounds (-0.125, 0.125, 0, 0.333333);
-beginmfpic(35); % line 495 in the TeX source.
+beginmfpic(35); % line 519 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1473,7 +1529,7 @@
((0,0.291667),
(0,0.333333));
-endmfpic; % (35) line 504 in the TeX source.
+endmfpic; % (35) line 528 in the TeX source.
%------------------------------------------
@@ -1482,7 +1538,7 @@
xscale := 72; yscale := 72;
bounds (-0.083333, 0.083333, -0.041667, 0.041667);
-beginmfpic(36); % line 505 in the TeX source.
+beginmfpic(36); % line 529 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1495,7 +1551,7 @@
drawn
arcplr ((0.041667,0),180,360,0.041667);
-endmfpic; % (36) line 511 in the TeX source.
+endmfpic; % (36) line 535 in the TeX source.
%------------------------------------------
@@ -1504,7 +1560,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.333333, -0.15, 0.15);
-beginmfpic(37); % line 512 in the TeX source.
+beginmfpic(37); % line 536 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1530,7 +1586,7 @@
((0.316667,0),
(0.333333,0));
-endmfpic; % (37) line 525 in the TeX source.
+endmfpic; % (37) line 549 in the TeX source.
%------------------------------------------
@@ -1539,7 +1595,7 @@
xscale := 72; yscale := 72;
bounds (-0.15, 0.15, 0, 0.333333);
-beginmfpic(38); % line 526 in the TeX source.
+beginmfpic(38); % line 550 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1565,7 +1621,7 @@
((0,0.316667),
(0,0.333333));
-endmfpic; % (38) line 539 in the TeX source.
+endmfpic; % (38) line 563 in the TeX source.
%------------------------------------------
@@ -1574,7 +1630,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.1875, -0.025, 0.025);
-beginmfpic(39); % line 540 in the TeX source.
+beginmfpic(39); % line 564 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1596,7 +1652,7 @@
((0,0),
(0.164594,0));
-endmfpic; % (39) line 548 in the TeX source.
+endmfpic; % (39) line 572 in the TeX source.
%------------------------------------------
@@ -1605,7 +1661,7 @@
xscale := 72; yscale := 72;
bounds (-0.025, 0.025, -0.1875, 0);
-beginmfpic(40); % line 549 in the TeX source.
+beginmfpic(40); % line 573 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1627,7 +1683,7 @@
((0,0),
(0,-0.164594));
-endmfpic; % (40) line 557 in the TeX source.
+endmfpic; % (40) line 581 in the TeX source.
%------------------------------------------
@@ -1636,7 +1692,7 @@
xscale := 72; yscale := 72;
bounds (-0.1875, 0, -0.025, 0.025);
-beginmfpic(41); % line 558 in the TeX source.
+beginmfpic(41); % line 582 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1658,7 +1714,7 @@
((0,0),
(-0.164594,0));
-endmfpic; % (41) line 566 in the TeX source.
+endmfpic; % (41) line 590 in the TeX source.
%------------------------------------------
@@ -1667,7 +1723,7 @@
xscale := 72; yscale := 72;
bounds (-0.025, 0.025, 0, 0.1875);
-beginmfpic(42); % line 567 in the TeX source.
+beginmfpic(42); % line 591 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1689,7 +1745,7 @@
((0,0),
(0,0.164594));
-endmfpic; % (42) line 575 in the TeX source.
+endmfpic; % (42) line 599 in the TeX source.
%------------------------------------------
@@ -1698,7 +1754,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.132583, 0, 0.132583);
-beginmfpic(43); % line 576 in the TeX source.
+beginmfpic(43); % line 600 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1720,7 +1776,7 @@
((0,0),
(0.116385,0.116385));
-endmfpic; % (43) line 584 in the TeX source.
+endmfpic; % (43) line 608 in the TeX source.
%------------------------------------------
@@ -1729,7 +1785,7 @@
xscale := 72; yscale := 72;
bounds (-0.132583, 0, 0, 0.132583);
-beginmfpic(44); % line 585 in the TeX source.
+beginmfpic(44); % line 609 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1751,7 +1807,7 @@
((0,0),
(-0.116385,0.116385));
-endmfpic; % (44) line 593 in the TeX source.
+endmfpic; % (44) line 617 in the TeX source.
%------------------------------------------
@@ -1760,7 +1816,7 @@
xscale := 72; yscale := 72;
bounds (-0.132583, 0, -0.132583, 0);
-beginmfpic(45); % line 594 in the TeX source.
+beginmfpic(45); % line 618 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1782,7 +1838,7 @@
((0,0),
(-0.116385,-0.116385));
-endmfpic; % (45) line 602 in the TeX source.
+endmfpic; % (45) line 626 in the TeX source.
%------------------------------------------
@@ -1791,7 +1847,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.132583, -0.132583, 0);
-beginmfpic(46); % line 603 in the TeX source.
+beginmfpic(46); % line 627 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1813,7 +1869,7 @@
((0,0),
(0.116385,-0.116385));
-endmfpic; % (46) line 611 in the TeX source.
+endmfpic; % (46) line 635 in the TeX source.
%------------------------------------------
@@ -1822,7 +1878,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.333333, -0.125, 0.125);
-beginmfpic(47); % line 612 in the TeX source.
+beginmfpic(47); % line 636 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1851,7 +1907,7 @@
((0.1875,0),
(0.333333,0));
-endmfpic; % (47) line 624 in the TeX source.
+endmfpic; % (47) line 648 in the TeX source.
%------------------------------------------
@@ -1860,7 +1916,7 @@
xscale := 72; yscale := 72;
bounds (-0.125, 0.125, -0.333333, 0);
-beginmfpic(48); % line 625 in the TeX source.
+beginmfpic(48); % line 649 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1889,7 +1945,7 @@
((0,-0.1875),
(0,-0.333333));
-endmfpic; % (48) line 637 in the TeX source.
+endmfpic; % (48) line 661 in the TeX source.
%------------------------------------------
@@ -1898,7 +1954,7 @@
xscale := 72; yscale := 72;
bounds (-0.333333, 0, -0.125, 0.125);
-beginmfpic(49); % line 638 in the TeX source.
+beginmfpic(49); % line 662 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1927,7 +1983,7 @@
((-0.1875,0),
(-0.333333,0));
-endmfpic; % (49) line 650 in the TeX source.
+endmfpic; % (49) line 674 in the TeX source.
%------------------------------------------
@@ -1936,7 +1992,7 @@
xscale := 72; yscale := 72;
bounds (-0.125, 0.125, 0, 0.333333);
-beginmfpic(50); % line 651 in the TeX source.
+beginmfpic(50); % line 675 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -1965,7 +2021,7 @@
((0,0.1875),
(0,0.333333));
-endmfpic; % (50) line 663 in the TeX source.
+endmfpic; % (50) line 687 in the TeX source.
%------------------------------------------
@@ -1974,7 +2030,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.333333, -0.125, 0.125);
-beginmfpic(51); % line 664 in the TeX source.
+beginmfpic(51); % line 688 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2027,7 +2083,7 @@
((0.270833,0),
(0.333333,0));
-endmfpic; % (51) line 684 in the TeX source.
+endmfpic; % (51) line 708 in the TeX source.
%------------------------------------------
@@ -2036,7 +2092,7 @@
xscale := 72; yscale := 72;
bounds (-0.125, 0.125, -0.333333, 0);
-beginmfpic(52); % line 685 in the TeX source.
+beginmfpic(52); % line 709 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2089,7 +2145,7 @@
((0,-0.270833),
(0,-0.333333));
-endmfpic; % (52) line 705 in the TeX source.
+endmfpic; % (52) line 729 in the TeX source.
%------------------------------------------
@@ -2098,7 +2154,7 @@
xscale := 72; yscale := 72;
bounds (-0.333333, 0, -0.125, 0.125);
-beginmfpic(53); % line 706 in the TeX source.
+beginmfpic(53); % line 730 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2151,7 +2207,7 @@
((-0.270833,0),
(-0.333333,0));
-endmfpic; % (53) line 726 in the TeX source.
+endmfpic; % (53) line 750 in the TeX source.
%------------------------------------------
@@ -2160,7 +2216,7 @@
xscale := 72; yscale := 72;
bounds (-0.125, 0.125, 0, 0.333333);
-beginmfpic(54); % line 727 in the TeX source.
+beginmfpic(54); % line 751 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2213,7 +2269,7 @@
((0,0.270833),
(0,0.333333));
-endmfpic; % (54) line 747 in the TeX source.
+endmfpic; % (54) line 771 in the TeX source.
%------------------------------------------
@@ -2222,7 +2278,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.333333, -0.05, 0.05);
-beginmfpic(55); % line 748 in the TeX source.
+beginmfpic(55); % line 772 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2249,7 +2305,7 @@
((0.291667,0),
(0.333333,0));
-endmfpic; % (55) line 762 in the TeX source.
+endmfpic; % (55) line 786 in the TeX source.
%------------------------------------------
@@ -2258,7 +2314,7 @@
xscale := 72; yscale := 72;
bounds (-0.05, 0.05, 0, 0.333333);
-beginmfpic(56); % line 763 in the TeX source.
+beginmfpic(56); % line 787 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2285,7 +2341,7 @@
((0,0.291667),
(0,0.333333));
-endmfpic; % (56) line 777 in the TeX source.
+endmfpic; % (56) line 801 in the TeX source.
%------------------------------------------
@@ -2294,7 +2350,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.333333, -0.021706, 0.125);
-beginmfpic(57); % line 778 in the TeX source.
+beginmfpic(57); % line 802 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2317,7 +2373,7 @@
((0.25,0),
(0.333333,0));
-endmfpic; % (57) line 788 in the TeX source.
+endmfpic; % (57) line 812 in the TeX source.
%------------------------------------------
@@ -2326,7 +2382,7 @@
xscale := 72; yscale := 72;
bounds (-0.021706, 0.125, -0.333333, 0);
-beginmfpic(58); % line 789 in the TeX source.
+beginmfpic(58); % line 813 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2349,7 +2405,7 @@
((0,-0.25),
(0,-0.333333));
-endmfpic; % (58) line 799 in the TeX source.
+endmfpic; % (58) line 823 in the TeX source.
%------------------------------------------
@@ -2358,7 +2414,7 @@
xscale := 72; yscale := 72;
bounds (-0.333333, 0, -0.125, 0.021706);
-beginmfpic(59); % line 800 in the TeX source.
+beginmfpic(59); % line 824 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2381,7 +2437,7 @@
((-0.25,0),
(-0.333333,0));
-endmfpic; % (59) line 810 in the TeX source.
+endmfpic; % (59) line 834 in the TeX source.
%------------------------------------------
@@ -2390,7 +2446,7 @@
xscale := 72; yscale := 72;
bounds (-0.125, 0.021706, 0, 0.333333);
-beginmfpic(60); % line 811 in the TeX source.
+beginmfpic(60); % line 835 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2413,7 +2469,7 @@
((0,0.25),
(0,0.333333));
-endmfpic; % (60) line 821 in the TeX source.
+endmfpic; % (60) line 845 in the TeX source.
%------------------------------------------
@@ -2422,7 +2478,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.333333, -0.021706, 0.125);
-beginmfpic(61); % line 822 in the TeX source.
+beginmfpic(61); % line 846 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2469,7 +2525,7 @@
((0.25,0),
(0.333333,0));
-endmfpic; % (61) line 837 in the TeX source.
+endmfpic; % (61) line 861 in the TeX source.
%------------------------------------------
@@ -2478,7 +2534,7 @@
xscale := 72; yscale := 72;
bounds (-0.021706, 0.125, -0.333333, 0);
-beginmfpic(62); % line 838 in the TeX source.
+beginmfpic(62); % line 862 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2525,7 +2581,7 @@
((0,-0.25),
(0,-0.333333));
-endmfpic; % (62) line 853 in the TeX source.
+endmfpic; % (62) line 877 in the TeX source.
%------------------------------------------
@@ -2534,7 +2590,7 @@
xscale := 72; yscale := 72;
bounds (-0.333333, 0, -0.125, 0.021706);
-beginmfpic(63); % line 854 in the TeX source.
+beginmfpic(63); % line 878 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2581,7 +2637,7 @@
((-0.25,0),
(-0.333333,0));
-endmfpic; % (63) line 869 in the TeX source.
+endmfpic; % (63) line 893 in the TeX source.
%------------------------------------------
@@ -2590,7 +2646,7 @@
xscale := 72; yscale := 72;
bounds (-0.125, 0.021706, 0, 0.333333);
-beginmfpic(64); % line 870 in the TeX source.
+beginmfpic(64); % line 894 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2637,7 +2693,7 @@
((0,0.25),
(0,0.333333));
-endmfpic; % (64) line 885 in the TeX source.
+endmfpic; % (64) line 909 in the TeX source.
%------------------------------------------
@@ -2646,7 +2702,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.333333, -0.032352, 0.125);
-beginmfpic(65); % line 886 in the TeX source.
+beginmfpic(65); % line 910 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2693,7 +2749,7 @@
((0.25,0),
(0.333333,0));
-endmfpic; % (65) line 901 in the TeX source.
+endmfpic; % (65) line 925 in the TeX source.
%------------------------------------------
@@ -2702,7 +2758,7 @@
xscale := 72; yscale := 72;
bounds (-0.032352, 0.125, -0.333333, 0);
-beginmfpic(66); % line 902 in the TeX source.
+beginmfpic(66); % line 926 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2749,7 +2805,7 @@
((0,-0.25),
(0,-0.333333));
-endmfpic; % (66) line 917 in the TeX source.
+endmfpic; % (66) line 941 in the TeX source.
%------------------------------------------
@@ -2758,7 +2814,7 @@
xscale := 72; yscale := 72;
bounds (-0.333333, 0, -0.125, 0.032352);
-beginmfpic(67); % line 918 in the TeX source.
+beginmfpic(67); % line 942 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2805,7 +2861,7 @@
((-0.25,0),
(-0.333333,0));
-endmfpic; % (67) line 933 in the TeX source.
+endmfpic; % (67) line 957 in the TeX source.
%------------------------------------------
@@ -2814,7 +2870,7 @@
xscale := 72; yscale := 72;
bounds (-0.125, 0.032352, 0, 0.333333);
-beginmfpic(68); % line 934 in the TeX source.
+beginmfpic(68); % line 958 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2861,7 +2917,7 @@
((0,0.25),
(0,0.333333));
-endmfpic; % (68) line 949 in the TeX source.
+endmfpic; % (68) line 973 in the TeX source.
%------------------------------------------
@@ -2870,7 +2926,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.625, -0.25, 0.25);
-beginmfpic(69); % line 950 in the TeX source.
+beginmfpic(69); % line 974 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2890,7 +2946,7 @@
(0.5625,0),
(0.625,0));
-endmfpic; % (69) line 961 in the TeX source.
+endmfpic; % (69) line 985 in the TeX source.
%------------------------------------------
@@ -2899,7 +2955,7 @@
xscale := 72; yscale := 72;
bounds (-0.25, 0.25, -0.625, 0);
-beginmfpic(70); % line 962 in the TeX source.
+beginmfpic(70); % line 986 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2919,7 +2975,7 @@
(0,-0.5625),
(0,-0.625));
-endmfpic; % (70) line 973 in the TeX source.
+endmfpic; % (70) line 997 in the TeX source.
%------------------------------------------
@@ -2928,7 +2984,7 @@
xscale := 72; yscale := 72;
bounds (-0.625, 0, -0.25, 0.25);
-beginmfpic(71); % line 974 in the TeX source.
+beginmfpic(71); % line 998 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2948,7 +3004,7 @@
(-0.5625,0),
(-0.625,0));
-endmfpic; % (71) line 985 in the TeX source.
+endmfpic; % (71) line 1009 in the TeX source.
%------------------------------------------
@@ -2957,7 +3013,7 @@
xscale := 72; yscale := 72;
bounds (-0.25, 0.25, 0, 0.625);
-beginmfpic(72); % line 986 in the TeX source.
+beginmfpic(72); % line 1010 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -2977,7 +3033,7 @@
(0,0.5625),
(0,0.625));
-endmfpic; % (72) line 997 in the TeX source.
+endmfpic; % (72) line 1021 in the TeX source.
%------------------------------------------
@@ -2986,7 +3042,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.333333, -0.175, 0.175);
-beginmfpic(73); % line 998 in the TeX source.
+beginmfpic(73); % line 1022 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3015,7 +3071,7 @@
((0.3125,0),
(0.333333,0));
-endmfpic; % (73) line 1011 in the TeX source.
+endmfpic; % (73) line 1035 in the TeX source.
%------------------------------------------
@@ -3024,7 +3080,7 @@
xscale := 72; yscale := 72;
bounds (-0.175, 0.175, -0.333333, 0);
-beginmfpic(74); % line 1012 in the TeX source.
+beginmfpic(74); % line 1036 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3053,7 +3109,7 @@
((0,-0.3125),
(0,-0.333333));
-endmfpic; % (74) line 1025 in the TeX source.
+endmfpic; % (74) line 1049 in the TeX source.
%------------------------------------------
@@ -3062,7 +3118,7 @@
xscale := 72; yscale := 72;
bounds (-0.333333, 0, -0.175, 0.175);
-beginmfpic(75); % line 1026 in the TeX source.
+beginmfpic(75); % line 1050 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3091,7 +3147,7 @@
((-0.3125,0),
(-0.333333,0));
-endmfpic; % (75) line 1039 in the TeX source.
+endmfpic; % (75) line 1063 in the TeX source.
%------------------------------------------
@@ -3100,7 +3156,7 @@
xscale := 72; yscale := 72;
bounds (-0.175, 0.175, 0, 0.333333);
-beginmfpic(76); % line 1040 in the TeX source.
+beginmfpic(76); % line 1064 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3129,7 +3185,7 @@
((0,0.3125),
(0,0.333333));
-endmfpic; % (76) line 1053 in the TeX source.
+endmfpic; % (76) line 1077 in the TeX source.
%------------------------------------------
@@ -3138,7 +3194,7 @@
xscale := 72; yscale := 72;
bounds (-0.083333, 0.083333, -0.0625, 0);
-beginmfpic(77); % line 1054 in the TeX source.
+beginmfpic(77); % line 1078 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3161,7 +3217,7 @@
((0.035714,-0.0625),
(-0.035714,-0.0625));
-endmfpic; % (77) line 1064 in the TeX source.
+endmfpic; % (77) line 1088 in the TeX source.
%------------------------------------------
@@ -3170,7 +3226,7 @@
xscale := 72; yscale := 72;
bounds (-0.083333, 0.083333, -0.1875, 0);
-beginmfpic(78); % line 1065 in the TeX source.
+beginmfpic(78); % line 1089 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3199,7 +3255,7 @@
((0.035714,-0.1875),
(-0.035714,-0.1875));
-endmfpic; % (78) line 1077 in the TeX source.
+endmfpic; % (78) line 1101 in the TeX source.
%------------------------------------------
@@ -3208,7 +3264,7 @@
xscale := 72; yscale := 72;
bounds (-0.104167, 0.104167, -0.333333, -0);
-beginmfpic(79); % line 1078 in the TeX source.
+beginmfpic(79); % line 1102 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3281,7 +3337,7 @@
((0.104167,-0.041667),
(0.104167,0));
-endmfpic; % (79) line 1102 in the TeX source.
+endmfpic; % (79) line 1126 in the TeX source.
%------------------------------------------
@@ -3288,9 +3344,9 @@
%----------------------------<80>
unitlen := 1.0pt#;
xscale := 72; yscale := 72;
-bounds (-0, 0.333333, -0.104167, 0.104167);
+bounds (0, 0.333333, -0.104167, 0.104167);
-beginmfpic(80); % line 1103 in the TeX source.
+beginmfpic(80); % line 1127 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3343,7 +3399,7 @@
store (curpath)
drawn
-arcplr ((0.260417,0.104167),0,-180,0.03125);
+arcplr ((0.260417,0.104167),-0,-180,0.03125);
store (curpath)
drawn
@@ -3363,7 +3419,7 @@
((0.041667,0.104167),
(0,0.104167));
-endmfpic; % (80) line 1127 in the TeX source.
+endmfpic; % (80) line 1151 in the TeX source.
%------------------------------------------
@@ -3372,7 +3428,7 @@
xscale := 72; yscale := 72;
bounds (-0.1625, 0.1625, 0, 0.3);
-beginmfpic(81); % line 1128 in the TeX source.
+beginmfpic(81); % line 1152 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3418,7 +3474,7 @@
((0.1625,0.3),
(-0.0375,0.21));
-endmfpic; % (81) line 1144 in the TeX source.
+endmfpic; % (81) line 1168 in the TeX source.
%------------------------------------------
@@ -3427,7 +3483,7 @@
xscale := 72; yscale := 72;
bounds (-0.3, 0, -0.1625, 0.1625);
-beginmfpic(82); % line 1145 in the TeX source.
+beginmfpic(82); % line 1169 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3473,7 +3529,7 @@
((-0.3,0.1625),
(-0.21,-0.0375));
-endmfpic; % (82) line 1161 in the TeX source.
+endmfpic; % (82) line 1185 in the TeX source.
%------------------------------------------
@@ -3482,7 +3538,7 @@
xscale := 72; yscale := 72;
bounds (-0.1625, 0.1625, 0, 0.3);
-beginmfpic(83); % line 1162 in the TeX source.
+beginmfpic(83); % line 1186 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3528,7 +3584,7 @@
((-0.1625,0.3),
(0.0375,0.21));
-endmfpic; % (83) line 1178 in the TeX source.
+endmfpic; % (83) line 1202 in the TeX source.
%------------------------------------------
@@ -3537,7 +3593,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.3, -0.1625, 0.1625);
-beginmfpic(84); % line 1179 in the TeX source.
+beginmfpic(84); % line 1203 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3583,7 +3639,7 @@
((0.3,0.1625),
(0.21,-0.0375));
-endmfpic; % (84) line 1195 in the TeX source.
+endmfpic; % (84) line 1219 in the TeX source.
%------------------------------------------
@@ -3592,7 +3648,7 @@
xscale := 72; yscale := 72;
bounds (-0.1625, 0.1625, 0, 0.3);
-beginmfpic(85); % line 1196 in the TeX source.
+beginmfpic(85); % line 1220 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3638,7 +3694,7 @@
((0.1625,0.3),
(-0.0375,0.21));
-endmfpic; % (85) line 1212 in the TeX source.
+endmfpic; % (85) line 1236 in the TeX source.
%------------------------------------------
@@ -3647,7 +3703,7 @@
xscale := 72; yscale := 72;
bounds (-0.3, 0, -0.1625, 0.1625);
-beginmfpic(86); % line 1213 in the TeX source.
+beginmfpic(86); % line 1237 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3693,7 +3749,7 @@
((-0.3,0.1625),
(-0.21,-0.0375));
-endmfpic; % (86) line 1229 in the TeX source.
+endmfpic; % (86) line 1253 in the TeX source.
%------------------------------------------
@@ -3702,7 +3758,7 @@
xscale := 72; yscale := 72;
bounds (-0.1625, 0.1625, 0, 0.3);
-beginmfpic(87); % line 1230 in the TeX source.
+beginmfpic(87); % line 1254 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3748,7 +3804,7 @@
((-0.1625,0.3),
(0.0375,0.21));
-endmfpic; % (87) line 1246 in the TeX source.
+endmfpic; % (87) line 1270 in the TeX source.
%------------------------------------------
@@ -3757,7 +3813,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.3, -0.1625, 0.1625);
-beginmfpic(88); % line 1247 in the TeX source.
+beginmfpic(88); % line 1271 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3803,7 +3859,7 @@
((0.3,0.1625),
(0.21,-0.0375));
-endmfpic; % (88) line 1263 in the TeX source.
+endmfpic; % (88) line 1287 in the TeX source.
%------------------------------------------
@@ -3812,7 +3868,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.4, -0.2, 0.2);
-beginmfpic(89); % line 1264 in the TeX source.
+beginmfpic(89); % line 1288 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3821,7 +3877,7 @@
drawn
circle ((0.2,0),0.2);
-endmfpic; % (89) line 1269 in the TeX source.
+endmfpic; % (89) line 1293 in the TeX source.
%------------------------------------------
@@ -3830,7 +3886,7 @@
xscale := 72; yscale := 72;
bounds (-0.175, 0.175, 0, 0.252778);
-beginmfpic(90); % line 1270 in the TeX source.
+beginmfpic(90); % line 1294 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3870,7 +3926,7 @@
((0.175,0.027778),
(0,0.027778));
-endmfpic; % (90) line 1284 in the TeX source.
+endmfpic; % (90) line 1308 in the TeX source.
%------------------------------------------
@@ -3879,7 +3935,7 @@
xscale := 72; yscale := 72;
bounds (-0.175, 0.175, 0, 0.252778);
-beginmfpic(91); % line 1285 in the TeX source.
+beginmfpic(91); % line 1309 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3919,7 +3975,7 @@
((-0.175,0.027778),
(0,0.027778));
-endmfpic; % (91) line 1299 in the TeX source.
+endmfpic; % (91) line 1323 in the TeX source.
%------------------------------------------
@@ -3928,7 +3984,7 @@
xscale := 72; yscale := 72;
bounds (-0.175, 0.175, 0, 0.252778);
-beginmfpic(92); % line 1300 in the TeX source.
+beginmfpic(92); % line 1324 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -3974,7 +4030,7 @@
((0.175,0.027778),
(0,0.027778));
-endmfpic; % (92) line 1316 in the TeX source.
+endmfpic; % (92) line 1340 in the TeX source.
%------------------------------------------
@@ -3983,7 +4039,7 @@
xscale := 72; yscale := 72;
bounds (-0.175, 0.175, 0, 0.252778);
-beginmfpic(93); % line 1317 in the TeX source.
+beginmfpic(93); % line 1341 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4029,7 +4085,7 @@
((-0.175,0.027778),
(0,0.027778));
-endmfpic; % (93) line 1333 in the TeX source.
+endmfpic; % (93) line 1357 in the TeX source.
%------------------------------------------
@@ -4038,7 +4094,7 @@
xscale := 72; yscale := 72;
bounds (-0.175, 0.175, 0, 0.25);
-beginmfpic(94); % line 1334 in the TeX source.
+beginmfpic(94); % line 1358 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4111,7 +4167,7 @@
((0.175,0.025),
(0,0.025));
-endmfpic; % (94) line 1361 in the TeX source.
+endmfpic; % (94) line 1385 in the TeX source.
%------------------------------------------
@@ -4120,7 +4176,7 @@
xscale := 72; yscale := 72;
bounds (-0.175, 0.175, 0, 0.25);
-beginmfpic(95); % line 1362 in the TeX source.
+beginmfpic(95); % line 1386 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4193,7 +4249,7 @@
((-0.175,0.025),
(0,0.025));
-endmfpic; % (95) line 1389 in the TeX source.
+endmfpic; % (95) line 1413 in the TeX source.
%------------------------------------------
@@ -4202,7 +4258,7 @@
xscale := 72; yscale := 72;
bounds (-0.175, 0.175, 0, 0.25);
-beginmfpic(96); % line 1390 in the TeX source.
+beginmfpic(96); % line 1414 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4275,7 +4331,7 @@
((0.175,0.025),
(0,0.025));
-endmfpic; % (96) line 1417 in the TeX source.
+endmfpic; % (96) line 1441 in the TeX source.
%------------------------------------------
@@ -4284,7 +4340,7 @@
xscale := 72; yscale := 72;
bounds (-0.175, 0.175, 0, 0.25);
-beginmfpic(97); % line 1418 in the TeX source.
+beginmfpic(97); % line 1442 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4357,7 +4413,7 @@
((-0.175,0.025),
(0,0.025));
-endmfpic; % (97) line 1445 in the TeX source.
+endmfpic; % (97) line 1469 in the TeX source.
%------------------------------------------
@@ -4366,7 +4422,7 @@
xscale := 72; yscale := 72;
bounds (-0.175, 0.175, 0, 0.25);
-beginmfpic(98); % line 1446 in the TeX source.
+beginmfpic(98); % line 1470 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4427,7 +4483,7 @@
((0.175,0.025),
(0,0.025));
-endmfpic; % (98) line 1469 in the TeX source.
+endmfpic; % (98) line 1493 in the TeX source.
%------------------------------------------
@@ -4436,7 +4492,7 @@
xscale := 72; yscale := 72;
bounds (-0.175, 0.175, 0, 0.25);
-beginmfpic(99); % line 1470 in the TeX source.
+beginmfpic(99); % line 1494 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4497,7 +4553,7 @@
((-0.175,0.025),
(0,0.025));
-endmfpic; % (99) line 1493 in the TeX source.
+endmfpic; % (99) line 1517 in the TeX source.
%------------------------------------------
@@ -4506,7 +4562,7 @@
xscale := 72; yscale := 72;
bounds (-0.175, 0.175, 0, 0.25);
-beginmfpic(100); % line 1494 in the TeX source.
+beginmfpic(100); % line 1518 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4567,7 +4623,7 @@
((0.175,0.025),
(0,0.025));
-endmfpic; % (100) line 1517 in the TeX source.
+endmfpic; % (100) line 1541 in the TeX source.
%------------------------------------------
@@ -4576,7 +4632,7 @@
xscale := 72; yscale := 72;
bounds (-0.175, 0.175, 0, 0.25);
-beginmfpic(101); % line 1518 in the TeX source.
+beginmfpic(101); % line 1542 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4637,7 +4693,7 @@
((-0.175,0.025),
(0,0.025));
-endmfpic; % (101) line 1541 in the TeX source.
+endmfpic; % (101) line 1565 in the TeX source.
%------------------------------------------
@@ -4646,7 +4702,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.35, -0.15, 0.15);
-beginmfpic(102); % line 1542 in the TeX source.
+beginmfpic(102); % line 1566 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4663,7 +4719,7 @@
drawn
arcplr ((0.2,0),90,-90,0.15);
-endmfpic; % (102) line 1551 in the TeX source.
+endmfpic; % (102) line 1575 in the TeX source.
%------------------------------------------
@@ -4672,7 +4728,7 @@
xscale := 72; yscale := 72;
bounds (-0.15, 0.15, -0.35, 0);
-beginmfpic(103); % line 1552 in the TeX source.
+beginmfpic(103); % line 1576 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4689,7 +4745,7 @@
drawn
arcplr ((0,-0.2),0,-180,0.15);
-endmfpic; % (103) line 1561 in the TeX source.
+endmfpic; % (103) line 1585 in the TeX source.
%------------------------------------------
@@ -4698,7 +4754,7 @@
xscale := 72; yscale := 72;
bounds (-0.35, 0, -0.15, 0.15);
-beginmfpic(104); % line 1562 in the TeX source.
+beginmfpic(104); % line 1586 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4715,7 +4771,7 @@
drawn
arcplr ((-0.2,0),-90,-270,0.15);
-endmfpic; % (104) line 1571 in the TeX source.
+endmfpic; % (104) line 1595 in the TeX source.
%------------------------------------------
@@ -4724,7 +4780,7 @@
xscale := 72; yscale := 72;
bounds (-0.15, 0.15, 0, 0.35);
-beginmfpic(105); % line 1572 in the TeX source.
+beginmfpic(105); % line 1596 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4741,7 +4797,7 @@
drawn
arcplr ((0,0.2),-180,-360,0.15);
-endmfpic; % (105) line 1581 in the TeX source.
+endmfpic; % (105) line 1605 in the TeX source.
%------------------------------------------
@@ -4750,7 +4806,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.355556, -0.151089, 0.151089);
-beginmfpic(106); % line 1582 in the TeX source.
+beginmfpic(106); % line 1606 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4779,7 +4835,7 @@
drawn
arcplr ((0.122222,0.105392),-90,-24.529547,0.256481);
-endmfpic; % (106) line 1593 in the TeX source.
+endmfpic; % (106) line 1617 in the TeX source.
%------------------------------------------
@@ -4788,7 +4844,7 @@
xscale := 72; yscale := 72;
bounds (-0.151089, 0.151089, -0.355556, -0);
-beginmfpic(107); % line 1594 in the TeX source.
+beginmfpic(107); % line 1618 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4817,7 +4873,7 @@
drawn
arcplr ((0.105392,-0.122222),180,245.470453,0.256481);
-endmfpic; % (107) line 1605 in the TeX source.
+endmfpic; % (107) line 1629 in the TeX source.
%------------------------------------------
@@ -4826,7 +4882,7 @@
xscale := 72; yscale := 72;
bounds (-0.355556, -0, -0.151089, 0.151089);
-beginmfpic(108); % line 1606 in the TeX source.
+beginmfpic(108); % line 1630 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4855,7 +4911,7 @@
drawn
arcplr ((-0.122222,-0.105392),90,155.470453,0.256481);
-endmfpic; % (108) line 1617 in the TeX source.
+endmfpic; % (108) line 1641 in the TeX source.
%------------------------------------------
@@ -4864,7 +4920,7 @@
xscale := 72; yscale := 72;
bounds (-0.151089, 0.151089, 0, 0.355556);
-beginmfpic(109); % line 1618 in the TeX source.
+beginmfpic(109); % line 1642 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4893,7 +4949,7 @@
drawn
arcplr ((-0.105392,0.122222),0,65.470453,0.256481);
-endmfpic; % (109) line 1629 in the TeX source.
+endmfpic; % (109) line 1653 in the TeX source.
%------------------------------------------
@@ -4902,7 +4958,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.175, -0.1, 0.1);
-beginmfpic(110); % line 1630 in the TeX source.
+beginmfpic(110); % line 1654 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4915,7 +4971,7 @@
(0,0.1),
(0.175,0));
-endmfpic; % (110) line 1638 in the TeX source.
+endmfpic; % (110) line 1662 in the TeX source.
%------------------------------------------
@@ -4924,7 +4980,7 @@
xscale := 72; yscale := 72;
bounds (-0.1, 0.1, -0.175, 0);
-beginmfpic(111); % line 1639 in the TeX source.
+beginmfpic(111); % line 1663 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4937,7 +4993,7 @@
(0.1,0),
(0,-0.175));
-endmfpic; % (111) line 1647 in the TeX source.
+endmfpic; % (111) line 1671 in the TeX source.
%------------------------------------------
@@ -4946,7 +5002,7 @@
xscale := 72; yscale := 72;
bounds (-0.175, 0, -0.1, 0.1);
-beginmfpic(112); % line 1648 in the TeX source.
+beginmfpic(112); % line 1672 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4959,7 +5015,7 @@
(0,-0.1),
(-0.175,0));
-endmfpic; % (112) line 1656 in the TeX source.
+endmfpic; % (112) line 1680 in the TeX source.
%------------------------------------------
@@ -4968,7 +5024,7 @@
xscale := 72; yscale := 72;
bounds (-0.1, 0.1, 0, 0.175);
-beginmfpic(113); % line 1657 in the TeX source.
+beginmfpic(113); % line 1681 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -4981,7 +5037,7 @@
(-0.1,0),
(0,0.175));
-endmfpic; % (113) line 1665 in the TeX source.
+endmfpic; % (113) line 1689 in the TeX source.
%------------------------------------------
@@ -4990,7 +5046,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.425, -0.15, 0.15);
-beginmfpic(114); % line 1666 in the TeX source.
+beginmfpic(114); % line 1690 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5011,7 +5067,7 @@
drawn
circle ((0.3875,0),0.0375);
-endmfpic; % (114) line 1676 in the TeX source.
+endmfpic; % (114) line 1700 in the TeX source.
%------------------------------------------
@@ -5020,7 +5076,7 @@
xscale := 72; yscale := 72;
bounds (-0.15, 0.15, -0.425, 0);
-beginmfpic(115); % line 1677 in the TeX source.
+beginmfpic(115); % line 1701 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5041,7 +5097,7 @@
drawn
circle ((0,-0.3875),0.0375);
-endmfpic; % (115) line 1687 in the TeX source.
+endmfpic; % (115) line 1711 in the TeX source.
%------------------------------------------
@@ -5050,7 +5106,7 @@
xscale := 72; yscale := 72;
bounds (-0.425, 0, -0.15, 0.15);
-beginmfpic(116); % line 1688 in the TeX source.
+beginmfpic(116); % line 1712 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5071,7 +5127,7 @@
drawn
circle ((-0.3875,0),0.0375);
-endmfpic; % (116) line 1698 in the TeX source.
+endmfpic; % (116) line 1722 in the TeX source.
%------------------------------------------
@@ -5080,7 +5136,7 @@
xscale := 72; yscale := 72;
bounds (-0.15, 0.15, 0, 0.425);
-beginmfpic(117); % line 1699 in the TeX source.
+beginmfpic(117); % line 1723 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5101,7 +5157,7 @@
drawn
circle ((0,0.3875),0.0375);
-endmfpic; % (117) line 1709 in the TeX source.
+endmfpic; % (117) line 1733 in the TeX source.
%------------------------------------------
@@ -5110,7 +5166,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.430556, -0.151089, 0.151089);
-beginmfpic(118); % line 1710 in the TeX source.
+beginmfpic(118); % line 1734 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5143,7 +5199,7 @@
drawn
circle ((0.393056,-0.001089),0.0375);
-endmfpic; % (118) line 1722 in the TeX source.
+endmfpic; % (118) line 1746 in the TeX source.
%------------------------------------------
@@ -5152,7 +5208,7 @@
xscale := 72; yscale := 72;
bounds (-0.151089, 0.151089, -0.430556, -0);
-beginmfpic(119); % line 1723 in the TeX source.
+beginmfpic(119); % line 1747 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5185,7 +5241,7 @@
drawn
circle ((-0.001089,-0.393056),0.0375);
-endmfpic; % (119) line 1735 in the TeX source.
+endmfpic; % (119) line 1759 in the TeX source.
%------------------------------------------
@@ -5194,7 +5250,7 @@
xscale := 72; yscale := 72;
bounds (-0.430556, -0, -0.151089, 0.151089);
-beginmfpic(120); % line 1736 in the TeX source.
+beginmfpic(120); % line 1760 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5227,7 +5283,7 @@
drawn
circle ((-0.393056,0.001089),0.0375);
-endmfpic; % (120) line 1748 in the TeX source.
+endmfpic; % (120) line 1772 in the TeX source.
%------------------------------------------
@@ -5236,7 +5292,7 @@
xscale := 72; yscale := 72;
bounds (-0.151089, 0.151089, 0, 0.430556);
-beginmfpic(121); % line 1749 in the TeX source.
+beginmfpic(121); % line 1773 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5269,7 +5325,7 @@
drawn
circle ((0.001089,0.393056),0.0375);
-endmfpic; % (121) line 1761 in the TeX source.
+endmfpic; % (121) line 1785 in the TeX source.
%------------------------------------------
@@ -5278,7 +5334,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.4, -0.151089, 0.151089);
-beginmfpic(122); % line 1762 in the TeX source.
+beginmfpic(122); % line 1786 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5311,7 +5367,7 @@
drawn
arcplr ((0.166667,0.105392),-90,-24.529547,0.256481);
-endmfpic; % (122) line 1774 in the TeX source.
+endmfpic; % (122) line 1798 in the TeX source.
%------------------------------------------
@@ -5320,7 +5376,7 @@
xscale := 72; yscale := 72;
bounds (-0.151089, 0.151089, -0.4, 0);
-beginmfpic(123); % line 1775 in the TeX source.
+beginmfpic(123); % line 1799 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5353,7 +5409,7 @@
drawn
arcplr ((0.105392,-0.166667),180,245.470453,0.256481);
-endmfpic; % (123) line 1787 in the TeX source.
+endmfpic; % (123) line 1811 in the TeX source.
%------------------------------------------
@@ -5362,7 +5418,7 @@
xscale := 72; yscale := 72;
bounds (-0.4, -0, -0.151089, 0.151089);
-beginmfpic(124); % line 1788 in the TeX source.
+beginmfpic(124); % line 1812 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5395,7 +5451,7 @@
drawn
arcplr ((-0.166667,-0.105392),90,155.470453,0.256481);
-endmfpic; % (124) line 1800 in the TeX source.
+endmfpic; % (124) line 1824 in the TeX source.
%------------------------------------------
@@ -5404,7 +5460,7 @@
xscale := 72; yscale := 72;
bounds (-0.151089, 0.151089, 0, 0.4);
-beginmfpic(125); % line 1801 in the TeX source.
+beginmfpic(125); % line 1825 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5437,7 +5493,7 @@
drawn
arcplr ((-0.105392,0.166667),0,65.470453,0.256481);
-endmfpic; % (125) line 1813 in the TeX source.
+endmfpic; % (125) line 1837 in the TeX source.
%------------------------------------------
@@ -5446,7 +5502,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.475, -0.151089, 0.151089);
-beginmfpic(126); % line 1814 in the TeX source.
+beginmfpic(126); % line 1838 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5483,7 +5539,7 @@
drawn
circle ((0.4375,-0.001089),0.0375);
-endmfpic; % (126) line 1827 in the TeX source.
+endmfpic; % (126) line 1851 in the TeX source.
%------------------------------------------
@@ -5492,7 +5548,7 @@
xscale := 72; yscale := 72;
bounds (-0.151089, 0.151089, -0.475, 0);
-beginmfpic(127); % line 1828 in the TeX source.
+beginmfpic(127); % line 1852 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5529,7 +5585,7 @@
drawn
circle ((-0.001089,-0.4375),0.0375);
-endmfpic; % (127) line 1841 in the TeX source.
+endmfpic; % (127) line 1865 in the TeX source.
%------------------------------------------
@@ -5538,7 +5594,7 @@
xscale := 72; yscale := 72;
bounds (-0.475, -0, -0.151089, 0.151089);
-beginmfpic(128); % line 1842 in the TeX source.
+beginmfpic(128); % line 1866 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5575,7 +5631,7 @@
drawn
circle ((-0.4375,0.001089),0.0375);
-endmfpic; % (128) line 1855 in the TeX source.
+endmfpic; % (128) line 1879 in the TeX source.
%------------------------------------------
@@ -5584,7 +5640,7 @@
xscale := 72; yscale := 72;
bounds (-0.151089, 0.151089, 0, 0.475);
-beginmfpic(129); % line 1856 in the TeX source.
+beginmfpic(129); % line 1880 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5621,7 +5677,7 @@
drawn
circle ((0.001089,0.4375),0.0375);
-endmfpic; % (129) line 1869 in the TeX source.
+endmfpic; % (129) line 1893 in the TeX source.
%------------------------------------------
@@ -5630,7 +5686,7 @@
xscale := 72; yscale := 72;
bounds (0, 0.25, -0.1, 0.1);
-beginmfpic(130); % line 1870 in the TeX source.
+beginmfpic(130); % line 1894 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5647,7 +5703,7 @@
drawn
circle ((0.2125,0),0.0375);
-endmfpic; % (130) line 1879 in the TeX source.
+endmfpic; % (130) line 1903 in the TeX source.
%------------------------------------------
@@ -5656,7 +5712,7 @@
xscale := 72; yscale := 72;
bounds (-0.1, 0.1, -0.25, 0);
-beginmfpic(131); % line 1880 in the TeX source.
+beginmfpic(131); % line 1904 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5673,7 +5729,7 @@
drawn
circle ((0,-0.2125),0.0375);
-endmfpic; % (131) line 1889 in the TeX source.
+endmfpic; % (131) line 1913 in the TeX source.
%------------------------------------------
@@ -5682,7 +5738,7 @@
xscale := 72; yscale := 72;
bounds (-0.25, 0, -0.1, 0.1);
-beginmfpic(132); % line 1890 in the TeX source.
+beginmfpic(132); % line 1914 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5699,7 +5755,7 @@
drawn
circle ((-0.2125,0),0.0375);
-endmfpic; % (132) line 1899 in the TeX source.
+endmfpic; % (132) line 1923 in the TeX source.
%------------------------------------------
@@ -5708,7 +5764,7 @@
xscale := 72; yscale := 72;
bounds (-0.1, 0.1, 0, 0.25);
-beginmfpic(133); % line 1900 in the TeX source.
+beginmfpic(133); % line 1924 in the TeX source.
resizedrawpen (0.8bp);
setcolor (drawcolor) black;
@@ -5725,7 +5781,7 @@
drawn
circle ((0,0.2125),0.0375);
-endmfpic; % (133) line 1909 in the TeX source.
+endmfpic; % (133) line 1933 in the TeX source.
%------------------------------------------
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/cct.tfm
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/person.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/person.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/person.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -30,12 +30,17 @@
divert(0)dnl
linewid = 3*linewid
+ movewid = 0.2
setrgb(0.54,0.81,0.94,babyblue)
person(fill="babyblue")
+ move
person(width=linewid*3/4;fill="babyblue")
+ move
person(width=linewid;fill="babyblue")
+ move
person
+ move
resetrgb
person(height=1;fill="gray")
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/relaycoil.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/relaycoil.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/relaycoil.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -3,7 +3,7 @@
cct_init
spc = dimen_/3
-{ relaycoil; S: "\tt re{}laycoil" at last [].s+(0,-20bp__)
+{ relaycoil; S: `"\tt relaycoil"' at last [].s+(0,-16bp__)
{ "\sl V1" wid 10bp__ at last [].V1 rjust
"\sl V2" at last [].V2 ljust }
K: relaycoil(NX) with .nw at last [].ne+(spc*4,0); "\tt (NX)" at (last [],S)
@@ -20,10 +20,12 @@
{ "\sl V1" at last [].V1 rjust; "\sl V2" at last [].V2 rjust }
relaycoil(BXSR) with .nw at last [].ne+(spc*2,0); "\tt (BXSR)" at (last [],S)
{ "\sl V1" at last [].V1 ljust; "\sl V2" at last [].V2 ljust }
- relaycoil(SR) with .nw at last [].ne+(spc*4,0); "\tt (SR)" at (last [],S)
+ relaycoil(SR) with .nw at last [].ne+(spc*3,0); "\tt (SR)" at (last [],S)
relaycoil(SO) with .nw at last [].ne+(spc,0); "\tt (SO)" at (last [],S)
relaycoil(SOR) with .nw at last [].ne+(spc,0); "\tt (SOR)" at (last [],S)
+ relaycoil(PC) with .nw at last [].ne+(spc,0); "\tt (PC)" at (last [],S)
}
+ spc = dimen_/4
{
move down_ 3/4; right_
relaycoil(HS); S: "\tt (HS)" at last [].s+(0,-12bp__)
@@ -35,6 +37,7 @@
relaycoil(RH) with .nw at last [].ne+(spc,0); "\tt (RH)" at (last [],S)
relaycoil(TH) with .nw at last [].ne+(spc,0); "\tt (TH)" at (last [],S)
relaycoil(EL) with .nw at last [].ne+(spc,0); "\tt (EL)" at (last [],S)
+ relaycoil(MR) with .sw at last [].se+(spc,0); "\tt (MR)" at (last [],S)
}
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/shapes.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/shapes.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/shapes.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -18,7 +18,7 @@
define(`M4CL',`xdispl,ydispl,zdispl')dnl
lenc = length3D(M4CL)
cs = dot3D(View3D,M4CL)/lenc
- End: (project(M4CL))
+ End: (Project(M4CL))
az = atan2(ydispl,xdispl)
ae = atan2(zdispl,sqrt(xdispl^2+ydispl^2))
CL: line invis from Start to End; C: CL.c
@@ -25,7 +25,7 @@
nls = int(twopi_*radc/lthick)
define(`M4PP',`rot3Dz(az,rot3Dy(-ae,rot3Dx(-i/nls*twopi_,0,0,radc)))')dnl
for i=0 to nls-1 do { if dot3D(View3D,M4PP) > 0 then {
- P: (project(M4PP))
+ P: (Project(M4PP))
ql = sqrta(dot3D(Light3D,M4PP)/radc)
line from P to End+P outlined rgbstring(ql,ql,ql) `$5' } }
Perp: (vperp(CL,radc))
@@ -52,7 +52,7 @@
define(`M4CL',`xdispl,ydispl,zdispl')dnl
lenc = length3D(M4CL)
diamc = ifelse(`$4',,(lenc/2),`$4') ; radc = diamc/2
- End: (project(M4CL))
+ End: (Project(M4CL))
cs = dot3D(View3D,M4CL)/lenc
az = atan2(ydispl,xdispl)
ae = atan2(zdispl,sqrt(xdispl^2+ydispl^2))
@@ -64,7 +64,7 @@
rot3Dz(az,rot3Dy(-ae,rot3Dx(-i/nls*twopi_,radc,0,lenc)))) > 0 then {
ql = sqrta(dot3D(Light3D,
rot3Dz(az,rot3Dy(-ae,rot3Dx(-i/nls*twopi_,radc,0,lenc))))/lt)
- P: (project(rot3Dz(az,rot3Dy(-ae,rot3Dx(-i/nls*twopi_,0,0,radc)))))
+ P: (Project(rot3Dz(az,rot3Dy(-ae,rot3Dx(-i/nls*twopi_,0,0,radc)))))
line from P to End outlined rgbstring(ql,ql,ql) `$5'
if !b then { WB: P; b = 1 }
} else { if b then { BW: P; b = 0 } } }
@@ -121,7 +121,7 @@
widp = ifelse(`$4',,(linewid/5),`$4')
htp = ifelse(`$5',,(linewid/10),`$5')
rotp = ifelse(`$6',,0,`$6')
- End: (project(xdispl,ydispl,zdispl)); C: 0.5 between Start and End
+ End: (Project(xdispl,ydispl,zdispl)); C: 0.5 between Start and End
lenp = length3D(xdispl,ydispl,zdispl)
az = atan2(ydispl,xdispl); ae = atan2(zdispl,sqrt(xdispl^2+ydispl^2))
wp2 = widp/2; hp2 = htp/2
@@ -148,10 +148,10 @@
diff3D(`$3'x,`$3'y,`$3'z,`$2'x,`$2'y,`$2'z))')
if dot3D(View3D,PFacet) > 0 then {
fFacet = sqrta(dot3D(Light3D,PFacet)/length3D(PFacet))
- P1: (project(`$1'x,`$1'y,`$1'z))
- P2: (project(`$2'x,`$2'y,`$2'z))
- P3: (project(`$3'x,`$3'y,`$3'z))
- P4: (project(`$4'x,`$4'y,`$4'z))
+ P1: (Project(`$1'x,`$1'y,`$1'z))
+ P2: (Project(`$2'x,`$2'y,`$2'z))
+ P3: (Project(`$3'x,`$3'y,`$3'z))
+ P4: (Project(`$4'x,`$4'y,`$4'z))
line fill_(fFacet) invis from P1 to P2 then to P3 then to P4 then to P1
line from P1 to P2; round
line to P3; round
@@ -170,7 +170,7 @@
Arrow3D(0,1,0) with .Start at Orig; "y" ljust at last [].End
Arrow3D(0,0,1.2) with .Start at Orig; "z" above at last [].End
setlight(0,0,0)
- cylinder3D(1,1,1,0.6) with .Start at (project(0.5,0.5,0.5))
+ cylinder3D(1,1,1,0.6) with .Start at (Project(0.5,0.5,0.5))
]
Ball: shadedball(0.5) with .nw at last [].ne+(-0.25,0)
[
@@ -180,7 +180,7 @@
for i=0 to n do {
r = i/n*(thmax-thmin)+thmin
prism3D(rot3Dz(r,rot3Dy(pi_/4,len,0,0)),0.2,0.1) \
- with .Start at (project(rot3Dz(r,rot3Dy(pi_/4,len*0.5,0,0)))) }
+ with .Start at (Project(rot3Dz(r,rot3Dy(pi_/4,len*0.5,0,0)))) }
] with .nw at last [].ne
[
setlight(0,0)
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AlogixSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AlogixSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AlogixSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -21,9 +21,9 @@
B: Autologix(Or(And(B,Not(C)),And(Not(A),B,C)),N) \
with .sw at A.e+(1.3,-0.5)
"svg_it(Out)" at B.Out above ljust
- "svg_tt(`Autologix(')" wid 68bp__ with .w at B.sw+(0,-0.15)
- "svg_tt(`Or(And(B,Not(C)),And(Not(A),B,C)),N)')" \
- wid 262bp__ with .w at last "".w+(0.2,-0.18)
+ "svg_tt(`Autologix(Or(And(B,Not(C)),')" wid 165bp__ \
+ with .w at B.sw+(-0.6,-0.15)
+ "svg_tt(`And(Not(A),B,C)),N)')" wid 122bp__ with .w at last "".w+(1.1,-0.18)
for_(1,4,1,`"svg_it(B.In`'m4x)" at B.In`'m4x rjust')
"svg_it(B.In5)" at B.In5+(0,-1.5bp__) rjust
Deleted: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AntiqueClockSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AntiqueClockSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AntiqueClockSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,156 +0,0 @@
-.PS
-# AntiqueClockSVG.m4
-gen_init(svg_font(font-family="sans-serif" font-stretch="condensed"))
-
-# https://tex.stackexchange.com/questions/236923/generate-analog-clock-with-numbered-face-add-seconds-roman-numerals
-
-svg_rot_init(AntiqueClockSVG)
-
-# `hms2deg(hr,min,sec) hr:min:sec to degrees
-# blank arg1: degrees for minute hand
-# blank arg1 and arg2: degrees for second hand'
-define(`hms2deg',`ifelse(`$1',,
- `ifelse(`$2',,
- `(90-pmod(ifelse(`$3',,0,`$3'),60)/60*360)',
- `(90-(pmod(`$2',60)/60 + pmod(ifelse(`$3',,0,`$3'),60)/60/60)*360)')',
- `(90-(pmod(`$1',12) + pmod(ifelse(`$2',,0,`$2'),60)/60 + dnl
- pmod(ifelse(`$3',,0,`$3'),60)/3600)/12*360)')')
-
-# `SecondHand(length,hr,min,sec)'
-define(`SecondHand',`[ shsf = (`$1')/3.2
- C: Here
- { L: rpoint_(to (Rect_(`$1',hms2deg(,,`$4')))) }
- line thick 8*shsf to rvec_(`$1',0)
- ]')
-
-# `AntiqueMinuteHand(length,hr,min,sec)'
-define(`AntiqueMinuteHand',`[ mhsf = (`$1')/2.84
- L: rpoint_(to (Rect_(`$1',hms2deg(,`$3',`$4'))))
- C: circle fill_(0) diam 0.47*mhsf at L.start
- move to C
- spline from rvec_(0,0.047*mhsf) \
- to rvec_(1.65*mhsf,0.11*mhsf) \
- then to rvec_(`$1',0.018*mhsf) \
- then to rvec_(`$1',-0.018*mhsf) \
- then to rvec_(1.65*mhsf,-0.11*mhsf) \
- then to rvec_(0,-0.047*mhsf) \
- shaded rgbstring(0,0,0)
- ]')
-
-# `AntiqueHourHand(length,hr,min,sec)'
-define(`AntiqueHourHand',`[ hhsf = (`$1')/2.2
- L: rpoint_(to (Rect_(`$1',hms2deg(`$2',`$3',`$4'))))
- C: circle fill_(0) diam 0.6*hhsf at L.start
- move to C
- v = 0.25*hhsf
- { line to rvec_(1.1*hhsf,0) thick 0.15/(1bp__)*hhsf }
- C1: rvec_(1.25*hhsf,0)
- d = `$1'-1.25*hhsf
- q = 1bp__*hhsf
- r1 = (d^2 + q^2 - v^2)/(v-q)/2
- tang = atan2((r1+q),d)
- for i=0 to 3 do {
- X[i]: C1+vec_(rect_(v, pi_+i/3*( tang-pi_)))
- Y[i]: C1+vec_(rect_(v,-pi_+i/3*(-tang+pi_)))
- }
- n = 3
- for i=1 to 4 do { aa = -pi_+tang + i/4*(pi_/2-tang)
- XX: (d,r1+q)+(rect_(r1,aa))
- n+=1;
- X[n]: C1+vec_(XX.x, XX.y)
- Y[n]: C1+vec_(XX.x,-XX.y)
- }
- m = n
- for i= 0 to m do { n+=1; X[n]: Y[m-i] }
- fitcurve(X,n,shaded rgbstring(0,0,0))
- ]')
-
-define(`AntiqueClock',`[ # h,m,s,diam
-# Clock size parameters:
- hour = ifelse(`$1',,3,`$1')
- minute = ifelse(`$2',,41,`$2')
- second = ifelse(`$3',,51,`$3')
- # outer radius
- ifelse(`$4',,`skale=0.5; r1=2',`r1=(`$4')/2; skale=r1/4')
- r2 = r1 - 0.5*skale
- r3 = r2 - 0.14*skale
- r4 = r3 - 0.35*skale
- r5 = r4 - 0.17*skale
- r6 = r5 - 0.63*skale
- r7 = r6 - 0.17*skale
- shadelinethick = 1.0
-
-C: circle thick 0.2 rad r1
-
-define shadeline {
- s = 1-($`'1)*2
- v = r*s
- h = sqrt(r^2-v^2)
- t = 1-abs(s)
- line from (vrot_(-h,v,cost,sint)) to (vrot_(h,v,cost,sint)) \
- thick shadelinethick outlined rgbstring(t,t,t)
- }
-
- r = r1 # Bezel outer
- nlines = int(2*r/(shadelinethick pt__)*1.1)
- cost = cosd(10); sint = sind(10);
- ShadeObject(shadeline,nlines, 0, 0,0,0, 0.5, 1,1,1, 1, 0,0,0 ) at C
-
- r = r2 # Bezel inner
- nlines = int(2*r/(shadelinethick pt__)*1.1)
- cost = cosd(-10); sint = sind(-10);
- ShadeObject(shadeline,nlines, 0, 0,0,0, 0.25, 0.8,0.8,0.8, 0.5, 1,1,1,
- 0.75, 0.8,0.8,0.8, 1, 0,0,0 ) at C
-
-# Clock face
-Face: circle thick 0 fill_(1) rad r3 at C
- circle rad r4 at C
- circle rad r5 at C
- circle rad r6 at C
- circle rad r7 at C
-# Ad hoc shift of rotated SVG text
- define adj { (-cosd($`'1)*textht*0.5*sign(180-($`'1)),\
- (0.25+0.25*cosd(2*($`'1)))*textht) }
-# Outer numbers
- textht = (r3-r4)*0.6
- for mn = -15 to 15 by 5 do { t = 90-mn/60*360
- R:(Rect_((r3+r4)/2,t))
- svg_rot(-mn/60*360,sprintf("%g",pmod(mn,60)) at C+R+adj(t))
- }
- for mn = 20 to 40 by 5 do { t = 450-mn/60*360
- R: (Rect_((r3+r4)/2,t))
- svg_rot(180-mn/60*360, sprintf("%g",pmod(mn,60)) at C+R+adj(t))
- }
-# Outer tics
- for mn = 1 to 60 do { t = 90-mn/60*360
- line from C+(Rect_(r5,t)) to C+(Rect_(r4,t)) }
-
-# Inner numbers
- textht = (r5-r6)*0.6
- Loopover_(`mx',`tt = 90-(m4Lx-4)/12*360
- R: (Rect_((r5+r6)/2,tt))
- svg_rot(tt-90, "mx" at C+R+adj(tt)) ',
- IX,X,XI,XII,I,II,III)
- Loopover_(`mx',`tt = 360-m4Lx*30
- R: (Rect_((r5+r6)/2,tt))
- svg_rot(tt-270, "mx" at C+R+adj(tt)) ',
- IV,V,VI,VII,VIII)
-
-# Inner tics
- for mn = 5 to 60 by 5 do { t = 90-mn/60*360
- line from C+(Rect_(r7,t)) to C+(Rect_(r6,t)) }
-
-# Hands
- AntiqueHourHand(r6,hour,minute,second) with .C at C
- AntiqueMinuteHand(r5,hour,minute,second) with .C at C
- SecondHand((r3+r4)/2,hour,minute,second) with .C at C
-
-# Center
- dot(at C,0.1/4*r1,1)
- ]')
-
- Clock1: AntiqueClock(,,,3.5)
-# Clock2: AntiqueClock(4,48,07,2) at Clock1.e+(1.5,0)
-
- command "</g>" # end font
-.PE
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ArrowFnSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ArrowFnSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ArrowFnSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,59 @@
+.PS
+# ArrowFnSVG.m4
+# https://tex.stackexchange.com/questions/581089/arrow-function-diagrams
+gen_init
+ brad = 0.04
+ bht = 0.4
+ bwid = 0.25
+define(`rbox',`box rad brad outlined "Orange"')
+
+B1: [
+ svg_font(Times,14bp__)
+ linethick = 1.2
+ arrowwid = 0.08
+ rbox wid 5*boxwid ht 3/2*boxwid
+ line from last box.w-(bht/4,0) "svg_it(X)" above ljust
+T: Here
+ arrow up bwid right bwid then right bwid
+F: rbox ht bht "svg_it(f)"
+ {"svg_it(Y)" above ljust }
+ arrow down bwid right bwid from T then right boxwid + bwid*3/2
+G: rbox ht bht "svg_it(g)"
+ {"svg_it(Z)" above ljust }
+S: circle diam bht "svg_it(+)" at (G.e.x+boxwid,(F.y+G.y)/2)
+ d = F.y-S.nw.y
+ arrow from F.e to S.nw+(-d,d) then to S.nw
+ arrow from G.e to S.sw+(-d,-d) then to S.sw
+ arrow right from S.e
+ command "</g>" # end font
+ ]
+[
+ svg_font(Times,11bp__)
+ bht = bht/2
+ sbwid = boxwid*3/4
+ bbwid = sbwid*5/4
+ dh = bht/2
+B1: rbox wid bbwid ht bbwid
+B2: rbox wid sbwid*3/2 ht bbwid at B1+(3/2*bbwid,0)
+B3: rbox wid bbwid ht bbwid at B2+(3/2*bbwid,0)
+B4: rbox wid sbwid*3/2 ht bbwid at B3+(3/2*bbwid,0)
+B5: rbox wid bbwid ht bbwid at B4+(3/2*bbwid,0)
+ F: rbox ht bht wid sbwid at B2.n-(0,bht*3/4) "svg_it(f)"
+BR: B2.s+(0,B2.n.y-F.y)
+ G: rbox ht bht wid sbwid at (B4,F) "svg_it(g)"
+ S: circle diam bht*3/2 at B5+(bht/2,0) "svg_it(+)"
+ arrow right from S.e
+ T: B1.w+(dh,0)
+B: rbox ht bbwid*5/4 wid boxwid*7.25 with .w at T-(sbwid*3/4,0)
+ { line from T left sbwid "svg_it(x)" above ljust }
+ arrow from T to (B1.e-(dh,0),F) then to F.w
+ arrow from F.e to (B3.w+(dh,0),F) then to (B3.e-(dh,0),BR)
+ continue to (B5.w+(dh,0),Here) then to S.sw
+ line thick 5 outlined "white" from B3.sw to B3.ne chop brad
+ arrow from T to (B1.e-(dh,0),BR) then to (B3.w+(dh,0),BR) \
+ then to (B3.e-(dh,0),G) then to G.w
+ arrow from G.e to (B5.w+(dh,0),G) then to S.nw
+ command "</g>" # end font
+ ] with .nw at B1.sw+(0,-0.2)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ArrowFnSVG.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/BtreeSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/BtreeSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/BtreeSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -4,8 +4,9 @@
gen_init(svg_font(sans-serif,11bp__))
sinclude(tst.dim)
s_init(Btree)
+maxpswid = 12
Btree: [
-circlerad = 0.45
+circlerad = 0.35
define n { [C: circle fill_(0.9) $1
if "$2" != "" then {
@@ -97,11 +98,12 @@
+ "((D,pk`'svg_prime`'svg_sub(D,,,-0.5ex)),h`'svg_sub(7)))" \
txw(29) ),
Node(2,"svg_it(x`'svg_sub(8):=((K,pk`'svg_sub(K)),h`'svg_sub(8)))" \
- txw(29) with .n at last "".ne+(0.2,-vsep*2/3); move right 0.2)),
+ txw(29) with .n at last "".ne+(0.2,-vsep*2/3); \
+ move right 0.2)),
Node(3,"svg_it(h(x`'svg_sub(9)))" txw(8) \
at 0.5 between Head1 and Head2)))
-] with .w at last [].e+(-0.75,0)
+] with .w at last [].e+(-1,0)
command "</g>" # end font
.PE
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CapacitorsSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CapacitorsSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CapacitorsSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,38 @@
+.PS
+# `Capacitors.m4'
+cct_init(svg_font(sans-serif,11pt__))
+textwid = 1.5
+movewid = 2 pt__
+hm = 2.1
+vm = 0.28
+
+hm = 2.05
+vm = 0.28
+{ {capacitor ; move ; "`capacitor '" ljust}
+ move right_ hm
+ {capacitor(,C); move ; "`capacitor(,C) '" ljust}
+ move right_ hm
+ {capacitor(,C+); move ; "`capacitor(,C+) '" ljust}
+}
+ move down vm; right_
+{ {capacitor(,P); move ; "`capacitor(,P) '" ljust}
+ move right_ hm
+ {capacitor(,E); move ; "`capacitor(,E) '" ljust}
+ move right_ hm
+ {capacitor(,K); move ; "`capacitor(,K) '" ljust}
+}
+ move down 0.25; right_
+{ {capacitor(,M); move ; "`capacitor(,M) '" ljust}
+ move right_ hm
+ {capacitor(,N); move ; "`capacitor(,N) '" ljust}
+ move right_ hm
+ {xtal ; move ; "`xtal '" ljust}
+}
+ move down 0.25; right_
+{ {capacitor(,dC); move ;"`capacitor(,dC) '" ljust}
+ move right_ hm
+ {capacitor(,dF); move ;"`capacitor(,dF) '" ljust}
+}
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CapacitorsSVG.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ChipsSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ChipsSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ChipsSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,44 @@
+.PS
+# ChipsSVG.m4
+log_init
+include(icsSVG.m4)
+svg_font(sans-serif,8.5bp__)
+
+Chips: [
+ ic4017
+ {"4017" at last [].Chip.sw below ljust}
+ move
+ ic4510
+ {"4510" at last [].Chip.sw below ljust}
+ move
+ icVS1053
+ {"VS1053" at last [].Chip.sw below ljust}
+
+ DIP_chip_outline with .sw at last [].se+(0.5,0)
+ { `"DIP_chip_outline"' at last [].s below }
+ ]
+
+DIPs: [
+ DIP0: DIP
+ DIP32: DIP(32,direct=R;bodywid=0.5*scale) with .sw at last [].se+(0.5,0)
+ DIP16: DIP(16,type=Q;pinwid=1bp__) with .sw at DIP32.se+(1.5,0)
+
+ thinlines_
+ { "svg_tt(`DIP')" at DIP0.s - (0,10bp__) }
+ { arrow <- from DIP0.Pin1 up 0.2; "svg_it(`Pin1')" ljust at Here+(-0.05,0.1) }
+ { arrow <- from DIP0.c up 0.7 right 0.25; "svg_it(`Body')" ljust }
+ { arrow <- from DIP0.Pin8 up 0.25 right 0.2 ; "svg_it(`Pin8')" above ljust }
+
+ { "svg_tt(`DIP(32,direct=R;bodywid=0.5*scale)')" ljust \
+ at DIP32.sw - (0,10bp__) }
+ { arrow <- right 0.2 from DIP32.Pin1; "svg_it(`Pin1')" ljust }
+ { spline <- right 0.2 then right 0.1 up 0.1 from DIP32.Pin32
+ "svg_it(`Pin32')" ljust }
+
+ { "svg_tt(`DIP(16,type=Q;pinwid=1bp__)')" at DIP16.sw - (0,10bp__) ljust }
+ thicklines_
+
+ ] with .nw at last [].sw+(0,-0.3)
+
+ command "</g>"
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ChipsSVG.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Deleted: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrossbarSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrossbarSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrossbarSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -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
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrullerSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrullerSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrullerSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -52,10 +52,10 @@
rgbtohsv(0.6,0.4,0,h,s,v)
for i = 1 to n do {
tc = t[ix[i]]; sc = s[ix[i]]
- SE: (project(cruller(tc+dt/2,sc-ds/2)))
- SW: (project(cruller(tc-dt/2,sc-ds/2)))
- NW: (project(cruller(tc-dt/2,sc+ds/2)))
- NE: (project(cruller(tc+dt/2,sc+ds/2)))
+ SE: Project(cruller(tc+dt/2,sc-ds/2))
+ SW: Project(cruller(tc-dt/2,sc-ds/2))
+ NW: Project(cruller(tc-dt/2,sc+ds/2))
+ NE: Project(cruller(tc+dt/2,sc+ds/2))
f = ((dcosine3D(3,cruller(tc,sc))/2.25+1)/2)^2
hsvtorgb(h,(1-f)*s,1,r,g,b)
line outlined rgbstring(r,g,b) shaded rgbstring(r,g,b) ifpdf( invis ) \
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DiniSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DiniSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DiniSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -46,10 +46,10 @@
du = ur/ugrid/2
dv = vr/vgrid/2
for i=0 to n do {
- NE: project(Dini(ciu[ix[i]]+du,civ[ix[i]]+dv))
- SE: project(Dini(ciu[ix[i]]+du,civ[ix[i]]-dv))
- SW: project(Dini(ciu[ix[i]]-du,civ[ix[i]]-dv))
- NW: project(Dini(ciu[ix[i]]-du,civ[ix[i]]+dv))
+ NE: Project(Dini(ciu[ix[i]]+du,civ[ix[i]]+dv))
+ SE: Project(Dini(ciu[ix[i]]+du,civ[ix[i]]-dv))
+ SW: Project(Dini(ciu[ix[i]]-du,civ[ix[i]]-dv))
+ NW: Project(Dini(ciu[ix[i]]-du,civ[ix[i]]+dv))
f = (-cos(ciu[ix[i]])+1)/2
g = ( sin(ciu[ix[i]])+1)/2
line from NE to SE then to SW then to NW then to NE \
@@ -174,9 +174,9 @@
}
for i=1 to n do {
for j=1 to 6 do { x[j]=h[ih[i],j] }
- line from project((v[x[1],1]),(v[x[1],2]),(v[x[1],3]))\
- for_(2,6,1,`to project((v[x[m4x],1]),(v[x[m4x],2]),(v[x[m4x],3]))\')\
- to project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) thick 0.2 fill_(0.95)
+ line from Project((v[x[1],1]),(v[x[1],2]),(v[x[1],3]))\
+ for_(2,6,1,`to Project((v[x[m4x],1]),(v[x[m4x],2]),(v[x[m4x],3]))\')\
+ to Project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) thick 0.2 fill_(0.95)
}
m = 0
for i=1 to 12 do { # Visible pentagons
@@ -185,9 +185,9 @@
}
for i=1 to m do {
for j=1 to 5 do { x[j]=p[ip[i],j] }
- line from project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) \
- for_(2,5,1,`to project((v[x[m4x],1]),(v[x[m4x],2]),(v[x[m4x],3]))\')\
- to project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) thick 0.2 fill_(0)
+ line from Project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) \
+ for_(2,5,1,`to Project((v[x[m4x],1]),(v[x[m4x],2]),(v[x[m4x],3]))\')\
+ to Project((v[x[1],1]),(v[x[1],2]),(v[x[1],3])) thick 0.2 fill_(0)
}
] scaled 2.5 with .sw at last [].se+(1,0)
.PE
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/EEPSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/EEPSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/EEPSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,553 @@
+.PS
+# EEPSVG.m4
+# https://electrical-engineering-portal.com/single-line-diagrams-symbols-drawings-analysis
+
+cct_init
+divert(-1)
+
+# This section defines *DRAFT* SLD elements with or without attached
+# circuit breakers. Many other elements applicable to SLD drawings are
+# already in libcct.m4. The contributions and suggestions of Benjamin
+# Vilmann are acknowledged with thanks.
+
+# 1-terminal SLD elements:
+# Argument 1 is normally the linespec of the stem to set the element direction
+# and length. See also: PtoL defined below.
+# For a 0-length stem (which has undefined direction):
+# arg1 can also be U, D, L, R (for up, down, left, right),
+# or a number to set the direction in degrees, optionally followed by
+# `at position' to set the position (Here by default).
+# Zero-length stem examples: sl_box(U), sl_box(45 at Here+(1,0))
+# Argument 2 contains semicolon (;)-separated key-value attributes
+# of the element head as applicable: e.g., name=Name; text="text"; lgth=expr
+# A non-blank argument 3 is C for a default closed breaker in the stem, O for
+# an open breaker, or key-value pairs to specify breaker details.
+# The element body (head) can be named. It is overlaid with or contained in
+# a [] block.
+
+# 2-terminal SLD elements:
+# These obey the normal Circuit_macro two-terminal conventions.
+# They can be labelled using rlabel() or llabel() as well as directly.
+# Argument 2 contains key-value pairs to customize the element body,
+# e.g., name=Name; text="text"; wdth=expr; ...
+# Nonblank arguments 3 and 4 put a breaker in the input and output respectively.
+
+# Attached breakers:
+# Nonblank arguments 3 and 4 of the two-terminal elements and argument 3 of
+# the 1-terminal elements specify a breaker in the input, output, and stem
+# respectivlely. An O creates a default-size open breaker, and C a closed
+# breaker, otherwise the argument contains key-value pairs to specify the
+# details of the box; e.g., box=dotted 2bp__ shaded "green"
+
+# The SLD current transformer macro sl_ct is composite, within a [] block.
+# Internal labels L (for inductor) and terminals Ts, Tc, and Te are defined.
+
+define(`sldlib_')
+ifdef(`libcct_',,`include(libcct.m4)divert(-1)')
+
+# Default size parameters. These can be redefined in a diagram.
+
+define(`brksiz_',`dimen_*3/16') # Default inline box breaker size
+define(`drosiz_',`dimen_/4') # Default sl_drawout (chevron) size
+
+# One-terminal elements ###################################################
+
+ `sl_disk( stem linespec, keys, breaker )
+ keys: name=Name;
+ text="text";
+ diam=expr;
+ circle=circle attributes; eg diam expr'
+ `default breaker name Bd'
+define(`sl_disk',
+ `sl_eleminit_(`$1')
+ setkeys_(`$2',`name::N; circle::N; text::N; diam:dimen_*2/3')dnl
+ ifelse(`$3',,
+ `ifelse(m4name,,,m4name:) circle diam m4diam \
+ at last line.end + vec_(m4diam/2,0) m4circle m4text
+ [ box invis wid_ m4diam ht_ m4diam ] at last circle
+ line from last line.end to last line.start',
+ `m4br_one(`sl_disk',`$1',`$2',m4brk_(`$3',Bd))') ')
+
+ `sl_box( stem linespec, keys, breaker )
+ keys: name=Name; lgth=expr; wdth=expr;
+ text="text";
+ box= box attributes; (e.g. shade "red")'
+ `default breaker name Bb'
+define(`sl_box',
+ `sl_eleminit_(`$1')
+ setkeys_(`$2',`name::N; wdth:dimen_*2/3; lgth:dimen_*2/3; box::N; text::N')dnl
+ ifelse(`$3',,
+ `line from last line.end to last line.start
+ { ifelse(m4name,,,m4name:) [S:Here; lbox(m4lgth,m4wdth,m4box)] \
+ with .S at last line.start }
+ ifelse(m4text,,,`{m4text at last []}')',
+ `m4br_one(`sl_box',`$1',`$2',m4brk_(`$3',Bb))') ')
+
+ `sl_grid( stem linespec, keys, breaker )
+ keys: name=Name; lgth=expr; wdth=expr;'
+ `default breaker name Bgr'
+define(`sl_grid',
+ `sl_eleminit_(`$1')
+ setkeys_(`$2',`name::N; wdth:dimen_*4/5; lgth:dimen_*2/3; box::N; text::N')dnl
+ ifelse(`$3',,
+ `line from last line.end to last line.start
+ { ifelse(m4name,,,m4name:) [S:Here
+ { ifelse(m4name,,,m4name:) lbox(m4lgth,m4wdth) }
+ { line to rvec_(m4lgth/2, m4wdth/2)
+ line to rvec_(m4lgth/2,-m4wdth/2)
+ line to rvec_(-m4lgth/2,-m4wdth/2)
+ line to rvec_(-m4wdth/2, m4wdth/2) }
+ { line from rvec_(0,m4wdth/2) to rvec_(m4lgth,-m4wdth/2) }
+ line from rvec_(0,-m4wdth/2) to rvec_(m4lgth,m4wdth/2)
+ ] with .S at last line.start } ',
+ `m4br_one(`sl_grid',`$1',`$2',m4brk_(`$3',Bgr))') ')
+
+ `sl_load( stem linespec, keys, breaker )
+ keys: name=Name; lgth=expr; wdth=expr;
+ head= arrowhead attributes;'
+ `default breaker name Bl'
+define(`sl_load',
+ `sl_eleminit_(`$1')
+ setkeys_(`$2',`name::N; wdth:dimen_*0.32; lgth:dimen_*0.45; head::N')dnl
+ ifelse(`$3',,
+ `line from last line.end to last line.start
+ { ifelse(m4name,,,m4name:) [S:Here; line to rvec_(0,m4wdth/2) \
+ then to rvec_(m4lgth,0) then to rvec_(0,-m4wdth/2) \
+ then to Here m4head ] with .S at last line.start } ',
+ `m4br_one(`sl_load',`$1',`$2',m4brk_(`$3',Bl))') ')
+
+ `sl_meterbox( stem linespec, keys, breaker )
+ keys: sl_box attributes'
+ `default breaker name Bm'
+define(`sl_meterbox',
+ `sl_eleminit_(`$1')
+ setkeys_(`$2',`name::N; wdth:dimen_*2/3; lgth:dimen_*2/3; box::N; text::N')dnl
+ ifelse(`$3',,
+ `line from last line.end to last line.start
+ {ifelse(m4name,,,m4name:) [S:Here;
+ { B: rotbox( m4lgth, m4wdth, m4box ) with .W at S }
+ a = rp_ang*rtod_
+ if (abs(a-90) < 45) || (abs(a-180) < 45) || (abs(a+180) < 45) then {
+ C: rvec_(m4lgth*2/5,0)
+ line from rvec_(m4lgth*4/5,m4wdth/2) to rvec_(m4lgth*4/5,-m4wdth/2) } \
+ else { C: rvec_(m4lgth*3/5,0)
+ line from rvec_(m4lgth/5,m4wdth/2) to rvec_(m4lgth/5,-m4wdth/2) }
+ ifelse(m4text,,,`m4text at C')
+ ] with .S at last line.start}',
+ `m4br_one(`sl_meterbox',`$1',`$2',m4brk_(`$3',Bm))') ')
+
+ `sl_generator( stem linespec, keys, breaker )'
+ `default breaker name Bd'
+define(`sl_generator',`sl_disk($@)
+ { ACsymbol(at last circle,,,R)
+ m4lcd = last circle.diam
+ [ box invis wid_ m4lcd ht_ m4lcd ] at last circle } ')
+
+ `sl_syncmeter( stem linespec, keys, breaker )'
+ `default breaker name Bd'
+define(`sl_syncmeter',`sl_disk($@)
+ { Syncsymb(at last circle)
+ m4lcd = last circle.diam
+ [ box invis wid_ m4lcd ht_ m4lcd ] at last circle } ')
+
+ `sl_lamp( stem linespec, keys, breaker )'
+ `default breaker name Bd'
+define(`sl_lamp',`sl_disk($@)
+ { line from last circle.ne to last circle.sw
+ line from last circle.nw to last circle.se
+ m4lcd = last circle.diam
+ [ box invis wid_ m4lcd ht_ m4lcd ] at last circle } ')
+
+# One-terminal utilities ##################################################
+
+ `Syncsymb(at position, rad)
+ Symbol for sync meter'
+define(`Syncsymb',`[ define(`m4ssrad',`ifelse(`$2',,(dimen_/4),`($2)')')dnl
+ Origin: Here
+ {arc <-> ht arrowht/2 wid arrowwid*2/3 \
+ from Rect_(m4ssrad,30) to Rect_(m4ssrad,150) with .c at Here}
+ line from (0,m4ssrad) to (0,-m4ssrad/2)
+ `$3' ] with .Origin ifelse(`$1',,`at Here',`$1')')
+
+ `m4br_one( `name', stem linespec, body keys,
+ breaker keys )'
+ `Draw the breaker in the stem then the element'
+define(`m4br_one',
+ `M4_S: last line.start
+ setkey_(`$4',lgth,brksiz_)dnl
+ line from M4_S to last line.end+vec_(-(m4lgth)*5/2,0)
+ sl_breaker(to rvec_(m4lgth,0),`$4')
+ $1(to rvec_((m4lgth)*3/2,0),`$3')
+ move to M4_S ')
+
+ `sl_eleminit_(linespec or (for zero length)
+ U|D|L|R|number [at location])'
+define(`sl_eleminit_',
+ `ifelse(regexp(`$1',^ *[UDLR0123456789]),-1,
+ `eleminit_(`$1',dimen_)',
+ `pushdef(`M4pos',`ifinstr(`$1',` at ',`patsubst(`$1',^.* at *)')')dnl
+ ifelse(M4pos,,,`move to M4pos;') setdir_(patsubst(`$1',` at.*'))
+ line invis from Here to Here popdef(`M4pos')')')
+
+# Two-terminal elements ###################################################
+
+ `sl_transformer(linespec,keys,
+ input breaker keys, output breaker keys)
+ keys:
+ type=I|S
+ (type=I) scale=expr; (default 1.5)
+ cycles=n; (default 4)
+ (type=S) body=shaded "color";
+ name=Body name;
+ (breaker default names BrI, BrO)'
+define(`sl_transformer',
+ `setkeys_(`$2',name::N; type:I:N; cycles:4:N; body::N; scale:1.5:; )dnl
+ ifelse(`$3'`$4',,
+ `ifinstr(m4type,S,
+ `source(`$1',G,,,m4body)',
+ `eleminit_(`$1'); m4atmp = rp_ang; m4slen = rp_len
+ define(`m4swd',`dimen_*3/16*m4scale')dnl
+ { line to rvec_((m4slen-m4swd)/2,0)
+ {ifelse(m4name,,SL_box,m4name): [ linewid = linewid*m4scale
+ {L1: inductor(to vec_(0,-m4cycles*dimen_/8),,m4cycles)}
+ {point_(m4atmp)
+ L2: inductor(from vec_(dimen_*3/16,-m4cycles*dimen_/8) \
+ to vec_(dimen_*3/16,0),,m4cycles)}
+ C2: last line.c; point_(m4atmp) ] with .L1.c at Here}
+ line from rvec_(m4swd,0) to rvec_((m4slen+m4swd)/2,0) }
+ line invis to rvec_(rp_len,0)') ',
+ `m4br_two(`sl_transformer',`$1',`$2',m4brk_(`$3',BrI),m4brk_(`$4',BrO),
+ ifelse(`$3',,,I)`'ifelse(`$4',,,O))') ')
+
+ `Two-terminal box'
+ `sl_ttbox(linespec,keys,breaker keys,breaker keys)
+ keys= lgth=expr; wdth=expr; box=attributes;
+ supp=additional rotbox commands; name=Body name;
+ text="text";
+ (breaker default names BrI, BrO)'
+define(`sl_ttbox',
+ `setkeys_(`$2',`lgth:dimen_*3/4; wdth:dimen_*3/4;
+ name::N; box::N; text::N; supp::N')dnl
+ ifelse(`$3'`$4',,
+ `eleminit_(`$1')
+ {line to rvec_((rp_len-m4lgth)/2,0)
+ {ifelse(m4name,,,m4name:)rotbox(m4lgth,m4wdth,m4box,,m4supp) \
+ with .W at Here }
+ {ifelse(m4text,,,`{m4text at rvec_(m4lgth/2,0)}') }
+ line from rvec_(m4lgth,0) to rvec_((rp_len+m4lgth)/2,0)}
+ line invis to rvec_(rp_len,0) ',
+ `m4br_two(`sl_ttbox',`$1',`$2',m4brk_(`$3',BrI),m4brk_(`$4',BrO),
+ ifelse(`$3',,,I)`'ifelse(`$4',,,O))') ')
+
+define(`m4brk_',`ifelse(`$1',,,
+ `ifelse(`$1',C,,`$1',O,box=fill 0,`$1')`'ifelse(`$2',,,;name=`$2')')')
+
+ `sl_rectifier(ttbox args)'
+define(`sl_rectifier',
+ `sl_ttbox(`$@')
+ { line from last [].Line.ne to last [].Line.sw
+ AC: ACsymbol(at last [].C+(-m4lgth/6, m4wdth/4),,,R)
+ DC: DCsymbol(at 2nd last [].C+( m4lgth/6,-m4wdth/4),,,R) } ')
+
+ `sl_inverter(ttbox args)'
+define(`sl_inverter',
+ `sl_ttbox(`$@')
+ { line from last [].Line.ne to last [].Line.sw
+ DC: DCsymbol(at last [].C+(-m4lgth/6, m4wdth/4),,,R)
+ AC: ACsymbol(at 2nd last [].C+( m4lgth/6,-m4wdth/4),,,R) } ')
+
+ `sl_breaker(linespec, type=[A|C][D]; ttbox keys)
+ C is for curved breaker
+ D is for sl_drawout'
+define(`sl_breaker',
+ `setkeys_(`$2',`lgth:brksiz_; wdth:brksiz_; name::N; type::N')dnl
+ ifinstr(m4type,C,
+ `ifinstr(m4type,D,
+ `m4ch_two(`cbreaker',`$1')',
+ `ifelse(m4name,,,m4name:) cbreaker(`$1')')',
+ `ifinstr(m4type,D,
+ `m4ch_two(`sl_ttbox',`$1',lgth=m4lgth;wdth=m4wdth;`$2';name=Br)',
+ `sl_ttbox(`$1',lgth=m4lgth;wdth=m4wdth;`$2')') ') ')
+
+ `sl_reactor(linespec,keys,breaker keys,breaker keys)
+ keys=
+ diam=expr,
+ (Default breaker names BrI and BrO)'
+define(`sl_reactor',
+ `setkeys_(`$2',`diam:sourcerad_*4/3; type::N')dnl
+ ifelse(`$3'`$4',,
+ `eleminit_(`$1')
+ { line to rvec_(rp_len/2,0) then to rvec_(rp_len/2,-m4diam/2); round
+ arc rad m4diam/2 cw from Here to rvec_(m4diam/2,m4diam/2) \
+ with .c at rvec_(0,m4diam/2); round
+ line to rvec_(rp_len/2-m4diam/2,0) }
+ {[ box invis ht m4diam wid m4diam ] at rvec_(rp_len/2,0)}
+ line invis to rvec_(rp_len,0) ',
+ `m4br_two(`sl_reactor', `$1', lgth=m4diam*2;`$2',
+ m4brk_(`$3',BrI),m4brk_(`$4',BrO),ifelse(`$3',,,I)`'ifelse(`$4',,,O))')')
+
+ `sl_busbar( linespec, nports, keys )
+ Labels P1, P2 ... Pnports are defined on the line.
+ keys: line=line attributes;
+ port=D; (dotted ports)
+ The bus extends beyond the first and last points
+ by dimen_/5 which can be redefined as
+ line=chop -(expr)'
+define(`sl_busbar',
+ `define(`m4npoints',`ifelse(`$2',,2,`$2')')dnl
+ setkeys_(`$3',`line:thick 1.6 chop -dimen_/5:N; port::N')dnl
+ [ tmp_ang = rp_ang
+ eleminit_(`$1',(m4npoints-1)*dimen_)
+ Start: last line.start; End: last line.end
+ for_(1,m4npoints,1,
+ `P`'m4x: (m4x-1)/(m4npoints-1) between Start and End dnl
+ ifinstr(m4port,D,` ;dot(at P`'m4x)')')
+ Line: line from Start to End m4line
+ Start: last line.start; End: last line.end
+ point_(tmp_ang) ] ')
+
+ `sl_drawout(linespec, keys, R)
+ Drawout (i.e. plugin) chevron element;
+ keys: type=T; (truncated leads)
+ lgth=expr; (body size)
+ wdth=expr;
+ name=Name; (body name)
+ line= line attributes (e.g. thick 2)
+ arg3=R reverse direction'
+define(`sl_drawout',
+ `setkeys_(`$2',`lgth:drosiz_; wdth:drosiz_; type::N; name::N; line::N')dnl
+ eleminit_(`$1',ifelse(m4type,T,m4lgth))
+ ifelse(`$3',R,`{M4ds: Here; move to last line.end; rp_ang = rp_ang+pi_')
+ {line to rvec_(rp_len/2,0)
+ ifelse(m4name,,,m4name:) [
+ S: Here; {line from rvec_(-m4lgth/2,m4wdth/2) to Here then
+ to rvec_(-m4lgth/2,-m4wdth/2) m4line }
+ E: rvec_(m4lgth/2,0); line from rvec_(0,m4wdth/2) to E then
+ to rvec_(0,-m4wdth/2) m4line ] with .S at Here
+ ifelse(m4type,T,,
+ line from last [].E to last [].E+vec_((rp_len-m4lgth)/2,0))}
+ ifelse(`$3',R,`rp_ang = rp_ang-pi_; move to M4ds}')
+ line invis to rvec_(rp_len,0) ')
+
+# Two-terminal utilities ##################################################
+
+ `Breakers in the input and output lines:'
+ `m4br_two(`2-term element macroname in quotes',
+ linespec, body keys,
+ input breaker keys,
+ output breaker keys,
+ I|O|IO)'
+ `(Default breaker names are BrI and BrO)'
+define(`m4br_two',
+ `define(`m4il',`ifinstr(`$6',I,`setkey_(`$4',lgth,brksiz_) m4lgth',0)')dnl
+ define(`m4ol',`ifinstr(`$6',O,`setkey_(`$5',lgth,brksiz_) m4lgth',0)')dnl
+ define(`m4bl',`setkey_(`$3',lgth,dimen_*4/3) m4lgth')dnl
+ eleminit_(`$2',dimen_*3)
+ M4start: Here; M4end: last line.end
+ M4cc: last line.c+vec_(((m4il*3/2)-(m4ol*3/2)),0)
+ M4ii: M4cc+vec_(-min((m4bl/2+m4il/2),distance(M4start,M4cc)-m4il),0)
+ line from M4start to ifinstr(`$6',I,
+ `M4ii+vec_(-m4il,0); sl_breaker(to M4ii,`$4';name=BrI)',M4ii)
+ M4oi: M4cc+vec_(min((m4bl/2+m4ol/2),distance(M4end,M4cc)-m4ol),0)
+ $1(from M4ii to M4oi,`$3')
+ ifinstr(`$6',O,`sl_breaker(to M4oi+vec_(m4ol,0),`$5';name=BrO)')
+ line to M4end
+ line invis from M4start to M4end ')
+
+ `Chevrons in the input and output lines:'
+ `m4ch_two(`2-term element macroname in quotes',
+ linespec, body keys,
+ input breaker keys,
+ output breaker keys,
+ I|O|IO)'
+define(`m4ch_two',
+ `define(`m4bl',`setkey_(`$3',lgth,dimen_*3/8) m4lgth')dnl
+ eleminit_(`$2',dimen_*3)
+ M4start: Here; M4end: last line.end
+ M4elem: $1(to rvec_(m4bl+2*drosiz_,0) with .c at last line.c,`$3')
+ sl_drawout(from last line.start-vec_(drosiz_,0) to last line.start,type=T,R)
+ line from last line.start to M4start
+ sl_drawout(from M4elem.end to M4elem.end+vec_(drosiz_,0),type=T)
+ line to M4end
+ line invis from M4start to M4end')
+
+# Composite elements ###################################################
+
+ `sl_ct( at position, stem length, U|D|L|R|expr,
+ scale=expr) (default scale is 1.5)'
+define(`sl_ct',
+ `[ setdir_(`$3'); setkey_(`$4',scale,1.5); linewid = linewid*m4scale
+ L: inductor(to vec_(2*dimen_/8,0),,2)
+ stemlen = ifelse(`$2',,dimen_/5,`$2')
+ line from L.start to L.start+vec_(0,-stemlen)
+ Ts: Here
+ line from L.end to L.end+vec_(0,-stemlen)
+ Te: Here
+ line from L.c to L.c+vec_(0,-stemlen)
+ Tc: Here
+ resetdir_ ] with .L.c at ifelse(`$1',,Here,patsubst(`$1',^ *at *)) ')
+
+# #######################################################################
+
+divert(0)dnl
+
+
+ u = dimen_
+
+ svg_font(sans-serif,9.0bp__,textoffset)
+
+define(`ctb',`[CT: sl_ct(,,`$1')
+ L: line up_ u/2 with .c at CT.L.c
+ BU: sl_breaker( up_ u*2/3,box=fill_(0))
+ BR: sl_breaker( right_ ifelse(`$1',U,,-)u*3/4 \
+ from CT.ifelse(`$1',U,Te,Ts),box=fill_(0))]')
+
+define(`tsbx',`sl_ttbox(`$1',`$2';lgth=u*0.4;wdth=u/2;text="TS")')
+define(`lcdiam',u*0.85)
+define(`lcirc',`[C: circle diam lcdiam ifelse(`$1',,,`$1')
+ line right C.diam*3/4 with .c at C
+ ifelse(`$2',,,`$2' at C.ne above )
+ ifelse(`$3',,,`$3' at C.se below )
+ ]')
+
+define(`Svee',`[S: Here; line from (sqrt(3),1)*(`$1') to S \
+ then to (sqrt(3),-1)*(`$1')]')
+
+Box1: [
+ V: line down_ u
+ {`"13.8 kV 3 ph + GND 60 Hz"' at V.start rjust}
+ { ellipse wid u/6 ht u/10 at Here+(0,u/3)
+ line right_ u/2 from last ellipse.e
+ ellipse wid u*4/3 ht u/2 "M1-00" }
+ AT: open_arrow(ToPos(,U,u), u/3*sqrt(3)/2, u/3)
+ dot(at 2nd last line.start)
+ { line left_ u then up_ u/3 ht u/10 wid u/10; dot }
+ line down_ u
+ { line up_ u/2 from last line.end+(-u/6,u/8)
+ sl_disk( left_ u/2 from last line.c,diam=u/3;name=L ); move to L.c
+ for_(45,315,90,`{line to L.c+(Rect_(L.diam,m4x)) chop u/5 chop 0}') }
+ T: dot
+ { sl_transformer(right_ 2*u,cycles=2;name=Tr1)
+ {"14400:120` 'V" at last [].n above}
+ { Svee(u/7) with .ne at Tr1.sw+(-u/15,-u/15)
+ Svee(u/7) with .nw at Tr1.se+( u/15,-u/15); ground(at last [].S) }
+ dot; fuse(right_ u,C)
+ line to (Here,1st ellipse)
+ MB: box wid 3/4*u ht 3/4*u with .sw at Here+(-u/8,0)
+ circle diam 5/8*u at last box "M" }
+ line down u/2
+ CT1: ctb(U) with .BU.end at Here
+ {"500:5" rjust at CT1.CT.w }
+ { Svee(u/7) with .S at CT1.CT.Ts+( u/4,0); ground(at last [].S) }
+ line from MB.se+(-u/8,0) down_ MB.s.y-CT1.BR.y then to CT1.BR.end
+ line from CT1.L.start down_ 3/4*u
+ T2: dot
+ { line left_ u from T2; sl_drawout(,type=T,R); fuse(left_ u,C)
+ sl_transformer(left_ u/2,cycles=2;name=Tr2)
+ {"14400:120` 'V" at last [].n above}
+ {Ysymbol(with .ne at Tr2.sw+(u/8,0),type=G;size=u/6)}
+ {Ysymbol(with .nw at Tr2.se+(u/15,0),type=G;size=u/6)}
+ fuse(left_ u,C); sl_drawout(,type=T)
+ TS1: tsbx(left_ u*3/4) }
+ CT2: ctb(U) with .BU.end at Here
+ {"800:5" rjust at CT2.CT.w }
+ {Ysymbol(at CT2.CT.Ts+(u/2,-u/8),type=G;size=u/5)}
+ sl_breaker(up_ 2.0*u with .end at CT2.L.start,
+ lgth=u*0.75;wdth=u*0.8;name=M1;type=D)
+ {`"52-M1" "1200 A"' at M1}
+ CT3: ctb(D) with .BU.end at last line.start
+ {"800:5" ljust at CT3.CT.e }
+ BT3: CT3.BR.end
+ {Ysymbol(at CT3.CT.Te+(-u/2,-u/8),type=G;size=u/5)}
+ CT4: ctb(D) with .BU.end at CT3.L.start
+ {"600:5 MR" ljust at CT4.CT.e }
+ {Ysymbol(at CT4.CT.Te+(-u/2,-u/8),type=G;size=u/5)}
+ line from CT4.L.start down_ u; dot;
+ { line left_ u then up_ u/3 ht u/10 wid u/10; dot }
+ AB: arrow down_ u*2/3 ht u/3*sqrt(3)/2 wid u/3
+ tsbx(left_ u from CT3.BR.end,text="SB")
+ line to (TS1.start,Here)
+ tsbx(left_ u*3/4); line left_ u/2+lcdiam/2 then up_ u/5
+ CEDR3: lcirc("59" "M1","(3)") with .C.s at Here
+ Q: line left_ u*3/4 from CEDR3.C.w
+ { line left_ u/8 from Q.c+(u/8,CEDR3.C.rad) \
+ then down_ CEDR3.C.diam then right_ u/8 }
+ CEDR4: lcirc("22" "M1","(1)") with .C.e at Here
+ { arrow right_ 3/2*u from CEDR3.C.e
+ lcirc("86" "M1","(1)") with .C.w at Here
+ arrow right_ u from last [].C.e
+ "TRIP M1" ljust above "TRIP S1" ljust }
+ { CEDR1: lcirc("59" "M1",,"(3)") with .C.w at (Q.c,T2)
+ { line from TS1.end to CEDR1.C.e }
+ CEDR2: lcirc("22" "M1",,"(3)")
+ arrow up u*2/3 from (CEDR2.e.x,CEDR2.n.y+u/3)
+ "TRIP S1" above; "TRIP M1" at last "".n above
+ move to last arrow.start
+ line from CEDR2.n to (CEDR2,Here) then to (CEDR1,Here) then to CEDR1.n
+ }
+ EDR5000: box wid TS1.end.x-CEDR4.C.w.x-u/8 ht last arrow.y-CEDR4.C.s.y+u/2 \
+ with .n at last arrow "EDR-5000-M1"
+ M2: box wid u*1.1 ht u*0.85 at (TS1,CT4.BR) "PXM6000" "METER"
+ { line from M2.e to CT4.BR.end }
+ line from M2.w left_ u*3/4
+ BT: dot
+ line to (EDR5000.w,Here)+(-u/5,0); Lft: Here
+ continue to (Here,CEDR2.C) then to CEDR2.C.w
+ Head: line down_ u*3/4 from AB.end
+ { ellipse wid u/6 ht u/10 at Here+(0,u/3)
+ line left_ u/2 from last ellipse.w
+ ellipse wid u*4/3 ht u/2 "M1-00" }
+ { line right_ u*3/4 then down_ u/8;
+ {line right_ u/10 with .c at Here}
+ {line right_ u/10 with .c at Here+(0,-u/8)}
+ pushdef(`dimen_',u/2) ground(at last line.c) popdef(`dimen_') }
+ { line down_ u/8 from Here+(u/2,0)
+ { pushdef(`dimen_',u/2) ground(at Here+(0,-u/8)) popdef(`dimen_') }
+ pushdef(`dotrad_',dotrad_/2) gap(down_ u/8,1) popdef(`dotrad_') }
+ BB: arrow <- down_ u/2 ht u/3*sqrt(3)/2 wid u/3
+ sl_transformer(down_ u,name=Tr3)
+ { CUR2: lcirc("21" "T1",,"(1)") with .C.c at Tr3.e+(u,0)
+ CUR3: lcirc("49" "T1",,"(1)") with .C.w at CUR2.C.e
+ CUR1: lcirc("21" "T1","(1)") with .C.c at CUR2.C.c+(Rect_(CUR2.C.diam,60))
+ }
+ line from BT to (BT.x,AB.y+u/10); X: Here; corner
+ CT5: ctb(U) with .BU.end at Tr3.L2.end
+ {"600:5" ljust below at CT5.CT.e }
+ corner(,at CT5.CT.Ts); ground
+ line from CT5.BR.end to (CUR3.C.e,CT5.BR.end)+(u/6,0)
+ continue to (Here,X)
+ tsbx(up_ u*4/3)
+ CUR5: lcirc("51G" "T1","(1)") with .C.s at Here
+ CUR6: lcirc("87" "T1","(1)") with .C.c at CUR5.C.c+(2*u,0)
+ arrow up_ u*2/3 from CUR5.C.n
+ CUR4: lcirc("86" "T1","(1)") with .C.s at Here
+ arrow up_ u*2/3 from CUR4.C.n
+ arrow <- from CUR4.C.w left CUR4.C.w.x-CUR1.C.x; corner
+ J2: line to CUR1.C.n
+ arrow from CUR6.C.w left_ u/3 then up_ CUR4.C.y-CUR6.C.y then to CUR4.C.e
+ tsbx(up_ u from CUR6.C.n)
+ line to (Here,CT2.BR) then to CT2.BR.end
+ crossover(from X to (CUR5,X)-(u*2/3,0),L,AB,J2); corner
+ tsbx(up_ u*4/3); dot
+ ETR5000: box wid CUR6.C.e.x-CUR1.C.x + u/5 ht CUR5.C.diam+u/2 \
+ with .nw at (CUR1.C.n.x-u/8,CUR5.C.n.y+u/6)
+ {" ETR-5000-T1" wid 72bp__ at ETR5000.s above }
+ AL: arrow from Tr3.L2.c down_ u ht u/3*sqrt(3)/2 wid u/3; BX: Here
+ { line down_ u*2/3 from Here+( u/12,0) }
+ { line down_ u*2/3 from Here+(-u/12,0) }
+ { line down_ u*2/3; Bbot: Here }
+ { ellipse wid u/6 ht u/10 at Here+(0,-u/6)
+ line left_ u/2 from last ellipse.e
+ ellipse wid u*2 ht u/2 `"2000 A BUSWAY"' }
+ line from (CUR6,Bbot) to (CUR6,X); tsbx(to CUR6.C.s)
+ Outer: box ht AT.end.y-AB.end.y wid ETR5000.e.x-Lft.x + u/3 \
+ with .nw at (Lft.x-u/6,AT.end.y)
+ `"USG-1A"' ljust \
+ `"13.8 KV 1200 A"' ljust \
+ `"50 kA SYM S.C."' ljust \
+ `"(15 kV - 95 kV BIL RATED)"' ljust at Outer.nw+(0,-u*2/3)
+ ]
+
+ command "</g>"
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/EEPSVG.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/EscherSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/EscherSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/EscherSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,188 @@
+.PS
+# EscherSVG.m4
+# https://tex.stackexchange.com/questions/129274/showcase-of-optical-illusions-made-with-tex-latex-luatex-context
+threeD_init
+[
+ u=1/2.54 # unit size; could use scale for this
+
+ define(`treadcolor',`0.8,0.75,0.7')
+ define(`darkgrn',`.1,.1,0')
+ define(`lightgrn',`.7,.7,.6')
+
+ define(`northsteps',3)
+ define(`eaststeps',8)
+ define(`southsteps',7)
+ define(`weststeps',4)
+ define(`baselayers',10)
+ define(`eb',eval(baselayers+eaststeps))
+ define(`ebs',eval(eb+southsteps))
+ define(`under',7)
+
+ azimuth = -45 # view angles
+ elevation = 25
+ setview(azimuth,elevation,0)
+ # projected unit vectors
+ UX: Project(u,0,0)
+ UY: Project(0,-u,0)
+ UZ: Project(0,0,u)
+ # layer thickness in units of u
+ f= -(eaststeps*UX.y + southsteps*UY.y - weststeps*UX.y - northsteps*UY.y)/dnl
+ ((eaststeps+southsteps+weststeps+northsteps)*UZ.y)
+ # XY projection of 3D coords in units of u
+define proj {UX*($1)+UY*($2)+UZ*($3)}
+
+define tread {line from UY/2 \
+ to UY then to UY+UX then to UX then to (0,0) \
+ then to UY/2 shaded rgbstring(treadcolor) \
+ with .start at proj($1,$2,$3)+UY/2 }
+
+define wrect {line invis from (0,0) to UX*($4) \
+ then to UX*($4)+UZ*($5) \
+ then to UZ*($5) then to (0,0) with .start at proj($1,$2,$3) \
+ shaded rgbstring(r,g,b)}
+
+define srect {line invis from (0,0) to UY*($4) then to UY*($4)+UZ*($5) \
+ then to UZ*($5) then to (0,0) with .start at proj($1,$2,$3) \
+ shaded rgbstring(r,g,b) }
+ # color blending
+define(`blendwht',`between3D(`$1',`$2',`$3',`$4',1,1,1)')
+define makergb { r = $1; g = $2; b = $3 }
+define dorgb { gg = $2
+ if $1==0 then { makergb(blendwht(gg,lightgrn)) } \
+ else { makergb(blendwht(gg,darkgrn)) } }
+
+# East
+ for i=-under to baselayers do {
+ dorgb((i%2),0.2)
+ wrect(1,1,i*f,eaststeps-2,-f) }
+ for i=0 to eaststeps do {
+ dorgb((i%2),0.2)
+ wrect(i,1,(baselayers+i)*f,(eaststeps+1-i),-f)
+ tread(i,0,(baselayers+i)*f)
+ line from proj(i,1,(baselayers+i)*f) \
+ to proj(i,1,(baselayers-1+i)*f) }
+# South
+ for i=0 to eb do {
+ dorgb((i%2),0.4)
+ srect(eaststeps+1,0,i*f,southsteps+1,-f) }
+ for i=1 to southsteps do {
+ dorgb((i%2),0.4)
+ srect(eaststeps+1,i,(eb+i)*f,(southsteps+1-i),-f)
+ tread(eaststeps,i,(eb+i)*f)
+ line from proj(eaststeps+1,i,(eb+i)*f) \
+ to proj(eaststeps+1,i,(eb+i-1)*f) }
+# North
+ for i=-under to baselayers-northsteps-1 do {
+ dorgb((i%2),0.1)
+ srect(1,1,i*f,northsteps-1,-f) }
+ for i=1 to northsteps do {
+ dorgb((i%2),0.1)
+ srect(1,1,(baselayers-i)*f,i,-f)
+ wrect(0,1+i,(baselayers-i)*f,1,-f)
+ line from proj(0,1+i,(baselayers-i)*f) \
+ to proj(0,1+i,(baselayers-i-1)*f)
+ line from proj(1,1+i,(baselayers-i)*f) \
+ to proj(1,1+i,(baselayers-i-1)*f)
+ tread(0,i,(baselayers-i)*f) }
+# West
+ for i=0 to ebs do {
+ dorgb((i%2),0.4)
+ wrect(eaststeps+1,southsteps+1,i*f,-(weststeps+1),-f) }
+ for i=0 to weststeps-1 do {
+ dorgb((i%2),0.4)
+ wrect(eaststeps-i,southsteps+1,(ebs+i+1)*f,-(weststeps-i),-f,)
+ srect(eaststeps-i,southsteps,(ebs+i+1)*f,1,-f)
+ if i!=weststeps-1 then {
+ line from proj(eaststeps-i,southsteps,(ebs+i+1)*f) \
+ to proj(eaststeps-i,southsteps,(ebs+i)*f) }
+ line from proj(eaststeps-i,southsteps+1,(ebs+i+1)*f) \
+ to proj(eaststeps-i,southsteps+1,(ebs+i)*f)
+ tread(eaststeps-(i+1),southsteps,(ebs+i+1)*f) }
+# Corner lines
+ define(`dgreen',`outlined rgbstring(blendwht(0.2,darkgrn))')
+ line dgreen from proj(1,1,(baselayers-1)*f) to proj(1,1,-under*f)
+ line dgreen from proj(eaststeps+1,southsteps+1,ebs*f) \
+ to proj(eaststeps+1,southsteps+1,-f)
+ line dgreen from proj(0,northsteps+1,(baselayers-northsteps)*f) \
+ to last line.end-UX*(weststeps+1) then to last line.end \
+ then to proj(eaststeps+1,0,-f) then to proj(eaststeps+1,0,eb*f)
+ ]
+
+ifelse(1,1,`
+[
+ setview(-45,20)
+ bwid = 2.8
+ bh = 1.5
+ bdp = 1.8
+ bth = 0.3
+ A: Project(0,0,0)
+ AA: A+Project(bth,bth,-bth)
+ B: Project(0,bwid,0)
+ BB: B+Project(bth,-bth,-bth)
+ C: Project(bdp,bwid,0)
+ D: Project(bdp,0,0)
+ E: Project(0,0,-bh)
+ F: Project(bdp,0,-bh)
+ G: Project(bdp,bwid,-bh)
+ H: B + Project(0,0,-bh)
+
+ line from A to B then to C then to D then to A then to E then to F \
+ then to G then to H then to E
+ line from C to G
+ line from A+Project(bth,bth,0) to B+Project(bth,-bth,0) \
+ then to C+Project(-bth,-bth,0)
+ L1: line to D+Project(-bth,bth,0)
+ L2: line to A+Project(bth,bth,0)
+ L4: line from E+Project(bth,bth,0) to H+Project(bth,-bth,0)
+ L3: line to C+Project(-bth,-bth,-bh)
+ line to F+Project(-bth,bth,0) then to A+Project(bth,bth,-bh)
+
+ L5: line from D+Project(-bth,0,-bth) to A+Project(bth,0,-bth)
+ line to E+Project(bth,0,bth)
+ L6: line to Here+Project(0,bwid-2*bth,0)
+ L7: line from D+Project(0,bth,-bth) to C+Project(0,-bth,-bth)
+ line to G+Project(0,-bth,bth)
+ L8: line to Here+Project(-bdp+2*bth,0,0)
+ Tmp: line invis from L8.start+Project(-bth,0,0) up bh
+ line from Tmp.start to Intersect_(Tmp,L7)
+ Tmp: line invis from L8.end up bh
+ line from L8.end to Intersect_(Tmp,L7)
+ line from Intersect_(Tmp,L1) to BB+Project(bth,0,0)
+ Tmp: line invis to Here+Project(bdp,0,0)
+ line from Tmp.start to Intersect_(Tmp,L1)
+
+ Tmp: line invis from H up bh
+ line from H to Intersect_(Tmp,L7)
+ line from Intersect_(Tmp,L1) to B+Project(bth,-bth,0)
+
+ Tmp: line invis from AA to AA+Project(0,bwid,0)
+ Tmp2: line invis up bh from L6.end
+ line from Intersect_(Tmp,L2) to Intersect_(Tmp2,Tmp) \
+ then to Intersect_(Tmp2,L1)
+ line from L6.end to Intersect_(Tmp2,L7)
+
+ Tmp: line invis down bh from AA
+ line from Intersect_(Tmp,L6) to Intersect_(Tmp,L5)
+
+ Tmp: line invis down bh from D
+ line from D to Intersect_(Tmp,L6)
+ line from Intersect_(Tmp,L4) to F+Project(-bth,bth,0)
+
+ Tmp: line invis from L5.start to L5.start+Project(0,0,-bh)
+ move to E+Project(0,2*bth,0)
+ Tmp2: line invis to Here+Project(bdp,0,0)
+ line from L5.start to Intersect_(Tmp,L6)
+ line from Intersect_(Tmp,L4) to Intersect_(Tmp,Tmp2) \
+ then to Intersect_(Tmp2,L4)
+
+ Tmp: line invis from L7.start to L7.start+Project(0,0,-(bh-bth))
+ line from L7.start to Intersect_(Tmp,L6)
+
+ move to G+Project(-2*bth,0,0)
+ Tmp2: line invis to Here+Project(0,-bwid,0)
+ line from Intersect_(Tmp2,L3) to Intersect_(Tmp,Tmp2)
+ line from Intersect_(Tmp,L4) to Intersect_(Tmp2,Tmp)
+
+] with .sw at last [].se+(0.2,0)
+')
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/EscherSVG.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/GeometrySVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/GeometrySVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/GeometrySVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -3,6 +3,8 @@
gen_init
scale = 5/4
+G: [
+
A: Here; "A" at A above
B: A+(-1,-3.5); "B" at B below rjust
C: B+(4.6,0); "C" at C below ljust
@@ -42,5 +44,167 @@
line dashed from X to Y chop -linewid/2
RightAngle(A,Z,Y)
+ ] scaled 0.8
+Lyap: [
+#.PS
+# Lyap.m4
+threeD_init
+#scale = 1/1.2
+viewaz = 30
+viewel = 18
+setview(viewaz,viewel)
+
+Origin: Project(0,0,0)
+# Components of view vector W
+w1 = view3D1
+w2 = view3D2
+w3 = view3D3
+# Shape factor of the ellipse on the xy plane
+q = Cos(40)
+
+# cost function
+h = 0.5
+c = 1
+# The projected ellipse is (x/q)^2 + y^2 = c.
+# The cost is v = c+h
+define(`vs',``$2'*q*cos(`$1'),`$2'*sin(`$1')')
+define(`vp',`vs(`$1',`$2'),0')
+define(`vx',`sum3D(vp(`$1',`$2'),0,0,h+(`$2')^2)')
+
+# The gradient of v is (2x/q, 2y, -1) and the line
+# separating front and back is W^T * grad(v) = 0
+# This line intersects the projected ellipse at
+# x1,y1 and x2,y2
+ ap = w2^2*q^2/w1^2+1
+ bp = -w2*w3*q^2/w1^2
+ cp = w3^2*q^2/4/w1^2-c
+ m = sqrt(bp^2-4*ap*cp)
+ y1 = (-bp+m)/ap/2 ; x1 = (w3-2*y1*w2)*q/2/w1
+ y2 = (-bp-m)/ap/2 ; x2 = (w3-2*y2*w2)*q/2/w1
+ t1 = atan2(y1,x1)
+ t2 = atan2(y2,x2)
+ theta1 = min(t1,t2)
+ theta2 = max(t1,t2)
+
+# tangent curve
+ nT = 11
+ for i = 0 to nT do {
+ y = y1 + (y2-y1)/nT*i
+ theta = atan2(y,(w3-2*y*w2)*q/2/w1)
+ r = y/sin(theta)
+ T[i]: Project(vx(theta,r))
+ }
+
+# front and back parts of the top curve
+ n = 12
+ for i = 0 to n do {
+ theta = theta1 + (theta2-theta1)/n*i
+ F[i]: Project(vx(theta,c))
+ Fp[i]: Project(vp(theta,c))
+ }
+ for i = 0 to n do {
+ theta = theta2 + (theta1+twopi_-theta2)/n*i
+ B[i]: Project(vx(theta,c))
+ Bp[i]: Project(vp(theta,c))
+ }
+
+# trajectory
+rotations = 1.55
+nx = 7
+thetas = 75*dtor_
+thetaf = thetas - rotations*twopi_
+rx = c*0.9
+beta = exp(log(.5)/20)
+
+define(`defX',` rx = `$5' ; np = np-1
+ ts = `$1' ; tf = `$2'
+ for i = 0 to `$3' do {
+ tha = ts + (tf-ts)*i/(`$3')
+ for thx = tha to -twopi_ by twopi_ do {}
+ `$4'[i]: Project(vx(thx,rx))
+ Xp[np]: Project(vp(thx,rx))
+ np = np+1
+ rx = beta*rx
+ }')
+
+np = 1
+defX(thetas,theta1,nx,X1,rx)
+defX(theta1,theta2-twopi_,nx,X2,rx/beta)
+defX(theta2-twopi_,theta1-twopi_,nx,X3,rx/beta)
+defX(theta1-twopi_,thetaf,5,X4,rx/beta)
+
+# First draw the inside back
+# B is the back curve
+# T is the outline
+ifpstricks(`
+\psset{gradbegin=lightgray,gradend=darkgray,gradlines=1000}
+\pscustom[fillstyle=gradient,gradmidpoint=0.7]{
+ fitcurve(B,n)
+ for i = 0 to nT do {TT[i]: T[nT-i] }
+ fitcurve(TT,nT)
+\relax} ',
+` fitcurve(B,n)
+ for i = 0 to nT do {TT[i]: T[nT-i] }
+ fitcurve(TT,nT) ')
+
+# Centre axis
+thinlines_
+line from Origin to Project(0,0,h)
+# F[0] is the leftmost point of the front curve
+line from F[0] to Fp[0]
+# F[n] is the rightmost point of the front curve
+line from F[n] to Fp[n]
+thicklines_
+
+# Now draw the outside front
+ifpstricks(`
+\newgray{gray1}{0.9}%
+\newgray{gray2}{0.4}%
+\psset{gradbegin=gray1,gradend=gray2,gradlines=1000}
+\pscustom[linewidth=0pt,fillstyle=gradient,gradmidpoint=0.99]{
+ fitcurve(F,n)
+ fitcurve(T,nT)
+\relax} ',
+` shade(1,fitcurve(F,n)
+ fitcurve(T,nT)) ')
+# T is the limit curve of visibility
+ fitcurve(T,nT)
+# F is the top front
+ fitcurve(F,n)
+# Front and back projections of the top on xy
+ fitcurve(Fp,n)
+ fitcurve(Bp,n)
+
+# The trajectory in pieces, to allow dashed parts
+ fitcurve(X1,nx)
+ fitcurve(X2,nx,dotted 0.025)
+ fitcurve(X3,nx)
+ fitcurve(X4,3,dotted 0.015)
+ arca(from X4[4] to X4[2],ccw,0.3,<-)
+
+# Projected trajectory
+ np = np-2
+ fitcurve(Xp,np-1)
+ arca(from Xp[np] to Xp[np-2],ccw,0.18,<-)
+ "svg_it(X(t))" at Xp[np]-(2bp__,0) ljust
+
+# Axes and vertical lines
+thinlines_
+ line from X1[0] to Xp[0]
+arrow from Origin to Project(1.5,0,0)
+"svg_it(x)`'svg_sub(1)" rjust below
+arrow from Origin to Project(0,1.5,0)
+"svg_it(x)`'svg_sub(2)" wid 10bp__ ljust
+line dashed from Project(0,0,h) to F[n/2] chop 0 chop arrowht/4
+arrow from F[n/2] to Project(0,0,2)
+"svg_it(v(X))" ljust
+
+"svg_it(0)" at Origin+(0,1 pt__) below
+"svg_Omega" at Project(0,0.9*c,0) above
+"svg_it(v(X) = c)" at (Project(vp(100*dtor_,c)))+(2bp__,0) above ljust
+
+#.PE
+ ] scaled 1.5 with .sw at last [].se+(0.5,0)
+
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/GrayCodeSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/GrayCodeSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/GrayCodeSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -2,6 +2,7 @@
# Gray_code.m4
gen_init
+GrayCode: [
outer = 4
inner = 0.75
nbits = 10
@@ -17,4 +18,62 @@
arcd(C,outer/2-(bit-0.5)*lthk,startang,endang) thick lthk/(1bp__)
}
}
+ ]
+Crossbar: [
+#.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
+ ] with .w at last [].e+(0.25,0)
.PE
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/InductorsSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/InductorsSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/InductorsSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,47 @@
+.PS
+# `Inductors.m4'
+cct_init(svg_font(sans-serif,10pt__))
+textwid = 1.5
+movewid = 2 pt__
+hm = 2.1
+vm = 0.28
+
+hm = 2.05
+vm = 0.28
+{ {inductor ; move ; "`inductor '" ljust}
+ move right_ hm
+ {inductor(,W); move ; "`inductor(,W) '" ljust}
+ move right_ hm
+ {inductor(,L); move ; "`inductor(,L) '" ljust}
+}
+ move down vm; right_
+{ {inductor(,,3,M) ; move ;"`...(,,3,M) '" ljust}
+ move right_ hm
+ {inductor(,W,6,P1); variable; move; "`...(,W,6,P1); variable'" ljust}
+ move right_ hm+5bp__
+ {inductor(,L,9,K); move ;"`...(,L,9,K) '" ljust}
+}
+
+ move down vm; right_
+{ {I:inductor(,,,M3); addtaps(-,1/2,-dimen_/6); move; `"...(,,,M3)"' ljust
+ {`"addtaps(-,1/2,-dimen_/6)"' ljust at (I.start,last ""+(0,-textht*3/2)) }
+ }
+ move right_ hm
+ {ebox(,,,0) ; move ;"`ebox(,,,0) '" ljust}
+ move right_ hm -10bp__
+ {TI: tapped(`ebox(,,,0)',-,1/4,-dimen_/6,3/4,-dimen_/6) ; move ;
+ "`tapped(`ebox(,,,0)','" ljust at Here+(10bp__,-5bp__) \
+ "-,1/4,-dimen_/6," ljust "3/4,-dimen_/6)" ljust
+ "svg_it(Tap1)" at TI.Tap1 rjust below
+ "svg_it(Tap2)" at TI.Tap2 ljust below }
+}
+
+ move down vm*3/2; right_
+{ {shielded(`inductor(,,,M)') ; move
+ `"shielded(`inductor(,,,M)')"' ljust
+ move to (3rd last line.start,Here)
+ shielded(`ebox(,,,0)',R) ; move; `"shielded(`ebox(,,,0)',R)"' ljust }
+}
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/InductorsSVG.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Deleted: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/LyapSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/LyapSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/LyapSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,159 +0,0 @@
-.PS
-# Lyap.m4
-threeD_init
-scale = 1/1.2
-
-viewaz = 30
-viewel = 18
-setview(viewaz,viewel)
-
-Origin: project(0,0,0)
-# Components of view vector W
-w1 = view3D1
-w2 = view3D2
-w3 = view3D3
-# Shape factor of the ellipse on the xy plane
-q = Cos(40)
-
-# cost function
-h = 0.5
-c = 1
-# The projected ellipse is (x/q)^2 + y^2 = c.
-# The cost is v = c+h
-define(`vs',``$2'*q*cos(`$1'),`$2'*sin(`$1')')
-define(`vp',`vs(`$1',`$2'),0')
-define(`vx',`sum3D(vp(`$1',`$2'),0,0,h+(`$2')^2)')
-
-# The gradient of v is (2x/q, 2y, -1) and the line
-# separating front and back is W^T * grad(v) = 0
-# This line intersects the projected ellipse at
-# x1,y1 and x2,y2
- ap = w2^2*q^2/w1^2+1
- bp = -w2*w3*q^2/w1^2
- cp = w3^2*q^2/4/w1^2-c
- m = sqrt(bp^2-4*ap*cp)
- y1 = (-bp+m)/ap/2 ; x1 = (w3-2*y1*w2)*q/2/w1
- y2 = (-bp-m)/ap/2 ; x2 = (w3-2*y2*w2)*q/2/w1
- t1 = atan2(y1,x1)
- t2 = atan2(y2,x2)
- theta1 = min(t1,t2)
- theta2 = max(t1,t2)
-
-# tangent curve
- nT = 11
- for i = 0 to nT do {
- y = y1 + (y2-y1)/nT*i
- theta = atan2(y,(w3-2*y*w2)*q/2/w1)
- r = y/sin(theta)
- T[i]: project(vx(theta,r))
- }
-
-# front and back parts of the top curve
- n = 12
- for i = 0 to n do {
- theta = theta1 + (theta2-theta1)/n*i
- F[i]: project(vx(theta,c))
- Fp[i]: project(vp(theta,c))
- }
- for i = 0 to n do {
- theta = theta2 + (theta1+twopi_-theta2)/n*i
- B[i]: project(vx(theta,c))
- Bp[i]: project(vp(theta,c))
- }
-
-# trajectory
-rotations = 1.55
-nx = 7
-thetas = 75*dtor_
-thetaf = thetas - rotations*twopi_
-rx = c*0.9
-beta = exp(log(.5)/20)
-
-define(`defX',` rx = `$5' ; np = np-1
- ts = `$1' ; tf = `$2'
- for i = 0 to `$3' do {
- tha = ts + (tf-ts)*i/(`$3')
- for thx = tha to -twopi_ by twopi_ do {}
- `$4'[i]: project(vx(thx,rx))
- Xp[np]: project(vp(thx,rx))
- np = np+1
- rx = beta*rx
- }')
-
-np = 1
-defX(thetas,theta1,nx,X1,rx)
-defX(theta1,theta2-twopi_,nx,X2,rx/beta)
-defX(theta2-twopi_,theta1-twopi_,nx,X3,rx/beta)
-defX(theta1-twopi_,thetaf,5,X4,rx/beta)
-
-# First draw the inside back
-# B is the back curve
-# T is the outline
-ifpstricks(`
-\psset{gradbegin=lightgray,gradend=darkgray,gradlines=1000}
-\pscustom[fillstyle=gradient,gradmidpoint=0.7]{
- fitcurve(B,n)
- for i = 0 to nT do {TT[i]: T[nT-i] }
- fitcurve(TT,nT)
-\relax} ',
-` fitcurve(B,n)
- for i = 0 to nT do {TT[i]: T[nT-i] }
- fitcurve(TT,nT) ')
-
-# Centre axis
-thinlines_
-line from Origin to project(0,0,h)
-# F[0] is the leftmost point of the front curve
-line from F[0] to Fp[0]
-# F[n] is the rightmost point of the front curve
-line from F[n] to Fp[n]
-thicklines_
-
-# Now draw the outside front
-ifpstricks(`
-\newgray{gray1}{0.9}%
-\newgray{gray2}{0.4}%
-\psset{gradbegin=gray1,gradend=gray2,gradlines=1000}
-\pscustom[linewidth=0pt,fillstyle=gradient,gradmidpoint=0.99]{
- fitcurve(F,n)
- fitcurve(T,nT)
-\relax} ',
-` shade(1,fitcurve(F,n)
- fitcurve(T,nT)) ')
-# T is the limit curve of visibility
- fitcurve(T,nT)
-# F is the top front
- fitcurve(F,n)
-# Front and back projections of the top on xy
- fitcurve(Fp,n)
- fitcurve(Bp,n)
-
-# The trajectory in pieces, to allow dashed parts
- fitcurve(X1,nx)
- fitcurve(X2,nx,dotted 0.025)
- fitcurve(X3,nx)
- fitcurve(X4,3,dotted 0.015)
- arca(from X4[4] to X4[2],ccw,0.3,<-)
-
-# Projected trajectory
- np = np-2
- fitcurve(Xp,np-1)
- arca(from Xp[np] to Xp[np-2],ccw,0.18,<-)
- "svg_it(X(t))" at Xp[np]-(2bp__,0) ljust
-
-# Axes and vertical lines
-thinlines_
- line from X1[0] to Xp[0]
-arrow from Origin to project(1.5,0,0)
-"svg_it(x)`'svg_sub(1)" rjust below
-arrow from Origin to project(0,1.5,0)
-"svg_it(x)`'svg_sub(2)" wid 10bp__ ljust
-line dashed from project(0,0,h) to F[n/2] chop 0 chop arrowht/4
-arrow from F[n/2] to project(0,0,2)
-"svg_it(v(X))" ljust
-
-"svg_it(0)" at Origin+(0,1 pt__) below
-"svg_Omega" at project(0,0.9*c,0) above
-"svg_it(v(X) = c)" at (project(vp(100*dtor_,c)))+(2bp__,0) above ljust
-
-.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Makefile
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Makefile 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Makefile 2021-06-03 20:45:51 UTC (rev 59444)
@@ -15,7 +15,7 @@
#DPIC = ../../../dpic/bi*dev/dpic
# To test the Windows executable. Change these as needed for the operating
-# system. NOTE: AntiqueClockSVG.m4 and Connectors.m4 use awk and sed which
+# system. NOTE: cscSVG.m4 and Connectors.m4 use awk and sed which
# do not work at present with the Windows version.
# M4LIBS = svg.m4 windows.m4
# DPIC = ../../../dpic/bison/distsrc/Windows/dpic
@@ -50,21 +50,23 @@
CCTSVG = \
AdderSVG.svg AlogixSVG.svg ABlogixSVG.svg AmpTableSVG.svg AntennasSVG.svg \
- AntiqueClockSVG.svg \ AudioSVG.svg \
+ AudioSVG.svg \
BipSVG.svg BtreeSVG.svg ByteSVG.svg ButtonsSVG.svg \
- CanLogicSVG.svg CctTableSVG.svg ConnSVG.svg ConnectorsSVG.svg \
+ CanLogicSVG.svg CapacitorsSVG.svg ChipsSVG.svg ConnSVG.svg ConnectorsSVG.svg \
ContactSVG.svg ContactsSVG.svg \
- CountingSVG.svg CrossbarSVG.svg CrowSVG.svg CsourceSVG.svg \
+ CountingSVG.svg CrowSVG.svg CsourceSVG.svg \
DecoderSVG.svg DemultiplexerSVG.svg DiniSVG.svg DiodesSVG.svg DriveSVG.svg \
- EmarrowsSVG.svg \
+ EEPSVG.svg EmarrowsSVG.svg \
FlowSVG.svg FontsSVG.svg FusesSVG.svg \
GeometrySVG.svg GrayCodeSVG.svg GroundsSVG.svg \
- HeadersSVG.svg HeathkitSVG.svg InclepsSVG.svg I2LSVG.svg JackSVG.svg \
- LyapSVG.svg LogicSVG.svg LoglogSVG.svg \
- MCSVG.svg MixerSVG.svg MotorControlSVG.svg MultiplexerSVG.svg \
+ HeadersSVG.svg HeathkitSVG.svg \
+ InclepsSVG.svg InductorsSVG.svg I2LSVG.svg JackSVG.svg \
+ LogicSVG.svg LoglogSVG.svg \
+ MCSVG.svg MixerSVG.svg MoreTableSVG.svg MotorControlSVG.svg \
+ MultiplexerSVG.svg \
NLGSVG.svg NPDTSVG.svg NportSVG.svg OpampSVG.svg OptoisoSVG.svg \
- PconnSVG.svg PushPullSVG.svg QuantumSVG.svg \
- RectifiersSVG.svg RelaySVG.svg RotboxSVG.svg\
+ PconnSVG.svg PlateSVG.svg PushPullSVG.svg QuantumSVG.svg \
+ RectifiersSVG.svg RelaySVG.svg ResistorsSVG.svg RotboxSVG.svg\
SchottkySVG.svg ShiftRSVG.svg SierpinskiSVG.svg \
SixpoleSVG.svg SourcesSVG.svg SQUIDSVG.svg SwitchesSVG.svg \
TTLnandSVG.svg TgateSVG.svg ThreeSVG.svg \
@@ -76,8 +78,7 @@
expSVG.svg fetSVG.svg graysurfSVG.svg lcctSVG.svg \
pwrsupplySVG.svg quickSVG.svg randomSVG.svg recycleSVG.svg relaycoilSVG.svg \
roseSVG.svg sfgSVG.svg shapesSVG.svg paletteSVG.svg \
- thyristorSVG.svg ujtSVG.svg UNOSVG.svg wormSVG.svg XORSVG.svg Np.svg \
- Y14-5SVG.svg
+ thyristorSVG.svg ujtSVG.svg UNOSVG.svg wormSVG.svg XORSVG.svg Np.svg
examplesSVG.html: examplesSVG.htmx
cp ../quick.m4 .
@@ -89,7 +90,7 @@
SED = sed -e '/^\%/d'
TEST = test
tst:
- if test -f test.pic; then printf "\n\nUsage: make clean tst\n\n"; exit 1; fi
+ @if test -f test.pic; then printf "\n\nUsage: make clean tst\n\n"; exit 1;fi
m4 $(M4LIBS) test.m4 | $(SED) > test.pic
$(DPIC) -v $(TEST).pic > $(TEST).svg
m4 $(M4LIBS) $(TEST).m4 | $(SED) > $(TEST).pic
@@ -112,7 +113,8 @@
xst: Incleps.png
-AntiqueClockSVG.svg ConnectorsSVG.svg:
+# necessary because of rotated text:
+ConnectorsSVG.svg cscSVG.svg test.svg:
m4 $(M4LIBS) $*.m4 | sed -e '/^\%/d' > $*.pic
$(DPIC) -v $*.pic > $*.svg
m4 $(M4LIBS) $*.m4 | sed -e '/^\%/d' > $*.pic
@@ -119,13 +121,6 @@
$(DPIC) -v $*.pic > $*.svg
grep '<\!-- width' $*.svg | sed -e 's%<\!-- *%%' -e 's% *-->%%' > $*.siz
-xntiqueClockSVG.svg:
- m4 $(M4LIBS) AntiqueClockSVG.m4 | sed -e '/^\%/d' > AntiqueClockSVG.pic
- $(DPIC) -v AntiqueClockSVG.pic > AntiqueClockSVG.svg
- m4 $(M4LIBS) AntiqueClockSVG.m4 | sed -e '/^\%/d' > AntiqueClockSVG.pic
- $(DPIC) -v AntiqueClockSVG.pic > AntiqueClockSVG.svg
- grep '<\!-- width' AntiqueClockSVG.svg | sed -e 's%<\!-- *%%' -e 's% *-->%%' > AntiqueClockSVG.siz
-
InclepsSVG.svg: InclepsSVG.m4
m4 $(M4LIBS) $*.m4 | sed -e '/^\%/d' > $*.pic
$(DPIC) -v $*.pic > $*.svg
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MoreTableSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MoreTableSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MoreTableSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,41 @@
+.PS
+# MoreTableSVG.m4
+cct_init(svg_font(sans-serif,11pt__))
+textwid = 1.5
+movewid = 2 pt__
+hm = 2.1
+vm = 0.28
+
+hm = 2.05
+vm = 0.28
+
+{ {memristor ; move;"`memristor '" ljust}
+ move right_ hm
+ {heater; move;"`heater '" ljust}
+ move right_ hm
+ {tline ; move;"`tline '" ljust}
+}
+ move down 0.25; right_
+{ {pvcell ; move;"`pvcell '" ljust}
+ move right_ hm
+ {reed ; move ;"`reed '" ljust}
+ move right_ hm
+ {reed(,,,fill_(0.9),CR) ; move ; "`reed(,,,fill_(0.9),CR) '" ljust}
+}
+ move down 0.25; right_
+{ {gap ; move ;"`gap '" ljust}
+ move right_ hm
+ {gap(,,A) ; move ;"`gap(,,A) '" ljust}
+ move right_ hm
+ {arrowline ; move;"`arrowline '" ljust}
+}
+ move down 0.25; right_
+{ move down 0.10; right; {lamp ; move;"`lamp '" ljust}
+ move right_ hm
+ {thermocouple ; move;"`thermocouple '" ljust }
+# move up 0.10 right_ hm
+# {arrester ; move ;"`arrester '" ljust}
+}
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MoreTableSVG.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MultiplexerSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MultiplexerSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MultiplexerSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -17,7 +17,6 @@
"svg_it(Sel)" at last [].Sel.end ljust above
left_; Mux(4,,LNOE) with .c at last [].c+(0.9,0)
- { line right 8bp__ at last [] . 1nd last ""+(-10bp__,4bp__) }
"`left_; Mux'(4,,LNOE)" at last [].s +(0,-20bp__)
"svg_it(In0)" at last [].In0.end above
"svg_it(NOE)" at last [].NOE.end +(4bp__,0) below
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PlateSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PlateSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PlateSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,173 @@
+.PS
+# ASME_Y14-5.m4
+# https://en.wikipedia.org/wiki/Geometric_dimensioning_and_tolerancing
+# See the ASME Y14.5 standard, Figure 6-30.
+scale = 100/3
+cct_init
+include(../ASME_Y14-5.m4)
+ifsvg(`svg_font(sans-serif,9.5bp__)',
+`textht = 10bp__*2/3
+ iflatex(`command "{\sf"')')
+# ASME Y14.5 specs:
+ arrowht = textht*0.8
+ arrowwid = textht*0.6
+ maxpswid = 12
+
+# Diameters
+ d1 = (20.13+20.00)/2
+ d2 = 31.7
+ d3 = 36
+ d4 = (40.60+40.45)/2
+ d5 = 57
+ d6 = 86
+ d7 = 100
+ d8 = 8.0
+ adj = 1.5
+
+Section: [
+ Orig: (0,0)
+ T0: (0,-d7/2)
+ T1: (6,-d5/2)
+ T2: (15.5,-d3/2)
+ T3: (22,-d3/2-adj)
+ T4: (32,-d2/2)
+ T5: (41.3,0)
+ T6: (9.5,-d4/2)
+# for_(0,5,1,`"m4x" at T`'m4x')
+# Hatching
+ H: hatchbox(invis ht d7 wid 41.3,2,thick 0.4,-45) with .w at Orig
+ box invis fill_(1) wid T5.x-T1.x ht T1.y-H.s.y with .se at H.se
+ box same with .ne at H.ne
+ box invis fill_(1) wid T3.x-T2.x ht T2.y-T1.y with .nw at T2
+ box same with .sw at (T2.x,-T2.y)
+ box invis fill_(1) wid T4.x-T3.x ht T3.y-T1.y with .nw at T3
+ box same with .sw at (T3.x,-T3.y)
+ box invis fill_(1) wid T5.x-T4.x ht T4.y-T1.y with .nw at T4
+ box same with .sw at (T4.x,-T4.y)
+# Section outline lower
+ line from (0,-d4/2) to T0 then right T1.x-T0.x then up 1
+ arcto(T1,(T2,T1),1)
+ line to (T2,T1) then up 1
+ arcto(T2,(T3,T2),1)
+ arcto((T3,T2),T3,0.5)
+ arcto(T3,(T4,T3),0.5)
+ arcto((T4,T3),T4,1)
+ arcto(T4,(T5,T4),1)
+ line to (T5,T4) then to (T5.x,-T4.y) then left 1
+# Section outline upper
+ line from (0,d4/2) to (0,-T0.y) then right T1.x-T0.x then down 1
+ arcto((T1.x,-T1.y),(T2.x,-T1.y),1)
+ line to (T2.x,-T1.y) then down 1
+ arcto((T2.x,-T2.y),(T3.x,-T2.y),1)
+ arcto((T3.x,-T2.y),(T3.x,-T3.y),0.5)
+ arcto((T3.x,-T3.y),(T4.x,-T3.y),0.5)
+ arcto((T4.x,-T3.y),(T4.x,-T4.y),1)
+ arcto((T4.x,-T4.y),(T5.x,-T4.y),1)
+ line to (T5.x,-T4.y)
+
+ box wid 6 ht d8 fill_(1) with .w at (0,d6/2)
+ box wid 6 ht d8 fill_(1) with .w at (0,-d6/2)
+ box invis wid T6.x ht d4 fill_(1) with .w at Orig
+ box wid T5.x-T6.x ht d1 fill_(1) with .e at T5
+
+ line from (Orig.x,-T6.y) to (Orig.x,T6.y)
+ arcto(T6,(T6,Orig),1)
+ arcto((T6.x,-T6.y),(0,-T6.y),1)
+ line to (0,-T6.y)
+
+define(`dialabel',
+`[tmpthick = linethick; linethick_(1)
+ [Y14_dia_]; [$1 wid ifelse(`$2',,textht,`$2')] with .w at last [].e+(0.5,0)
+ linethick_(tmpthick)]')
+
+thinlines_
+ dimension_(from (0,T6.y) to (0,-T6.y),40,dialabel("40.60" "40.45",12),textht*3)
+ line up 4 from AE_dimen_.end
+ Y14_frame(Y14_per_,Y14_dia_;"0";"(M)","A") with .sw at Here
+ Y14_frame("B") with .s at last [].n+(0,6)
+thicklines_(1)
+ datumarrow(from last [].s to 2nd last [].n)
+thinlines_
+ dimension_(from T2 to (T2.x,-T2.y),30,
+ dialabel("35.5" "36.0",12),textht*3)
+ dimension_(from T0 to T0+(T1.x,0),-8," 6.1 " " 5.9 ",textht)
+ dimension_(from S_dimen_.end to S_dimen_.end+(T2.x,0),-9,
+ "15.4" "15.6",textht*4)
+ line from E_dimen_.start to (T2,T1) chop 0 chop 1
+ dimension_(from S_dimen_.end to S_dimen_.end+(T3.x,0),-9,
+ "21.9" "22.1",textht*4)
+ line from E_dimen_.start to T3 chop 0 chop 1
+ dimension_(from S_dimen_.end to S_dimen_.end+(T4.x,0),-9,
+ "31.9" "32.1",textht*4)
+ line from E_dimen_.start to (T4,T3) chop 0 chop 1
+ dimension_(from S_dimen_.end to S_dimen_.end+(T5.x,0),-9,
+ "41.2" "41.4",textht*4)
+ line from E_dimen_.start to (T5,T4) chop 0 chop 1
+ line from S_dimen_.start to T0 chop 0 chop 1
+ dimension_(from (0,d7/2) right T6.x,8,"9.6" "9.4",3*textht)
+ line from E_dimen_.start to (T6.x,d4/2) chop 0 chop 1
+ ctrline(from (-3,0) to T5+(3,0),T5.x/2)
+ ctrline(from (-3,d6/2) right T1.x+6)
+ ctrline(from (-3,-d6/2) right T1.x+6)
+ dimension_(from T5-(0,d1/2) to T5+(0,d1/2),-14,
+ dialabel("20.13" "20.00",4*textht),textht*3)
+ dimension_(from T5-(0,d2/2) to T5+(0,d2/2),-35,
+ dialabel("31.8" "31.6",3*textht),textht*3)
+ arrow <- from (T5.x+6,d1/2) by (Rect_(20,75)) then right 6
+ Y14_frame(Y14_cir_,"0.06" wid 3*textht,"A","B") with .w at Here
+ Y14_frame("C") with .n at last [].se+(-6,-8)
+thicklines_(1)
+ datumarrow(from last [].n up 8)
+thinlines_
+ arrow <- from (T5.x+6,-d2/2) by (Rect_(10,-75)) then right 4
+ Y14_frame(Y14_cir_,"0.1" wid textht*2,"C") with .w at Here
+ arrow <- from ((T3.x+T4.x)/2,d3/2+adj) by (Rect_(30,75)) then right 4
+ "M42 X 1.5 - 6g" wid 9*textht ljust
+ Y14_frame(Y14_pos_,Y14_dia_;"0.1" wid textht*2;"(M)","C";"(M)") \
+ with .nw at last "".sw+(0,-2)
+ line from (T2.x,-T1.y) up 25 chop 1 chop 0
+ Y14_frame(Y14_par_,"0.06" wid 3*textht,"A") with .sw at Here
+ Y14_frame(Y14_sur_," 0.1 " wid 3*textht,"A") with .sw at last [].nw
+ arrow <- from (0,-d6/2+10) left 13
+ Y14_frame(Y14_fla_,"0.02" wid 4*textht) with .e at Here
+ Y14_frame("A") with .n at last [].s+(0,-6)
+ datumarrow(from last [].n up 6)
+ ]
+
+Topview:[
+ C: circle diam d7
+ for i=0 to 7 do { circle diam d8 at C+(Rect_(d6/2,i/8*360)) }
+ C5: circle diam d5 at C
+ C4: circle diam d3+2*adj at C
+ C3: circle dashed diam d3 at C
+ C2: circle diam d2 at C
+ C1: circle diam d1 at C
+
+thinlines_
+ dimension_(from C.w-(0,10) to C.e-(0,10),-C.rad-15,
+ dialabel("100" "99",textht*3),textht*5)
+ dimension_(from C5.w-(0,5) to C5.e-(0,5),-C.rad-5,
+ dialabel("57.2" "56.8",textht*4),textht*5)
+ arrow <-> from C+(Rect_(d6/2,-120)) to C+(Rect_(d6/2,60))
+ line from last arrow.end to C+(Rect_(d7/2+6,60)) then right 4
+ dialabel("86.2" "85.8",textht*4) with .w at Here+(1,0)
+ ctrline(from (C.x-(d6-d7/2),C.y) to (C.x+(d6-d7/2),C.y))
+ ctrline(from (C.x,C.y-d6/2+d8/2) to (C.x,C.y+d6/2-d8/2))
+ for_(0,315,45,`ctrarcr(C,d6/2,(m4x-22.5)*dtor_,(m4x+22.5)*dtor_)
+ ctrline(from C+(Rect_(d6-d7/2,m4x)) to C+(Rect_(d7/2,m4x))) ')
+ arcdimension_(from C+(0,d7/2) to C+(Rect_(d7/2,135)) with .c at C,
+ 8,"8X 45`'iflatex($^\circ$)" wid textht*3.5,15,1)
+ ifsvg("svg_deg" wid textht*2/3 with .w at last "".e)
+ move to C+(0,d6/2)
+ arrow <- from Here+(Rect_(8/2,75)) to Here+(Rect_(25,75)) then right_ 3
+ "8X" wid 2*textht ljust
+ linethick_(1); [Y14_dia_] with .w at last "".e+(1,0)
+ "7.9 - 8.1" wid 8*textht ljust
+ Y14_frame(Y14_pos_,Y14_dia_;"0.14" wid 3*textht;"(M)","A","C") \
+ with .nw at 2nd last "".sw+(0,-2)
+
+ ] with .C at Section.Orig+(4.5*scale,0)
+
+
+command iflatex(`"}"',ifsvg(`"</g>"'))
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PlateSVG.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PushPullSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PushPullSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PushPullSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,6 +1,6 @@
.PS
# `PushPullSVG.m4'
-cct_init(svg_font(sans-serif,10bp__,1bp__))
+cct_init(svg_font(sans-serif,9bp__,1bp__))
linewid = 1.2*linewid
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ResistorsSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ResistorsSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ResistorsSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,34 @@
+.PS
+# `ResistorsSVG.m4'
+cct_init(svg_font(sans-serif,11pt__))
+textwid = 1.5
+movewid = 2 pt__
+hm = 2.1
+vm = 0.28
+
+hm = 2.05
+vm = 0.28
+{ {resistor ; move ; svgLink(NportSVG.svg,"`resistor'" ljust)}
+ move right_ hm
+ {resistor(,,Q) ; move ; "`resistor(,,Q) '" ljust}
+ move right_ hm
+ {resistor(,,E) ; move
+ "`resistor(,,E)'" ljust " svg_equiv `ebox'" ljust}
+}
+ move down vm; right_
+{ {resistor(,,ES) ; move ; "`resistor(,,ES) '" ljust}
+ move right_ hm
+ {resistor(,,H) ; move ; "`resistor(,,H) '" ljust}
+ move right_ hm
+ {ebox(,,,0.5) ; move ; "`ebox(,,,0.5) '" ljust}
+}
+ move down vm; right_
+{ {resistor(,,V) ; move ; "`resistor(,,V) '" ljust}
+ move right_ hm
+ {ebox(,0.5,0.3) ; move ;"`ebox(,0.5,0.3) '" ljust}
+ move right_ hm+4bp__
+ {resistor(,,B) ; move movewid-4bp__ ; "`resistor(,,B) '" ljust}
+}
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ResistorsSVG.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ShiftRSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ShiftRSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ShiftRSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -6,9 +6,7 @@
define(`lg_plen',3)
define(`customFF',`FlipFlopX(wid 10*L_unit ht FF_ht*L_unit,,
- :S;NE:CK;:R, N:PR, :Q;;ifelse(`$1',1,:Q), N:CLR,,
- ifelse(`$1',1,
- line right textht with .end at 2nd last ""+(-textoffset,0.4*textht)))')
+ :S;NE:CK;:R, N:PR, :Q;;ifelse(`$1',1,:svg_ol(Q)), N:CLR,,)')
F0: customFF(1)
@@ -21,8 +19,7 @@
line from T to (T,F0.W3) then to F0.W3.end
NCLR: NOT_gate(right T.x-Serial.x from (Serial,F0.S1.end),N)
- "CLEAR" wid 33bp__ at NCLR.start rjust
- line left last "".wid with .c at last "".n+(0,1.5bp__)
+ "svg_ol(CLEAR)" wid 33bp__ at NCLR.start rjust
CLK: NOT_gate(right T.x-Serial.x from NCLR.start+(0,-BUF_ht*3/2*L_unit))
"CLOCK" at CLK.start rjust
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TTLnandSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TTLnandSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TTLnandSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -48,8 +48,7 @@
line right (N.y-S.y)/2+dimen_/2 from Q3.C
Z: dot
lw = 1.05
- "svg_it(Z = X1 . X2 . X3)" wid lw ljust
- line left lw*0.73 from last "".ne+(0,2*textoffset)
+ "svg_it(Z = svg_ol(X1 . X2 . X3))" wid lw ljust
command "</g>" # end font
.PE
Deleted: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/UNO.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/UNO.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/UNO.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,265 +0,0 @@
-.PS
-# UNOSVG.m4
-log_init
-include(../ics.m4)
-textoffset = 1.5bp__
-svg_font(sans-serif,9.0bp__,textoffset)
-
-divert(-1)
-
- `Header([1|2][A],rows,wid,ht,type)
- arg1: number of columns; A= type A
- arg2: pins per column
- arg3,4: custom wid, ht
- arg5: eg fill_(0.9)'
-define(`Header',
-`[ define(`m4tp',ifinstr(`$1',A,A))define(`m4Hq',patsubst(`$1',A))dnl
- define(`m4Hn',`ifelse(m4Hq,,1,m4Hq)')dnl
- define(`m4Hm',`ifelse(`$2',,2,`$2')')dnl
- define(`m4Hw',`ifelse(`$3',,`m4Hn*L_unit*3',`($3)')')dnl
- define(`m4Hh',`ifelse(`$4',,`m4Hm*L_unit*3',`($4)')')dnl
- Block: rotbox(m4Hw,m4Hh,`$5')
- ifelse(`m4tp',A,`pushdef(`L_unit',(linewid/6))')
- define(`m4Hct',1)dnl
- for_(1,m4Hm,1,
- `HeaderPin(Block.NW+vec_(L_unit*3/2,-(m4x-1/2)*m4Hh/m4Hm),
- eval(m4Hct-1), P`'m4Hct,w) define(`m4Hct',incr(m4Hct))
- ifelse(m4Hn,2,`HeaderPin(Block.NE+vec_(-L_unit*3/2,-(m4x-1/2)*m4Hh/m4Hm),
- 1, P`'m4Hct,e) define(`m4Hct',incr(m4Hct))') ')
- ifelse(`m4Hq',A,`popdef(`L_unit')')
- `$6' ]')
- `HeaderPin(location,type,Picname,
- n|e|s|w,[length][;pinsize])
- arg2: 0= square'
-define(`HeaderPin',
- `ifinstr(`$5',;,
- `stacksplit_(`m4Hdr',`$5',;)dnl
- define(`m4Hps',ifelse(m4Hdr,,`L_unit',m4Hdr))popdef(`m4Hdr')dnl
- define(`m4Hpl',ifelse(m4Hdr,,`lg_plen*L_unit',m4Hdr))popdef(`m4Hdr') ',
- `define(`m4Hps',L_unit)dnl
- define(`m4Hpl',`ifelse(`$5',,lg_plen*L_unit,`$5')')')dnl
- ifelse(`$1',,,`move to `$1';')
- ifelse(`$3',,,`$3':) line to ifelse(
- `$4',n,`rvec_(0,m4Hpl)', `$4',e,`rvec_(m4Hpl,0)',
- `$4',s,`rvec_(0,-m4Hpl)', `rvec_(-m4Hpl,0)')
- ifelse(`$3',,,Pin`$3':) ifelse(ifelse(`$2',,0,`$2'),0,
- `rotbox(m4Hps,m4Hps,fill_(1))',
- `circle diam m4Hps fill_(1)') at last line.start ')
-
-define(`brdge',`eleminit_(`$1')
- define(`m4h',ifelse(`$2',,`sourcerad_',`($2)/2'))dnl
- { line to rvec_(rp_len/2-m4h/2,0)
- move to rvec_(m4h/2,0)
- for m4ng=75 to 255 by 180 do {{
- m4fshade(0, arc cw from rvec_(Rect_(m4h/2,m4ng)) \
- to rvec_(Rect_(m4h/2,-m4ng)) \
- with .c at Here ) }}
- line from rvec_(m4h/2,0) to rvec_(rp_len/2,0) }
- { [box invis ht_ m4h wid_ m4h] at rvec_(rp_len/2,0) }
- line to rvec_(rp_len,0) invis ')
-
-define(`ATMEGA16U2',`[
- Chip: box wid 10*lg_pinsep ht 25*lg_pinsep
- Loopover_(`x',
- `Arightpin(patsubst(x,;,`,'))',
- 6;PD0, 7;PD1, 8;PD2, 9;PD3, 10;PD4, 11;PD5, 12;PD6, 13;PD7,
- 131;nul,
- 5;PC2, 26;PC4, 25;PC5, 23;PC6, 22;PC7,
- 132;nul,
- 133;nul,
- 14;PB0, 15;PB1, 16;PB2, 17;PB3, 18;PB4, 19;PB5, 20;PB6, 21;PB7)
- Loopover_(`x',
- `Aleftpin(patsubst(x,;,`,'))',
- 33;PAD,
- 100;nul,
- 28;UGND, 29;D`'svg_it(+), 30;D`'svg_it(-), 31;UVCC, 27;UCAP,
- 101;nul, 102;nul,
- 3;GND, 4;VCC, 103;nul,
- 104;nul,
- 32;AVCC,
- 105;nul, 106;nul,
- 1;XTAL1,
- 107;nul,
- 2;XTAL2(PC0),
- 108;nul, 109;nul)
- lg_pin(Pin109+(0,lg_pinsep),RESET,Pin24,wN,24,pinlen)
- ]')
-define(`Aleftpin',`move to Chip.sw+(0,m4Lx*lg_pinsep)
- Pin`$1': ifelse(`$2',nul,Here,dnl
- `line left pinlen "`$1'" above
- "`$2'" ljust at last line.start')')
-define(`Arightpin',`move to Chip.se+(0,m4Lx*lg_pinsep)
- Pin`$1': ifelse(`$2',nul,Here,dnl
- `line right pinlen "`$1'" above
- "`$2'" rjust at last line.start')')
-
-define(`ATMEGA328P',`[
- Chip: box wid 10*lg_pinsep ht 23*lg_pinsep
- Loopover_(`x',
- `Arightpin(patsubst(x,;,`,'))',
- 2;PD0, 3;PD1, 4;PD2, 5;PD3, 6;PD4, 11;PD5, 12;PD6, 13;PD7,
- 100;nul,
- 23;PC0, 24;PC1, 25;PC2, 26;PC3, 27;PC4, 28;PC5,
- 101;nul,
- 14;PB0, 15;PB1, 16;PB2, 17;PB3, 18;PB4, 19;PB5)
- Loopover_(`x',
- `Aleftpin(patsubst(x,;,`,'))',
- 201;nul, 202;nul, 203;nul, 204;nul, 205;nul, 206;nul, 207;nul, 208;nul,
- 209;nul,
- 8;GND, 7;VCC,
- 301;nul,
- 22;AGND, 20;AVCC, 21;AREF,
- 302;nul,
- 9;XTAL1,
- 303;nul,
- 9;XTAL2,
- 304;nul, 305;nul)
- lg_pin(Pin305+(0,lg_pinsep),RESET,Pin1,wN,1,pinlen)
- ]')
-
-divert(0)dnl
-
- maxpswid = 20
- maxpsht = 20
-
- define(`pinlen',`30bp__')
- define(`lg_pinsep',(1.2*lg_pinsep))
- del = lg_pinsep
-
- U3: ATMEGA16U2
- `"ATMEGA16U2-MU(R)"' at U3.Chip.s below
- `"U3"' at U3.Chip.nw ljust above
- ZU4: ATMEGA328P with .Chip.nw at U3.Chip.sw+(0,-1)
- `"ATMEGA328P-PU"' at ZU4.Chip.s below
- `"ZU4"' at ZU4.Chip.nw ljust above
-
- dot(at U3.Pin2.end)
- R1: resistor(down_ 2*lg_pinsep,,E)
- rlabel(,"R1" rjust "1M" rjust)
- dot
- dot(at R1.start-(2*del,0))
- xtal(down_ 2*lg_pinsep)
- rlabel(16,,MHz); dot
- XT2: dot(at last line.start-(2*del,0)); { "XT2" at last [].n above }
-
- Br1: brdge(from U3.Pin33.end to (XT2,U3.Pin33)); BRE: dot
- line to (Here,U3.Pin28) then to U3.Pin28.end
- {"UGND" at (Br1,Here) above}
-
- XT1: dot(at XT2-(del,R1.len)); { "XT1" at last [].n above }
- line from XT1 to U3.Pin1.end
- line from U3.Pin2.end to (XT1,XT2)
- C11: capacitor(left_ 3*del); rlabel(,C11); llabel(,22pF)
- C9: capacitor(from XT1 to (Here,XT1)); {"C9" "22pF" at last [].s+(0,-11bp__)}
- { line to C11.end }
- dot
- G1: ground(,,E); { "GND" at last line.c below }
- line from XT1 down_ 3*del; continue to (G1,Here); dot(,,1)
- {"XT3" at last [].n above}
- dot(at Here+(0,-3/2*del),,1); {"XT4" at last [].n above}
- { line to (XT2,Here) then to XT2 chop dotrad_ chop 0 }
- USBVCC: dot(at Here+(0,-7/2*del),,1)
- {"USBVCC" at last [].n-(3/2*del,0) above ljust}
- { line to (Here,U3.Pin31) chop dotrad_ chop 0; continue to U3.Pin31.end }
- dot(at Here+(2*del,0),,1); {"VUCAP" at last [].e+(0,-5bp__) ljust}
- line to (Here,U3.Pin27) chop dotrad_ chop 0; dot
- line from U3.Pin27.end to (G1.x-4.5*del,U3.Pin27.y)
- C8: capacitor(down_ to (Here,Br1)); llabel(C8,,1`'svg_micro)
- Bus1: dot
-
- dot(at U3.Pin33.end)
- move to U3.Pin3.end; line to (Here,U3.Chip.s)
- G2: ground(,T,E); {"GND" at last line.c below }
-
- dot(at U3.Pin32.end)
- {line to U3.Pin4.end; dot}
- line left del; ground(,,E,U); {"svg_it(+)5V" at last line.c above}
-
- G3: ground(at (C8.x-del,G2.y),T,E); {"GND" at last line.c below }
- capacitor(up_ to (Here,C8.start)); { llabel(100n,,C7) }
- line to (Here,U3.Pin4) then to U3.Pin4.end
-
- line from U3.Pin30.end to (G1.x-2*del,U3.Pin30.y); continue to (Here,U3.Pin1)
- { "RD`'svg_it(-)" above rjust }; continue left_ 2*del
- RN3A: resistor(left_ 3/2*dimen_,,E); rlabel(,22R RN3A)
- Dm: line left_ 7*del
-
-USB: [ K: box invis wid dimen_/2 ht 5*lg_pinsep
- "USB" rjust at K.e
- line thick 1.5 from K.nw to K.ne then to K.se then to K.sw
- Loopover_(`x',
- `Pin`'m4Lx: K.ne-(0,m4Lx/5*K.ht)
- "x" at Pin`'m4Lx ljust above',
- 1 XUSB, 2 D`'svg_it(-), 3 D`'svg_it(+), 4 UGND)
- P_1: K.sw; {"P$`1'" at P_1 below rjust}
- P_2: K.s; {"P$`2'" at P_2 below ljust}
- ] with .Pin2 at Here; "X2" at USB.ne above rjust
-
- move to U3.Pin29.end
- line to (G1.x-3*del,Here.y); continue to (Here,Dm-(0,lg_pinsep))
- { "RD`'svg_it(+)" above rjust}
- continue to (RN3A.start,Here)
- RN3D: resistor(left_ 3/2*dimen_,,E); llabel(,22R RN3D)
- line to USB.Pin3
-
- dot(at RN3A.end); line to (Here,RN3D)
- Z2: variable(`resistor(down_ to (Here,U3.Pin27),,E); rlabel(Z2)',NN)
- dot(at RN3D.end-(2*del,0))
- Z1: variable(`resistor(to (Here,U3.Pin27),,E); rlabel(Z1)',NN)
- dot; line to (Z2,Here)
- move up Z1.len/4 from last line.c; "CG0603MLC-05E" "X 2"
-
- line down_ del from USB.P_1; continue to (USB.P_2,Here); dot
- line from USB.P_2 to (USB.P_2,Z1.end) then to Z1.end
- dot(at (USB.P_2,Here)+(3/2*del,0)); line to (Here,USBVCC)
- dot(,,1); {"USHIELD" at last [].n+(4bp__,0) above}
-
- L1: reversed(`inductor',down_ from Z1.end to (Z1,C8.end),W,,M)
- rlabel(L1); llabel( BLM21); dot
- { dot(at (Z2,Here)); line to (Here,U3.Pin28); dot(,,1)
- "UGND" at last [].n above }
- line from USB.Pin1 to (Z2,USB.Pin1) then up 2*del
- XUSB: dot(,,1); {"XUSB" at last [].n above}
- line from (Z1,USB.Pin3) to (Z1,XUSB);
- DP: dot(,,1); {"D`'svg_it(+)" at last [].n above}
- dot(at (DP,USB.Pin2)-(2*del,0)); line to (Here,XUSB)
- DM: dot(,,1); "D`'svg_it(-)" at last [].n above
- line from USB.Pin4 to (DM,USB.Pin4) then to (DM,BRE) then to BRE
-
- dot(at (U3.Chip.w.x-3*lg_pinsep,U3.Pin24.y))
- D3: diode(up_ 7*lg_pinsep); llabel(,,D3)
- dot(at (D3.start-(2*del,0)))
- RN1C: resistor(up_ D3.len,,E); llabel(,10K); llabel(RN1C); dot
- line from D3.end to (Here.x-2*del,Here.y)
- right_
- ICSP1: Header(2A,3,4*del,3*lg_pinsep) with .P2.end at Here
- "ICSP1" at last [].Block.nw above ljust
- "3X2 M" at last [].Block.sw below ljust
- for_(1,5,2,`"m4x" at ICSP1.P`'m4x.end above ljust')
- for_(2,6,2,`"m4x" at ICSP1.P`'m4x.end above rjust')
-
- dot(at ICSP1.P2.end+(del/2,0)); line up_ 2*del
- G5: ground(,T,E); "svg_it(+)5V" above
- ground(at (G5,ICSP1.P6),,E); {"GND" at last line.w below rjust}
- {line to ICSP1.P6.end}
- R2: dot(at ICSP1.P5.end-(lg_pinsep/2,0)); {line to ICSP1.P5.end}
- { line to (Here,G5); dot(,,1); "RESET2" at last [].n above }
- line to (R2,U3.Pin24) then to U3.Pin24.end
- line from ICSP1.P4.end to (U3.Pin24.end,ICSP1.P4); dot
- { line to (Here,G5); dot(,,1); "MOSI2" at last [].n above }
- Turn: (U3.Pin21.end.x+4*lg_pinsep,Here.y)
- line to (Turn,Here) then down Here.y-U3.Pin16.y then to U3.Pin16.end
- line from ICSP1.P3.end to (R2.x-lg_pinsep,ICSP1.P3.y) \
- then down R2.y-U3.Pin24.y
- continue to (D3.x+2*del,Here.y) then up ICSP1.P4.y-Here.y-2*lg_pinsep
- continue to (Turn.x-2*lg_pinsep,Here.y) then down Here.y-U3.Pin15.y \
- then to U3.Pin15
- move to ICSP1.P1.end; line left Here.x-R2.x+2*lg_pinsep; dot
- { line to (Here,G5); dot(,,1); "MISO2" at last [].n above rjust }
- line down Here.y-U3.Pin24.y-2*lg_pinsep
- continue to (D3.x+del,Here.y) then up ICSP1.P4.y-Here.y-lg_pinsep
- continue to (Turn.x-lg_pinsep,Here.y) then down Here.y-U3.Pin17.y \
- then to U3.Pin17
-
- command "</g>"
-.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/UNOSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/UNOSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/UNOSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -507,8 +507,8 @@
"LP2985-33DBVR" at U2.s below
"U2" above ljust at U2.nw
"3" above rjust at U2.w; line left del from U2.w then up_ lg_pinsep; dot
- "ON/OFF" at U2.w ljust
- line right_ textht*0.66*3 from U2.w+(textht*0.66*5,textht)
+ "ON/svg_ol(OFF)" at U2.w ljust
+# line right_ textht*0.66*3 from U2.w+(textht*0.66*5,textht)
U2P2: U2.w+(0,-lg_pinsep); "2" at U2P2 above rjust; "GND" at U2P2 ljust
line from U2P2 left del then down_ del
G15: ground(,T,E); "GND" at last line.c below
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/WindingsSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/WindingsSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/WindingsSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,6 +1,6 @@
.PS
# Windings.m4
-cct_init(svg_font(sans-serif,11bp__))
+cct_init(svg_font(sans-serif,10bp__))
textoffset = 3bp__
define(`vlight',`rgbstring(0.9,0.9,0.9)')
Deleted: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Y14-5SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Y14-5SVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Y14-5SVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,173 +0,0 @@
-.PS
-# ASME_Y14-5.m4
-# https://en.wikipedia.org/wiki/Geometric_dimensioning_and_tolerancing
-# See the ASME Y14.5 standard, Figure 6-30.
-scale = 100/3
-cct_init
-include(../ASME_Y14-5.m4)
-ifsvg(`svg_font(sans-serif,10bp__)',
-`textht = 10bp__*2/3
- iflatex(`command "{\sf"')')
-# ASME Y14.5 specs:
- arrowht = textht*0.8
- arrowwid = textht*0.6
- maxpswid = 12
-
-# Diameters
- d1 = (20.13+20.00)/2
- d2 = 31.7
- d3 = 36
- d4 = (40.60+40.45)/2
- d5 = 57
- d6 = 86
- d7 = 100
- d8 = 8.0
- adj = 1.5
-
-Section: [
- Orig: (0,0)
- T0: (0,-d7/2)
- T1: (6,-d5/2)
- T2: (15.5,-d3/2)
- T3: (22,-d3/2-adj)
- T4: (32,-d2/2)
- T5: (41.3,0)
- T6: (9.5,-d4/2)
-# for_(0,5,1,`"m4x" at T`'m4x')
-# Hatching
- H: hatchbox(invis ht d7 wid 41.3,2,thick 0.4,-45) with .w at Orig
- box invis fill_(1) wid T5.x-T1.x ht T1.y-H.s.y with .se at H.se
- box same with .ne at H.ne
- box invis fill_(1) wid T3.x-T2.x ht T2.y-T1.y with .nw at T2
- box same with .sw at (T2.x,-T2.y)
- box invis fill_(1) wid T4.x-T3.x ht T3.y-T1.y with .nw at T3
- box same with .sw at (T3.x,-T3.y)
- box invis fill_(1) wid T5.x-T4.x ht T4.y-T1.y with .nw at T4
- box same with .sw at (T4.x,-T4.y)
-# Section outline lower
- line from (0,-d4/2) to T0 then right T1.x-T0.x then up 1
- arcto(T1,(T2,T1),1)
- line to (T2,T1) then up 1
- arcto(T2,(T3,T2),1)
- arcto((T3,T2),T3,0.5)
- arcto(T3,(T4,T3),0.5)
- arcto((T4,T3),T4,1)
- arcto(T4,(T5,T4),1)
- line to (T5,T4) then to (T5.x,-T4.y) then left 1
-# Section outline upper
- line from (0,d4/2) to (0,-T0.y) then right T1.x-T0.x then down 1
- arcto((T1.x,-T1.y),(T2.x,-T1.y),1)
- line to (T2.x,-T1.y) then down 1
- arcto((T2.x,-T2.y),(T3.x,-T2.y),1)
- arcto((T3.x,-T2.y),(T3.x,-T3.y),0.5)
- arcto((T3.x,-T3.y),(T4.x,-T3.y),0.5)
- arcto((T4.x,-T3.y),(T4.x,-T4.y),1)
- arcto((T4.x,-T4.y),(T5.x,-T4.y),1)
- line to (T5.x,-T4.y)
-
- box wid 6 ht d8 fill_(1) with .w at (0,d6/2)
- box wid 6 ht d8 fill_(1) with .w at (0,-d6/2)
- box invis wid T6.x ht d4 fill_(1) with .w at Orig
- box wid T5.x-T6.x ht d1 fill_(1) with .e at T5
-
- line from (Orig.x,-T6.y) to (Orig.x,T6.y)
- arcto(T6,(T6,Orig),1)
- arcto((T6.x,-T6.y),(0,-T6.y),1)
- line to (0,-T6.y)
-
-define(`dialabel',
-`[tmpthick = linethick; linethick_(1)
- [Y14_dia_]; [$1 wid ifelse(`$2',,textht,`$2')] with .w at last [].e+(0.5,0)
- linethick_(tmpthick)]')
-
-thinlines_
- dimension_(from (0,T6.y) to (0,-T6.y),40,dialabel("40.60" "40.45",12),textht*3)
- line up 4 from AE_dimen_.end
- Y14_frame(Y14_per_,Y14_dia_;"0";"(M)","A") with .sw at Here
- Y14_frame("B") with .s at last [].n+(0,6)
-thicklines_(1)
- datumarrow(from last [].s to 2nd last [].n)
-thinlines_
- dimension_(from T2 to (T2.x,-T2.y),30,
- dialabel("35.5" "36.0",12),textht*3)
- dimension_(from T0 to T0+(T1.x,0),-8," 6.1 " " 5.9 ",textht)
- dimension_(from S_dimen_.end to S_dimen_.end+(T2.x,0),-9,
- "15.4" "15.6",textht*4)
- line from E_dimen_.start to (T2,T1) chop 0 chop 1
- dimension_(from S_dimen_.end to S_dimen_.end+(T3.x,0),-9,
- "21.9" "22.1",textht*4)
- line from E_dimen_.start to T3 chop 0 chop 1
- dimension_(from S_dimen_.end to S_dimen_.end+(T4.x,0),-9,
- "31.9" "32.1",textht*4)
- line from E_dimen_.start to (T4,T3) chop 0 chop 1
- dimension_(from S_dimen_.end to S_dimen_.end+(T5.x,0),-9,
- "41.2" "41.4",textht*4)
- line from E_dimen_.start to (T5,T4) chop 0 chop 1
- line from S_dimen_.start to T0 chop 0 chop 1
- dimension_(from (0,d7/2) right T6.x,8,"9.6" "9.4",3*textht)
- line from E_dimen_.start to (T6.x,d4/2) chop 0 chop 1
- ctrline(from (-3,0) to T5+(3,0),T5.x/2)
- ctrline(from (-3,d6/2) right T1.x+6)
- ctrline(from (-3,-d6/2) right T1.x+6)
- dimension_(from T5-(0,d1/2) to T5+(0,d1/2),-14,
- dialabel("20.13" "20.00",4*textht),textht*3)
- dimension_(from T5-(0,d2/2) to T5+(0,d2/2),-35,
- dialabel("31.8" "31.6",3*textht),textht*3)
- arrow <- from (T5.x+6,d1/2) by (Rect_(20,75)) then right 6
- Y14_frame(Y14_cir_,"0.06" wid 3*textht,"A","B") with .w at Here
- Y14_frame("C") with .n at last [].se+(-6,-8)
-thicklines_(1)
- datumarrow(from last [].n up 8)
-thinlines_
- arrow <- from (T5.x+6,-d2/2) by (Rect_(10,-75)) then right 4
- Y14_frame(Y14_cir_,"0.1" wid textht*2,"C") with .w at Here
- arrow <- from ((T3.x+T4.x)/2,d3/2+adj) by (Rect_(30,75)) then right 4
- "M42 X 1.5 - 6g" wid 9*textht ljust
- Y14_frame(Y14_pos_,Y14_dia_;"0.1" wid textht*2;"(M)","C";"(M)") \
- with .nw at last "".sw+(0,-2)
- line from (T2.x,-T1.y) up 25 chop 1 chop 0
- Y14_frame(Y14_par_,"0.06" wid 3*textht,"A") with .sw at Here
- Y14_frame(Y14_sur_," 0.1 " wid 3*textht,"A") with .sw at last [].nw
- arrow <- from (0,-d6/2+10) left 13
- Y14_frame(Y14_fla_,"0.02" wid 4*textht) with .e at Here
- Y14_frame("A") with .n at last [].s+(0,-6)
- datumarrow(from last [].n up 6)
- ]
-
-Topview:[
- C: circle diam d7
- for i=0 to 7 do { circle diam d8 at C+(Rect_(d6/2,i/8*360)) }
- C5: circle diam d5 at C
- C4: circle diam d3+2*adj at C
- C3: circle dashed diam d3 at C
- C2: circle diam d2 at C
- C1: circle diam d1 at C
-
-thinlines_
- dimension_(from C.w-(0,10) to C.e-(0,10),-C.rad-15,
- dialabel("100" "99",textht*3),textht*5)
- dimension_(from C5.w-(0,5) to C5.e-(0,5),-C.rad-5,
- dialabel("57.2" "56.8",textht*4),textht*5)
- arrow <-> from C+(Rect_(d6/2,-120)) to C+(Rect_(d6/2,60))
- line from last arrow.end to C+(Rect_(d7/2+6,60)) then right 4
- dialabel("86.2" "85.8",textht*4) with .w at Here+(1,0)
- ctrline(from (C.x-(d6-d7/2),C.y) to (C.x+(d6-d7/2),C.y))
- ctrline(from (C.x,C.y-d6/2+d8/2) to (C.x,C.y+d6/2-d8/2))
- for_(0,315,45,`ctrarcr(C,d6/2,(m4x-22.5)*dtor_,(m4x+22.5)*dtor_)
- ctrline(from C+(Rect_(d6-d7/2,m4x)) to C+(Rect_(d7/2,m4x))) ')
- arcdimension_(from C+(0,d7/2) to C+(Rect_(d7/2,135)) with .c at C,
- 8,"8X 45`'iflatex(^\circ)" wid textht*3.5,15,1)
- ifsvg("svg_deg" wid textht*2/3 with .w at last "".e)
- move to C+(0,d6/2)
- arrow <- from Here+(Rect_(8/2,75)) to Here+(Rect_(25,75)) then right_ 3
- "8X" wid 2*textht ljust
- linethick_(1); [Y14_dia_] with .w at last "".e+(1,0)
- "7.9 - 8.1" wid 8*textht ljust
- Y14_frame(Y14_pos_,Y14_dia_;"0.14" wid 3*textht;"(M)","A","C") \
- with .nw at 2nd last "".sw+(0,-2)
-
- ] with .C at Section.Orig+(4.5*scale,0)
-
-
-command iflatex(`"}"',ifsvg(`"</g>"'))
-.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/controlSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/controlSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/controlSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,22 +1,24 @@
.PS
-# control.m4
-#.PS 5i
-cct_init(svg_font(sans-serif,11bp__))
+# controlSVG.m4
+gen_init(svg_font(Times,11bp__))
linewid = linewid*0.8
- circlerad = 0.35/2
+ circlerad = 0.25/2
bw = boxwid/2
bh = boxht/2
+ maxpsht = 15
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . #
+
PID: [
{"svg_it(r(s))" above ljust}
arrow
S1: circle
line right "svg_it(e(s))" above
- { arrow right ; box ht bh wid bw "svg_it(K`'svg_sub(p))"
+ { arrow right ; box ht bh wid bw "svg_it(K)svg_sub(p)"
arrow right linewid-circlerad ; S2: circle }
- { line up linewid ; arrow right ; box ht bh wid bw "svg_it(K`'svg_sub(D) s)"
+ { line up linewid ; arrow right ; box ht bh wid bw "svg_it(K)svg_sub(D)s"
line to (S2,Here) ; arrow to S2.n }
- { line down linewid ; arrow right
- box ht bh wid bw "svg_it(K`'svg_sub(I) /s)"
+ { line down linewid ; arrow right ; box ht bh wid bw "svg_it(K)svg_sub(I)/s"
line to (S2,Here) ; arrow to S2.s }
arrow right from S2.e "svg_it(u(s))" above
box "svg_it(G(s))"
@@ -23,66 +25,190 @@
arrow right ; "svg_it(y(s))" above rjust at Here+(0,2pt__)
line down boxht*3/2 from last arrow.c then left last arrow.c.x-S1.x
arrow to S1.s
- "-" below rjust
- ]
- "(a) PID control" below ljust at PID.sw+(0,-5pt__)
+ "svg_it(-)" rjust at Here+(-2bp__,-2bp__)
+]
+ "(a) svg_it(PID) control" below ljust at PID.sw+(0,-5pt__)
-Obs: [ {"svg_it(r)" above ljust}
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . #
+
+# https://tex.stackexchange.com/questions/575592/how-to-create-a-controls-system-diagram
+Observer: [
+ define(`thickarrow',`arrow thick 3 wid 7bp__')
+ define(`thickline',`line thick 3')
+ fillval = 0.6
+ boxwid = 0.3
+ boxht = 0.4
+ circlerad = 0.1
+ {"svg_it(r)" above ljust}
+R: arrow
+S: circle fill
+ {"svg_thinsp`'svg_it(-)" below ljust at S.s
+ "svg_it(+)" above rjust at S.w+(2bp__,0)}
+{ PLT: box invis fill 0.9 wid 3.1 ht 1.2 with .nw at Here+(0.3,boxht*3/4)
+ "svg_it(Plant)" at PLT.sw above ljust }
+U: arrow right 0.4
+ {"svg_it(u)" at last arrow+(2bp__,0) above }
+Bp: box fill "svg_it(B)"
+ thickarrow right 0.4
+Sp: circle fill
+ {"svg_thinsp`'svg_it(+)" below ljust at Sp.s
+ "+" above rjust at Sp.w+(2bp__,2bp__)}
+ thickarrow right 0.4
+ {"svg_bf(x)" at last arrow + (0,7bp__); "." at last "".n +(0,textoffset)}
+Ip: box fill "svg_it(I/s)"
+ thickarrow right 1
+ {"svg_bf(x)" at last arrow + (0,7bp__) }
+Cp: box fill "svg_it(C)"
+# print Cp.e.x - Bp.w.x + 0.2
+ thickline right 0.4
+Yp: thickarrow
+ {"svg_bf(y)" at last arrow + (0,7bp__) }
+Ap: box fill "svg_it(A)" with .n at Ip.s+(0,-boxht/2)
+ thickarrow <- from Ap.e right 0.4 then up Ip.y-Ap.y
+ thickarrow from Ap.w to (Sp,Ap) then to Sp.s
+# print PLT.n.y-Ap.s.y+0.1
+#
+K: box fill "svg_it(K)" at Ap + (0,-boxht*3/2)
+ arrow from K.w to (S,K) then to S.s
+ {OBS: box invis fill 0.9 wid 4.3 ht 1.8 with .nw at (S.w,K.s)-(0.1,0.1)
+ "svg_it(Observer)" at OBS.sw ljust above }
+Io: box fill "svg_it(I/s)" at K + (0,-boxht*3/2)
+ thickarrow <- from Io.w left 0.4
+ {"svg_bf(x)" at last arrow + (0,7bp__); "svg_circ" at last ""
+ "." at last "".n above}
+Sxo: circle fill
+ {"svg_thinsp`'svg_it(+)" below ljust at Sxo.s
+ "svg_it(+)" above rjust at Sxo.w+(2bp__,2bp__)}
+ thickarrow <- left 0.4
+SLo: circle fill
+ {"svg_thinsp`'svg_it(+)" below ljust at SLo.s
+ "svg_it(+)" above rjust at SLo.w+(2bp__,2bp__)}
+ thickarrow <- left 0.4
+Bo: box fill "svg_it(B)"
+ arrow from 1/4 between U.start and U.end up boxht*3/4 \
+ then left 2*boxht then down Bp.y-Bo.y+boxht*3/4 then to Bo.w
+Ao: box fill "svg_it(A)" with .n at Io.s+(0,-boxht/2)
+ thickline from Io.e right 0.4
+ {thickarrow <-> from K.e to (Here,K.e) then to (Here,Ao) then to Ao.e
+ thickarrow from Ao.w to (Sxo,Ao.w) then to Sxo.s }
+Xhat: Here
+Co: box fill "svg_it(C)" at (Cp,Here)
+ thickarrow right 0.4
+ {"svg_bf(y)" at last arrow + (0,7bp__); "svg_circ" at last ""}
+ { thickarrow from Xhat to Co.w }
+ {"svg_it(x)" at last arrow + (0,7bp__); "svg_circ" at last "" }
+Syo: circle fill
+ {"svg_it(+)" above ljust at Syo.n
+ "svg_it(-)" above rjust at Syo.w+(2bp__,2bp__)}
+ thickarrow <- from Syo.n to (Syo,Cp)
+Lo: box fill "svg_it(L)" with .n at Ao.s+(0,-boxht/2)
+# print Io.n.y+0.1 - (Lo.s.y-0.1)
+ thickarrow from Syo.s down Syo.s.y-Lo.y then to Lo.e
+ thickarrow from Lo.w to (SLo,Lo.w) then to SLo.s
+ ] with .nw at last [].sw+(0,-0.5)
+
+Eqns: [ {"svg_it(r)" above ljust}
+ ex = textht*2/3
+ define(`DDt',`svg_frac(svg_it(d):1*ex,svg_it(dt):2*ex)')
arrow
S: circle
- "-" below rjust at S.s
+ "svg_it(-)" below rjust at S.s
arrow <- down linewid/2 from S.s
box ht bh wid bw "svg_it(K)"
arrow <- down linewid/2
- line right linewid "svg_it(z)" above
-Obs:box wid linewid*5.5 ht boxht*5/4 "svg_it(dz/dt = (A - LC) z + B u + L y)"
- "Observer" above ljust at Obs.sw
+ line right linewid
+ {"svg_hat(svg_bf(x))" at last line.c above }
+Obs:box wid linewid*5 ht boxht*5/4
+ [ DDt; "svg_hat(svg_bf(x)) svg_it(= (A-LC)) svg_hat(svg_bf(x))
+ svg_it(+ Bu + L)svg_bf(y)" wid 1.5 ljust ] at Obs
+ "svg_it(Observer)" above ljust at Obs.sw
arrow <- right linewid/2 from 3/4<Obs.se,Obs.ne>
line to (Here,S)
{"svg_it(u)" above at Here+(linewid/2,0)}
arrow from S.e to Here+(linewid,0)
-Plant: box wid boxwid*1.7 ht boxht*5/4 \
- "svg_it(dx/dt = Ax + Bu)" "svg_it(y = Cx)"
- "Plant" above ljust at Plant.sw
+Plant: box wid boxwid*3/2 ht boxht*5/4
+ [ DDt; "svg_bf(x) svg_it(= A) svg_bf(x) svg_it(+ Bu)" wid 0.8 ljust
+ "svg_bf(y) svg_it( = C) svg_bf(x)" wid 0.6 ljust \
+ at last "".w + (0,-textht*2) ] at Plant+(0,0.05)
+ "svg_it(Plant)" above ljust at Plant.sw
arrow right from Plant.e
"svg_it(y)" above rjust at Here+(0,2pt__)
move to last arrow.c
line to (Here, 1/4<Obs.se,Obs.ne>)
arrow to (Obs.e,Here)
- ] with .nw at PID.sw+(0,-0.5)
- "(b) Output feedback with a full-order observer" below ljust \
- at Obs.sw+(0,-5pt__)
+ ] with .nw at last [].sw+(0,-0.1)
+ "(b) Plant with feedback from a full-order observer" \
+ below ljust at Eqns.sw+(0,-5pt__)
-NL: [boxwid = boxwid*1.8
- boxht = boxht*3/2
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . #
+
+Multiblock: [
+boxht = 0.4
+boxwid = boxht
+
+define summer { circle
+ {line from last circle.nw to last circle.se
+ line from last circle.sw to last circle.ne
+ "svg_it($1)" at 0.6 between last circle and last circle.n
+ "svg_it($2)" at 0.6 between last circle and last circle.s
+ "svg_it($3)" at 0.6 between last circle and last circle.e
+ "svg_it($4)" at 0.6 between last circle and last circle.w }
+}
+
+ arrow "svg_it(E`'svg_sub(1))" above
+S1: summer(,-,,+)
+ linewid = boxwid/2
+ arrow "svg_epsilon" above
+ [box "svg_it(H)svg_sub(1)"; arrow; box "svg_it(H)svg_sub(2)"]
+ arrow
+S2: summer(-,,,+)
+ arrow
+T: [box "svg_it(H)svg_sub(3)"; arrow; box "svg_it(H)svg_sub(4)"]
+ line
+Y: Here
+ arrow
+ "svg_it(S)svg_sub(1)" above
+R1: box "svg_it(R)svg_sub(1)" at (T.x,T.y+boxht*3/2)
+ arrow from Y to (Y,R1) then to R1.e
+ arrow from R1.w to (S2,R1) then to S2.n
+ "svg_it(n)svg_sub(1)" ljust at S2.n+(0,boxht/2)
+ left
+Rf: [box "svg_it(R)svg_sub(2)"; arrow; box "svg_it(R)svg_sub(3)"] \
+ at ((S1.x+T.x)/2,T.y-boxht*3/2)
+ arrow from T to (T,Rf) then to Rf.e
+ arrow from Rf.w to (S1,Rf) then to S1.s
+ "svg_it(n)svg_sub(2)" at S1.s+(0,-boxht/2) ljust
+] with .nw at Eqns.sw + (0,-0.3)
+ "(c) A multiblock example" below ljust at Multiblock.sw+(0,-5pt__)
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . #
+
+Nonlinear: [boxwid = boxwid*3/2; boxht = boxht*3/2
thicklines_
- scale = scale*0.8
- circlerad = 0.3/2
-R: box wid boxwid*5/4 "reference" "svg_it(R)"
- arrow right linewid*4/3 "svg_it(y`'svg_sub(c ref))" above
-Gh: box wid boxwid*5/4 "\"inverse\"" "of svg_it(G)"
- arrow from Gh.s down "svg_it(y`'svg_sub(m ref))" ljust
+ boxwid = boxwid*0.6
+ boxht = boxht/2
+R: box "reference" "svg_it(R)"
+ arrow right linewid*4/3
+ {"svg_it(y)svg_sub(c)[ref]" at last arrow+(0,textht/3) above }
+Gh: box "\"i`'nverse\"" "of svg_it(G)"
+ arrow from Gh.s down "svg_it(y)svg_sub(m)[ref]" ljust
E: circle
arrow from E.e right "svg_it(e)" above
- box wid boxwid*5/4 "stabilizer" "svg_it(K)"
- arrow "svg_it(du)" above
+ box "stabilizer" "svg_it(K)"
+ arrow "svg_delta`'u" above
D: circle
- line from Gh.e to (D,Gh.e) "svg_it(u`'svg_sub(ref))" above
+ line from Gh.e to (D,Gh.e) "svg_it(u)[ref]" above
arrow to D.n
arrow from D.e right "svg_it(u)" above
G: box "plant" "svg_it(G)"
- arrow <- from G.n up boxht/2
- "disturbance svg_it(z)" above
- arrow right from G.e + (0,boxht/4)
- "svg_it(y`'svg_sub(c))" ljust
- arrow right from G.e + (0,-boxht/4)
- "svg_it(y`'svg_sub(m))" ljust
+ arrow <- from G.n up boxht/2; "disturbance svg_it(z)" above
+ arrow right from G.e + (0,boxht/4); "svg_it(y)svg_sub(c)" wid 0.2 ljust
+ arrow right from G.e + (0,-boxht/4); "svg_it(y)svg_sub(m)" ljust
move to last arrow.c
arrow down Here.y-G.s.y+boxht*2/3 then left Here.x-E.x then to E.s
- "svg_it(-)" at Here + (-0.15,-0.1)
+ "svg_it(-)" rjust below
arrow <- down from R.s
"svg_it(W) control input" at Here - (0,0.1)
-
UL:R.nw +(-boxht/2,boxht/2)
UR:(D.e,UL) + (0.1,0)
line dashed from UL to UR then to (UR,G.s+(0,-boxht*3/2))
@@ -89,9 +215,10 @@
line dashed to (Gh.w,Here) "Controller" above
line dashed to (Here,Gh.s+(0,-boxht/2))
line dashed to (UL,Here) then to UL
- ] with .nw at Obs.sw + (0,-0.5)
- "(c) Nonlinear feedforward (for performance) and small-signal feedback
- (for stability)" wid Obs.wid+0.4 below ljust at NL.sw+(0,-5pt__)
+] with .nw at last [].sw + (0,-0.3)
+ "(d) Nonlinear feedforward (for performance) and small-signal feedback
+ (for stability)" below ljust at Nonlinear.sw+(0,-5pt__)
- command "</g>" # end font
+#print PID.n.y - Nonlinear.s.y
+command "</g>"
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/cscSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/cscSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/cscSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,10 +1,12 @@
-.PS 3.5
+.PS
+#.PS 3.5
# csc.m4
gen_init
-circlerad=1.91*scale
-hubrad=0.10
-s=0.5
+skale = 3.5/3.97*0.9955
+circlerad=1.91*skale
+hubrad=0.10*skale
+s=0.5*skale
define(`midnight',`26,26,112')
define(`white',`255,255,255')
@@ -16,7 +18,7 @@
define(`coord',`(s*(`$1'),s*(`$2'))')
# Circle and spokes
-# [
+CSC: [
rgbdraw(midnight,
linethick=`0.'eval(lwid*15)/(1pt__)
{circle with .c at Here
@@ -74,6 +76,167 @@
resetrgb
linethick=`0.'eval(lwid*15)/(1pt__)
-# ] with .sw at 1,1
+ ]
+Clock: [
+#.PS
+# AntiqueClockSVG.m4
+#gen_init
+svg_font(font-family="sans-serif" font-stretch="condensed")
+# https://tex.stackexchange.com/questions/236923/generate-analog-clock-with-numbered-face-add-seconds-roman-numerals
+
+#svg_rot_init(AntiqueClockSVG)
+#svg_rot_init(test)
+svg_rot_init(cscSVG)
+
+# `hms2deg(hr,min,sec) hr:min:sec to degrees
+# blank arg1: degrees for minute hand
+# blank arg1 and arg2: degrees for second hand'
+define(`hms2deg',`ifelse(`$1',,
+ `ifelse(`$2',,
+ `(90-pmod(ifelse(`$3',,0,`$3'),60)/60*360)',
+ `(90-(pmod(`$2',60)/60 + pmod(ifelse(`$3',,0,`$3'),60)/60/60)*360)')',
+ `(90-(pmod(`$1',12) + pmod(ifelse(`$2',,0,`$2'),60)/60 + dnl
+ pmod(ifelse(`$3',,0,`$3'),60)/3600)/12*360)')')
+
+# `SecondHand(length,hr,min,sec)'
+define(`SecondHand',`[ shsf = (`$1')/3.2
+ C: Here
+ { L: rpoint_(to (Rect_(`$1',hms2deg(,,`$4')))) }
+ line thick 8*shsf to rvec_(`$1',0)
+ ]')
+
+# `AntiqueMinuteHand(length,hr,min,sec)'
+define(`AntiqueMinuteHand',`[ mhsf = (`$1')/2.84
+ L: rpoint_(to (Rect_(`$1',hms2deg(,`$3',`$4'))))
+ C: circle fill_(0) diam 0.47*mhsf at L.start
+ move to C
+ spline from rvec_(0,0.047*mhsf) \
+ to rvec_(1.65*mhsf,0.11*mhsf) \
+ then to rvec_(`$1',0.018*mhsf) \
+ then to rvec_(`$1',-0.018*mhsf) \
+ then to rvec_(1.65*mhsf,-0.11*mhsf) \
+ then to rvec_(0,-0.047*mhsf) \
+ shaded rgbstring(0,0,0)
+ ]')
+
+# `AntiqueHourHand(length,hr,min,sec)'
+define(`AntiqueHourHand',`[ hhsf = (`$1')/2.2
+ L: rpoint_(to (Rect_(`$1',hms2deg(`$2',`$3',`$4'))))
+ C: circle fill_(0) diam 0.6*hhsf at L.start
+ move to C
+ v = 0.25*hhsf
+ { line to rvec_(1.1*hhsf,0) thick 0.15/(1bp__)*hhsf }
+ C1: rvec_(1.25*hhsf,0)
+ d = `$1'-1.25*hhsf
+ q = 1bp__*hhsf
+ r1 = (d^2 + q^2 - v^2)/(v-q)/2
+ tang = atan2((r1+q),d)
+ for i=0 to 3 do {
+ X[i]: C1+vec_(rect_(v, pi_+i/3*( tang-pi_)))
+ Y[i]: C1+vec_(rect_(v,-pi_+i/3*(-tang+pi_)))
+ }
+ n = 3
+ for i=1 to 4 do { aa = -pi_+tang + i/4*(pi_/2-tang)
+ XX: (d,r1+q)+(rect_(r1,aa))
+ n+=1;
+ X[n]: C1+vec_(XX.x, XX.y)
+ Y[n]: C1+vec_(XX.x,-XX.y)
+ }
+ m = n
+ for i= 0 to m do { n+=1; X[n]: Y[m-i] }
+ fitcurve(X,n,shaded rgbstring(0,0,0))
+ ]')
+
+define(`AntiqueClock',`[ # h,m,s,diam
+# Clock size parameters:
+ hour = ifelse(`$1',,3,`$1')
+ minute = ifelse(`$2',,41,`$2')
+ second = ifelse(`$3',,51,`$3')
+ # outer radius
+ ifelse(`$4',,`skale=0.5; r1=2',`r1=(`$4')/2; skale=r1/4')
+ r2 = r1 - 0.5*skale
+ r3 = r2 - 0.14*skale
+ r4 = r3 - 0.35*skale
+ r5 = r4 - 0.17*skale
+ r6 = r5 - 0.63*skale
+ r7 = r6 - 0.17*skale
+ shadelinethick = 1.0
+
+C: circle thick 0.2 rad r1
+
+define shadeline {
+ s = 1-($`'1)*2
+ v = r*s
+ h = sqrt(r^2-v^2)
+ t = 1-abs(s)
+ line from (vrot_(-h,v,cost,sint)) to (vrot_(h,v,cost,sint)) \
+ thick shadelinethick outlined rgbstring(t,t,t)
+ }
+
+ r = r1 # Bezel outer
+ nlines = int(2*r/(shadelinethick pt__)*1.1)
+ cost = cosd(10); sint = sind(10);
+ ShadeObject(shadeline,nlines, 0, 0,0,0, 0.5, 1,1,1, 1, 0,0,0 ) at C
+
+ r = r2 # Bezel inner
+ nlines = int(2*r/(shadelinethick pt__)*1.1)
+ cost = cosd(-10); sint = sind(-10);
+ ShadeObject(shadeline,nlines, 0, 0,0,0, 0.25, 0.8,0.8,0.8, 0.5, 1,1,1,
+ 0.75, 0.8,0.8,0.8, 1, 0,0,0 ) at C
+
+# Clock face
+Face: circle thick 0 fill_(1) rad r3 at C
+ circle rad r4 at C
+ circle rad r5 at C
+ circle rad r6 at C
+ circle rad r7 at C
+# Ad hoc shift of rotated SVG text
+ define adj { (-cosd($`'1)*textht*0.5*sign(180-($`'1)),\
+ (0.25+0.25*cosd(2*($`'1)))*textht) }
+# Outer numbers
+ textht = (r3-r4)*0.6
+ for mn = -15 to 15 by 5 do { t = 90-mn/60*360
+ R:(Rect_((r3+r4)/2,t))
+ svg_rot(-mn/60*360,sprintf("%g",pmod(mn,60)) at C+R+adj(t))
+ }
+ for mn = 20 to 40 by 5 do { t = 450-mn/60*360
+ R: (Rect_((r3+r4)/2,t))
+ svg_rot(180-mn/60*360, sprintf("%g",pmod(mn,60)) at C+R+adj(t))
+ }
+# Outer tics
+ for mn = 1 to 60 do { t = 90-mn/60*360
+ line from C+(Rect_(r5,t)) to C+(Rect_(r4,t)) }
+
+# Inner numbers
+ textht = (r5-r6)*0.6
+ Loopover_(`mx',`tt = 90-(m4Lx-4)/12*360
+ R: (Rect_((r5+r6)/2,tt))
+ svg_rot(tt-90, "mx" at C+R+adj(tt)) ',
+ IX,X,XI,XII,I,II,III)
+ Loopover_(`mx',`tt = 360-m4Lx*30
+ R: (Rect_((r5+r6)/2,tt))
+ svg_rot(tt-270, "mx" at C+R+adj(tt)) ',
+ IV,V,VI,VII,VIII)
+
+# Inner tics
+ for mn = 5 to 60 by 5 do { t = 90-mn/60*360
+ line from C+(Rect_(r7,t)) to C+(Rect_(r6,t)) }
+
+# Hands
+ AntiqueHourHand(r6,hour,minute,second) with .C at C
+ AntiqueMinuteHand(r5,hour,minute,second) with .C at C
+ SecondHand((r3+r4)/2,hour,minute,second) with .C at C
+
+# Center
+ dot(at C,0.1/4*r1,1)
+ ]')
+
+ Clock1: AntiqueClock(,,,3.5)
+# Clock2: AntiqueClock(4,48,07,2) at Clock1.e+(1.5,0)
+
+ command "</g>" # end font
+#.PE
+ ] with .sw at last [].se+(0.25,0)
+
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex21SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex21SVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex21SVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -7,13 +7,9 @@
textht = textht*0.9
D: FlipFlop(D)
- line right 5bp__ at last [] . 1nd last ""+(-7bp__,4bp__)
T: FlipFlop(T) with .Chip.sw at last [].se + (0.4,0)
- line right 5bp__ at last [] . 1nd last ""+(-7bp__,4bp__)
RS: FlipFlop(RS) with .Chip.sw at last [].se + (0.4,0)
- line right 5bp__ at last [] . 1nd last ""+(-7bp__,4bp__)
JK: FlipFlop(JK) with .Chip.sw at last [].se + (0.4,0)
- line right 5bp__ at last [] . 2nd last ""+(-7bp__,4bp__)
`"FlipFlop(JK)"' at JK.s below
`"FlipFlop(RS)"' at (RS.s,JK.s) below
`"FlipFlop(T)"' at (T.s,JK.s) below
@@ -21,7 +17,6 @@
# Test 3: synchronous 3-bit counter
define(`counterFF',``$1':FlipFlop(JK) `$2'
- line right 5bp__ at last [] . 2nd last ""+(-7bp__,4bp__)
"`$1'" at `$1'.Chip.sw-(3bp__,0) below ljust
"1" at `$1'.PinCLR.end above
"1" at `$1'.PinPR.end below')
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/examplesSVG.htmx
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/examplesSVG.htmx 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/examplesSVG.htmx 2021-06-03 20:45:51 UTC (rev 59444)
@@ -154,6 +154,7 @@
e.g. m4tt`'svg_tspan(font-style="italic" font-size="75%",XYZ)</g>
<li>m4tt svg_it(</g>text`'m4tt)</g>: for italics
<li>m4tt svg_tt(</g>text`'m4tt)</g>: for monospace (courier)
+ <li>m4tt svg_sf(</g>text`'m4tt)</g>: sans-serif (Helvetica)
<li>m4tt svg_norm(</g>text`'m4tt)</g>: for normal text
<li>m4tt svg_bf(</g>text`'m4tt)</g>: for bold face
<li>m4tt svg_small(</g>text, percent`'m4tt)</g>:
@@ -162,8 +163,13 @@
for setting larger or smaller text size, default 100
<li>m4tt svg_sub(</g>text, size percent, y displ, x displ`'m4tt)</g>:
subscript
+ <li>m4tt svg_ul(</g>text`'m4tt)</g>: underlined text
+ <li>m4tt svg_ol(</g>text`'m4tt)</g>: overlined text
<li>m4tt svg_sup(</g>text, size percent, y displ, x displ`'m4tt)</g>:
superscript
+ <li>m4tt svg_hat(</g>character`'m4tt)</g>: circumflex-accented character
+ <li>m4tt svg_frac(</g>numerator[:wid], denominator[:wid]`'m4tt)</g>:
+ basic fraction, wid in drawing units
<li>m4tt svg_rot(</g>degrees, "text" [at position]`'m4tt)</g>:
Rotate text degrees (default 90) ccw.
Requires m4tt`'svg_rot_init(</g>filename`'m4tt)</g> and the source
@@ -184,6 +190,8 @@
<!--
Reference:
https://en.wikipedia.org/wiki/List_of_XML_and_HTML_character_entity_references
+ and
+ https://www.toptal.com/designers/htmlarrows/math/
-->
<hr width="100%" align="left">
<table cellpadding="2" cellspacing="0" width="75%" >
@@ -292,9 +300,18 @@
<hr>
-cfig(CctTableSVG,
- Two-terminal elements, showing some variations)
+cfig(ResistorsSVG,
+ Resistors, showing some variations)
+cfig(CapacitorsSVG,
+ Capacitors)
+
+cfig(InductorsSVG,
+ Inductors)
+
+cfig(MoreTableSVG,
+ Some other two-terminal elements)
+
cfig(DiodesSVG,
Diodes: a m4tt`'K</g> in the second argument draws an open
arrowhead)
@@ -361,8 +378,12 @@
The m4tt`'Header</g> macro)
cfig(ConnectorsSVG,
- Some connectors with simple geometry and lists of labels)
+ Some integrated circuits and connectors with simple geometry
+ and lists of labels)
+cfig(ChipsSVG,
+ IC outlines)
+
cfig(fetSVG,
FETs`,' showing programmable components and example customizations)
@@ -547,6 +568,10 @@
cfig(XORSVG,
Realizations of the XOR function using m4tt`'Autologix</g>)
+cfig(EEPSVG,
+ Part of a single-line diagram of a power distribution system
+ using draft elements)
+
cfig(paletteSVG,
A draft palette of a few elements for Inkscape using
a 1 mm grid)
@@ -555,13 +580,14 @@
Line diagrams)
cfig(controlSVG,
- Control-system block diagrams that do not require m4)
+ Control-system block diagrams)
cfig(GrayCodeSVG,
- Gray code 10-bit encoder disk pattern)
+ Gray code 10-bit encoder disk pattern`,'
+ and a crossbar switch)
-cfig(CrossbarSVG,
- A crossbar switch)
+#cfig(CrossbarSVG,
+# A crossbar switch)
cfig(ByteSVG,
Elementary splines)
@@ -591,7 +617,7 @@
specifies the arc to be dimensioned and the second argument is
the outward radial offset of the dimension arrow arc.)
-cfig(Y14-5SVG,
+cfig(PlateSVG,
Dimensioning with tolerances according to ASME Y14.5)
Use of m4tt`'darrow</g> and m4tt`'Darc</g>)
@@ -602,10 +628,10 @@
A graph drawn using the pic language)
cfig(GeometrySVG,
- A plane geometry example)
+ A plane geometry example`,' and an illustration of a Lyapunov function)
-cfig(LyapSVG,
- Illustrating a Lyapunov function)
+#cfig(LyapSVG,
+# Illustrating a Lyapunov function)
cfig(randomSVG,
Testing random numbers)
@@ -622,21 +648,23 @@
cfig(shapesSVG,
Basic shapes)
-cfig(AntiqueClockSVG,
- An antique clock face)
+#fig(AntiqueClockSVG,
+# An antique clock face)
cfig(cscSVG,
- Conestoga Sailing Club (illustrating the filling of arbitrary
- shapes))
+ Conestoga Sailing Club (illustrating the filling of arbitrary shapes)`,'
+ and an antique clock face with shading and rotated text)
cfig(roseSVG,
- Redrawn from a detail of the set design for the musical
- <i>Dracula</i>`,' used for testing m4tt`'dpic</g>. This diagram
+ A window redrawn from a detail of the set design for the musical
+ <i>Dracula</i>`,' used for testing m4tt`'dpic</g>`,'
+ and an experimental halftone. This diagram
consumes much LaTeX main memory but can be produced
directly as pdf using m4tt`'dpic -d</g>`,'
as svg using m4tt`'dpic -g</g>`,'
or as postscript using m4tt`'dpic -r</g>
- since no text formatting is required)
+ since no text formatting is required. The right object
+ adjusts the size of dots to produce a halftone effect)
cfig(diamondSVG,
Variations on M. Goossens`,' S. Rahtz`,' and F. Mittelbach`,'
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/expSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/expSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/expSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -76,37 +76,37 @@
define(`D3',`0.3*g,0.6*g,0.9*g')
# fixed coordinate frame
-O: project(O3)
-X: project(X0)
-Y: project(Y0)
+O: Project(O3)
+X: Project(X0)
+Y: Project(Y0)
Fector(X0,Z0) with .Origin at O ; "svg_it(x`'svg_sub(0))" at X rjust
Fector(Y0,Z0) with .Origin at O ; "svg_it(y`'svg_sub(0))" at Y ljust below
- Fector(Z0,Y0) with .Origin at O ; "svg_it(z`'svg_sub(0))" at project(Z0) above
+ Fector(Z0,Y0) with .Origin at O ; "svg_it(z`'svg_sub(0))" at Project(Z0) above
define(`R01',`rot3Dz(pazim,rot3Dy(-pelev,$1,$2,$3))')
define(`R10',`rot3Dy(pelev,rot3Dz(-pazim,$1,$2,$3))')
thinlines_ ; psset_(linecolor=gray)
- line from O to project(rot3Dz(pazim,axlen,0,0))
+ line from O to Project(rot3Dz(pazim,axlen,0,0))
psset_(linecolor=black)
- arc -> ccw from project(arad,0,0) to project(rot3Dz(pazim,arad,0,0)) rad arad
+ arc -> ccw from Project(arad,0,0) to Project(rot3Dz(pazim,arad,0,0)) rad arad
"svg_theta" below
up_
- arc -> cw from project(rot3Dz(pazim,arad,0,0)) \
- to project(R01(arad,0,0)) rad arad
- "svg_phi" rjust at project(rot3Dz(pazim,rot3Dy(-pelev/2,arad,0,0)))
- arc -> from project(0,arad,0) to project(R01(0,arad,0)) rad arad
+ arc -> cw from Project(rot3Dz(pazim,arad,0,0)) \
+ to Project(R01(arad,0,0)) rad arad
+ "svg_phi" rjust at Project(rot3Dz(pazim,rot3Dy(-pelev/2,arad,0,0)))
+ arc -> from Project(0,arad,0) to Project(R01(0,arad,0)) rad arad
"svg_theta" above
right_
- arc -> cw from project(0,0,arad/2) to project(R01(0,0,arad/2)) rad arad/2
+ arc -> cw from Project(0,0,arad/2) to Project(R01(0,0,arad/2)) rad arad/2
"svg_phi" ljust at Here+(-1pt__,-3pt__)
Fector(R01(X0),R01(Z0)) with .Origin at O ;
- "svg_it(x`'svg_sub(1))" above rjust at project(R01(X0))
+ "svg_it(x`'svg_sub(1))" above rjust at Project(R01(X0))
Fector(R01(Y0),R01(Z0)) with .Origin at O ;
- "svg_it(y`'svg_sub(1))" ljust at project(R01(Y0))
+ "svg_it(y`'svg_sub(1))" ljust at Project(R01(Y0))
Fector(R01(Z0),R01(Y0)) with .Origin at O ;
- "svg_it(z`'svg_sub(1))" above at project(R01(Z0))
+ "svg_it(z`'svg_sub(1))" above at Project(R01(Z0))
thicklines_
# box object dimension
@@ -116,23 +116,23 @@
# box object corners
define(`B0',`D3')
-define(`B1',`sum3D(D3,d,0,0)') PB1: project(B1)
-define(`B2',`sum3D(D3,d,b,0)') PB2: project(B2)
-define(`B3',`sum3D(D3,0,b,0)') PB3: project(B3)
-define(`B4',`sum3D(D3,0,0,h)') PB4: project(B4)
-define(`B5',`sum3D(D3,d,0,h)') PB5: project(B5)
-define(`B6',`sum3D(D3,d,b,h)') PB6: project(B6)
-define(`B7',`sum3D(D3,0,b,h)') PB7: project(B7)
+define(`B1',`sum3D(D3,d,0,0)') PB1: Project(B1)
+define(`B2',`sum3D(D3,d,b,0)') PB2: Project(B2)
+define(`B3',`sum3D(D3,0,b,0)') PB3: Project(B3)
+define(`B4',`sum3D(D3,0,0,h)') PB4: Project(B4)
+define(`B5',`sum3D(D3,d,0,h)') PB5: Project(B5)
+define(`B6',`sum3D(D3,d,b,h)') PB6: Project(B6)
+define(`B7',`sum3D(D3,0,b,h)') PB7: Project(B7)
# projected corners
-P0:project(R01(0,dcosine3D(2,R10(B0)),dcosine3D(3,R10(B0))))
-P1:project(R01(0,dcosine3D(2,R10(B1)),dcosine3D(3,R10(B1))))
-P2:project(R01(0,dcosine3D(2,R10(B2)),dcosine3D(3,R10(B2))))
-P3:project(R01(0,dcosine3D(2,R10(B3)),dcosine3D(3,R10(B3))))
-P4:project(R01(0,dcosine3D(2,R10(B4)),dcosine3D(3,R10(B4))))
-P5:project(R01(0,dcosine3D(2,R10(B5)),dcosine3D(3,R10(B5))))
-P6:project(R01(0,dcosine3D(2,R10(B6)),dcosine3D(3,R10(B6))))
-P7:project(R01(0,dcosine3D(2,R10(B7)),dcosine3D(3,R10(B7))))
+P0:Project(R01(0,dcosine3D(2,R10(B0)),dcosine3D(3,R10(B0))))
+P1:Project(R01(0,dcosine3D(2,R10(B1)),dcosine3D(3,R10(B1))))
+P2:Project(R01(0,dcosine3D(2,R10(B2)),dcosine3D(3,R10(B2))))
+P3:Project(R01(0,dcosine3D(2,R10(B3)),dcosine3D(3,R10(B3))))
+P4:Project(R01(0,dcosine3D(2,R10(B4)),dcosine3D(3,R10(B4))))
+P5:Project(R01(0,dcosine3D(2,R10(B5)),dcosine3D(3,R10(B5))))
+P6:Project(R01(0,dcosine3D(2,R10(B6)),dcosine3D(3,R10(B6))))
+P7:Project(R01(0,dcosine3D(2,R10(B7)),dcosine3D(3,R10(B7))))
thinlines_
line from PB1 to P1
line from PB2 to P2
@@ -178,10 +178,10 @@
alpha = rectht/3
# # Rectangle
- NW: project(-rectht/2,-rectwid*0.25,0)
- SW: project( rectht/2,-rectwid*0.25,0)
- SE: project( rectht/2, rectwid*0.75,0)
- NE: project(-rectht/2, rectwid*0.75,0)
+ NW: Project(-rectht/2,-rectwid*0.25,0)
+ SW: Project( rectht/2,-rectwid*0.25,0)
+ SE: Project( rectht/2, rectwid*0.75,0)
+ NE: Project(-rectht/2, rectwid*0.75,0)
shadedpolygon(NW:NE:SE:SW,,-90,
0,0.25,0.25,0.25,
@@ -188,7 +188,7 @@
1,1,1,1) with .Start at NW
define(`C3D',`0,0,alpha') # Centre of the sphere
- C: project(C3D)
+ C: Project(C3D)
# # Shaded sphere using PSTricks or tikz:
# # this is black magic but PSTricks
@@ -195,7 +195,7 @@
# # seems to give more control
# ifpstricks(
# `Highlight: \
-# project(sum3D(C3D,rot3Dz(-15*dtor_,rot3Dy(-60*dtor_,alpha,0,0))))
+# Project(sum3D(C3D,rot3Dz(-15*dtor_,rot3Dy(-60*dtor_,alpha,0,0))))
# command "\pscustom[fillstyle=gradient,gradmidpoint=0.0,%"
# command sprintf("gradbegin=gray,gradend=white,gradlines=%g,%%",alpha*200)
# command "GradientCircle=true,GradientScale=1.5,%"
@@ -218,16 +218,16 @@
"svg_alpha" at 0.5<S,C> ljust
define(`N3D',`0,0,2*alpha') # North pole
- N: project(N3D)
+ N: Project(N3D)
"svg_it(N)" at N+(0,3pt__) ljust
phi = 65*dtor_
define(`Phat3D',`rot3Dz(phi,alpha*3,0,0)')
- Phat: "svg_it(P)" at project(Phat3D) ljust
+ Phat: "svg_it(P)" at Project(Phat3D) ljust
"svg_symbol(&`#'94;)" at last "".n ljust
- X: project(rectht/2*0.8,0,0)
- Y: project(0,rectwid/2*0.8,0)
+ X: Project(rectht/2*0.8,0,0)
+ Y: Project(0,rectwid/2*0.8,0)
`define' linevis { # ratio # Visibility function for lines fom S to Tmp
Tlv: $1 between S and Tmp
@@ -247,8 +247,8 @@
arrow up alpha*0.5 chop 0.05 chop 0 ; "svg_it(z)" above
invisline(Phat)
line to Phat chop 0.05 chop 0
- arc ccw -> rad alpha from project(alpha/2,0,0) to \
- project(rot3Dz(phi,alpha/2,0,0))
+ arc ccw -> rad alpha from Project(alpha/2,0,0) to \
+ Project(rot3Dz(phi,alpha/2,0,0))
"svg_phi" below at 0.5 between last arc.start and last arc.end
# vector (ratio along (N to Phat))
@@ -257,7 +257,7 @@
$2 = length3D(diff3D(ray($1),C3D))-alpha }
findroot(rayvis, 1e-3, 1, 1e-8, p) # Find P
- P: "svg_it(P)" at project(ray(p)) ljust above
+ P: "svg_it(P)" at Project(ray(p)) ljust above
thicklines_
line dashed from N to P chop 0 chop 0.05
@@ -271,11 +271,11 @@
findroot(meridianvis, 0, pi_, 1e-8, y)
n = 0
for ang = y-pi_ to y by pi_/20 do {
- Q[n]: project(sum3D(C3D,meridian(ang))); n+=1 }
+ Q[n]: Project(sum3D(C3D,meridian(ang))); n+=1 }
fitcurve(Q,n-1)
n = 0
for ang = y to y+pi_ by pi_/20 do {
- Q[n]: project(sum3D(C3D,meridian(ang))); n+=1 }
+ Q[n]: Project(sum3D(C3D,meridian(ang))); n+=1 }
fitcurve(Q,n-1,dashed)
define(`equator',`rot3Dz($1,alpha,0,0)')
@@ -285,15 +285,15 @@
findroot(equatorvis, 0, pi_, 1e-8, y)
n = 0
for ang = y-pi_ to y by pi_/20 do {
- Q[n]: project(sum3D(C3D,equator(ang))); n+=1 }
+ Q[n]: Project(sum3D(C3D,equator(ang))); n+=1 }
fitcurve(Q,n-1)
n = 0
for ang = y to y+pi_ by pi_/20 do {
- Q[n]: project(sum3D(C3D,equator(ang))); n+=1 }
+ Q[n]: Project(sum3D(C3D,equator(ang))); n+=1 }
fitcurve(Q,n-1,dashed)
line dashed from C to P # beta
- line dashed from C to project(sum3D(C3D,equator(phi)))
+ line dashed from C to Project(sum3D(C3D,equator(phi)))
arc ccw -> from 0.6 along_(last line) to 0.6 between C and P
"svg_beta" ljust at last arc.e+(0,2pt__)
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/fetSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/fetSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/fetSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,13 +1,14 @@
.PS
# `fetSVG.m4'
cct_init(svg_font(Times,11bp__))
-dwn = 0.8
-rgt = 0.9
+textht = 0.1
+define(`rmove',0.75)
+
dnl `IRF4905(linespec,R)'
define(`IRF4905',
`[ ifelse(`$1',,,`eleminit_(`$1')')
- Q: mosfet(,`$2',LdPzEDSQdB,) ifelse(`$1',,`
+ Q: mosfet(,`$2',dMdPzEDSQdB,) ifelse(`$1',,`
S: Q.tr_xy(-4,-2); line from Q.tr_xy(-2,-2) to S
D: Q.tr_xy( 4,-2); line from Q.tr_xy(2,-2) to D',
`with .Diode.c at last line.c
@@ -15,138 +16,153 @@
G: Q.G
circle rad 5*dimen_/10 at Q.tr_xy(0,1) ]')
-define(`rmove',0.75)
-define(`dir_',`right_')
+{move left 20bp__}
+Row1: [ J: j_fet
+ { "svg_tt(`j_fet')" at J.s+(0,-0.05) below
+ "svg_it(G)" at J.G rjust
+ "svg_it(S)" at J.S rjust
+ "svg_it(D)" at J.D ljust }
+ J: j_fet(right_ dimen_,,P,E) with .w at J.e+(0.5,0)
+ { "svg_tt(`j_fet(right_')" at J.s+(0,-4bp__) below "svg_tt(`dimen_,,P,E)')"
+ "svg_it(G)" at J.G rjust above
+ "svg_it(S)" at J.S rjust
+ "svg_it(D)" at J.D ljust }
+ J: e_fet with .w at J.e+(0.5,0)
+ { "svg_tt(` e_fet')" at J.s+(0,-0.05) below
+ "svg_it(G)" at J.G rjust
+ "svg_it(S)" at J.S rjust
+ "svg_it(D)" at J.D ljust }
+ J: e_fet(,,P) with .w at J.e+(0.6,0)
+ { "svg_tt(` e_fet(,,P)')" at J.s+(0,-0.05) below
+ "svg_it(G)" at J.G rjust
+ "svg_it(S)" at J.S rjust
+ "svg_it(D)" at J.D ljust }
+ J: e_fet(,,P,S) with .w at J.e+(0.8,0)
+ { "svg_tt(` e_fet(,,P,S)')" at J.s+(0,-0.05) below
+ "svg_it(G)" at J.G rjust
+ "svg_it(S)" at J.S rjust
+ "svg_it(D)" at J.D ljust }
+ J: c_fet with .w at J.e+(0.7,0)
+ { "svg_tt(` c_fet')" at J.s+(0,-0.05) below
+ "svg_it(G)" at J.G rjust
+ "svg_it(S)" at J.S rjust
+ "svg_it(D)" at J.D ljust }
+ J: c_fet(,,P) with .w at J.e+(0.7,0)
+ { "svg_tt(` c_fet(,,P)')" wid 72bp__ at J.s+(0,-0.05) below
+ "svg_it(G)" at J.G rjust
+ "svg_it(S)" at J.S rjust
+ "svg_it(D)" at J.D ljust }
+ ]
-dir_
- {j_fet(right_ dimen_,,,E)
- `"j_fet(right_ dimen_,,,E)"' wid 1.5 at last [].s+(0.0,-0.05) below
- "G" at last [].G rjust above
- "S" at last [].S rjust
- "D" at last [].D ljust
- }
+Row2: [
+ J: d_fet
+ { "svg_tt(`d_fet')" at J.s+(0,-0.05) below
+ "svg_it(G)" at J.G rjust
+ "svg_it(S)" at J.S rjust
+ "svg_it(D)" at J.D ljust }
+ J: d_fet(,,P) with .w at J.e+(0.5,0)
+ { "svg_tt(`d_fet(,,P)')" at J.s+(0,-0.05) below
+ "svg_it(G)" at J.G rjust
+ "svg_it(S)" at J.S rjust
+ "svg_it(D)" at J.D ljust }
+ J: d_fet(,,P,S) with .w at J.e+(0.8,0)
+ { "svg_tt(`d_fet(,,P,S)')" at J.s+(0,-0.05) below
+ "svg_it(G)" at J.G rjust
+ "svg_it(S)" at J.S rjust
+ "svg_it(D)" at J.D ljust }
+ J: g_fet with .w at J.e+(0.6,0)
+ { "svg_tt(`g_fet')" at J.s+(0,-0.05) below
+ "svg_it(G)" at J.G rjust
+ "svg_it(S)" at J.S rjust
+ "svg_it(D)" at J.D ljust }
+ J: g_fet(up_ dimen_,,P) with .w at J.e+(0.6,0)
+ { "svg_tt(`g_fet(up_')" at last [].s below
+ "svg_tt(` dimen_,,P)')" at last [].s + (0,-12bp__) below
+ "svg_it(G)" at last [].G rjust
+ "svg_it(S)" at last [].S + (0,2bp__) ljust
+ "svg_it(D)" at last [].D + (0,2bp__) ljust below }
+ right_
+ M1: mosfet(,,dBSDFQM1,E) with .w at J.e+(0.6,0)
+ "svg_it(G0)" at M1.G0 above rjust
+ "svg_it(G1)" at M1.G1 above ljust
+ {"svg_tt(`mosfet(,,dBSDFQM1,E)')" wid 1.45 \
+ with .nw at last [].sw+(0,-0.2) }
+ M2: mosfet(,,dBSDFQuM1) with .nw at M1.ne+(0.6,0)
+ "svg_it(G0)" at M2.G0 above ljust
+ "svg_it(G1)" at M2.G1 above rjust
+ {"svg_tt(`...(,,dBSDFQuM1')" wid 1.25 \
+ with .n at last [].s+(0,-0.05) }
+ ] with .nw at Row1.sw+(0,-10bp__) # Row2
- {move down_ dwn; dir_
- j_fet(,,P,)
- `"j_fet(,,P,)"' at last [].s+(0,-0.05) below
- "G" at last [].G rjust
- "S" at last [].S rjust
- "D" at last [].D ljust
- }
-
- move right_ 1.35; dir_
- {e_fet(,R,,)
- `"e_fet(,R,,)"' at last [].s+(0,-0.2) below
- "G" at last [].G rjust
- "S" at last [].S rjust
- "D" at last [].D ljust
- }
-
- {move down_ dwn; dir_
- e_fet(,,P,)
- `"e_fet(,,P,)"' at last [].s+(0,-0.05) below}
-
- move right_ 1; dir_
- {d_fet(,,,)
- `"d_fet(,,,)"' at last [].s+(0,-0.05) below}
-
- {move down_ dwn; dir_
- d_fet(,,P,)
- `"d_fet(,,P,)"' at last [].s+(0,-0.05) below}
-
- move right_ 1; dir_
- {e_fet(,,,S)
- `"e_fet(,,,S)"' at last [].s+(0,-0.05) below}
-
- {move down_ dwn; dir_
- e_fet(,,P,S)
- `"e_fet(,,P,S)"' at last [].s+(0,-0.05) below}
-
- move right_ 1; dir_
- {d_fet(,,,S)
- `"d_fet(,,,S)"' at last [].s+(0,-0.05) below}
-
- {move down_ dwn; dir_
- d_fet(,,P,S)
- `"d_fet(,,P,S)"' at last [].s+(0,-0.05) below}
-right_
-{ [
- c_fet(,,,)
- `"c_fet(,,,)"' at last [].s+(0,-0.05) below
- move right rgt from last [].e
- c_fet(,,P)
- `"c_fet(,,P)"' at last [].s+(0,-0.05) below
- ] with .n at 5th last [].s+(0,-0.3)
- }
-move down 1; right_
-[
+Row3: [
linewid = linewid*1.2
Q1: mosfet(,,dGSDF,)
- { "`mosfet'(,,dGSDF,)" at last [].s+(0,-0.1) below wid 1.3
+ {"svg_tt(`mosfet(,,dGSDF,)')" wid 1.25 \
+ with .nw at last [].sw+(-0.2,-0.05)
thinlines_
arrow <- down .05 left .15 from (Q1.G.x,Q1.G.y-0.05)
- "dG" rjust
+ "svg_tt(dG)" rjust
arrow <- down .10 left .30 from Q1.Channel.start+(.15,0)
- "F" rjust
+ "svg_tt(F)" rjust
arrow <- down .05 left .15 from (Q1.S.x,Q1.S.y+0.05)
- "S" rjust
+ "svg_tt(S)" rjust
arrow <- down .05 right .15 from (Q1.D.x,Q1.D.y+0.05)
- "D" ljust
+ "svg_tt(D)" ljust
thicklines_ }
move right_ rmove
Q2: mosfet(,,uHSDF,)
- {"`...'(,,uHSDF,)" at last [].s+(0,-0.15) below
+ {"svg_tt(`...(,,uHSDF,)')" at last [].s+(0,-0.2) below
thinlines_
arrow <- down .05 left .15 from (Q2.G.x,Q2.G.y-0.05)
- "uH" rjust
+ "svg_tt(uH)" rjust
thicklines_ }
move right_ rmove
- Q3: mosfet(,,LEDSQuB,)
- {"`...'(,,LEDSQuB,)" at last [].s+(0,-0.15) below
+ Q3: mosfet(,,dMEDSQuB,)
+ {"svg_tt(`...(,,dMEDSQuB,)')" at last [].s+(0,-0.05) below
thinlines_
arrow <- down .05 left .15 from (Q3.G.x,Q3.G.y-0.05)
- "L" rjust
+ "svg_tt(dM)" rjust
arrow <- down .13 left .30 from Q3.Channel.start+(.12,0)
- "E" rjust
+ "svg_tt(E)" rjust
arrow <- down .05 left .10 from Q3.S+(.06,0)
- "Q" rjust
+ "svg_tt(Q)" rjust
arrow <- down .08 right .24 from (Q3.B.x,Q3.B.y+0.175)
- "uB" ljust
+ "svg_tt(uB)" ljust
thicklines_ }
move right_ rmove
- Q4: mosfet(,,LEDSuB)
- {`"...(,,LEDSuB)"' at last [].s+(0,-0.15) below
- "G" at last [].G rjust
- "S" at last [].S rjust
- "D" at last [].D ljust
- "B" at last [].B below
+ Q4: mosfet(,,uMEDSuB)
+ {"svg_tt(`...(,,uMEDSuB,)')" at last [].s+(0,-0.2) below
+ "svg_it(G)" at last [].G rjust
+ "svg_it(S)" at last [].S rjust
+ "svg_it(D)" at last [].D ljust
+ "svg_it(B)" at last [].B below
}
move right_ rmove
Q5: mosfet(,,ZSDFdT,)
- {"`...'(,,ZSDFdT,)" at last [].s+(0,-0.05) below
+ {"svg_tt(`...(,,ZSDFdT)')" at last [].s+(0,-0.05) below
thinlines_
arrow <- down .08 left .08 from (Q5.S.x,Q5.S.y+0.12)
- "Z" rjust
+ "svg_tt(Z)" rjust
arrow from last arrow.end to Q5.Channel.c+(0.05,0)
arrow from last arrow.start to (Q5.D.x,Q5.D.y+.05)
arrow <- down .08 right .24 from (Q5.G.x,Q5.G.y-0.02)
- "dT" ljust
+ "svg_tt(dT)" ljust
thicklines_ }
- move right_ rmove
+ move right_ rmove+0.1
up_
Q6: IRF4905 with .c at Here
- {`"IRF4905"' at Q6.s+(0,-0.15) below
- "G" at Q6.G rjust
- "D" wid 0.1 at Q6.D ljust above
- "S" at Q6.S ljust below
+ {"svg_tt(`IRF4905')" at Q6.s+(0,-0.15) below
+ "svg_it(G)" at Q6.G rjust
+ "svg_it(D)" at Q6.D ljust above
+ "svg_it(S)" at Q6.S ljust below
}
- ] with .n at last [].s+(0,-.2)
+ ] with .nw at Row2.sw + (0,-10bp__)
command "</g>" # end font
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/graysurfSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/graysurfSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/graysurfSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -25,9 +25,9 @@
Orig: (0,0)
linethick_(1.2)
- arrow from Orig to 1.2 <Orig,(project(xmax,0,0))> ; "svg_it(x)" wid 0.08 below
- arrow from Orig to 1.2 <Orig,(project(0,ymax,0))> ; "svg_it(y)" ljust
- arrow from Orig to 1.2 <Orig,(project(0,0,zmax))> ; "svg_it(z)" rjust
+ arrow from Orig to 1.2 <Orig,Project(xmax,0,0)> ; "svg_it(x)" wid 0.08 below
+ arrow from Orig to 1.2 <Orig,Project(0,ymax,0)> ; "svg_it(y)" ljust
+ arrow from Orig to 1.2 <Orig,Project(0,0,zmax)> ; "svg_it(z)" rjust
linethick_(0)
for i = 0 to nx-1 do {
@@ -36,10 +36,10 @@
y = ymax*j/ny
fnxy = fn(x,y)
shade((fnmax+fnxy)/fnmax/2,
- line from (project(x,y,fnxy)) to (project(x,(y+dy),`fn(x,(y+dy))'))\
- then to (project((x+dx),(y+dy),`fn((x+dx),(y+dy))'))\
- then to (project((x+dx),y,`fn((x+dx),y)'))\
- then to (project(x,y,fnxy))
+ line from Project(x,y,fnxy) to Project(x,(y+dy),`fn(x,(y+dy))')\
+ then to Project((x+dx),(y+dy),`fn((x+dx),(y+dy))')\
+ then to Project((x+dx),y,`fn((x+dx),y)')\
+ then to Project(x,y,fnxy)
) } }
] with .w at last [].e+(-0.2,0)
@@ -63,8 +63,8 @@
rot3Dz((`$1')*dtor_,rot3Dy((`$2')*dtor_,1,0,0)))')
Orig: (0,0)
-X: arrow from Orig to (project(tradius+sradius*4,0,0)); "x" rjust
-Y: arrow from Orig to (project(0,tradius+sradius*2,0)); "y" below wid 4bp__
+X: arrow from Orig to Project(tradius+sradius*4,0,0); "x" rjust
+Y: arrow from Orig to Project(0,tradius+sradius*2,0); "y" below wid 4bp__
dt = 10 # major angle degrees per facet
ds = 10 # minor angle degrees per facet
@@ -87,10 +87,10 @@
thinlines_
for i = 1 to n do {
tc = t[ix[i]]; sc = s[ix[i]]
- SE: (project(torus(tc+dt/2,sc-ds/2)))
- SW: (project(torus(tc-dt/2,sc-ds/2)))
- NW: (project(torus(tc-dt/2,sc+ds/2)))
- NE: (project(torus(tc+dt/2,sc+ds/2)))
+ SE: Project(torus(tc+dt/2,sc-ds/2))
+ SW: Project(torus(tc-dt/2,sc-ds/2))
+ NW: Project(torus(tc-dt/2,sc+ds/2))
+ NE: Project(torus(tc+dt/2,sc+ds/2))
f = ((dcosine3D(3,torus(tc,sc))/sradius+1)/2)^2
g = min(f,0.9)
setrgb(g,g,g)
@@ -103,10 +103,10 @@
}
thicklines_
- arrow from Orig to (project(0,0,tradius*1.4)); "z" above
- dashline(from Orig to (project(torus(0,0))),,,,G)
+ arrow from Orig to Project(0,0,tradius*1.4); "z" above
+ dashline(from Orig to Project(torus(0,0)),,,,G)
arrow to X.end
- dashline(from Orig to (project(torus(90,0))),,,,G)
+ dashline(from Orig to Project(torus(90,0)),,,,G)
arrow to Y.end
] with .sw at last [].se+(0.2,0)
@@ -131,11 +131,11 @@
dy = 0.05
Orig: (0,0)
-X: arrow from Orig to (project(maxy*1.2,0,0)); "x" rjust
-Y: arrow from Orig to (project(0,maxy*1.2,0)); "y" ljust
-Xv: (project(1,0,0))
-Yv: (project(0,1,0))
-Zv: (project(0,0,1))
+X: arrow from Orig to Project(maxy*1.2,0,0); "x" rjust
+Y: arrow from Orig to Project(0,maxy*1.2,0); "y" ljust
+Xv: Project(1,0,0)
+Yv: Project(0,1,0)
+Zv: Project(0,0,1)
# create the arrays and sort
n = 0
for t = dang/2 to 360.1 by dang do {
@@ -151,14 +151,14 @@
dpquicksort(d,1,n,ix)
# draw the facets
ellipse wid maxy*2 ht maxy*2*sind(elevation) \
- with .c at (project(0,0,(maxy^2-1)^2)+linethick bp__/2)
+ with .c at Project(0,0,(maxy^2-1)^2)+(0,linethick bp__/2)
thinlines_
for i = 1 to n do {
tc = t[ix[i]]; yc = y[ix[i]]
- SE: (project(hat(tc+dang/2,yc-dy/2)))
- SW: (project(hat(tc-dang/2,yc-dy/2)))
- NW: (project(hat(tc-dang/2,yc+dy/2)))
- NE: (project(hat(tc+dang/2,yc+dy/2)))
+ SE: Project(hat(tc+dang/2,yc-dy/2))
+ SW: Project(hat(tc-dang/2,yc-dy/2))
+ NW: Project(hat(tc-dang/2,yc+dy/2))
+ NE: Project(hat(tc+dang/2,yc+dy/2))
f = abs(yc^2-1)
line invis fill f from SE to SW then to NW then to NE then to SE
}
@@ -169,7 +169,7 @@
for i=1 to mm do { y = i/(mm+3)
findroot(edge,(azimuth+2),(azimuth+180-2),1e-8,t)
nr +=1
- R[mm+nr]: (project(hat(t,y)))
+ R[mm+nr]: Project(hat(t,y))
R[mm-1-nr]: (-R[mm+nr].x,R[mm+nr].y)
}
fitcurve(R,mm*2-1)
@@ -176,7 +176,7 @@
# Z axis
thicklines_
-Z: arrow from Zv to (project(0,0,1.2)); "z" ljust
+Z: arrow from Zv to Project(0,0,1.2); "z" ljust
line dashed from Orig to Zv chop 0 chop dashwid/2
line dashed from Orig to Xv
line dashed from Orig to Yv
@@ -183,7 +183,7 @@
# Partial rim
ellipsearc(maxy*2,maxy*2*sind(elevation),-pi_*1.4,pi_/3) \
- with .C at (project(0,0,(maxy^2-1)^2)+linethick bp__/2)
+ with .C at Project(0,0,(maxy^2-1)^2)+(0,linethick bp__/2)
] scaled 1.25 with .s at 2nd [].ne+(0,-0.75)
] scaled 0.85
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/icsSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/icsSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/icsSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,33 +1,25 @@
divert(-1)
- Macros defining some integrated circuits and connectors
+ Macros defining some integrated circuits and connectors for SVG
-define(`lg_pinsep',3*L_unit) logic pin separation in logic units
-define(`lg_chipwd',18*L_unit) default chip width
-define(`overbar_',`{ line right last "".wid with .c at last "".n+(0,1bp__) }')
-
`A sequence of pins along the east or west side of a chip:
- lg_pinseq(initial pin no,final pin no,
- e|w,initial offset,pinnum_root,Labelroot,[not])'
+ lg_pinseq(initial pin no, final pin no,
+ e|w, initial offset, pinnum_root, Labelroot, [N])'
+ `e.g., lg_pinseq(1,8,w)'
define(`lg_pinseq',`for_($1,$2,1,
`lg_pin( Chip.s`$3'+(0,eval($4+m4x)*lg_pinsep),
$6`'m4x,Pin`'eval($5`'m4x),`$3'`$7',eval($5`'m4x))') ')
+define(`ic_tiny',`iflatex(`\hbox{\tiny `$1'}',ifsvg(`svg_small(`$1')',`$1'))')
+
define(`ic6116',`[ Chip: box wid_ lg_chipwd ht_ 15*lg_pinsep
lg_pin(Chip.sw_+(0,lg_pinsep),GND,Pin12,w,12)
- lg_pin(Chip.sw_+(0,2*lg_pinsep),,Pin18,wN,18)
- "svg_small(CS,75)" wid textht*1.5 at (Chip.w,last line) ljust; overbar_
-
+ lg_pin(Chip.sw_+(0,2*lg_pinsep),lg_bartxt(CS),Pin18,wN,18)
lg_pinseq(0,2,w,4,9+,D)
lg_pinseq(3,7,w,4,10+,D)
- lg_pin(Chip.sw_+(0,13*lg_pinsep),,Pin21,w,21)
- "svg_small(R/W,75)" wid textht*2.0 at (Chip.w,last line) ljust
- { line right last "".wid/2 from last "".n+(0,1bp__) }
-
- lg_pin(Chip.sw_+(0,14*lg_pinsep),V`'svg_small(CC,75),Pin24,w,24)
- lg_pin(Chip.se_+(0,lg_pinsep),,Pin20,eN,20)
- "svg_small(OE,75)" wid textht*1.5 at (Chip.e,last line) rjust; overbar_
-
+ lg_pin(Chip.sw_+(0,13*lg_pinsep),R/lg_bartxt(W),Pin21,w,21)
+ lg_pin(Chip.sw_+(0,14*lg_pinsep),V`'ic_tiny(CC),Pin24,w,24)
+ lg_pin(Chip.se_+(0,lg_pinsep),lg_bartxt(OE),Pin20,eN,20)
lg_pinseq(0,7,e,3,8-,A)
lg_pinseq(8,9,e,3,31-,A)
lg_pin(Chip.se_+(0,13*lg_pinsep),A10,Pin19,e,19)
@@ -34,77 +26,83 @@
`$1']')
define(`ic6502',`[ Chip: box wid_ lg_chipwd ht_ 24*lg_pinsep
- lg_pin(Chip.sw_+(0,lg_pinsep),V`'svg_small(SS,75),Pin21,w,21)
- lg_pin(Chip.sw_+(0,2*lg_pinsep),V`'svg_small(SS,75),Pin1,w,1)
- lg_pin(Chip.sw_+(0,4*lg_pinsep),,Pin34,w,34)
- "svg_small(R/W,75)" wid textht*2.0 at (Chip.w,last line) ljust
- { line right last "".wid/2 from last "".n+(0,1bp__) }
-
+ lg_pin(Chip.sw_+(0,lg_pinsep),V`'ic_tiny(SS),Pin21,w,21)
+ lg_pin(Chip.sw_+(0,2*lg_pinsep),V`'ic_tiny(SS),Pin1,w,1)
+ lg_pin(Chip.sw_+(0,4*lg_pinsep),R/lg_bartxt(W),Pin34,w,34)
lg_pinseq(0,7,w,6,33-,D)
- lg_pin(Chip.sw_+(0,15*lg_pinsep),,Pin40,wN,40)
- "svg_small(RESET,75)" wid textht*3.8 at (Chip.w,last line) ljust; overbar_
-
+ lg_pin(Chip.sw_+(0,15*lg_pinsep),lg_bartxt(RESET),Pin40,wN,40)
lg_pin(Chip.sw_+(0,17*lg_pinsep),SYNC,Pin7,w,7)
- lg_pin(Chip.sw_+(0,19*lg_pinsep),,Pin6,wN,6)
- "svg_small(NMI,75)" wid textht*2.1 at (Chip.w,last line) ljust; overbar_
-
+ lg_pin(Chip.sw_+(0,19*lg_pinsep),lg_bartxt(NMI),Pin6,wN,6)
lg_pin(Chip.sw_+(0,21*lg_pinsep),RDY,Pin2,w,2)
lg_pin(Chip.sw_+(0,22*lg_pinsep),SO,Pin38,w,38)
- lg_pin(Chip.sw_+(0,23*lg_pinsep),V`'svg_small(CC,75),Pin8,w,8)
- lg_pin(Chip.se_+(0,lg_pinsep),CK`'svg_small(1,75)(in),Pin39,e,39)
- lg_pin(Chip.se_+(0,4*lg_pinsep),CK`'svg_small(2,75)(out),Pin37,e,37)
+ lg_pin(Chip.sw_+(0,23*lg_pinsep),V`'ic_tiny(CC),Pin8,w,8)
+ lg_pin(Chip.se_+(0,lg_pinsep),CK`'ic_tiny(1)(in),Pin39,e,39)
+ lg_pin(Chip.se_+(0,4*lg_pinsep), CK`'ic_tiny(2)(out),Pin37,e,37)
lg_pinseq(0,11,e,6,9+,A)
lg_pinseq(12,15,e,6,10+,A)
- lg_pin(Chip.se+(0,23*lg_pinsep),,Pin4,eN,4)
- "svg_small(IRQ,75)" wid textht*2.0 at (Chip.e,last line) rjust; overbar_
+ lg_pin(Chip.se+(0,23*lg_pinsep),lg_bartxt(IRQ),Pin4,eN,4)
`$1']')
define(`ic6522',`[ Chip: box wid_ lg_chipwd ht_ 24*lg_pinsep
- lg_pin(Chip.sw_+(0,lg_pinsep),V`'svg_small(SS,75),Pin1,w,1)
+ lg_pin(Chip.sw_+(0,lg_pinsep),V`'ic_tiny(SS),Pin1,w,1)
lg_pin(Chip.sw_+(0,3*lg_pinsep),CS1,Pin24,w,24)
lg_pin(Chip.sw_+(0,4*lg_pinsep),CK,Pin25,w,25)
- lg_pin(Chip.sw_+(0,5*lg_pinsep),,Pin23,wN,23)
- "svg_small(CS2,75)" wid textht*2.2 at (Chip.w,last line) ljust; overbar_
-
+ lg_pin(Chip.sw_+(0,5*lg_pinsep),lg_bartxt(CS2),Pin23,wN,23)
lg_pin(Chip.sw_+(0,7*lg_pinsep),RS0(A0),Pin38,w,38)
lg_pin(Chip.sw_+(0,8*lg_pinsep),RS1(A1),Pin37,w,37)
lg_pin(Chip.sw_+(0,9*lg_pinsep),RS2(A2),Pin36,w,36)
lg_pin(Chip.sw_+(0,10*lg_pinsep),RS3(A3),Pin35,w,35)
lg_pinseq(0,7,w,12,33-,D)
- lg_pin(Chip.sw_+(0,21*lg_pinsep),,Pin22,w,22)
- "svg_small(R/W,75)" wid textht*2.0 at (Chip.w,last line) ljust
- { line right last "".wid/2 from last "".n+(0,1bp__) }
-
- lg_pin(Chip.sw_+(0,22*lg_pinsep),,Pin21,wN,21)
- "svg_small(IRQ,75)" wid textht*2.0 at (Chip.w,last line) ljust; overbar_
-
- lg_pin(Chip.sw_+(0,23*lg_pinsep),V`'svg_small(CC,75),Pin20,w,20)
+ lg_pin(Chip.sw_+(0,21*lg_pinsep),R/lg_bartxt(W),Pin22,w,22)
+ lg_pin(Chip.sw_+(0,22*lg_pinsep),lg_bartxt(IRQ),Pin21,wN,21)
+ lg_pin(Chip.sw_+(0,23*lg_pinsep),V`'ic_tiny(CC),Pin20,w,20)
lg_pinseq(0,7,e,1,10+,PB)
lg_pinseq(1,2,e,8,17+,CB)
lg_pinseq(0,7,e,12,2+,PA)
lg_pinseq(1,2,e,19,41-,CA)
- lg_pin(Chip.se_+(0,23*lg_pinsep),,Pin34,eN,34)
- "svg_small(RESET,75)" wid textht*3.8 at (Chip.e,last line) rjust; overbar_
-
+ lg_pin(Chip.se_+(0,23*lg_pinsep),lg_bartxt(RESET),Pin34,eN,34)
`$1']')
define(`ic74LS138',`[ Chip: box wid_ lg_chipwd ht_ 11*lg_pinsep
lg_pin(Chip.sw_+(0,lg_pinsep),GND,Pin8,w,8)
- lg_pin(Chip.sw_+(0,2*lg_pinsep),,Pin4,wN,4)
- "svg_small(G2a,75)" wid textht*2.0 at (Chip.w,last line) ljust; overbar_
-
- lg_pin(Chip.sw_+(0,3*lg_pinsep),,Pin5,wN,5)
- "svg_small(G2b,75)" wid textht*2.0 at (Chip.w,last line) ljust; overbar_
-
+ lg_pin(Chip.sw_+(0,2*lg_pinsep),lg_bartxt(G2a),Pin4,wN,4)
+ lg_pin(Chip.sw_+(0,3*lg_pinsep),lg_bartxt(G2b),Pin5,wN,5)
lg_pin(Chip.sw_+(0,5*lg_pinsep),A,Pin1,w,1)
lg_pin(Chip.sw_+(0,6*lg_pinsep),B,Pin2,w,2)
lg_pin(Chip.sw_+(0,7*lg_pinsep),C,Pin3,w,3)
lg_pin(Chip.sw_+(0,9*lg_pinsep),G1,Pin6,w,6)
- lg_pin(Chip.sw_+(0,10*lg_pinsep),V`'svg_small(CC,75),Pin16,w,16)
+ lg_pin(Chip.sw_+(0,10*lg_pinsep),V`'ic_tiny(CC),Pin16,w,16)
lg_pinseq(0,6,e,2,15-,Y,n)
lg_pin(Chip.se_+(0,9*lg_pinsep),Y7,Pin7,eN,7)
`$1']')
+define(`ic4017',`[ Chip: DIP_chip_outline(16)
+ Loopover_(`x',
+ `lg_pin(Chip.nw-(0,lg_pinsep*m4Lx),x,Pin`'m4Lx,w,m4Lx)',
+ PL, Q3, I3, I0, CLE, Q0, TC, GND)
+ Loopover_(`x',
+ `lg_pin(Chip.se+(0,lg_pinsep*m4Lx),x,Pin`'eval(m4Lx+8),e,eval(m4Lx+8))',
+ MR, U/D, Q1, I1, I2, Q2, CLK, Vcc)
+ `$1']')
+
+define(`ic4510',`[ Chip: DIP_chip_outline(16)
+ Loopover_(`x',
+ `lg_pin(Chip.nw-(0,lg_pinsep*m4Lx),x,Pin`'m4Lx,w,m4Lx)',
+ PL, Q3, I3, I0, CLE, Q0, TC, GND)
+ Loopover_(`x',
+ `lg_pin(Chip.se+(0,lg_pinsep*m4Lx),x,Pin`'eval(m4Lx+8),e,eval(m4Lx+8))',
+ MR, U/D, Q1, I1, I2, Q2, CLK, Vcc)
+ `$1']')
+
+define(`icVS1053',`[ Chip: DIP_chip_outline(32)
+ Loopover_(`x',
+ `lg_pin(Chip.nw-(0,lg_pinsep*m4Lx),x,Pin`'m4Lx,w,m4Lx)',
+ LOUT,ROUT,GBUF,AGND,AGND,DREG,Vcc,3V3,GND,MISO,MOSI,sclk,RST,CS,DCS,DCS)
+ Loopover_(`x',
+ `lg_pin(Chip.se+(0,lg_pinsep*m4Lx),x,Pin`'eval(m4Lx+16),e,eval(m4Lx+16))',
+ SDCD,RX,TX,7,6,5,4,3,2,1,0,GND,3V3,AGND,MIC`'svg_it(-),MIC`'svg_it(+))
+ `$1']')
+
`ArduinoUno( wid,ht,pinlen )'
define(`ArduinoUno',`[
define(`m4bwid',`ifelse(`$1',,`24*L_unit',`$1')')dnl
@@ -118,7 +116,7 @@
Loopover_(`x',`ifelse(x,nul,,
`Pin`'eval(5+m4Lx): line left_ plen from Connector.nw-(0,(5+m4Lx)*lg_pinsep)
{ "x" ljust at last line.start }')',
- IOREF, RESET,`+`'3V3',`+`'5V', GND, GND, VIN,
+ IOREF, RESET,svg_it(+)3V3,svg_it(+)5V, GND, GND, VIN,
nul, A0, A1, A2, A3, A4, A5)
#
Loopover_(`x',`ifelse(x,nul,,
@@ -141,7 +139,7 @@
Loopover_(`x',`ifelse(x,nul,,
`Pin`'eval(5+m4Lx): line left_ plen from Connector.nw-(0,(5+m4Lx)*lg_pinsep)
{ "x" ljust at last line.start }')',
- IOREF, RESET,`+`'3V3',`+`'5V', GND, GND, VIN,
+ IOREF, RESET,svg_it(+)3V3,svg_it(+)5V, GND, GND, VIN,
nul, A0, A1, A2, A3, A4, A5)
#
Loopover_(`x',`ifelse(x,nul,,
@@ -155,8 +153,8 @@
`RPi( wid,ht,pinlen )'
define(`RPi',`[
- define(`m4bwid',`ifelse(`$1',,`34*L_unit',`$1')')dnl
- define(`m4bht',`ifelse(`$2',,`21*lg_pinsep',`$2')')dnl
+ define(`m4bwid',`ifelse(`$1',,`34*L_unit',`$1')')dnl
+ define(`m4bht',`ifelse(`$2',,`21*lg_pinsep',`$2')')dnl
#
GPIO: box wid m4bwid ht m4bht
plen = ifelse(`$4',,`6*L_unit',`$4')
@@ -171,9 +169,11 @@
;3V3,
2;SDA1, 3;SCL1, 4;GPIO_GCLK,
;GND,
- 17;GPIO_GEN0, 27;GPIO_GEN2, 22;GPIO_GEN3,
+ 17;GPIO_GEN0, 27;GPIO_GEN2,
+ 22;GPIO_GEN3,
;3V3,
- 10;SPI_MOSI, 9;SPI_MISO, 11;SPI_SCLK,
+ 10;SPI_MOSI, 9;SPI_MISO,
+ 11;SPI_SCLK,
;GND,
;ID_SD,
5;, 6;, 13;, 19;, 26;,
@@ -193,7 +193,8 @@
;GND,
23;GPIO_GEN4, 24;GPIO_GEN5,
;GND,
- 25;GPIO_GEN6, 8;SPI_CEO_N, 7;SPI_CE1_N,
+ 25;GPIO_GEN6, 8;SPI_CEO_N,
+ 7;SPI_CE1_N,
;ID_SC,
;GND,
12;,
@@ -214,12 +215,14 @@
`B`'eval(13-m4Lx): dnl
line left_ plen from Base.n-(m4bwid/2,(m4Lx+0.5)*lg_pinsep)
{"x" ljust at last line.start}',
- GND, RX1+, RX1-, VBUS, SBU2, D-, D+, CC2, VBUS, TX2-, TX2+, GND)
+ GND, RX1`'svg_it(+), RX1`'svg_it(-), VBUS, SBU2, D`'svg_it(-),
+ D`'svg_it(+), CC2, VBUS, TX2`'svg_it(-), TX2`'svg_it(+), GND)
#
Loopover_(`x',
`A`'m4Lx: line right_ plen from Base.n+(m4bwid/2,-(m4Lx+0.5)*lg_pinsep)
{"x" rjust at last line.start}',
- GND, TX1+, TX1-, VBUS, CC1, D+, D-, SBU1, VBUS, RX2-, RX2+, GND)
+ GND, TX1`'svg_it(+), TX1`'svg_it(-), VBUS, CC1, D`'svg_it(+),
+ D`'svg_it(-), SBU1, VBUS, RX2`'svg_it(-), RX2`'svg_it(+), GND)
#
`$4']')
@@ -238,11 +241,13 @@
`Pin`'m4Lx: line left_ plen from Base.nw-(0,m4bwid/3+(m4Lx-1/2)*lg_pinsep)
{"x" ljust at last line.start}
"m4Lx" at last line.c above',
- HPD, UTILITY, D2+, D2_SH, D2-, D1+, D1_SH, D1-, D0+, D0_SH,
- D0-, CLK+, CLK_SH, CLK-, CEC, GND, SCL, SDA, +5V)
- line from Base.nw+(m4bwid*2/3-lg_pinsep,0) up plen
+ HPD, UTILITY, D2`'svg_it(+), D2_SH, D2`'svg_it(-),
+ D1`'svg_it(+), D1_SH, D1`'svg_it(-),D0`'svg_it(+), D0_SH,
+ D0`'svg_it(-), CLK`'svg_it(+), CLK_SH, CLK`'svg_it(-),
+ CEC, GND, SCL, SDA,svg_it(+)5V)
+L1: line from Base.nw+(m4bwid*2/3-lg_pinsep,0) up plen
svg_rot(90,"21" at last line.c +(-2bp__,0))
- svg_rot(90,sprintf("SH2") at last line.start + (4bp__,-8bp__))
+ svg_rot(90,"SH2" at last line.start + (4bp__,-8bp__))
line from Base.nw+(m4bwid*2/3-2*lg_pinsep,0) up plen
svg_rot(90,"20" at last line.c+(-2bp__,0))
svg_rot(90,"SH1" at last line.start + (4bp__,-8bp__))
@@ -255,4 +260,52 @@
#
`$4']')
+ `DIP_chip_outline( pin count, wid )'
+define(`DIP_chip_outline',
+ `[ define(`m4pinct',`ifelse(`$1',,16,`$1')')dnl
+ define(`m4chgw',`ifelse(`$2',,(18*L_unit),`$2')')dnl
+ Chip: box invis wid m4chgw ht lg_pinsep*eval((m4pinct)/2+1)
+ arcd(last box.n, lg_pinsep/2, 180, 360)
+ { line to last box.ne chop -linewid bp__/2 }
+ { line from last arc.start to last box.nw chop -linewid bp__/2 }
+ line from last box.nw to last box.sw then to last box.se then to last box.ne
+ `$3']')
+
+ `DIP( pin count, attributes)
+ Dual in-line package
+ attributes=semicolon-separated list of optional terms:
+ bodywid=expr; (default 0.25 = 5*L_unit )
+ bodylen=expr; (default pin count/2 x pinpitch)
+ pinpitch=expr; (default 0.1)
+ pinwid=expr; (default 0.06)
+ pinlen=expr; (default 0.05)
+ direct=U|D|L|R;(default U for up)
+ type=I|Q; (default I for uniform-length pins;
+ Q: staggered) '
+define(`DIP',`[ pinct= ifelse(`$1',,8,`$1')
+ Loopover_(`Z',`setkey_(`$2',patsubst(Z,:.*),patsubst(Z,.*:))',
+ bodywid: 5*L_unit,
+ bodylen: m4pinpitch*int(pinct/2+0.5),
+ pinpitch:2*L_unit,
+ pinwid: 1.2*L_unit,
+ pinlen: L_unit)
+ Loopover_(`Z',`setkey_(`$2',patsubst(Z,:.*),patsubst(Z,.*:),N)',
+ direct:U,
+ type:I)
+ setdir_(m4direct,U)
+ Body: box ht_ m4bodywid wid_ m4bodylen
+ arcs = ifelse(m4dir,right,90,m4dir,up,180,m4dir,left,270,0)
+ arcd(Body.e_, 0.1/2, arcs,arcs+180)
+ np2 = int(pinct/2+0.5)
+ define(`m4bxht',`m4pinlen ifelse(m4type,Q,`*(1+(i%%2))')')dnl
+ for i=0 to np2-1 do {
+ exec sprintf("Pin%g: box ht_ m4bxht wid_ m4pinwid \
+ with .s_ at (i+0.5)/np2 between Body.ne_ and Body.nw_",i+1) }
+ for i=np2+1 to pinct do {
+ exec sprintf("Pin%g: box ht_ m4bxht wid_ m4pinwid \
+ with .n_ at (i-np2-0.5)/(pinct-np2) between Body.sw_ and Body.se_",i) }
+ `$3'; resetdir_
+ popdef(`m4bodywid',`m4bodylen',`m4pinpitch',`m4pinwid',`m4pinlen',`m4direct',
+ `m4type') ]'))
+
divert(0)dnl
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/paletteSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/paletteSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/paletteSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -322,14 +322,10 @@
Gridbox( nport ) Right
Gridbox( nterm ) Right
-A:Gridbox( FlipFlop(D)
- { line right 5bp__ at last [] . 1nd last ""+(-7bp__,4bp__) } ) Below(A)
- Gridbox( FlipFlop(T)
- { line right 5bp__ at last [] . 1nd last ""+(-7bp__,4bp__) } ) Right
- Gridbox( FlipFlop(RS)
- { line right 5bp__ at last [] . 1nd last ""+(-7bp__,4bp__) } ) Right
- Gridbox( FlipFlop(JK)
- { line right 5bp__ at last [] . 2nd last ""+(-7bp__,4bp__) } ) Right
+A:Gridbox( FlipFlop(D) ) Below(A)
+ Gridbox( FlipFlop(T) ) Right
+ Gridbox( FlipFlop(RS)) Right
+ Gridbox( FlipFlop(JK)) Right
] with .nw at (0,0)
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/roseSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/roseSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/roseSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,5 +1,5 @@
.PS
-# rose.m4
+# roseSVG.m4
gen_init
ifelse(
ifpstricks(T)`'ifmpost(T)`'ifpostscript(T)`'ifpdf(T)`'ifpgf(T)`'ifsvg(T),,
@@ -6,7 +6,8 @@
`This diagram is for PSTricks, postscript, PDF, MetaPost, or SVG',
`
-scale = 1.2
+scale = 1.25
+Rose: [
define(`gold_',`1,0.84,0')
define(`rose',`point_(`$2'); CC: (vec_(`$1',0)); rrad = `$3'
@@ -127,5 +128,39 @@
box wid tmp ht tmp at C
] with .sw at 1,1
+] # Rose
+
+Halftone: [
+#.PS
+# SpiralHalftoneSVG.m4
+# https://tex.stackexchange.com/questions/584455/how-to-draw-this-spiral-made-of-circles-in-latex
+# gen_init
+
+ r = 133/255; g = 196/255; b = 100/255
+ skale = 2/3*scale
+ skale = 2.49/4.25
+
+ holerad = 1*skale
+ outerrad = 4.25*skale
+
+ define grcirc {circle diam $1 colored rgbstring(r,g,b)}
+
+ npts = 200
+ outercdiam = (outerrad/npts)*twopi_
+ angoffset = -5*pi_/4
+ da = twopi_/npts*10/3
+ radc = outerrad
+ for x = 0 to 1 do {
+ cdiam = outercdiam*radc/outerrad
+ for i=0 to npts-1 do { ang = i/npts*twopi_
+ grcirc(cdiam*abs(ang-pi_)/pi_) at rect_(radc,ang+angoffset) }
+ angoffset += da
+ radc -= cdiam*2/3
+ if radc < holerad then { x = 1 } else { x = 0 }
+ }
+
+#.PE
+ ] with .sw at Rose.se+(0.2,0)
+
')
.PE
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/shapesSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/shapesSVG.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/shapesSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,5 +1,5 @@
.PS
-# shapes.m4
+# shapesSVG.m4
threeD_init
divert(-1)
@@ -18,7 +18,7 @@
define(`M4CL',`xdispl,ydispl,zdispl')dnl
lenc = length3D(M4CL)
cs = dot3D(View3D,M4CL)/lenc
- End: (project(M4CL))
+ End: Project(M4CL)
az = atan2(ydispl,xdispl)
ae = atan2(zdispl,sqrt(xdispl^2+ydispl^2))
CL: line invis from Start to End; C: CL.c
@@ -25,7 +25,7 @@
nls = int(twopi_*radc/lthick)
define(`M4PP',`rot3Dz(az,rot3Dy(-ae,rot3Dx(-i/nls*twopi_,0,0,radc)))')dnl
for i=0 to nls-1 do { if dot3D(View3D,M4PP) > 0 then {
- P: (project(M4PP))
+ P: Project(M4PP)
ql = sqrta(dot3D(Light3D,M4PP)/radc)
line from P to End+P outlined rgbstring(ql,ql,ql) `$5' } }
Perp: (vperp(CL,radc))
@@ -48,7 +48,7 @@
define(`M4CL',`xdispl,ydispl,zdispl')dnl
lenc = length3D(M4CL)
diamc = ifelse(`$4',,(lenc/2),`$4') ; radc = diamc/2
- End: (project(M4CL))
+ End: Project(M4CL)
cs = dot3D(View3D,M4CL)/lenc
az = atan2(ydispl,xdispl)
ae = atan2(zdispl,sqrt(xdispl^2+ydispl^2))
@@ -60,7 +60,7 @@
rot3Dz(az,rot3Dy(-ae,rot3Dx(-i/nls*twopi_,radc,0,lenc)))) > 0 then {
ql = sqrta(dot3D(Light3D,
rot3Dz(az,rot3Dy(-ae,rot3Dx(-i/nls*twopi_,radc,0,lenc))))/lt)
- P: (project(rot3Dz(az,rot3Dy(-ae,rot3Dx(-i/nls*twopi_,0,0,radc)))))
+ P: Project(rot3Dz(az,rot3Dy(-ae,rot3Dx(-i/nls*twopi_,0,0,radc))))
line from P to End outlined rgbstring(ql,ql,ql) `$5'
if !b then { WB: P; b = 1 }
} else { if b then { BW: P; b = 0 } } }
@@ -116,7 +116,7 @@
widp = ifelse(`$4',,(linewid/5),`$4')
htp = ifelse(`$5',,(linewid/10),`$5')
rotp = ifelse(`$6',,0,`$6')
- End: (project(xdispl,ydispl,zdispl)); C: 0.5 between Start and End
+ End: Project(xdispl,ydispl,zdispl); C: 0.5 between Start and End
lenp = length3D(xdispl,ydispl,zdispl)
az = atan2(ydispl,xdispl); ae = atan2(zdispl,sqrt(xdispl^2+ydispl^2))
wp2 = widp/2; hp2 = htp/2
@@ -143,10 +143,10 @@
diff3D(`$3'x,`$3'y,`$3'z,`$2'x,`$2'y,`$2'z))')
if dot3D(View3D,PFacet) > 0 then {
fFacet = sqrta(dot3D(Light3D,PFacet)/length3D(PFacet))
- P1: (project(`$1'x,`$1'y,`$1'z))
- P2: (project(`$2'x,`$2'y,`$2'z))
- P3: (project(`$3'x,`$3'y,`$3'z))
- P4: (project(`$4'x,`$4'y,`$4'z))
+ P1: Project(`$1'x,`$1'y,`$1'z)
+ P2: Project(`$2'x,`$2'y,`$2'z)
+ P3: Project(`$3'x,`$3'y,`$3'z)
+ P4: Project(`$4'x,`$4'y,`$4'z)
line fill_(fFacet) invis from P1 to P2 then to P3 then to P4 then to P1
line from P1 to P2; round
line to P3; round
@@ -165,7 +165,7 @@
Arrow3D(0,1,0) with .Start at Orig; "y" ljust at last [].End
Arrow3D(0,0,1.2) with .Start at Orig; "z" above at last [].End
setlight(0,0,0)
- cylinder3D(1,1,1,0.6) with .Start at (project(0.5,0.5,0.5))
+ cylinder3D(1,1,1,0.6) with .Start at Project(0.5,0.5,0.5)
]
Ball: shadedball(0.5) with .nw at last [].ne+(-0.25,0)
[
@@ -175,7 +175,7 @@
for i=0 to n do {
r = i/n*(thmax-thmin)+thmin
prism3D(rot3Dz(r,rot3Dy(pi_/4,len,0,0)),0.2,0.1) \
- with .Start at (project(rot3Dz(r,rot3Dy(pi_/4,len*0.5,0,0)))) }
+ with .Start at Project(rot3Dz(r,rot3Dy(pi_/4,len*0.5,0,0))) }
] with .nw at last [].ne
[
setlight(0,0)
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/sldtestsSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/sldtestsSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/sldtestsSVG.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,104 @@
+.PS
+# slddiagsSVG.m4
+cct_init(svg_font(sans-serif,10bp__))
+include(../test/sld/SLD.m4)
+
+divert(-1)
+
+divert(0)dnl
+
+Pic1: [
+define(`TRFDY',
+ `sl_transformer(down_ elen_ `$1',type=S)
+ { Deltasymbol(at last [].M1); Ysymbol(at 2nd last [].M2,,D) } ')
+
+ T: dot
+ switch(up_ elen_); {"Public supply" above}
+ Bus1: sl_busbar(right_ 5*dimen_,6,port=D) with .c at T
+ {"svg_small(20 kV)" at Bus1.Start above ljust}
+ S1: switch(from Bus1.P1-(0,elen_) up_ elen_)
+ S2: switch(from Bus1.P2-(0,elen_) up_ elen_)
+ TRF1: TRFDY(from Bus1.P3); arrow down_ dimen_/3
+ TRF2: TRFDY(from Bus1.P4); arrow down_ dimen_/3
+ TRF3: TRFDY(from Bus1.P5); arrow down_ dimen_/3
+ S3: switch(from Bus1.P6-(0,elen_) up_ elen_)
+ Bus2: sl_busbar(right_ 1.5*dimen_,3,port=D) with .c at Bus1.P1+(0,-dimen_*3)
+ {"svg_small(20 kV)" at Bus2.Start above ljust}
+ {"svg_small(1.25 MVA)" at Bus2.P2 below}
+ S4: switch(from Bus2.P2 to S1.start)
+ TRF4: TRFDY(from Bus2.P1)
+ S4: switch(from Bus2.P3+(0,-elen_) to Bus2.P3)
+]
+
+Pic3: [
+# https://tex.stackexchange.com/questions/597643/draw-a-power-system-network
+ B1: sl_busbar(up_ dimen_*4/3,3)
+ sl_transformer(right_ 2*dimen_ from last [].P2,
+ type=S;body=shaded "lightgray"); variable(,,,dimen_*3/2)
+ B2: sl_busbar(up_ dimen_*4/3,3)
+ { line left_ dimen_/2 from B2.P1
+ C1: capacitor(down_ dimen_/2); ground(,T) }
+ line right_ dimen_/2
+ { line to (Here,C1.start); C2: capacitor(to (Here,C1.end)); ground(,T) }
+ ebox(right_ 3.5*dimen_, 2.5*dimen_, dimen_/5, 0.75)
+ { line to (Here,C1.start); C3: capacitor(to (Here,C1.end)); ground(,T) }
+ line right_ dimen_/2
+ B3: sl_busbar(up_ dimen_*4.5,6)
+ line right_ dimen_*3/4 from B3.P1; box wid dimen_*3 ht dimen_*.6 \
+ shaded "Goldenrod" "Static Load"
+ line right_ dimen_*3/4 from B3.P2; box wid dimen_*3 ht dimen_*.6 \
+ shaded rgbstring(0.99*0.8, 0.74*0.8, 0.71*0.8) "Electronic Load"
+ sl_disk(at B3.P3,,R,
+ text="A/C";circle=shaded ```rgbstring(.2,.8,.2)''';diam=dimen_*3/4)
+ sl_disk(at B3.P4,,R,
+ text="M";circle=shaded ```rgbstring(.21,.47,.86)''';diam=dimen_*3/4)
+ sl_disk(at B3.P5,,R,
+ text="M";circle=shaded ```rgbstring(.2,.6,.8)''';diam=dimen_*3/4)
+ sl_disk(at B3.P6,,R,
+ text="M";circle=shaded ```rgbstring(.2,.63,.8)''';diam=dimen_*3/4)
+ sl_disk(at 1/2 between B3.P1 and B3.P2,,L,
+ text="svg_small(DER_A)";\
+ circle=shaded ```rgbstring(0.78,0.36,0.3)''';diam=dimen_*3/4)
+] with .nw at last [].sw + (100bp__,120bp__)
+
+Pic2: [
+define(`shadedb',`shaded "CornflowerBlue"')
+Loopover_(`LR', # loop to take advantage of symmetry
+ `define(`lrdir',ifelse(LR,L,`right_',`left_'))dnl
+ LR`'side: [
+ sl_generator(,dimen_,LR,type=B;name=G1;circle=shadedb,box=shadedb)
+ T1: sl_transformer(lrdir dimen_*3/2)
+ Bus1: sl_busbar(up_ dimen_*3/2,3,) with .P2 at Here
+ Br1: sl_breaker(from Bus1.P3 lrdir elen_,box=shadedb)
+ line lrdir dimen_
+ Br2: sl_breaker(from Bus1.P1 lrdir elen_,box=shadedb)
+ Br3: sl_breaker(down_ dimen_,box=shadedb)
+ Bus2: sl_busbar(lrdir dimen_,3) with .P2 at Here
+ T2: sl_transformer(down_ dimen_ from Bus2.P2,name=X2)
+ sl_disk(,dimen_/2,D,type=B;text="SM";name=SM1;circle=shadedb,box=shadedb)
+ ground(at last circle.s,dimen_/2)
+ ]',
+ L,R)
+ "Bus 1" at Lside.Bus1.top above
+ "Bus 2" at Rside.Bus1.top above
+ "Bus 3" at Lside.Bus2.w above
+ "Bus 4" at Rside.Bus2.e above
+ "TL`'svg_sub(1) 50 km 69 kV" at 1/2 between Lside.Br1 and Rside.Br1 above
+ "TL`'svg_sub(2) 30 km" ljust "69 kV" ljust at Lside.Br2.end + (-18bp__,12bp__)
+ "TL`'svg_sub(2) 20 km" ljust "69 kV" ljust at Rside.Br2.end + (-18bp__,12bp__)
+ "G`'svg_sub(1) 50 MVA" ljust "13.8 kV" ljust at Lside.G1.w+(0,-28bp__)
+ "G`'svg_sub(2) 30 MVA" ljust "13.8 kV" ljust at Rside.G1.w+(0,-28bp__)
+ "T`'svg_sub(1) 50 MVA" ljust "13.8/69 kV svg_Delta/Y" ljust \
+ at Lside.T1.start+(0,-33bp__)
+ "T`'svg_sub(2) 30 MVA" ljust "69/13.8 kV Y/svg_Delta" ljust \
+ at Rside.T1.end+(5bp__,-33bp__)
+ "T`'svg_sub(3) 50 MVA" rjust "13.8/69 kV Y/svg_Delta" rjust \
+ at Lside.X2.w+(-4bp__,0)
+ "T`'svg_sub(4) 20 MVA" ljust "69/6.9 kV Y/svg_Delta" ljust \
+ at Rside.X2.e+(4bp__,0)
+ "SM`'svg_sub(1) 30 MVA" rjust "13.8 kV" rjust at Lside.SM1.w+(-4bp__,0)
+ "SM`'svg_sub(2) 20 MVA" ljust "6.9 kV" ljust at Rside.SM1.e+( 4bp__,0)
+] with .nw at (Pic1.w,last [].sw + (0,-15bp__))
+
+command "</g>"
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/sldtestsSVG.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/tstSVG.htmx
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/tstSVG.htmx 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/tstSVG.htmx 2021-06-03 20:45:51 UTC (rev 59444)
@@ -86,6 +86,7 @@
e.g. m4tt`'svg_tspan(font-style="italic" font-size="75%",XYZ)</g>
<li>m4tt svg_it(</g>text`'m4tt)</g>: for italics
<li>m4tt svg_tt(</g>text`'m4tt)</g>: for monospace (courier)
+ <li>m4tt svg_sf(</g>text`'m4tt)</g>: sans-serif (Helvetica)
<li>m4tt svg_norm(</g>text`'m4tt)</g>: for normal text
<li>m4tt svg_bf(</g>text`'m4tt)</g>: for bold face
<li>m4tt svg_small(</g>text, percent`'m4tt)</g>:
@@ -96,6 +97,11 @@
subscript
<li>m4tt svg_sup(</g>text, size percent, y displ, x displ`'m4tt)</g>:
superscript
+ <li>m4tt svg_ul(</g>text`'m4tt)</g>: underlined text
+ <li>m4tt svg_ol(</g>text`'m4tt)</g>: overlined text
+ <li>m4tt svg_hat(</g>character`'m4tt)</g>: circumflex-accented character
+ <li>m4tt svg_frac(</g>numerator[:wid], denominator[:wid]`'m4tt)</g>:
+ basic fraction, wid in drawing units
<li>m4tt svg_rot(</g>degrees, "text" [at position]`'m4tt)</g>:
Rotate text degrees (default 90) ccw.
Requires m4tt`'svg_rot_init(</g>filename`'m4tt)</g> and the source
Deleted: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/tikz.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/tikz.tex 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/tikz.tex 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,15 +0,0 @@
-\documentclass[11pt]{article}
-\usepackage{tikz}
-\usepackage{siunitx}
-\usepackage[T1]{fontenc}
-\usepackage{boxdims}
-\addtolength{\textwidth}{2cm}
-\addtolength{\textheight}{3cm}
-\setlength{\oddsidemargin}{0pt}
-\setlength{\evensidemargin}{0pt}
-\setlength{\hoffset}{-0.5in}
-\pagestyle{empty}
-\thispagestyle{empty}
-\begin{document}
- \noindent\vspace{2ex}\input{test.tex}
-\end{document}
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/tst.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/tst.tex 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/tst.tex 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,23 +1,12 @@
\documentclass[11pt]{article}
-% Custimize your packages here:
-\usepackage[dvips]{graphicx}
-\usepackage{pstricks,pst-slpe,pst-grad}
-\usepackage{boxdims}
-\usepackage{upgreek}
-\usepackage{siunitx}
-\usepackage{amssymb}
-%
-%\addtolength{\textwidth}{2cm}
-\addtolength{\textwidth}{10cm} % for Tubediags.ps
-%\addtolength{\textheight}{3cm}
-\addtolength{\textheight}{10cm} % for Tubediags.ps
-\setlength{\oddsidemargin}{0pt}
-\setlength{\evensidemargin}{0pt}
-\setlength{\hoffset}{-0.5in}
-\newbox\graph
-\pagestyle{empty}
-\thispagestyle{empty}
-%
-\begin{document}
- \noindent\vspace{2ex}\input{test.tex}\box\graph
-\end{document}
+ \usepackage[dvipsnames]{xcolor}
+ \usepackage{times,boxdims,graphicx,pstricks}
+ \usepackage{siunitx}
+ \setlength{\textwidth}{28cm}\setlength{\textheight}{28cm}
+ \setlength{\oddsidemargin}{0pt}\setlength{\evensidemargin}{0pt}
+ \setlength{\hoffset}{-1cm}
+ \pagestyle{empty}\thispagestyle{empty}
+ \newbox\graph
+ \begin{document}
+ \noindent\input{test.tex}\box\graph
+ \end{document}
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/tsttikz.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/tsttikz.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/tsttikz.tex 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,19 @@
+\documentclass[11pt]{standalone}
+% Custimize your packages here:
+\usepackage{graphicx}
+%\usepackage{pstricks,pst-slpe,pst-grad}
+\usepackage{tikz}
+\usepackage{boxdims}
+\usepackage{upgreek}
+\usepackage{siunitx}
+\usepackage{amssymb}
+\usepackage{geometry}
+% for Heathkit.m4:
+\geometry{paperwidth=15in,paperheight=14in,margin=1in}
+\newbox\graph
+\pagestyle{empty}
+\thispagestyle{empty}
+%
+\begin{document}
+ \noindent\vspace{2ex}\input{test.tex}\box\graph
+\end{document}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/tsttikz.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/venus.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/venus.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/venus.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -0,0 +1,73 @@
+.PS
+# venus.m4
+# https://tex.stackexchange.com/questions/576423/a-more-precise-dance-of-planets-with-metapost-and-tikz
+# https://tex.stackexchange.com/questions/575986/dance-of-venus-and-variations-in-tikz-pgf
+
+gen_init
+NeedDpicTools
+maxpsht = 20
+
+thinlines_
+
+define(`venus',
+`setkeys_(`$1',
+ outerlength:4;
+ innerlength:2.8933;
+ outerrate:8;
+ innerrate:13;
+ maxtimes:2880;
+ increment:2;
+ changephase:0 )
+ sizefactor = 165/200
+ nmaxtimes = 360*m4outerrate
+ for x=0 to nmaxtimes by m4increment do {
+ if "$2" != "" then { hue = \
+ abs(sind(360*x/nmaxtimes*abs(m4innerrate-m4outerrate)+m4changephase-60))
+ hsvtorgb(hue*360,1,1,r,g,b)
+ line from (Rect_(m4outerlength,x))*sizefactor \
+ to (Rect_(m4innerlength,x/m4outerrate*m4innerrate))*sizefactor \
+ outlined rgbstring(r,g,b) } \
+ else {
+ line from (Rect_(m4outerlength,x))*sizefactor \
+ to (Rect_(m4innerlength,x/m4outerrate*m4innerrate))*sizefactor
+ }
+ } ')
+
+AA:[
+ sizefactor = 1/2.54
+ define(`venusA',`[
+ setkeys_(`$1',
+ iterations:270;
+ outerdistance:5.41;
+ innerdistance:7.48;
+ outerperiod:123;
+ innerperiod:200;
+ step:5)
+ for x=0 to m4iterations by m4step do {
+ line from (Rect_(m4outerdistance,x))*sizefactor \
+ to (Rect_(m4innerdistance,x/m4outerperiod*m4innerperiod))*sizefactor \
+ outlined "gray"
+ }
+ ]')
+
+# 3 columns, 5 rows
+ sizefactor /= 3
+ Orig:(0,0)
+ for i=1 to 5 do {
+ iteri = 180 + (i-1)*540
+ for j=1 to 3 do {
+ if (i==1) && (j==1) then { iter = 270 } \
+ else { iter = iteri + (j-1)*180 }
+ V[i,j]: venusA(iterations=iter) with .sw at Orig
+ sprintf("%g",iter) at last [] #colored rgbstring(1,0,0)
+ Orig: V[i,j].se
+ }
+ Orig: V[i,1].sw-(0,V[i,1].ht)
+ }
+ ]
+
+BB:[
+ venus(outerrate=8;innerrate=17;increment=2;innerlength=3.5;changephase=60,T)
+ ] with .nw at AA.sw+(0,-0.5)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/venus.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/xfig/xfiglib.fig
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/xfig/xfiglib.fig 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/xfig/xfiglib.fig 2021-06-03 20:45:51 UTC (rev 59444)
@@ -6,7 +6,7 @@
100.00
Single
-2
-# dpic version 2021.01.01 option -x for Fig 3.2
+# dpic version 2021.05.15 option -x for Fig 3.2
1200 2
6 0 0 3975 5025
6 0 0 3975 5025
@@ -17,33 +17,37 @@
-6
6 375 75 600 675
2 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 0 2
- 525 675 525 545
-1 3 0 0 0 -1 0 -1 -1 0 1 0.0 525 545 3 3 528 545 528 545
-5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 500 491 525 545 441 478 546 452
-1 3 0 0 0 -1 0 -1 -1 0 1 0.0 546 452 3 3 549 452 549 452
-5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 500 414 546 452 440 414 546 375
-1 3 0 0 0 -1 0 -1 -1 0 1 0.0 546 375 3 3 549 375 549 375
-5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 500 336 546 375 440 336 546 298
-1 3 0 0 0 -1 0 -1 -1 0 1 0.0 546 298 3 3 549 298 549 298
-5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 500 259 546 298 441 272 525 205
-1 3 0 0 0 -1 0 -1 -1 0 1 0.0 525 205 3 3 528 205 528 205
+ 525 675 525 551
+6 440 205 549 556
+1 3 0 0 0 -1 0 -1 -1 0 1 0.0 525 551 3 3 528 551 528 551
+5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 500 496 525 551 441 483 546 458
+1 3 0 0 0 -1 0 -1 -1 0 1 0.0 546 458 3 3 549 458 549 458
+5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 500 419 546 458 440 419 546 381
+1 3 0 0 0 -1 0 -1 -1 0 1 0.0 546 381 3 3 549 381 549 381
+5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 500 342 546 381 440 342 546 303
+1 3 0 0 0 -1 0 -1 -1 0 1 0.0 546 303 3 3 549 303 549 303
+5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 500 265 546 303 441 278 525 211
+1 3 0 0 0 -1 0 -1 -1 0 1 0.0 525 211 3 3 528 211 528 211
+-6
2 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 0 2
- 525 205 525 75
+ 525 211 525 86
-6
6 750 75 975 675
2 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 0 2
- 900 675 900 545
-1 3 0 0 0 -1 0 -1 -1 0 1 0.0 900 545 3 3 903 545 903 545
-5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 875 491 900 545 816 478 921 452
-1 3 0 0 0 -1 0 -1 -1 0 1 0.0 921 452 3 3 924 452 924 452
-5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 875 414 921 452 815 414 921 375
-1 3 0 0 0 -1 0 -1 -1 0 1 0.0 921 375 3 3 924 375 924 375
-5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 875 336 921 375 815 336 921 298
-1 3 0 0 0 -1 0 -1 -1 0 1 0.0 921 298 3 3 924 298 924 298
-5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 875 259 921 298 816 272 900 205
-1 3 0 0 0 -1 0 -1 -1 0 1 0.0 900 205 3 3 903 205 903 205
+ 900 675 900 551
+6 815 205 924 556
+1 3 0 0 0 -1 0 -1 -1 0 1 0.0 900 551 3 3 903 551 903 551
+5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 875 496 900 551 816 483 921 458
+1 3 0 0 0 -1 0 -1 -1 0 1 0.0 921 458 3 3 924 458 924 458
+5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 875 419 921 458 815 419 921 381
+1 3 0 0 0 -1 0 -1 -1 0 1 0.0 921 381 3 3 924 381 924 381
+5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 875 342 921 381 815 342 921 303
+1 3 0 0 0 -1 0 -1 -1 0 1 0.0 921 303 3 3 924 303 924 303
+5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 875 265 921 303 816 278 900 211
+1 3 0 0 0 -1 0 -1 -1 0 1 0.0 900 211 3 3 903 211 903 211
+-6
2 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 0 2
- 900 205 900 75
+ 900 211 900 86
2 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 0 2
790 551 790 199
2 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 0 2
@@ -52,10 +56,12 @@
6 1125 75 1200 675
2 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 0 2
1200 675 1200 525
-5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 1200 488 1200 525 1163 488 1200 450
+6 1162 225 1200 525
+5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 1200 488 1200 525 1162 488 1200 450
5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 1200 413 1200 450 1163 413 1200 375
5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 1200 338 1200 375 1163 338 1200 300
5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 1200 263 1200 300 1163 263 1200 225
+-6
2 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 0 2
1200 225 1200 75
-6
@@ -62,10 +68,12 @@
6 1350 75 1500 675
2 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 0 2
1500 675 1500 525
+6 1463 225 1500 525
5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 1500 488 1500 525 1463 488 1500 450
5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 1500 413 1500 450 1463 413 1500 375
5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 1500 338 1500 375 1463 338 1500 300
5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 1500 263 1500 300 1463 263 1500 225
+-6
2 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 0 2
1500 225 1500 75
2 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 0 2
@@ -293,10 +301,12 @@
6 2400 1575 2700 2025
2 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 0 2
2400 1575 2400 1620
+6 2400 1620 2445 1980
5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 2400 1665 2400 1620 2445 1665 2400 1710
5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 2400 1755 2400 1710 2445 1755 2400 1800
5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 2400 1845 2400 1800 2445 1845 2400 1890
5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 2400 1935 2400 1890 2445 1935 2400 1980
+-6
2 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 0 2
2400 1980 2400 2025
2 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 0 2
@@ -305,10 +315,12 @@
2595 1620 2595 1980
2 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 0 2
2700 2025 2700 1980
+6 2655 1620 2700 1980
5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 2700 1935 2700 1980 2655 1935 2700 1890
5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 2700 1845 2700 1890 2655 1845 2700 1800
5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 2700 1755 2700 1800 2655 1755 2700 1710
5 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 2700 1665 2700 1710 2655 1665 2700 1620
+-6
2 1 0 1 0 -1 0 -1 -1 0 0 0 0 0 0 2
2700 1620 2700 1575
-6
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/gpic.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/gpic.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/gpic.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,7 +1,7 @@
divert(-1)
gpic.m4 Initialization for gpic.
-* Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under *
+* Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under *
* the LaTeX Project Public Licence in file Licence.txt. The files of *
* this distribution may be redistributed or modified provided that this *
* copyright notice is included and provided that modifications are clearly *
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/lib3D.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/lib3D.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/lib3D.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,9 +1,9 @@
divert(-1)
lib3D.m4 Macros for rotation, projection, and other
operations on argument triples representing
- 3D vectors.
+ 3D vectors or colors.
-* Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under *
+* Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under *
* the LaTeX Project Public Licence in file Licence.txt. The files of *
* this distribution may be redistributed or modified provided that this *
* copyright notice is included and provided that modifications are clearly *
@@ -26,21 +26,36 @@
P =( -sin(az), cos(az), 0 )
(-sin(el)cos(az),-sin(az)sin(el),cos(el))'
define(`setview',`
-# setview
- m4azim=ifelse(`$1',,0,`$1',0,0,`prod_(`$1',dtor_)')
- m4elev=ifelse(`$2',,0,`$2',0,0,`prod_(`$2',dtor_)')
- m4rot =ifelse(`$3',,0,`$3',0,0,`prod_(`$3',dtor_)')
- m4caz=ifelse(`$1',,1,`$1',0,1,`$1',90,0,`$1',-90, 0,cos(m4azim))
- m4saz=ifelse(`$1',,0,`$1',0,0,`$1',90,1,`$1',-90,-1,sin(m4azim))
- m4cel=ifelse(`$2',,1,`$2',0,1,`$2',90,0,`$2',-90, 0,cos(m4elev))
- m4sel=ifelse(`$2',,0,`$2',0,0,`$2',90,1,`$2',-90,-1,sin(m4elev))
- m4cro=ifelse(`$3',,1,`$3',0,1,`$3',90,0,`$3',-90, 0,cos(m4rot))
- m4sro=ifelse(`$3',,0,`$3',0,0,`$3',90,1,`$3',-90,-1,sin(m4rot))
- view3D1=m4caz*m4cel
- view3D2=m4saz*m4cel
- view3D3=m4sel dnl
- ifdef(`setlight_',,`; light3D1=view3D1; light3D2=view3D2; light3D3=view3D3')
+`# setview($@)'
+define(`m4azim',ifelse(`$1',,0,prod_($1,dtor_)))dnl
+define(`m4elev',ifelse(`$2',,0,prod_($2,dtor_)))dnl
+define(`m4rot', ifelse(`$3',,0,prod_($3,dtor_)))dnl
+define(`m4azimr',`ifelse(`$1',,0,`prod_(`$1',dtor_)')')dnl
+define(`m4elevr',`ifelse(`$2',,0,`prod_(`$2',dtor_)')')dnl
+define(`m4rotx',`ifelse(`$3',,0,`prod_(`$3',dtor_)')')dnl
+define(`m4caz',
+ `ifelse(`$1',,1,`$1',0,1,`$1',90,0,`$1',-90, 0,m4cos(m4azim))')dnl
+define(`m4saz',
+ `ifelse(`$1',,0,`$1',0,0,`$1',90,1,`$1',-90,-1,m4sin(m4azim))')dnl
+define(`m4cel',
+ `ifelse(`$2',,1,`$2',0,1,`$2',90,0,`$2',-90, 0,m4cos(m4elev))')dnl
+define(`m4sel',
+ `ifelse(`$2',,0,`$2',0,0,`$2',90,1,`$2',-90,-1,m4sin(m4elev))')dnl
+define(`m4cro',`ifelse(`$3',,1,`$3',0,1,`$3',90,0,`$3',-90, 0,m4cos(m4rot))')dnl
+define(`m4sro',`ifelse(`$3',,0,`$3',0,0,`$3',90,1,`$3',-90,-1,m4sin(m4rot))')dnl
+ view3D1=m4caz*m4cel;dnl
+ view3D2=m4saz*m4cel;dnl
+ view3D3=m4sel
+ ifdef(`setlight_',,`light3D1=view3D1; light3D2=view3D2; light3D3=view3D3')
+dnl Unit vectors projected on the view plane
+ UPx_: project(1,0,0)
+ UPy_: project(0,1,0)
+ UPz_: project(0,0,1)
+`# setview end'
')
+define(`m4cos',`ifelse(`$1',0,1,cos(`$1'))')
+define(`m4sin',`ifelse(`$1',0,0,sin(`$1'))')
+
The resulting view vector
#efine(`View3D',`PtoBase3D(1,0,0)')
define(`View3D',`view3D1,view3D2,view3D3')
@@ -51,36 +66,45 @@
define(`Pr_xz',`$1,$3')
define(`Pr_yz',`$2,$3')
- Projection coords back to orig 3D coords
+ Projection coords back to orig 3D coords
define(`PtoBase3D',
`rot3Dz(m4azim,rot3Dy(-m4elev,rot3Dx(-m4rot,`$1',`$2',`$3')))')
- This does the 3D to 2D axonometric projection
- i.e. project(x,y,z) produces coordinate pair
- u,v on the 2D plane defined by the view angles.
-define(`project',
-`Pr_yz(rot3Dx(m4rot,rot3Dy(m4elev,rot3Dz(-m4azim,`$1',`$2',`$3'))))')
+ This does the 3D to 2D axonometric projection
+ i.e. project(x,y,z) produces coordinate pair
+ u,v on the 2D plane defined by the view angles
+ and Project(x,y,z) produces position (u,v)
+ifdpic(
+`define(`project',
+ `Pr_yz(rot3Dx(m4rot,rot3Dy(m4elev,rot3Dz(-m4azim,`$1',`$2',`$3'))))')
+ define(`Project',`(ifelse(`$1',0,
+ `ifelse(`$2',0,`ifelse(`$3',0,`(0,0)',UPz_*(`$3'))',
+ `UPy_*(`$2')`'ifelse(`$3',0,,+UPz_*(`$3'))')',
+ `UPx_*(`$1')`'ifelse(`$2',0,,+UPy_*(`$2'))`'ifelse(`$3',0,,+UPz_*(`$3'))'))')',
+`define(`project',
+ `Pr_yz(rot3Dx(m4rot,rot3Dy(m4elev,rot3Dz(-m4azim,`$1',`$2',`$3'))))')
+ define(`Project',`(project($@))')')
`Rotation about x axis rot3Dx(angle,x1,x2,x3)'
-define(`rot3Dx',``$2',diff_(prod_(cos(`$1'),`$3'),prod_(sin(`$1'),`$4')),dnl
- sum_(prod_(sin(`$1'),`$3'),prod_(cos(`$1'),`$4'))')
+define(`rot3Dx',``$2',diff_(prod_(m4cos(`$1'),`$3'),prod_(m4sin(`$1'),`$4')),dnl
+ sum_(prod_(m4sin(`$1'),`$3'),prod_(m4cos(`$1'),`$4'))')
`Rotation about y axis rot3Dy(angle,x1,x2,x3)'
-define(`rot3Dy',`sum_(prod_(cos(`$1'),`$2'),prod_(sin(`$1'),`$4')),`$3',dnl
- diff_(prod_(cos(`$1'),`$4'),prod_(sin(`$1'),`$2'))')
+define(`rot3Dy',`sum_(prod_(m4cos(`$1'),`$2'),prod_(m4sin(`$1'),`$4')),`$3',dnl
+ diff_(prod_(m4cos(`$1'),`$4'),prod_(m4sin(`$1'),`$2'))')
`Rotation about z axis rot3Dz(angle,x1,x2,x3)'
-define(`rot3Dz',`diff_(prod_(cos(`$1'),`$2'),prod_(sin(`$1'),`$3')),dnl
- sum_(prod_(sin(`$1'),`$2'),prod_(cos(`$1'),`$3')),`$4'')
+define(`rot3Dz',`diff_(prod_(m4cos(`$1'),`$2'),prod_(m4sin(`$1'),`$3')),dnl
+ sum_(prod_(m4sin(`$1'),`$2'),prod_(m4cos(`$1'),`$3')),`$4'')
`Cross product cross3D(x1,y1,z1,x2,y2,z2)'
define(`cross3D',`diff_(prod_(`$2',`$6'),prod_(`$3',`$5')),dnl
- diff_(prod_(`$3',`$4'),prod_(`$1',`$6')),dnl
- diff_(prod_(`$1',`$5'),prod_(`$2',`$4'))')
+ diff_(prod_(`$3',`$4'),prod_(`$1',`$6')),dnl
+ diff_(prod_(`$1',`$5'),prod_(`$2',`$4'))')
`Dot product dot3D(x1,y1,z1,x2,y2,z2)'
define(`dot3D',`(sum_(
- sum_(prod_(`$1',`$4'),prod_(`$2',`$5')),prod_(`$3',`$6')))')
+ sum_(prod_(`$1',`$4'),prod_(`$2',`$5')),prod_(`$3',`$6')))')
Vector addition, subtraction, scalar product
define(`sum3D',`sum_(`$1',`$4'),sum_(`$2',`$5'),sum_(`$3',`$6')')
define(`diff3D',`diff_(`$1',`$4'),diff_(`$2',`$5'),diff_(`$3',`$6')')
@@ -92,19 +116,20 @@
define(`length3D',`sqrt((`$1')^2+(`$2')^2+(`$3')^2)')
Unit vector
define(`unit3D',`sprod3D(1/length3D(`$1',`$2',`$3'),`$1',`$2',`$3')')
+ Proportion: between3D(x,Vec1,Vec2), i.e.
+ Vec1 * (1-x) + Vec2 * x
+define(`between3D',`sum3D(sprod3D((1-(`$1')),`$2',`$3',`$4'),
+ sprod3D( `$1',`$5',`$6',`$7'))')
- `Assign the direction cosines to variables
- assign3D([u],[v],[w],x,y,z); eg
+ `assign3D([u],[v],[w],x,y,z); eg
assign3D(u,v,w,cross3D(x1,y1,z1,x2,y2,z2))
- assigns the 4th arg to u, the 5th to v,
- and the 6th to w as u, v,or w are nonblank'
-define(`assign3D',
-`ifelse(`$1',,,`$1' = `$4')
- ifelse(`$2',,,`$2' = `$5')
- ifelse(`$3',,,`$3' = `$6')')
+ assigns u = 4th arg, v = 5th arg, w = 6th arg,
+ for nonblank u, v, or w'
+define(`assign3D',`assign3($@)')
+
`vassign3D(name,x,y,z); eg
vassign3D(u,x,y,z)
- assigns u[1] to x, u[2] to y, u[3] to z'
+ assigns u[1] = x, u[2] = y, u[3] = z'
define(`vassign3D',`for i_vassign3D = 1 to 3 do {
exec sprintf("`$1'[i_vassign3D] = $%g",i_vassign3D+3) }')
@@ -111,21 +136,21 @@
Write out the 3 arguments for debug
define(`print3D',`print sprintf("`$1'(%g,%g,%g)",`$2',`$3',`$4')')
- `setlightlight (azimuth, elevation, rotation)
+ `setlight (azimuth, elevation, rotation)
Set angles (degrees) for 3D highlighting.
Defaults are the previous values for
setview(). The Light3D vector is defined
as for View3D.'
define(`setlight',`define(`setlight_')
- m4hzim=ifelse(`$1',,m4azim,`$1',0,0,`prod_(`$1',dtor_)')
- m4hlev=ifelse(`$2',,m4elev,`$2',0,0,`prod_(`$2',dtor_)')
- m4hot =ifelse(`$3',,m4rot,`$3',0,0,`prod_(`$3',dtor_)')
- m4chz=ifelse(`$1',0,1,`$1',90,0,`$1',-90, 0,cos(m4hzim))
- m4shz=ifelse(`$1',0,0,`$1',90,1,`$1',-90,-1,sin(m4hzim))
- m4chl=ifelse(`$2',0,1,`$2',90,0,`$2',-90, 0,cos(m4hlev))
- m4shl=ifelse(`$2',0,0,`$2',90,1,`$2',-90,-1,sin(m4hlev))
- m4cho=ifelse(`$3',0,1,`$3',90,0,`$3',-90, 0,cos(m4hot))
- m4sho=ifelse(`$3',0,0,`$3',90,1,`$3',-90,-1,sin(m4hot))
+ define(`m4hzim',`ifelse(`$1',,m4azimr,`prod_(`$1',dtor_)')')dnl
+ define(`m4hlev',`ifelse(`$2',,m4elevr,`prod_(`$2',dtor_)')')dnl
+ define(`m4hot',`ifelse(`$3',,m4rotx,`prod_(`$3',dtor_)')')dnl
+ define(`m4chz',`ifelse(`$1',0,1,`$1',90,0,`$1',-90, 0,cos(m4hzim))')dnl
+ define(`m4shz',`ifelse(`$1',0,0,`$1',90,1,`$1',-90,-1,sin(m4hzim))')dnl
+ define(`m4chl',`ifelse(`$2',0,1,`$2',90,0,`$2',-90, 0,cos(m4hlev))')dnl
+ define(`m4shl',`ifelse(`$2',0,0,`$2',90,1,`$2',-90,-1,sin(m4hlev))')dnl
+ define(`m4cho',`ifelse(`$3',0,1,`$3',90,0,`$3',-90, 0,cos(m4hot))')dnl
+ define(`m4sho',`ifelse(`$3',0,0,`$3',90,1,`$3',-90,-1,sin(m4hot))')dnl
light3D1=m4chz*m4chl
light3D2=m4shz*m4chl
light3D3=m4shl
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/libcct.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/libcct.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/libcct.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,7 +1,7 @@
divert(-1)
libcct.m4
-* Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under *
+* Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under *
* the LaTeX Project Public Licence in file Licence.txt. The files of *
* this distribution may be redistributed or modified provided that this *
* copyright notice is included and provided that modifications are clearly *
@@ -71,15 +71,17 @@
DEBUGGING: The statement
print "`$0'($@)" ;
inserted into a macro will display the macro name and current arguments
+ Similarly, the m4 macro m4msg( text ) will display the text during m4
+ processing.
==============================================================================
This file redefines default arrow dimensions and the dotrad_ macro.
=============================================================================='
- `capacitor( linespec,[char][+],R,height,wid )
- char:
- F or none: flat plates
- C = polarized, curved plate
+ `capacitor( linespec,chars,R,height,wid )
+ Arg2 chars:
+ [d]F or blank: flat plates; d=hatched fill
+ [d]C = polarized, curved plate; d=variable
E = polarized rectangular plates
K = filled rectangular plates
M = rectangular plates
@@ -88,26 +90,27 @@
+ = polarity sign to right of drawing dir
+L =polarity sign to left
arg3 = R: reversed orientation
- arg4 = height (defaults F: dimen_/3
- C,P: dimen_/4, E,K: dimen_/5)
- arg5 = wid (defaults F: height*0.3,
- C,P: height*0.4, E,K: height) '
+ arg4 = height (defaults F: dimen_/3;
+ C,P: dimen_/4; E,K: dimen_/5)
+ arg5 = wid (defaults F: height*0.3;
+ C,P: height*0.4; E,K: height) '
define(`capacitor',
- `ifelse(`$3',R,`reversed(`capacitor',`$1',`$2',,shift(shift(shift($@))))',
+`ifelse(`$3',R,`reversed(`capacitor',`$1',`$2',,shift(shift(shift($@))))',
`eleminit_(`$1')
- define(`m4ctype',ifelse(`$2',,F,`$2',+,F,`$2',+L,F,`$2'))dnl
- m4_dna(`m4ctype',+L)`'m4_dna(`m4ctype',+)dnl
- { ifelse(m4ctype,F,
+ define(`dna_',`ifelse(`$2',,F,`$2')')dnl
+ { sc_draw(`dna_',F,
`define(`m4cht',`ifelse(`$4',,`dimen_/3',`($4)')')dnl
define(`m4cwd',`ifelse(`$5',,`m4cht*0.3',`($5)')')dnl
line to rvec_(rp_len/2-m4cwd/2,0)
{line from rvec_(0,-m4cht/2) \
to rvec_(0,m4cht/2)}
+ ifelse(m4a,d,`for_(1,3,1,{line from rvec_(0,m4cwd*(m4x-5/2)) \
+ to rvec_(m4cwd,m4cwd*(m4x-3/2))})')
move to rvec_(m4cwd,0)
{line from rvec_(0,-m4cht/2) \
to rvec_(0,m4cht/2)}
- line to rvec_(rp_len/2-m4cwd/2,0) ',
- m4ctype,C,
+ line to rvec_(rp_len/2-m4cwd/2,0) ')
+ sc_draw(`dna_',C,
`define(`m4cht',`ifelse(`$4',,`dimen_/4',`($4)')')dnl
define(`m4cwd',`ifelse(`$5',,`m4cht*0.4',`($5)')')dnl
define(`m4cr',`dimen_*0.25')dnl
@@ -114,12 +117,13 @@
line to rvec_(rp_len/2-m4cwd/2,0)
{line from rvec_(0,-m4cht/2) \
to rvec_(0,m4cht/2)}
- {arc cw from rvec_(m4cwd,-m4cht/2) \
+ {arc cw ifelse(m4a,d,-> wid lthick*4 ht lthick*4) \
+ from rvec_(m4cwd,-m4cht/2) \
to rvec_(m4cwd,m4cht/2) \
with .c at rvec_(m4cwd+sqrt((m4cr)^2-(m4cht/2)^2),0) }
line from last arc.c+vec_(-m4cr,0) \
- to rvec_(rp_len/2+m4cwd/2,0) ',
- m4ctype,P,
+ to rvec_(rp_len/2+m4cwd/2,0) ')
+ sc_draw(`dna_',P,
`define(`m4cht',`ifelse(`$4',,`dimen_/4',`($4)')')dnl
define(`m4cwd',`ifelse(`$5',,`m4cht*0.4',`($5)')')dnl
define(`m4cr',`dimen_*0.25')dnl
@@ -131,8 +135,8 @@
{line from rvec_(m4cwd*2/3,-m4cht*3/8) \
to rvec_(m4cwd*2/3,m4cht*3/8)}
line from rvec_(m4cwd*2/3,0) \
- to rvec_(rp_len/2+m4cwd/2,0) ',
- m4ctype,E,
+ to rvec_(rp_len/2+m4cwd/2,0) ')
+ sc_draw(`dna_',E,
`define(`m4cht',`ifelse(`$4',,`dimen_/5',`($4)')')dnl
define(`m4cwd',`ifelse(`$5',,`m4cht',`($5)')')dnl
define(`m4cs',`(m4cwd/3.2)')dnl
@@ -142,8 +146,8 @@
move to rvec_(m4cwd,0)
{ifsvg(`lbox(-m4cs,m4cht,fill_(0))',`m4fshade(m4fill,lbox(-m4cs,m4cht))')}
linethick_(m4linethicktemp)
- line to rvec_(rp_len/2-m4cwd/2,0) ',
- m4ctype,M,
+ line to rvec_(rp_len/2-m4cwd/2,0) ')
+ sc_draw(`dna_',M,
`define(`m4cht',`ifelse(`$4',,`dimen_/5',`($4)')')dnl
define(`m4cwd',`ifelse(`$5',,`m4cht',`($5)')')dnl
define(`m4cs',`(m4cwd/3.2)')dnl
@@ -153,8 +157,8 @@
move to rvec_(m4cwd,0)
{ lbox(-m4cs,m4cht) }
linethick_(m4linethicktemp)
- line to rvec_(rp_len/2-m4cwd/2,0) ',
- m4ctype,K,
+ line to rvec_(rp_len/2-m4cwd/2,0) ')
+ sc_draw(`dna_',K,
`define(`m4cht',`ifelse(`$4',,`dimen_/5',`($4)')')dnl
define(`m4cwd',`ifelse(`$5',,`m4cht',`($5)')')dnl
define(`m4cs',`(m4cwd/3.2)')dnl
@@ -162,8 +166,8 @@
{ifsvg(`lbox(m4cs,m4cht,fill_(0))',`m4fshade(m4fill,lbox(m4cs,m4cht))')}
move to rvec_(m4cwd,0)
{ifsvg(`lbox(-m4cs,m4cht,fill_(0))',`m4fshade(m4fill,lbox(-m4cs,m4cht))')}
- line to rvec_(rp_len/2-m4cwd/2,0) ',
- m4ctype,N,
+ line to rvec_(rp_len/2-m4cwd/2,0) ')
+ sc_draw(`dna_',N,
`define(`m4cht',`ifelse(`$4',,`dimen_/5',`($4)')')dnl
define(`m4cwd',`ifelse(`$5',,`m4cht*2/3',`($5)')')dnl
define(`m4cs',`(m4cwd/3.2*3/2)')dnl
@@ -195,9 +199,10 @@
Q=offset
H=squared
N=IEEE (default)
+ B=not burnable
V=varistor variant
R=to right of drawing direction
- arg4: cycle width, default dimen_/6'
+ arg4: cycle width (default dimen_/6)'
define(`resistor',
`define(`m4h',`ifelse(`$4',,`dimen_/6',`($4)')/4')dnl
ifinstr(
@@ -257,6 +262,12 @@
then to last line.end
[box invis ht_ m4hh*m4v wid_ m4hh*m4n*2] at 2nd last line.c+(0,m4hh*m4v/2)
}')
+ sc_draw(`dna_',B,
+ `resistor(`$1',`$2',dna_,`$4'); M4LBC: last line.c
+ m4lbwd = last [].wid_+lthick*2; m4lbht = last [].ht_+lthick*2
+ [lbox(m4lbwd,m4lbht,thick 0.4)] with .c at M4LBC
+ [lbox(m4lbwd+2bp__,m4lbht+2bp__,thick 0.4)] with .c at M4LBC ')
+#
line invis from 2nd last line.start to 2nd last line.end ')')
define(`M4_varistor',`eleminit_(`$1')
@@ -361,7 +372,7 @@
m4name`'m4tap_x: Here }
addtaps(,shift(shift(shift($@))))')')
- `tapped(`two-terminal element',[. | <- | -> | <->],
+ `tapped(`two-terminal element', . | <- | -> | <-> ,
fractional pos, length, fractional pos, length,...)
Draw the two-terminal element and taps in a [] block'
define(`tapped',`[ $1
@@ -368,6 +379,22 @@
Start: last line.start; End: last line.end; C: last line.c
addtaps(shift($@)) ]')
+ `shielded(`two-terminal element',L|U, line attributes )
+ L= shield left half (wrt drawing direction)
+ R= shield right half (default both halves)'
+define(`shielded',`[ $1
+ Start: last line.start; End: last line.end; C: last line.c
+ W: last line.c - vec_(last [].wid_/2+dimen_/8,0)
+ E: last line.c + vec_(last [].wid_/2+dimen_/8,0)
+ NW: last [].nw_ + vec_(-dimen_/8,dimen_/8)
+ NE: last [].ne_ + vec_(dimen_/8,dimen_/8)
+ SE: last [].se_ + vec_(dimen_/8,-dimen_/8)
+ SW: last [].sw_ + vec_(-dimen_/8,-dimen_/8)
+ ifinstr(`$2',L,`line from W to NW then to NE then to E dashed `$3'',
+ `$2',R,`line from W to SW then to SE then to E dashed `$3'',
+ `line from W to NW then to NE then to SE then to SW then to W dashed `$3'')
+ `$4']')
+
`b_current( label, above_|below_, O[ut],
S[tart]|E[nd], frac )
Branch current for last-drawn element. The arrowhead
@@ -402,78 +429,81 @@
to last [].s_+vec_(m4h,-m4v) \
m4lstring(`$1',"sp_`iflatex(`$ `$1'$',` $1')'sp_") below_}')
- `inductor( linespec,W|L,cycles,M|P,loop wid )
+ `inductor( linespec, W|L, cycles, M|P|K[n],
+ loop wid )
W=wide arcs (default narrow); L=looped arcs
- M=metal core; P=powder core
- loop wid defaults W,L: dimen_/5,
- other: dimen_/8'
+ arg4= M[n]=metal core
+ P[n]=(ferrite) powder core (dashed lines)
+ K[n]=long-dashed core lines
+ n=integer (default 2 lines)
+ arg5 loop wid defaults W,L: dimen_/5,
+ other: dimen_/8'
define(`inductor',`eleminit_(`$1')
define(`m4hlw',`ifelse(`$5',,`dimen_/10',`($5)/2')')dnl half loop wid
define(`m4n',`ifelse(`$3',,4,`$3')')dnl
- ifelse(`$2',W,
- `m4Inductor',
- `$2',L,
- `m4Lnductor',
- `m4inductor(,ifelse(`$5',,,`($5)/2'))')
- ifelse(ifelse(`$4',M,T,`$4',P,T),T,`m4m_core(rvec_(rp_len/2,0),
- m4wd,m4ht+dimen_/24,dimen_/16,ifelse(`$4',P,dashed m4wd/(2*m4n+1)))
- define(`m4hs',`(dimen_/24+dimen_/16)')',`define(`m4hs',0)')
- {[box invis ht_ m4ht+m4hs+m4dp wid_ m4wd] \
- at rvec_(rp_len/2,(m4ht+m4hs-m4dp)/2)}
+ ifelse(`$2',W, `define(`m4wd',((2*m4n-2)*m4c2t+2)*m4hlw)',
+ `$2',L, `define(`m4wd',(m4n+1)*m4hlw)',
+ `define(`m4ht',`ifelse(`$2',,`dimen_/16',`$2')')define(`m4wd',m4n*m4ht*2)')
+ { line to rvec_((rp_len-m4wd)/2,0)
+ ifelse(`$2',W,`m4Ibody', `$2',L,`m4Lbody', `m4ibody') with .S at Here
+ line from last [].E to last [].E+vec_((rp_len-m4wd)/2,0) }
+ ifelse(ifinstr(`$4',M,T,`$4',P,T,`$4',K,T),T,
+ `define(`m4nL',ifelse(len(`$4'),1,2,substr(`$4',1)))dnl
+ define(`m4hs',`(dimen_/24+(m4nL-1)*dimen_/16)')dnl
+ m4m_core(rvec_(rp_len/2,0), m4wd, m4ht+dimen_/24, dimen_/16,
+ ifinstr( `$4',P,`dashed m4wd/(2*m4n+1)',
+ `$4',K,`dashed m4wd/(2*m4n+1)*3'), m4nL)
+ {[box invis ht_ m4ht+m4hs+m4dp wid_ m4wd] \
+ at rvec_(rp_len/2,(m4ht+m4hs-m4dp)/2)}')
line to rvec_(rp_len,0) invis ')
- `Wide loop inductor'
-define(`m4Inductor',`define(`m4ht',`(1+m4st)*m4hlw')dnl
- define(`m4dp',`(m4s2t-m4st)*m4hlw')define(`m4wd',((2*m4n-2)*m4c2t+2)*m4hlw)dnl
- { line to rvec_(rp_len/2-((m4n-1)*m4c2t+m4ct)*m4hlw,0); round
- arc cw from Here to rvec_(vscal_(m4hlw,m4ct+m4c2t,m4st-m4s2t)) \
- with .c at rvec_(vscal_(m4hlw,m4ct,m4st)); round
- for m4i=3 to m4n do { arc cw from Here to rvec_(vscal_(m4hlw,2*m4c2t,0)) \
- with .c at rvec_(vscal_(m4hlw,m4c2t,m4s2t)); round }
- arc cw from Here to rvec_(vscal_(m4hlw,m4ct+m4c2t,m4s2t-m4st)) \
- with .c at rvec_(vscal_(m4hlw,m4c2t,m4s2t)); round
- line to rvec_(rp_len/2-((m4n-1)*m4c2t+m4ct)*m4hlw,0) } ')
+ `Wide loop inductor body'
+define(`m4Ibody',`define(`m4ht',`(1+m4st)*m4hlw')dnl
+ define(`m4dp',`(m4s2t-m4st)*m4hlw')dnl
+ [S: Here; round
+ arc cw from Here to rvec_(vscal_(m4hlw,m4ct+m4c2t,m4st-m4s2t)) \
+ with .c at rvec_(vscal_(m4hlw,m4ct,m4st)); round
+ for m4i=3 to m4n do { arc cw from Here to rvec_(vscal_(m4hlw,2*m4c2t,0)) \
+ with .c at rvec_(vscal_(m4hlw,m4c2t,m4s2t)); round }
+ arc cw from Here to rvec_(vscal_(m4hlw,m4ct+m4c2t,m4s2t-m4st)) \
+ with .c at rvec_(vscal_(m4hlw,m4c2t,m4s2t)); round
+ E: Here] ')
define(`m4ct',`Cos(25)')define(`m4st',`Sin(25)')
define(`m4c2t',`Cos(50)')define(`m4s2t',`Sin(50)')
- `Looped inductor'
-define(`m4Lnductor',`define(`m4ht',`m4hlw*10/8')dnl
- define(`m4dp',`m4hlw/2')define(`m4wd',(m4n+1)*m4hlw)dnl
- { line to rvec_(rp_len/2-m4wd/2,0); round
+ `Looped inductor body'
+define(`m4Lbody',`define(`m4ht',`m4hlw*10/8')define(`m4dp',`m4hlw/2')dnl
+ [ S: Here; round
spline ifdpic(0.55) \
- to rvec_(0,m4ht) for_(1,m4n,1,`\
- then to rvec_((m4x+0.3)*m4hlw, m4ht) \
- then to rvec_((m4x+0.3)*m4hlw,-m4dp) \
- then to rvec_((m4x-0.3)*m4hlw,-m4dp) \
- then to rvec_((m4x-0.3)*m4hlw, m4ht)\')\
- then to rvec_(m4wd,m4ht) \
- then to rvec_(m4wd,0)
- round; line to rvec_(rp_len/2-m4wd/2,0) }')
- `Narrow inductor'
-define(`m4inductor',`define(`m4ht',`ifelse(`$2',,`dimen_/16',`$2')')dnl
- define(`m4dp',0)define(`m4wd',m4n*m4ht*2)dnl
+ to rvec_(0,m4ht) for_(1,m4n,1,`\
+ then to rvec_((m4x+0.3)*m4hlw, m4ht) \
+ then to rvec_((m4x+0.3)*m4hlw,-m4dp) \
+ then to rvec_((m4x-0.3)*m4hlw,-m4dp) \
+ then to rvec_((m4x-0.3)*m4hlw, m4ht) \')\
+ then to rvec_(m4wd,m4ht) \
+ then to rvec_(m4wd,0); round; E: Here ] ')
+ `Narrow inductor body'
+define(`m4ibody',`define(`m4dp',0)dnl
ifelse(ifpstricks(T)`'ifmpost(T)`'ifpgf(T)`'ifsvg(T),T,
`define(`m4y')',`undefine(`m4y')')dnl
- { line to rvec_((rp_len-m4wd)/2,0)
- ifdef(`m4y',`{line to rvec_(0,-hlth)};')
- for m4i=1 to m4n do {
- arc cw from Here to rvec_(m4ht*2,0) with .c at rvec_(m4ht,0)
- ifdef(`m4y',`{line to rvec_(0,-hlth)}') }
- line to rvec_((rp_len-m4wd)/2,0)} ')
+ [ S: Here; ifdef(`m4y',`{line to rvec_(0,-hlth)};')
+ for m4i=1 to m4n do {
+ arc cw from Here to rvec_(m4ht*2,0) with .c at rvec_(m4ht,0)
+ ifdef(`m4y',`{line to rvec_(0,-hlth)}') }; E: Here ] ')
+ `m4m_core(bottom center, length, ht offset,
+ separation, linetype, nlines)
+ nlines=lines for the metal core'
+define(`m4m_core',`for_(1,`$6',1,`{M4Core`'m4x: line \
+ from `$1'+vec_(-(`$2')/2,`$3'+(`$4')*(m4x-1)) \
+ to `$1'+vec_( (`$2')/2,`$3'+(`$4')*(m4x-1)) `$5''})')
- `m4m_core(bottom ctr, length, ht offset,
- separation,linetype)
- Two lines for the metal core'
-define(`m4m_core',`dnl
- {M4Core1: line from `$1'+vec_(-(`$2')/2,`$3') \
- to `$1'+vec_( (`$2')/2,`$3') `$5'
- M4Core2: line from M4Core1.start+vec_(0,`$4') \
- to M4Core1.end+vec_(0,`$4') `$5'}')
-
`transformer( linespec, L|R, np,
- [A|P][W|L][D1|D2|D12|D21], ns )
+ [A|M[n]|P[n]|K[n]][W|L][D1|D2|D12|D21], ns )
2-winding transformer or choke:
np = number of primary arcs
ns = number of secondary arcs
- A = air core; P = powder (dashed) core
+ A = air core;
+ M[n] = metal core (default); n=number of lines
+ P[n] = powder (dashed) core
+ K[n] = long dashed core
W = wide windings; L = looped windings
D1: phase dots at P1 and S1 ends; D2: dots
at P2 and S2 ends; D12: dots at P1 and S2
@@ -494,9 +524,12 @@
m4ns*m4ht*2)')dnl
ifinstr(`$4',A,
`move to last line.c+vec_(0,m4ht*ifelse(m4WL,W,3,m4WL,L,3,4))',
- `m4m_core(rvec_(-(rp_len/2),0),max(m4wd,m4t),m4ht+dimen_/12,dimen_/8,
- ifinstr(`$4',P,dashed m4wd/(2*m4n+1)))
- move to last line.c+vec_(0,m4ht+dimen_/12)')
+ `define(`m4LL',`regexp(`$4',[MPK]\([0-9][0-9]*\),\1)')dnl
+ define(`m4nL',`ifelse(m4LL,,2,m4LL)')dnl
+ m4m_core(rvec_(-(rp_len/2),0), max(m4wd,m4t), m4ht+dimen_/12, dimen_/8,
+ ifinstr( `$4',P,`dashed m4wd/(2*m4n+1)',
+ `$4',K,`dashed m4wd/(2*m4n+1)*3'), m4nL)
+ move to last line.c+vec_(0,m4ht+dimen_/12) ')
TS: Here
S2: rvec_( ifelse(`$2',R,-)(ifelse(`$5',,rp_len/2,m4t/2)), 0 )
S1: 2 between S2 and Here
@@ -662,19 +695,28 @@
to rvec_(m4v,m4v)}',
`{$2}' )
line from rvec_(m4h,0) \
- to rvec_(rp_len/2,0)} ')
- { [box invis ht_ m4h*2 wid_ m4h*2] at rvec_(rp_len/2,0) }
+ to rvec_(rp_len/2,0)}
+ { [box invis ht_ m4h*2 wid_ m4h*2] at rvec_(rp_len/2,0) } ')
line to rvec_(rp_len,0) invis ')')
`Internal to source macro:'
define(`m4_sourceGQ',
-`{ line to rvec_(rp_len/2-3/2*m4h,0)
- {[C1: circle rad m4h
- L: C1+vec_(m4h/2, m4h*sqrt(3)/2)
- R: C1+vec_(m4h/2,-m4h*sqrt(3)/2)
- C2: ifelse(`$2',G,`circle rad m4h',`arc rad m4h from R to L') \
- with .c at C1 +vec_(m4h,0)] at rvec_(m4h*3/2,0)}
- line from rvec_(m4h*3,0) \
- to rvec_(rp_len/2+3/2*m4h,0) } ')
+ `m4sv = m4h*2/3
+ m4sh = sqrt((m4h)^2-m4sv^2)
+ { line to rvec_(rp_len/2-(m4h+m4sh),0)
+ {Body:[ Cx: rvec_(m4h,0)
+ ifelse(`$5',,,`{circle invis rad m4h `$5' with .c at Cx}')
+ L: Cx+vec_(m4sh, m4sv)
+ R: Cx+vec_(m4sh,-m4sv)
+ M1: Cx+vec_(-(m4h-m4sh)*3/5,0)
+ ifelse(`$5',,,
+ `{circle invis rad m4h `$5' with .c at Cx+vec_(m4sh*2,0)}')
+ C1: circle rad m4h with .c at Cx
+ C2: ifelse(`$2',G,`circle rad m4h',`arc rad m4h from R to L') \
+ with .c at C1 +vec_(m4sh*2,0)
+ M2: C2+vec_((m4h-m4sh)*3/5,0)
+ ] at rvec_(m4h+m4sh,0)}
+ line from rvec_((m4h+m4sh)*2,0) \
+ to rvec_(rp_len/2+(m4h+m4sh),0) } ')
`ttmotor( linespec, string, diameter, brushwid, brushht )'
define(`ttmotor',`eleminit_(`$1')
@@ -1051,10 +1093,10 @@
m4j = max(0,rp_len/2-m4h/2)
line to rvec_(m4j,0)
{round
- arc cw to rvec_( m4h/4,0)+vec_(Rect_(m4h/4,-60)) with .c at rvec_( m4h/4,0)}
+ arc cw to rvec_( m4h/4,0)+vec_(Rect_(m4h/4,-75)) with .c at rvec_( m4h/4,0)}
move to rvec_(m4h,0)
{round
- arc cw to rvec_(-m4h/4,0)+vec_(Rect_(m4h/4,120)) with .c at rvec_(-m4h/4,0)}
+ arc cw to rvec_(-m4h/4,0)+vec_(Rect_(m4h/4,105)) with .c at rvec_(-m4h/4,0)}
line to rvec_(m4j,0)
') }
{[box invis ht_ m4v wid_ m4h ] at rvec_(rp_len/2,ifelse(`$2',R,-)m4ho) }
@@ -1101,7 +1143,7 @@
T=truncated stem; N=normal ground,
F=frame, S=signal, L=low-noise, P=protective,
E=European; PA=protective alternate
- down (default), up, left, right, angle (deg)'
+ Down (default), Up, Left, Right, angle (deg)'
define(`ground',`box invis ht 0 wid 0 with .c ifelse(`$1',,`at Here',`$1')
define(`m4v',`dimen_/6')define(`m4h',`dimen_/16')dnl
{setdir_(ifelse(`$4',,-90,`$4'))
@@ -1217,7 +1259,8 @@
then to rvec_(m4v*3/4,-m4v*sqrt(3)/4) }
line from rvec_(m4v*3/4,0) \
to T')
- `$5'; resetdir_ ] with .T ifelse(`$1',,`at Here',`$1')')
+ `$5'; resetdir_ ] with .T ifelse(`$1',,`at Here',`$1')
+ move to last [].T')
`switch( linespec,L|R,[O|C][D],L|B|D )
Wrapper for bswitch, lswitch, dswitch
@@ -1540,7 +1583,7 @@
- label, + label, size, chars)
drawn as a []:
defined positions:
- W, N, E, S, Out, E1, E1, In1, In2
+ W, N, E, S, Out, E1, E2, In1, In2
chars:
P: power connections V1,V2
R: labels at In1,In2 swapped
@@ -1561,8 +1604,8 @@
`line to N then to E then to S then to W; move to E')
if rp_len > m4h then { line to rvec_(rp_len-m4h,0) }
Out: Here }
- E1: vec_(m4h/2,m4v/4)
- E2: vec_(m4h/2,-m4v/4)
+ NE: vec_(m4h/2,m4v/4); E1: NE
+ SE: vec_(m4h/2,-m4v/4); E2: SE
In1: vec_(0,m4v/4)
In2: vec_(0,-m4v/4)
{ move to In`'ifinstr(dna_,R,2,1)
@@ -2255,10 +2298,11 @@
e_fet(linespec, R, P, E|S )
d_fet(linespec, R, P, E|S )
c_fet(linespec, R, P )
+ g_fet(linespec, R, P, shade spec )
with terminals S, D, G.
arg 2: G pin drawn to right of curr direction
arg 3: P-channel, default N
- arg 4: envelope'
+ arg 4: envelope or simplified'
define(`j_fet',`mosfet(`$1',`$2',ifelse(`$3',P,u,d)GSDF,`$4',`$5')')
`Enhancement-mode FET e_fet(linespec,R,P,S,E)'
define(`e_fet',`mosfet(`$1',`$2',
@@ -2268,14 +2312,24 @@
define(`d_fet',`mosfet(`$1',`$2',
ifelse(`$4',S,`TFDR'ifelse(`$3',P,u,d)S,`LFDSQ'ifelse(`$3',P,d,u)B),
`$4',`$5')')
- `Simplified switching c_fet(linespec,R,P)
+ `Simplified switching c_fet(linespec,R,P)
arg 3: negated G pin'
define(`c_fet',`mosfet(`$1',`$2',`ZSDF'ifelse(`$3',P,d)T,,`$4')')
+ `Graphene FET g_fet(linespec,R,P,shadespec)'
+define(`g_fet',`mosfet(`$1',`$2',ifinstr(`$3',P,d,u)SKTF,`$4',`$5') ')
+
+ `Fe_fet(linespec,R,chars) FET with
+ superimposed ferroelectric symbol:
+ arg1, arg2, arg3 are as for mosfet'
+define(`Fe_fet',`mosfet(`$1',`$2',ifelse(`$3',,SDFT,`$3'),,
+ variable(,NN,60,dimen_/3,
+ at (0.5 between S and D)+vec_(0,ifelse(`$2',R,-)4*m4_U)); `$4')')
+
` The comprehensive mosfet(linespec,R,BDEFGLQRSTXZ,E)
Every drawn component is controlled by a letter or letter pair in arg 3;
adding or changing elements is easily done by adding a test for a letter
- or letter sequence:
+ or letter sequence. The modifiers u and d are optional:
udB: center bulk connection pin; u or d arrow
D: D pin and lead
E: dashed substrate
@@ -2282,6 +2336,7 @@
F: solid-line substrate
udG: G pin to substrate at source; u or d arrow
udH: G pin to substrate at center; u or d arrow
+ K: graphene hexagon
L: G pin to channel (kept for compatibility
for now; the same as dM below)
udM: G pin to channel center or
@@ -2301,13 +2356,23 @@
`define(`m4R',`ifelse(`$2',R,-)')dnl right orientation flag
define(`dna_',`ifelse(`$3',,DSEdMuBQ,`$3')')dnl
define(`m4s',ifinstr(dna_,Z,2.5,3.5))dnl size parameter
+ define(`m4hs',2.5)define(`m4hhx',m4hs*sqrt(3))dnl hex side len
+ define(`m4K',ifinstr(dna_,K,K))dnl
[ ifelse(`$1',,
- `tr_xy_init(,m4_U,m4R); S: tr_xy(-2,0); D: tr_xy(2,0)',
+ `tr_xy_init(,m4_U,m4R); ifinstr(dna_,K,
+ `S: tr_xy(-m4hs,0); D: tr_xy(m4hs,0); W: S; E: D
+ tr_xy_init(tr_xy(0,m4hhx/2-m4s),m4_U,m4R)',
+ `S: tr_xy(-2,0); D: tr_xy(2,0)')',
`eleminit_(`$1'); tr_xy_init(last line.c,m4_U,m4R)
- S: last line.start; line from S to tr_xy(-2,0) \
- then to tr_xy(-2,0)+vec_(0,m4R`'linethick pt__)
- D: S+vec_(rp_len,0); line from D to tr_xy(2,0) \
- then to tr_xy(2,0)+vec_(0,m4R`'linethick pt__)')
+ ifinstr(dna_,K,
+ `S: last line.start; D: last line.end;
+ W: tr_xy(-m4hs,0); line from S to W
+ E: tr_xy( m4hs,0); line from D to E
+ tr_xy_init(tr_xy(0,m4hhx/2-m4s),m4_U,m4R)',
+ `S: last line.start; line from S to tr_xy(-2,0) \
+ then to tr_xy(-2,0)+vec_(0,m4R`'linethick pt__)
+ D: S+vec_(rp_len,0); line from D to tr_xy(2,0) \
+ then to tr_xy(2,0)+vec_(0,m4R`'linethick pt__)')')
sc_draw(`dna_',B,
`B: tr_xy(0,0); Bl: line from B to tr_xy(0,m4s)
ifelse(m4a,,,`arrow m4c_l ht m4_Aht wid m4_Awd ifelse(m4a,d,<-) \
@@ -2349,6 +2414,13 @@
to G; arrow m4c_l ht m4_Aht wid m4_Awd \
from tr_xy(0,(m4s+3-m4_Aht/(m4_U))) \
to tr_xy(0,(m4s+3))')')
+ sc_draw(`dna_',K,
+ `NW: W+ta_xy( m4hs/2, m4hhx/2)
+ SW: W+ta_xy( m4hs/2,-m4hhx/2)
+ SE: E+ta_xy(-m4hs/2,-m4hhx/2)
+ NE: E+ta_xy(-m4hs/2, m4hhx/2)
+ Kl: line from NW \
+ to W then to SW then to SE then to E then to NE then to NW `$4'')
sc_draw(`dna_',L,
`G: tr_xy(-2,(m4s+3.5))
Ll: line from tr_xy(2,(m4s+1)) \
@@ -2391,18 +2463,20 @@
`Rl: line thick 2*linethick from tr_xy(-2,m4s)\
-vec_(0,m4R`'linethick*3/2 pt__) \
to tr_xy(2,m4s)-vec_(0,m4R`'linethick*3/2 pt__) ')
- sc_draw(`dna_',S,
+ sc_draw(`dna_',S,`ifelse(m4K,K,
+ `Sl: arrow m4c_l ht m4_Aht*2/3 wid m4_Awd \
+ from ifelse(m4a,u,NW to W,W to NW)',
`Sl: line from tr_xy(-2,0) \
to tr_xy(-2,m4s)
ifelse(m4a,,,`arrow m4c_l ht m4_Aht wid m4_Awd ifelse(m4a,d,<-) \
from tr_xy(-2,m4s/2)-vec_(0,m4R`'m4_Aht/2) \
- to tr_xy(-2,m4s/2)+vec_(0,m4R`'m4_Aht/2) ')')
+ to tr_xy(-2,m4s/2)+vec_(0,m4R`'m4_Aht/2) ')')')
sc_draw(`dna_',T,
`Tl: line from tr_xy(-2,(m4s+1)) \
to tr_xy(2,(m4s+1))
ifelse(m4a,d,`Nt: circle rad m4_U*2/3 with .c at tr_xy(0,(m4s+1+2/3))')
Gl: line from tr_xy(0,`(m4s+1'`ifelse(m4a,d,+4/3))') \
- to tr_xy(0,ifelse(`$4',E,(m4s+4),(m4s+4))); G: Here')
+ to tr_xy(0,(m4s+4)); G: Here')
sc_draw(`dna_',X,dnl From Matteo Agostinelli
`B: tr_xy(0,0); Xv: line from B to tr_xy(0,m4s-1)
Xh: line from tr_xy(-1.5,m4s-1) \
@@ -2442,31 +2516,37 @@
sc_draw(dna string, chars, iftrue, iffalse)'
define(`sc_draw',`m4_dna(`$1',`$2')ifelse(m4I_,-1,`$4',`$3')')
- `Element labels to the left, right, centre of
- the current direction. Labels are spaced and
- treated as math, but copied literally if double
- quoted or defined by sprintf'
+ `Element labels at the start, centre, and end
+ of the last [] block (or a named [] block)
+ in the current direction. Labels are
+ spaced and treated as math, but copied
+ literally if double quoted or defined
+ by sprintf.
+ Arg4 can be above, below, left, right
+ to supplement the default position.
+ Arg5 is the optional name of a [] block
+ and is last [] by default.'
`The hash (pound sign) is used in svg text so
we temporarily turn off comments for svg'
define(`rlabel',`ifsvg(`changecom(,)')dnl
-m4label(`$1',`$2',`$3',.s_,below_,`$4')`'ifsvg(`changecom(`#',)')')
+m4label(`$1',`$2',`$3',.s_,below_,`$4',`$5')`'ifsvg(`changecom(`#',)')')
define(`llabel',`ifsvg(`changecom(,)')dnl
-m4label(`$1',`$2',`$3',.n_,above_,`$4')`'ifsvg(`changecom(`#',)')')
+m4label(`$1',`$2',`$3',.n_,above_,`$4',`$5')`'ifsvg(`changecom(`#',)')')
define(`clabel',`ifsvg(`changecom(,)')dnl
-m4label(`$1',`$2',`$3',,,`$4')`'ifsvg(`changecom(`#',)')')
+m4label(`$1',`$2',`$3',,,`$4',`$5')`'ifsvg(`changecom(`#',)')')
labels at centre and both ends of an element `dimen_' long
define(`m4label',`dnl
ifelse(`$1',,,
`{m4lstring(`$1',"sp_`'iflatex(`$ `$1'$',`$1')`'sp_") \
- at last [].w_ $5 rjust_ $6};')dnl
+ at ifelse(`$7',,last [],`$7').w_ $5 rjust_ $6};')dnl
ifelse(`$2',,,
`{m4lstring(`$2',"sp_`'iflatex(`$ `$2'$',`$2')`'sp_") \
- at last []$4 $5 $6};')dnl
+ at ifelse(`$7',,last [],`$7')$4 $5 $6};')dnl
ifelse(`$3',,,
`{m4lstring(`$3',"sp_`'iflatex(`$ `$3'$',`$3')`'sp_") \
- at last [].e_ $5 ljust_ $6};')dnl
+ at ifelse(`$7',,last [],`$7').e_ $5 ljust_ $6};')dnl
')
`dlabel(long,lateral,label,label,label,chars)
Labels for oblique or aligned elements
@@ -2625,7 +2705,6 @@
popdef(`elen_')] with .Start at Here; move to last [].End
')
-
`reversed(`macro name in quotes', macro args)
reverse polarity of two-terminal element'
define(`reversed',`eleminit_(`$2')
@@ -2638,33 +2717,43 @@
define(`resized',`define(`m4resiztmp',dimen_)define(`dimen_',(dimen_)*(`$1'))dnl
$2(shift(shift($@))) define(`dimen_',m4resiztmp)')
- `variable(`element', type, angle, length)
+ `variable(`element', type, [+|-]angle,
+ length, at position)
overlaid arrow or line on two-terminal element
to show variablility:
type = [A|P|L|[u]N|[u]NN][C|S]
- A=arrow, P=preset, L=linear, N=nonlinear,
- NN=symmetric nonlinear, u changes direction,
- C=continuous, S=setpwise'
+ A=arrow; P=preset; L=linear; N=nonlinear;
+ NN=symmetric nonlinear, u changes direction;
+ C=continuous; S=setpwise.
+ If arg3 begins with + or -, then the argument
+ (typically -45) is relative to the current
+ drawing angle. If arg5 is blank the symbol
+ is placed over the last []'
define(`variable',`$1
- {[ define(`dna_',`ifelse($2,,A,$2)') ang = ifelse(`$3',,45,`$3')
- M4_T: Here+(Rect_(ifelse(`$4',,`dimen_*0.8',`$4'),ang))
- sc_draw(`dna_',P,`Line: line to M4_T
- [line to (Rect_(dimen_/6,ang-90))] at Line.end')
- sc_draw(`dna_',L,`Line: line to M4_T')
- sc_draw(`dna_',NN,`Line: ifelse(m4a,u,
- `line from Here-(dimen_/6,0) to Here \
- then to M4_T then to M4_T+(dimen_/6,0)',
- `line from Here-(0,dimen_/6) to Here \
- then to M4_T then to M4_T+(0,dimen_/6)') ')
- sc_draw(`dna_',N,`Line: line to M4_T
- ifelse(m4a,u,`line up dimen_/6 from Line.end',
- `line left dimen_/6 from Line.start')')
- sc_draw(`dna_',A,`Line: arrow to M4_T')
- sc_draw(`dna_',C,`move to Line.end+(dimen_*0.10,-dimen_*0.06)
- line to Here+(Rect_(dimen_/6,ang))')
- sc_draw(`dna_',S,`move to Line.end+(dimen_*0.10,-dimen_*0.12)
+ {[ define(`dna_',ifelse($2,,A,$2))define(`m4sgn',regexp(`$3',^ *[+-]))dnl
+ ang = ifelse(m4sgn,-1,,rp_ang*rtod_) ifelse(`$3',,45,`$3')
+ define(`m4a2',`ifelse(m4sgn,0,rp_ang-pi_/2,0)') dnl
+ define(`m4a3',`ifelse(m4sgn,0,rp_ang,pi_/2)') dnl
+ define(`m4tip',`dimen_/8')dnl
+ T: (Rect_(ifelse(`$4',,`dimen_*0.8',`$4'),ang))
+ sc_draw(`dna_',P,`Line: line to T; C: Line.c
+ [line to (Rect_(m4tip,ang-90))] at Line.end')
+ sc_draw(`dna_',L,`Line: line to T; C: Line.c')
+ sc_draw(`dna_',NN,`C: 1/2 between Here and T
+ ifelse(m4a,u,`Line: line from Here+(rect_(-m4tip,m4a3)) to Here \
+ then to T then to T+(rect_( m4tip,m4a3))',
+ `Line: line from Here+(rect_(-m4tip,m4a2)) to Here \
+ then to T then to T+(rect_( m4tip,m4a2))')')
+ sc_draw(`dna_',N,`C: 1/2 between Here and T
+ ifelse(m4a,u,`Line: line to T then to T+(rect_(m4tip,m4a3))',
+ `Line: line from T to Here \
+ then to Here+(rect_(-m4tip,m4a2))')')
+ sc_draw(`dna_',A,`Line: arrow to T; C: Line.c')
+ sc_draw(`dna_',C,`move to T+(dimen_*0.10,-dimen_*0.06)
+ line to Here+(Rect_(m4tip,ang))')
+ sc_draw(`dna_',S,`move to T+(dimen_*0.10,-dimen_*0.12)
line up dimen_*0.06 then right dimen_*0.12 then up dimen_*0.06')
- `$5'] with .Line.c at last [].c } ')
+ `$6'] with .C ifelse(`$5',,at last [].c,`$5') } ')
`Line hopping over named lines,
diverting left or right:
@@ -2852,8 +2941,9 @@
')
`$3'] ')
+
`relaycoil( chars, wid, ht, U|D|L|R|degrees )
- chars:
+ chars: (see IEC 60617 S00305 - S00319)
X or default: external lines from A2 and B2
AX external lines at positions A1,A3
BX external lines at positions B1,B3
@@ -2862,10 +2952,11 @@
SOR slow operating and release
SR slow release
HS high speed
- HS high speed
NAC unaffected by AC current
AC AC current
ML mechanically latched
+ MR mechanically resonant
+ PC pulse counter
PO polarized
RM remanent
RH remanent
@@ -2902,11 +2993,11 @@
{line to rvec_(0,-m4ht/8)}
{line from rvec_(m4wd,0) to rvec_(m4wd,-m4ht/8)}} }')
sc_draw(`rcdna_',SO,
- `{ move to rvec_(0,-(m4ht*5/8)); m4fshade(0,lbox(m4wd,m4ht/4)) }')
- sc_draw(`rcdna_',SR,
`{ move to rvec_(0,-(m4ht*5/8)); {lbox(m4wd,m4ht/4)}
{line from rvec_(0,-m4ht/8) to rvec_(m4wd, m4ht/8)}
{line from rvec_(0, m4ht/8) to rvec_(m4wd,-m4ht/8)} }')
+ sc_draw(`rcdna_',SR,
+ `{ move to rvec_(0,-(m4ht*5/8)); m4fshade(0,lbox(m4wd,m4ht/4)) }')
sc_draw(`rcdna_',HS,
`{ move to rvec_(0,-(m4ht*5/8)); lbox(m4wd,m4ht/4) }
{ move to rvec_(m4wd/2,-(m4ht/2)); line to rvec_(0,-m4ht/4)} ')
@@ -2927,6 +3018,22 @@
`{ move to rvec_(0,-(m4ht*11/16)); { lbox(m4wd,m4ht*3/8) }
line from rvec_(0,m4ht*3/16) to rvec_(m4wd/2,-m4ht*3/16) \
then to rvec_(m4wd,m4ht*3/16) } ')
+ sc_draw(`rcdna_',MR,
+ `{ move to rvec_(m4wd/2,m4ht/2)
+ { m4tmp = rp_ang; dashline(to rvec_(0,m4ht*3/4),,m4ht*3/16,m4ht*3/32)
+ point_(m4tmp)}
+ move to rvec_(0,m4ht*3/8)
+ ifgpic(
+ `arc rad m4wd/2 cw from rvec_(-m4wd/2,0) \
+ to Here with .c at rvec_(-m4wd/4,-m4wd/4)
+ arc rad m4wd/2 ccw from Here to rvec_(m4wd/2,0) with .c \
+ at rvec_(m4wd/4,m4wd/4)',
+ `sinusoid(m4wd/6,twopi_/(m4wd),pi_/2,-m4wd/2,m4wd/2) \
+ with .Origin at Here ') } ')
+ sc_draw(`rcdna_',PC,
+ `{ move to rvec_(0,m4ht/2+m4wd/2)
+ { lbox(m4wd,m4wd) }
+ circle diam m4wd/2 at rvec_(m4wd/2,0) } ')
sc_draw(`rcdna_',PO,
`{ move to rvec_(0,-(m4ht*5/8)); { lbox(m4wd,m4ht/4) }
m4fshade(0, line to rvec_(0,m4ht/8) \
@@ -3282,16 +3389,42 @@
with .Origin at Origin } ')
`$5'; resetdir_ ] with .Origin ifelse(`$1',,`at Here',`$1')')
+ `Deltasymbol(at position, keys, U|D|L|R|degrees)
+ keys: size=expr;
+ Arg4: drawing direction (default: Up)'
+define(`Deltasymbol',`[ sq3 = sqrt(3)
+ setkey_(`$2',size,dimen_/10)dnl
+ setdir_(`$3',U)
+ line from vec_(vscal_(m4size,-sq3,0)) to \
+ vec_(vscal_(m4size,-sq3,1)) then to Here \
+ then to vec_(vscal_(m4size,-sq3,-1)) \
+ then to vec_(vscal_(m4size,-sq3,0))
+ `$4'; resetdir_ ] ifelse(`$1',,`at Here',`$1')')
+
+ `Ysymbol(at position, keys, U|D|L|R|degrees)
+ keys: size=expr; type=G (grounded);
+ Arg4: drawing direction (default: Up)'
+define(`Ysymbol',`[ sq3 = sqrt(3)
+ setkeys_(`$2',`size:dimen_/10:; type::N')dnl
+ setdir_(`$3',U)
+ C: Here
+ line from vec_(vscal_(m4size,-2/sq3,0)) to C
+ { line from vec_(vscal_(m4size,1/sq3,1)) to C \
+ then to vec_(vscal_(m4size,1/sq3,-1)) }
+ ifelse(m4type,,,`line right_ m4size*3/2; corner
+ pushdef(`dimen_',m4size*4) ground popdef(`dimen_') ')
+ `$4'; resetdir_ ] ifelse(`$1',,`at Here',`$1')')
+
`DCsymbol(at position, len, ht, U|D|L|R|degrees)
Arg4: drawing direction (default: current direction)'
define(`DCsymbol',`[
define(`m4wid',`ifelse(`$2',,(dimen_/3),`($2)')')dnl
- define(`m4ht',`ifelse(`$3',,`m4wid/5',`($3)')')
+ define(`m4ht',`ifelse(`$3',,`(m4wid/5)',`($3)')')
setdir_(ifelse(`$4',,`ifdef(`m4a_',rp_ang*rtod_,0)',`$4'))
- Origin: rvec_(m4wid/2,-m4ht/2)
+ Origin: rvec_(m4wid/2, m4ht/2)
{line to rvec_(m4wid,0)}
- dashline(from rvec_(0,-m4ht) to rvec_(m4wid,-m4ht),,m4wid/4)
- `$5'; resetdir_ ] with .c ifelse(`$1',,`at Here',`$1')')
+ dashline(from rvec_(0, m4ht) to rvec_(m4wid, m4ht),,m4wid/4,m4wid/8)
+ `$5'; resetdir_ ] with .Origin ifelse(`$1',,`at Here',`$1')')
`n-terminal box
nterm(box specs; other commands,
@@ -3389,7 +3522,7 @@
for j=-1 to 1 do {
{ circle at Here+(3*j*cspace,(abs(j)-3)*cspace) }
if j != 0 then {{ circle at Here+(j*3/2*cspace,0) }} }
- move up 5*cspace } ]',
+ move up 5*cspace }; ]',
`[setdir_($1,R)
define(`m4h',`ifelse(`$2',,`dimen_/2',`($2)')')dnl
{L1: line from rvec_(m4h,-m4h/2) \
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/libgen.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/libgen.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/libgen.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -2,7 +2,7 @@
libgen.m4 Base macros for dpic and gpic diagrams
-* Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under *
+* Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under *
* the LaTeX Project Public Licence in file Licence.txt. The files of *
* this distribution may be redistributed or modified provided that this *
* copyright notice is included and provided that modifications are clearly *
@@ -126,10 +126,10 @@
`define(`darrow_init',
`m4announceprocessor(`$0')
ifdef(`darrow_',,`include(darrow.m4)')
-`# darrow_init begin'
gen_init
`$1'
-`# darrow_init end'')')
+`# darrow_init end'
+')')
liblog.m4
ifdef(`log_init',,
@@ -136,10 +136,10 @@
`define(`log_init',
`m4announceprocessor(`$0')
ifdef(`liblog_',,`include(liblog.m4)')
-`# log_init begin'
gen_init
`$1'
-`# log_init end'')')
+`# log_init end'
+')')
lib3D.m4
ifdef(`threeD_init',,
@@ -146,11 +146,11 @@
`define(`threeD_init',
`m4announceprocessor(`$0')
ifdef(`lib3D_',,`include(lib3D.m4)')
-`# threeD_init begin'
gen_init
setview(20,20,0)
`$1'
-`# threeD_init end'')')
+`# threeD_init end'
+')')
sfg graphs in libcct.m4
define(`sfg_init',`cct_init
@@ -185,7 +185,7 @@
define(`latexcommand',`command "ifmpost(verbatimtex) `$1' ifmpost(etex)"')
define(`m4announceprocessor',`dnl Do not change the format of the next line:
-`#' `$1' Version 9.5: ifelse(m4picprocessor,gpic,`Gpic',
+`#' `$1' Version 9.6: ifelse(m4picprocessor,gpic,`Gpic',
m4postprocessor,pstricks,`PSTricks',
m4postprocessor,pgf,`TikZ PGF',
m4postprocessor,mfpic,`Mfpic',
@@ -260,7 +260,8 @@
`setdir_( U|D|L|R|degrees,default R|L|U|D|degrees )
set direction and default direction'
define(`setdir_',
- `pushdef(`m4sdir',`ifelse(`$1',,`ifelse(`$2',,R,`$2')',`$1')')dnl
+ `pushdef(`m4sdir',`ifelse(`$1',,
+ `ifelse(`$2',,`ifdef(`m4rp_ang',m4rp_ang*rtod_,R)',`$2')',`$1')')dnl
m4sd_ang = rp_ang; pushdef(`m4tdir',m4dir)dnl
ifinstr(
m4sdir,R,`rp_ang = 0; right_',
@@ -267,7 +268,7 @@
m4sdir,L,`rp_ang = pi_; left_',
m4sdir,U,`rp_ang = pi_/2; up_',
m4sdir,D,`rp_ang = -pi_/2; down_',
-`rp_ang = prod_(`$1',dtor_)undefine(`m4rp_ang')dnl
+`rp_ang = prod_(m4sdir,dtor_)undefine(`m4rp_ang')dnl
define(`m4a_',cos(rp_ang))define(`m4b_',sin(rp_ang))dnl
define(`m4c_',(-sin(rp_ang)))define(`m4d_',cos(rp_ang))');dnl
popdef(`m4sdir')')
@@ -385,6 +386,17 @@
`pushdef(`$1',`$3')pushdef(`m4Lx',ifdef(`m4Lx',`incr(m4Lx)',1)) $2
Loopover_(`$1',`$2',shift(shift(shift($@))))popdef(`m4Lx')popdef(`$1')')')
+ `This is identical to Loopover_ and may be
+ a preferred name'
+ `foreach_(`variable',actions,value1,value2,...)
+ Repeat actions with variable set to each of
+ value1, value2, ... in succession, setting
+ macro m4Lx to 1, 2, ...; e.g.
+ foreach_(`x',`print "m4Lx. x"',Tom,Dick,Mary)'
+define(`foreach_',`ifelse(`$3',,,
+`pushdef(`$1',`$3')pushdef(`m4Lx',ifdef(`m4Lx',`incr(m4Lx)',1)) $2
+foreach_(`$1',`$2',shift(shift(shift($@))))popdef(`m4Lx')popdef(`$1')')')
+
`Transfer m4 stack to new stack performing arg3
stackexec_(`Source',`Dest',`actions')'
define(`stackexec_',`ifdef(`$1',`$3`'dnl
@@ -458,28 +470,31 @@
between `$1' and `$2')')
`Dashed line drawn in detail
- dashline(linespec,
+ dashline(
+ linespec,
thickness|<-|->|<->|color,
- dash len, gap len,G)
+ dash len,
+ gap len,G)
Arg5=G ends (but does not start)
- the line with a gap'
+ the line with a gap
+ Note: can change default direction'
define(`dashline',`rpoint_(`$1')define(`m4opts',`$2')
define(`m4dsh',`ifelse(`$3',,dashwid,abs(`$3'))')dnl
- define(`m4ssv',`ifelse(`$4',,m4dsh/2,abs(`$4'))')dnl
+ define(`m4gap',`ifelse(`$4',,m4dsh/2,abs(`$4'))')dnl
define(`m4lar',)define(`m4rar',)dnl
- ifelse(m4xtract(`m4opts',<->),1,`define(`m4lar',<-)define(`m4rar',->)',
- m4xtract(`m4opts',<-),1,`define(`m4lar',<-)',
- m4xtract(`m4opts',->),1,`define(`m4rar',->)')dnl
- if (m4dsh+m4ssv)==0 then { dashline_n = 1 } \
+ ifelse(m4xtract(`m4opts',<->),1,`define(`m4lar',<-)define(`m4rar',->)',dnl
+ m4xtract(`m4opts',<-),1,`define(`m4lar',<-)',dnl
+ m4xtract(`m4opts',->),1,`define(`m4rar',->)')
+ if (m4dsh+m4gap)==0 then { dashline_n = 1 } \
else {dashline_n = max(1,\
- round_(abs((rp_len ifelse(`$5',G,,+m4ssv))/(m4dsh+m4ssv))))}
- dashline_f = (rp_len-(dashline_n ifelse(`$5',G,,-1))*m4ssv)/dashline_n
+ int(abs((rp_len ifelse(`$5',G,,+m4gap))/(m4dsh+m4gap))))}
+ dashline_f = (rp_len-(dashline_n ifelse(`$5',G,,-1))*m4gap)/dashline_n
for m4ti=1 to dashline_n do {
if m4ti==1 then { line m4opts m4lar to rvec_(dashline_f,0) } \
else { if m4ti==dashline_n then { line m4opts m4rar to rvec_(dashline_f,0)}\
else { line m4opts to rvec_(dashline_f,0) }}
ifelse(`$5',G,,
- `if m4ti < dashline_n then {')move to rvec_(m4ssv,0)ifelse(`$5',G,,})
+ `if m4ti < dashline_n then {')move to rvec_(m4gap,0)ifelse(`$5',G,,})
} ')
`round(at location,line thickness,attributes)
@@ -618,11 +633,18 @@
``$1'-(`$2'.x,`$2'.y)')')
`Product of vector and scalar: (V)*(s) with dpic,
(V.x*s,V.y*s) with gpic'
-define(`Vsprod_',`ifdpic((`$1')*(`$2'),
+define(`Vsprod_',`ifdpic(`ifelse(`$2',0,0,`$2',1,(`$1'),(`$1')*(`$2'))',
`(prod_(`$1'.x,`$2'),prod_(`$1'.y,`$2'))')')
`The x,y coordinate pair of a position'
define(`Vcoords_',`(`$1').x,(`$1').y')
-
+ `assign3([u],[v],[w],x,y,z); eg
+ assign3(u,v,w,cross3D(x1,y1,z1,x2,y2,z2))
+ assigns u = 4th arg, v = 5th arg, w = 6th arg,
+ for nonblank u, v, or w'
+define(`assign3',
+`ifelse(`$1',,,`$1' = `$4')
+ ifelse(`$2',,,`$2' = `$5')
+ ifelse(`$3',,,`$3' = `$6')')
`binary_(n,[m])
binary representation of n, padded to m bits
if arg2 is nonblank'
@@ -731,6 +753,36 @@
with m4x the final count'
define(`m4inx',`define(`m4x',ifdef(`m4x',`incr(m4x)',1))m4x')
+ `Drawing conveniences:'
+
+ `PtoL( position, U|D|L|R|deg, lgth )
+ Generate a linespec from polar
+ info. Evaluates to `from position to
+ position+(Rect_(lgth,angle))' with lgth
+ default dimen_ and angle from arg2'
+define(`PtoL',`pushdef(`M4pos',ifelse(`$1',,Here,`$1'))dnl
+ ifinstr(ifelse(`$2',,R,`$2'),R,`pushdef(`m4c',1)pushdef(`m4s',0)',
+ `$2',U,`pushdef(`m4c',0)pushdef(`m4s',1)',
+ `$2',L,`pushdef(`m4c',-1)pushdef(`m4s',0)',
+ `$2',D,`pushdef(`m4c',0)pushdef(`m4s',-1)',
+ `pushdef(`m4c',`cosd(`$2')')pushdef(`m4s',`sind(`$2')')')dnl
+from M4pos to M4pos + (vscal_(ifelse(`$3',,dimen_,`$3'),m4c,m4s))dnl
+popdef(`m4s',`m4c',`M4pos')')
+
+ `ToPos( position, U|D|L|R|deg, lgth )
+ Generate a linespec from polar
+ info. Evaluates to `from
+ position-(Rect_(lgth,angle)) to position'
+ with lgth default dimen_ and angle from arg2'
+define(`ToPos',`pushdef(`M4pos',ifelse(`$1',,Here,`$1'))dnl
+ ifinstr(ifelse(`$2',,R,`$2'),R,`pushdef(`m4c',1)pushdef(`m4s',0)',
+ `$2',U,`pushdef(`m4c',0)pushdef(`m4s',1)',
+ `$2',L,`pushdef(`m4c',-1)pushdef(`m4s',0)',
+ `$2',D,`pushdef(`m4c',0)pushdef(`m4s',-1)',
+ `pushdef(`m4c',`cosd(`$2')')pushdef(`m4s',`sind(`$2')')')dnl
+from M4pos - (vscal_(ifelse(`$3',,dimen_,`$3'),m4c,m4s)) to M4pos dnl
+popdef(`m4s',`m4c',`M4pos')')
+
`String conveniences start here:'
`xtract(string,substr1,substr2,...)
extract substrings without deletion'
@@ -769,8 +821,18 @@
`pushdef(key_prefix`'$2,ifelse(`$4',,(substr(m4sktmp,0,index(m4sktmp,;))),
substr(m4sktmp,0,index(m4sktmp,;))))')')dnl
popdef(`m4xt')')
-define(`key_prefix',`m4')
+define(`key_prefix',`m4') # Could be locally redefined
+
+ `setkeys_(string,keysequence)
+ Invoke setkey_ on each of a sequence of terms.
+ keysequence is a ; -separated sequence
+ of terms of the form
+ identifier:default value:N
+ containing 3 fields separated by : '
+define(`setkeys_',`Loopover_(`M4Z',`setkey_(`$1',patsubst(M4Z,:,`,')) dnl',
+ patsubst(`$2',;,`,'))')
+
`String with exact typeset dimensions:
Requires s_init(name), sinclude(filename.dim),
boxdims.sty, and processing twice. If there
@@ -903,7 +965,7 @@
`lbox(wid,ht,type)
box oriented in current direction;
- type= eg dotted'
+ arg3= eg dotted'
define(`lbox',`pushdef(`m4bwd',ifelse(`$1',,boxwid,(`$1')))dnl
pushdef(`m4bht',ifelse(`$2',,boxht,(`$2')))dnl
line from rvec_(m4bwd,0) \
@@ -911,7 +973,8 @@
then to rvec_(0,m4bht/2) \
then to rvec_(0,neg_(m4bht)/2) \
then to rvec_(m4bwd,neg_(m4bht)/2) \
- then to rvec_(m4bwd,0) `$3' popdef(`m4bwd')popdef(`m4bht') ')
+ then to rvec_(m4bwd,0) `$3' dnl
+ popdef(`m4bwd')popdef(`m4bht') ')
`rotbox(wid,ht,type,[r=val|t=val])
box oriented in current direction in [] block;
@@ -927,6 +990,7 @@
define(`rotbox',`[
pushdef(`m4bw2',ifelse(`$1',,(boxwid/2),`(($1)/2)'))dnl
pushdef(`m4bh2',ifelse(`$2',,(boxht/2) ,`(($2)/2)'))dnl
+ C: Here
N: vec_(0, m4bh2)
S: vec_(0,-m4bh2)
E: vec_( m4bw2,0)
@@ -958,7 +1022,7 @@
SE: vec_( m4bw2,-m4bh2)
NW: vec_(-m4bw2,m4bh2)
SW: vec_(-m4bw2,-m4bh2)
- line from E to NE then to NW then to SW then to SE then to E `$3' ')
+ Line: line from E to NE then to NW then to SW then to SE then to E `$3' ') dnl
popdef(`m4bw2')popdef(`m4bh2') `$5' ]')
`rotellipse(wid,ht,type)
@@ -1163,7 +1227,7 @@
ifelse($3,,,`$1[$2]: patsubst(`$3',|,`,') define(`m4vx',$2)
m4shadedpverts(`$1',incr(`$2'),shift(shift(shift($@))))')')
-define(`color255',`round_((`$1')*255),round_((`$2')*255),round_((`$3')*255)')
+define(`color255',`int((`$1')*255+0.5),int((`$2')*255+0.5),int((`$3')*255+0.5)')
`like shade(,) but without the argument:
beginshade(gray value)
@@ -1171,7 +1235,7 @@
endshade'
define(`beginshade',`define(`m4_shade',`ifelse(`$1',,`fillval',`($1)')')dnl
ifelse(m4picprocessor,gpic,
- `command sprintf("\special{sh %g}",1-m4_shade)',
+ `command sprintf("`\special{sh %g}'",1-m4_shade)',
m4postprocessor,mfpic,
`ifelse(`$1',0,
`command "\gfill\draw\lclosed"',
@@ -1180,17 +1244,17 @@
m4postprocessor,mpost,
`command "def Y="',
m4postprocessor,svg,
- `command sprintf("<g fill=\"rgb(%g,%g,%g)\">",\
+ `command sprintf(`"<g fill=\"rgb(%g,%g,%g)\">"',\
color255(m4_shade,m4_shade,m4_shade) )',
m4postprocessor,pgf,
`command "\global\let\dpicshdraw=\dpicdraw\global\def\dpicdraw{}"
command "\global\def\dpicstop{--}"
- command sprintf("\dpicshdraw[fill=white!%g!black]",m4_shade*100)',
+ command sprintf(`"\dpicshdraw[fill=white!%g!black]"',m4_shade*100)',
m4postprocessor,pstricks,
- `command sprintf("\newgray{m4fillv}{%g}",m4_shade)
- command sprintf("\pscustom[fillstyle=solid,fillcolor=m4fillv]{%%")',
+ `command sprintf(`"\newgray{m4fillv}{%g}"',m4_shade)
+ command sprintf(`"\pscustom[fillstyle=solid,fillcolor=m4fillv]{%%"')',
m4postprocessor,postscript,
- `command "/endstroke {}def /npath {}def newpath"')dnl
+ `command `"/endstroke {}def /npath {}def newpath"'')dnl
')')
define(`endshade',
@@ -1197,8 +1261,8 @@
`ifelse(m4postprocessor,pstricks,
`command "}%"',
m4postprocessor,postscript,
- `command sprintf(" gsave %g setgray fill grestore",m4_shade)
- command "/endstroke {ostroke} def /npath {newpath} def endstroke"',
+ `command sprintf(`" gsave %g setgray fill grestore"',m4_shade)
+ command `"/endstroke {ostroke} def /npath {newpath} def endstroke"'',
m4postprocessor,pgf,
`command "cycle; \global\let\dpicdraw=\dpicshdraw\global\def\dpicstop{;}"',
m4postprocessor,svg,
@@ -1205,7 +1269,7 @@
`command "</g>"',
m4postprocessor,mpost,
`command "enddef; def drw= enddef; def X=--enddef;"
- command sprintf("fill Y cycle withcolor %gwhite;",m4_shade)
+ command sprintf(`"fill Y cycle withcolor %gwhite;"',m4_shade)
command "def drw=draw enddef; def X=;enddef; Y;"dnl
')')
`gshade(gray value,A,B,...,Z,A,B) (Note last
@@ -1222,9 +1286,20 @@
`m4fshade(gray value,closed curve) internal'
ifelse(m4picprocessor,gpic,
- `define(`m4fshade',`shade(ifelse(`$1',,0,`$1'),`$2')')',
+ `define`m4fshade',`shade(ifelse(`$1',,0,`$1'),`$2')')',
m4postprocessor,xfig,
`define(`m4fshade',``$2' fill ifelse(`$1',,0,`$1')')',
+ `define(`m4fshade',``$2' dnl
+ ifdef(`r_',`shaded rgbstring(r_,g_,b_)',`fill ifelse(`$1',,0,`$1')')')')
+
+ifelse(0,1,`
+ifelse(m4picprocessor,gpic,
+ `define`m4fshade',`shade(ifelse(`$1',,0,`$1'),`$2')')',
+m4postprocessor,xfig,
+ `define(`m4fshade',``$2' fill ifelse(`$1',,0,`$1')')',
+m4postprocessor,pdf,
+ `define(`m4fshade',``$2' dnl
+ ifdef(`r_',`shaded(r_,g_,b_)',`fill ifelse(`$1',,0,`$1')')')',
m4postprocessor,svg,
`define(`m4fshade',
`ifdef(`r_',`rgbfill(color255(r_,g_,b_),`$2')',
@@ -1232,15 +1307,17 @@
`define(`m4fshade',
`ifdef(`r_',`rgbfill(r_,g_,b_,`$2')',
`shade(ifelse(`$1',,0,`$1'),`$2')')')')
+')
- `open_arrow(linespec, ht, wid)
+ `open_arrow(linespec, ht, wid, head attribs)
arrow with outlined head'
define(`open_arrow',`arrow invis `$1'
- m4oatx = Here.x - last arrow.start.x; m4oaty = Here.y - last arrow.start.y
- m4oatr = (ifelse(`$3',,arrowwid,`$3'))/vlength(m4oatx,m4oaty)/2
- line from last arrow.start to Here chop 0 chop ifelse(`$2',,arrowht,`$2')
- line from last arrow.end to Here+(-m4oaty*m4oatr,m4oatx*m4oatr) \
- then to Here-(-m4oaty*m4oatr,m4oatx*m4oatr) then to last arrow.end ')
+ m4oatx = Here.x - last arrow.start.x; m4oaty = Here.y - last arrow.start.y
+ m4oatr = (ifelse(`$3',,arrowwid,`$3'))/vlength(m4oatx,m4oaty)/2
+ line from last arrow.start to Here chop 0 chop ifelse(`$2',,arrowht,`$2')
+ line from last arrow.end to Here+(-m4oaty*m4oatr,m4oatx*m4oatr) \
+ then to Here-(-m4oaty*m4oatr,m4oatx*m4oatr) \
+ then to last arrow.end `$4'')
`elchop(E,A) chop for ellipses
evaluates to "chop r" where r is the distance
@@ -1390,12 +1467,17 @@
define(`langle',
`atan2(M4Pos(`$2').y-M4Pos(`$1').y,M4Pos(`$2').x-M4Pos(`$1').x)')
- `ArcAngle(Pos1,Pos2,Pos3,radius,attributes)
+ `ArcAngle(Pos1,Pos2,Pos3,
+\xA0 radius,attributes,label)
arc angle symbol drawn ccw at Pos2
arg4: radius from Pos2
- arg5: line attributes, e.g. thick linethick/2'
+ arg5: line attributes, e.g. thick 0.4 ->
+ arg6: label (or other object) at mid-arc
+ e.g., ArcAngle(A,B,C,,,"$ABC$" ljust ) '
define(`ArcAngle',`arcr(`$2',ifelse(`$4',,arcrad,`$4'),
- langle(`$2',`$1'),langle(`$2',`$3'),`$5') ')
+ langle(`$2',`$1'),langle(`$2',`$3'),`$5')
+ ifelse(`$6',,,`move to `$2'+ (rect_(ifelse(`$4',,arcrad,`$4')+textoffset,
+ (langle(`$2',`$1')+langle(`$2',`$3'))/2)); `$6'') ')
`RightAngle(Pos1,Pos2,Pos3,linelen,attributes)
Draw a right angle symbol at Pos2
@@ -1505,9 +1587,10 @@
same arguments'
ifdpic(`
define(`fitpoints',`defdfitpoints
-dfitpoints($@)')
+ dfitpoints($@)')
define(`defdfitpoints',`ifdef(`dfitpoints__',,`define(`dfitpoints__')dnl
-patsubst(`define dfitpoints {
+patsubst(`## pic fit curve macros
+define dfitpoints {
if "|3"=="" then { m_dfit=0 } else { m_dfit=|3 }
if "|5"=="" then { mP_dfit=0 } else { mP_dfit=|5 }
n_dfit = |2; np_dfit = n_dfit-m_dfit
@@ -1555,7 +1638,8 @@
for i_dfit=2 to np_dfit-2 do { continue to M4P_[i_dfit] }
continue to 27/32 between M4P_[np_dfit-2] and M4P_[np_dfit-1] \
then to 21/32 between M4P_[np_dfit-1] and M4P_[np_dfit] \
- then to M4P_[np_dfit]) }',|,$) ')
+ then to M4P_[np_dfit]) }
+` ## end fit curve defs'',|,$) ')
dfitcurve($@) ')
')
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/liblog.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/liblog.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/liblog.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,7 +1,7 @@
divert(-1)
liblog.m4 Logic gates
-* Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under *
+* Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under *
* the LaTeX Project Public Licence in file Licence.txt. The files of *
* this distribution may be redistributed or modified provided that this *
* copyright notice is included and provided that modifications are clearly *
@@ -57,7 +57,8 @@
define(`lg_pintxt',
`"ifxfig(`$1',`ifsvg(`svg_small(`$1',75)',`sp_{\scriptsize `$1'}sp_')')"')
`Logic pin text with bar where possible'
-define(`lg_bartxt',`iflatex(`$\overline{\hbox{`$1'}}$',`$1')')
+define(`lg_bartxt',`iflatex(`$\overline{\hbox{`$1'}}$',
+ `ifsvg(`svg_ol(`$1')',`$1')')')
`The comma has to be at the top level'
define(`m4_pattocomma',`patsubst(`$1',`$2',`,')')
@@ -1043,4 +1044,5 @@
define(`m4drawpin',`lg_pin(`$1',`$4',ifelse(`$5',,`$2',`$5'),`$3')')
###########################################################################
+
divert(0)dnl
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/mfpic.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/mfpic.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/mfpic.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,7 +1,7 @@
divert(-1)
mfpic.m4 Initialization for mfpic.
-* Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under *
+* Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under *
* the LaTeX Project Public Licence in file Licence.txt. The files of *
* this distribution may be redistributed or modified provided that this *
* copyright notice is included and provided that modifications are clearly *
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/mpost.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/mpost.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/mpost.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,7 +1,7 @@
divert(-1)
mpost.m4 Initialization for metapost.
-* Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under *
+* Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under *
* the LaTeX Project Public Licence in file Licence.txt. The files of *
* this distribution may be redistributed or modified provided that this *
* copyright notice is included and provided that modifications are clearly *
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/pgf.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/pgf.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/pgf.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,7 +1,7 @@
divert(-1)
pgf.m4 Initialization for Tikz-pgf.
-* Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under *
+* Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under *
* the LaTeX Project Public Licence in file Licence.txt. The files of *
* this distribution may be redistributed or modified provided that this *
* copyright notice is included and provided that modifications are clearly *
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/postscript.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/postscript.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/postscript.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,7 +1,7 @@
divert(-1)
postscript.m4 Initialization for Postscript output.
-* Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under *
+* Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under *
* the LaTeX Project Public Licence in file Licence.txt. The files of *
* this distribution may be redistributed or modified provided that this *
* copyright notice is included and provided that modifications are clearly *
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/psfrag.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/psfrag.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/psfrag.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -2,7 +2,7 @@
psfrag.m4 Initialization for dpic -f processing:
Postscript with psfrag strings
-* Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under *
+* Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under *
* the LaTeX Project Public Licence in file Licence.txt. The files of *
* this distribution may be redistributed or modified provided that this *
* copyright notice is included and provided that modifications are clearly *
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/pstricks.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/pstricks.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/pstricks.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,7 +1,7 @@
divert(-1)
pstricks.m4 Initialization for PSTricks.
-* Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under *
+* Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under *
* the LaTeX Project Public Licence in file Licence.txt. The files of *
* this distribution may be redistributed or modified provided that this *
* copyright notice is included and provided that modifications are clearly *
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/svg.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/svg.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/svg.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,7 +1,7 @@
divert(-1)
svg.m4 Initialization for SVG output.
-* Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under *
+* Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under *
* the LaTeX Project Public Licence in file Licence.txt. The files of *
* this distribution may be redistributed or modified provided that this *
* copyright notice is included and provided that modifications are clearly *
@@ -26,6 +26,7 @@
ifelse(ifdef(`Inkscape',T)`'ifdef(`nosvgformat',T),T,
`define(`svg_it',`$1')
define(`svg_tt',`$1')
+define(`svg_sf',`$1')
define(`svg_norm',`$1')
define(`svg_bf',`$1')
define(`svg_small',`$1')
@@ -99,15 +100,22 @@
define(`svg_symbol',`changecom(,)`$1'changecom(`#',)')
define(`svg_it',`<tspan font-style=\"italic\">`$1'</tspan>')
define(`svg_tt',`<tspan font-family=\"Courier\">`$1'</tspan>')
+define(`svg_sf',`<tspan font-family=\"Helvetica\">`$1'</tspan>')
define(`svg_norm',`<tspan font-style=\"normal\">`$1'</tspan>')
define(`svg_bf',`<tspan font-style=\"bold\">`$1'</tspan>')
-dnl To get %% in a sprintf string, set the size explicitly,
+dnl T0 GET %% in a sprintf string, set the size explicitly,
dnl eg sprintf("x`'svg_sub(%g,50%)",i)
define(`svg_small',`svg_fsize(`$1',ifelse(`$2',,66,`$2'))')
define(`svg_fsize',`<tspan font-size=\"ifelse(`$2',,100,`$2')%\">`$1'</tspan>')
+dnl svg_ul(text) Underline text
+define(`svg_ul',`<tspan text-decoration=\"overline\">`$1'</tspan>')
+dnl svg_ol(text) Overline text
+define(`svg_ol',`<tspan text-decoration=\"overline\">`$1'</tspan>')
+
+dnl svg_sup
dnl This is black magic but seems necessary to work with Firefox
dnl Arg 2: size of subscript font in percent
dnl Arg 3: vertical shift, e.g. svg_sub(1,,0.5ex)
@@ -126,6 +134,29 @@
font-size=\"ifelse(`$2',,70,`$2')%\" dy=\"-ifelse(`$3',,0.66ex,`$3')\"
dx=\"-0.5ex\"> </tspan>')dnl note the space
+
+
+ `svg_frac(numerator[:wid],denominator[:wid])
+ Basic fraction for simple arguments
+ wid is in drawing units'
+define(`svg_frac',`define(`m4ex',`(textht*0.675)')dnl sans-serif: 0.8525
+define(`m4num',`patsubst(`$1',:.*)')dnl
+define(`m4den',`patsubst(`$2',:.*)')dnl
+define(`m4numx',`ifinstr(`$1',:,((patsubst(`$1',.*:))/m4ex),len(`$1'))')dnl
+define(`m4denx',`ifinstr(`$2',:,((patsubst(`$2',.*:))/m4ex),len(`$2'))')dnl
+define(`m4mx',`max(m4numx,m4denx)')dnl
+ "<tspan dx="+sprintf("\"%gex\"", m4mx/2)+"> </tspan><tspan dy=\"-1.2ex\"
+ dx="+sprintf("\"%gex\"", (m4mx-m4numx)/2)+">m4num</tspan><tspan
+ dy=\" 2.6ex\"
+ dx="+sprintf("\"%gex\"", -m4numx/2-m4denx/2)+">m4den</tspan><tspan
+ dy=\"-1.4ex\" dx="+sprintf("\"%gex\"", m4mx/2-m4denx/2)+"> </tspan>"
+ line right m4mx*m4ex from Here+((m4mx/2-0.8)*m4ex,-0.2*m4ex)
+ move to Here+(0,0.2*m4ex)
+ {box invis wid last line.len ht 2.8*textht with .w at last line.start}
+')
+
+define(`svg_hat',`<tspan>svg_circ</tspan><tspan dx=\"-0.9ex\">`$1'</tspan>')
+
define(`svg_alpha',`svg_symbol(&`#'945;)')
define(`svg_beta',`svg_symbol(&`#'946;)')
define(`svg_chi',`svg_symbol(&`#'967;)')
@@ -174,14 +205,15 @@
define(`svg_pound',`svg_symbol(&`#'35;)')
define(`svg_circ',`svg_symbol(&`#'710;)')
define(`svg_deg',`svg_symbol(&`#'176;)')
+define(`svg_equiv',`svg_symbol(&`#'8801;)')
')
define(`svgcolor',`sprintf("rgb(%g,%g,%g)",\
-round_(`$1'),round_(`$2'),round_(`$3'))')
+int(`$1'+0.5),int(`$2'+0.5),int(`$3'+0.5))')
# Obsolete but kept for compatibility. Use `rgbstring(r,g,b)'
define(`svgcolor255',
- `svgcolor(round_((`$1')*255),round_((`$2')*255),round_((`$3')*255))')
+ `svgcolor(int((`$1')*255+0.5),int((`$2')*255+0.5),int((`$3')*255+0.5))')
define(`svgLink',`command "<a xlink:href=\"`$1'\"dnl
ifelse(`$3',,`target=\"_blank\"',`$3',B,,`$3')>
Modified: trunk/Master/texmf-dist/doc/latex/circuit-macros/xfig.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/xfig.m4 2021-06-02 23:48:47 UTC (rev 59443)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/xfig.m4 2021-06-03 20:45:51 UTC (rev 59444)
@@ -1,7 +1,7 @@
divert(-1)
xfig.m4 Initialization for xfig.
-* Circuit_macros Version 9.5, copyright (c) 2021 J. D. Aplevich under *
+* Circuit_macros Version 9.6, copyright (c) 2021 J. D. Aplevich under *
* the LaTeX Project Public Licence in file Licence.txt. The files of *
* this distribution may be redistributed or modified provided that this *
* copyright notice is included and provided that modifications are clearly *
More information about the tex-live-commits
mailing list.