texlive[52035] Master: circuit-macros (all except boxdims.sty in doc
commits+karl at tug.org
commits+karl at tug.org
Fri Sep 6 00:33:49 CEST 2019
Revision: 52035
http://tug.org/svn/texlive?view=revision&revision=52035
Author: karl
Date: 2019-09-06 00:33:48 +0200 (Fri, 06 Sep 2019)
Log Message:
-----------
circuit-macros (all except boxdims.sty in doc due to generic file names)
Modified Paths:
--------------
trunk/Master/tlpkg/bin/tlpkg-ctan-check
trunk/Master/tlpkg/libexec/ctan2tds
trunk/Master/tlpkg/tlpsrc/collection-pictures.tlpsrc
Added Paths:
-----------
trunk/Master/texmf-dist/doc/latex/circuit-macros/
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/Makefile
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/
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/AmpTable.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Antennas.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Audio.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Axes.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/BigResistor.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Bip.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Buffer.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Capture.JPG
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CctTable.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/Composite.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ConfigA.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ConfigB.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ConfigC.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Conn.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Corners.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Dac.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Darlington.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Demultiplexer.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Diodes.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Emarrows.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/FF.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/FlipFlop.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Flowdiag.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Fuses.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Grounds.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Headers.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/HybridPi.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Jack.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Logic.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Loop.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Makefile
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Multiplexer.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/NLG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/NPDT.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Nport.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Oblique.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Opamp.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Opto.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ParSeries.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Pconn.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Potentiometers.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Relay.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Series.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ShiftR.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Sinus.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Sources.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Switches.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Taps.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Tgate.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Thermal.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Tline.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Ttree.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Variable.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Version.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Windings.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Workflow.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Xform.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/bi_trans.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/bistable.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/bitr.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/bitrbody.m4
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/eboxdims.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/fbfilter.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/fet.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/lrarrows.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/md.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/mplex.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/doc/quick.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/stringdims.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/test.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/thyristor.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/tran.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/tran.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/tranbody.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ujt.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/woodchips.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/dpictools.pic
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ABlogix.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Adder.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Alogix.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Autologix.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Ball.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Blogix.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Btree.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Buttons.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Byte.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/CSlight.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/CanLogic.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Ccurve.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Chuck.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Counting.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Crossbar.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Crow.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Cruller.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Csource.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Decoder.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Drive.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/Floor.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Flow.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/FlowchartDefs.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/GnuMakefile
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Heathkit.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/I2L.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/IC10107.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incl.eps.bb
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incl.eps.gz
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incl.pdf
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incleps.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Inclpdf.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Koch.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Loglog.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MC.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Makefile
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Mixer.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MosfetElements.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MotorControl.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/OpAmpFilter.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Optoiso.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Orbits.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/PPA.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/PushPull.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Quantum.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/README-examples
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Rectifiers.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Resolver.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Rotbox.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/SPM.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/SQUID.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Schottky.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Shaky.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Sierpinski.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Sixpole.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/TTLnand.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Three.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Timer.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Ttree.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Wheat.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/XOR.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/birds.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/bistable.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/brace.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/chaos.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/clock.m4
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/darrows.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/debug1.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/debug2.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/diamond.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex00.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex01.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex02.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex03.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex04.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex05.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex06.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex07.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex08.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex09.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex10.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex11.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex12.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex15.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex16.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex17.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex18.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex21.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/files.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/graysurf.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/header.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ics.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/keyval.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/lcct.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/Makefile
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/mf/font.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/mftest
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mode.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/Makefile
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/README-mpost
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/examplesmpost.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/mptest
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/tstmpost.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/person.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/Makefile
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/README-pgf
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/examplespgf.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/tstpgf.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/Makefile
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/README-psfrag.txt
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/examplespsfrag.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/tstpsfrag.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pwrsupply.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/random.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/recycle.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/rose.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/rotate.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/rotatetext.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/rotellipse.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/sfg.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/shapes.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/snake.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/squiggle.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ABlogixSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AdderSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AlogixSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AmpTableSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AntennasSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AudioSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Banking.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Banking.txt
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/BipSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/BtreeSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ButtonsSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ByteSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CanLogicSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CctTableSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ConnSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CountingSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrossbarSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrowSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrullerSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CsourceSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DecoderSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DemultiplexerSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DiodesSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DriveSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/EmarrowsSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/FlowSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/FontsSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/FusesSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/GroundsSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/HeadersSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/HeathkitSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/I2LSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Incl.jpg
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/InclepsSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/JackSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/LgateSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/LogicSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/LoglogSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MCSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Makefile
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MixerSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MotorControlSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MultiplexerSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/NLGSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/NPDTSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Np.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/NportSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/OpampSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/OptoisoSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PconnSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PushPullSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/QuantumSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/RectifiersSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/RelaySVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/RotboxSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SQUIDSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SVGconfig.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SchottkySVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ShiftRSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SierpinskiSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SixpoleSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SourcesSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SwitchesSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TTLnandSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TgateSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ThreeSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TimerSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TtreeSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/VariableSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/WindingsSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/XORSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/XformSVG.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/diamondSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex00SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex01SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex02SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex03SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex04SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex05SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex06SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex08SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex09SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex10SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex11SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex12SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex15SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex16SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex17SVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex18SVG.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/lcctSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/local_init.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/paletteSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/pwrsupplySVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/quickSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/randomSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/recycleSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/roseSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/sfgSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/shapesSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/thyristorSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/tstSVG.htmx
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ujtSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/wormSVG.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/xx.html
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/test.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/testpdf.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/tikz.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/tst.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/tst1.tex
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/windows.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/worm.m4
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/xfig/
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/xfig/Makefile
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/xfig/xfiglib.fig
trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/xfig/xfiglib.m4
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
trunk/Master/texmf-dist/tex/latex/circuit-macros/
trunk/Master/texmf-dist/tex/latex/circuit-macros/boxdims.sty
trunk/Master/tlpkg/tlpsrc/circuit-macros.tlpsrc
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/CHANGES
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/CHANGES (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/CHANGES 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,181 @@
+CHANGES
+ (The stable CTAN version will be nn.n; intermediate versions nn.n.n):
+
+Version 9.0: Tweaked svg_sub, svg_sup, lamp. New macros cm__, px__.
+ New option for source. Obsolete Autologic and stackpromote_ removed.
+Version 8.9: Tweaked lswitch, contact, rotbox, parallel_, darrow.
+ Uniform open-arrowhead option for diode, thyristor. New macros reed, lamp.
+Version 8.8: Tweaks for source macro. Change to svg.m4 for
+ compatibility with dpic Version 2018.05.15 or later. Macros for
+ embedding pic diagrams into Tikz pictures. Changed the name of the
+ manual from CMman.pdf to Circuit_macros.pdf. Option for dswitch.
+Version 8.7: Fixes for more robust nested macros and SVG color. Options for
+ the source macro.
+Version 8.6: Options for switch, lswitch. Simplified Quick Start section
+ of the manual. Added WARNING to m4 output for default configuration
+ file gpic.m4. Macro pconnex tweaked for tikz.
+Version 8.5: SVG macro tweaks for generality. Options for Mux, Demux,
+ hatchbox. Fixed arcr, vperp, fitcurve, setdir_ rs_box. New macros
+ LEintersect, LEtangent, sqrta, arcdimension_.
+Version 8.4: Tweaked Autologix inputs. Options for NOT_gate, LH_symbol,
+ arcr, arcd. New macros tbox, thermocouple. Fixed a problem setting
+ defaults using the top-level Makefile on some systems.
+Version 8.3: A simpler CTAN distribution and several examples reworked for
+ use with multiple postprocessors. New macros NeedDpicTools, iflatex,
+ latexcommand, ifpsfrag, hlth, Mitre_. Tweaked potentiometer, pconnex,
+ corner, svg text. Option for mosfet.
+Version 8.2: Tweaks to round, bi_tr, bi_trans, Darlington, along_. New
+ Along_, lin_ang, mitre_.
+Version 8.1: Additions to dpictools.pic. New macros parallel_, rgbstring,
+ series_, stackdo_, Vsprod, sbs, scs, sus. Options for diode.
+ Thyristor options and minor changes of functionality. Bugfix in winding macro.
+Version 8.0: New options for capacitor, cbreaker, diode, inductor, lswitch, Mux,
+ resistor, rotbox, transformer. New macros addtaps, binary_, Demux, Header,
+ HeaderPin, hex_digit, hexadecimal_, Pr_xy, Pr_xz, Pr_yz, SQUID, KelvinR,
+ FTcap, tconn, and tapped.
+ Tweaked setrgb for svg output. Generalized setview in lib3D.
+Version 7.9: Added accessibility features to the documentation.
+ Replaced Autologic with Autologix to allow multiple outputs and
+ simplified expressions. New macros savem4dir, restorem4dir. Options for
+ vperp and Vperp. Bug fix in source macro. Tweaked stacksplit_. Removed
+ a name clash between libcct and liblog.
+Version 7.8: Logic gate options for arbitrary negated inputs; lg_pin options.
+ New macro FlipFlopX for simplicity and generality; new macros Cintersect,
+ LCintersect, LCtangent, stacksplit_; modified Loopover_.
+Version 7.7: SVG macro tweaks. Tweaked BOX_gate and bugfix in IOdefs in
+ liblog.m4.
+Version 7.6: New macro NPDT; new option for contact and relay; Autologic
+ tweaks. Changed the Point_ simplification to require specific activation
+ because of rare interaction with dpic loops.
+Version 7.5: Usage has been simplified by making the initialization macros
+ cct_init, gen_init, log_init, darrow_init, and threeD_init read the
+ appropriate libraries automatically. New macros: jack, plug, tstrip,
+ ccoax, pconnex, basename_, Autologic and associated wrappers for
+ automatic Boolean functions, stack macros stackexec_, stackcopy_,
+ stackprint_, stackreverse_. Simplified setting of drawing direction
+ in composite macros. Bugfix in calls to BUFFER_gen. Tweaked Point_
+ for simpler output for common arguments. Reordered the arguments of
+ round for consistency.
+Version 7.4: New macro lthick. Simplified shadebox. The ifroff macro renamed
+ to iftpic. New configuration file m4defaults.m4. Reworked darrow library
+ for consistency with solid lines and arrows; new macro darc and wrappers
+ Darc, Darrow, Dline; old version included in olddarrow.m4 to ease transition.
+ Macros and examples fixed and made more robust for gpic (where possible).
+Version 7.3: Options for sinusoid. Bug fix for switch(,,D). Heater macro.
+ Modified Loopover_
+Version 7.2: Tweaked crossover macro. Size options for inductor, resistor,
+ capacitor; dlabel alignment options; new options for source, capacitor.
+Version 7.1: Eliminated the HOMELIB_ macro for easier package installation
+ and use (requires m4 -I <path> or the M4PATH environment variable).
+Version 7.0: New options and wrapper macro scr for thyristor. Generalized
+ ifinstr. Macros corner, round, resized. Options for mosfet. Tweaked
+ b_current and color macros. Simplified \psbezier workaround assuming
+ recent PSTricks.
+Version 6.9: New workaround for \psbezier. Fixed round_. Default
+ postprocessor reset to gpic. Style parameters for em_arrows. Tweaks to
+ winding, dimension_, fitcurve, distance. New macro rot_.
+Version 6.8: New configuration file svg.m4 and other changes to support
+ dpic svg output. Inkscape-aware changes. Opamp option. New macros
+ ptrans and tgate. Tweaks to switch macros, color, variable, centerline,
+ intersect_, inductor(,W), inductor(,L).
+Version 6.7: Fixed source(,S) and ttmotor to work correctly with labels.
+ Simplified several 2-terminal macros by using the reversed macro.
+Version 6.6: New macros memristor, centerline. Revised PSTricks patch.
+ Options in mosfet, capacitor. Opamp .C defined. Tweaks to avoid
+ potential name conflicts. Fix for dashline.
+Version 6.5: New macros Loopover_, m4xpand, showbox_, gyrator, norator,
+ nullator, nterm, rotellipse, rotbox. Logic gate examples.
+ Customization arguments for non-2-terminal elements. Signal
+ flow-graph macros tuned to allow large nodes; bug fix in sfgarc. A
+ patch for PSTricks to work around the context dependency of \psbezier
+ within \pscustom.
+Version 6.4: New macros Equidist3, f_box, rs_box, Darlington, View3D.
+ Options for diode, inductor, transformer, consource. Moved arrowhead
+ initialization in pstricks.m4 and libcct.m4 for for more flexibility
+ with diagrams embedded in latex files.
+Version 6.3: New options for mosfet, diode, earphone. Better color support.
+ Fixed system-dependent OR_gate problems. New macro cintersect.
+Version 6.2: Replaced scr with a variant of thyristor. Bug fix in
+ bi_trans. Options for source.
+Version 6.1: New macros ttmotor, thyristor. Options for source, bi_trans,
+ transformer. More robust arcd, arcr.
+Version 6.0: TikZ PGF compatibility. Added transformer labels, optional
+ FlipFlop labels. New macros dswitch, winding. Tweaked nport, source,
+ bi_trans, AND_gen, OR_gen, sinusoid, resistor.
+Version 5.9: Simplified internal flags for pic processor and postprocessor.
+ New antenna, cbreaker, dturn, and lbox macros. Several changes to
+ allow sprintf string arguments. New options for buzzer, capacitor,
+ dimension_, ebox, fuse, mosfet, source, and switch. Fix of drjust.
+ Better compatibility with pic macros. Numerous changes to documentation.
+Version 5.8: Simplified installation. Revised and augmented logic-gate library.
+ Cleaner libgen macro output. Improved b_current, bi_trans, ground, dtee.
+ Dline and darrow corrected for gpic. New macros dashline, m4xtract.
+Version 5.7: Psfrag examples. Improved dline. Added option and label in
+ igbt. Bug fix in tr_xy. Multiple-emitter option in bi_trans.
+Version 5.6: Better MetaPost, PDFLaTeX, and xfig support. PDF examples.
+ Reworked diode for easier customization and more options. Improved
+ shade, sfgline, dline, darrow, gap, point_, Point_, opamp, bi_trans,
+ variable, em_arrows, larrow, rarrow, FlipFlop6. New speaker, bell,
+ microphone, buzzer. Negated logic gate inputs and IEEE box logic gates.
+Version 5.5: New macros potentiometer, variable, igbt, tline. Optional
+ negated logic gate inputs. Options for diode, source.
+Version 5.4: New Mux, for_, arca. Reworked gate macros FlipFlop, AND_gate,
+ OR_gate, NOT_gate. Improved lg_pintxt, boxdim, s_box, s_ht, s_wd,
+ s_dp, nport, resistor, opamp. Completely reworked bi_tr, mosfet;
+ deleted smosfet. Minor additions and changes to the manual.
+Version 5.3: New macros arcr, arcd, beginshade, endshade, larrow, rarrow,
+ s_sp, s_ht, s_wd, Max, Min, sfgself. Improved ground, sfgnode, diode,
+ resistor.
+Version 5.2: New macros arrowline, nport, vlength, boxcoord, reversed.
+ Improved s_box, sfg_init, cross, fitcurve, sinusoid, transformer, darrow,
+ mosfet, psset_, battery, diode, capacitor.
+Version 5.1: Signal-flow graph (directed graph) macros. More consistent
+ rot3Dz. Work-around for a bug in some pic processors invoked by the
+ battery macro and for an arc instability invoked by the fuse macro.
+ Modified ground, dimension_, par_, label macros, b_current, diode,
+ transformer. New macros gpar_, ujt, scr, contact, relay.
+ Document fixes and additions. Changes to examples for portability.
+Version 5.0: Macros fuse, lpop, sinc; dpic-only sinusoid and fitcurve macros.
+ More robust mosfet, smosfet, b_current, bi_tr, j_fet, intersect_.
+ Editorial changes to the manual. Examples in Xfig version 3.2 format.
+ Web-based examples and updated links.
+Version 4.9: More robust NOT_gate. Function pmod(), macro shade(). Tweaks
+ to diode, dend, crossover. Newer manual and web references. Binary
+ tree and flowchart macros.
+Version 4.8: More robust ebox, source, shadebox, gap. Modified d_fet and
+ e_fet. Macros mosfet and smosfet. More examples in the manual. Bug
+ fixes in Fector, transformer, BUFFER_gate and in sum_, abs_, neg_, sign_ (!).
+Version 4.7: Fixed the excess-space bug in boxdims.sty. Added Macros s_box,
+ s_init, scale changes to make the package more metric-friendly. Reworked
+ amp, integrator, opamp, diode, battery and a few other macros for robustness
+ and clarity. Minor document changes.
+Version 4.6: Percent-signs at the end of pstricks-generated lines.
+ Index in the manual. New copyright notices.
+Version 4.5: Options for several 2-terminal macros. Minor bug fixes and
+ better robustness. Documents edited for friendlier PC installation and use.
+Version 4.3: Macros pt__ and boxdim. Additions to the manual. More robust
+ dimension_, tuned FlipFlop for xfig. PC installation information.
+Version 4.2: Friendlier manual. New Xfig prototype file to allow correct
+ scaling. Cleaned up b_current, added line_leng. Changes and additions
+ to logic gates.
+Version 4.1: Xfig prototype file included. Minor document changes. Fixed
+ recursive call bug and blank line bug. Changed argument for dend
+ macro. Better arrowheads in circuit elements.
+Version 4: Simplified library use. Added capabilities and flexibility to
+ several devices, added _init macros, modified b_current. Updated
+ font.m4, cosmetic changes to inductor. Made gamp, amp, opamp,
+ integrator more robust. Deleted edel_ macro. Fixed elen_ bug in
+ darrow.m4. Removed Capacitor, Inductor and others in favour of
+ parameterized macros. Iron-core inductors. Re-worked use of arcs in
+ basic elements for better robustness. Edited examples document and
+ the manual.
+Version 3: Document changes, minor changes to dimension_, switch,
+ ground, battery. Added flexibility for several elements. New
+ diodes, Capacitor, transistors, hop, transformer. Experimental
+ Metafont version of basic elements.
+Version 2.2: Replaced definitions of two-terminal elements
+ with current arrow by an arrow-labelling macro.
+Version 2.1: one or two examples simplified, and logic gates added.
+Version 2: considerable added flexibility and robustness,
+ bug fixes, a few new constructs, a manual, and a complex logic-gate
+ example.
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/Copying
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/Copying (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/Copying 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,6 @@
+* Circuit_macros Version 9.0, copyright (c) 2019 J. D. Aplevich under *
+* the LaTeX Project Public License. The files of this distribution may *
+* be redistributed or modified provided that this copyright notice is *
+* included and provided that modifications are clearly marked to *
+* distinguish them from this distribution. There is no warranty *
+* whatsoever for these files. *
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/Makefile
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/Makefile (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/Makefile 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,50 @@
+# The default postprocessor can be changed automatically as described below.
+# This default can be overridden by reading the appropriate configuration file
+# as the first file read by m4.
+
+# Some of the steps could be simplified on many systems.
+
+default:
+ @echo "Usage:"
+ @echo " make psdefault"
+ @echo " make pgfdefault"
+ @echo " make gpicdefault"
+ @echo " make clean"
+ @echo " make clobber"
+
+SH = sh
+# SH = bash
+
+# To set the default postprocessor to
+# dpic -p with pstricks, type "make psdefault"
+psdefault:
+ @sed -e '/m4picprocessor/s/include([a-z][a-z]*\.m4)/include(pstricks.m4)/' \
+ libgen.m4 > tmplibgen
+ mv tmplibgen libgen.m4; chmod 644 libgen.m4
+ @grep 'include.*divert' libgen.m4
+
+# To set the default postprocessor to
+# dpic -g with TikZ PGF, type "make pgfdefault"
+pgfdefault:
+ @sed -e '/m4picprocessor/s/include([a-z][a-z]*\.m4)/include(pgf.m4)/' \
+ libgen.m4 > tmplibgen
+ mv tmplibgen libgen.m4; chmod 644 libgen.m4
+ @grep 'include.*divert' libgen.m4
+
+# To set the default postprocessor to
+# gpic -t type "make gpicdefault"
+gpicdefault:
+ @sed -e '/m4picprocessor/s/include([a-z][a-z]*\.m4)/include(gpic.m4)/' \
+ libgen.m4 > tmplibgen
+ mv tmplibgen libgen.m4; chmod 644 libgen.m4
+ @grep 'include.*divert' libgen.m4
+
+clean:
+ rm -f `find . -name \*~ -print` tmplibgen
+ (cd doc; make clean)
+ (cd examples; make clean)
+
+clobber:
+ rm -f `find . -name \*~ -print`
+ (cd doc; make clobber)
+ (cd examples; make clobber)
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/Makefile
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/README
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/README (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/README 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,415 @@
+
+* Circuit_macros Version 9.0, copyright (c) 2019 J. D. Aplevich under *
+* the LaTeX Project Public License. The files of this distribution may *
+* be redistributed or modified provided that this copyright notice is *
+* included and provided that modifications are clearly marked to *
+* distinguish them from this distribution. There is no warranty *
+* whatsoever for these files. *
+
+ This is a set of macros for drawing high-quality line diagrams to
+ include in LaTeX, web, or similar documents, with support for SVG
+ (including Inkscape) and other formats. Fundamental electric circuit
+ elements and basic logic gates based on IEEE and European standards are
+ included with several tools and examples of other types of diagrams.
+ Elements can be scaled or drawn in any orientation and are easy
+ to modify. The advantages and disadvantages of such a system in its
+ basic form are similar to those of TeX itself, which is macro-based and
+ non-WYSIWYG; however, graphical interfaces are available for specific
+ operating systems as mentioned below.
+
+ The macros are to be processed by an m4 macro processor, and evaluate to
+ drawing commands in the pic "little language," which is easy to read and
+ learn. The diagram is then automatically translated into TiKZ, PSTricks,
+ or other formats for processing by LaTeX or other applications. Pic
+ is well suited to line drawings requiring parametric or conditional
+ components, fine adjustment, geometric calculations, repetition, or
+ recursion. Arbitrary text for formatting by LaTeX can be included.
+ Free interpreters for m4 and pic are readily available.
+
+REQUIRED SOFTWARE:
+Preferred setup:
+ GNU m4, dpic (see below), LaTeX, PSTricks, dvips
+ or
+ m4, dpic, LaTeX or PDFLaTeX, TikZ-PGF
+
+ The GNU m4 macro processor is assumed, and a small number of macros
+ require GNU m4 features. Other versions of m4 will work with most macros.
+
+ The dpic interpreter can translate pic input into several forms,
+ typically a .tex file for processing by latex with pgf/Tikz or PSTicks.
+
+Alternative:
+ m4, GNU pic (gpic), TeX or LaTeX, and a driver recognizing tpic specials
+ (eg dvips)
+
+ The GNU pic interpreter with option -t produces tpic special commands.
+
+Also possible for some diagrams:
+ m4 and dpic with output in the following formats:
+ LaTeX graphics or LaTeX eepic (for simple diagrams), mfpic, xfig,
+ MetaPost, SVG, PDF, or Postscript.
+
+USAGE
+ First-time users should read the Quick Start section of Circuit_macros.pdf.
+
+ The following describes the most common basic usage to produce tikz
+ or pstricks graphics for LaTeX; see below for integration with other
+ tools and production of other formats. You probably should try out
+ the basic usage before integrating the macros with sophisticated
+ system-dependent tools.
+
+ Suppose that a source file, cct.m4 say, has been created and the top
+ two lines are
+ .PS
+ cct_init
+ ...
+
+ The file is processed by feeding a configuration file followed by the
+ diagram source to m4, and routing the output to dpic. If you have set
+ the M4PATH environment variable as described in the INSTAllATION
+ instructions, the command for Tikz processing is
+
+ m4 pgf.m4 cct.m4 | dpic -g > cct.tex
+
+ NOTE: The order in which the files are given to m4 is important.
+ A configuration file (pgf.m4 in this example) must ALWAYS appear first.
+
+ If you have not set the M4PATH environmental variable then the command is
+
+ m4 -I <path> pgf.m4 cct.m4 | dpic -g > cct.tex
+
+ where <path> is the absolute path to the directory containing the library
+ macros.
+
+ If the first line of cct.m4 is
+ include(pgf.m4)
+ and M4PATH is defined, then this command can be simplified to
+
+ m4 cct.m4 | dpic -g > cct.tex
+
+ In each case, the resulting file cct.tex is normally inserted into
+ a document to be processed by LaTeX. The -g option of dpic produces
+ Tikz-pgf graphics commands in cct.tex so the LaTeX document must have
+ \usepackage{tikz} in the preamble.
+
+ To produce postscript output, the LaTeX preamble must contain
+ \usepackage{pstricks}, pstricks.m4 is read instead of pgf.m4, and the dpic
+ option is -p, so the command is
+
+ m4 pstricks.m4 cct.m4 | dpic -p > cct.tex
+
+ or, if include(pstricks.m4) is the first line of cct.m4,
+
+ m4 cct.m4 | dpic -p > cct.tex
+
+ Read Section 2 of the manual to see how to process the diagram source
+ from within the main .tex source file.
+
+ To use the GNU gpic processor (called pic on some systems) instead of dpic,
+ the command is
+
+ m4 gpic.m4 cct.m4 | gpic -t > cct.tex
+
+ with the -I <path> option added if M4PATH has not been defined.
+
+INSTALLATION:
+ 1. Decide where you will be installing the .m4 library files. In
+ principle, they can go anywhere, for example, $HOME/Circuit_macros,
+ c:\localtexmf\Circuit_macros, /usr/local/share/Circuit_macros,
+ or ~/texmf/tex/latex/Circuit_macros. Copy the files from the
+ top-level directory of the distribution to the installation
+ directory, or simply expand the .tar.gz or .zip distribution file
+ and rename the result to create the installation directory, which
+ will then include the doc and examples subdirectories.
+
+ 2. Copy boxdims.sty (see Section 9 of the manual) from the top
+ distribution directory to where LaTeX will find it; directory
+ ~/texmf/tex/latex/boxdims for example, and refresh the LaTeX
+ filename database (the exact command depends on your LaTeX
+ distribution and may not be necessary).
+
+ 3. Define the environment variable M4PATH to point to the installation
+ directory determined in Step 1. For the bash shell, for
+ example, add the following to your .bashrc file:
+ export M4PATH='.:~/texmf/tex/latex/Circuit_macros:'
+ but modify the path to the installation directory as necessary.
+
+ 4. This is optional. For historical reasons, the default configuration file
+ as distributed is gpic.m4. You can change it to pgf.m4 or pstricks.m4
+ for use with dpic by editing the include command near the top of
+ libgen.m4. To do this automatically, go to the installation directory
+ and type
+ "make pgfdefault" to set the default processor to dpic with Tikz pgf
+ "make psdefault" to set the default processor to dpic with PSTricks
+ "make gpicdefault" to restore gpic as the default.
+
+ In case of difficulty, go to the examples directory, look at debug1.tex
+ and debug2.m4, and follow instructions.
+
+WORKFLOW: The basic commands given above suffice for documents of moderate
+ size and complexity; otherwise, a "make" facility or equivalent should be
+ used or, for modest documents, diagram processing can be controlled from
+ within the tex document source as described in the manual. For near-immediate
+ viewing, three windows can be kept open: one in which to edit the source, one
+ to process the source and produce postscript or pdf, and GSview 5.0, which
+ updates when clicked. The Okular viewer also re-loads automatically.
+
+ Special-purpose editors and GUI-based project tools such as TeXnicCenter
+ can also be employed, or a scripting language can automate the steps as
+ done by Latexmk or several other similar tools; see, for example,
+ http://tex.stackexchange.com/questions/64/tools-for-automating-document-compilation
+
+ NOTE: One of the configuration files (gpic.m4, pstricks.m4, pgf.m4,
+ pdf.m4, postscript.m4, psfrag.m4, mpost.m4, mfpic.m4, svg.m4, or
+ xfig.m4) must be read by m4 before (or at the beginning of) the diagram
+ source file, depending on the required form of pic output. Otherwise,
+ libgen.m4 can be read first but it will invoke the default configuration
+ file, which is gpic.m4 in the distribution unless it has been changed
+ during installation.
+
+TESTING:
+ To test your installation, go to the examples directory (or copy the
+ files Makefile, tst.tex, and any .m4 sources you might like to test
+ to a working directory) and create a test circuit in the
+ file test.m4. Copy ex01.m4, for example, or quick.m4 from the doc
+ directory into test.m4.
+
+ On a system with a "make" facility, first check the definitions at
+ the top of the Makefile, and then type "make tst1" to produce the
+ file tst.ps. If the source requires processing twice, type "make
+ tst" instead. To process one of the example .m4 files in the
+ examples directory, simply type "make name.ps" to process name.m4.
+ If these tests work to your satisfaction, try typing simply "make" to
+ produce examples.ps. To test .pdf files, go to the pgf directory,
+ copy name.m4 there, and type either "make name.ps" or "make name.pdf"
+ to test the file under pdflatex and TikZ PGF.
+
+ The .m4 files in the examples directory can serve as models for your
+ diagrams but keep in mind that some of them contain details that allow
+ the source to be used with a variety of postprocessors. Sticking to
+ one postprocessor such as tikz or PStricks allows for the simplest
+ source. You might wish to browse some of the files that are not
+ included to produce examples.ps.
+
+ No "make" facility? You have to test by hand (but see below for
+ diagram production software). Copy a test file as above into
+ test.m4. Assuming you have dpic installed, type the following:
+
+ m4 -I <path> pstricks.m4 test.m4 > test.pic
+ dpic -p test.pic > test.tex
+ latex tst
+ dvips tst -o tst.ps
+
+SOURCES AND MANUALS:
+ View or print Circuit_macros.pdf in the doc directory.
+
+ M4 is widely available on Unix systems. PC source and executables are
+ also available: http://gnuwin32.sourceforge.net/packages/m4.htm
+ A large set of Unix-like Windows tools, including m4, is available via
+ http://www.cygwin.com/
+ DJGPP versions are available as m4-NNb.zip (where NN is the current
+ release number) on web archives and at
+ http://www.delorie.com/djgpp/dl/ofc/dlfiles.cgi/current/v2gnu/
+
+ There are several sources of hints on m4 usage; some places to look are
+ http://gnuwin32.sourceforge.net/packages/m4.htm (m4 for Windows)
+ http://www.gnu.org/software/m4/manual/ (GNU m4 manual)
+ https://mbreen.com/m4.html (m4 by example)
+ https://www.seindal.dk/rene/gnu/ (development site)
+ The m4 (computer language) article in Wikipedia gives a concise overview.
+ An academic discussion of the language can be found in
+ http://www.cs.stir.ac.uk/~kjt/research/pdf/expl-m4.pdf.
+ The GNU Autoconf manual contains a chapter on M4 programming:
+ http://www.gnu.org/software/autoconf/manual/index.html
+ (Do not read this manual first). Autoconf uses quote characters [ and ]
+ instead of the default ` and ' which work well with the pic language.
+
+ A video "Drawing Circuit Diagrams with Circuits Macros" by James Green
+ showing how to use Circuit_macros with his setup is at
+ https://www.youtube.com/watch?time_continue=53&v=pFRIBvUJHS4
+
+ Gpic is part of the GNU groff distribution, for which the source
+ and documentation is available from http://ftp.gnu.org/gnu/groff/
+ but there are mirror sites as well. The original AT&T pic manual
+ can be obtained at http://doc.cat-v.org/unix/v10/10thEdMan/pic.pdf
+ A more extensive manual is found in the documentation that comes with
+ GNU pic, which is typically installed as gpic. A pdf copy is included
+ with the dpic distribution and a version can be found on the web at
+ http://www.kohala.com/start/troff/gpic.raymond.ps
+
+DPIC:
+ Dpic is not included here you say? If you want to try the LaTeX
+ picture objects, mfpic, PSTricks, TikZ-PGF, MetaPost, xfig, SVG, PDF,
+ or Postscript output provided by dpic, there are at least three possibilities:
+ Some Linux distributions will install dpic automatically, the current
+ (free) C source and Windows executable can be obtaied from
+ http://ece.uwaterloo.ca/~aplevich/dpic/
+ and a git repository containing complete source is at
+ https://gitlab.com/aplevich/dpic
+
+ The dpic distribution includes a manual dpic-doc.pdf containing a summary
+ of the pic language and descriptions of features unique to dpic.
+
+EXAMPLES AND INTEGRATION WITH OTHER TOOLS:
+ A set of examples is included in this distribution, showing electric
+ circuits, block diagrams, flow charts, signal-flow graphs, basic use
+ of colour and fill, and other applications.
+
+ Read the manual Circuit_macros.pdf and view or print the file
+ examples.ps in the examples directory. There are a few other source
+ files in the examples directory that are not shown in examples.ps.
+ For the possibly unstable development version of these macros, try
+ http://ece.uwaterloo.ca/~aplevich/Circuit_macros/
+
+ The examples directory Makefile automates the generation of .ps, .eps,
+ .png, and .pdf files for individual diagrams. Subdirectories of the
+ examples directory are for testing metafont, metapost, pgf, psfrag,
+ pdf, and xfig examples.
+
+ Installation and usage of the macros have evolved a little since the
+ beginning so archived instructions on the net may be slightly more
+ complicated than currently necessary. However, a number of people
+ have developed tools that simplify workflow for their circumstances,
+ which are beyond the scope of this distribution. The following may
+ be of interest:
+
+ Fabrice Salvaire provides a brief introduction at
+ https://www.fabrice-salvaire.fr/en/blog/electronic-circuit-diagrams/
+
+ A set of examples and hints intended for his colleagues has been
+ produced by Alan Robert Clark at http://ytdp.ee.wits.ac.za/cct.html
+
+ A KDE interface created by Matteo Agostinelli can be found at
+ http://wwwu.uni-klu.ac.at/magostin/cirkuit.html
+ A git repository of a newer version of cirkuit by Andrew G. for Linux is at
+ https://github.com/ag-ckt/cirkuit/tree/V0.5.0
+
+ The GUI front end PyCirkuit at https://github.com/orestesmas/pycirkuit
+ is Python-based and inspired by Cirkuit.
+
+ A wiki offering examples and tips is at
+ http://swwiki.e-dschungel.de/circuit_macros
+ It is in German but Google translate works well on the page.
+
+ Mac users:
+ 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/
+
+ For more examples in the context of a textbook, have a look at
+ Aplevich, J.D., "The Essentials of Linear State-Space Systems," New
+ York: John Wiley & Sons Inc., 2000. In Canada, look at Andrews,
+ G.C., Aplevich, J.D., Fraser, and R.A., MacGregor, C.G.,
+ "Introduction to Professional Engineering in Canada," (fifth edition)
+ Toronto: Pearson Education Canada, Inc., 2018. Some samples from these
+ books can be found at
+ http://ece.uwaterloo.ca/~aplevich/
+
+ For an example of the use of dpic in a wiki (thanks to Jason Grout), see
+ http://jasongrout.org/software/dokuwiki/format-plugin
+
+ A Windows batch file for Circuit_macros is found at
+ http://someonehasdonethis.blogspot.ca/2012/12/a-solution-for-drawing-circuit-diagrams.html
+
+ The examples in the current distribution include some flowchart elements
+ in Flow.m4. For a pic-only version that does not require m4, look at
+ http://web.ing.puc.cl/~mtorrest/downloads.htm#TeX
+
+ Pic dates from the 1980s and was first developed as a preprocessor for
+ the *roff family of Unix word processors. Some additional libraries such
+ as chem (for chemical structures) and dformat (for data structures) are
+ still viable.
+
+ Pic macros for drawing graphs are described at
+ http://www.math.uiuc.edu/~west/gpic.html
+ After minor adaptation to dpic syntax, many of them can be simplified.
+
+ A collection of pic resources and related material is available at
+ http://www.kohala.com/start/troff/troff.html In particular, W. Richard
+ Stevens illustrated his books on Unix and TCP/IP using pic macros. Some
+ of the sources found there need minor tuning to work under dpic.
+
+TikZ-PGF: Check the Makefile in the examples/pgf directory as described
+ in the README file, and type "make" or "make examples.pdf".
+
+MetaPost examples: Go to the examples/mpost directory. Check the
+ Makefile as described in the README file, type "make", and stand well back.
+
+Postscript with embedded psfrag strings:
+ Type "make" in the examples/psfrag directory to process examples
+ using dpic -f for creating .eps files with embedded psfrag strings.
+
+Postscript, CorelDraw, Adobe Illustrator:
+ Circuits and other diagrams not requiring LaTeX-formatted text can be
+ processed through m4 and dpic -r to produce encapsulated Postscript
+ output. This output can also be imported into CorelDraw or Adobe
+ Illustrator. However, Postscript is not a word processor, so any
+ LaTeX formatting instructions in the source are not obeyed. These programs
+ also import svg output produced by dpic -v.
+
+SVG output, Inkscape:
+ Dpic -v produces svg output. If the result is to be directly
+ inserted into html, then as for Postscript output, the diagram source
+ file has to be adapted to remove any LaTeX formatting. The configuration
+ file svg.m4 contains macros that can assist.
+
+ If SVG is the ultimate goal, then it may be advisable to use the tool
+ dvisvgm to convert dvi to svg. An alternative on some systems is to
+ produce pdf and then use pdf2svg, since the font selection and formatting
+ problems associated with direct production of svg are eliminated.
+
+ SVG is the native file format for the Inkscape graphics editor.
+ Therefore, elements defined by these macros can be output by dpic -v
+ in svg format for later manipulation by Inkscape. A basic palette
+ of circuit elements for importing into Inkscape is found in
+ examples/svg/paletteSVG.m4. In the svg subdirectory, type
+ "make paletteSVG.svg", read the resulting file into Inkscape, and then
+ ungroup the elements as desired. You would probably wish to add to or
+ customize these elements for extensive use.
+
+ Recent Inkscape versions can export graphics to eps or pdf format
+ and text to tex format, so that labels can be formatted by LaTeX and
+ overlaid on the graphics file. This process allows the use of Inkscape
+ to place and embellish circuit elements.
+
+Metafont:
+ The file examples/mf/cct.mf is a Metafont source for a few variants of
+ the basic elements, produced using the mfpic output of dpic. It may
+ be of interest to persons who cannot otherwise implement the macros.
+ To see the elements (assuming a typical installation), type "make"
+ in the mf directory.
+
+Xfig:
+ The file examples/xfig/xfiglib.fig contains circuit elements in xfig
+ 3.2 format produced by dpic. The file is a prototype because many
+ more elements could be included. Logic gates often have many labels,
+ and xfig is not a word processor, so some fine tuning of labels is in
+ order. Translation between languages always involves a loss of
+ information and idiom, but Xfig can store diagrams in pic format, so
+ it is possible to alternate between xfig and dpic.
+
+LIBRARIES:
+ The file libgen.m4 contains general-purpose macros and is read
+ automatically by other libraries. The file libcct.m4 defines basic
+ circuit elements. Binary logic-circuit elements are in liblog.m4.
+ Macros for drawing 3D projections are in lib3D.m4, and some macros
+ for drawing double-line arrows are in darrow.m4. The file dpictools.pic
+ contains pic macros and is read automatically by some of the examples.
+
+MODIFICATIONS:
+ 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
+ them and as others send comments. No such collection can hope to
+ include all possible circuit-related symbols, so you will probably
+ find yourself writing your own macros or adapting some of these. Be
+ careful to rename modified macros to avoid confusion. The learning
+ curve compares well to other packages, but there is no trivially easy
+ way to produce high-quality graphics.
+
+Feel free to contact me with comments or questions. I have retired
+from full-time work but continue the hobby of maintaining these files.
+I may now be able to spend more time on individual requests but I may
+not reply instantly to email.
+
+
+Dwight Aplevich
+aplevich (AT) uwaterloo (DOT) ca
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/README
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/darrow.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/darrow.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/darrow.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,304 @@
+divert(-1)
+ darrow.m4 Macros for double lines and arrows
+
+* Circuit_macros Version 9.0, copyright (c) 2019 J. D. Aplevich under *
+* the LaTeX Project Public License. The files of this distribution may *
+* be redistributed or modified provided that this copyright notice is *
+* included and provided that modifications are clearly marked to *
+* distinguish them from this distribution. There is no warranty *
+* whatsoever for these files. *
+
+
+`Notes: these macros have been reworked (Jan 2013) so that dlthick is the
+ total outside width, consistent with solid lines and arrows, and to add
+ the !- and -! half-linethick line caps to simplify butting to boxes.
+
+ Some of these macros have uncomfortably many arguments for specifying
+ options, so wrappers beginning with upper-case letters (Dline, Darrow, Darc)
+ are provided and implement key=val;key=val... option specifications.
+'
+
+=============================================================================
+define(`darrow_')
+ifdef(`libgen_',,`include(libgen.m4)divert(-1)')
+
+ Default width (thickness) of double lines
+define(`dlthick',`(0.08*scale+lthick)')
+#efine(`dlinewid',`dlthick') Obsolete, keep for a while for compatibility.
+
+ `ELement fill color (default white)
+ e.g. define(`dfillcolor',`1,0.84,0')
+ Obsolete:
+ command "\definecolor{gold}{rgb}{1,0.84,0}"
+ define(`dfillcolor',gold)'
+define(`dfillcolor',`1,1,1')
+
+define(`dfillgrey',1) `fill shade for gpic'
+define(`darcrad',`dlthick*2') `default darc radius'
+
+ `Default length:'
+ifdef(`elen_',,`define(`elen_',linewid*3/2)')
+=============================================================================
+
+ `deleminit_(linespec,len,dlinethick)
+ dline initialization'
+define(`deleminit_',`define(`m4dlthk',ifelse(`$3',,dlthick,`$3'))dnl
+ rpoint_(ifelse(`$1',,`to rvec_(ifelse(`$2',,linewid,`$2'),0)',`$1')) ')
+
+
+ `above, below, ljust, rjust but displaced
+ by dlthick/2 eg "string" dabove(at position)'
+define(`dabove',`above ifelse(`$1',,`at Here',`$1')+(0,dlthick/2)')
+define(`dbelow',`below ifelse(`$1',,`at Here',`$1')-(0,dlthick/2)')
+define(`dljust',`ljust ifelse(`$1',,`at Here',`$1')+(dlthick/2,0)')
+define(`drjust',`rjust ifelse(`$1',,`at Here',`$1')-(dlthick/2,0)')
+
+ `dline(linespec,start truncation,end truncation,dlthick, ends )
+ ends= blank, x-x, -x, x-, where x means ! or |'
+define(`dline',`deleminit_(`$1',,`$4')
+ M4DL: line from last line.start to last line.end \
+ chop ifelse(`$2',,0,m4dlthk/2) chop ifelse(`$3',,0,m4dlthk/2)
+ ifelse(rgbstring(1,1,1),"",,
+ `{line thick m4dlthk/(1bp__) from M4DL.start to M4DL.end }
+ {line thick m4dlthk/(1bp__)-2*linethick outlined rgbstring(dfillcolor) \
+ from M4DL.start \
+ ifinstr(`$5',|-,`+vec_(lthick,0)',`$5',!-,`+vec_(lthick/2,0)') \
+ to M4DL.end \
+ ifinstr(`$5',-|,`-vec_(lthick,0)',`$5',-!,`-vec_(lthick/2,0)') }')
+ ifgpic(`M4dV: vec_(0,m4dlthk/2-lthick/2); shade(dfillgrey,
+ {line from M4DL.start+(M4dV.x,M4dV.y) to M4DL.end+(M4dV.x,M4dV.y)}
+ {line from M4DL.start-(M4dV.x,M4dV.y) to M4DL.end-(M4dV.x,M4dV.y)})')
+ line invis from M4DL.start to M4DL.end')
+
+ `Dline(linespec,params)
+ params is a semicolon-separated list of items:
+ S truncate at start by dline thickness/2
+ E truncate at end by dline thickness/2
+ thick=val (total thicknes, ie width)
+ ends= x-x or -x or x- where x is ! or |
+ |- closed end with full-width line
+ !- closed end with half-width line
+ eg Dline(from A to B,E;ends=|-)'
+define(`Dline',
+ `setkey_(`$2',thick,dlthick)
+ setkey_(`$2',ends)pushdef(`m4ends',substr(m4ends,1,eval(len(m4ends)-2)))
+ dline(`$1',ifinstr(`$2',S,t),ifinstr(`$2',E,t),m4thick,m4ends)
+ popdef(`m4ends')popdef(`m4ends')popdef(`m4thick')
+ ')
+
+ `dleft(at position,dlthick) Turn left,
+ leaving current location at exit of corner'
+define(`dleft',`deleminit_(,ifelse(`$2',,dlthick,`$2'),`$2')
+ ifelse(`$1',,,`move to substr(`$1',eval(index(`$1',t)+1))-vec_(m4dlthk/2,0)')
+ { line thick m4dlthk/(1bp__) to rvec_(m4dlthk,0) }
+ ifelse(rgbstring(1,1,1),"",,
+ `line thick m4dlthk/(1bp__)-2*linethick outlined rgbstring(dfillcolor) \
+ to rvec_(m4dlthk/2,0) then to rvec_(m4dlthk/2,m4dlthk/2)')
+ ifgpic(`{line from rvec_(0,m4dlthk/2-lthick/2) to rvec_(0,m4dlthk/2-lthick/2)}
+ {line from rvec_(m4dlthk-lthick/2,m4dlthk/2) \
+ to rvec_(m4dlthk-lthick/2,-m4dlthk/2+lthick/2) then \
+ to rvec_(0,-m4dlthk/2+lthick/2)}
+ move to rvec_(m4dlthk/2,m4dlthk/2)')
+ rp_ang = rp_ang+pi__/2')
+ `dright(at position,dlthick) Turn right,
+ leaving current location at exit of corner'
+define(`dright',`deleminit_(,ifelse(`$2',,dlthick,`$2'),`$2')
+ ifelse(`$1',,,`move to substr(`$1',eval(index(`$1',t)+1))-vec_(m4dlthk/2,0)')
+ { line thick m4dlthk/(1bp__) to rvec_(m4dlthk,0) }
+ ifelse(rgbstring(1,1,1),"",,
+ `line thick m4dlthk/(1bp__)-2*linethick outlined rgbstring(dfillcolor) \
+ to rvec_(m4dlthk/2,0) then to rvec_(m4dlthk/2,-m4dlthk/2)')
+ ifgpic(`{line from rvec_(0,-m4dlthk/2+lthick/2) \
+ to rvec_(0,-m4dlthk/2+lthick/2)}
+ {line from rvec_(m4dlthk-lthick/2,-m4dlthk/2) \
+ to rvec_(m4dlthk-lthick/2,m4dlthk/2-lthick/2) then \
+ to rvec_(0,m4dlthk/2-lthick/2)}
+ move to rvec_(m4dlthk/2,-m4dlthk/2)')
+ rp_ang = rp_ang-pi__/2')
+
+ `dturn(arg,dlthick)
+ Turn arg relative degrees ccw'
+define(`dturn',`deleminit_(,ifelse(`$2',,dlthick,`$2'),`$2')
+[S: Here
+ deg = ifelse(`$1',,0,`$1')
+ c = cosd(deg); s = sind(deg); sgn = sign(deg); r = (dlthick-lthick)/2
+ A: S+vec_(lthick/2*abs(s),sgn*r)
+ B: A+vec_(vscal_(lthick/2*abs(s),c,s))
+ C: S+vec_(0, sgn*r)
+ if deg==0 then {t = 0} else { t = (1-c)/s } # t = tan(deg/2)
+ D: A+vec_(vscal_(r*2,sgn*t,-sgn))
+ E: B+vec_(vscal_(r*2,sgn*s,-sgn*c))
+ F: S+vec_(0,-sgn*r)
+ T: 0.5 between A and D
+ X: 0.5 between B and E
+ ifelse(rgbstring(1,1,1),"",,
+ `line thick r*2/(1bp__) outlined rgbstring(dfillcolor) \
+ from S to T then to X')
+ ifgpic(`m4tmpth = linethick; linethick=0
+ shade(dfillgrey,`line from C to A then to B; line from E to D then to F')
+ linethick = m4tmpth')
+ line from C to A then to B
+ line from E to D then to F
+#{"A" at A;"B" at B;"C" at C;"D" at D;"E" at E; "F" at F;"T" at T;"X" at X}
+ `$3'] with .S at Here
+ move to last [].X
+ ifelse(`$1',,,`Point_(`$1'+rp_ang*rtod_)') ')
+
+ `darrow(linespec, start truncation, end truncation, dlthick,
+ arrow wid, arrow ht, terminals)
+ terminals is blank or x-, ->, x->, <-, <-x, <-> where x is
+ ! for closed end with half-width line or
+ | for closed end with full-width line'
+define(`darrow',`deleminit_(`$1',,`$4')
+ ifelse(ifinstr(`$7',<->,,`$7',<-,T),T,
+ `define(`m4dx',`ifinstr(`$7',|,|,`$7',!,!)'->)dnl
+ M4DA: line invis from last line.end to last line.start \
+ chop ifelse(`$3',,0,m4dlthk/2) chop ifelse(`$2',,0,m4dlthk/2)
+ rp_ang = rp_ang+pi__',
+ `define(`m4dx',`$7')dnl
+ M4DA: line invis from last line.start to last line.end \
+ chop ifelse(`$2',,0,m4dlthk/2) chop ifelse(`$3',,0,m4dlthk/2)')
+ [ C: M4DA.c; S: M4DA.start; E: M4DA.end
+ w = ifelse(`$5',,m4dlthk*3/2,`$5')
+ h = ifelse(`$6',,m4dlthk,`$6')
+ d = sqrt((w/2)^2+h^2)
+ p = d/w*lthick
+ V: vec_(0,m4dlthk/2-lthick/2)
+ T: vec_(h-lthick/2,0)
+ P: vec_(p,0)
+ Vt: vec_(0,w/2/h * (h-lthick/2-p))
+ W: vec_(lthick/2,0)
+ X: ifinstr(`$7',<->,C,m4dx,!,S,m4dx,|,S+(W.x,W.y),S)
+ ifgpic(`shade(dfillgrey,') line dnl
+ ifelse(rgbstring(1,1,1),"",,`shaded rgbstring(dfillcolor)') from dnl
+ ifinstr(m4dx,|,`X to X+(V.x,V.y) then',`X+(V.x,V.y)') to \
+ E-(T.x,T.y)+(V.x,V.y) then to E-(T.x,T.y)+(Vt.x,Vt.y) \
+ then to E-(P.x,P.y) \
+ then to E-(T.x,T.y)-(Vt.x,Vt.y) then to E-(T.x,T.y)-(V.x,V.y) \
+ then to dnl
+ ifinstr(m4dx,<-,
+ `S+(T.x,T.y)-(V.x,V.y) then to S+(T.x,T.y)-(Vt.x,Vt.y) \
+ then to S+(P.x,P.y) \
+ then to S+(T.x,T.y)+(Vt.x,Vt.y) then to S+(T.x,T.y)+(V.x,V.y) \
+ then to X+(V.x,V.y)',
+ m4dx,|,
+ `X-(V.x,V.y) then to X',
+ m4dx,!,
+ `S-(V.x,V.y); line thick linethick/2 from S+(W.x/2,W.y/2)-(V.x,V.y) \
+ to S+(W.x/2,W.y/2)+(V.x,V.y)
+ line from S+(V.x,V.y) to X+(V.x,V.y)',
+ `X-(V.x,V.y)') ifgpic(`)')
+ ] with .C at M4DA.c
+ ifelse(ifinstr(`$7',<->,,`$7',<-,T),T,
+ `rp_ang = rp_ang-pi__
+ arrow invis from M4DA.end to M4DA.start',
+ `arrow invis from M4DA.start to M4DA.end')
+')
+
+ `Darrow(linespec,params)
+ params is a semicolon-separated list of items:
+ S truncate at start by dline thickness/2
+ E truncate at end by dline thickness/2
+ thick=val (total thicknes, ie width)
+ wid=val (arrowhead width)
+ ht=val (arrowhead height)
+ ends= -> or x-> or <- or <-x or <-> where x is | or !
+ |- closed end with full-width line
+ !- closed end with half-width line
+ eg Darrow(from A to B,E;ends=<-|)'
+define(`Darrow',
+ `setkey_(`$2',thick,dlthick)
+ setkey_(`$2',wid,dlthick*3/2)
+ setkey_(`$2',ht,dlthick)
+ setkey_(`$2',ends)pushdef(`m4ends',substr(m4ends,1,eval(len(m4ends)-2)))
+ darrow(`$1',ifinstr(`$2',S,t),ifinstr(`$2',E,t),m4thick,m4wid,m4ht,m4ends)
+popdef(`m4ends')popdef(`m4ends')popdef(`m4ht')popdef(`m4wid')popdef(`m4thick')')
+
+ `dtee([L|R],dlthick) Construct tee with tail right,
+ left, or back along current direction, leaving
+ current location at tee centre; eg
+ dline(right_,,t); dtee(R);
+ { darrow(down_,t) }; darrow(right_,t)'
+define(`dtee',`deleminit_(,ifelse(`$2',,dlthick,`$2'),`$2')
+ move to last line.c
+ ifelse(`$1',L,`rp_ang = rp_ang-pi_/2',`$1',R,`rp_ang = rp_ang+pi_/2')
+ ifelse(rgbstring(1,1,1),"",,
+ `{line thick dlthick/(1bp__) from rvec_(-m4dlthk/2,0) to rvec_(m4dlthk/2,0)}
+ {line thick dlthick/(1bp__)-2*linethick outlined rgbstring(dfillcolor) \
+ to rvec_(-m4dlthk/2,0) }
+ {line thick dlthick/(1bp__)-2*linethick outlined rgbstring(dfillcolor) \
+ from rvec_(0,-m4dlthk/2) to rvec_(0,m4dlthk/2) } ')
+ ifgpic(`m4tmpth = linethick; linethick=0; shade(dfillgrey,
+ {line from rvec_(-m4dlthk/2, m4dlthk/2) to rvec_( m4dlthk/2, m4dlthk/2)}
+ {line from rvec_( m4dlthk/2,-m4dlthk/2) to rvec_(-m4dlthk/2,-m4dlthk/2)})
+ linethick = m4tmpth') ')
+
+ Close off line end: `dend([at position])'
+define(`dend',`deleminit_(,lthick)
+ ifelse(`$1',,,`move to substr(`$1',eval(index(`$1',at)+2))')
+ {line from rvec_(0,-dlthick/2) to rvec_(0,dlthick/2)}
+ move to rvec_(lthick/2,0) ')
+
+ `darc(center pos, radius, start radians, end radians, dlthick,
+ arrow wid, arrow ht, symbols ) draw CCW arc
+ symbols= x-, -x, x-x, ->, x->, <-, <-x, <->
+ where x is | or ! ; arrowheads for dpic only '
+define(`darc',`[ C: (0,0)
+ dlth=ifelse(`$5',,dlthick,`$5')
+ w = ifelse(`$6',,dlth*1.75,(`$6'))
+ h = ifelse(`$7',,dlth,(`$7'))
+ r = ifelse(`$2',,darcrad,`($2)')
+ p = sqrt((w/2)^2+h^2)/(w/2)*lthick
+ as = ifelse(`$3',,rp_ang-pi__/2,`$3')
+ tas = as ifinstr(`$8',<-,`+ p/r')
+ ae = ifelse(`$4',,as+pi__/2,`$4')
+ tae = ae ifinstr(`$8',<-,`- p/r')
+ S: (rect_(r,as)); TS: (rect_(r,tas))
+ E: (rect_(r,ae)); TE: (rect_(r,tae))
+ arc thick dlth/(1bp__) wid w ht h dnl
+ ifinstr(`$8',<-,<-`'ifinstr(`$8',->,>),`$8',->,->) from S to E with .c at C
+ ifelse(rgbstring(1,1,1),"",,
+ `arc thick dlth/(1bp__)-linethick*2 wid (h-p-lthick)/h*w ht h-p-lthick \
+ colored rgbstring(dfillcolor) \
+ ifinstr(`$8',<-,<-`'ifinstr(`$8',->,>),`$8',->,->) \
+ from TS to TE rad r with .c at C')
+ ifinstr(`$8',|-,`X: (vscal_(lthick/2,-sin(as),cos(as)))
+ line from C+(rect_(r+dlthick/2-lthick/2,as))+(X.x,X.y) to \
+ C+(rect_(r-dlthick/2+lthick/2,as))+(X.x,X.y)',
+ `$8',!-,`X: (vscal_(lthick/4,-sin(as),cos(as)))
+ line thick linethick/2 \
+ from C+(rect_(r+dlthick/2-lthick/4,as))+(X.x,X.y) to \
+ C+(rect_(r-dlthick/2+lthick/4,as))+(X.x,X.y)')
+ ifinstr(`$8',-|,`X: (vscal_(lthick/2,-sin(ae),cos(ae)))
+ line from C+(rect_(r+dlthick/2-lthick/2,ae))-(X.x,X.y) to \
+ C+(rect_(r-dlthick/2+lthick/2,ae))-(X.x,X.y)',
+ `$8',!-,`X: (vscal_(lthick/4,-sin(ae),cos(ae)))
+ line thick linethick/2 \
+ from C+(rect_(r+dlthick/2-lthick/4,ae))-(X.x,X.y) to \
+ C+(rect_(r-dlthick/2+lthick/4,ae))-(X.x,X.y)')
+# { "S" at S; "E" at E; "C" at C; "TS" at TS; "TE" at TE }
+ rp_ang := ae+pi__/2
+ ] with ifelse(`$1',,.S at Here,.C at `$1')
+ move to last [].E
+ ')
+
+ `Darc(center pos, radius, start radians, end radians, params)
+ draw CCW arc
+ params is a semicolon-separated list of items:
+ thick=val (total thicknes, ie width)
+ wid=val (arrowhead width)
+ ht=val (arrowhead height)
+ ends= x-, -x, x-x, ->, x->, <-, <-x, <-> where x is ! or |
+ < and > work for dpic only
+ |- closed end with full-width line
+ !- closed end with half-width line
+ eg Darc(C,r,ang1,ang2,ends=<-|)'
+define(`Darc',
+ `setkey_(`$5',thick,dlthick)
+ setkey_(`$5',wid,dlthick*1.75)
+ setkey_(`$5',ht,dlthick)
+ setkey_(`$5',ends)pushdef(`m4ends',substr(m4ends,1,eval(len(m4ends)-2)))
+ darc(`$1',`$2',`$3',`$4',m4thick,m4wid,m4ht,m4ends)
+popdef(`m4ends')popdef(`m4ends')popdef(`m4ht')popdef(`m4wid')popdef(`m4thick')')
+
+divert(0)dnl
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/darrow.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/AmpTable.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/AmpTable.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/AmpTable.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,22 @@
+.PS
+# `Amptable.m4'
+cct_init
+movewid = 2pt__
+{
+ {amp ; move ; "{\tt `amp'}" ljust}
+ move down 0.4; right_
+ {amp(,0.3) ; move ; "{\tt `amp'(,0.3)}" ljust}
+ }
+ move right_ 2.0
+{ {delay ; move ; "{\tt `delay'}" ljust}
+ move down 0.4; right_
+ {delay(,0.2) ; move ; "{\tt `delay'(,0.2)}" ljust}
+ }
+
+ move right_ 2.0
+{ {integrator ; move ; "{\tt `integrator'}" ljust}
+ move down 0.5; right_
+ {integrator(,0.3) ; move ; "{\tt `integrator'(,0.3)}" wid 82pt__ ljust}
+ }
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/AmpTable.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/Antennas.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Antennas.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Antennas.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,40 @@
+.PS
+# `Antennas.m4'
+cct_init
+s_init(Antennas)
+sinclude(Circuit_macros.dim)
+
+ define(`elen_',elen_*0.9)
+ B: Here
+ A: antenna
+ s_box(T) below at A.T
+ s_box(`\tt an`'tenna') at A.n above
+ A: antenna(at A.T+(elen_,0),T)
+ s_box(T) below at A.T
+ s_box(`\tt (,T)') at A.n above
+ A: antenna(at A.T+(elen_,0),,L)
+ s_box(T1) below rjust at A.T1
+ s_box(T2) below ljust at A.T2
+ s_box(`\tt (,{,}L)') at A.n above
+ A: antenna(at A.T+(elen_,0),T,L)
+ s_box(T1) below rjust at A.T1
+ s_box(T2) below ljust at A.T2
+ s_box(`\tt (,T,L)') at A.n above
+ A: antenna(at A.T+(elen_,0),,T)
+ s_box(T) below at A.T
+ s_box(`\tt (,{,}T)') at A.n above
+ A: antenna(at A.T+(elen_,0),,S)
+ s_box(T1) below rjust at A.T1
+ s_box(T2) below ljust at A.T2
+ s_box(`\tt (,{,}S)') at A.n above
+ A: antenna(at A.T+(elen_,0),,D)
+ s_box(T1) below rjust at A.T1
+ s_box(T2) below ljust at A.T2
+ s_box(`\tt (,{,}D)') at A.n above
+ A: antenna(at A.T+(elen_,0),,P)
+ s_box(T) below at A.T
+ s_box(`\tt (,{,}P)') at A.n above
+ A: antenna(at A.T+(elen_,0),,F)
+ s_box(T) below at A.T
+ s_box(`\tt (,{,}F)') at A.n above
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Antennas.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/Audio.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Audio.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Audio.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,94 @@
+.PS
+# `Audio.m4'
+cct_init
+
+define(`In123',`
+thinlines_
+ arrow <- from `$1'.In1 up 0.05 left 0.15
+ "{\sl In1}sp_" rjust above
+ arrow <- left 0.15 from `$1'.In2
+ "{\sl In2}sp_" wid 0.2 rjust
+ arrow <- from `$1'.In3 down 0.05 left 0.15
+ "{\sl In3}sp_" rjust below
+thicklines_ ')
+
+L:[
+ [
+ S: speaker
+ `"\tt speaker"' at S.s+(0,-0.2) #below
+ In123(S)
+ thinlines_
+ arrow <- from S.In4 left 0.05 up 0.15
+ "{\sl In4}" above rjust
+ arrow <- from S.In5 right 0.05 up 0.15
+ "{\sl In5}" above
+ arrow <- from S.In6 left 0.05 down 0.15
+ "{\sl In6}" below rjust
+ arrow <- from S.In7 right 0.05 down 0.15
+ "{\sl In7}" below
+ spline <- from S.Box.e+(0,0.05) right 0.27 up 0.10 \
+ then right 0.1 up 0.2
+ "\sl Box" above
+ thicklines_
+ ]
+[
+ H: speaker(,,H)
+ `"\tt speaker(,{,}H)"' at H.s+(0,-0.30) #below
+ ] with .sw at last [].se+(0.25,-0.1)
+ ]
+[
+ B: bell
+ `"\tt bell"' at B.s+(0,-0.2) #below
+ In123(B)
+ thinlines_
+ arrow <- from B.Box.n+(-0.1,0) up 0.15 left 0.1 ; "\sl Box" above
+ arrow <- from B.Circle.n up 0.15 ; "\sl Circle" above
+ thicklines_
+ ] with .w at last [].e+(0.0,0.5)
+[
+ M: microphone
+ `"\tt microphone"' at M.s+(0,-0.2) #below
+ In123(M)
+ thinlines_
+ arrow <- from M.Circle.n up 0.15 ; "\sl Circle" above
+ thicklines_
+ ] with .sw at last [].se+(0.4,0)
+[
+ Z: buzzer
+ `"\tt buzzer"' at Z.s+(0,-0.2) #below
+ In123(Z)
+ thinlines_
+ arrow <- from Z.Box.n up 0.15 ; "\sl Box" above
+ thicklines_
+ ] with .sw at last [].se+(0.4,0)
+R:[
+ Z: buzzer(,,C)
+ `"\tt buzzer(,{,}C)"' at Z.s+(0,-0.2) #below
+ In123(Z)
+ thinlines_
+ spline <- from 0.8<Z.Face.s,Z.Face.n> right 2*arrowht up 0.5*arrowht \
+ then up 0.15 right 0.05
+ "\sl Face" above
+ thicklines_
+ ] with .sw at last [].se+(0.4,0)
+[[
+ E: earphone
+ `"\tt earphone"' at E.s+(0,-0.2) #below
+ In123(E)
+ thinlines_
+ arrow <- from E.Box.n up 0.15 left 0.15 ; "\sl Box" above
+ thicklines_
+ ]
+ [
+ E: earphone(,,C)
+ `"\tt earphone(,{,}C)"' at E.s+(0,-0.2) #below
+ thinlines_
+ arrow <- from E.L up 0.15 left 0.15; "\sl L" rjust
+ arrow <- from E.R up 0.15 right 0.15; "\sl R" ljust
+ "\sl N" at E.N above
+ "\sl C" at E.C
+ thicklines_
+ ] with .sw at last [].se+(0.6,0)
+] with .n at (0.6 between L and R, R.s)+(0,0.1-ifdpic(0.2,0.25))
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Audio.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/Axes.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Axes.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Axes.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,5 @@
+.PS
+# `Axes.m4'
+ arrow right 0.7 "`$x$-axis'" below
+ arrow up 0.7 from 1st arrow.start "`\rput[B]{90}(0,0){$y$-axis}'" rjust
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Axes.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/BigResistor.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/BigResistor.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/BigResistor.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,20 @@
+.PS
+ cct_init
+ linewid = 2.0
+ linethick_(2.0)
+
+R1: resistor
+
+ thinlines_
+ box dotted wid last [].wid ht last [].ht at last []
+
+ move to 0.85 between last [].sw and last [].se
+ spline <- down arrowht*2 right arrowht/2 then right 0.15; "\tt last []" ljust
+
+ arrow <- down 0.3 from R1.start chop 0.05; "\tt R1.start" below
+ arrow <- down 0.3 from R1.end chop 0.05; "\tt R1.end" below
+ arrow <- down last [].c.y-last arrow.end.y from R1.c; "\tt R1.centre" below
+
+ dimension_(from R1.start to R1.end,0.45,\tt elen\_,0.4)
+ dimension_(right_ dimen_ from R1.c-(dimen_/2,0),0.3,\tt dimen\_,0.5)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/BigResistor.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/Bip.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Bip.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Bip.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,60 @@
+.PS
+# `Bip.m4'
+cct_init
+
+ up_
+Q1: bi_tr(up_ dimen_)
+ thinlines_
+ showbox_(,dotted)
+ thicklines_
+ "\hbox{\sl E}" at Q1.E-(0,0.05) below
+ "\hbox{\sl B}sp_" at Q1.B rjust
+ "\hbox{\sl C}" at Q1.C above
+ "`{\tt bi\_tr(up\_ dimen\_)}'" wid 1.2 at Q1.s + (0,-0.35) below
+
+Q2: bi_tr(,R) with .E at Q1.E+(0.25,0)
+ thinlines_
+ showbox_(,dotted)
+ thicklines_
+ "\hbox{\sl E}" at Q2.E-(0,0.05) below
+ "sp_\hbox{\sl B}" at Q2.B ljust
+ "\hbox{\sl C}" at Q2.C above
+ "`{\tt bi\_tr(,R)}'" at Q2.s + (0,-0.2) below
+
+Q3: bi_tr(,,P) with .C at Q2.C+(1.15,0)
+ thinlines_
+ showbox_(,dotted)
+ thicklines_
+ "\hbox{\sl E}" at Q3.E-(0,0.05) below
+ "\hbox{\sl B}sp_" at Q3.B rjust
+ "\hbox{\sl C}" at Q3.C above
+ "`{\tt bi\_tr(,{,}P)}'" at Q3.s + (0,-0.35) below
+
+Q4: bi_tr(,,,E) with .C at Q3.C+(0.9,0)
+ thinlines_
+ showbox_(,dotted)
+ thicklines_
+ "\hbox{\sl E}" at Q4.E-(0,0.05) below
+ "\hbox{\sl B}sp_" at Q4.B rjust
+ "\hbox{\sl C}" at Q4.C above
+ "`{\tt bi\_tr(,{,},E)}'" at (Q4.s,Q4.E) + (0,-0.2) below
+
+Q5: igbt(,,) with .E at Q4.E+(0.65,0)
+ thinlines_
+ showbox_(,dotted)
+ thicklines_
+ "\hbox{\sl E}" at Q5.E-(0,0.05) below
+ "\hbox{\sl G}sp_" at Q5.G rjust
+ "\hbox{\sl C}" at Q5.C above
+ "`{\tt igbt}'" at Q5.s + (0,-0.35) below
+
+Q6: igbt(,,LD) with .E at Q5.E+(0.55,0)
+ thinlines_
+ showbox_(,dotted)
+ thicklines_
+ "\hbox{\sl E}" at Q6.E-(0,0.05) below
+ "\hbox{\sl G}sp_" at Q6.G rjust
+ "\hbox{\sl C}" at Q6.C above
+ "`{\tt igbt(,{,}LD)}'" at (Q6.s,Q6.E) + (0,-0.2) below
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Bip.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/Buffer.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Buffer.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Buffer.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,50 @@
+.PS
+# `Buffer.m4'
+log_init
+
+ bd = dimen_*3/4
+ esep = dimen_*3
+[
+ B1: BUFFER_gate(,,bd,bd)
+ thinlines_
+ { arrow <- left 0.2 up 0.2 from B1.In1; "\sl In1" wid 18bp__ rjust
+ move left 18bp__
+ `"\tt bd = dimen\_*3/4" ljust "\tt BUFFER\_gate(,{,}bd,bd)"' ljust \
+ at (last "".w,B1.s +(0,-25bp__))
+ arrow <- up 0.2 from B1.NE; "\sl NE" rjust
+ arrow <- up 0.15 right 0.15 from B1.Out; "\sl Out" above
+ arrow <- down 0.2 from B1.SE; "\sl SE" rjust
+ arrow <- right 0.3 down 0.2 from B1.C; "\sl C" ljust }
+ thicklines_
+ B2: BUFFER_gate(,N,bd,bd,NN) with .sw at B1.se+(esep,0)
+ thinlines_
+ { arrow <- left 0.2 up 0.2 from B2.In1; "\sl In1" rjust
+ arrow <- right 0.2 up 0.2 from B2.N_NE1 ; "\sl N\_NE1" ljust ht 11bp__
+ arrow <- right 0.15 up 0.15 from B2.N_NE2 ; "\sl N\_NE2" ljust
+ arrow <- down 0.15 right 0.15 from B2.Out; "\sl Out" ljust
+ `"\tt BUFFER\_gate(,N,bd,bd,NN)"' at B2.s+(0,-18bp__) }
+ thicklines_
+
+ B3: BUFFER_gen(ITNOC,bd,bd,PN,,N,LH_symbol at C) \
+ with .sw at last [].se+(esep,0)
+ { `"\tt BUFFER\_gen(ITNOC,bd,bd,PN,{,}N,"' ljust \
+ `"\tt $\;\;$LH\_symbol at C)"' ljust at B3.s+(-60bp__,-30bp__) }
+ thinlines_
+ { arrow <- left 0.2 up 0.2 from B3.In1; "\sl In1" rjust
+ arrow <- left 0.2 up 0.2 from B3.In2; "\sl In2" rjust
+ arrow <- up 0.15 right 0.15 from B3.Out; "\sl Out" above
+ arrow <- down 0.2 from B3.N_SE1; "\sl N\_SE1" rjust
+ arrow <- right 0.3 down 0.2 from B3.C; "\sl C" ljust }
+ thicklines_
+]
+
+ B4: BUFFER_gate(right_ elen_ from last [].sw+(0,-0.35),,bd,bd)
+ { `"\tt BUFFER\_gate(right\_ elen\_,{,}bd,bd)"' ljust at B4.end }
+ move to B4.start+(0,-dimen_)
+ B6: BUFFER_gate(right_ elen_,N,bd,bd,,N,LH_symbol(I) at C)
+ line down dimen_/4 from last [].N_SE1.s then left dimen_*2/3
+ {`"\tt BUFFER\_gate(right\_ elen\_,N,bd,bd,{,}N,LH\_symbol(I) at C)"' ljust \
+ `"\tt line down dimen\_/3 from last [].N\_SE1.s then left dimen\_*2/3"' \
+ ljust at B6.end }
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Buffer.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/Capture.JPG
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Capture.JPG
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Capture.JPG 2019-09-05 22:25:35 UTC (rev 52034)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Capture.JPG 2019-09-05 22:33:48 UTC (rev 52035)
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Capture.JPG
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/octet-stream
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CctTable.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CctTable.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CctTable.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,90 @@
+.PS
+# `CctTable.m4'
+cct_init
+divert(-1)
+
+divert(0)dnl
+
+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}
+}
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/CctTable.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/Circuit_macros.bib
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.bib (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.bib 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,155 @@
+
+ at misc{Aplevich2011,
+author={Aplevich, J. D.},
+title={Drawing with dpic},
+note={In the dpic source distribution.},
+year={2015}}
+
+ at book{Bentley88,
+author={Bentley, J.},
+title={More Programming Pearls},
+address={Reading, Massachusetts},
+publisher={Addison-Wesley},
+year={1988}}
+
+ at misc{Bentley2010,
+author={Bentley, J. and Yepez, A.},
+title={Little Languages},
+publisher={Mississippi State University},
+note={\url{www.cse.msstate.edu/~niu/courses/CSE8990/slides/Alejandra-0210.pdf}},
+year={2010}}
+
+ at misc{Clark99,
+author={Clark, A. R.},
+title={Using Circuit Macros},
+note={Courtesy of Alan Robert Clark at
+ \url{http://ytdp.ee.wits.ac.za/cct.html}},
+year={1999}}
+
+ at article{Girou94,
+author={Girou, D.},
+title={Pr\'esentation de {PST}ricks},
+journal={Cahiers {GUT}enberg},
+volume={16},
+note={%
+ \url{http://cahiers.gutenberg.eu.org/cg-bin/article/CG_1994___16_21_0.pdf}},
+year={1994}}
+
+ at book{Goossens97,
+author={Goossens, M. and Rahtz, S. and Mittelbach, F.},
+title={The \LaTeX Graphics Companion},
+address={Reading, Massachusetts},
+publisher={Addison-Wesley},
+year={1997}}
+
+ at misc{IEEEstd,
+author={IEEE},
+title={Graphic Symbols for Electrical and Electronic Diagrams},
+note={Std 315-1975, 315A-1986, reaffirmed 1993.},
+institution={IEEE},
+year={1975}}
+
+ at misc{Johnstone92,
+author={Johnstone, A.},
+title={Electronic symbols for \protect{\LaTeX}\ picture mode},
+institution={Royal Holloway, University of London},
+note={Email:{\tt adrean at cs.rhbnc.ac.uk}},
+year={1992}}
+
+ at misc{KDEApps2009,
+author={KDE-Apps.org},
+title={Cirkuit},
+note={KDE application:
+ \url{http://kde-apps.org/content/show.php/Cirkuit?content=107098}
+ and later version at
+ \url{https://github.com/ag-ckt/cirkuit/tree/V0.5.0}},
+year={2009}}
+
+ at techreport{KRm4,
+author={Kernighan, B. W. and Richie, D. M.},
+title={The {M4} Macro Processor},
+institution={Bell Laboratories},
+year={1977}}
+
+ at techreport{KRpic,
+author={Kernighan, B. W.},
+title={{PIC}---{A} Graphics Language for Typesetting, User Manual},
+institution={AT\&T Bell Laboratories},
+series={Computing Science Technical Report},
+number={116},
+note={\url{http://doc.cat-v.org/unix/v10/10thEdMan/pic.pdf}},
+year={1991}}
+
+ at book{Landauer95,
+author={Landauer, Thomas K.},
+title={The Trouble with Computers},
+address={Cambridge},
+publisher={MIT Press},
+year={1995}}
+
+ at misc{Raymond95,
+author={Raymond, E. S.},
+title={Making Pictures With {GNU} {PIC}},
+note={In {GNU} groff source distribution, also in the dpic package and
+at \url{http://www.kohala.com/start/troff/gpic.raymond.ps}},
+year={1995}}
+
+ at book{Sedra97,
+author={Sedra, A. S. and Smith, K. C.},
+title={Microelectronic Circuits},
+address={Oxford},
+publisher={Oxford University Press},
+year={1997}}
+
+ at misc{Seindal94,
+author={Seindal {\sl et al}, R.},
+title={{GNU} m4},
+note={\url{http://www.gnu.org/software/m4/manual/m4.html}},
+institution={GNU},
+year={1994}}
+
+ at misc{Verwer92,
+author={Verwer, N.},
+title={Readme for {L}oggates},
+institution={Utrecht, Dept. of Computer Science},
+note={Email:{\tt nico at cs.ruu.nl}},
+year={1992}}
+
+ at techreport{dvips,
+author={Rokicki, T.},
+title={{DVIPS:} {A} {\TeX\ } Driver},
+institution={Stanford},
+year={1994}}
+
+ at misc{gpic,
+author={Lemberg, W.},
+institution={The Free Software Foundation},
+title={Gpic man page},
+note={\url{http://www.manpagez.com/man/1/groff/}},
+year={2005}}
+
+ at misc{metapost,
+author={Hobby, J. D.},
+title={A User's Manual for {M}eta{P}ost},
+institution={Bell Laboratories},
+year={1990}}
+
+ at misc{mfpic,
+author={Leathrum, T. and Tobin, G.},
+title={Pictures in {\TeX\ }with Metafont},
+note={Mfpic manual},
+year={1996}}
+
+ at misc{pstricks,
+author={Van Zandt, T.},
+title={{PST}ricks: Postscript Macros for Generic TeX},
+institution={CTAN.org},
+note={\url{http://mirrors.ctan.org/graphics/pstricks/base/doc/pst-user.pdf}},
+year={2007}}
+
+ at misc{tikz,
+author={Tantau, T.},
+title={TiKz \& PGF},
+institution={CTAN.org},
+note={\url{http://mirrors.ctan.org/graphics/pgf/base/doc/pgfmanual.pdf}},
+year={2013}}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.bib
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.pdf
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.pdf
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.pdf 2019-09-05 22:25:35 UTC (rev 52034)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.pdf 2019-09-05 22:33:48 UTC (rev 52035)
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.pdf
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/pdf
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,88 @@
+% Circuit_macros.tex
+\documentclass{article}
+\usepackage{verbatim,url}
+\usepackage{amssymb}
+\usepackage[amssymb,Gray,thinqspace,textstyle]{SIunits}
+\usepackage{boxdims}
+\usepackage{multicol}
+\usepackage{xspace}
+\input mode
+\usepackage{ifpdf}
+\usepackage{bookmark}
+\usepackage{pdfcomment}
+% The followowing seems to cure the problem of missing underscores:
+\usepackage[T1]{fontenc}
+\usepackage{lmodern}
+%\usepackage{textcomp}
+%\usepackage{microtype}
+%\DisableLigatures{encoding=T1,family=tt*}
+%
+\addtolength{\textwidth}{3cm}
+\addtolength{\hoffset}{-1.5cm}
+\addtolength{\textheight}{4cm}
+\addtolength{\voffset}{-1in}
+\setcounter{topnumber}{3}
+
+% Exdented captions
+\makeatletter
+\long\def\@makecaption#1#2{%
+ \vskip\abovecaptionskip
+ \sbox\@tempboxa{\hskip-3em{\bf #1:} #2}%
+ \ifdim \wd\@tempboxa >\hsize
+ \hskip-3em{\bf #1:} #2\par
+ \else
+ \global \@minipagefalse
+ \hb at xt@\hsize{\box\@tempboxa\hfil}%
+ \fi
+ \vskip\belowcaptionskip}
+
+%%\@startsection {NAME}{LEVEL}{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}
+%% optional * [ALTHEADING]{HEADING}
+
+\renewcommand\section{\@startsection {section}{1}{\z@}%
+ {-3.5ex \@plus -1ex \@minus -.2ex}%
+ {2.3ex \@plus.2ex}%
+ {\normalfont\Large\bfseries%
+\let\@@tmp\@svsec\def\@svsec{\llap{\@@tmp}}%
+}}
+\renewcommand\subsection{\@startsection{subsection}{2}{\z@}%
+ {-3.25ex\@plus -1ex \@minus -.2ex}%
+ {1.5ex \@plus .2ex}%
+ {\normalfont\large\bfseries%
+\let\@@tmp\@svsec\def\@svsec{\llap{\@@tmp}}%
+}}
+\renewcommand\subsubsection{\@startsection{subsubsection}{3}{\z@}%
+ {-3.25ex\@plus -1ex \@minus -.2ex}%
+ {1.5ex \@plus .2ex}%
+ {\normalfont\normalsize\bfseries%
+\let\@@tmp\@svsec\def\@svsec{\llap{\@@tmp}}%
+}}
+
+\makeatother
+
+\hypersetup{
+ pdflang=English,
+ unicode=true,
+ colorlinks=true,
+ linkcolor=purple,
+ citecolor=purple}
+
+\begin{document}
+\title{M4 Macros for Electric Circuit Diagrams in \LaTeX\ Documents}
+\author{Dwight Aplevich}
+\date{%
+\input Version
+\vspace*{-\baselineskip}
+}
+\maketitle
+
+\input body
+
+%\pdfbookmark[section]{\refname}{refs}
+\bibliographystyle{plain}
+\makeatletter
+\addcontentsline{toc}{section}{References\ \unhbox \voidb at x
+ \cleaders \hbox to.44em{\hss .\hss }\hfill \kern \z@ }
+\makeatother
+\bibliography{Circuit_macros}
+ \end{document}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Circuit_macros.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Composite.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Composite.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Composite.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,58 @@
+.PS
+# Composite.m4
+log_init
+
+divert(-1)
+
+divert(0)dnl
+
+ command "{\tt"
+[
+ K1: KelvinR
+ { "`KelvinR'" at last [].C +(0,-0.25)
+ "\sl T1" at K1.T1 above
+ "\sl T2" at K1.T2 above
+ arrow <- up 0.1 left 0.1 from last [].Start ; `"\sl Start"' above
+ arrow <- up 0.1 right 0.1 from last [].End ; `"\sl End"' above }
+ K2: KelvinR(,R) with .Start at K1.End+(0.25,0.1)
+ { "`KelvinR(,R)'" at last [].C +(0,-0.25)
+ "\sl T1" at K2.T1 rjust
+ "\sl T2" at K2.T2 ljust }
+]
+
+[
+ FTcap
+ { thinlines_
+ `"FTcap"' at last [].s +(0,-0.2)
+ arrow <- up 0.1 left 0.1 from last [].Start ; `"\sl Start"' above
+ arrow <- up 0.1 right 0.1 from last [].End ; `"\sl End"' above
+ arrow <- up 0.15 left 0.1 from last [].T1 ; `"\sl T1"' rjust
+ arrow <- right 0.1 from last [].T2 ; `"\sl T2"' ljust
+ thicklines_ }
+ FTcap(B) with .w at last [].e+(0.65,0)
+ { thinlines_
+ `"FTcap(B)"' at last [].s +(0,-0.2)
+ arrow <- up 0.1 left 0.1 from last [].Start ; `"\sl Start"' above
+ arrow <- up 0.1 right 0.1 from last [].End ; `"\sl End"' above
+ arrow <- up 0.15 left 0.1 from last [].T1 ; `"\sl T1"' rjust
+ arrow <- left 0.1 from last [].T2 ; `"\sl T2"' rjust
+ thicklines_ }
+ FTcap(C) with .w at last [].e+(0.65,0)
+ { thinlines_
+ `"FTcap(C)"' at last [].s +(0,-0.2)
+ arrow <- up 0.1 left 0.1 from last [].Start ; `"\sl Start"' above
+ arrow <- up 0.1 right 0.1 from last [].End ; `"\sl End"' above
+ arrow <- left 0.1 from last [].T ; `"\sl T"' rjust
+ thicklines_ }
+ FTcap(D) with .w at last [].e+(0.65,0)
+ { thinlines_
+ `"FTcap(D)"' at last [].s +(0,-0.2)
+ arrow <- up 0.1 left 0.1 from last [].Start ; `"\sl Start"' above
+ arrow <- up 0.1 right 0.1 from last [].End ; `"\sl End"' above
+ arrow <- left 0.1 from last [].T ; `"\sl T"' rjust
+ thicklines_ }
+
+] with .sw at last [].se+(0.1,0)
+
+ command "}"
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Composite.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/ConfigA.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ConfigA.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ConfigA.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,38 @@
+.PS
+# ConfigA.m4
+sinclude(Circuit_macros.dim)
+s_init(ConfigA)
+gen_init
+ "{\tt .pic}" above
+ arrow <-
+ M4: shadebox(box wid boxht "{\tt m4}")
+
+ arrow <-
+ Conf: shadebox(box wid boxwid*2 "Configuration file")
+ s_box(\tt pstricks.m4) at Conf.nw above ljust
+
+ arrow <- from Conf.e
+ Gen: shadebox(box wid boxwid*2.25)
+ s_box(\tt libgen.m4) at Gen.nw above ljust
+ s_box(\tt\small\shortstack[l]{%
+ $\;\cdots$ \\
+ ``define(\char96cct\_init\char39,...)'' \\
+ $\;\cdots$}) with .w at 0.05 between Gen.w and Gen.e
+
+ Src: shadebox(box ht Gen.ht wid Conf.wid with .nw at Conf.sw+(0,-0.25))
+ s_box(Diagram source {\tt quick.m4}) at Src.nw above ljust
+ s_box(\tt\small\shortstack[l]{%
+ .PS \\
+ cct\_init \\
+ $\;\cdots$}) with .w at 0.05 between Src.w and Src.e
+ arrow from Src.w left linewid/2 then up M4.y-Src.y-M4.ht/4 then left linewid/2
+
+ arrow <- right from Src.e
+ Cct: shadebox(box wid boxwid*2.25)
+ s_box(\tt libcct.m4) at Cct.nw above ljust
+ s_box(\tt\small\shortstack[l]{%
+ $\;\cdots$ \\
+ ``define(\char96resistor\char39,...)'' \\
+ $\;\cdots$}) with .w at 0.05 between Cct.w and Cct.e
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ConfigA.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/ConfigB.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ConfigB.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ConfigB.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,42 @@
+.PS
+# ConfigB.m4
+sinclude(Circuit_macros.dim)
+s_init(ConfigB)
+gen_init
+ aw = linewid/2
+ linewid = linewid*2/3
+ "{\tt .pic}" above
+ arrow <- right aw
+ M4: shadebox(box wid boxht "{\tt m4}")
+
+ arrow <- right aw
+ Src: shadebox(box wid boxwid*1.85)
+ s_box(Diagram source) at Src.nw above ljust
+ s_box(\tt\small\shortstack[l]{%
+ .PS \\
+ ``include(pstricks.m4)'' \\
+ cct\_init \\
+ $\;\cdots$}) with .w at 0.05 between Src.w and Src.e
+
+ arrow <- right aw from 0.35 between Src.ne and Src.se
+ Conf: shadebox(box wid boxwid*2 "Configuration file" with .nw at (Here,Src.n))
+ { s_box(\tt pstricks.m4) at Conf.nw above ljust }
+
+ arrow <- right aw from Conf.e
+ Gen: shadebox(box wid Conf.wid)
+ s_box(\tt libgen.m4) at Gen.nw above ljust
+ s_box(\tt\small\shortstack[l]{%
+ $\;\cdots$ \\
+ ``define(\char96cct\_init\char39,...)'' \\
+ $\;\cdots$}) with .w at 0.05 between Gen.w and Gen.e
+
+ Cct: shadebox(box wid Conf.wid with .nw at Conf.sw+(0,-0.25))
+ s_box(\tt libcct.m4) at Cct.nw above ljust
+ s_box(\tt\small\shortstack[l]{%
+ $\;\cdots$ \\
+ ``define(\char96resistor\char39,...)'' \\
+ $\;\cdots$}) with .w at 0.05 between Cct.w and Cct.e
+ dw =(Conf.w.x-Src.e.x)/2
+ arrow from Cct.w left dw then up Src.y-Cct.y-0.05 then left dw
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ConfigB.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/ConfigC.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ConfigC.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ConfigC.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,43 @@
+.PS
+# ConfigC.m4
+sinclude(Circuit_macros.dim)
+s_init(ConfigC)
+gen_init
+ aw = linewid/2
+ linewid = linewid*2/3
+ "{\tt .pic}" above
+ arrow <- right aw
+ M4: shadebox(box wid boxht "{\tt m4}")
+
+ arrow <- right aw
+ Src: shadebox(box wid boxwid*1.85)
+ s_box(Diagram source) at Src.nw above ljust
+ s_box(\tt\small\shortstack[l]{%
+ .PS \\
+ ``include(libgen.m4)'' \\
+ cct\_init \\
+ $\;\cdots$}) with .w at 0.05 between Src.w and Src.e
+
+ arrow <- right aw from 0.35 between Src.ne and Src.se
+ Gen: shadebox(box wid boxwid*2.25 with .nw at (Here,Src.n))
+ s_box(\tt libgen.m4) at Gen.nw above ljust
+ s_box(\tt\small\shortstack[l]{%
+ ``if..include(pstricks.m4)'' \\
+ $\;\cdots$ \\
+ ``define(\char96cct\_init\char39,...)'' \\
+ $\;\cdots$}) with .w at 0.05 between Gen.w and Gen.e
+ arrow <- right aw from Gen.e
+ Conf: shadebox(box wid boxwid*1.8 "Configuration file")
+ { s_box(\tt pstricks.m4) at Conf.nw above ljust }
+
+
+ Cct: shadebox(box wid Gen.wid with .nw at Gen.sw+(0,-0.25))
+ s_box(\tt libcct.m4) at Cct.nw above ljust
+ s_box(\tt\small\shortstack[l]{%
+ $\;\cdots$ \\
+ ``define(\char96resistor\char39,...)'' \\
+ $\;\cdots$}) with .w at 0.05 between Cct.w and Cct.e
+ dw =(Cct.w.x-Src.e.x)/2
+ arrow from Cct.w left dw then up Src.y-Cct.y-0.05 then left dw
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ConfigC.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/Conn.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Conn.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Conn.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,69 @@
+.PS
+# `Conn.m4'
+cct_init
+
+T:[
+ ifelse(ifmpost(T)`'ifpostscript(T),,`command "{\sf"')
+ S1: tstrip(U)
+ thinlines_
+ arrow <- left 0.15 from S1.L1; "L1" rjust
+ arrow <- left 0.15 from S1.L4; "L4" wid 0.2 rjust
+ "$\vdots$" at (0.5 between last "" and 2nd last "")+(-0.15,0.02)
+ arrow <- right 0.25 from S1.R1; "R1" ljust
+ arrow <- right 0.25 from S1.R4; "R4" ljust
+ "$\vdots$" at (0.5 between last "" and 2nd last "")+(0.15,0.02)
+ arrow <- right 0.15 up 0.10 from S1.T1; "T1" ljust
+ arrow <- right 0.15 up 0.10 from S1.T4; "T4" ht 11 pt__ ljust
+ "$\vdots$" at (0.5 between last "" and 2nd last "")+(0.15,0.02)
+ thicklines_
+ CS1: "`\tt tstrip(U)'" at S1.s+(0,-0.15)
+ S2: tstrip(R,5,DO;wid=1.0;ht=0.25) with .sw at S1.se+(0.7,0.15)
+ thinlines_
+ arrow <- up 0.2 right 0.1 from S2.T1; "T1" above
+ arrow <- up 0.2 right 0.1 from S2.T5; "T5" above
+ "$\cdots$" at 0.5 between last "" and 2nd last "" above
+ CS2: `"\tt tstrip(R,5,"' ht 0.1 ljust \
+ `"\tt $\;\;$DO;wid=1.0;ht=0.25)"' ljust at S2.sw+(-0.1,-0.2)
+ ifelse(ifmpost(T)`'ifpostscript(T),,`command "}"')
+]
+
+C: [
+ C1: ccoax
+ `"\tt ccoax\vphantom{(}"' ht 11 pt__ at C1.s below
+ thinlines_
+ arrow <- up 0.1 right 0.1 from C1.C.ne; "C" ljust
+ arrow <- down 0.05 right 0.1 from C1.S.e; "S" wid 0.1 ht 11pt__ ljust
+ thicklines_
+ C2: ccoax(at C1+(0,0.3),F)
+ `"\tt ccoax(,F)"' ht 11 pt__ wid 0.65 at C2.ne ljust
+ ] with .C1.sw at T.S2.se+(0.5,0.0)
+
+Y: [
+ tconn(,O)
+ {`"\tt tconn(,O)"' at last line.c+(0,-0.2) wid 43 pt__ }
+ move to Here+(0.3,0)
+ P1: tconn(,>)
+ {`"\tt (,>)"' at last line.c+(0,-0.2)}
+ move to P1.end+(0.3,0)
+ tconn(,>>)
+ {`"\tt (,>>)"' at last line.c+(0,-0.2)}
+ move to P1.start+(0,linewid)
+ P3: tconn(,<)
+ {`"\tt tconn(,<)"' at last line.c+(0,-0.2)}
+ move to P3.end+(0.3,0)
+ tconn(,<<)
+ {`"\tt (,<<)"' at last line.c+(0,-0.2)}
+
+] with .sw at (C.e.x-0.4,T.s.y)
+
+B: [
+ tbox(V_2)
+ `"\tt tbox(V\_2)"' at last [].sw below ljust
+ [ left_;
+ tbox(V_1,,,<>) ] with .nw at last [].sw+(0,-0.25)
+ `"\tt tbox(V\_1,{,},<>)"' at last [].sw below ljust
+# `"\tt left\_"' at last [].sw +(0,-0.2) ljust `"\tt tbox(V\_1)"' ljust
+] with .nw at Y.ne+(0.2,0)
+
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Conn.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/Corners.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Corners.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Corners.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,73 @@
+.PS
+# `Corners.m4'
+cct_init
+s_init(Corners)
+sinclude(Circuit_macros.dim)
+
+linethick = 4
+[
+ [ [ line up 0.2
+ line from Here+(0.2,0) left 0.2 ]
+ s_box(`\tt\shortstack[l]{line up 0.2\\ line right 0.2}') \
+ with .n at last [].s +(0,-0.1)
+ ]
+
+ [ [ line up 0.2 then right 0.2 ]
+ s_box(`\tt\shortstack[l]{line up 0.2 \bsl\\ \enskip then right 0.2}') \
+ with .n at last [].s +(0,-0.1)
+ ] with .nw at last [].ne+(0.25,0)
+
+ [ [ line up 0.2
+ line right 0.2 chop -hlth chop 0 ]
+ s_box(`\tt\shortstack[l]{%
+ line up 0.2\\ line right 0.2 \bsl\\ \enskip chop `-hlth' chop 0}') \
+ with .n at last [].s +(0,-0.1)
+ ] with .nw at last [].ne+(0.25,0)
+
+ [ [ line up 0.2
+ round
+ line right 0.2 ]
+ s_box(`\tt\shortstack[l]{%
+ line up 0.2\\`\smash{round}\vphantom{r}'\\ line right 0.2}') \
+ with .n at last [].s +(0,-0.1)
+ ] with .nw at last [].ne+(0.25,0)
+ ]
+
+[
+ [ [ line up 0.15 left 0.15
+ corner
+ line up 0.1 right 0.1 ]
+ s_box(`\tt\shortstack[l]{%
+ line up 0.15 left 0.15\\`corner'\\ line up 0.1 right 0.1}') \
+ with .n at last [].s +(0,-0.1)
+ ]
+
+ [ [ A: Here
+ corner(,at A)
+ s_box(`\sl A') at A below ]
+ s_box(`\tt c`'orner(,at A)') with .n at last [].s +(0,-0.1)
+ ] with .nw at last [].ne+(0.2,0)
+
+ [ [ L: line right 0.2 down 0.3 outlined "lightgray"
+ M: line up 0.2 right 0.1 outlined "lightgray"
+ s_box(\sl L) at L.c+(-0.1,-0.05)
+ s_box(\sl M) at M.c+( 0.13,0)
+ Mitre_(L,M,5 bp__) ]
+ s_box(`\tt Mitre\_(L,M,5 bp\_\_)') with .n at last [].s +(0,-0.1)
+ ] with .nw at last [].ne+(0.2,0)
+
+ [ [ A: (0,0)
+ B: (0.3,0.2)
+ C: (0.5,0.1)
+ line outlined "lightgray" from A to B
+ line outlined "lightgray" from C to B
+ s_box(\sl A) at A rjust
+ s_box(\sl B) at B+(0,2pt__) above
+ s_box(\sl C) at C ljust
+ mitre_(A,B,C) ]
+ s_box(\tt mitre\_(A,B,C)) with .n at last [].s +(0,-0.1)
+ ] with .nw at last [].ne+(0.2,0)
+
+ ] with .nw at last [].sw+(0,-0.1)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Corners.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/Dac.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Dac.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Dac.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,69 @@
+.PS
+# Dac.m4
+cct_init
+s_init(Dacx)
+
+ ar = 0.15
+
+Q: dac
+thinlines_
+ arrow <- left ar from last [].In1; { move left 0.15 }
+ "In1" above rjust at Here+(0.1,0)
+ "\sl NW" at Q.NW above rjust
+ "\sl SW" at Q.SW below rjust
+ "\sl SE" at Q.SE below ljust
+ "\sl NE" at Q.NE above ljust
+ arrow <- up ar from Q.N1; "\sl N1" above
+ arrow <- down ar from Q.S1; "\sl S1" below
+ arrow <- right ar from Q.Out1; "\sl Out1" above ljust at Here-(0.1,0)
+ arrow <- right ar down ar/2 from Q.C; "\sl C" ljust
+ s_box(`\tt d`'ac') at Q.s+(0,-0.3) below
+thicklines_
+
+Q:dac(,,2,2,3,3) with .w at last [].e+(0.9,0)
+thinlines_
+ "DAC" at Q.C
+ arrow <- left ar from Q.In1; "\sl In1" rjust
+ arrow <- left ar from Q.In2; "\sl In2" rjust
+ arrow <- up ar from Q.N1; "\sl N1" above rjust
+ arrow <- up ar from Q.N2; "\sl N2" above ljust
+ arrow <- right ar from Q.Out1; "\sl Out1" ljust
+ arrow <- right ar from Q.Out2; "\sl Out2" ljust
+ arrow <- right ar from Q.Out3; "\sl Out3" ljust
+ arrow <- down ar left ar/2 from Q.S1; "\sl S1" below rjust
+ arrow <- down ar from Q.S2; "\sl S2" below
+ arrow <- down ar right ar/2 from Q.S3; "\sl S3" below ljust
+ s_box(
+ `\tt Q: d`'ac(,{,}2,2,3,3); \"DAC\" \"2\" at Q.C') at Q.s+(0,-0.3) below
+thicklines_
+
+Q: adc with .nw at last [].ne + (0.9,0)
+thinlines_
+ "\sl NW" at Q.NW above rjust
+ "\sl SW" at Q.SW below rjust
+ "\sl SE" at Q.SE below ljust
+ "\sl NE" at Q.NE above ljust
+ arrow <- left ar from Q.In1; "\sl In1" rjust above at Here+(0.1,0)
+ arrow <- up ar from Q.N1; "\sl N1" above
+ arrow <- down ar from Q.S1; "\sl S1" below
+ arrow <- right ar from Q.Out1; "\sl Out1" ljust above at Here-(0.1,0)
+ arrow <- left ar down ar/2 from Q.C; "\sl C" rjust
+ s_box(`\tt a`'dc') at Q.s+(0,-0.3) below
+thicklines_
+
+Q:adc(,,2,2,3,3) with .w at last [].e+(0.8,0)
+thinlines_
+ "ADC" at Q.C
+ arrow <- left ar from Q.In1; "\sl In1" rjust
+ arrow <- left ar from Q.In2; "\sl In2" rjust
+ arrow <- up ar from Q.N1; "\sl N1" above rjust
+ arrow <- up ar from Q.N2; "\sl N2" above ljust
+ arrow <- right ar from Q.Out1; "\sl Out1" ljust
+ arrow <- right ar from Q.Out2; "\sl Out2" ljust
+ arrow <- right ar from Q.Out3; "\sl Out3" ljust
+ arrow <- down ar left ar/2 from Q.S1; "\sl S1" below rjust
+ arrow <- down ar from Q.S2; "\sl S2" below
+ arrow <- down ar right ar/2 from Q.S3; "\sl S3" below ljust
+ s_box(`\tt a`'dc(,{,}2,2,3,3)') at Q.s+(0,-0.3) below
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Dac.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/Darlington.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Darlington.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Darlington.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,36 @@
+.PS
+# `Darlington.m4'
+cct_init
+
+up_
+Darlington
+{ "\sl E" at last [].E below ljust
+ "\sl B" at last [].B rjust
+ "\sl C" at last [].C above ljust
+ `"\tt Darlington"' at last [].s+(0,-10bp__) below }
+Darlington(R,DZB1) with .sw at last [].se+(0.5,0)
+{ "\sl E" at last [].E below rjust
+ "\sl B" at last [].B ljust
+ "\sl B1" at last [].B1 below
+ "\sl C" at last [].C above rjust
+ `"\tt (R,DZB1)"' at last [].s+(0,-10bp__) below }
+Darlington(,EB1) with .sw at last [].se+(0.5,0)
+{ "\sl E" at last [].E below ljust
+ "\sl B" at last [].B rjust
+ "\sl B1" at last [].B1 rjust
+ "\sl C" at last [].C above ljust
+ `"\tt (,EB1)"' at last [].s+(0,-10bp__) below }
+Darlington(,EB1DZR1) with .sw at last [].se+(0.5,0)
+{ "\sl E" at last [].E below ljust
+ "\sl B" at last [].B rjust
+ "\sl B1" at last [].B1 below rjust
+ "\sl C" at last [].C above ljust
+ `"\tt (,EB1DZR1)"' at last [].s+(0,-10bp__) below }
+Darlington(,EB1DE1E2) with .sw at last [].se+(0.5,0)
+{ "\sl E" at last [].E below ljust
+ "\sl B" at last [].B rjust
+ "\sl B1" at last [].B1 below rjust
+ "\sl C" at last [].C above ljust
+ `"\tt (,EB1DE1E2)"' at last [].s+(0,-10bp__) below }
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Darlington.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/Demultiplexer.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Demultiplexer.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Demultiplexer.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,44 @@
+.PS
+# `Demultiplexer.m4'
+log_init
+
+ ifmpost(`command "verbatimtex {\sf etex"',
+ `ifpostscript(,
+ `command "{\sf"')')
+
+ right_
+
+ Demux(4,DM1)
+ `"\tt Demux(4,DM1)"' at last [].s below
+ `"\sl Out0"' at last [].Out0.end +(6bp__,6bp__)
+ `"\sl Out3"' at last [].Out3.end +(6bp__,-6bp__)
+ `"\sl In"' at last [].In.end rjust wid 11bp__
+ `"\sl Sel"' at last [].Sel.end ljust above
+ left_; Demux(4,,LOE) with .c at last [].c+(1.2,0)
+ `"\tt left\_; Demux(4,{,}LOE)"' at last [].s + (0,-20bp__) ht 10bp__
+ `"\sl Sel"' at last [].Sel.end rjust
+ `"\sl Out0"' at last [].Out0.end +(-6bp__,6bp__)
+ `"\sl OE"' at last [].OE.end ljust
+ `"\sl In"' at last [].In.end+(0,5bp__) ljust
+ right_; Demux(4,,NOEBN2) with .c at last [].c+(1.2,0)
+ `"\tt (4,{,}NOEBN2)"' at last [].s below
+ `"\sl Sel0"' at last [].Sel0.end rjust
+ `"\sl Sel1"' at last [].Sel1.end ljust
+ `"\sl Out0"' at last [].Out0.end +(5bp__,6bp__)
+ `"\sl Out3"' at last [].Out3.end +(5bp__,6bp__)
+ `"\sl NOE"' at last [].NOE.end rjust
+ `"\sl In"' at last [].In.end above
+ down_; Demux(8,,L3,,28*L_unit) with .c at last [].c+(1.8,0)
+ `"\tt down\_; Demux(8,{,}L3,{,}28*L\_unit)"' at last [].s+(0,-15bp__) \
+ ht 10bp__ wid 170bp__
+ `"\sl Sel0"' at last [].Sel0.end rjust
+ `"\sl Sel2"' at last [].Sel2.end rjust below
+ `"\sl Out0"' at last [].Out0.end rjust
+ `"\sl Out7"' at last [].Out7.end ljust
+ `"\sl In"' at last [].In.end rjust
+
+ifmpost(`command "verbatimtex } etex"',
+`ifpostscript(,
+`command "}"')')
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Demultiplexer.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/Diodes.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Diodes.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Diodes.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,48 @@
+.PS
+# `Diodes.m4'
+cct_init
+movewid = 2pt__
+{ {diode ; move ; "`{\tt diode}'" ljust}
+ move down 0.2; right_
+ {diode(,S) ; move ; "`{\tt diode(,S)}'" ljust}
+ move down 0.2; right_
+ {diode(,V) ; move ; "`{\tt diode(,V)}'" ljust}
+ move down 0.2; right_
+ {diode(,v) ; move ; "`{\tt diode(,v)}'" ljust}
+ move down 0.2; right_
+ {diode(,w) ; move ; "`{\tt diode(,w)}'" ljust}
+ move down 0.2; right_
+ {diode(,B) ; move ; "`{\tt diode(,B)}'" ljust}
+ move down 0.2; right_
+ {diode(,G) ; move ; "`{\tt diode(,G)}'" ljust}
+ }
+
+ move right_ 2.0
+{ {diode(,K) ; move ; "`{\tt diode(,K)}'" ljust}
+ move down 0.2; right_
+ {diode(,ZK) ; move ; "`{\tt diode(,ZK)}'" ljust}
+ move down 0.2; right_
+ {diode(,CR) ; move ; "`{\tt diode(,CR)}'" ljust}
+ move down 0.2; right_
+ {diode(,L) ; move ; "`{\tt diode(,L)}'" ljust}
+ move down 0.2; right_
+ {diode(,F) ; move ; "`{\tt diode(,F)}'" ljust}
+ move down 0.2; right_
+ {diode(,Sh) ; move ; "`{\tt diode(,Sh)}'" ljust}
+ move down 0.2; right_
+ {diode(,D) ; move ; "`{\tt diode(,D)}'" ljust}
+ }
+
+ move right_ 2.0
+{ {diode(,Z,RE) ; move ; "`{\tt diode(,Z,RE)}'" ljust}
+ move down 0.25; right_
+ {diode(,T) ; move ; "`{\tt diode(,T)}'" ljust}
+ move down 0.30; right_
+ {diode(,P) ; move ; "`{\tt diode(,P)}'" ljust}
+ move down 0.30; right_
+ {diode(,LE) ; move ; "`{\tt diode(,LE)}'" ljust}
+ move down 0.15; right_
+ {diode(,LER) ; move ; "`{\tt diode(,LER)}'" ljust}
+ }
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Diodes.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/Emarrows.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Emarrows.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Emarrows.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,30 @@
+.PS
+# `Emarrows.m4'
+cct_init
+ hskip = 0.6
+[
+ { em_arrows(N)
+ box dotted wid last [].wid ht last [].ht at last [].c
+ thinlines_
+ arrow <- left 0.15 from last [].Head; "\sl Head" wid 0.31 rjust
+ arrow <- down 0.12 from last [].Tail; "\sl Tail" below
+ "\sl A1" rjust below at last [].A1.c
+ "\sl A2" ljust above at last [].A2.c
+ thicklines_
+ move down 0.25 from last [].s
+ move up 0.2 from last [].n
+ "\tt em\_arrows(N)" at last [].s+(0,-0.20) below }
+ { em_arrows(ND,45) with .sw at last [].se+(hskip*1.5,0)
+ "\tt em\_arrows(ND,45)" at last [].s below }
+ { em_arrows(I) with .sw at last [].se+(hskip,0)
+ "\tt $\ldots$(I)" at last [].s below }
+ { em_arrows(ID) with .sw at last [].se+(hskip,0)
+ "\tt $\ldots$(ID)" at last [].s below }
+ { em_arrows(E) with .sw at last [].se+(hskip,0)
+ "\tt $\ldots$(E)" at last [].s below }
+ { em_arrows(ED) with .sw at last [].se+(hskip,0)
+ "\tt $\ldots$(ED)" at last [].s below }
+ ]
+#showbox_
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Emarrows.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/FF.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/FF.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/FF.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,11 @@
+.PS
+# `FF.m4'
+log_init
+S: NOR_gate
+ left_
+R: NOR_gate at S+(0,-L_unit*(AND_ht+1))
+ line from S.Out right L_unit*3 then down S.Out.y-R.In2.y then to R.In2
+ line from R.Out left L_unit*3 then up S.In2.y-R.Out.y then to S.In2
+ line left 4*L_unit from S.In1 ; "$S$sp_" rjust
+ line right 4*L_unit from R.In1 ; "sp_$R$" ljust
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/FF.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/FlipFlop.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/FlipFlop.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/FlipFlop.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,32 @@
+.PS
+# `FlipFlop.m4'
+log_init
+iflatex(`textoffset = 1bp__; ifpsfrag(,`latexcommand({\sf)') ')
+s_init(Flipflop)
+sinclude(Circuit_macros.dim)
+right_
+ { Q1: FlipFlop(D,Q1)
+ s_box(``\tt FlipFlop(D,Q1)'') at last [].Chip.s below
+ h1 = L_unit*20
+ w1 = L_unit*12
+ FlipFlop(T,Q2,ht h1 wid w1 fill_(0.9)) with .w at last [].e+(0.25,0)
+ s_box(``\tt FlipFlop(T,Q2,ht h1 wid w1 fill\_(0.9))'') \
+ at (last [].Chip,2nd last [].Chip.s)+(0,-0.25)
+ FlipFlop(RS) with .w at last [].e+(0.25,0)
+ s_box(``\tt FlipFlop(RS)'') at last [].Chip.s below
+ FlipFlop(JK) with .w at last [].e+(0.25,0)
+ s_box(``\tt FlipFlop(JK)'') with .n at last [].PinPR.end
+ }
+ move down 1.5; right_
+ { FlipFlopX(,,:D;E:CK,,:Q;:lg_bartxt(Q))
+ s_box(``\shortstack[l]{\tt FlipFlopX(,{,}\\
+ \tt\quad:D;E:CK,{,}:Q;:lg\_bartxt(Q))}'') at last [].Chip.s below
+ FlipFlopX(,,:T;E:CK,,:Q;) with .Chip.c at last [].e+(1.25,0)
+ s_box(``\shortstack[l]{\tt FlipFlopX(,{,}\\
+ \tt\quad:T;E:CK,{,}:Q;)}'') at last [].Chip.s below
+ FlipFlopX(,,:J;E:CK;:K,N:CLR,:Q;) with .Chip.c at last [].e+(1.25,0)
+ s_box(``\shortstack[l]{\tt FlipFlopX(,{,} \\
+ \tt\quad:J;E:CK;:K,N:CLR,:Q;)}'') at last [].Chip.s below
+ }
+ iflatex(ifpsfrag(,`latexcommand(})'))
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/FlipFlop.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/Flowdiag.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Flowdiag.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Flowdiag.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,33 @@
+.PS
+# `Flowdiag.m4'
+define(`shadellipse',`{ellipse $1 fill invis
+ define(`m4h',`1.0 pt__')dnl
+ ellipse invis fill 0.5 wid last ellipse .wid+linethick pt__ \
+ ht last ellipse .ht + linethick pt__ at last ellipse+(m4h,-m4h)}
+ ellipse fill 1 $1')
+
+ shadellipse "{\tt .m4}" "diagram"
+ arrow right linewid*2/3
+
+ {shadellipse(with .b at Here+(-linewid*0.5,boxht/3+linewid/3)) \
+ "{\tt .m4}" "macros"}
+ arrow from last ellipse.b down linewid/3 then right linewid*0.5
+ move down boxht/6; right
+
+ shadebox(box wid boxht "{\bf m4}")
+ arrow right linewid/2
+
+ shadebox(box "{\bf pic}" "interpreter")
+ arrow right from Here-(0,boxht/6)
+
+ {shadellipse(with .b at Here+(-linewid*0.5,boxht/3+linewid/3)) \
+ "{\tt .tex}" "files"}
+ {arrow from last ellipse.b down linewid/3 then right linewid*0.5}
+ move up boxht/6; right
+
+ shadebox(box "\LaTeX" "or" "PDFlatex")
+ arrow right linewid*2/3
+
+ shadebox(box wid boxht "{\tt .dvi}" "or" "{\tt .pdf}")
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Flowdiag.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/Fuses.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Fuses.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Fuses.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,32 @@
+.PS
+# `Fuses.m4'
+cct_init
+
+movewid = 0.25
+
+ {fuse ; {"`{\tt fuse}'" at last line.c+(0,-0.2)}
+ move
+ fuse(,D) ; {"`{\tt fuse(,D)}'" at last line.c+(0,-0.2)}
+ move
+ fuse(,B) ; {"`{\tt fuse(,B)}'" at last line.c+(0,-0.2)}
+ move
+ fuse(,C) ; {"`{\tt fuse(,C)}'" at last line.c+(0,-0.2)}
+ move
+ fuse(,S) ; {"`{\tt fuse(,S)}'" at last line.c+(0,-0.2)}
+ move
+ fuse(,HB) ; {"`{\tt fuse(,HB)}'" at last line.c+(0,-0.2)}
+ }
+ move down; right_
+ fuse(,HC,0.5,0.3) ; {"`{\tt (,HC,0.5,0.3)}'" at last line.c+(0,-0.25)}
+ move
+ cbreaker; {"`{\tt cbreaker}'" at last line.c+(0,-0.25)}
+ move
+ cbreaker(,R); {"`{\tt cbreaker(,R)}'" at last line.c+(0,-0.25)}
+ move
+ cbreaker(,{,}D); {"`{\tt $\ldots$(,{,}D)}'" at last line.c+(0,-0.25)}
+ move
+ cbreaker(,{,}T); {"`{\tt $\ldots$(,{,}T)}'" at last line.c+(0,-0.25)}
+ move
+ cbreaker(,{,}TS); {"`{\tt $\ldots$(,{,}TS)}'" at last line.c+(0,-0.25)}
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Fuses.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/Grounds.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Grounds.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Grounds.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,39 @@
+.PS
+# `Grounds.m4'
+cct_init
+
+sep = 0.65
+Ground: ground
+ move right sep
+GT: ground(,T)
+ move right sep
+GF: ground(,,F)
+ move right sep
+GE: ground(,,E)
+ move right sep
+
+B: Here+(0,-0.5) ; {
+ "{\tt `ground'}" wid 32bp__ at (Ground,B)
+ "{\tt `ground'(,T)}" at (GT,B)+(0,7bp__)
+ "{\tt (,{,}F)}" at (GF,B)
+ "{\tt (,{,}E)}" at (GE,B)}
+
+
+GS: ground(,,S)
+ move right sep
+GS90: [ground(,,S,90) ] with .n at Here
+ move right sep from GS90.n
+GQ: ground(,,Q)
+ move right sep
+GL: ground(,,L)
+ move right sep
+GP: ground(,,P)
+
+C: Here+(0,-0.5)
+ "{\tt (,{,}S)}" at (GS,C)
+ "{\tt (,{,}S,90)}" at (GS90,C)
+ "{\tt (,{,}Q)}" at (GQ,C)
+ "{\tt (,{,}L)}" at (GL,C)
+ "{\tt (,{,}P)}" at (GP,C)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Grounds.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/Headers.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Headers.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Headers.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,37 @@
+.PS
+# Headers.m4
+log_init
+
+ Header
+ {"\sl P1" at last [].P1 rjust
+ `"\tt Header"' at last [].s+(0,-10pt__)
+ "\sl P2" at last [].P2 rjust}
+
+ Header(2,3,8mm__,10mm__) with .nw at last [].ne+(0.75,-0.05)
+ {"\sl P1" at last [].P1 rjust
+ `"\tt Header(2,3,8mm\_\_,10mm\_\_)"' at last [].s+(0,-10pt__)
+ "\sl P2" at last [].P2 ljust
+ "\sl P5" at last [].P5 rjust
+ "\sl P6" at last [].P6 ljust}
+
+ left_
+ Header(2,4,,,fill_(0.9)) with .sw at last [].se+(0.75,0)
+ {"\sl P1" at last [].P1 rjust_
+ `"\tt left\_; Header(2,4,{,},fill\_(0.9))"' at last [].s+(0,-20pt__)
+ "\sl P8" at last [].P8 ljust_}
+
+ down_
+ Header(2,8) with .nw at last [].ne+(0.75,0)
+ {"\sl P1" at last [].P1 ljust
+ "\sl P2" at last [].P2 ljust
+ `"\tt down\_; Header(2,8)" ' at last [].s+(0,-10pt__)
+ "\sl P15" at last [].P15 rjust
+ "\sl P16" at last [].P16 rjust}
+ {thinlines_
+ arrow <- right 0.15 from last [].PinP1.e
+ `"\sl PinP1"' ljust
+ arrow <- right 0.15 from last [].PinP2.e
+ `"\sl PinP2"' ljust
+ thicklines_ }
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Headers.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/HybridPi.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/HybridPi.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/HybridPi.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,54 @@
+.PS
+cct_init
+linewid = linewid*6/6.2435
+command "{\sf"
+# `Point_(degrees)
+# hybrid_PI_BJT([L][M])
+# L=left orientation; M=mirror'
+define(`hybrid_PI_BJT',
+`[ # Size (and direction) parameters:
+ hunit = ifinstr(`$1',M,-)dimen_
+ vunit = ifinstr(`$1',L,-)dimen_*3/2
+ hp_ang = rp_ang # Save the reference direction
+
+ Rpi: resistor(to rvec_(0,-vunit)); point_(hp_ang) # Restore direction
+ DotG: dot(at rvec_(hunit*5/4,0))
+ Gm: consource(to rvec_(0,vunit),I,R); point_(hp_ang) # Restore direction
+ dot(at rvec_(hunit*3/4,0))
+ Ro: resistor(to rvec_(0,-vunit)); point_(hp_ang) # Restore direction
+ line from Rpi.start to Rpi.start+vec_(-hunit/2,0) chop -lthick/2 chop 0
+ Base: dot(,,1)
+ line from Gm.end to Ro.start+vec_(hunit/2,0) chop -lthick/2 chop 0
+ Collector: dot(,,1)
+ line from Rpi.end to Ro.end chop -lthick/2
+ DotE: dot(at 0.5 between Rpi.end and DotG)
+ line to rvec_(0,-vunit/2)
+ Emitter: dot(,,1)
+ # Labels
+ `"$\mathrm{r_\pi}$"' at Rpi.c+vec_(hunit/4,0)
+ `"$ + $"' at Rpi.c+vec_(-hunit/6, vunit/4)
+ `"$ - $"' at Rpi.c+vec_(-hunit/6,-vunit/4)
+ `"$\mathrm{v_\pi}$"' at Rpi.c+vec_(-hunit/4,0)
+ `"$\mathrm{g_m}$$\mathrm{v_\pi}$"' at Gm.c+vec_(-hunit*3/8,-vunit/4)
+ `"$\mathrm{r_o}$"' at Ro.c+vec_(hunit/4,0)
+ `$2' ] ')
+
+[
+Q: hybrid_PI_BJT
+ "Base" at Q.Base +(0.15,0.1)
+ "Emitter" ht 0.1 wid 0.5 at Q.Emitter.w rjust
+ "Collector" ht 0.1 at Q.Collector +(-0.2,0.1)
+ `"hybrid\_PI\_BJT"' ht 0.1 at Q.s+(0,-0.2)
+ hybrid_PI_BJT(M) with .Collector at last [].Collector+(0.15,0)
+ `"hybrid\_PI\_BJT(M)"' ht 0.1 at last [].s+(0,-0.2)
+ hybrid_PI_BJT(LM) with .w at last [].e
+ `"hybrid\_PI\_BJT(LM)"' ht 0.1 at last [].s+(0,-0.2)
+Point_(45)
+ hybrid_PI_BJT with .Emitter at last [].Base+(elen_*1.75,0.1)
+ `"\shortstack[l]{Point\_(45)\\ hybrid\_PI\_BJT}"' \
+ ht 0.25 at last [].s+(0.2,-0.2)
+]
+#print last [].wid
+
+command "}%"
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/HybridPi.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/Jack.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Jack.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Jack.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,78 @@
+.PS
+# `Jack.m4'
+cct_init
+
+P: [
+ P1: plug
+ "\sl A" wid 0.1 at P1.A rjust
+ "\sl B" at P1.B rjust
+ "\sl TB" at P1.TB ljust above
+ "\sl TA" at P1.TA ljust below
+ P2: plug(,R) with .B at P1.A+(0.85,0)
+ "\sl A" wid 0.1 at P2.A rjust
+ "\sl B" at P2.B rjust
+# P3: plug(L) with .A at P2.A+(1,0)
+# "\sl A" wid 0.1 at P3.A ljust
+# "\sl B" at P3.B ljust
+ P4: plug(,3) with .A at P2.B+(0.85,0)
+ "\sl A" at P4.A rjust
+ "\sl B" at P4.B rjust
+ "\sl C" at P4.C rjust
+ P5: plug(L,3R) with .A at P4.A+(1,0)
+ "\sl A" wid 0.1 at P5.A ljust
+ "\sl B" at P5.B ljust
+ "\sl C" at P5.C ljust
+ `"\tt plug"' below at P1.s+(0,-0.1)
+ `"\tt plug(,R)"' below at P2.s+(0,-0.1)
+# `"\tt plug(L)"' below at P3.s+(0,-0.1)
+ `"\tt plug(,3)"' below at P4.s+(-0.1,-0.1)
+ `"\tt plug(L,3R)"' below at P5.s+(0.1,-0.1)
+]
+
+L: [ right_
+ J1: jack
+ thinlines_
+ "\sl L" wid 0.1 rjust at J1.L
+ arrow <- right 0.1 from J1.F; "\sl F" ljust
+ arrow <- down 0.1 from J1.G then left 0.1 ; "\sl G" rjust
+ thicklines_
+ J2:[K2: jack(,LMBS) #with .F at J1.F+(1.2,0)
+ thinlines_
+ "\sl L" rjust at K2.L
+ arrow <- from K2.LM left 0.25; "\sl LM" wid 0.18 rjust
+ arrow <- from K2.LB left 0.25; "\sl LB" rjust
+ "\sl S" rjust at K2.S
+ thicklines_ ] with .K2.F at J1.F+(1.2,0)
+ J3: jack(L,RLS) with .F at J2.K2.F+(0.4,0)
+ thinlines_
+ "\sl L" ljust at J3.L
+ "\sl S" ljust at J3.S
+ thicklines_
+ J4: jack(L,RLBLMLMS) with .F at J3.F+(1.1,0)
+ thinlines_
+ "\sl L1" ljust at J4.L1
+ arrow <- right 0.3 from J4.LM1; "\sl LM1" ljust
+ "\sl L2" ljust at J4.L2
+ arrow <- right 0.3 from J4.LM2; "\sl LM2" wid 0.2 ht 11pt__ ljust
+ "\sl S" ljust at J4.S
+ "\sl L" ljust at J4.L
+ arrow <- right 0.2 from J4.LB ; "\sl LB" ljust
+ right_
+ J5: jack(,RSBSMLB) with .F at J4.F+(1.95,0)
+ thinlines_
+ "\sl L" rjust at J5.L
+ "\sl S" rjust at J5.S
+ "\sl S1" rjust at J5.S1
+ arrow <- left 0.3 from J5.SM1; "\sl SM1" rjust
+ spline 0.5 <- left 0.25 then left 0.1 down 0.05 from J5.LB; "\sl LB" rjust
+ spline 0.5 <- left 0.25 then left 0.1 up 0.05 from J5.SB; "\sl SB" rjust
+ thicklines_
+
+ `"\tt jack"' ht 0.15 below at J1.s+(0,-0.15)
+ `"\tt jack(,LMBS)"' below at (J2,last "")
+ `"\tt ..(L,RLS)"' below at (J3,last "")
+ `"\tt ..(L,RLBLMLMS)"' below at (J4,last "")
+ `"\tt ..(,RSBSMLB)"' below at (J5,last "")
+] with .nw at P.sw + (0,0.1)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Jack.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/Logic.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Logic.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Logic.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,62 @@
+.PS
+# Logic.m4
+cct_init
+ifdef(`AND_gate',,`include(liblog.m4)')
+xgap = 0.6
+[ dmov = 0.4
+{ {AND_gate ; "{\tt AND\_gate}" ljust at last [].w + (xgap,0)}
+ move down dmov; right_
+ {OR_gate ; "{\tt OR\_gate}" ljust at last [].w + (xgap,0)}
+ move down dmov; right_
+ {BUFFER_gate ; "{\tt BUFFER\_gate}" ljust at last [].w + (xgap,0)}
+ move down dmov; right_
+ {XOR_gate ; "{\tt XOR\_gate}" ljust at last [].w + (xgap,0)}
+ }
+
+ move right_ 140pt__
+{ { NAND_gate; "{\tt NAND\_gate}" ljust at last [].w + (xgap,0) }
+ move down dmov; right_
+ { Gate: NOR_gate(3)
+ "{\tt NOR\_gate(3)}" ljust at last [].w + (xgap,0)
+ thinlines_
+ spline <- from Gate.Out right arrowht*2.0 \
+ then up 0.15 then right 0.05
+ "{\tt Out}" ljust
+ spline <- from Gate.N_Out down arrowht*2.0 \
+ then right 0.1+arrowht*1.5+NOT_rad down 0.15-arrowht*2.0
+ "{\tt N\_Out}" ljust
+ for_(1,3,1,
+ `arrow <- left 0.2 down 0.05 from Gate.In`'m4x
+ "{\tt In`'m4x\/}" rjust at Here+(0,(2-m4x)*0.02)')
+ }
+ thicklines_
+ move down dmov; right_
+ { NOT_gate ; "{\tt NOT\_gate}" ljust at last [].w + (xgap,0) }
+ move down dmov; right_
+ {Gate: NXOR_gate(NPN); "{\tt NXOR\_gate(NPN)}" ljust at last [].w + (xgap,0)
+ for_(1,3,1,
+ `arrow <- left 0.2 up 0.05 from Gate.In`'m4x
+ "{\tt In`'m4x\/}" rjust at Here+(0,(2-m4x)*0.02)')
+ }
+}
+ move right_ 140pt__
+{ {NAND_gate(,B) ; "{\tt NAND\_gate(,B)}" ljust at last [].w + (xgap,0)}
+ { line invis right 1.6 from last [].se then down 1}
+ move down dmov; right_
+ move left N_diam*L_unit; right_
+ {NOR_gate(3,NB) ; "{\tt NOR\_gate(3,NB)}" ljust at (last "",last []) }
+ move down dmov; right_
+ {BOX_gate(PN,N,,,=1)
+ "{\tt BOX\_gate(PN,N,{,},=1)}" ljust at (last "",last [])
+ line left 0.15 from last [].In1
+ line left 0.15-NOT_rad*2 from last [].In2
+ line right 0.15 from last [].Out }
+ move down dmov; move right_ N_diam*L_unit
+ {BOX_gate(PP,N,,,=)
+ "{\tt BOX\_gate(PP,N,{,},=)}" ljust at (last "",last [])
+ line left 0.15 from last [].In1
+ line left 0.15 from last [].In2
+ line right 0.15 from last [].Out }
+}
+]
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Logic.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/Loop.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Loop.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Loop.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,10 @@
+.PS
+# `Loop.m4'
+cct_init
+define(`dimen_',0.75)
+loopwid = 1; loopht = 0.75
+ source(up_ loopht); llabel(-,v_s,+)
+ resistor(right_ loopwid); llabel(,R,); b_current(i)
+ inductor(down_ loopht,W); rlabel(,L,)
+ capacitor(left_ loopwid,C); llabel(+,v_C,-); rlabel(,C,)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Loop.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/Makefile
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Makefile (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Makefile 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,142 @@
+# The installed library directory, change this if necessary:
+LIBDIR = ..
+
+DOC = Circuit_macros
+DOCSRC = Circuit_macros.tex body.tex defines.tex
+
+PICTEX = \
+ AmpTable.tex Antennas.tex Audio.tex Axes.tex \
+ Buffer.tex BigResistor.tex Bip.tex \
+ CctTable.tex Composite.tex ConfigA.tex ConfigB.tex ConfigC.tex Conn.tex \
+ Corners.tex \
+ Dac.tex Darlington.tex Demultiplexer.tex Diodes.tex \
+ Emarrows.tex FF.tex FlipFlop.tex \
+ Flowdiag.tex Fuses.tex Grounds.tex \
+ Headers.tex HybridPi.tex Jack.tex \
+ Logic.tex Loop.tex Multiplexer.tex NPDT.tex NLG.tex Nport.tex \
+ Oblique.tex Opamp.tex Opto.tex \
+ ParSeries.tex Pconn.tex Potentiometers.tex Relay.tex \
+ Series.tex ShiftR.tex Sinus.tex Sources.tex Switches.tex \
+ Taps.tex Tgate.tex Thermal.tex Tline.tex Ttree.tex \
+ Variable.tex Xform.tex Windings.tex Workflow.tex \
+ bitr.tex bi_trans.tex \
+ bistable.tex currents.tex eboxdims.tex fbfilter.tex fet.tex \
+ lrarrows.tex mplex.tex oax.tex \
+ quick.tex stringdims.tex thyristor.tex ujt.tex woodchips.tex
+
+VERBATIM = BigResistor2.verb eboxdims.verb
+BOXDIMS = Antennas.tex bi_trans.tex ConfigA.tex ConfigB.tex ConfigC.tex \
+ Corners.tex \
+ Dac.tex eboxdims.tex FlipFlop.tex \
+ Opamp.tex ParSeries.tex Sinus.tex stringdims.tex Ttree.tex \
+ Windings.tex woodchips.tex
+# BOXDIMS = $(PICTEX)
+
+LATEX = latex
+M4 = m4 -I $(LIBDIR)
+# If M4PATH has been set:
+M4 = m4
+
+# For gpic
+MODE = gpic
+PIC = gpic -t
+PRE =
+POST = ;printf '\\centerline{\\box\\graph}\n'
+PST =
+
+# For dpic; comment these to stick with gpic.
+MODE = pstricks
+PIC = dpic -p
+# PIC = $$HOME/dpic/test/dpic -p
+# PIC = $$HOME/dpic/p2c/ftp/dpic -p
+PRE =
+POST =
+#POST = ;printf '}%%'
+PST = ;printf '\\usepackage{pstricks}\n' >> heading.tex
+# PST = ;printf '\\usepackage{tikz}\n' >> heading.tex
+
+SFX = dvi
+
+M4LIBS = $(MODE).m4
+.SUFFIXES: .tex .m4
+.m4.tex: $*.m4
+ touch $(DOC).dim
+ $(M4) $(M4LIBS) $(DOC).dim $*.m4 > $*.pic
+ ($(PRE) $(PIC) $*.pic $(POST)) > $*.tex
+
+CMpdf:
+ touch mode.tex
+ -if grep -q tikz mode.tex ; then true ; else \
+ make clean ; printf "\\usepackage{tikz}\n" > mode.tex ; fi
+ make MODE=pgf PIC="dpic -g" LATEX=pdflatex SFX=pdf \
+ POST="; printf '\\\\vspace*{-0.5\\\\baselineskip}\\n'" \
+ $(DOC).pdf
+ chmod 644 $(DOC).pdf
+
+$(DOC).ps:
+ printf "\n $(DOC).ps:\n\n"
+ make MODE=pstricks PIC="dpic -p" LATEX=latex SFX=dvi POST="" $(DOC).dvi
+ dvips -t letter $(DOC) -o
+
+$(DOC).$(SFX): mode.tex citations $(PICTEX)
+ @printf "\n $(DOC).SFX=$(DOC).$(SFX):\n\n"
+ $(LATEX) $(DOC) ; bibtex $(DOC)
+ - at if grep -s "Warning: Reference " $(DOC).log ; then \
+ @printf "\n Warning:\n\n" ; \
+ $(LATEX) $(DOC) ; bibtex $(DOC) ; \
+ elif test ! -f $(DOC).$(SFX) ; then\
+ @printf "\n No file $(DOC).$(SFX)\n\n" ; \
+ $(LATEX) $(DOC) ; bibtex $(DOC) ; fi
+
+citations: mode.tex $(DOC).bbl $(PICTEX)
+ @printf "\n citations:\n\n"
+ $(LATEX) $(DOC) ; bibtex $(DOC)
+ touch citations
+
+$(DOC).bbl: $(DOC).bib $(DOC).aux
+ bibtex $(DOC)
+
+$(DOC).aux: mode.tex $(DOCSRC) heading.tex $(VERBATIM) $(PICTEX)
+ @printf "\n $(DOC).aux:\n\n"
+ $(LATEX) $(DOC) ; bibtex $(DOC)
+ rm -f $(BOXDIMS)
+ make $(BOXDIMS)
+
+mode.tex:
+ -if test "$(MODE)" = "pstricks" ; then \
+ printf "\\usepackage{pstricks}\n" > mode.tex ; else \
+ printf "\\usepackage{tikz}\n" > mode.tex ; fi
+
+heading.tex:
+ printf '\\documentclass{article}\n' > heading.tex
+ printf '\\usepackage{verbatim,url}\n' >> heading.tex
+ printf '\\usepackage{multicol}\n' >> heading.tex
+ printf '\\usepackage{amssymb,boxdims}\n' >> heading.tex $(PST)
+
+oax.tex tran.tex bitr.tex: oax.m4
+ $(M4) $(M4LIBS) $*.m4 > $*.pic
+ $(PIC) $*.pic > $*.tex
+
+pics: $(PICTEX)
+
+BigResistor2.verb: BigResistor.m4
+ ( printf '\\begin{verbatim}\n'; \
+ sed -n '/thinlines/,/PE/p' BigResistor.m4 ;\
+ printf '\\end{verbatim}\n' ) > BigResistor2.verb
+
+eboxdims.verb: eboxdims.m4
+ ( printf '\\begin{verbatim}\n' ; \
+ sed -e '/thinlines/,$$d' eboxdims.m4 ; \
+ printf '.PE\n\\end{verbatim}\n' ) > eboxdims.verb
+
+ex08.m4: ../examples/ex08.m4
+ cp ../examples/ex08.m4 ex08.m4
+
+clobber: clean
+ rm -f *.dvi Circuit_macros.pdf
+# rm -f Circuit_macros.pdf
+
+clean:
+ rm -f *.bbl *.log *.aux *.blg *.toc citations *.verb ex08.m4
+ rm -f *.pic $(PICTEX) heading.tex *.dim *.uu Circuit_macros.ps Circuit_macros.dvi
+ rm -f mode.tex Circuit_macros.out *.upa *.upb *.brf
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Makefile
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Multiplexer.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Multiplexer.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Multiplexer.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,43 @@
+.PS
+# `Multiplexer.m4'
+log_init
+
+ ifmpost(`command "verbatimtex {\sf etex"',
+ `ifpostscript(,
+ `command "{\sf"')')
+
+ right_
+
+ Mux(4,M1)
+ `"\tt Mux(4,M1)"' at last [].s below
+ `"\sl In0"' at last [].In0.end rjust wid 14bp__
+ `"\sl In1"' at last [].In1.end rjust
+ `"\sl In2"' at last [].In2.end rjust
+ `"\sl In3"' at last [].In3.end rjust
+ `"\sl Out"' at last [].Out.end above
+ `"\sl Sel"' at last [].Sel.end ljust above
+ left_; Mux(4,,LNOE) with .c at last [].c+(0.9,0)
+ `"\tt left\_; Mux(4,{,}LNOE)"' at last [].s +(0,-20bp__) ht 10bp__
+ `"\sl In0"' at last [].In0.end above
+ `"\sl NOE"' at last [].NOE.end +(4bp__,0) below
+ `"\sl Out"' at last [].Out.end below
+ `"\sl Sel"' at last [].Sel.end rjust below
+ right_; Mux(4,,OEBN2) with .c at last [].c+(1.4,0)
+ `"\tt Mux(4,{,}OEBN2)"' at last [].s below
+ `"\sl Sel0"' at last [].Sel0.end rjust
+ `"\sl Sel1"' at last [].Sel1.end ljust
+ `"\sl In0"' at last [].In0.end rjust
+ `"\sl In3"' at last [].In3.end rjust
+ `"\sl OE"' at last [].OE.end rjust
+ down_; Mux(8,,L3,,28*L_unit) with .c at last [].c+(1.7,0)
+ `"\tt down\_; Mux(8,{,}L3,{,}28*L\_unit)"' at last [].s below
+ `"\sl Sel0"' at last [].Sel0.end rjust
+ `"\sl Sel2"' at last [].Sel2.end rjust below
+ `"\sl In0"' at last [].In0.end rjust
+ `"\sl In7"' at last [].In7.end ljust wid 14bp__
+
+ifmpost(`command "verbatimtex } etex"',
+`ifpostscript(,
+`command "}"')')
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Multiplexer.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/NLG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/NLG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/NLG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,19 @@
+.PS
+# NLG.m4
+cct_init
+
+ define(`nullor',`nport(`$1'
+ {`"${}0$"' at Box.w ljust
+ `"$\infty$"' at Box.e rjust},shift($@))')
+
+N: nullor
+`"\tt nullor"' at last [].s+(0,-3pt__) below
+G: gyrator with .sw at N.se+(0.5,0)
+`"\tt gyrator"' at G.s+(0,-3pt__) below
+I: gyrator(invis,,0,N) with .w at G.e+(0.5,0)
+`"\tt gyrator(invis,{,}0,N)"' at I.s
+V: gyrator(invis wid boxht,,0,NV) with .w at I.e+(1,0)
+`"\tt gyrator(invis wid boxht,{,}0,NV)"' at V.s+(0,-3pt__) below
+
+ move right 0.9
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/NLG.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/NPDT.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/NPDT.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/NPDT.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,35 @@
+.PS
+# `NPDT.m4'
+cct_init
+ linewid = linewid*1.2
+ movewid = 1.0
+
+ NPDT
+ { `"\sl R" at last [].R.s below
+ "\sl T" at last [].T.s below
+ "\sl L" at last [].L.s below' }
+ { `"\tt NPDT"' at last [].s +(0,-0.22) }
+ up_; NPDT with .L at last[].R+(0.75,0)
+ { `"\sl R"' wid 8pt__ at last [].R.e ljust
+ "\sl T" at last [].T.e ljust
+ "\sl L" at last [].L.e ljust }
+ { `"\tt up\_; NPDT\strut"' at last [].s +(0.1,-0.15) }
+ right_
+ NPDT(2) with .L1 at last [].L+(0.75,0)
+ { for_(1,2,1,
+ `"\sl R`'m4x" at last [].R`'m4x.e ljust
+ "\sl L`'m4x" wid 11pt__ at last [].L`'m4x.w rjust') }
+ { `"\tt NPDT(2)\strut"' at last [].s +(0,-0.15) }
+ move
+ NPDT(3,R) with .L3 at last [].R1+(0.75,0)
+ { for_(1,3,1,
+ `"\sl R`'m4x" at last [].R`'m4x.e ljust
+ "\sl L`'m4x" wid 11pt__ at last [].L`'m4x.w rjust') }
+ { `"\tt NPDT(3,R)\strut"' at last [].s below }
+ left_; NPDT(2,R) with .R1 at last [].R3+(0.75,0)
+ { for_(1,2,1,
+ `"\sl R`'m4x" at last [].R`'m4x.w rjust
+ "\sl L`'m4x" wid 11pt__ at last [].L`'m4x.e ljust') }
+ { `"\tt left\_; NPDT(2,R)\strut"' at last [].s +(0,-0.15) }
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/NPDT.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/Nport.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Nport.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Nport.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,43 @@
+.PS
+# `Nport.m4'
+cct_init
+textoffset = 5bp__
+
+Twoport: nport
+
+ "\sl W1a" above rjust at Twoport.W1a
+ "\sl W1b" below rjust at Twoport.W1b wid 0.25
+ "\sl E1a" above ljust at Twoport.E1a
+ "\sl E1b" below ljust at Twoport.E1b
+
+Nport: nport(wid 2.0 ht 1 fill_(0.9) "n-port",1,2,3,4) \
+ with .Box.w at Twoport.Box.e+(1.0,0)
+
+ "\sl W1a" rjust at Nport.W1a
+ "\sl W1b" rjust at Nport.W1b
+
+ "\sl E1a" ljust at Nport.E1a
+ "\sl E3b" ljust at Nport.E3b
+
+ "\sl N1a" above at Nport.N1a
+ "\sl N1b$\;\;$" above at Nport.N1b
+ "\sl $\;\;$N2a" above at Nport.N2a
+ "\sl N2b" above at Nport.N2b
+
+ "\sl S1a" below at Nport.S1a
+ "\sl S4b" below at Nport.S4b
+
+ "$\cdots$" at 0.5<Nport.S1a,Nport.S4b>+(0,-0.10)
+ "$\vdots$" at 0.5<Nport.E1a,Nport.E3b>+(0.15,0.05)
+
+Nterm: nterm with .Box.w at Nport.Box.e+(1.0,0)
+ "\sl W1" rjust at Nterm.W1
+ "\sl E1" ljust at Nterm.E1
+ "\sl S1" below at Nterm.S1
+
+ `"\tt nport"' at Twoport.s+(0,-0.3)
+ `"\tt nport(wid 2.0 ht 1 fill\_(0.9) \"n-port\",1,2,3,4)"' \
+ at Nport.s+(0,-0.25)
+ `"\tt nterm"' at Nterm.s+(0,-0.3)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Nport.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/Oblique.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Oblique.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Oblique.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,25 @@
+.PS
+# `Oblique.m4'
+cct_init
+
+Ct:dot; Point_(-60); capacitor(,C); dlabel(0.12,0.12,,,C_3)
+Cr:dot; left_; capacitor(,C); dlabel(0.12,0.12,C_2,,)
+Cl:dot; down_; capacitor(from Ct to Cl,C); dlabel(0.12,-0.12,,,C_1)
+
+T:dot(at Ct+(0,elen_))
+ 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,)
+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)
+ 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,)
+ resistor(to 0.8 between L and T); dlabel(0,0.15,,R_1,)
+ line to T
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Oblique.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/Opamp.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Opamp.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Opamp.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,45 @@
+.PS
+# Opamp.m4
+sinclude(FOpamp.dim)
+sinclude(Circuit_macros.dim)
+s_init(Opamp)
+cct_init
+
+ A: opamp
+ thinlines_
+ s_box(`\tt opam{}p') at A.s-(0,0.35)
+ s_box(\tt Out) below at A.Out
+ spline <- from A.In1 left 0.1 then up 0.1 left 0.1
+ s_box(\tt In1) rjust above
+ spline <- from A.In2 left 0.1 then down 0.1 left 0.1
+ s_box(\tt In2) rjust below
+ arrow <- up 0.1 right 0.1 from A.N
+ s_box(\tt N) ljust above
+ arrow <- up 0.1 right 0.1 from A.E1
+ s_box(\tt E1) ljust above
+ arrow <- up 0.1 right 0.1 from A.E
+ s_box(\tt E) ljust above
+ arrow <- down 0.1 right 0.1 from A.E2
+ s_box(\tt E2) ljust below
+ arrow <- down 0.1 right 0.1 from A.S
+ s_box(\tt S) ljust below
+ arrow <- left 0.2 from A.W
+ s_box(\tt W) rjust
+ thicklines_
+ Point_(15)
+ B: opamp(,,,,PR) with .sw at A.se+(0.65,0)
+ thinlines_
+ s_box(`\tt Point\_(15); opam{}p(,{,},{,}PR)') at B.s-(0,0.20)
+ spline <- right arrowht up arrowht from B.V1 then right 0.1
+ s_box(\tt V1) ljust
+ spline <- right arrowht down arrowht from B.V2 then right 0.1
+ s_box(\tt V2) ljust
+ thicklines_
+ Point_(90)
+ C: opamp with .sw at B.se+(1.05,0)
+ s_box(`\tt Point\_(90); opam{}p') at C.s-(0,0.35)
+ right_
+ D: opamp(,,,,T) with .sw at C.se+(0.65,0)
+ s_box(`\tt opam{}p(,{,},{,}T)') at D.s-(0,0.20)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Opamp.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/Opto.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Opto.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Opto.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,29 @@
+.PS
+cct_init
+# `opto([R|L][A|B])'
+define(`opto',
+`[{u = dimen_/2
+ Q: bi_trans(up u*2,ifinstr(`$1',R,R),ifinstr(`$1',B,B)CBUdE)
+ E: Q.E; C: Q.C; A:ifinstr(`$1',R,Q.e+(u*3/2,u),Q.w+(-u*3/2,u)); K: A-(0,u*2)
+ ifinstr(`$1',B,line from Q.B to (Q.B,E); B: Here)
+ D: diode(from A to K)
+ arrow from D.c+(0,u/6) to Q.ifinstr(`$1',R,e,w)+(0,u/6) chop u/3 chop u/4
+ arrow from last arrow.start-(0,u/3) to last arrow.end-(0,u/3)
+ Enc: box rad u wid abs(C.x-A.x)+u*2 ht u*2 with .c at 0.5 between C and K
+ `$2' }]')
+
+Q1: opto
+Q2: opto(type=B;orientation=Rightleft) with .w at Q1.e+(dimen_,0)
+
+{"\sl C" at Q1.C above}
+{"\sl C" at Q2.C above}
+{"\sl A" at Q1.A above}
+{"\sl A" at Q2.A above}
+{"\sl E" at Q1.E below}
+{"\sl E" at Q2.E below}
+{"\sl K" at Q1.K below}
+{"\sl K" at Q2.K below}
+{"\sl B" at Q2.B below}
+
+.PE
+
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Opto.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/ParSeries.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ParSeries.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ParSeries.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,56 @@
+.PS
+# ParSeries.m4
+sinclude(tst.dim)
+sinclude(Circuit_macros.dim)
+s_init(ParSeries)
+cct_init
+
+command "\newcommand{\X}{\enskip}"
+
+setdir_(R)
+Ex1: [
+P:parallel_(
+ `L:inductor(,W); llabel(+,L,-)',
+ series_(`R1:resistor; llabel(,R1)',`R2:resistor; llabel(,R2)'),
+ `C:capacitor; llabel(,C)' )
+ dot(at P.Start); "{\small\sl Start}" at rvec_(0,-3pt__) below ljust
+ dot(at P.End); "{\small\sl End}" below ljust
+ ]
+#showbox_
+
+s_box(``\shortstack[l]{
+\tt parallel\_( \char96 L:inductor(,W); llabel(+,L,-)\char39,\\
+\X\tt series\_(\char96 R1:resistor; llabel(,R1)\char39,
+\char96 R2:resistor; llabel(,R2)\char39),\\
+\X\tt \char96 C:capacitor; llabel(,C)\char39\ )}'') with .nw at Ex1.sw+(0,-0.2)
+#showbox_(last "")
+
+setdir_(Down)
+Ex2: [
+P: parallel_(
+ series_(
+ `R1:resistor; rlabel(,R_1)',
+ parallel_(
+ series_(`resistor; rlabel(,R_2)',`inductor(,W); rlabel(,L)'),
+ `capacitor(,C); rlabel(,C)' ),
+ line down dimen_/2 ),
+ `Sep=linewid*3/2; V:source; rlabel(+,V,-)' )
+ dot(at P.Start); "{\small\sl Start}" below
+ dot(at P.End); "{\small\sl End}" below
+ ] with .sw at Ex1.se+(0.3,0)
+#showbox_
+
+s_box(``\shortstack[l]{\tt setdir\_(Down)\\
+\tt parallel\_(\\
+\X\tt series\_(\char96 R1:resistor; rlabel(,R\_1)\char39,\\
+\X\X\tt parallel\_(\\
+\X\X\X\tt series\_(\char96 resistor; rlabel(,R\_2)\char39,\\
+\X\X\X\tt\hphantom{\tt series\_(}%
+\char96{}inductor(,W); rlabel(,L)\char39),\\
+\X\X\X\tt \char96 capacitor(,C); rlabel(,C)\char39\ ),\\
+\X\X\tt line down dimen\_/2),\\
+\X\tt \char96 Sep=linewid*3/2; V:source; rlabel(+,V,-)\char39)}
+'') with .nw at Ex2.ne+(0.15,0)
+#showbox_(last "")
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ParSeries.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/Pconn.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Pconn.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Pconn.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,50 @@
+.PS
+# `Pconn.m4'
+cct_init
+
+P1: [
+ C1: pconnex(,A)
+ thinlines_
+ arrow <- left 0.2 from C1.H.w; `"\sl H"' rjust
+ thicklines_
+ `"\tt pconnex(,A)"' at last [].s below
+ C2: pconnex(,AF) with .w at C1.e+(0.3,0)
+ thinlines_
+ arrow <- right 0.2 up 0.1 from C2.H.e; `"\sl H"' ljust
+ N: box invis wid (C2.w.x-C1.e.x)/2 ht C1.N.ht \
+ with .n at 0.5 between C1.ne and C2.nw "\sl N"
+ arrow from N.w to C1.N.e
+ arrow from N.e to C2.N.w
+ G: box invis wid N.wid ht N.ht with .n at (N,C1.N.s) "\sl G"
+ arrow from G.w to C1.G.e
+ arrow from G.e to C2.G.w
+ `"\tt (,AF)"' at last [].s below
+ C03: pconnex(,AC) with .w at C2.e+(0.2,0)
+ `"\tt (,AC)"' at last [].s below
+ C3: pconnex(,ACF) with .w at last [].e+(0.2,0)
+ `"\tt (,ACF)"' at last [].s below
+
+ C4: pconnex(,P) with .w at last [].e+(0.2,0)
+ `"\tt (,P)"' at (C4,last "") below
+ C5: pconnex(U,D) with .w at last [].e+(0.2,0)
+ `"\tt (U,D)"' at last [].s below
+ C6: pconnex(U,DF) with .w at last [].e+(0.2,0)
+ `"\tt (U,DF)"' at last [].s below
+ C7: pconnex(U,J) with .w at last [].e+(0.2,0)
+ `"\tt (U,J)"' at last [].s below
+ C8: pconnex(U,JF) with .w at last [].e+(0.2,0)
+ `"\tt (U,JF)"' at last [].s below
+ ]
+
+P2: [
+ C9: pconnex(,G)
+ `"\tt (,G)"' at last [].s below
+ C91: pconnex(,GF) with .w at last [].e+(0.2,0)
+ `"\tt (,GF)"' at last [].s below
+ C92: pconnex(L,GF) with .w at last [].e+(0.2,0)
+ `"\tt (L,GF)"' at last [].s below
+ C10: pconnex(,GC) with .w at last [].e + (0.2,0)
+ `"\tt (,GC)"' ht 11pt__ at last [].s below
+] with .nw at P1.C1.sw + (0,-0.25)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Pconn.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/Potentiometers.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Potentiometers.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Potentiometers.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,27 @@
+.PS
+# `Potentiometers.m4'
+cct_init
+
+ down_
+ P: potentiometer(down_ dimen_)
+ "\tt `potentiometer'(down\_ dimen\_)" wid 1.9 at P.End +(0,-0.30)
+ "\sl Start" ljust at P.Start
+ "\sl End" ljust at P.End
+ "\sl T1" below ljust at P.T1
+
+ R: potentiometer(down_ dimen_,,0.5,-5mm__) \
+ with .Start at P.Start + (1.7,0)
+ "\tt ...(down\_ dimen\_,{,}0.5,-5mm\_\_)" at R.End +(0,-0.12)
+ "\sl Start" ljust at R.Start
+ "\sl End" ljust at R.End
+ "\sl T1" below rjust at R.T1
+
+ Q: potentiometer(down_ dimen_,,0.25,-5mm__,0.75,5mm__) \
+ with .Start at R.Start + (1.7,0)
+ "\tt ...(down\_ dimen\_,{,}0.25,-5mm\_\_,0.75,5mm\_\_)" at Q.End+(0,-0.30)
+ "\sl Start" ljust at Q.Start
+ "\sl End" ljust at Q.End
+ "\sl T1" below rjust at Q.T1
+ "\sl T2" below ljust at Q.T2
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Potentiometers.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/Relay.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Relay.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Relay.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,84 @@
+.PS
+# Relay.m4
+cct_init
+
+movw = 0.85
+{contact
+ {`"\tt contact"' at last [].s+(0,-0.2)
+ "\sl P" rjust at last [].P.w
+ "\sl O" ljust at last [].O
+ "\sl C" ljust at last [].C }
+ move right_ movw; contact(R,)
+ {`"\tt contact(,R)"' at last [].s+(0,-0.2)
+ "\sl P" rjust at last [].P.w
+ "\sl O" ljust at last [].O
+ "\sl C" ljust at last [].C }
+ move right_ movw; contact(P)
+ {`"\tt contact(P)"' at last [].s+(0,-0.2)
+ "\sl P" rjust at last [].P.w
+ "\sl O" ljust at last [].O
+ "\sl C" ljust at last [].C }
+ move right_ movw; contact(O,); {`"\tt contact(O,)"' at last [].s+(0,-0.2)}
+ move right_ movw; contact(C,); {`"\tt contact(C,)"' at last [].s+(0,-0.2)}
+#move right_ movw; reed; {`"\tt reed"' at last [].s+(0,-0.2)}
+}
+move down 0.8
+right_
+{contact(I)
+ {`"\tt contact(I)"' at last [].s+(0,-0.2)
+ "\sl P" rjust at last [].P.w
+ "\sl O" ljust at last [].O.e
+ "\sl C" ljust at last [].C.e }
+ move right_ movw; contact(RI)
+ {`"\tt contact(RI)"' at last [].s+(0,-0.2)
+ "\sl P" rjust at last [].P.w
+ "\sl O" ljust at last [].O.e
+ "\sl C" ljust at last [].C.e }
+ move right_ movw; contact(PI)
+ {`"\tt contact(PI)"' at last [].s+(0,-0.2)
+ "\sl P" rjust at last [].P.w
+ "\sl O" ljust at last [].O.e
+ "\sl C" ljust at last [].C.e }
+ move right_ movw; contact(OI); {`"\tt contact(OI)"' at last [].s+(0,-0.2)}
+ move right_ movw; contact(CI); {`"\tt contact(CI)"' at last [].s+(0,-0.2)}
+#move right_ movw; reed(,,,fill_(0.9),CR);
+# {`"\shortstack[l]{\tt reed(\\\tt$\;\;$,{,},fill\_(0.9),CR)}"' \
+# at last [].s+(0,-0.2)}
+}
+move down 1.2
+right_
+{
+relay
+ {"\sl V1" wid 0.16 rjust at last [].V1
+ "\sl V2" ljust at last [].V2
+ "\sl P1" rjust at last [].P1.w
+ "\sl O1" ljust at last [].O1
+ "\sl C1" ljust at last [].C1 }
+`"\tt relay"' at last [].s+(0,-0.2)
+relay(2) with .sw at last [].sw+(1.2,0)
+ {"\sl V1" rjust at last [].V1
+ "\sl V2" ljust at last [].V2
+ "\sl P1" rjust at last [].P1.w
+ "\sl O1" ljust at last [].O1
+ "\sl C1" ljust below at last [].C1
+ "\sl P2" rjust at last [].P2.w
+ "\sl O2" ljust at last [].O2
+ "\sl C2" ljust at last [].C2 }
+`"\tt relay(2)"' at last [].s+(0,-0.2)
+relay(2,RPI) with .sw at last [].sw+(1.2,0)
+ {"\sl V1" rjust at last [].V1
+ "\sl V2" ljust at last [].V2
+ "\sl P1" rjust at last [].P1.w
+ "\sl O1" ljust at last [].O1
+ "\sl C1" ljust at last [].C1+(0,2pt__)
+ "\sl P2" rjust at last [].P2.w
+ "\sl O2" ljust at last [].O2+(0,-2pt__)
+ "\sl C2" ljust at last [].C2 }
+`"\tt relay(2,RIP)"' at last [].s+(0,-0.2)
+relay(2,O) with .sw at last [].sw+(1.2,0)
+`"\tt relay(2,O)"' at last [].s+(0,-0.2)
+relay(2,CT) with .sw at last [].sw+(1.2,0)
+`"\tt relay(2,CT)"' at last [].s+(0,-0.2)
+}
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Relay.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/Series.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Series.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Series.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,24 @@
+.PS
+# Series.m4
+cct_init
+
+[
+ setdir_(Right)
+ resistor; llabel(,R); capacitor; llabel(,C);
+ inductor; llabel(,L)
+]
+[
+
+ pushdef(`elen_',dimen_)
+ resistor; llabel(,R); capacitor; llabel(,C);
+ inductor; llabel(,L)
+ popdef(`elen_')
+] with .nw at last [].sw + (0,-0.15)
+
+[
+ resistor; llabel(,R)
+ capacitor( right_ dimen_/4); llabel(,C)
+ inductor; llabel(,L)
+] with .nw at last [].sw + (0,-0.15)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Series.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/ShiftR.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ShiftR.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ShiftR.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,49 @@
+.PS
+# ShiftR.m4
+log_init
+
+ iflatex(`textoffset = 1bp__; ifpsfrag(,`latexcommand({\sf)') ')
+
+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,:lg_bartxt(Q)), N:CLR) ')
+
+ F0: customFF(1)
+
+ BUFFER_gate(,N) with .Out at F0.W1.end
+ line left 2*L_unit from last [].In1
+ T: dot
+ reversed(`NOT_gate',left 10*L_unit)
+ Serial: "\scriptsize\shortstack[r]{SERIAL\\ INPUT}" rjust
+ 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)
+ "$\overline{\hbox{\scriptsize CLEAR}}$" at NCLR.start rjust
+
+ CLK: NOT_gate(right T.x-Serial.x from NCLR.start+(0,-BUF_ht*3/2*L_unit))
+ "\scriptsize CLOCK" at CLK.start rjust
+
+for_(1,4,1,`
+ F`'m4x: customFF(eval(m4x!=4)) with .W3.end at F`'eval(m4x-1).E3.end
+ ')
+
+ "\scriptsize OUTPUT" at F4.E1.end ljust
+ line from NCLR.end to F4.S1.end
+
+ down_
+for_(0,4,1,`
+ line from F`'m4x.W2.end down F0.W2.y-CLK.y
+ ifelse(eval(m4x!=4),1,`dot',`line to CLK.end')
+ N`'m4x: NAND_gate with .Out at F`'m4x.N1.end
+ line up 2*L_unit from N`'m4x.In2
+ { line up 6*L_unit from N`'m4x.In1
+ "\scriptsize PR`'eval(4-m4x)" rjust }
+ ifelse(eval(m4x!=4),1,
+ `dot; dot(at F`'m4x.S1.end)',
+ `line to (Serial,Here)
+ "\scriptsize\shortstack[r]{PRESET\\ ENABLE}" wid 0.4 rjust ')
+ ')
+
+ iflatex(ifpsfrag(,`latexcommand(})'))
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ShiftR.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/Sinus.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Sinus.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Sinus.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,18 @@
+.PS
+# Sinus.m4
+cct_init
+s_init(Sinus)
+sinclude(tst.dim)
+sinclude(Circuit_macros.dim)
+
+define(`phsource',`source($1,
+#`Set angle to 0, draw sinusoid, restore angle'
+ m4smp_ang = rp_ang; rp_ang = 0
+ sinusoid(m4h/2,twopi_/(m4h),
+ ifelse(`$2',,,`($2)/360*2*pi_+')pi_/2,-m4h/2,m4h/2) with .Origin at Here
+ rp_ang = m4smp_ang,
+$3,$4,$5)')
+
+phsource(,120)
+s_box(`{\tt phsourc{}e(,120)}') with .e at last line.end+(0,-0.2)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Sinus.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/Sources.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Sources.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Sources.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,56 @@
+.PS
+# `Sources.m4'
+cct_init
+divert(-1)
+
+divert(0)dnl
+
+iflatex(`ifpsfrag(,`latexcommand({\sf)') ')
+
+movewid = 2pt__
+moveht = 0.275
+define(`NL',`; move down $1; right_')
+{
+ {source ; move ; "`source'" ljust} NL
+ {source(,I) ; move ; "`source(,I)'" ljust} NL
+ {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(,AC); move ; "`source(,AC)'" ljust} NL
+ {source(,X) ; move ; "`source(,X)'" ljust} NL
+ {source(,F) ; move ; "`source(,F)'" ljust} NL
+ {source(,G) ; move ; "`source(,G)'" ljust} NL
+ {source(,Q) ; move ; "`source(,Q)'" ljust}
+}
+ move right_ 2.0
+{
+ {source(,,0.4) ; move ; "`source(,{,}0.4)'" ljust} NL(0.35)
+ {source(,P) ; move ; "`source(,P)'" ljust} NL
+ {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(,SCr) ; move ; "`source(,SCr)'" ljust} NL
+ {source(,T) ; move ; "`source(,T)'" ljust} NL
+ {source(,L) ; move ; "`source(,L)'" ljust} NL
+ {source(,B) ; move ; "`source(,B)'" ljust} NL(moveht*0.8)
+ {nullator ; move ; "`nullator'" ljust} NL(moveht*0.6)
+ {norator ; move ; "`norator'" ljust}
+}
+ move right_ 2.0
+ {source(,N) ; move ; "`source(,N)'" ljust} NL
+ {source(,"\rm mA");move; "`source(,\"mA\")'" ljust} NL(0.31)
+# {source(,"mA");move; "`source(,'" ljust \
+# "`\enskip \"mA\")'" ljust} NL(0.31)
+ {consource ; move ; "`consource'" ljust} NL(0.32)
+ {consource(,I) ; move ; "`consource(,I)'" ljust} NL(0.32)
+ {consource(,i) ; move ; "`consource(,i)'" ljust} NL(0.32)
+ {source(,SE) ; move ; "`source(,SE)'" ljust} NL
+ {consource(,V) ; move ; "`consource(,V)'" ljust} NL(0.32)
+ {consource(,v) ; move ; "`consource(,v)'" ljust} NL(0.3)
+ {battery ; move ; "`battery'" ljust} NL
+ {battery(,3,R) ; move ; "`battery(,3,R)'" ljust}
+
+iflatex(`ifpsfrag(,`latexcommand(})')')
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Sources.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/Switches.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Switches.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Switches.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,99 @@
+.PS
+# Switches.m4
+cct_init
+movewid = 0.25
+moveht = moveht*1.25
+ right_; {
+ lswitch; rlabel(,`\hbox{\tt `lswitch'}')
+ move right_
+ lswitch(,,O); rlabel(,`\hbox{\tt (,{,}O)}')
+ move right_
+ lswitch(,,C); rlabel(,`\hbox{\tt (,{,}C)}')
+ move right_
+ lswitch(,,DA); rlabel(,`\hbox{\tt (,{,}DA)}')
+ move right_
+ lswitch(,,DO); rlabel(,`\hbox{\tt (,{,}DO)}')
+ move right_
+ lswitch(,,DC); rlabel(,`\hbox{\tt (,{,}DC)}')
+ }
+ move down; right_; {
+ lswitch(,,K); rlabel(,`\hbox{\tt (,{,}K)}')
+ move right_
+ lswitch(,,KD); rlabel(,`\hbox{\tt (,{,}KD)}')
+ move right_
+ lswitch(,,KOD); rlabel(,`\hbox{\tt (,{,}KOD)}')
+ move right_
+ lswitch(,,KCD); rlabel(,`\hbox{\tt (,{,}KCD)}')
+ move right_
+ bswitch; rlabel(,`\hbox{\tt `bswitch'}')
+ move right_
+ bswitch(,,C); rlabel(,`\hbox{\tt (,{,}C)}')
+ }
+ move down; right_; {
+ S: dswitch(,,)
+ ifgpic(`{[line invis] at S.c+(0,-0.2)}')
+ rlabel(,`\hbox{\tt \shortstack{`dswitch'=\\`switch'(,{,},D)}}')
+ thinlines_
+ { spline <- from 0.25 along_(S) up 0.1 then up 0.05 left 0.1
+ "\tt W" rjust
+ spline <- from S.c+(0,m4sc*2) up 0.1 then up 0.05 left 0.1
+ "\tt B" rjust }
+ thicklines_
+ move right_
+ S: dswitch(,,WdBK); rlabel(,`\hbox{\tt (,{,}WdBK)}')
+ thinlines_
+ { spline <- from tr_xy(0,-2) up 0.1 then up 0.10 left 0.1
+ "\tt dB" rjust
+ spline <- from tr_xy(4,-2) right 0.1 then right 0.05 up 0.15
+ "\tt K" above }
+ thicklines_
+ move right_
+ dswitch(,,WBuD); rlabel(,`\hbox{\tt (,{,}WBuD)}')
+ move right_
+ dswitch(,,WdBKF); rlabel(,`\hbox{\tt (,{,}WdBKF)}')
+ move right_
+ dswitch(,,WBL); rlabel(,`\hbox{\tt (,{,}WBL)}')
+ move right_
+ dswitch(,,WdBKL); rlabel(,`\hbox{\tt (,{,}WdBKL)}')
+ }
+ move down; right_; {
+ dswitch(,,WBT); rlabel(,`\hbox{\tt (,{,}WBT)}')
+ move right_
+ dswitch(,,WdBKC); rlabel(,`\hbox{\tt (,{,}WdBKC)}')
+ move right_
+ dswitch(,,WBM); rlabel(,`\hbox{\tt (,{,}WBM)}')
+ move right_
+ dswitch(,,WBCO); rlabel(,`\hbox{\tt (,{,}WBCO)}')
+ move right_
+ dswitch(,,WBMP); rlabel(,`\hbox{\tt (,{,}WBMP)}')
+ move right_
+ dswitch(,,WBoKCP); rlabel(,`\hbox{\tt (,{,}WBoKCP)}')
+ }
+ move down; right_; {
+ dswitch(,,WBCY); rlabel(,`\hbox{\tt (,{,}WBCY)}')
+ move right_
+ dswitch(,,WBCZ); rlabel(,`\hbox{\tt (,{,}WBCZ)}')
+ move right_
+ dswitch(,,WBCE); rlabel(,`\hbox{\tt (,{,}WBCE)}')
+ move right_
+ dswitch(,,WBRH); rlabel(,`\hbox{\tt (,{,}WBRH)}')
+ move right_
+ dswitch(,,WBRdH); rlabel(,`\hbox{\tt (,{,}WBRdH)}')
+ move right_
+ dswitch(,,WBRHH); rlabel(,`\hbox{\tt (,{,}WBRHH)}')
+ }
+ move down; right_; {
+ dswitch(,,WBMMR); rlabel(,`\hbox{\tt (,{,}WBMMR)}')
+ move right_
+ dswitch(,,WBMM); rlabel(,`\hbox{\tt (,{,}WBMM)}')
+ move right_
+ dswitch(,,WBMR); rlabel(,`\hbox{\tt (,{,}WBMR)}')
+ move right_
+ dswitch(,,WBEL); rlabel(,`\hbox{\tt (,{,}WBEL)}')
+ move right_
+ dswitch(,,WBLE); rlabel(,`\hbox{\tt (,{,}WBLE)}')
+ move right_
+ dswitch(,,WdBoKEL); rlabel(,`\hbox{\tt (,{,}WdBoKEL)}')
+ }
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Switches.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/Taps.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Taps.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Taps.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,43 @@
+.PS
+# `Taps.m4'
+cct_init
+
+ t = 0.2 in__
+ right_
+ R1: resistor(,,E); addtaps(<-,0.2,-t,0.8,t)
+ "\sl R1.start" wid 0.5 ht 11pt__ at R1.start above
+ "\sl R1.end" at R1.end above
+ "\sl Tap1" at Tap1 rjust
+ "\sl Tap2" at Tap2 ljust
+ `"\tt right\_; t = 0.2in\_\_" ljust \
+ "\tt R1:$\;$resistor(,{,}E)" ljust \
+ "\tt addtaps(<-,0.2,-t,0.8,t)" ljust' at R1.end+(0.3,0)
+
+ move to R1.end+(2.25,0.1); right_
+ R2: ebox(,elen_*0.6,)
+ addtaps(type=-;name=Tx,0.2,-t,0.5,-t,0.8,-t)
+ "\sl Tx1" at Tx1 rjust
+ "\sl Tx3" at Tx3 ljust
+ `"\tt R2:$\;$ebox(,elen\_*0.6)" ljust \
+ "\tt addtaps(type=-;name=Tx," ljust \
+ "\tt \hspace*{0.2in}0.2,-t,0.5,-t,0.8,-t)" ljust ' at R2.end+(0.1,-0.15)
+
+ R3: tapped(`ebox(,elen_*0.6,)',->,0.2,-t,0.5,-t,0.8,-t) \
+ with .Start at R1.start+(0.25in__,-0.6in__)
+ "\sl R3.Start" at R3.Start rjust
+ "\sl R3.End" at R3.End ljust
+ "\sl R3.Tap1" at R3.Tap1 rjust
+ "\sl R3.Tap3" at R3.Tap3 ljust
+ `"\tt \
+ R3:$\;$tapped(`ebox(,elen\_*0.6,)',->,0.2,-t,0.5,-t,0.8,-t) \char92" ljust \
+ "\tt $\;$ with .Start at R1.start+(0.25in\_\_,-0.6in\_\_)" ljust' \
+ at R3.End+(0.5,0)
+
+ L1: tapped(`inductor(right_ 9*dimen_/8,,9)',
+ -,0,-t,3/9,-t/2,6/9,-t/2,1,-t) at R3+(0,-0.6)
+ `"\tt L1:$\;$tapped(`inductor(right\_ 9*dimen\_/8,{,}9)'," ljust' \
+ `"\hspace*{0.5in}\tt -,0,-t,3/9,-t/2,6/9,-t/2,1,-t)" ljust' at (last "",L1)
+ "\sl L1.Tap1" at L1.Tap1-(10pt__,0) below
+ "\sl L1.Tap4" at L1.Tap4+(10pt__,0) below
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Taps.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/Tgate.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Tgate.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Tgate.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,50 @@
+.PS
+# Tgate.m4
+cct_init
+right_
+
+[ { Q: tgate
+ "$A$" at Q.A rjust
+ "$B$" at Q.B ljust
+ "$G$" at Q.G ljust below
+ "$Gb$" at Q.Gb ljust above
+ `"\tt tgate"' at Q.A-(0.25,0) rjust
+ }
+
+ move down_ linewid; right_
+ { Q: tgate(,L)
+ "$A$" at Q.A rjust
+ "$B$" at Q.B ljust
+ "$G$" at Q.G ljust above
+ "$Gb$" at Q.Gb ljust below
+ `"\tt tgate(,L)"' wid 0.65 at Q.A-(0.25,0) rjust
+ }
+ ]
+
+[ { Q: tgate(,B)
+ "$A$" at Q.A rjust
+ "$B$" at Q.B ljust
+ "$G$" at Q.G ljust
+ `"\tt tgate(,B)"' at Q.G-(0,10bp__) below
+ }
+ ] with .Q.A at last [].Q.B+(0.5,linewid/2)
+
+[ { Q: ptrans
+ "$A$" at Q.A rjust
+ "$B$" at Q.B ljust
+ "$G$" at Q.G rjust below
+ "$Gb$" at Q.Gb rjust
+ `"\tt ptrans"' at Q.B+(0.25,0) ljust
+ }
+
+ move down_ linewid; right_
+ { Q: ptrans(,L)
+ "$A$" at Q.A rjust
+ "$B$" at Q.B ljust
+ "$G$" at Q.G ljust above
+ "$Gb$" at Q.Gb ljust below
+ `"\tt ptrans(,L)"' at Q.B+(0.25,0) ljust
+ }
+ ] with .Q.Gb at (last [].e.x+elen_/2+0.5,1st [].Q.Gb.y)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Tgate.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/Thermal.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Thermal.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Thermal.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,8 @@
+.PS
+# Thermal.m4
+cct_init
+define(`thermalsw',
+ `dswitch(`$1',`$2',WDdBT)
+ circle rad distance(M4T,last line.c) at last line.c')
+thermalsw
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Thermal.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/Tline.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Tline.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Tline.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,23 @@
+.PS
+# `Tline.m4'
+cct_init
+hgt = elen_*1.5
+ewd = dimen_*0.9
+define(`sresistor',`resistor(right_ ewd); llabel(,r)')
+define(`sinductor',`inductor(right_ ewd,W); llabel(,L)')
+define(`tsection',`sinductor
+ { dot; line down_ hgt*0.25; dot
+ parallel_(`resistor(down_ hgt*0.5); rlabel(,R)',
+ `capacitor(down_ hgt*0.5); rlabel(,C)')
+ dot; line down_ hgt*0.25; dot }
+ sresistor ')
+
+SW: Here
+ gap(up_ hgt)
+ sresistor
+ for i=1 to 4 do { tsection }
+ line dotted right_ dimen_/2
+ tsection
+ gap(down_ hgt)
+ line to SW
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Tline.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/Ttree.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Ttree.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Ttree.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,56 @@
+.PS
+# Ttree.m4
+# A binary tree using m4
+gen_init
+sinclude(tst.dim)
+s_init(Ttree)
+
+# `Node(no in row, head [location],
+# displacement of top of body (.n) wrt head,
+# body Node 1, body Node 2, ...) '
+define(`Node',`
+ Head`$1': `$2'
+ ifelse(`$3',,,`Body`$1': [
+ Loopover_(`v',`v; define(`m4ct',m4Lx)',shift(shift(shift($@))))
+ ] with .n at Head`$1' + `$3'
+ connect(`$1',m4ct)')')
+
+define(`connect',`Bot: move from Head$1.sw to Head$1.se
+for_(1,`$2',1,
+ `Top: move from Body$1.Head`'m4x.nw to Body$1.Head`'m4x.ne
+ Move: move from Head$1 to Body$1.Head`'m4x
+ if Bot.len*Top.len*Move.len > 0 then {
+ line from Intersect_(Move,Top) to Intersect_(Move,Bot)}')')
+
+ vsep = 0.75
+
+ Node(1,s_box($`h(h(h(x_1,x_2),h(x_3,x_4)),h(h(x_5,x_6),h(x_7,x_8)))'$),
+ (0,-vsep),
+ Node(1,s_box($`h(h(x_1,x_2),h(x_3,x_4))'$),
+ (0,-vsep),
+ Node(1,s_box($`h(x_1,x_2)'$),
+ (0,-vsep),
+ Node(1,s_box($`x_1:=((A,pk_A),h_1)'$)),
+ Node(2,s_box($`x_2:=((B,pk_B),h_2)'$) \
+ with .n at last "".ne+(0.2,-vsep*2/3))),
+ Node(2,s_box($`h(x_3,x_4)'$) with .nw at Head1.ne+(Body1.wid/2+0.1,0),
+ (0,-vsep),
+ Node(1,s_box($`x_3:=((A,pk_A^\prime),h_3)'$)),
+ Node(2,s_box($`x_4:=((D,pk_D),h_4)'$) \
+ with .n at last "".ne+(0.2,-vsep*2/3)))),
+ Node(2,s_box($`h(h(x_5,x_6),h(x_7,x_8))'$) \
+ with .nw at Head1.ne+(Body1.wid/2,0),
+ (0,-vsep),
+ Node(1,s_box($`h(x_5,x_6)'$),
+ (0,-vsep*5/4),
+ Node(1,s_box($`x_5:=((E,pk_E),h_5)'$)),
+ Node(2,s_box($`x_6:=((H,pk_H),h_6)'$) \
+ with .n at last "".ne+(0.2,-vsep*2/3))),
+ Node(2,s_box($`h(x_7,x_8)'$) with .nw at Head1.ne+(Body1.wid/2+0.1,0),
+ (0,-vsep*5/4),
+ Node(1,s_box($`x_7:=((D,pk_D^\prime),h_7)'$)),
+ Node(2,s_box($`x_8:=((K,pk_K),h_8)'$) \
+ with .n at last "".ne+(0.2,-vsep*2/3))),
+ Node(3,s_box($`h(x_9)'$) at 0.5 between Head1 and Head2)))
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Ttree.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/Variable.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Variable.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Variable.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,28 @@
+.PS
+# `Variable.m4'
+cct_init
+
+define(`elen_',dimen_); down_
+[ { variable(`capacitor') }; move right
+ { variable(`resistor',uN) }; move right
+ { variable(`capacitor(,C)') }; move right
+ { variable(`inductor') }; move right
+ { variable(`inductor(,W)') }
+ ]
+[
+ 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" }
+ Loopover_(`char',
+ `move down skp ifelse(char,A,*0.5)
+ { line invis right_ cskip "\tt char"
+ variable(`capacitor(,C)',char); move right_ hskip
+ variable(`capacitor(,C)',char`'C); move right_ hskip
+ variable(`capacitor(,C)',char`'S) }',
+ A,P,L,N)
+ ] with .w at last [].e+(0.4,0)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Variable.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/Version.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Version.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Version.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1 @@
+Version 9.0
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Version.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Windings.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Windings.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Windings.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,113 @@
+.PS
+cct_init
+# Windings.m4
+ ifelse(xtract(m4postprocessor,pstricks,pgf,mpost,pdf,postscript,svg),,
+ `print "
+ `pstricks, pgf, mpost, pdf, postscript, or svg required for Windings.m4'"
+ "`pstricks, pgf, mpost, pdf, postscript, or svg required for Windings.m4'"',
+`
+ s_init(Windings)
+ ifdef(`Windings_1',,`sinclude(FWindings.dim)')
+ sinclude(Circuit_macros.dim)
+ ifdef(`Windings_1',,`sinclude(tst.dim)')
+
+define(`vlight',`rgbstring(0.9,0.9,0.9)')
+define(`lightgray',`rgbstring(0.7,0.7,0.7)')
+
+[ W: winding ]
+ s_box(\tt w{}inding) at last [].s below
+
+[ winding(R) ] with .n at last "".s+(0,-0.1)
+ s_box(\tt w{}inding(R)) at last [].s below
+
+[ sk = 0.75
+ d = 1.5*sk
+ p = 0.4*sk
+ w = 1*sk
+
+W: winding(L,d,p,4,w,vlight)
+
+thinlines_
+ dimension_(from W.nw+(p/4,0) right p,0.1,s_box(\tt pitch\strut) above,W)
+ dimension_(from W.sw to W.nw,0.2,s_box(\tt diam),H)
+ dimension_(from W.e+(-p/2,-w/2) up w,-0.3,,s_ht)
+ s_box(\tt\hfill core wid) at W.e ljust
+ arrow <- up d-w+0.1 left d/10 from W.ne+(-p/2,-(d-w))
+ s_box(\tt core color) at Here+(-0.2,0) ljust above
+thicklines_
+] with .sw at last [].se+(0.25,0)
+ "\tt T1" at last [].W.T1 below
+ "\tt T2" at last [].W.T2 below
+
+[
+#`winding(L|R, diam, pitch, nturns, core wid, core color )'
+boxwid = 0.3
+boxht = 0.4
+ down_
+B1: box
+ winding(,boxwid*1.3,boxht/5,3,boxwid) at B1
+ "Left pins" "cw" at B1.s+(0,-0.15)
+ for_(1,2,1,`"\sl\small T`'m4x" at last [].T`'m4x rjust')
+B2: box at B1.e + (0.5,0)
+ winding(R,boxwid*1.3,boxht/5,3,boxwid) at B2
+ "Left pins" "ccw" at B2.s+(0,-0.15)
+ for_(1,2,1,`"\sl\small T`'m4x" at last [].T`'m4x rjust')
+ up_
+B3: box at B1.s + (0,-0.55)
+ winding(,boxwid*1.3,boxht/5,3,boxwid) at B3
+ "Right pins" "cw" at B3.s+(0,-0.15)
+ for_(1,2,1,`"\sl\small T`'m4x" at last [].T`'m4x ljust')
+B4: box at (B2,B3)
+ winding(R,boxwid*1.3,boxht/5,3,boxwid) at B4
+ "Right pins" "ccw" at B4.s+(0,-0.15)
+ for_(1,2,1,`"\sl\small T`'m4x" at last [].T`'m4x ljust')
+] with .sw at last [].se+(0.1,0)
+
+[
+ Q: box invis ht 1 wid 5/4
+ g = Q.wid/12
+ ironwid = Q.wid/4.5
+
+ line thick ironwid/(1bp__)+linethick from Q.n+(g/2-linethick/2 bp__,0) \
+ to Q.ne then to Q.se then to Q.sw then to Q.nw \
+ then to Q.n+(-g/2+linethick/2 bp__,0)
+ ifmpost(`rgbdraw(0.7,0.7,0.7,')
+ line thick ironwid/(1bp__)-linethick outlined lightgray \
+ from Q.n+(g/2+linethick/2 bp__,0) \
+ to Q.ne then to Q.se then to Q.sw then to Q.nw \
+ then to Q.n+(-g/2-linethick/2 bp__,0)
+ ifmpost(`)')
+
+thinlines_
+ dimension_(from Q.n+(-g/2,-ironwid/2) right g,-ironwid/4,
+ "$g$" below,1,2pt__)
+thicklines_
+
+ down_
+ P: winding(R,ironwid*5/4,ironwid/2,4,ironwid,lightgray) at Q.w
+ line left ironwid*2/3 from P.T1
+ arrow right to P.T1 "$i_1$" above
+ line left ironwid*2/3 from P.T2
+ gap(up_ to 2nd last line.end)
+ llabel(-,s_box($v_1$),+)
+ "$N_1$" at P.e ljust
+
+ up_
+ S: winding(L,ironwid*5/4,ironwid/2,4,ironwid,lightgray) at Q.e
+ line right ironwid*2/3 from S.T2
+ arrow left to S.T2 "$i_2$" above
+ line right ironwid*2/3 from S.T1
+ gap(up_ to 2nd last line.end)
+ rlabel(-,s_box($v_2$),+)
+ "$N_2$" at S.w rjust
+
+ box dashed rad ironwid/4 wid Q.wid ht Q.ht at Q
+ arrow right arrowht from 0.5 between Q.n and Q.ne
+ "$\phi$" ljust at Here+(0,5pt__)
+
+ move up ironwid/2 from Q.n
+ move down ironwid/2 from Q.s
+] with .sw at last [].se+(0.15,0)
+
+')
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Windings.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/Workflow.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Workflow.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Workflow.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,94 @@
+.PS
+# Workflow.m4
+gen_init
+command "{\small\sf"
+
+boxwid = boxwid*0.8
+
+B:[
+define(`fbox',`box fill_(0.95)')
+define(`lbx',`"\setbox0=\hbox{$1}\parbox{\wd0}{\raggedleft $2}" rjust')
+
+ boxwid = 0.58
+ boxht = 0.4
+ linethick_(1.0)
+ arrowwid = 0.05
+ arrowht = 0.1
+ fillval = 0.8
+ hsep = 0.06
+ vsep = 0.15
+
+ arlen = 0.5*1.25
+
+Tpic: fbox "\LaTeX"
+Pict2e: fbox "\LaTeX" "pict2e" with .w at Tpic.e+(boxwid*3/4,0)
+PDF: arrow <- up arlen from 0.5 between Tpic.n and Pict2e.n lbx(PDF,PDF\\ .pdf)
+ "\tt -d" rjust above
+
+ arrow <- up arlen from Pict2e.n lbx(\LaTeX,\LaTeX\\ .tex)
+E: Here
+ "\tt -e" rjust above
+
+ arrow <- up arlen from Tpic.n lbx(tpic,tpic\\ .tex)
+
+Psfrag: fbox "\LaTeX" "psfrag" with .w at Pict2e.e+(hsep,0)
+ arrow <- up arlen from Psfrag.n lbx(Postscript,Postscript\\ psfrag\\ .eps)
+ "\tt -f" rjust above
+ boxstep = Psfrag.x-Pict2e.x
+PGF: fbox "\LaTeX" "or" "PDFlatex" "tikz" ht 1.6*boxht \
+ with .nw at Psfrag.ne+(hsep,0)
+ arrow <- up arlen from PGF.n lbx(PGF,PGF\\ .tex)
+ "\tt -g" rjust above
+Mfpic: fbox "\LaTeX" "Mfpic" with .nw at PGF.ne+(hsep,0)
+MetaFont: fbox "Metafont" with .n at Mfpic.s+(0,-vsep)
+ arrow from Mfpic.s to MetaFont.n
+ arrow from MetaFont.s down vsep/2 then right boxwid/2+hsep/2 \
+ then up Mfpic.n.y-MetaFont.s.y+vsep*3/2 \
+ then left hsep/2+boxwid/4 then down vsep
+ arrow <- up arlen from Mfpic.n lbx(mfpic,mfpic\\ .tex)
+ "\tt -m" rjust above
+PSTricks: fbox "\LaTeX" "PSTricks" with .w at Mfpic.e+(hsep,0)
+ arrow <- up arlen from PSTricks.n lbx(PSTricks,PSTricks\\ .tex)
+ "\tt -p" rjust above
+
+ arrow <- up vsep from (0.5<PSTricks,Mfpic>,E)
+Dpic: fbox "dpic" with .s at Here
+
+MetaPost: fbox "MetaPost" with .w at PSTricks.e+(boxwid*3/4,0)
+ arrow <- up arlen from MetaPost.n lbx(Meta-,Meta-\\ Post\\ .mp)
+ "\tt -s" rjust above
+ arrow <- up arlen from 0.5 between PSTricks.n and MetaPost.n \
+ lbx(Post-,Post-\\ script\\ .eps)
+ "\tt -r" rjust above
+MPLaTeX: fbox ht boxht + vsep/2 "\LaTeX" "or" "PDFlatex" \
+ with .n at MetaPost.s+(0,-vsep)
+ arrow from MetaPost.s to MPLaTeX.n
+
+ arrow <- up arlen from MetaPost.n+(boxstep,0) lbx(SVG,SVG\\ .svg)
+ "\tt -v" rjust above
+Inkscape: fbox "Inkscape" "or" "HTML" with .n at last arrow.start
+ arrow <- up arlen from Inkscape.n+(boxstep,0) lbx(Xfig,Xfig\\ .fig)
+ "\tt -x" rjust above
+Xfig: fbox "Xfig" with .n at last arrow.start
+
+IsLaTeX: fbox ht boxht + vsep/2 "\LaTeX" "or" "PDFlatex" \
+ with .n at Inkscape.s+(0,-vsep)
+ arrow from Inkscape.s to IsLaTeX.n
+
+ line from (PDF,E) to (Xfig,E)
+
+Gpic: fbox "gpic -t" at (Tpic,Dpic)
+ line down vsep from Gpic.s
+M4: fbox "m4" at 0.5<Gpic,Dpic>
+ arrow from M4.e to Dpic.w ".pic" above
+ arrow from M4.w to Gpic.e ".pic" above
+ arrow <- up vsep from 1/3<M4.nw,M4.ne>
+ `"\setbox0=\hbox{Diagram source}\raisebox{-\dp0}{\box0}"' rjust
+ arrow <- up vsep from 2/3<M4.nw,M4.ne>
+ `"Macro libraries"' ljust
+]
+
+# print last [].wid
+
+command "}%"
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Workflow.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/Xform.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Xform.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Xform.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,39 @@
+.PS
+# `Xform.m4'
+cct_init
+
+divert(-1)
+define(`trlabels',
+ `{ thinlines_
+ ifelse(`$1',R,
+ `arrow from `$3'.P1 <- right 0.12 up 0.072 chop 1pt__ ; "\sl P1" ljust
+ arrow from `$3'.P2 <- right 0.12 down 0.072 chop 1pt__ ; "\sl P2" ljust
+ arrow from `$3'.TP <- right 0.12 chop 1pt__ ; "\sl TP" wid 0.2 ljust
+ arrow from `$3'.S1 <- left 0.12 up 0.072 chop 1pt__ ; "\sl S1" rjust
+ arrow from `$3'.S2 <- left 0.12 down 0.072 chop 1pt__ ; "\sl S2" rjust
+ arrow from `$3'.TS <- left 0.12 chop 1pt__ ; "\sl TS" rjust
+ ',`
+ arrow from `$3'.P1 <- left 0.12 up 0.072 chop 1pt__ ; "\sl P1" rjust
+ arrow from `$3'.P2 <- left 0.12 down 0.072 chop 1pt__ ; "\sl P2" rjust
+ arrow from `$3'.TP <- left 0.12 chop 1pt__ ; "\sl TP" wid 0.2 rjust
+ arrow from `$3'.S1 <- right 0.12 up 0.072 chop 1pt__ ; "\sl S1" ljust
+ arrow from `$3'.S2 <- right 0.12 down 0.072 chop 1pt__ ; "\sl S2" ljust
+ arrow from `$3'.TS <- right 0.12 chop 1pt__ ; "\sl TS" ljust
+ ')
+ `"'\tt `$2'`"' at `$3'.s+(0,-(`$4'))
+ thicklines_ } ')
+divert(0)dnl
+
+ down_
+ T1: transformer
+ trlabels(,`transformer',T1,0.3)
+ T2: transformer(down_ 0.6,,2,P,8) with .w at T1.e+(1,0)
+ trlabels(,`...(down\_ 0.6,,2,P,8)',T2,0.3)
+ T3: transformer(,,8,WD12,4) with .w at T2.e+(1,0)
+ trlabels(,`...(,,8,WD12,4)',T3,0.21)
+ T4: transformer(,,9,AL) with .sw at T3.se+(1,0)
+ trlabels(,`...(,,9,AL)',T4,0.3)
+ T5: transformer(,R,8,AW) with .sw at T4.se+(1,0)
+ trlabels(R,`...(,R,8,AW)',T5,0.3)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/Xform.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/bi_trans.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/bi_trans.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/bi_trans.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,65 @@
+.PS
+# `bi_trans.m4'
+sinclude(Circuit_macros.dim)
+s_init(bitrans)
+ifdef(`bitrans_1',,`sinclude(tst.dim)')
+
+cct_init
+
+[[
+Q: bi_trans(,,BCuEBUS)
+ s_box($C$) at Q.C below
+ s_box($B$) at Q.B above
+ s_box($E$) at Q.E below
+
+thinlines_
+M4_xyO: Q.M4_xyO
+ spline <- from tr_xy(0,5.25) left 0.1 then up 0.15 left 0.15
+ s_box(\tt B) above
+ spline <- from 0.5<tr_xy(3,0),tr_xy(1.2,4)> right 0.1 then right 0.15 up 0.15
+ s_box(\tt C) ljust
+ spline <- from 0.7<tr_xy(-2,4),tr_xy(2,4)> up 0.1 then right 0.15 up 0.15
+ s_box(\tt BU) above
+ spline <- from 0.7<tr_xy(-3,0),tr_xy(-1.2,4)> left 0.1 then left 0.15 up 0.15
+ s_box(\tt uE) rjust
+ arrow <- from Q.Bulk.start+vec_(vscal_(m4_U,0,0.5)) up 0.15 left 0.15
+ s_box(\tt S) above rjust
+ arrow <- from Q.Bulk.end up 0.1 right 0.1
+ s_box($\;\;$\tt S) above
+ ]
+ s_box(\tt bi\_trans(,{,}BCuEBUS)) at last [].s below
+]
+
+[[
+Q2: bi_trans(,,BCdE2BU)
+ s_box($C$) at Q2.C below
+ s_box($B$) at Q2.B above
+
+thinlines_
+M4_xyO: Q2.M4_xyO
+ arrow <- from Q2.E0 down 0.1 right 0.1; s_box($\;\;E0$) below
+ arrow <- from Q2.E2 down 0.1 left 0.1; s_box($E2\;\;$) below
+ arrow <- from Q2.E1 down 0.1 ; s_box($E1$) below
+ spline <- from 0.4<Q2.Em2.start,Q2.Em2.end> left 0.1 then up 0.15 left 0.15
+ s_box($Em2\;\;$) above
+ ]
+ s_box(\tt bi\_trans(,{,}BCdE2BU)) at last [].s below
+] with .nw at last [].ne+(0.5,0)
+
+[[
+Q2: bi_trans(,,BC2dEBU)
+ s_box($E$) at Q2.E below
+ s_box($B$) at Q2.B above
+
+thinlines_
+M4_xyO: Q2.M4_xyO
+ arrow <- from Q2.C0 down 0.1 left 0.1; s_box($C0\;\;$) below
+ arrow <- from Q2.C2 down 0.1 right 0.1; s_box($\;\;C2$) below
+ arrow <- from Q2.C1 down 0.1 ; s_box($C1$) below
+ spline <- from 0.4<Q2.Cm2.start,Q2.Cm2.end> right 0.1 then up 0.15 right 0.15
+ s_box($Cm2\;\;$) above
+ ]
+ s_box(\tt bi\_trans(,{,}BC2dEBU)) at last [].s below
+] with .nw at last [].ne+(0.5,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/bi_trans.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/bistable.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/bistable.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/bistable.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,35 @@
+.PS
+# `bistable.m4'
+cct_init # Default initialization
+
+ up_
+rgbdraw(1,0,0,
+Q1: bi_tr(,R) # Q1 upward with base to the right
+ llabel(,Q_1) ) # Label to left of last []
+rgbdraw(0,0,1,
+Q2: bi_tr with .C at Q1.C+(elen_*7/4,0) # Q2 with base to left
+ rlabel(,Q_2) )
+
+ ground(at Q1.E)
+ ground(at Q2.E)
+
+ line right_ dimen_/3 from Q1.B # Extend the base conductors
+B1: Here
+ line left_ dimen_/3 from Q2.B
+B2: Here
+
+ resistor(up_ elen_*0.75 from Q1.C); llabel(,"$R_L$" wid 0.16) #Load resistors
+ line to (Q2.C,Here) "$V_{\hbox{cc}}$" below
+ resistor(down_ to Q2.C); llabel(,R_L)
+
+ move to Q1.C+(0,dimen_/5)
+ { resistor(right_ to (B1,Here)); llabel(,R_1)
+X: line to B2 } # Label the line to be jumped
+ resistor(from (Q2.C,Here) left_ to (B2,Here)); rlabel(,R_1)
+ crossover(to B1,R,X)
+
+ resistor(down_ elen_*0.75); rlabel(,R_2) # Bias resistors
+ {"$-V_{\hbox{cc}}$" rjust}
+ line to (B2,Here)
+ resistor(up_ to B2); rlabel(,R_2)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/bistable.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/bitr.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/bitr.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/bitr.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,5 @@
+.PS
+# `bitr.m4'
+cct_init
+include(bitrbody.m4)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/bitr.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/bitrbody.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/bitrbody.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/bitrbody.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,4 @@
+S: dot; line left_ 0.1; up_
+Q1: bi_tr(,R) with .B at Here
+ground(at Q1.E)
+line up 0.1 from Q1.C; resistor(right_ S.x-Here.x); dot
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/bitrbody.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/body.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/body.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/body.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,3342 @@
+% body.tex
+\newcommand{\bq}{}
+\newcommand{\dpic}{{\bq dpic}\xspace}
+\newcommand{\Dpic}{{\bq Dpic}\xspace}
+\newcommand{\dvips}{{\bq dvips}\xspace}
+\newcommand{\gpic}{{\bq gpic}\xspace}
+\newcommand{\Gpic}{{\bq Gpic}\xspace}
+\newcommand{\groff}{{\bq groff}\xspace}
+\newcommand{\latex}{\LaTeX\xspace}
+\newcommand{\linespec}{{\sl linespec}\xspace}
+\newcommand{\MetaPost}{{\bq MetaPost}\xspace}
+\newcommand{\Mfour}{{\bq m4}\xspace}
+\newcommand{\mfpic}{{\bq mfpic}\xspace}
+\newcommand{\PDF}{{\bq PDF}\xspace}
+\newcommand{\pic}{{\bq pic}\xspace}
+\newcommand{\Pic}{{\bq Pic}\xspace}
+\newcommand{\Postscript}{{\bq Postscript}\xspace}
+\newcommand{\PSTricks}{{\bq PSTricks}\xspace}
+\newcommand{\SVG}{{\bq SVG}\xspace}
+\newcommand{\tex}{\TeX\xspace}
+\newcommand{\Textregistered}{\textregistered\xspace}
+\newcommand{\TPGF}{{\bq Ti{\it k}z~PGF}\xspace}
+\newcommand{\Tikz}{{\bq Ti{\it k}z}\xspace}
+\newcommand{\tpic}{{\bq tpic}\xspace}
+\newcommand{\xfig}{{\bq xfig}\xspace}
+\newcommand{\Xfig}{{\bq Xfig}\xspace}
+%
+\newcommand{\xection}[1]{\section[\texorpdfstring{#1\ \dotfill}{#1}]{#1}}
+\newcommand{\NVL}{\\\hspace*{\parindent}}
+\newcommand{\brtt}{\hfill\break\hspace*\parindent}
+\newcommand{\lbr}{{\tt\char123}}
+\newcommand{\rbr}{{\tt\char125}}
+\newcommand{\bsl}{{\tt\char92}}
+\newcommand{\SR}[1]{\hyperref[#1]{Section~\ref*{#1}}}
+\newcommand{\PR}[1]{\hyperref[#1]{page~\pageref*{#1}}}
+\newcommand{\FR}[1]{\hyperref[#1]{Figure~\ref*{#1}}}
+\newcommand{\FRS}[1]{\hyperref[#1]{Figures~\ref*{#1}}}
+\newcommand{\REF}[1]{\hyperref[#1]{\ref*{#1}}}
+\newcommand{\LQ}{\char96}
+\newcommand{\RQ}{\char39}
+%
+\newcommand{\Example}[1]{\vspace{\parsep}\noindent {\bf Example #1:}}
+%
+ \pdfbookmark[section]{\contentsname}{toc}
+\begin{multicols}{2}
+ \tableofcontents
+\end{multicols}
+%\enlargethispage{\baselineskip}
+%
+\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 manual is best viewed with a reader that shows bookmarks
+%for easy navigation and for exploring the list of defined macros.}%
+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}
+augmented with \Mfour macros~\cite{KRm4}, and are
+processed by \Mfour and a \pic processor to
+convert them to \TPGF, \PSTricks, other \latex-compatible code, or \SVG.
+In its basic form, the method has the advantages and disadvantages of
+\tex itself, since it is macro-based and non-WYSIWYG,
+with ordinary text input. The book from which the above quotation
+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},
+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
+combinations of them for particular drawings.
+
+\xection{Using the macros\label{Using:}}
+This section describes the basic process of adding circuit diagrams to
+\latex documents to produce postscript or pdf files. On some operating
+systems, project management software with graphical interfaces can be used
+to automate the process,
+but the steps can also be performed by a script,
+makefile, or by hand for simple documents as described in~\SR{Quickstart:}.
+
+The diagram source file is preprocessed as illustrated in
+\FR{Flowdiag}. A configuration file is read by \Mfour,
+followed by the diagram source.
+The result is passed through a
+\pic interpreter to produce {\tt .tex} output that can be inserted
+into a {\tt .tex} document using the \verb|\input| command.
+
+\begin{figure}[hbt]
+ \pdftooltip{\input Flowdiag }{Flow diagram for the inclusion of figures}
+ \caption{Inclusion of figures and macros in the \latex document.
+ \label{Flowdiag}}
+ \end{figure}
+
+\noindent
+The interpreter output contains
+\TPGF~\cite{tikz} commands,
+\PSTricks~\cite{pstricks} commands,
+basic \latex graphics,
+\tpic specials, or other formats,
+depending on the chosen options.
+These variations are described in \SR{Alternative:}.
+
+There are two principal choices of \pic interpreter. One is~\dpic,
+described later in this document. A partial alternative is
+GNU {\bq gpic -t} (sometimes simply named \pic)~\cite{gpic}
+together with a printer driver
+that understands \tpic specials, typically {\bq dvips}~\cite{dvips}.
+The \dpic processor extends the pic language in small but important ways;
+consequently, some of the macros and examples in this distribution work fully
+only with \dpic.
+\Pic processors contain basic macro facilities, so some of the
+concepts applied here do not require \Mfour.
+
+\subsection{Quick start\label{Quickstart:}}
+The contents of file {\tt quick.m4} and resulting diagram are shown in
+\FR{quick} to illustrate the language
+% to show several ways for placing circuit elements,
+%and to provide sufficient information for producing
+and the production of basic labeled circuits.
+\begin{figure}[h!]
+ \parbox{\textwidth}{\small\verbatiminput{quick.m4}}%
+ \hfill\llap{\raise-1.15in\hbox{\input quick }}%
+% \hfill\llap{\raise-1.15in\hbox{\pdftooltip{\input quick }%
+% {The file {\tt quick.m4} and resulting diagram.
+% There are several ways of drawing the same picture; for example,
+% nodes (such as {\tt Origin}) can be defined and circuit branches
+% drawn between them; or absolute coordinates can be used (e.g.,
+% {\tt source(up\_ from (0,0) to (0,0.75))} ). Element sizes and styles
+% can be varied as described in later sections.}}}%
+ \vspace*{-\baselineskip}%
+ \caption{The file {\tt quick.m4} and resulting diagram.
+ There are several ways of drawing the same picture; for example,
+ nodes (such as {\tt Origin}) can be defined and circuit branches
+ drawn between them; or absolute coordinates can be used (e.g.,
+ {\tt source(up\_ from (0,0) to (0,0.75))} ). Element sizes and styles
+ can be varied as described in later sections.\label{quick}}%
+ \end{figure}
+
+\subsubsection{\protect{Using \Mfour}%
+\label{Usingmfour:}}
+The command
+
+ {\vspace*\parsep\tt
+ m4 {\sl filename \ldots}
+ \vspace*\parsep}
+
+\noindent
+causes \Mfour\ to search for the named
+files in the current directory and directories specified
+by environmental variable {\tt M4PATH}.
+Set {\tt M4PATH} to the full name (i.e., the path) of the directory containing
+{\tt libcct.m4} and the other circuit library {\tt .m4} files; otherwise
+invoke \Mfour\ as {\tt m4 -I} {\sl installdir}
+where {\sl installdir} is the path to the directory
+containing the library files.
+Now there are at least two basic possibilities as follows,
+but be sure to read \SR{Simplifications:} for simplified use.
+
+\subsubsection{\protect{Processing with \dpic and \PSTricks or \TPGF}%
+\label{Processingwithpstricks:}}
+If you are using \dpic with \PSTricks,
+put \verb|\usepackage{pstricks}| in the main \latex source file header and
+type the following commands or put them into a script:
+
+ {\vspace*\parsep\tt
+ m4 pstricks.m4 quick.m4 > quick.pic
+ \brtt
+ dpic -p quick.pic > quick.tex
+ \vspace*\parsep}
+
+
+\noindent
+To produce \TPGF code,
+the \latex header should contain \verb|\usepackage{tikz}|.
+The commands are modified to read \verb|pgf.m4|
+and invoke the {\tt-g} option of \dpic as follows:
+
+ {\vspace*\parsep\tt
+% {\tt
+ m4 pgf.m4 quick.m4 > quick.pic
+ \brtt
+ dpic -g quick.pic > quick.tex
+ \vspace*\parsep}
+
+A configuration file ({\tt pstricks.m4} and {\tt pgf.m4} in the
+above examples) is {\em always} the first file to be given to \Mfour.
+Put the following or its equivalent in the document body:
+\begin{verbatim}
+\begin{figure}[hbt]
+ \centering
+ \input quick
+ \caption{Customized caption for the figure.}
+ \label{Symbolic_label}
+\end{figure}
+\end{verbatim}
+Then for \PSTricks,
+the commands ``{\tt latex} {\sl file}{\tt;} {\tt dvips} {\sl file}''
+produce {\sl file}{\tt.ps},
+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.
+
+The effect of the \Mfour command above is shown in \FR{ConfigA}.
+Configuration files {\tt pstricks.m4} or {\tt pgf.m4}
+cause library {\tt libgen.m4}
+to be read, thereby defining the macro {\tt cct\_init}.
+The diagram source file is then read and
+the circuit-element macros in {\tt libcct.m4} are defined during
+expansion of {\tt cct\_init}.
+\begin{figure}[hbt]
+ \input ConfigA
+ \caption{The command
+ {\tt m4 pstricks.m4 quick.m4 > quick.pic}.
+ \label{ConfigA}}
+ \end{figure}
+
+\subsubsection{Processing with \gpic\label{Processingwithgpic:}}
+If your printer driver understands \tpic specials and
+you are using \gpic (on some systems the \gpic command is {\tt pic}),
+the commands are
+
+ {\tt
+ m4 gpic.m4 quick.m4 > quick.pic
+ \brtt
+ gpic -t quick.pic > quick.tex
+ \vspace*\parsep}
+
+\noindent
+and the figure inclusion statements are as shown:
+\begin{verbatim}
+\begin{figure}[hbt]
+ \input quick
+ \centerline{\box\graph}
+ \caption{Customized caption for the figure.}
+ \label{Symbolic_label}
+ \end{figure}
+\end{verbatim}
+
+\subsubsection{Simplifications\label{Simplifications:}}
+M4 must read a configuration file before any other files,
+%followed by the macro definitions in one or more library files,
+either before reading the diagram source file or at the beginning of it.
+There are several ways to control the process, as follows:
+\begin{enumerate}
+\item
+The macros can be processed by \latex-specific
+project software and by graphic applications such as Cirkuit~\cite{KDEApps2009}.
+Alternatively when many files are to be processed, a facility such as
+Unix ``make,'' which is also available in PC and Mac versions, can be employed
+to automate the required commands. On systems without such
+facilities, a scripting language can be used.
+
+\item
+The \Mfour commands illustrated above can be shortened to
+
+\verb|m4 quick.m4 > quick.pic|
+
+\noindent
+by inserting {\tt include(pstricks.m4)} (assuming \PSTricks processing)
+%or {\tt include(libgen.m4)} (assuming the default processor is to be used)
+{\em immediately} after the {\tt .PS} line, the effect of which
+%The effect of the first include statement
+is shown in \FR{ConfigB}.
+However, if you then want to use \TPGF,
+the line must be changed to {\tt include(pgf.m4)}.
+%and the second in \FR{ConfigC}.
+\begin{figure}[h!]
+ \input{ConfigB}
+ \caption{The command {\tt m4 quick.m4 > quick.pic},
+ with {\tt include(pstricks.m4)} preceding {\tt cct\_init}.}
+ \label{ConfigB}
+ \end{figure}
+%\begin{figure}[h!]
+% \input{ConfigC}
+% \caption{The command {\tt m4 quick.m4 > quick.pic},
+% with {\tt include(libgen.m4)} preceding {\tt cct\_init}, causing
+% the default configuration file to be read.}
+% \label{ConfigC}
+% \end{figure}
+
+%\item
+%On some systems, setting the environment variable {\tt M4PATH} to {\sl
+%installdir} allows the {\tt -I} {\sl installdir} option of \Mfour to
+%be omitted, but it will be kept in following examples.
+
+\item
+In the absence of a need to examine the file {\tt quick.pic},
+the commands for producing the {\tt .tex} file can be reduced
+(provided the above inclusions have been made) to
+
+\verb%m4 quick.m4 | dpic -p > quick.tex%
+
+\item
+It may be desirable to invoke \Mfour and \dpic automatically from the
+document file as shown:
+
+{\tt \verb^\documentclass{article}^ \brtt
+\verb^\usepackage{tikz}^ \brtt
+\verb^\newcommand\mtotex[2]{\immediate\write18{m4 ^%-I^ {\sl installdir}
+\verb^#2.m4 | dpic -#1 > #2.tex}}%^\break
+\verb^\begin{document}^ \brtt
+\verb^\mtotex{g}{FileA} % Generate FileA.tex^ \brtt
+\verb^\input{FileA.tex} \par^ \brtt
+\verb^\mtotex{g}{FileB} % Generate FileB.tex^ \brtt
+\verb^\input{FileB.tex}^ \brtt
+\verb^\end{document}^
+ \vspace*\parsep}
+
+The first argument of \verb|\mtotex| is a {\tt p} for pstricks or
+{\tt g} for pgf.
+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|.
+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.
+This method processes the picture source each time \latex is run, so for
+large documents containing many diagrams, the \verb|\mtotex|
+lines could be commented out after debugging the corresponding graphic.
+A derivative of this method that allows the insertion of
+\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:
+
+%\enlargethispage{\baselineskip}
+\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 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.
+\end{enumerate}
+
+\subsection{Including the libraries\label{Libraries:}}
+The configuration files for \dpic are as follows,
+depending on the output format (see \SR{Alternative:}):
+{\tt pstricks.m4, pgf.m4, mfpic.m4, mpost.m4, postscript.m4, psfrag.m4, svg.m4,
+ gpic.m4,} or {\tt xfig.m4}.
+The file {\tt psfrag.m4} simply defines the macro {\tt psfrag\_} and
+then reads {\tt postscript.m4}.
+For \gpic, the configuration file is {\tt gpic.m4}.
+The usual case for producing circuit diagrams is to read
+{\tt pstricks.m4} or {\tt pgf.m4} first when \dpic is the postprocessor or
+to set one of these as the default configuration file.
+
+At the top of each diagram source, put one or more initialization
+commands; that is,
+
+{\tt cct\_init, log\_init, sfg\_init, darrow\_init, threeD\_init}
+
+\noindent
+or, for diagrams not requiring specialized macros, {\tt gen\_init}.
+As shown in \FRS{ConfigA} and~\REF{ConfigB},
+each initialization command reads in the appropriate macro
+library if it hasn't already been read;
+for example, {\tt cct\_init} tests whether {\tt libcct.m4} has been
+read and includes it if necessary.
+
+A few of the distributed example files contain other experimental macros
+that can be pasted into diagram source files; see
+{\tt Flow.m4} or {\tt Buttons.m4}, for example.
+
+The libraries contain hints and explanations that might help in debugging
+or if you wish to modify any of the macros. Macros are generally named
+using the obvious circuit element names so that programming becomes something
+of an extension of the \pic language. Some macro names end in an underscore
+to reduce the chance of name clashes. These can be invoked in the
+diagram source but there is no long-term guarantee that their names and
+functionality
+will remain unchanged. Finally, macros intended only for internal use
+begin with the characters {\tt m4}.
+
+\xection{\Pic essentials\label{Pic:}}
+
+\Pic source is a sequence of lines in a 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.
+
+The visible objects can be divided conveniently into two classes, the
+{\em linear} objects {\tt line, arrow, spline, arc,} and the
+{\em planar} objects {\tt box, circle, ellipse.}
+
+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.
+
+\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
+beginning with an upper-case letter.
+
+\subsection{Manuals\label{Manuals:}}
+The classic \pic manual~\cite{KRpic} is still a good introduction to \pic, but
+a more complete manual~\cite{Raymond95} can be found in the GNU \groff\
+package, and both are available on the web~\cite{KRpic,Raymond95}. Reading
+either will give you competence with \pic in an hour or two. Explicit mention
+of {\tt *roff} string and font constructs in these manuals should be replaced by
+their equivalents in the \latex context. A man-page language summary is
+appended to the \dpic manual~\cite{Aplevich2011}.
+
+A web search will yield good discussions of ``little languages'';
+for \pic in particular, see Chapter~9 of~\cite{Bentley88}.
+Chapter~1 of reference~\cite{Goossens97} also contains a brief
+discussion of this and other languages.
+
+\subsection{The linear objects: {\tt line, arrow, spline, arc}%
+\label{Linearobjects:}}
+A line can be drawn as follows:
+
+{\tt line from} {\sl position} {\tt to} {\sl position}
+
+\noindent
+where {\sl position} is defined below or
+
+{\tt line} {\sl direction} {\sl distance}
+
+\noindent
+where {\sl direction} is one of {\tt up,} {\tt down,} {\tt left,}
+{\tt right.} When used with the \Mfour macros described here, it is
+preferable to add an underscore: {\tt up\_,} {\tt down\_,} {\tt left\_,}
+{\tt right\_.} The {\sl distance} is a number or expression
+and the units are inches, but the assignment
+
+{\tt scale = 25.4}
+
+\noindent
+has the effect of changing the units to millimetres,
+as described in \SR{Scaling:}.
+
+Lines can also be drawn to any distance in any direction. The example,
+
+{\tt line up\_ 3/sqrt(2) right\_ 3/sqrt(2) dashed}
+
+\noindent
+draws a line 3 units long from the current location,
+at a $45^\circ$ angle above horizontal.
+Lines (and other objects) can be specified as {\tt dotted,} {\tt dashed,} or
+{\tt invisible,} as above.
+
+The construction
+
+{\tt line from A to B chop x}
+
+\noindent
+truncates the line at each end by {\tt x} (which may be negative)
+or, if {\tt x} is omitted, by
+the current circle radius, which is convenient when A and B are
+circular graph nodes, for example. Otherwise
+
+{\tt line from A to B chop x chop y}
+
+\noindent
+truncates the line by {\tt x} at the start and {\tt y} at the end.
+
+Any of the above means of specifying line (or arrow) direction and length
+will be called a \linespec.
+
+Lines can be concatenated. For example, to draw a triangle:
+
+{\tt line up\_ sqrt(3) right\_ 1 then down\_ sqrt(3) right\_ 1 then left\_ 2}
+
+\subsection{Positions\label{Positions:}}
+A {\sl position} can be defined by a coordinate pair, e.g. {\tt 3,2.5},
+more generally using parentheses by {\tt (}{\sl expression, expression}{\tt )},
+as a sum or difference as
+{\tt{\sl position} $+$ ({\sl expression, expression})},
+or by the construction {\tt (}{\sl position, position}{\tt )},
+the latter taking the $x$-coordinate from the first
+position and the $y$-coordinate from the second. A position can be
+given a symbolic name beginning with an upper-case letter,
+e.g. {\tt Top:~(0.5,4.5)}. Such a definition does not affect the calculated
+figure boundaries. The current position {\tt Here} is always defined and
+is equal to $(0,0)$ at the beginning of a diagram or block.
+The coordinates of a position are accessible, e.g. {\tt Top.x} and
+{\tt Top.y} can be used in expressions. The center, start, and end of
+linear objects (and the defined points of other objects as described below)
+are predefined positions, as shown in the following example,
+which also illustrates how to refer to a previously drawn element if it has
+not been given a name:
+
+{\tt line from last line.start to 2nd last arrow.end then to 3rd line.center}
+
+Objects can be named (using a name commencing with an upper-case letter),
+for example:
+
+{\tt Bus23: line up right}
+
+\noindent
+after which, positions associated with the object can be referenced using the
+name; for example:
+
+{\tt arc cw from Bus23.start to Bus23.end with .center at Bus23.center}
+
+An arc is drawn by specifying its rotation, starting point, end point, and
+center, but sensible defaults are assumed if any of these are omitted.
+Note that
+
+{\tt arc cw from Bus23.start to Bus23.end}
+
+\noindent
+does {\em not} define the arc uniquely; there are two arcs that satisfy this
+specification.
+This distribution includes the \Mfour macros
+
+{\tt arcr( {\sl position, radius, start radians, end radians, modifiers, ht})
+\hfill\break\indent
+ arcd( {\sl position, radius, start degrees, end degrees, modifiers, ht})
+\hfill\break\indent
+ arca( {\sl chord linespec,} ccw|cw, {\sl radius, modifiers})
+}
+
+\noindent to draw uniquely defined arcs.
+If the fifth argument of {\tt arcr} or {\tt arcd} contains {\tt ->} or {\tt <-}
+then a midpoint arrowhead of height specified by arg6 is added.
+For example,
+
+{\tt arcd((1,-1),{},0,-90,<- outlined "red") dotted}
+
+\noindent draws a red dotted arc with midpoint arrowhead,
+ centre at $(1,-1),$ and default radius.
+ The example
+
+{\tt arca(from (1,1) to (2,2),{,}1,->)}
+
+\noindent draws an acute angled arc with arrowhead on the chord defined by the
+first argument.
+
+The linear objects can be given arrowheads at the start, end, or both ends,
+for example:
+
+{\tt line dashed <- right 0.5\hfill\break
+\hspace*{\parindent}%
+arc <-> height 0.06 width 0.03 ccw from Here to Here+(0.5,0)
+ \char92\hfill\break
+\hspace*{2\parindent}%
+ with .center at Here+(0.25,0)\hfill\break
+\hspace*{\parindent}%
+spline -> right 0.5 then down 0.2 left 0.3 then right 0.4}
+
+The arrowheads on the arc above have had their shape adjusted using the
+{\tt height} and {\tt width} parameters.
+
+\subsection{The planar objects: {\tt box, circle, ellipse}, and text%
+\label{Planarobjects:}}
+Planar objects are drawn by specifying the width, height, and position, thus:
+
+{\tt A: box ht 0.6 wid 0.8 at (1,1)}
+
+\noindent
+after which, in this example, the position {\tt A.center} is defined,
+and can be referenced simply as {\tt A}.
+The compass points {\tt A.n,} {\tt A.s,} {\tt A.e,} {\tt A.w,} {\tt A.ne,}
+{\tt A.se,} {\tt A.sw,} {\tt A.nw} are automatically defined, as are
+the dimensions {\tt A.height} and {\tt A.width.}
+Planar objects can also be placed by specifying the location of a defined
+point; for example, two touching circles can be drawn as shown:
+
+{\tt circle radius 0.2\hfill\break
+\hspace*{\parindent}%
+circle diameter (last circle.width * 1.2) with .sw at last circle.ne}
+
+The planar objects can be filled with gray or colour.
+For example, either
+
+{\tt box dashed fill\_({\sl number})}\quad or\quad
+ {\tt box dashed outlined "{\sl color}" shaded "{\sl color}"}
+
+\noindent
+produces a dashed box. The first case has a gray fill determined by
+{\sl number}, with $0$ corresponding to black and $1$ to white;
+the second case allows color outline and fill, the color strings depending on
+the postprocessor.
+Postprocessor-compatible RGB color strings are produced by the macro
+{\tt rgbstring({\sl red fraction, green fraction, blue fraction})};
+to produce an orange fill for example:
+
+{\tt ... shaded rgbstring( 1, 0.645, 0)}
+
+Basic colours for lines and fills are provided by \gpic and \dpic,
+but more elaborate line and fill styles or other effects
+can be incorporated, depending on the postprocessor, using
+%by inserting postprocessor commands using
+%{\tt \char92 special} commands or
+%other lines beginning with a backslash in the drawing code. In fact,
+%arbitrary lines can be inserted into the output using
+
+{\tt command "}{\sl string}{\tt "}
+
+\noindent where {\sl string} is one or more postprocessor command lines.
+
+Arbitrary text strings, typically meant to be typeset by \latex, are
+delimited by double-quote characters and occur in two ways. The first
+way is illustrated by
+
+\verb|"\large Resonances of $C_{20}H_{42}$"|
+ \verb|wid |{\sl x}\verb| ht |{\sl y}\verb| at |{\sl position}
+
+\noindent
+which writes the typeset result, like a box, at {\sl position} and tells
+\pic its size. The default size assumed by \pic is given by parameters
+{\tt textwid} and {\tt textht} if it is not specified as above.
+The exact typeset size of formatted text can be obtained
+as described in \SR{Interaction:}. The second occurrence
+associates one or more strings with an object, e.g., the following writes
+two words, one above the other, at the centre of an ellipse:
+%\enlargethispage{\baselineskip}
+
+\verb|ellipse "\bf Stop" "\bf here"|
+
+\noindent
+The C-like \pic function
+ {\tt sprintf("{\sl format string}",{\sl numerical arguments})}
+is equivalent to a string.
+
+\subsection{Compound objects\label{Compoundobjects:}}
+A compound object is a group of statements enclosed in square
+brackets. Such an object is placed by default as if it were a box, but
+it can also be placed by specifying the final position of a defined point.
+A defined point is the center or compass corner of the bounding box
+of the compound object or one of its internal objects.
+Consider the last line of the code fragment shown:
+
+\noindent%
+\verb| Ands: [ right_|\\
+\verb| And1: AND_gate|\\
+\verb| And2: AND_gate at And1 - (0,And1.ht*3/2)|\\
+\verb| |$\ldots$\\
+\verb| ] with .And2.In1 at| {\sl position} % (K.x,IC5.Pin9.y)|
+
+The two gate macros evaluate to compound objects containing {\tt Out},
+{\tt In1}, and other locations. The final positions of all objects
+inside the square brackets are determined in the last line by
+specifying the position of {\tt In1} of gate {\tt And2}.
+
+\subsection{Other language facilities\label{Otherlanguage:}}
+
+All objects have default sizes, directions, and other characteristics,
+so part of the specification of an object can sometimes be profitably
+omitted.
+
+Another possibility for defining positions is
+
+{\sl expression} {\tt between} {\sl position}
+ {\tt and} {\sl position}
+
+\noindent%
+which means
+
+$\hbox{\sl 1st position} + \hbox{\sl expression} \times
+ (\hbox{\sl 2nd position} - \hbox{\sl 1st position})$
+
+\noindent and which can be abbreviated as
+
+{\sl expression} {\tt <} {\sl position} {\tt ,} {\sl position} {\tt >}
+
+\noindent%
+Care has to be used in processing the latter construction with \Mfour,
+since the comma may have to be put within quotes, {\tt `,'}
+to distinguish it from the {\tt m4} argument separator.
+
+Positions can be calculated using expressions containing variables.
+The scope of a position is the current block. Thus, for example,
+
+{\tt
+ theta = atan2(B.y-A.y,B.x-A.x)
+
+ line to Here+(3*cos(theta),3*sin(theta)).
+ }
+
+Expressions are the usual algebraic combinations of primary quantities:
+constants, environmental parameters such as {\tt scale,} variables,
+horizontal or vertical coordinates of terms such as
+{\sl position}{\tt.x} or {\sl position}{\tt.y},
+dimensions of \pic objects, e.g. {\tt last circle.rad}.
+The elementary algebraic operators are
+{\tt +, -, *, /, \%, =, +=, -=, *=, /=,} and {\tt \%=,}
+similar to the C language.
+
+The logical operators {\tt ==, !=, <=, >=, >,} and {\tt <} apply to
+expressions and strings. A modest selection of numerical functions is
+also provided: the single-argument functions {\tt sin, cos, log, exp,
+sqrt, int}, where {\tt log} and {\tt exp} are base-10, the two-argument
+functions {\tt atan2, max, min,} and the random-number generator {\tt
+rand()}. Other functions are also provided using macros.
+
+A \pic manual should be consulted for details, more examples, and
+other facilities, such as the branching facility
+
+\verb|if |{\sl expression}\verb| then { |{\sl anything}
+ \verb|} else { |{\sl anything}\verb| }|,
+
+\noindent%
+the looping facility
+
+\verb|for |{\sl variable}\verb| = |{\sl expression}\verb| to |%
+{\sl expression}\verb| by |{\sl expression}\verb| do { |%
+{\sl anything}\verb| }|,
+
+\noindent%
+%\enlargethispage{\baselineskip}
+operating-system commands, \pic macros, and external file inclusion.
+
+\xection{Two-terminal circuit elements\label{Basictwo:}}
+There is a fundamental difference between the two-terminal elements, each
+of which is drawn along an invisible straight-line segment,
+and other elements, which are compound objects mentioned
+in \SR{Compoundobjects:}. The two-terminal element macros follow a
+set of conventions described in this section, and other elements will
+be described in \SR{Composite:}.
+
+\subsection{Circuit and element basics\label{Basics:}}
+A list of the library macros and their arguments is in
+\SR{defines}. The arguments have default values, so that only
+those that differ from defaults need be specified.
+
+\FR{BigResistor}, which shows a resistor, also serves as
+an example of \pic commands.
+%Consider the resistor shown in \FR{BigResistor},
+%which also serves as an example of \pic commands.
+The first part of the source file for this figure is
+%as follows:
+on the left:
+
+\begin{figure}[hbt]
+ \parbox{2in}{\tt .PS\\ \hbox{}\quad cct\_init\\ \hbox{}\quad linewid = 2.0\\
+ \hbox{}\quad linethick\_(2.0)\\ R1: resistor}
+ \raisebox{-0.3in}{\hbox{\input{BigResistor.tex}}}
+ \caption{Resistor named {\tt R1}, showing the size parameters,
+ enclosing block, and predefined positions.}
+ \label{BigResistor}
+ \end{figure}
+The lines of \FR{BigResistor}
+and the remaining source lines of the file are explained below:
+\begin{itemize}
+\item The first line invokes the macro {\tt cct\_init} that
+ loads the library {\tt libcct.m4}
+ and initializes local variables needed by some circuit-element macros.
+
+\item
+ The sizes of circuit elements are proportional to the \pic environmental
+ variable {\tt linewid}, so redefining this variable changes element
+ sizes. The element body is drawn in proportion to {\tt dimen\_},
+ a macro that evaluates to {\tt linewid} unless redefined, and the default
+ element length is {\tt elen\_}, which evaluates to
+ {\tt dimen\_*3/2} unless redefined.
+ Setting {\tt linewid} to 2.0 as in the example means that the default element
+ length becomes 3.0\,in.
+ For resistors, the default length of the body is {\tt dimen\_/2,} and the
+ width is {\tt dimen\_/6.} All of these values can be customized.
+ Element scaling and the use of SI units is discussed further in
+ \SR{Scaling:}.
+
+\item The macro {\tt linethick\_} sets the default thickness of subsequent
+ lines (to 2.0\,pt in the example).
+ Macro arguments are written within parentheses
+ following the macro name, with no space between the name and the
+ opening parenthesis. Lines can be broken before macro arguments
+ because \Mfour and \dpic ignore white space immediately preceding
+ arguments. Otherwise, a long line can be continued to the next
+ by putting a backslash as the rightmost character.
+\item The two-terminal element macros expand to sequences of drawing commands
+ that begin with {\tt `line invis \linespec'},
+ where \linespec is the first argument of the macro if it
+ is non-blank, otherwise the line is drawn a distance
+ {\tt elen\_} in the current direction, which is to the right by
+ default.
+% All this is handled by the macro {\tt eleminit\_}, which also
+% calculates the length and angle of the invisible line for later use.
+ The invisible line is first drawn, then the element is drawn
+ on top of it.
+ The element---rather, the initial invisible line---can
+ be given a name, {\tt R1} in the example, so that positions
+ {\tt R1.start}, {\tt R1.centre}, and {\tt R1.end} are automatically
+ defined as shown.
+\item The element body is overlaid by a block, which can be
+ used to place labels around the element. The block
+ corresponds to an invisible rectangle with horizontal top and bottom lines,
+ regardless of the direction in which the element is drawn. A
+ dotted box has been drawn in the diagram to show the block boundaries.
+\item The last sub-element, identical to the first in two-terminal
+ elements, is an invisible line that can be referenced later to
+ place labels or other elements.
+% This might be over-kill.
+ If you create your own macros, you might choose simplicity over generality,
+ and include only visible lines.
+ \end{itemize}
+
+To produce \FR{BigResistor}, the following embellishments
+were added after the previously shown source:
+{\small \input BigResistor2.verb }
+
+\begin{itemize}
+\item The line thickness is set to the default thin value of \hbox{0.4\,pt},
+ and the box displaying the element body block is drawn. Notice how the
+ width and height can be specified, and the box centre positioned at
+ the centre of the block.
+\item The next paragraph draws two objects, a spline with an arrowhead,
+ and a string left justified at the end of the spline. Other
+ string-positioning modifiers than {\tt ljust} are {\tt rjust,}
+ {\tt above,} and {\tt below.}
+
+\item The last paragraph invokes a macro for dimensioning diagrams.
+ \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}.
+Several elements are included more than once to illustrate
+some of their arguments, which are listed in \SR{defines}.
+\begin{figure}[h!]
+ \input CctTable
+ \ifpdf\vspace*{-0.5\baselineskip}\fi%
+ \caption{Basic two-terminal elements, showing some variations.}
+ \label{CctTable}
+ \end{figure}
+
+The first macro argument specifies
+the invisible line segment along which the element is drawn.
+If the argument is blank,
+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}[t!]
+ \input Sources
+ \ifpdf\vspace*{-0.5\baselineskip}\fi%
+ \caption{Sources and source-like elements.}
+ \label{Sources}
+ \end{figure}
+\begin{figure}[t!]
+ \input Diodes
+ \caption{The macro
+ {\tt diode(\linespec,B|CR|D|L|LE[R]|P[R]|S|T|V|v|w|Z|{\sl chars},[R][E])}.
+ Appending {\tt K} to the second argument draws an open arrowhead.}
+ \label{Diodes}
+ \end{figure}
+Thus, for example,
+
+{\tt resistor(up\_ 1.25,7)}
+
+\noindent%
+draws a resistor 1.25 units long up from the current position, with $7$
+vertices per side.
+The macro {\tt up\_} evaluates to {\tt up} but also resets the current
+directional parameters to point up.
+
+\FR{Emarrows} contains radiation-effect arrows for embellishing two-terminal
+and other macros.
+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
+absolute angle in degrees (default 135 degrees).
+\begin{figure}[h!t]
+ \input Emarrows
+ \caption{Radiation arrows: {\tt em\_arrows({\sl type, angle, length})}}
+ \label{Emarrows}
+ \end{figure}
+The arrows are drawn relative to the diode direction by the {\tt LE}
+option in \FR{Diodes}. For absolute arrow directions, one can
+define a wrapper (see \SR{Writing:}) for the {\tt diode} macro to draw arrows
+at 45 degrees, for example:
+
+{\tt define(`myLED',`diode(`\$1'); em\_arrows(N,45)
+ with .Tail at last [].ne')}
+
+\begin{figure}[t!]
+ \input Fuses
+ \caption{Variations of the macros
+ {\tt fuse(\linespec, A|dA|B|C|D|E|S|HB|HC, {\sl wid}, {\sl ht})}
+ and {\tt cbreaker(\linespec,L|R,D|T|TS)}.}
+ \label{Fuses}
+ \end{figure}
+\begin{figure}[t!]
+ \input AmpTable
+ \caption{Amplifier, delay, and integrator.}
+ \label{AmpTable}
+ \end{figure}
+\begin{figure}[t!]
+ \input Switches
+ \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.}
+ \label{Switches}
+ \end{figure}
+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 mechanism,
+as follows.
+
+The first argument of the macro
+
+{\tt reversed(`}{\sl macro name}{\tt',}{\sl macro arguments}{\tt )}
+
+\noindent
+is the name of a two-terminal element in quotes, followed by the
+element arguments. The element is drawn with reversed direction.
+Thus,
+
+{\tt diode(right\_ 0.4); reversed(`diode',right\_ 0.4)}
+
+\noindent
+draws two diodes to the right, but the second one points left.
+
+Similarly, the macro
+
+{\tt resized(}{\sl factor},`{\sl macro name}',{\sl macro arguments}{\tt )}
+
+\noindent
+can be used to resize the body of an element by temporarily multiplying
+the {\tt dimen\_} macro by {\sl factor}. More general resizing should be
+done by redefining {\tt dimen\_} as described in \SR{Circuitscaling:}.
+These two macros can be nested; the following scales the above example
+by 1.8, for example
+
+{\tt resized(1.8,`diode',right\_ 0.4);}
+{\tt resized(1.8,`reversed',`diode',right\_ 0.4)}
+
+\FR{Variable} shows some two-terminal elements with
+arrows or lines overlaid to indicate variability using the macro
+
+{\tt variable(`}{\sl element}{\tt',{\sl type},{\sl angle},{\sl length})},
+
+\noindent
+where {\sl type} is one of {\tt A, P, L, N,} with {\tt C} or {\tt S}
+optionally appended to indicate continuous or stepwise variation.
+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}:
+
+ {\tt resistor(down\_ dimen\_); variable(,uN)}
+
+\begin{figure}[h!t]
+\vspace*{-\baselineskip}
+ \input Variable
+ \caption{Illustrating
+{\tt variable(`{\sl element}',%
+[A|P|L|[u]N][C|S],{\sl angle},{\sl length})}.
+ For example,\break {\tt variable(`capacitor(down\_ dimen\_)')} draws
+ the leftmost capacitor shown above, and {\tt variable(`resistor(down\_
+ dimen\_)',uN)} draws the 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.}
+ \label{Variable}
+ \end{figure}
+
+\subsection{Branch-current arrows\label{Branchcurrent:}}
+Arrowheads and labels can be added to conductors using basic
+\pic statements. For example, the following line adds a labeled
+arrowhead at a distance {\tt alpha} along a horizontal line that has
+just been drawn. Many variations of this are possible:
+
+ \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}.
+The macro
+
+ {\tt b\_current({\sl label,} above\_|below\_, In|O[ut], Start|E[nd],
+ {\sl frac})}
+
+\noindent
+draws an arrow from the start of the last-drawn two-terminal element
+{\sl frac} of the way toward the body.
+\begin{figure}[h!t]
+ \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.
+If the third element is {\tt Out}, the arrow is drawn outward from the body.
+The first argument is the desired label, of which the default position is
+the macro {\tt above\_,} which evaluates to {\tt above} if the current
+direction is right or to {\tt ljust, below, rjust} if the current
+direction is respectively down, left, up. The label is assumed to be
+in math mode unless it begins with {\tt sprintf} or a double quote, in which
+case it is copied literally. A non-blank second argument specifies the
+relative position of the label with respect to the arrow, for example
+{\tt below\_,} which places the label below with respect to the current
+direction. Absolute positions, for example {\tt below} or {\tt ljust},
+also can be specified.
+
+For those who prefer a separate arrow to indicate the reference
+direction for current, the macros {\tt larrow({\sl label}, ->|<-,{\sl dist})}
+and {\tt rarrow({\sl label}, ->|<-,{\sl dist})} are provided. The label is
+placed outside the arrow as shown in \FR{currents}. The first
+argument is assumed to be in math mode unless
+it begins with {\tt sprintf} or a double
+quote, in which case the argument is copied literally. The third argument
+specifies the separation from the element.
+%\begin{figure}[hbt]
+% \input lrarrows
+% \caption{The {\tt larrow} and {\tt rarrow} macros draw
+% reference-direction arrows adjacent to the element.}
+% \label{lrarrows}
+% \end{figure}
+
+\pagebreak%
+\subsection{Labels\label{Labels:}}
+ Special macros for labeling two-terminal elements are included:
+\par
+{\tt
+ llabel(} {\sl arg1,arg2,arg3} {\tt )
+ \hfill\break\hspace*{\parindent}%
+ clabel(} {\sl arg1,arg2,arg3} {\tt )
+ \hfill\break\hspace*{\parindent}%
+ rlabel(} {\sl arg1,arg2,arg3} {\tt )
+ \hfill\break\hspace*{\parindent}%
+ dlabel(} {\sl long,lat,arg1,arg2,arg3,}{\tt[X][A|B][L|R])}
+
+The first macro places the three arguments, which are treated as math-mode
+strings, on the left side of the element block {\em with respect to the
+current direction:} {\tt up, down, left, right.}
+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}.
+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)}
+respectively relative to the centre of the element.
+In the fourth argument, an {\tt X} aligns the labels with respect to the line
+joining the two terminals rather than the element body, and
+{\tt A, B, L, R} use absolute {\tt above, below, left,} or {\tt right} alignment
+respectively for the labels.
+Labels beginning
+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:
+
+{\tt resistor(from (1,1) to (2,1))}.
+
+\noindent
+However, \pic has a very useful concept of the current point (explicitly
+named {\tt Here}); thus,
+
+{\tt resistor(to (2,1))}
+
+\noindent
+is equivalent to
+
+{\tt resistor(from Here to (2,1)).}
+
+Any defined position can be used; for example, if {\sl C1} and {\sl L2}
+are names of previously defined two-terminal elements,
+then, for example, the following places the resistor:
+
+{\tt resistor(from L2.end to C1.start)}
+
+A line segment starting at the current position can also be defined using
+a direction and length.
+To draw a resistor up $d$ units from the current position, for example:
+
+{\tt resistor(up\_ d)}
+
+\noindent
+\Pic stores the current drawing direction,
+the latter unfortunately limited to {\tt up, down, left, right,}
+which is assumed 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
+the above example.
+
+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.
+The macro
+
+{\tt setdir\_({\sl direction, default direction})}
+
+\noindent
+is preferred when setting drawing direction. The {\sl direction} arguments
+are of the form
+
+{\tt R[ight] | L[eft] | U[p] | D[own] | {\sl degrees}},
+
+\noindent
+but the macros
+{\tt Point\_(}{\sl degrees}{\tt ),}
+{\tt point\_(}{\sl radians}{\tt ),}
+and {\tt rpoint\_(}{\sl relative linespec}{\tt )} are employed in many macros
+to re-define the entries
+of the matrix
+(named {\tt m4a\_}, {\tt m4b\_}, {\tt m4c\_}, and {\tt m4d\_})
+for the required rotation.
+The macro {\tt eleminit\_} in the two-terminal elements invokes
+{\tt rpoint\_} with a specified or default {\sl linespec}
+to establish element length and direction.
+
+As shown in \FR{Oblique},
+``{\tt Point\_(-30); resistor}'' draws a resistor
+along a line with slope of~-30 degrees, and ``{\tt rpoint\_(to Z)}'' sets
+the current direction cosines to point from the current location to location Z.
+Macro {\tt vec\_(x,y)}
+evaluates to the position {\tt (x,y)} rotated as defined by the
+argument of the previous
+{\tt setdir\_, Point\_, point\_} or {\tt rpoint\_} command.
+The principal device used to define relative locations in the circuit macros
+is {\tt rvec\_(x,y)}, which evaluates to position {\tt Here + vec\_(x,y)}.
+Thus, {\tt line to rvec\_(x,0)} draws a line of length {\tt x} in the current
+direction.
+
+\FR{Oblique} illustrates that some hand placement of labels
+using {\tt dlabel} may be useful when elements are drawn obliquely.
+The figure also illustrates that any commas within \Mfour arguments must
+be treated specially because the arguments are separated by commas.
+Argument commas are protected either by parentheses as in
+{\tt inductor(from Cr to Cr+vec\_(elen\_,0))}, or by multiple single quotes
+as in {\tt ``,'',} as necessary.
+Commas also may be avoided by writing
+{\tt 0.5 between L and T} instead of {\tt 0.5<L,T>.}
+\begin{figure}[h!t]
+\vspace{-\baselineskip}
+ \parbox{4.5in}{\small \verbatiminput{Oblique.m4}}%
+ \hfill\raise-0.7in\llap{\hbox{\input Oblique }}%
+ \vspace{-\baselineskip}
+ \caption{Illustrating elements drawn at oblique angles.}
+ \label{Oblique}
+ \end{figure}
+
+\subsection{Series and parallel circuits\label{Seriesandparallel:}}
+
+To draw elements in series, each element can be placed by specifying
+its line segment as described previously, but the \pic language
+makes some geometries particularly simple. Thus,
+
+{\tt setdir\_(Right)\\ \hspace*{\parindent}%
+ resistor; llabel(,R); capacitor; llabel(,C);
+ inductor; llabel(,L)}
+
+\noindent
+draws three elements in series
+as shown in the top line of \FR{Series}.
+\begin{figure}[h!t]
+\vspace{-\baselineskip}
+ \input Series
+ \caption{Three ways of drawing basic elements in series.}
+ \label{Series}
+ \end{figure}
+However, the default length {\tt elen\_}
+appears too long for some diagrams. It can be redefined temporarily
+(to {\tt dimen\_}, say),
+by enclosing the above line in the pair
+
+{\tt pushdef(`elen\_',dimen\_)
+ resistor$\ldots$ popdef(`elen\_')}
+
+\noindent
+with the result shown in the middle row of the figure.
+
+Alternatively, the length of each element can be tuned individually; for
+example, the capacitor in the above example can be shortened as shown,
+producing the bottom line of \FR{Series}:
+
+{\tt resistor; llabel(,R)\\
+ \hspace*{\parindent}%
+ capacitor(right\_ dimen\_/4); llabel(,C)\\
+ \hspace*{\parindent}%
+ inductor; llabel(,L)}
+
+If a macro that takes care of common cases automatically is to be preferred,
+you can use the macro {\tt series\_({\sl elementspec, elementspec, $\ldots$})}.
+This macro draws elements of length {\tt dimen\_} from the current
+position in the current drawing
+direction, enclosed in a {\tt [ ]} block. The internal names
+{\tt Start}, {\tt End}, and {\tt C} (for centre) are defined, along with
+any element labels. An {\sl elementspec} is of the form
+{\tt[{\sl Label}:] {\sl element}; [{\sl attributes}]},
+where an attribute is zero or more of
+ {\tt llabel($\ldots$), rlabel($\ldots$)}, or {\tt b\_current($\ldots$)}.
+
+Drawing elements in parallel requires a little more effort but, for example,
+three elements can be drawn in parallel using the code snippet shown,
+producing the left circuit in \FR{ParSeries}:
+\begin{verbatim}
+ define(`elen_',dimen_)
+ L: inductor(right_ 2*elen_,W); llabel(+,L,-)
+ R1: resistor(right elen_ from L.start+(0,-dimen_)); llabel(,R1)
+ R2: resistor; llabel(,R2)
+ C: capacitor(right 2*elen_ from R1.start+(0,-dimen_)); llabel(,C)
+ line from L.start to C.start
+ line from L.end to C.end
+\end{verbatim}
+
+\begin{figure}[h!t]
+% \vspace*{-\baselineskip}
+ \input ParSeries
+ \vspace*{-\baselineskip}
+ \caption{Illustrating the macros {\tt parallel\_} and {\tt series\_},
+ with {\tt Start} and {\tt End} points marked.}
+ \label{ParSeries}
+ \end{figure}
+
+A macro that produces the same effect automatically is
+
+{\tt parallel\_({\LQ {\sl elementspec}\RQ, \LQ {\sl elementspec}\RQ,}
+ $\ldots$)}
+
+The arguments {\em must be quoted} to delay expansion, unless an argument
+is a nested {\tt parallel\_} or {\tt series\_} macro,
+in which case it is not quoted.
+The elements are drawn in a {\tt [ ]} block with defined points
+{\tt Start}, {\tt End}, and {\tt C}.
+An {\sl elementspec} is of the form
+
+{\tt [Sep={\sl val};][{\sl Label}:] {\sl element}; [{\sl attributes}]}
+
+\noindent
+where an {\sl attribute} is of the form
+
+{\tt [llabel($\ldots$);] | [rlabel($\ldots$)] | [b\_current($\ldots$);]}
+
+Putting {\tt Sep={\sl val};} in the first branch sets the default
+separation of all branches to {\sl val}; in a later
+element, {\tt Sep={\sl val}}; applies only to that branch.
+An element may have normal arguments but should
+not change the drawing direction.
+
+%\pagebreak%
+\xection{Composite circuit elements\label{Composite:}}
+Many basic elements are not two-terminal. These elements are usually enclosed in
+a \verb|[ ]| \pic block, and contain named interior locations and components.
+The block must be placed by using its compass corners, thus:
+ {\sl element} {\tt with} {\sl corner} {\tt at} {\sl position}
+or, when the block contains a predefined location, thus:
+ {\sl element} {\tt with} {\sl location} {\tt at} {\sl position}.
+A few macros are positioned with the first argument;
+the {\tt ground} macro, for example:
+ {\tt ground(}{\tt at} {\sl position}{\tt ).}
+In some cases, an invisible line can be specified by the first argument
+to determine length and direction (but not position) of the block.
+
+Nearly all elements drawn within blocks can be customized by adding an
+extra argument, which is executed as the last item within the block.
+
+The macro {\tt
+ potentiometer(\linespec,{\sl cycles},{\sl fractional pos},{\sl length},
+ $\ldots$)},
+shown in \FR{Potentiometers},
+first draws a resistor along the specified line, then adds arrows for taps
+at fractional positions along the body, with default or specified length.
+A negative length draws the arrow from the right of the current drawing
+direction.
+\begin{figure}[h!t]
+ \input Potentiometers
+ \caption{Default and multiple-tap potentiometer.}
+ \label{Potentiometers}
+ \end{figure}
+
+The macro {\tt
+ addtaps([{\sl arrowhd} | type={\sl arrowhd};name={\sl Name}],
+ {\sl fraction, length, fraction, length,}
+ $\ldots$)},
+shown in \FR{Taps}, will add taps to the
+immediately preceding two-terminal element.
+\begin{figure}[h!t]
+ \input Taps
+ \caption{Macros for adding taps to two-terminal elements.}
+ \label{Taps}
+ \end{figure}
+However, the default names
+{\tt Tap1, Tap2} $\ldots$ may not be unique in the current scope. An
+alternative name for the taps can be specified or, if preferable, the
+tapped element can be drawn in a [ ] block using the macro {\tt
+ tapped(`{\sl two-terminal element}',
+ [{\sl arrowhd} | type={\sl arrowhd};name={\sl Name}],
+ {\sl fraction, length, fraction, length,} $\ldots$)}.
+ Internal names {\tt .Start, .End,} and {.C} are defined automatically,
+ corresponding to the drawn element. These and the tap names can be used
+ to place the block.
+These two macros require the two-terminal element to be drawn either up,
+down, to the left, or to the right; they are not designed for obliquely
+drawn elements.
+
+A few composite symbols derived from two-terminal elements
+are shown in \FR{Composite}.
+\begin{figure}[h!t]
+ \vspace*{-0.5ex}
+ \input Composite
+ \vspace*{-0.5ex}
+ \caption{Composite elements {\tt KelvinR({\sl cycles},[R],{\sl cycle wid})}
+ and {\tt FTcap({\sl chars})} .}
+ \label{Composite}
+ \end{figure}
+
+The ground symbol is shown in \FR{Grounds}.
+The first argument specifies position; for example, the two lines shown
+have identical effect:
+
+{\tt move to (1.5,2); ground
+
+ground(at (1.5,2)) }
+
+\noindent The second argument truncates
+the stem, and the third defines the symbol type.
+The fourth argument specifies the angle at which the symbol is drawn,
+with D (down) the default.
+This macro is one of several in which a temporary drawing direction
+is set using the
+ {\tt setdir\_( U|D|L|R|{\sl degrees, default} R|L|U|D|{\sl degrees} )}
+macro and reset at the end using {\tt resetdir\_}.
+\begin{figure}[ht!]
+ \input Grounds
+ \caption{The
+ {\tt ground( at }{\sl position}{\tt,
+ T, N|F|S|L|P|E, U|D|L|R|{\sl degrees} )}
+ macro.}
+ \label{Grounds}
+ \end{figure}
+
+The arguments of the macro
+{\tt antenna( at }{\sl position}{\tt,
+ T, A|L|T|S|D|P|F, U|D|L|R|{\sl degrees} )}
+shown in \FR{Antennas} are similar to those of {\tt ground}.
+\begin{figure}[h!t]
+ \input Antennas
+ \caption{Antenna symbols, with macro arguments shown above and
+ terminal names below.}
+ \label{Antennas}
+ \end{figure}
+
+\FR{Opamp} illustrates the macro
+{\tt opamp({\sl\linespec, - label, + label, size, chars})\label{OPAMP}}.
+\begin{figure}[b!t]
+ \ifpdf\vspace*{-0.5\baselineskip}\fi%
+ \input Opamp
+ \caption{Operational amplifiers. The {\tt P} option adds
+ power connections. The second and third arguments can be used
+ to place and rotate arbitrary text at {\tt In1} and {\tt In2}.}
+ \label{Opamp}
+ \end{figure}
+The element is enclosed in a block
+containing the predefined internal locations shown.
+These locations can be referenced in later
+commands, for example as ``{\tt last [].Out}.''
+The first argument defines the direction and length of the opamp, but the
+position is determined either by the enclosing block of the opamp,
+or by a construction such as ``{\tt opamp with .In1 at Here}'', which places
+the internal position {\sl In1} at the specified location.
+There are optional second and third arguments for which the defaults
+are {\tt \char92{}scriptsize\$-\$} and {\tt \char92{}scriptsize\$+\$}
+respectively, and the fourth argument changes the size of the opamp.
+The fifth argument is a string of characters. {\tt P}
+adds a power connection, {\tt R} exchanges the second and
+third entries, and {\tt T} truncates the opamp point.
+
+Typeset text associated with circuit elements is not rotated by default,
+as illustrated by the second and third opamps in \FR{Opamp}.
+The {\tt opamp} labels can be rotated if necessary by
+using postprocessor commands (for example \PSTricks \verb|\rput|)
+as second and third arguments.
+
+The code in \FR{oax} places an opamp with three connections.
+\begin{figure}[h!t]
+ \parbox{4in}{\small \verbatiminput{oaxbody.m4}}%
+ \quad\raise-0.2in\hbox{\input oax }%
+ \vspace{-\baselineskip}
+ \caption{A code fragment invoking the
+ {\tt opamp(\linespec,-,+,{\sl size},[R][P])} macro.}
+ \label{oax}
+ \end{figure}
+
+\FR{Xform} shows variants of the transformer macro,
+which has predefined internal locations
+{\sl P1,} {\sl P2,} {\sl S1,} {\sl S2,} {\sl TP,} and {\sl TS.}
+The first argument
+specifies the direction and distance from {\sl P1} to {\sl P2}, with
+position determined by the enclosing block as for opamps. The second
+argument places the secondary side of the transformer to the left
+or right of the drawing direction. The optional third and fifth arguments
+specify the number of primary and secondary arcs respectively.
+If the fourth argument string contains an {\tt A}, the iron core
+is omitted;
+if a {\tt P}, the core is dashed (powder);
+and if it contains a {\tt W}, wide windings are drawn.
+A {\tt D1} puts phase dots at the {\sl P1, S1} end, {\tt D2} at the
+{\sl P2, S2} ends, and {\tt D12} or {\tt D21} puts dots at opposite ends.
+\begin{figure}[h!t]
+ \ifpdf\vspace*{-\baselineskip}\fi%
+ \input Xform
+ \vspace{-\baselineskip}
+ \caption{The {\tt transformer(\linespec,L|R,{\sl np},%
+[A|P][W|L][D1|D2|D12|D21],{\sl ns})}
+ macro (drawing direction {\tt down}), showing predefined terminal
+ and centre-tap points.}
+ \label{Xform}
+ \end{figure}
+\iffalse
+A transformer with four connections is illustrated
+in \FR{tran}.
+\begin{figure}[hbt]
+ \parbox{4in}{\small \verbatiminput{tranbody.m4}}%
+ \quad\raise-0.2in\hbox{\input tran }%
+ \vspace{-\baselineskip}
+ \caption{Showing the
+ {\tt transformer(\linespec,L|R,np,A,ns)} macro.}
+ \label{tran}
+ \end{figure}
+\fi
+
+%\enlargethispage{\baselineskip}
+\FR{Audio} shows some audio devices, defined in {\tt []} blocks,
+with predefined internal locations as shown.
+\begin{figure}[h!t]
+ \ifpdf\vspace*{-\baselineskip}\fi%
+ \input Audio
+ \ifpdf\vspace*{-\baselineskip}\fi%
+ \caption{Audio components:
+ {\tt speaker(U|D|L|R|{\sl degrees},{\sl size},{\sl type}),
+ bell, microphone, buzzer,
+ earphone}, with their internally named positions and components.}
+ \label{Audio}
+ \end{figure}
+The first argument specifies the device orientation.
+
+Thus,
+
+{\tt S: speaker(U) with .In2 at Here}
+
+\noindent
+%\enlargethispage{\baselineskip}
+places an upward-facing speaker with input {\sl In2} at the
+current location.
+
+The {\tt nport({\sl box specs {\tt[;} other commands{\tt]},
+ nw, nn, ne, ns, space ratio, pin lgth, style})}
+macro is shown in \FR{Nport}.
+\begin{figure}[h!t]
+ \ifpdf\vspace*{-\baselineskip}\fi
+ \input Nport
+ \ifpdf\vspace*{-\baselineskip}\fi
+ \caption{The {\tt nport} macro draws a sequence of pairs of named pins
+ on each side of a box. The pin names are shown. The default is a twoport.
+ The {\tt nterm} macro draws single pins instead of pin pairs.}
+ \label{Nport}
+ \end{figure}
+The macro begins with the line
+ \verb|define(`nport',`[Box: box `$1'|,
+so the first argument is a box specification such as size, fill,
+or text.
+The second to fifth arguments specify the number of ports
+(pin pairs) to be drawn respectively on the west, north, east, and south
+sides of the box. The end of each pin is named according to the
+side, port number, and $a$ or $b$ pin, as shown.
+The sixth argument
+specifies the ratio of port width to inter-port space, the seventh is
+the pin length, and setting the eighth argument to {\tt N} omits the pin
+dots.
+The macro ends with \verb|`$9']')|, so that a ninth argument can be used
+to add further customizations within the enclosing block.
+
+The {\tt nterm({\sl box specs, nw, nn, ne, ns, pin lgth, style})} macro
+illustrated in \FR{Nport} is similar to the {\tt nport} macro but
+has one fewer argument, draws single pins instead of pin pairs, and
+defaults to a 3-terminal box.
+
+Many custom labels or added elements may be required, particularly for
+2-ports\label{Nports:}. These elements can be added using the first
+argument and the ninth of the {\tt nport} macro.
+For example, the following code adds a pair of labels to the box
+immediately after drawing it but within the enclosing block:
+
+{\tt nport(; {`"${}0$"'\ at Box.w ljust; `"$\infty$"'\ at
+ Box.e rjust})}
+
+If this trick were to be used extensively, then the following custom wrapper
+would save typing, add the labels, and pass all arguments to
+{\tt nport}:
+
+\begin{verbatim}
+define(`nullor',`nport(`$1'
+ {`"${}0$"' at Box.w ljust
+ `"$\infty$"' at Box.e rjust},shift($@))')
+\end{verbatim}
+
+The above example and the related gyrator macro are illustrated in
+\FR{NLG}.
+\begin{figure}[h!t]
+ \input NLG
+ \ifpdf\vspace*{-1.5\baselineskip}\fi%
+ \caption{The {\tt nullor} example and the {\tt gyrator}
+ macro are customizations of the {\tt nport} macro.}
+ \label{NLG}
+ \end{figure}
+
+A basic winding macro for magnetic-circuit sketches and similar figures
+is shown in \FR{Windings}.
+\begin{figure}[h!t]
+ \vspace*{-\baselineskip}%
+% \ifpdf\vspace*{-2\baselineskip}\else \vspace{-\baselineskip}\fi
+ \input Windings
+ \ifpdf\vspace*{-\baselineskip}\else\vspace*{-1ex}\fi
+ \caption{The {\tt winding(L|R, diam, pitch, turns, core wid, core color)}
+ macro draws a coil with axis along the current drawing direction.
+ Terminals {\tt T1} and {\tt T2} are defined.
+ Setting the first argument to {\tt R} draws a right-hand winding.}
+ \label{Windings}
+ \end{figure}
+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!).
+
+\FR{Relay} shows the macro {\tt contact({\sl chars})},
+which contains predefined locations {\sl P, C, O}
+for the armature and normally closed and normally
+open terminals.
+An {\tt I} in the first argument draws open circles for contacts.
+The macro {\tt relay({\sl poles, chars})}
+defines coil terminals {\sl V1, V2} and contact
+terminals {\sl P$_i$, C$_i$, O$_i$.}
+\begin{figure}[ht]
+ \ifpdf\vspace*{-\baselineskip}\else\vspace*{-0.5\baselineskip}\fi%
+ \input Relay
+ \vspace{-1ex}
+ \caption{The {\tt contact({\sl chars})}
+ and {\tt relay({\sl poles, chars})}
+ macros (default direction right).}
+ \label{Relay}
+ \end{figure}
+
+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!t]
+ \ifpdf\vspace*{-0.5\baselineskip}\fi%
+ \input NPDT
+ \ifpdf\vspace*{-0.5\baselineskip}\fi%
+ \caption{Multipole double-throw switches drawn by
+ {\tt NPDT({\sl npoles}, [R])}.}
+ \label{NPDT}
+ \end{figure}
+
+The {\tt jack} and {\tt plug} macros and their defined points are
+ illustrated in \FR{Jack}.
+\begin{figure}[h!t]
+ \input Jack
+ \vspace{-1ex}
+ \caption{The {\tt jack(U|D|L|R|{\sl degrees}, {\sl chars})}
+ and {\tt plug(U|D|L|R|{\sl degrees},[2|3][R])} components
+ and their defined points.}
+ \label{Jack}
+ \end{figure}
+ The first argument of both macros
+ establishes the drawing direction. The second argument is a string of
+ characters defining drawn components.
+ An {\tt R} in the string specifies a
+ right orientation with respect to the drawing direction.
+ The two principal terminals of
+ the jack are included by putting \hbox{{\tt L} {\tt S}}
+%
+% This is a kludge to put a blank line on the bottom
+\phantom{or both into the string with associated make ({\tt M})
+or break ({\tt B}) points. Thus, {\tt LMB} within the third}\hfill\break
+\phantom{or both into the string with associated make ({\tt M})
+or break ({\tt B}) points. Thus, {\tt LMB} within the third}\hfill\break
+%
+%
+ or both into the string with associated make ({\tt M})
+ or break ({\tt B}) points. Thus, {\tt LMB} within the third
+ argument draws the {\tt L} contact with
+ associated make and break points. Repeated {\tt L[M|B]}
+ or {\tt S[M|B]} substrings add auxiliary contacts with
+ specified make or break points.
+
+%\pagebreak
+A macro for drawing headers is in \FR{Headers},
+and some experimental connectors are shown in \FR{Conn} and \FR{Pconn}.
+The {\tt tstrip} macro allows {\sl key}{\tt =}{\sl value}{\tt ;} arguments
+\begin{figure}[h!t]
+ \ifpdf\vspace*{-0.5\baselineskip}\fi%
+ \input Headers
+ \ifpdf{\vspace*{-0.5ex}}\fi%
+ \caption{Macro {\tt Header(1|2, {\sl rows, wid, ht, type})}.}
+ \label{Headers}
+ \end{figure}
+for width and height.
+\begin{figure}[h!t]
+ \input Conn
+ \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}[h!t]
+ \ifpdf{\vspace*{-1ex}}\fi%
+ \input Pconn
+ \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.}
+ \label{Pconn}
+ \end{figure}
+
+\subsection{Semiconductors\label{Semiconductors:}}%
+\FR{Bip} shows the variants of bipolar transistor macro
+{\tt bi\_tr(\linespec,L|R,P,E)}
+which contains predefined internal locations {\sl E},
+{\sl B}, {\sl C}.
+The first argument defines the distance and direction
+from {\sl E} to {\sl C,} with location determined by the enclosing
+block as for other elements, and the base placed
+\begin{figure}[h!b]
+ \ifpdf\vspace*{-0.5\baselineskip}\fi%
+ \input Bip
+ \ifpdf\vspace*{-0.5\baselineskip}\fi%
+ \caption{Bipolar transistor variants (current direction upward).}
+ \label{Bip}
+ \end{figure}
+to the left or right of the
+current drawing direction according to the second argument. Setting the third
+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}[h!t]
+ \input Darlington
+ \caption{Macro {\tt Darlington(L|R,[E][P][B1][E1|R1][E2|R2][D][Z])},
+ drawing direction {\tt up\_}.}
+ \label{Darlington}
+ \end{figure}
+
+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}[h!t]
+\vspace*{-\baselineskip}
+ \quad\quad\parbox{4in}{\small \verbatiminput{bitrbody.m4}}%
+ \quad\raise-0.4in\hbox{\input bitr }%
+ \vspace{-\baselineskip}
+ \caption{The {\tt bi\_tr(\linespec,L|R,P,E)} macro.}
+ \label{bitr}
+ \end{figure}
+
+The {\tt bi\_tr} and {\tt igbt} macros are wrappers for
+the macro {\tt bi\_trans(\linespec, L|R, {\sl chars}, E)}, which
+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}[h!t]
+\vspace*{-0.5\baselineskip}
+ \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
+ {\tt E}{\sl n} creates multiple emitters {\sl E0} to {\sl En}.
+ Collectors are similar.}
+ \label{bitrans}
+ \end{figure}
+
+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}[h!t]
+ \ifpdf\vspace*{-\baselineskip}\else\vspace*{-0.5\baselineskip}\fi%
+ \input ujt
+ \ifpdf\vspace*{-0.5\baselineskip}\fi%
+ \caption{UJT devices, with current drawing direction {\tt up\_}. }
+ \label{ujt}
+ \end{figure}
+\begin{figure}[h!t]
+ \ifpdf\vspace*{-\baselineskip}\else\vspace*{-0.5\baselineskip}\fi%
+ \input thyristor
+ \vspace*{-1ex}
+ \caption{The top two rows illustrate use of the
+ {\tt thyristor({\sl linespec, chars})} macro,
+ drawing direction {\tt down\_}, and the bottom row shows wrapper
+ macros (drawing direction {\tt right\_}) that place
+ the thyristor like a two-terminal element. Append {\tt K}
+ to the second argument to draw open arrowheads.}
+ \label{thyristor}
+ \end{figure}
+is much like an 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,
+but require a third argument for the label for the compound block; thus,
+
+{\tt scr(from A to B,{,}Q3); line right from Q3.G}
+
+\noindent
+draws the element from position {\sl A} to position {\sl B} with label
+{\sl Q3}, and draws a line from {\sl G}.
+
+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}.
+In all cases the first argument is a linespec,
+and entering
+{\tt R} as the second argument orients the {\sl G} terminal to the right of the
+current drawing direction.
+The macros in the top three rows of the figure are wrappers for the
+general macro {\tt mosfet(\linespec,R,{\sl characters},E)}.
+The third argument of this macro is a subset of the characters
+$\{${\tt BDEFGLMQRSTXZ}$\}$, each letter corresponding to
+a diagram component as shown in the bottom row of the figure.
+Preceding the characters {\tt B}, {\tt G}, and {\tt S} by {\tt u} or {\tt d}
+adds an up or down arrowhead to the pin, preceding {\tt T} by {\tt d}
+negates the pin, and preceding {\tt M} by {\tt u} or {\tt d} puts the pin
+at the drain or source end respectively of the gate.
+The obsolete letter {\tt L} is equivalent to {\tt dM} and has been kept
+temporarily for compatibility.
+This system allows considerable freedom in choosing or customizing components,
+as illustrated in \FR{fet}.
+\begin{figure}[h!t]
+ \ifpdf\vspace*{-\baselineskip}\fi%
+ \input fet
+ \ifpdf\vspace*{-\baselineskip}\fi%
+ \caption{JFET, insulated-gate enhancement and depletion MOSFETs,
+ and simplified versions.
+ 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
+ defined by omitting the substrate connection, and the second
+ defined using a wrapper macro.}
+ \label{fet}
+ \end{figure}
+
+\pagebreak
+The number of possible semiconductor symbols is very
+large, so these macros must be regarded as prototypes.
+Often an element is a minor modification of existing elements. For example,
+the {\tt thyristor(\linespec, {\sl chars})} macro illustrated in
+\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}[h!t]
+ \ifpdf\vspace*{-\baselineskip}\fi%
+ \input Tgate
+ \caption{The {\tt tgate({\sl linespec,} [B][R|L])} element, derived from
+ a customized diode and {\tt ebox}, and the
+ {\tt ptrans(\linespec, [R|L])} macro.
+ These are not two-terminal elements, so the {\sl linespec} argument
+ defines the direction and length of the line from $A$ to $B$ but not
+ the element position.}
+ \label{Tgate}
+ \end{figure}
+
+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}[h!t]
+ \input bistable
+ \vspace{-1ex}
+ \caption{Bipolar transistor circuit, illustrating {\tt crossover}
+ and colored elements.}
+ \label{bistable}
+ \end{figure}
+
+This figure also illustrates how elements and labels can be colored
+using the macro
+
+{\tt rgbdraw({\sl r}, {\sl g}, {\sl b}, {\sl drawing commands})}
+
+\noindent
+where the {\sl r, g, b} values are in the range 0 to 1
+(integers from 0 to 255 for \SVG)
+ to specify the rgb color.
+This macro is a wrapper for the following, which may be more convenient
+if many elements are to be given the same color:
+
+ {\tt setrgb({\sl r}, {\sl g}, {\sl b})}
+ \hfill\break\hspace*{\parindent}%
+ {\sl drawing commands}
+ \hfill\break\hspace*{\parindent}%
+ {\tt resetrgb}
+
+A macro is also provided for colored fills:
+
+{\tt rgbfill({\sl r}, {\sl g}, {\sl b}, {\sl drawing commands})}
+
+\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.
+
+\xection{Corners\label{Corners:}}%
+If two straight lines meet at an angle then, depending on the postprocessor,
+the corner may not be mitred or rounded unless the two lines belong to
+a multisegment line, as illustrated in \FR{Corners}.
+\begin{figure}[ht]
+ \input Corners
+ \caption{Producing mitred angles and corners.}
+ \label{Corners}
+ \end{figure}
+This is normally
+not an issue for circuit diagrams unless the figure is magnified or thick
+lines are drawn. Rounded corners can be obtained by setting post-processor
+parameters, but the figure shows the effect of
+macros {\tt round} and {\tt corner}.
+The macros
+{\tt mitre\_({\sl Position1,Position2,Position3,length,attributes})}
+and
+{\tt Mitre\_({\sl Line1,Line2,length,attributes})}
+may assist as shown.
+Otherwise, a right-angle line can be extended
+by half the line thickness (macro {\tt hlth}) as shown on the upper row
+of the figure,
+or a two-segment line can be overlaid at the corner to produce the same effect.
+
+\xection{Looping\label{Looping:}}
+Sequential actions can be performed using either the
+ \dpic command
+
+{\tt for {\sl variable}={\sl expression} to {\sl expression}
+ [by {\sl expression}] do $\lbrace$ {\sl actions} $\rbrace$}
+
+\noindent
+or at the
+\Mfour processing stage. The {\tt libgen} library defines the macro
+
+{\tt for\_({\sl start}, {\sl end}, {\sl increment}, `{\sl actions}')}
+
+\noindent
+for this and other purposes. Nested loops are allowed and the innermost loop
+index variable is {\tt m4x.}
+The first three arguments must be
+integers and the {\sl end} value must be reached exactly; for example,
+\verb|for_(1,3,2,`print In`'m4x')| prints locations {\sl In1} and {\sl In3},
+but \verb|for_(1,4,2,`print In`'m4x')| does not terminate since the
+index takes on values 1, 3, 5, $\ldots$.
+
+Repetitive actions can also be performed with the {\tt libgen} macro
+
+{\tt Loopover\_(`{\sl variable}', {\sl actions}, {\sl value1},
+ {\sl value2}, $\ldots$)}
+
+\noindent
+which evaluates {\sl actions} for each instance of {\sl variable} set
+to {\sl value1, value2, $\ldots$}.
+
+\xection{Logic gates\label{Logicgates:}}
+\FR{Logic} shows the basic logic gates included in
+library {\tt liblog.m4}.
+The first argument of the gate macros can be an integer $N$ from $0$ to $16,$
+specifying the number of input
+locations {\tt In1,} $\ldots$ {\tt In}$N,$ as illustrated for
+the NOR gate in the figure.
+By default, $N=2$ except for macros {\tt NOT\_gate} and {\tt BUFFER\_gate},
+which have one input {\tt In1} unless they are given a
+first argument, which is treated as the line specification of a
+two-terminal element.
+\begin{figure}[h!t]
+ \input Logic
+ \caption{Basic logic gates. The input and output locations of
+ a three-input NOR gate are shown. Inputs are negated by
+ including an {\tt N} in the second argument letter sequence. A {\tt B}
+ in the second argument produces a box shape as shown in the rightmost
+ column, where the second example has AND functionality and
+ the bottom two are examples of exclusive OR functions.}
+ \label{Logic}
+ \end{figure}
+
+Input locations retain their positions relative to the gate body
+regardless of gate orientation, as in \FR{FF}.
+\begin{figure}[h!t]
+ \vspace*{-\baselineskip}
+ \parbox{4.75in}{\small \verbatiminput{FF.m4}}%
+ \input FF
+ \vspace*{-\baselineskip}
+ \caption{$SR$ flip-flop.}
+ \label{FF}
+ \end{figure}
+\begin{figure}[h!t]
+ \input mplex
+ \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}.
+\pagebreak
+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\_}.
+For example, the output circle of a nand gate is named
+{\tt N\_Out} and the outermost point of the circle is named {\tt Out.}
+Instead of a number, the first argument can be a sequence of letters {\tt P}
+or {\tt N} to define normal or negated inputs; thus for example,
+{\tt NXOR\_gate(NPN)} defines a 3-input nxor gate with not-circle
+inputs {\tt In1} and {\tt In3} and normal input {\tt In2}
+as shown in the figure.
+The macro {\tt IOdefs} can also be used to create a sequence of custom
+named inputs or outputs.
+
+Gates are typically not two-terminal elements and are normally drawn
+horizontally or vertically (although arbitrary directions may be set
+with e.g. {\tt Point\_({\sl degrees})}).
+Each gate is contained in a
+block of typical height {\tt 6*L\_unit} where {\tt L\_unit} is a macro
+intended to establish line separation for an imaginary grid on which
+the elements are superimposed.
+
+Including an \verb|N| in the second
+argument character sequence of any gate negates the inputs, and including
+\verb|B| in the second argument invokes the
+general macro {\tt BOX\_gate([P|N]...,[P|N],{\sl horiz size},{\sl
+vert size},{\sl label})}, which draws box gates. Thus, {\tt
+BOX\_gate(PNP,N,,8,\char92 geq 1)} creates a gate of default width,
+eight {\tt L\_unit}s height, negated output, three inputs with the
+second negated, and internal label ``$\geq1$''.
+If the fifth argument begins with {\tt sprintf} or a double quote then
+the argument is copied literally; otherwise it is treated as scriptsize
+mathematics.
+
+The macro {\tt BUFFER\_gate(\linespec,[N|B],{\sl wid},{\sl ht},%
+ [N|P]\char42,[N|P]\char42)}
+is a wrapper for the composite element {\tt BUFFER\_gen}.
+If the second argument is {\tt B}, then a box gate is drawn; otherwise
+the gate is triangular. Arguments 5 and 6 determine the number of defined
+points along the northeast and southeast edges respectively, with an {\tt N}
+adding a NOT circle.
+If the first argument is non-blank however, then the buffer is drawn along
+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}[h!t]
+ \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
+ macro but internal block locations must be referenced using
+ {\tt last []}.}
+ \label{Buffer}
+ \end{figure}
+
+\pagebreak
+A good strategy for drawing complex logic circuits might be summarized
+as follows:
+\begin{itemize}\itemsep=0pt
+\item Establish the absolute locations of gates and other major components
+ (e.g. chips) relative to a grid of mesh size commensurate with
+ {\tt L\_unit}, which is an absolute length.
+\item Draw minor components or blocks relative to the major ones, using
+ parameterized relative distances.
+\item Draw connecting lines relative to the components and previously drawn
+ lines.
+\item Write macros for repeated objects.
+\item Tune the diagram by making absolute locations relative, and by tuning
+ the parameters.
+ Some useful macros for this are the following, which are in units of
+ {\tt L\_unit}:
+ \begin{itemize}
+ \item[] {\tt AND\_ht, AND\_wd}: the height and width of basic AND and
+ OR gates
+ \item[] {\tt BUF\_ht, BUF\_wd}: the height and width of basic buffers
+ \item[] {\tt N\_diam}: the diameter of NOT circles
+ \end{itemize}
+ \end{itemize}
+
+\FR{Multiplexer} shows a multiplexer block with variations, and
+ \FR{Demultiplexer} shows
+the very similar demultiplexer.
+\begin{figure}[h!t]
+ \input Multiplexer
+ \caption{The {\tt Mux({\sl input count}, {\sl label},
+ [L][B|H|X][N[$n$]|S[$n$]][[N]OE],{\sl wid},{\sl ht})} macro.}
+ \label{Multiplexer}
+ \end{figure}
+\begin{figure}[h!t]
+ \input Demultiplexer
+ \caption{The {\tt Demux({\sl input count}, {\sl label},
+ [L][B|H|X][N[$n$]|S[$n$]][[N]OE],{\sl wid},{\sl ht})} macro.}
+ \label{Demultiplexer}
+ \end{figure}
+
+\FR{FlipFlops} shows
+the macro {\tt FlipFlop(D|T|RS|JK, {\sl label, boxspec})}, which is a
+wrapper for the more general macro {\tt FlipFlopX(}{\sl boxspec, label,
+leftpins, toppins, rightpins, bottompins}{\tt )}.
+\begin{figure}[h!t]
+ \input FlipFlop
+ \caption{The {\tt FlipFlop} and {\tt FlipFlopX} macros, with variations.}
+ \label{FlipFlops}
+ \end{figure}
+Each of arguments 3 to 6 is null or a string of {\sl pinspecs} separated
+by semicolons ({\tt;}). {\sl Pinspecs} are either empty (null) or of the form
+{\tt[}{\sl pinopts}{\tt]:[}{\sl label}{\tt[:}{\sl Picname}{\tt]]}.
+The first colon draws the pin.
+Pins are placed top to bottom or left to right along the box edges with
+null pinspecs counted for placement. Pins are named by side and number
+by default; eg {\tt W1, W2, ..., N1, N2, ..., E1, ..., S1, ...} ; however,
+if {\tt:}{\sl Picname} is present in a {\sl pinspec} then {\sl Picname}
+replaces the default name. A {\sl pinspec} label is text placed at the pin
+base. Semicolons are
+not allowed in labels; use eg \verb|\char59{}| instead, and to put a bar over
+a label, use {\tt lg\_bartxt(}{\sl label}{\tt)}.
+The {\sl pinopts} are {\tt [L|M|I|O][N][E]} as for the \verb|lg_pin| macro.
+
+Customized gates can be defined simply.
+For example, the following code defines the custom flipflops in \FR{ShiftR}.
+\begin{figure}[h!t]
+ \input ShiftR
+ \caption{A 5-bit shift register.}
+ \label{ShiftR}
+ \end{figure}
+\begin{verbatim}
+define(`customFF',`FlipFlopX(wid 10*L_unit ht FF_ht*L_unit,,
+ :S;NE:CK;:R, N:PR, :Q;;ifelse(`$1',1,:lg_bartxt(Q)), N:CLR) ')
+\end{verbatim}
+This definition makes use of macros \verb|L_unit| and
+\verb|FF_ht| that predefine dimensions.
+There are three pins on the right side; the centre pin is null and
+the bottom is null if the first macro argument is 1.
+
+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
+of which can be specified as macro arguments.
+\begin{figure}[h!t]
+ \ifpdf\vspace*{-\baselineskip}\fi%
+ \input Dac
+ \ifpdf\vspace*{-\baselineskip}\fi%
+ \caption{The {\tt dac({\sl width,height},nIn,nN,nOut,nS)}
+ and {\tt adc({\sl width,height},nIn,nN,nOut,nS)} macros.}
+ \label{Dac}
+ \end{figure}
+
+In addition to the logic gates described here, some experimental
+IC chip diagrams are included with the distributed example files.
+
+\pagebreak
+\xection{Element and diagram scaling\label{Scaling:}}
+
+There are several issues related to scale changes. You may wish to use
+millimetres, for example, instead of the default inches. You may wish
+to change the size of a complete diagram while keeping the relative
+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.
+
+The scaling of circuit elements will be described first, then
+the \pic scaling facilities.
+
+\subsection{Circuit scaling\label{Circuitscaling:}}
+The circuit elements all have default dimensions
+that are multiples of the \pic environmental parameter {\tt linewid,}
+so changing this parameter changes default element dimensions.
+The scope of a \pic variable is the current block; therefore, a sequence
+such as
+
+\begin{verbatim}
+ resistor
+T: [linewid = linewid*1.5; up_; Q: bi_tr] with .Q.B at Here
+ ground(at T.Q.E)
+ resistor(up_ dimen_ from T.Q.C)
+\end{verbatim}
+
+\noindent%
+connects two resistors and a ground to an enlarged transistor.
+Alternatively, you may redefine the default length {\tt elen\_}
+or the body-size parameter {\tt dimen\_.} For example, adding the line
+
+{\tt define(`dimen\_',(dimen\_*1.2))}
+
+\noindent%
+after the {\tt cct\_init} line of {\tt quick.m4} produces slightly
+larger body sizes for all circuit elements. For logic elements, the
+equivalent to the {\tt dimen\_} macro is {\tt L\_unit}, which has
+default value {\tt (linewid/10)}.
+
+The macros {\tt capacitor, inductor,} and {\tt resistor} have arguments
+that allow the body sizes to be adjusted individually. The macro
+{\tt resized} mentioned previously can also be used.
+
+\subsection{Pic scaling\label{Picscaling:}}
+There are at least three kinds of graphical elements to be considered:
+\begin{enumerate}
+\item When generating final output after reading the {\tt.PE} line,
+ \pic processors divide distances and sizes by the value of the
+ environmental parameter {\tt scale}, which is 1 by default. Therefore,
+ the effect of assigning a value to {\tt scale} at the beginning of the
+ diagram is to change the drawing unit (initially 1 inch) throughout
+ the figure. For example, the file {\tt quick.m4} can be modified to
+ use millimetres as follows:
+ \begin{verbatim}
+ .PS # Pic input begins with .PS
+ scale = 25.4 # mm
+ cct_init # Set defaults
+
+ elen = 19 # Variables are allowed
+ ...
+ \end{verbatim}
+\vspace*{-1.5\baselineskip}
+ The default sizes of \pic objects
+ are redefined by assigning new values to the environmental parameters
+ {\tt arcrad,} {\tt arrowht,} {\tt arrowwid,} {\tt boxht,} {\tt boxrad,}
+ {\tt boxwid,} {\tt circlerad,} {\tt dashwid,} {\tt ellipseht,}
+ {\tt ellipsewid,} {\tt lineht,} {\tt linewid,} {\tt moveht,}
+ {\tt movewid,}
+ {\tt textht,} and {\tt textwid.}
+ The $\ldots${\tt ht} and $\ldots${\tt wid} parameters refer to the
+ default sizes of vertical and horizontal lines, moves, etc., except for
+ {\tt arrowht} and {\tt arrowwid}, which are arrowhead dimensions.
+ The {\tt boxrad} parameter can be used to put rounded corners on boxes.
+ Assigning a new value to {\tt scale} also multiplies all of these
+ parameters except {\tt arrowht,} {\tt arrowwid,} {\tt textht,} and
+ {\tt textwid} by the new value of {\tt scale} (\gpic multiplies them all).
+ Therefore, objects drawn to default sizes are unaffected by changing
+ {\tt scale} at the beginning of the diagram.
+ To change default sizes, redefine the appropriate parameters explicitly.
+
+\item The {\tt .PS} line can be used to scale the entire drawing, regardless
+ of its interior. Thus, for example, the line {\tt.PS 100/25.4}
+ scales the entire drawing to a width of 100$\,$mm.
+ Line thickness, text size, and \dpic arrowheads are unaffected by
+ this scaling.
+
+ If the final picture width exceeds {\tt maxpswid}, which
+ has a default value of 8.5, then the picture is scaled to this size.
+ Similarly, if the height exceeds {\tt maxpsht} (default 11), then the
+ picture is scaled to fit. These parameters can be assigned
+ new values as necessary, for example, to accommodate landscape figures.
+
+\item The finished size of typeset text is independent of \pic variables,
+ but can be determined as in \SR{Interaction:}. Then,
+ {\tt "text" wid $x$ ht $y$} tells \pic the size of {\tt text},
+ once the printed width $x$ and height $y$ have been found.
+
+\item Line widths are independent of diagram and text scaling, and have
+ to be set explicitly. For example,
+ the assignment {\tt linethick = 1.2} sets the default line width to 1.2\,pt.
+ The macro {\tt linethick\_({\sl points})} is also provided, together
+ with default macros {\tt thicklines\_} and {\tt thinlines\_}.
+
+\end{enumerate}
+
+\xection{Writing macros\label{Writing:}}
+The \Mfour language is quite simple and is
+described in numerous documents such as the original reference~\cite{KRm4}
+or in later manuals~\cite{Seindal94}. If a new circuit
+or other element is required, then it may suffice to modify and rename one of
+the library definitions or simply add an option to it.
+Hints for drawing general two-terminal elements are given in
+{\tt libcct.m4}. However, if an element or block is to be drawn in
+only one orientation then most of the elaborations used for general
+two-terminal elements in \SR{Basictwo:} can be dropped.
+If you develop a library of custom macros in the installation
+directory then the statement {\tt include(}{\sl mylibrary}{\tt.m4)}
+can bring its definitions into play.
+
+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,
+one argument beyond the normal list is automatically expanded before
+exiting the block, as mentioned near the beginning of \SR{Composite:}.
+This extra argument can be used to embellish the element.
+
+A macro is defined using quoted name and replacement text as follows:
+
+{\tt define(`}{\sl name}{\tt',`}{\sl replacement text}{\tt ')}
+
+After this line is read by the \Mfour processor, then whenever {\sl name}
+is encountered as a separate string, it is replaced by its replacement
+text, which may have multiple lines. The quotation characters are used
+to defer macro expansion. Macro arguments are referenced inside a
+macro by number; thus {\tt \$1} refers to the first argument.
+A few examples will be given.
+
+%\enlargethispage{\baselineskip}
+%\noindent\hbox{}\\ {\bf Example 1:}
+%\par\noindent {\bf Example 1:}
+\Example{1}
+Custom two-terminal elements can often be defined by writing a wrapper
+for an existing element. For example, an enclosed thermal switch
+can be defined as shown in \FR{Thermal}.
+\begin{figure}[h!]
+ \parbox{4.2in}{\tt define(`thermalsw',\hfill\break
+ \hbox{}\space`dswitch(`\$1',`\$2',WDdBT)\hfill\break
+ \hbox{}\space\space circle rad distance(M4T,last line.c)
+ at last line.c ') }%
+ \hfill\raise-0.15in\hbox{\input Thermal }
+ \caption{A custom thermal switch defined from the {\tt dswitch} macro.}
+ \label{Thermal}
+ \end{figure}
+
+%\par\noindent {\bf Example 2:}
+\Example{2}
+In the following,
+two macros are defined to simplify the repeated drawing
+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!]
+ \ifpdf\vspace*{-\baselineskip}\fi%
+ \input Tline
+ \caption{A lumped model of a transmission line, illustrating the
+ use of custom macros.}
+ \label{Tline}
+ \end{figure}
+
+\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.
+\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
+allows two-terminal elements to change the current drawing direction,
+so the value of {\tt rp\_ang} should be saved and restored as necessary
+after each internal two-terminal element has been drawn.
+A draft of such a macro follows:
+\begin{verbatim}
+# `Point_(degrees)
+# hybrid_PI_BJT([L][M])
+# L=left orientation; M=mirror'
+define(`hybrid_PI_BJT',
+`[ # Size (and direction) parameters:
+ hunit = ifinstr(`$1',M,-)dimen_
+ vunit = ifinstr(`$1',L,-)dimen_*3/2
+ hp_ang = rp_ang # Save the reference direction
+
+ Rpi: resistor(to rvec_(0,-vunit)); point_(hp_ang) # Restore direction
+ DotG: dot(at rvec_(hunit*5/4,0))
+ Gm: consource(to rvec_(0,vunit),I,R); point_(hp_ang) # Restore direction
+ dot(at rvec_(hunit*3/4,0))
+ Ro: resistor(to rvec_(0,-vunit)); point_(hp_ang) # Restore direction
+ line from Rpi.start to Rpi.start+vec_(-hunit/2,0) chop -lthick/2 chop 0
+ Base: dot(,,1)
+ line from Gm.end to Ro.start+vec_(hunit/2,0) chop -lthick/2 chop 0
+ Collector: dot(,,1)
+ line from Rpi.end to Ro.end chop -lthick/2
+ DotE: dot(at 0.5 between Rpi.end and DotG)
+ line to rvec_(0,-vunit/2)
+ Emitter: dot(,,1)
+ # Labels
+ `"$\mathrm{r_\pi}$"' at Rpi.c+vec_(hunit/4,0)
+ `"$ + $"' at Rpi.c+vec_(-hunit/6, vunit/4)
+ `"$ - $"' at Rpi.c+vec_(-hunit/6,-vunit/4)
+ `"$\mathrm{v_\pi}$"' at Rpi.c+vec_(-hunit/4,0)
+ `"$\mathrm{g_m}$$\mathrm{v_\pi}$"' at Gm.c+vec_(-hunit*3/8,-vunit/4)
+ `"$\mathrm{r_o}$"' at Ro.c+vec_(hunit/4,0)
+ `$2' ] ')
+\end{verbatim}
+
+\pagebreak
+\Example{4}
+%\par\noindent {\bf 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,
+as might be wanted for a 3-phase circuit:
+\begin{figure}[ht]
+\hfill\input Sinus
+ \vspace*{-0.5in}
+\begin{verbatim}
+define(`phsource',`source($1,
+#`Set angle to 0, draw sinusoid, restore angle'
+ m4smp_ang = rp_ang; rp_ang = 0
+ sinusoid(m4h/2,twopi_/(m4h),
+ ifelse(`$2',,,`($2)/360*twopi_+')pi_/2,-m4h/2,m4h/2) with .Origin at Here
+ rp_ang = m4smp_ang,
+$3,$4,$5)')
+\end{verbatim}
+\vspace*{-\baselineskip}
+ \caption{A source element customized using its second argument.}
+ \label{Sinus}
+ \end{figure}
+
+\Example{5}
+%\par\noindent {\bf Example 5:}
+Repeated subcircuits might have different orientations
+% but the potential orientations often
+that
+include only the element and its mirror image, for example, so the
+power of the \verb|vec_()| and \verb|rvec_()| macros is not required.
+Suppose that an optoisolator is to be drawn with left-right or right-left
+orientation as shown in \FR{Opto}.
+%\vspace*{-0.5em}
+\begin{figure}[h!t]
+ \input Opto
+ \caption{Showing {\tt opto} and {\tt opto(BR)} with defined labels.}
+ \label{Opto}
+ \end{figure}
+
+The macro interface could be something like the following:
+
+{\tt opto( [L|R][A|B] )},
+
+\noindent where an {\tt R} in the argument string signifies a right-left
+(mirrored) orientation and the element is of either {\tt A} or {\tt B} type;
+that is, there are two related elements that might be drawn in either
+orientation, for a total of four possibilities.
+Those who find such an interface to be too cryptic might prefer to
+invoke the macro as
+
+{\tt opto(orientation=Rightleft;type=B)},
+
+\noindent
+which includes semantic sugar surrounding the {\tt R} and {\tt B} characters
+for readability; this usage is made possible by testing the argument string
+using the {\tt ifinstr()} macro rather than requiring an exact match.
+A draft of the macro follows, and the file {\tt Optoiso.m4} in the examples
+directory adds a third type option.
+\begin{verbatim}
+# `opto([R|L][A|B])'
+define(`opto',`[{u = dimen_/2
+ Q: bi_trans(up u*2,ifinstr(`$1',R,R),ifinstr(`$1',B,B)CBUdE)
+ E: Q.E; C: Q.C; A:ifinstr(`$1',R,Q.e+(u*3/2,u),Q.w+(-u*3/2,u)); K: A-(0,u*2)
+ ifinstr(`$1',B,line from Q.B to (Q.B,E); B: Here)
+ D: diode(from A to K)
+ arrow from D.c+(0,u/6) to Q.ifinstr(`$1',R,e,w)+(0,u/6) chop u/3 chop u/4
+ arrow from last arrow.start-(0,u/3) to last arrow.end-(0,u/3)
+ Enc: box rad u wid abs(C.x-A.x)+u*2 ht u*2 with .c at 0.5 between C and K
+ `$2' }]')
+\end{verbatim}
+Two instances of this subcircuit are
+drawn and placed by the following code, with the result
+shown in \FR{Opto}.
+\begin{verbatim}
+Q1: opto
+Q2: opto(type=B;orientation=Rightleft) with .w at Q1.e+(dimen_,0)
+\end{verbatim}
+
+
+\iffalse
+\noindent {\bf Example 4:}
+Repeated subcircuits might have different orientations.
+Suppose that a simple opamp subcircuit might have to be drawn in any direction.
+The subcircuit will be placed in a {\tt [} {\tt ]} block, with
+internal points {\sl In}, {\sl Out}, and {\sl G}.
+The macro interface could be something like the following:
+
+{\tt fbfilter( U|D|L|R|{\sl degrees}, [L|R], {\sl opamp label},
+ {\sl C label}, {\sl R label} )}
+
+\noindent The first argument specifies the drawing direction as for the
+{\tt antenna} macro, for example. Setting the second argument to {\tt
+R} specifies right orientation with respect to the drawing direction,
+and the last three arguments are labels
+for three internal elements. Two instances of this subcircuit are
+drawn and placed by the following code, with the result
+shown in \FR{fbfilter}.
+\begin{verbatim}
+F1: fbfilter(,,K_3,C_{24},R_4)
+ ground(at F1.G)
+ dot(at F1.In); line up_ elen_/4
+F2: fbfilter(L,R,K_2,C_{23},R_3) with .In at F1.In
+ ground(at F2.G)
+\end{verbatim}
+\vspace*{-0.5em}
+\begin{figure}[h!t]
+ \input fbfilter
+ \caption{Showing the result of two invocations of the {\tt fbfilter} macro,
+ with labels.}
+ \label{fbfilter}
+ \end{figure}
+A draft macro for the subcircuit follows:
+\begin{verbatim}
+define(`fbfilter',
+`[ setdir_(ifelse(`$1',,0,`$1')) # Process arg 1, default to the right
+ eleminit_ # Assign rp_ang, rp_len
+ tmpang = rp_ang # Save rp_ang
+ hunit = elen_ # Dimension parameters
+ vunit = ifinstr(`$2',R,-)elen_/2
+ K: opamp(,,,,`$2')
+ move to K.In`'ifinstr(`$2',R,2,1); line to rvec_(-hunit/4,0)
+ J: dot
+ R: resistor(to rvec_(-elen_,0)); point_(tmpang) # Reset rp_ang
+ In: Here
+ move to K.In`'ifinstr(`$2',R,1,2); line to rvec_(-hunit/4,0)
+ G: Here
+ dot(at K.Out)
+ { line to rvec_(hunit/4,0)
+ Out: Here }
+ line to rvec_(0,vunit)
+ C: capacitor(to rvec_(-distance(K.Out,0.5 between J and G),0)); point_(tmpang)
+ line to J
+ ifelse(`$3',,,"$`$3'$" at K.C) # Add the labels if non-blank.
+ ifelse(`$4',,,"$`$4'$" at C+vec_(0,-vunit/3))
+ ifelse(`$5',,,"$`$5'$" at R+vec_(0,-vunit/4))
+ resetdir_
+ ]')
+\end{verbatim}
+The drawing direction is unknown when the macro is defined, so the
+macros {\tt vec\_} and {\tt rvec\_} are used for drawing lines and
+elements.
+Thus, {\tt (vec\_({\sl x,y}))} is position {\tt ({\sl x,y})} rotated
+by angle {\tt rp\_ang}.
+A side effect of drawing a two-terminal element is to change the
+drawing direction (in conformity with the \pic language), so the angle must
+be saved and reset as needed. Normally, the {\tt fbfilter} block will be
+placed by specifying the position of one of its defined points; by
+default it will be placed as if it were a box.
+\fi
+
+\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.
+Although they are not needed for many circuit diagrams,
+these sizes may be required explicitly for calculations or implicitly
+for determining the diagram bounding box.
+The following example shows how text sizes can affect the overall size of
+a diagram:
+
+\begin{verbatim}
+.PS
+B: box
+ "Left text" at B.w rjust
+ "Right text: $x^2$" at B.e ljust
+.PE
+\end{verbatim}
+
+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
+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.
+
+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
+text, and also to write the text dimensions into a supplementary file.
+Then the diagram source is processed again, reading the required
+dimensions from the supplementary file and producing a diagram ready
+for final \latex{}ing. This hackery is summarized below, with an example
+in \FR{stringdim}.
+\begin{itemize}
+\item Put \verb|\usepackage{boxdims}| into the document source.
+\item Insert the following at the beginning of the diagram source,
+ where {\sl jobname} is the name of the main \latex file:\hfill\break
+ \quad{\tt sinclude({\sl jobname}.dim)\hfill\break
+ \quad s\_init({\sl unique name})}
+\item Use the macro {\tt s\_box({\sl text})} to produce
+ typeset text of known size, or alternatively, invoke the macros
+ \verb|\boxdims| and \verb|boxdim| described later.
+ The argument of {\tt s\_box} need not be text exclusively; it can
+ be anything that produces a \TeX\ box.
+\end{itemize}
+\begin{figure}[h!t]
+ \parbox{3.5in}{\small\tt.PS\\
+ gen\_init\\
+ sinclude(Circuit\_macros.dim)\\
+ s\_init(stringdims)\\
+ B: box\\
+ \hbox{}\quad s\_box(Left text) at B.w rjust\\
+ \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
+ 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.}
+ \label{stringdim}
+ \end{figure}
+
+\noindent The macro \verb|s_box(|{\sl text}\verb|)| evaluates initially to
+
+ \verb|"\boxdims{|{\sl name}\verb|}{|{\sl text}\verb|}"|
+ \verb|wid boxdim(|{\sl name}\verb|,w) ht boxdim(|{\sl name}\verb|,v)|
+
+\noindent
+On the second pass, this is equivalent to
+
+ {\tt "{\sl text}" wid {\sl x} ht {\sl y}}
+
+ \noindent
+ where {\sl x} and {\sl y} are the typeset dimensions of the
+ \latex input text. If {\tt s\_box} is given two or more arguments
+ as in \FR{stringdim}
+ then they are processed by {\tt sprintf}.
+
+The argument of {\tt s\_init}, which should be unique within {\tt{\sl
+jobname}.dim}, is used to generate a unique \verb|\boxdims| first
+argument for each invocation of \verb|s_box| in the current file. If
+\verb|s_init| has been omitted, the symbols ``{\bf !!}'' are inserted
+into the text as a warning. Be sure to quote any commas in the
+arguments. Since the first argument of {\tt s\_box} is \latex source,
+make a rule of quoting it to avoid comma and name-clash problems. For
+convenience, the macros {\tt s\_ht}, {\tt s\_wd}, and {\tt s\_dp}
+evaluate to the dimensions of the most recent {\tt s\_box} string or to
+the dimensions of their argument names, if present.
+
+The file \verb|boxdims.sty| distributed with this package should be installed
+where \latex can find it.
+The essential idea is to define a two-argument \latex macro
+\verb|\boxdims| that writes out definitions for the width, height and
+depth of its typeset second argument into file {\sl jobname.}\verb|dim|,
+where {\sl jobname} is the name of the main source file.
+The first argument of \verb|\boxdims| is used to construct unique symbolic
+names for these dimensions.
+Thus, the line
+
+{\tt box \verb|"\boxdims{Q}{\Huge Hi there!}"| }
+
+\noindent has the same effect as
+
+{\tt box \verb|"\Huge Hi there!"|}
+
+\noindent except that the line
+
+{\tt define(`Q\_w',77.6077pt\_\_)define(`Q\_h',17.27779pt\_\_)%
+define(`Q\_d',0.0pt\_\_)dnl}
+
+\noindent is written into file {\sl jobname.}\verb|dim|
+(and the numerical values depend on the current font).
+These definitions are required by the \verb|boxdim| macro
+described below.
+
+The \latex macro
+
+\verb|\boxdimfile{|{\sl dimension file}\verb|}|
+
+\noindent is used to specify an alternative to {\sl jobname.}\verb|dim| as the
+dimension file to be written. This simplifies cases where {\sl jobname}
+is not known in advance or where an absolute path name is required.
+
+Another simplification is available. Instead of the
+{\tt sinclude({\sl dimension file})} line
+above, the dimension file can be read by \Mfour before reprocessing the source
+for the second time:
+
+{\tt m4 {\sl library files} {\sl dimension file} {\sl diagram source file} ...}
+
+Here is a second small example. Suppose that the file {\tt tsbox.m4} contains
+the following:
+\begin{verbatim}
+\documentclass{article}
+\usepackage{boxdims,ifpstricks(pstricks,tikz)}
+\begin{document}
+.PS
+cct_init s_init(unique) sinclude(tsbox.dim)
+[ source(up_,AC); llabel(,s_box(AC supply)) ]; showbox_
+.PE
+\end{document}
+\end{verbatim}
+The file is processed twice as follows:
+
+{\tt m4 pgf.m4 tsbox.m4 | dpic -g > tsbox.tex; pdflatex tsbox}
+\par
+{\tt m4 pgf.m4 tsbox.m4 | dpic -g > tsbox.tex; pdflatex tsbox}
+
+\noindent
+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
+
+{\tt m4 pstricks.m4 tsbox.m4 | dpic -p > tsbox.tex; latex tsbox}
+\par
+{\tt m4 pstricks.m4 tsbox.m4 | dpic -p > tsbox.tex; latex tsbox; dvips tsbox}
+
+\hbox{}
+
+Objects can be taylored to their attached text by invoking
+\verb|\boxdims| and \verb|boxdim| explicitly.
+The small source file in \FR{boxdims}, for example,
+produces the box in the figure.
+%\vspace*{-\baselineskip}%
+\begin{figure}[h!t]
+ \parbox{4.2in}{\small \input eboxdims.verb }%
+ \hfill\llap{\raise-0.35in\hbox{\input eboxdims }}%
+ \vspace{-\baselineskip}
+ \caption{Fitting a box to typeset text.}
+ \label{boxdims}
+ \end{figure}
+
+The figure is processed twice, as described previously.
+The line \verb|sinclude(|{\sl jobname}\verb|.dim)| reads the named file
+if it exists. The macro \verb|boxdim(|{\sl
+name,suffix,default}\verb|)| from {\tt libgen.m4} expands the
+expression \verb|boxdim(Q,w)| to the value of \verb|Q_w| if it is
+defined, else to its third argument if defined, else to 0, the latter
+two cases applying if {\sl jobname.}\verb|dim| doesn't exist yet. The
+values of \verb|boxdim(Q,h)| and \verb|boxdim(Q,d)| are similarly
+defined and, for convenience, \verb|boxdim(Q,v)| evaluates to the sum
+of these. Macro \verb|pt__| is defined as \verb|*scale/72.27| in {\tt
+libgen.m4}, to convert points to drawing coordinates.
+
+Sometimes a label needs a plain background in order to blank
+out previously drawn components overlapped by the label,
+as shown on the left of \FR{fbox}.
+The technique illustrated in \FR{boxdims} is automated by the
+macro
+{\tt f\_box(}{\sl boxspecs}, {\sl label arguments}{\tt )}.
+For the special case of only one argument,
+e.g., {\tt f\_box(Wood chips),} this macro
+simply overwrites the label on a white box of identical size.
+Otherwise, the first argument specifies the box characteristics
+(except for size), and the macro evaluates to
+
+{\tt box }{\sl boxspecs} {\tt s\_box(}{\sl label arguments}{\tt)}.
+
+\noindent%
+For example, the result of the following command
+is shown on the right of \FR{fbox}.
+
+\verb|f_box(color "lightgray" thickness 2 rad 2pt__,"\huge$n^{%g}$",4-1)|
+\begin{figure}[h!b]
+%\begin{figure}[b!]
+ \input woodchips
+ \vspace{-0.5\baselineskip}
+ \caption{Illustrating the {\tt f\_box} macro.}
+ \label{fbox}
+ \end{figure}
+
+More tricks can be played. The example
+
+\verb|Picture: s_box(`\includegraphics{|{\it file}\verb|.eps}') with .sw at|
+{\sl location}
+
+\noindent shows a nice way of including eps graphics in a diagram. The
+included picture (named {\tt Picture} in the example) has known position and
+dimensions, which can be used to add vector graphics or text to the
+picture. To aid in overlaying objects, the macro {\tt boxcoord(}{\sl
+object name, x-fraction, y-fraction}{\tt)} evaluates to a position,
+with {\tt boxcoord(}{\sl object name}{\tt,0,0)} at the lower left
+corner of the object, and {\tt boxcoord(}{\sl object name}{\tt,1,1)} at
+its upper right.
+
+\xection{\PSTricks and other tricks\label{Pstricks:}}
+This section applies only to a \pic processor (\dpic) that is
+capable of producing output compatible with
+\PSTricks, \TPGF, or in principle, other graphics postprocessors.
+
+By using {\tt command} lines,
+or simply by inserting \latex graphics directives along with strings to
+be formatted, one can mix
+arbitrary \PSTricks (or other) commands with \Mfour input
+to create complicated effects.
+
+Some commonly required effects are particularly simple. For example,
+the rotation of text by \PSTricks postprocessing is illustrated by the file
+
+{\small \verbatiminput{Axes.m4}}
+
+\noindent%
+which contains both horizontal text and text rotated $90^\circ$ along the
+vertical line.
+This rotation of text is also implemented by the macro
+{\tt rs\_box}, which is similar
+to {\tt s\_box} but rotates its text argument by $90^\circ,$ a default angle
+that can be changed by preceding invocation with
+\verb|define(`text_ang',|{\sl degrees}{\tt )}. The {\tt rs\_box} macro
+requires either \PSTricks or \TPGF and, like {\tt s\_box}, it calculates the
+size of the resulting text box but requires the diagram to be
+processed twice.
+
+Another common requirement is the filling of arbitrary shapes, as
+illustrated by the following lines within a {\tt .m4} file:
+
+\vspace{\parsep}
+\noindent%
+\verb|command "`\pscustom[fillstyle=solid,fillcolor=lightgray]{'"|
+\hfill\break
+{\sl drawing commands for an arbitrary closed curve}
+\hfill\break
+\verb|command "`}%'"|
+\vspace{\parsep}
+
+For colour printing or viewing, arbitrary
+colours can be chosen, as described in the \PSTricks manual.
+\PSTricks parameters can be set by inserting the line
+
+\vspace{\parsep}
+\noindent\verb|command "`\psset{|{\sl option=value,}$\;\ldots$\verb|}'"|
+\vspace{\parsep}
+
+\noindent%
+in the drawing commands or by using the macro
+{\tt psset\_(}{\sl PSTricks options}{\tt )}.
+
+The macros
+ {\tt shade(}{\sl gray value},{\sl closed line specs}{\tt )}
+and
+ {\tt rgbfill(}{\sl red value, green value, blue value, closed line specs}%
+ {\tt )}
+can be invoked to accomplish the same effect as the above fill example, but
+are not confined to use only with \PSTricks.
+
+Since arbitrary \latex can be output, either in ordinary strings or by
+use of {\tt command} output, complex examples such as found in
+reference~\cite{Girou94},
+for example, can be included. The complications
+are twofold: \latex and \dpic may not know the dimensions of the formatted
+result, and the code is generally unique to the postprocessor.
+Where postprocessors are capable of equivalent results, then
+macros such as {\tt rs\_box}, {\tt shade}, and {\tt rgbfill} mentioned
+previously can be used to hide code differences.
+
+\subsection{\Tikz\ with pic}\label{Tikzwithpic:}
+%The line
+%
+%\vspace{\parsep}
+%\noindent{\tt command "}{\sl string}{\tt "}
+%\vspace{\parsep}
+%
+%\noindent
+%allows arbitrary postprocessor code to be embedded in \pic output. However,
+%one can also embed
+Arbitrary \pic output can be inserted into a {\tt \bsl{}tikzpicture}
+environment. The trick is to keep the \pic and \Tikz coordinate systems
+the same.
+The lines
+
+\vspace{\parsep}
+\noindent\verb|\begin{tikzpicture}[scale=2.54]|\\
+\noindent\verb|\end{tikzpicture}|
+\vspace{\parsep}
+
+\noindent in the {\tt dpic -g} output must be changed to
+
+\vspace{\parsep}
+\noindent\verb|\begin{scope}[scale=2.54]|\\
+\noindent\verb|\end{scope}|
+\vspace{\parsep}
+
+This is accomplished, for example, by adapting the {\tt \bsl{}mtotex}
+macro of \SR{Simplifications:} as follows:
+
+\vspace{\parsep}
+\noindent
+\verb^\newcommand\mtotikz[1]{\immediate\write18{m4 pgf.m4 #1.m4 | dpic -g^\\
+\verb^ | sed -e "/begin{tikzpicture}/s/tikzpicture/scope/"^\\
+\verb^ -e "/end{tikzpicture}/s/tikzpicture/scope/" > #1.tex}\input{./#1.tex}}%^\break
+%\verb^ -e "/end{tikzpicture}/s/tikzpicture/scope/"^\\
+%\verb^ > #1.tex}\input{./#1.tex}}%^\break
+
+Then, from within a \Tikz pictdure,
+{\tt \bsl{}mtotikz\lbr{}{\sl filename}\rbr}
+will create {\sl filename}{\tt .tex} from {\sl filename}{\tt .m4}
+and read the result into the \Tikz code.
+
+In addition, the \Tikz code may need to refer to nodes defined in
+the \pic diagram.
+The included \Mfour macro
+{\tt tikznode(}{\sl tikz node name,[position],[string]}{\tt)}
+defines a zero-size \Tikz node at the given \pic position, which is
+{\tt Here} by default.
+This macro must be
+invoked in the outermost scope of a pic diagram, and the
+{\tt .PS} {\sl value} scaling construct may not be used.
+
+\xection{Web documents, {\ttfamily pdf}, and alternative output formats%
+\label{Alternative:}}
+
+Circuit diagrams contain graphics and symbols, and the issues related to
+web publishing are similar to those for other mathematical documents.
+Here the important factor is that \gpic\ {\tt -t} generates output
+containing \tpic \verb|\special| commands, which must be converted
+to the desired output, whereas \dpic can generate several alternative
+formats, as shown in \FR{Workflow}.
+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
+%\Textregistered
+or equivalent.
+
+PDFlatex produces pdf without first creating a postscript file
+but does not handle \tpic \verb|\special|s, so \dpic must be
+installed.
+
+%\enlargethispage{\baselineskip}
+Most PDFLatex distributions are not directly compatible with \PSTricks, but
+the \TPGF output of \dpic is compatible with both \latex and PDFLatex.
+Several alternative \dpic output formats such as
+\mfpic and \MetaPost also work well.
+To test \MetaPost, create a file {\sl filename}{\tt .mp}
+containing appropriate header lines, for example:
+%\pagebreak
+\begin{verbatim}
+ verbatimtex
+ \documentclass[11pt]{article}
+ \usepackage{times,boxdims,graphicx}
+ \boxdimfile{tmp.dim}
+ \begin{document} etex
+\end{verbatim}
+Then append one or more diagrams by using the equivalent of
+
+{\tt m4 <}{\sl installdir}{\tt >mpost.m4 {\sl library files}
+ {\sl diagram}.m4 | dpic -s >> {\sl filename}.mp}
+
+The command ``{\tt mpost --tex=latex } {\sl filename}{\tt .mp end}''
+processes this file, formatting the diagram text by creating a
+temporary {\tt .tex} file, \latex{}ing it, and recovering the {\tt .dvi}
+output to create {\sl filename}{\tt .1} and other files. If the {\tt boxdims}
+macros are being invoked, this process must be repeated to handle
+formatted text correctly as described in \SR{Interaction:}.
+In this case, either put {\tt sinclude(tmp.dim)} in the diagram {\tt .m4}
+source or read the {\tt .dim} file at the second invocation of
+\Mfour as follows:
+
+{\tt m4 <}{\sl installdir}{\tt >mpost.m4 {\sl library files} tmp.dim
+ {\sl diagram}.m4 | dpic -s >> {\sl filename}.mp}
+
+On some operating systems, the absolute path name for {\tt tmp.dim} has
+to be used to ensure that the correct dimension file is written and
+read. This distribution includes a {\tt Makefile} that simplifies the
+process; otherwise a script can automate it.
+
+Having produced {\sl filename}{\tt .1}, rename it to {\sl filename}{\tt .mps}
+and, {\it voil\`a,} you can now run PDFlatex on a {\tt .tex} source
+that includes the diagram using
+\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.
+\begin{figure}[h!b]
+% \ifpdf\vspace*{-\baselineskip}\fi%
+ \input Workflow
+ \ifpdf\vspace*{-\baselineskip}\fi%
+ \caption{Output formats produced by \gpic {\tt -t} and \dpic.
+ SVG output can be read by Inkscape or used directly in web documents.}
+ \label{Workflow}
+ \end{figure}
+
+\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.
+\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.
+
+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.
+
+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
+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,
+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
+allows the production of Metafont alphabets of circuit elements or
+other graphics, thereby essentially removing dependence on device
+drivers, but with the complication of treating every alphabetic
+component as a \tex box. The \xfig output allows elements to be
+precisely defined with \dpic and interactively placed with \xfig.
+Similarly, the SVG output can be read directly by the Inkscape graphics
+editor, but SVG can also be used directly for web pages.
+\Dpic will also generate low-level \MetaPost or \Postscript code, so
+that diagrams defined using \pic can be manipulated and combined with
+others. The \Postscript output can be imported into
+CorelDraw
+%\Textregistered
+and Adobe Illustrator
+%\Textregistered
+for further processing.
+With raw \Postscript, \PDF, and \SVG output, the user is
+responsible for ensuring that the correct fonts are provided and for
+formatting the text.
+
+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.
+
+\xection{Bugs\label{Bugs:}}
+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
+have to read them when unexpected results are obtained or when you wish
+to modify them.
+
+Maintaining reasonable compatibility with both \gpic\ and \dpic
+and, especially, for 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
+received.
+\newcommand{%
+ \bflistitem}[2]{\phantomsection\pdfbookmark[subsection]{#1}{#2}{\bf #1: }}
+\begin{enumerate}
+
+%\item {\bf Misconfiguration:}
+\item
+\bflistitem{Misconfiguration}{misconfig}%
+ One of the configuration files
+ listed in \SR{Libraries:} and {\tt libgen.m4}
+ {\em must} be read by \Mfour before any other library macros.
+ Otherwise, the macros assume default configuration.
+ To aid in detecting the default condition, a {\tt WARNING}
+ comment line is inserted into the {\tt pic} output.
+ If only \PSTricks is to be used, for example, then
+ the simplest strategy is to set it as the default processor by
+ typing ``make psdefault'' in the installation directory to
+ change the mention of {\tt gpic} to {\tt pstricks}
+ near the top of {\tt libgen.m4}.
+ Similarly if only \TPGF will be used, change {\tt gpic} to {\tt pgf}
+ using the Makefile.
+ The package default is to read {\tt gpic.m4} for historical compatibility.
+ The processor options must be chosen correspondingly,
+ {\tt gpic -t} for {\tt gpic.m4} and, most often,
+ {\tt dpic -p} or {\tt dpic -g} when \dpic is employed.
+ For example, the pipeline for \PSTricks output from file {\tt quick.m4} is
+
+ {\tt m4 -I {\sl installdir} pstricks.m4 quick.m4 | dpic -p > quick.tex}
+
+ \noindent%
+ but for \TPGF processing, the configuration file and \dpic option have to
+ be changed:
+
+ {\tt m4 -I {\sl installdir} pgf.m4 quick.m4 | dpic -g > quick.tex}
+
+ Any non-default configuration file must appear explicitly in the command
+ line or in an {\tt include()} statement.
+
+\iffalse
+\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
+the error message
+
+{\tt there is no variable `rp\_ang'}
+
+\noindent because {\tt rp\_ang} is not defined in the outermost scope of the
+diagram. To cure this problem, make sure that the line
+
+{\tt cct\_init}
+
+\noindent appears immediately after the .PS line or prior to the first block.
+It is entirely permissible to modify {\tt cct\_init} to include customized
+diagram initializations such as the {\tt thicklines\_} statement.
+One way to do this is to define a macro {\tt local\_init} in
+{\tt libgen.m4}.
+\fi
+
+\item
+\bflistitem{Pic objects versus macros}{objects}%
+ A common error is to write something like
+
+{\tt line from A to B; resistor from B to C; ground at D}
+
+\noindent when it should be
+
+{\tt line from A to B; resistor(from B to C); ground(at D)}
+
+\noindent This error is caused by an unfortunate inconsistency between
+\pic object attributes and the way \Mfour and \pic pass macro arguments.
+
+\item
+\bflistitem{Commas}{commas}
+Macro arguments are separated by commas, so any comma that is
+part of an argument must be protected by parentheses or quotes. Thus,
+
+{\tt shadebox(box with .n at w,h)}
+
+\noindent produces an error, whereas
+
+{\tt shadebox(box with .n at w`,'h)}
+
+\noindent and
+
+{\tt shadebox(box with .n at (w,h))}
+
+\noindent do not. The parentheses are preferred.
+For example,
+a macro invoked by circuit elements contained the line
+
+\verb|command "\pscustom[fillstyle=solid`,'fillcolor=m4fillv]{%"|
+
+\noindent which includes a comma, duly quoted. However, if such an
+element is an argument of another macro, the quotes are removed and the
+comma causes obscure ``too many arguments'' error messages.
+Changing this line to
+
+\verb|command sprintf("\pscustom[fillstyle=solid,fillcolor=m4fillv]{%%")|
+
+\noindent
+cured the problem because the protecting parentheses are not stripped away.
+
+\item
+\bflistitem{Default directions and lengths}{defaultdir}
+The \linespec argument of element
+macros defines a straight-line segment, which requires
+the equivalent of four parameters to be specified uniquely.
+If information is omitted, default values are used. Writing
+
+{\tt source(up\_)}
+
+\noindent draws a source up a distance equal to the current
+{\tt lineht} value, which may cause confusion.
+Writing
+
+{\tt source(0.5)}
+
+\noindent draws a source of length 0.5 units
+in the current \pic default direction, which is one of
+{\tt right,} {\tt left,} {\tt up,} or {\tt down.}
+The best practice is
+to specify both the direction and length of an element, thus:
+
+{\tt source(up\_ elen\_).}
+
+The effect of a \linespec argument is independent of any direction
+set using the {\tt Point\_} or similar macros.
+To draw an element at an obtuse angle (see \SR{Corners:}) try,
+for example,
+
+{\tt Point\_(45); source(to rvec\_(0.5,0))}
+
+\item
+\bflistitem{Processing sequence}{sequence}
+It is easy to forget that \Mfour finishes before \pic processing
+begins. Consequently, it may be puzzling that the following mix of
+a \pic loop and the \Mfour macro {\tt s\_box} does not appear to produce
+the required result:
+
+{\tt for i=1 to 5 do \lbr s\_box(A[i]); move \rbr}
+
+\noindent In this example, the {\tt s\_box} macro is expanded only once
+and the index {\tt i} is not a number. This particular example can be
+repaired by using an \Mfour loop:
+
+{\tt for\_(1,5,1,`s\_box(A[m4x]); move')}
+
+\item
+\bflistitem{Quotes}{quotes}
+ Single quote characters are stripped in pairs by \Mfour, so the string
+
+{\tt "{`}{`}inverse{'}{'}"}
+
+\noindent will become
+
+{\tt "{`}inverse{'}".}
+
+\noindent The cure is to add single quotes in pairs as necessary.
+
+ The only subtlety required in writing
+ \Mfour macros is deciding when to quote macro arguments. In the context
+ of circuits it seemed best to assume that arguments would not
+ be protected by quotes at the level of macro invocation, but should
+ be quoted inside each macro. There may be cases where this rule is
+ not optimal or where the quotes could be omitted, and there are
+ rare exceptions such as the {\tt parallel\_} macro.
+
+\item
+\bflistitem{Dollar signs}{dollarsigns}
+The $i$-th argument of an \Mfour macro is {\tt \$}$i,$ where $i$ is
+an integer, so the following construction can cause an error when it
+is part of a macro,
+
+{\tt "\$0\$" rjust below}
+
+\noindent since {\tt \$0} expands to the name of the macro itself.
+To avoid this problem, put the string in quotes or write
+ {\tt "\$`'0\$".}
+
+\item
+\bflistitem{Name conflicts}{conflicts}
+ Using the name of a macro as part of a comment or string is a
+ simple and common error. Thus,
+
+{\tt arrow right \verb|"$\dot x$"| above}
+
+\noindent produces an error message because {\tt dot} is a macro
+name. Macro expansion can be avoided by adding quotes, as follows:
+
+{\tt arrow right `\verb|"$\dot x$"|'\ above}
+
+Library macros intended only for internal use have names that begin
+with {\tt m4} or {\tt M4} to avoid name clashes, but in addition,
+a good rule is to quote all \latex in the diagram input.
+
+If extensive use of strings
+that conflict with macro names is required, then one possibility is
+to replace the strings by macros to be expanded by \latex, for example
+the diagram
+
+{\tt
+.PS\hfill\break
+ \hspace*{\parindent} box \verb|"\stringA"|\hfill\break
+.PE
+}
+
+\noindent with the \latex macro
+
+{\tt
+ \verb|\newcommand{\stringA}{|%
+
+ \verb|Circuit containing planar inductor and capacitor}|
+}
+
+\item
+\bflistitem{Current direction}{currdir}
+ Some macros, particularly those for labels, do
+unexpected things if care is not taken to preset the current direction
+using macros {\tt right\_,} {\tt left\_,} {\tt up\_,} {\tt down\_,}
+or {\tt rpoint\_($\cdot$).}
+Thus for two-terminal macros it is good practice to write, e.g.
+
+{\tt resistor(up\_ from A to B); rlabel(,R\_1)}
+
+\noindent%
+rather than
+
+{\tt resistor(from A to B); rlabel(,R\_1),}
+
+\noindent%
+which produce different results if the last-defined drawing direction is not
+{\tt up}. It might be possible to change the label macros to avoid this problem
+without sacrificing ease of use.
+
+\item
+\bflistitem{Position of elements that are not 2-terminal}{nottwoterm}
+ The \linespec argument of elements defined in {\tt[} {\tt]}
+ blocks must be understood as defining a direction and length, but
+ not the position of the resulting block.
+ In the \pic language, objects inside these brackets are placed by
+ default {\em as if the block were a box}. Place the
+ element by its compass corners or defined interior points
+ as described in the first paragraph of \SR{Composite:} on
+ \PR{Composite:}, for example
+
+{\tt igbt(up\_ elen\_) with .E at (1,0)}
+
+\item
+\bflistitem{Pic error messages}{errormessages}
+ Some errors are detected only after scanning
+ beyond the end of the line containing the error. The semicolon
+ is a logical line end, so putting a semicolon at the end of lines may
+ assist in locating bugs.
+
+\item
+\bflistitem{Line continuation}{continuation}
+ A line is continued to the next if the
+ rightmost character is a backslash or, with \dpic, if the backslash is
+ followed immediately by the {\tt \#} character.
+ A blank after the backslash, for example, produces a \pic error.
+
+\item
+\bflistitem{Scaling}{scaling}
+ \Pic and these macros provide several ways to scale
+ diagrams and elements within them, but subtle unanticipated effects
+ may appear. The line {\tt.PS} $x$ provides a convenient way to force
+ the finished diagram to width $x.$ However, if \gpic is the
+ \pic processor then all scaled parameters are affected, including those
+ for arrowheads and text parameters, which may not be the desired
+ result. A good general rule is to use the {\tt scale} parameter for
+ global scaling unless the primary objective is to specify overall
+ dimensions.
+
+\item
+\bflistitem{Buffer overflow}{overflow}
+ For some \Mfour implementations,
+ the error message {\tt pushed back more than 4096 chars}
+ results from expanding large macros or macro arguments, and can be
+ avoided by enlarging the buffer. For example, the option {\tt
+ -B16000} enlarges the buffer size to 16000 bytes. However, this
+ error message could also result from a syntax error.
+
+\item
+\bflistitem{\PSTricks anomaly}{anomaly}
+ If you are using \PSTricks and
+ you get the error message {\tt Graphics parameter `noCurrentPoint'
+ not defined..} then your version of \PSTricks is older than
+ August 2010. You can do the following:
+\begin{enumerate}
+\item Update your \PSTricks package.
+\item Instead, comment out the second definition of {\tt M4PatchPSTricks} in
+ {\tt pstricks.m4}. The first definition works for some older
+ \PSTricks distributions.
+\item Insert {\tt define(`M4PatchPSTricks',)} immediately after the
+ {\tt .PS} line of your diagram.
+ This change prevents the line
+ \verb|\psset{noCurrentPoint}| from being added to the {\tt .tex}
+ code for the diagram. This line is a workaround for a ``feature''
+ of the current \PSTricks \verb|\psbezier| command that changes its
+ behaviour within the \verb|\pscustom| environment. This situation
+ occurs rarely and so the line is unnecessary for many diagrams.
+\item For very old versions of \PSTricks such as pstricks97, disable the
+ workaround totally by changing the second definition in {\tt pstricks.m4}
+ to {\tt define(`M4PatchPSTricks',)}. Undo the change if you later update
+ \PSTricks.
+ \end{enumerate}
+
+\item
+\bflistitem{m4 {\tt -I} error}{mfourerror}\label{Mfourerror:}
+ Some old versions of m4 may not implement
+ the {\tt -I} option or the {\tt M4PATH} environment variable that
+ simplify file inclusion.
+ The simplest course of action is probably to install GNU m4, which is
+ free and widely available.
+ Otherwise, all {\tt include({\sl filename})} statements in the libraries and
+ calling commands have to be given absolute {\sl filename} paths.
+ You can define the {\tt HOMELIB\_} macro in {\tt libgen.m4} to the
+ path of the installation directory and change the library
+ include statements to the form {\tt include(HOMELIB\_`'{\sl filename})}.
+
+\end{enumerate}
+
+\xection{List of macros\label{Listofmacros:}}
+\label{defines}
+The following table lists macros in the libraries, configuration
+files, and selected macros from example diagrams. Some of the sources
+in the {\tt examples} directory contain
+additional macros, such as for flowcharts, Boolean logic, and binary
+trees.
+
+Internal macros defined within the libraries begin with the characters
+m4 or M4 and, for the most part, are not listed here.
+
+The library in which each macro is found is given, and a brief description.
+\input defines
+\endinput
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+ I think you want the pdfcomment package. This includes a \pdftooltip command.
+
+ This lets you add a tool tip to the PDF using
+ \pdftooltip{item}{tooltip},
+ where the item can be almost anything
+ (e.g. \pdftooltip{\includegraphics[]{}}{description of my figure}).
+
+ In your case, you could use
+
+ \pdftooltip{abbreviation}{what that TLA means}
+
+ But with pdfcomment, the tool tip cannot be anything but plain,
+ unformatted text.
+
+ Try the \pdfcomment package. There's an option to add a tool tip to
+ the PDF using \pdftooltip{item}{tooltip}, where the item can be a float
+ (e.g. \pdftooltip{\includegraphics[]{}}{description of my figure}).
+
+ The overall process that I've settled on to produce 508-compliant
+ documents is to
+
+ Produce a high-quality PDF from \latex which includes all of the tooltips
+ Run the PDF through the tagging tool that is provided by Adobe Acrobat X
+ (Adobe how-to).
+
+
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/body.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/currents.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/currents.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/currents.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,52 @@
+.PS
+# `currents.m4'
+cct_init
+ del = 0.75
+[
+ {right_
+ resistor; b_current(i)
+ {"\tt b\_current(i)" at last line + (0,-0.20)}
+ move right_ del
+ resistor; b_current(i,below_)
+ {"\tt $\ldots$(i,below\_)" at last line + (0,-0.20)}
+ move right_ del
+ resistor; b_current(i,,O)
+ {"\tt $\ldots$(i,{,}O)" at last line + (0,-0.20)}
+ move right_ del
+ resistor; b_current(i,below_,O)
+ {"\tt $\ldots$(i,below\_,O)" at last line + (0,-0.20)}
+ }
+
+ move down_ 0.60
+ {right_
+ resistor; b_current(i,,,E)
+ {"\tt b\_current(i,{,},E)" wid 1.2 at last line + (0,-0.20)}
+ move right_ del
+ resistor; b_current(i,below_,,E)
+ {"\tt $\ldots$(i,below\_,{,}E)" at last line + (0,-0.20)}
+ move right_ del
+ resistor; b_current(i,,O,E,0.2)
+ {"\tt $\ldots$(i,{,}O,E,0.2)" at last line + (0,-0.20)}
+ move right_ del
+ resistor; b_current(i,below_,O,E)
+ {"\tt $\ldots$(i,below\_,O,E)" at last line + (0,-0.20)}
+ }
+
+ move down_ 0.60
+ {right_
+ del = 0.55
+ inductor; larrow(i)
+ {"`\tt larrow(i)'" at last line + (0,-0.20)}
+ move up 0.1 right_ del
+ inductor; rarrow(i)
+ {"`\tt rarrow(i)'" at last line + (0,-0.30)}
+ move down 0.1 right_ del
+ inductor; larrow(i,<-)
+ {"`\tt larrow(i,<-)'" at last line + (0,-0.20)}
+ move up 0.1 right_ del
+ inductor; rarrow(i,<-)
+ {"`\tt rarrow(i,<-)'" at last line + (0,-0.30)}
+ }
+]
+#showbox_
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/currents.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/defines.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/defines.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/defines.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,1892 @@
+%
+\newdimen{\leftwid}\setlength{\leftwid}{2in}
+\newdimen{\libwid}\setlength{\libwid}{0.5in}
+\newdimen\rightwid
+\setlength{\rightwid}{\textwidth}
+\addtolength{\rightwid}{-\leftwid}
+\addtolength{\rightwid}{-\libwid}
+%
+\newbox\Defbox
+
+\newcommand{\macx}[2]{%
+ \phantomsection\pdfbookmark[subsection]{#1}{#2}#1}
+
+\newcommand{\macrodef}[5]{%\begin{samepage}%
+\phantomsection\pdfbookmark[subsection]{#1}{#2}%
+\setbox\Defbox=\hbox{\tt #1#3}%
+ \ifdim\wd\Defbox>\textwidth%
+ \setbox\Defbox=\hbox{\parbox{\textwidth}{\tt #1#3}}\fi
+ \ifdim\wd\Defbox>\leftwid%
+ \box\Defbox\hfill\break\hspace*{\leftwid}%
+ \else\hbox to \leftwid{\box\Defbox\hfill}\fi%
+ \hbox to \libwid{#4\hfill}\parbox[t]{\rightwid}%
+ {\raggedright #5}%
+% \end{samepage}%
+ \vspace{\parsep}\\}
+
+\newcommand{\seesect}[1]{ (\SR{#1})}
+
+\vspace{\abovedisplayskip}
+\noindent
+\macrodef{above\_}{above_}{}
+ {gen}
+ {string position above relative to current direction}
+\macrodef{abs\_}{abs_}{({\sl number})}
+ {gen}
+ {absolute value function}
+\macrodef{adc}{adc}{({\sl width,height,nIn,nN,nOut,nS})}
+ {cct}
+ {ADC with defined width, height, and number of inputs {\tt In$i$},
+ top terminals {\tt N$i$}, ouputs {\tt Out$i$},
+ and bottom terminals~{\tt S$i$}}
+\macrodef{addtaps}{addtaps}{[{\sl arrowhd}
+ | type={\sl arrowhd};name={\sl Name}],
+ {\sl fraction, length, fraction, length,} $\cdots$)}
+ {cct}
+ {Add taps to the previous two-terminal element.
+ {\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
+ \seesect{Composite:}}
+\macrodef{along\_}{along_}{({\sl linear object name})}
+ {gen}
+ {short for {\tt between {\sl name}.start and {\sl name}.end}}
+\macrodef{Along\_}{Along_}{({\sl LinearObj,distance,}[R])}
+ {gen}
+ {Position arg2 (default all the way) along a linear object
+ from {\tt .start} to {\tt .end}
+ (from {\tt .end} to {\tt .start} if arg3={\tt R}) }
+\macrodef{amp}{amp}{(\linespec,{\sl size})}
+ {cct}
+ {amplifier\seesect{Twoterminal:}}
+\macrodef{And, Or, Not, Nand, Nor, Xor, Nxor, Buffer}%
+ {And, Or, Not, Nand, Nor, Xor, Nxor, Buffer}{}
+ {log}
+ {Wrappers of {\tt AND\_gate}, $\ldots$ for use in the {\tt Autologix}
+ macro}
+\macrodef{AND\_gate}{AND_gate}{({\sl n},N)}
+ {log}
+ {basic `and' gate, 2 or {\sl n\/} inputs; {\tt N}=negated input.
+ Otherwise, arg1 can be a sequence of letters {\tt P|N}
+ to define normal or negated inputs
+ \seesect{Logicgates:}}
+\macrodef{AND\_gen}{AND_gen}{($n$,{\sl chars},[{\sl wid},[{\sl ht}]])}
+ {log}
+ {general AND gate: $n$=number of inputs $(0\leq n\leq 16)$;
+ {\sl chars:}
+ B=base and straight sides; A=Arc;
+ [N]NE,[N]SE,[N]I,[N]N,[N]S=inputs or circles;
+ [N]O=output; C=center.
+ Otherwise, arg1 can be a sequence of letters {\tt P|N}
+ to define normal or negated inputs.}
+\macrodef{AND\_ht}{AND_ht}{}
+ {log}
+ {height of basic `and' and `or' gates in {\tt L\_unit}s}
+\macrodef{AND\_wd}{AND_wd}{}
+ {log}
+ {width of basic `and' and `or' gates in {\tt L\_unit}s}
+\macrodef{antenna}{antenna}{%
+ (at {\sl location}, T, A|L|T|S|D|P|F, U|D|L|R|{\sl degrees})}
+ {cct}
+ {antenna, without stem for nonblank 2nd arg; {\tt A}=aerial,
+ {\tt L}=loop, {\tt T}=triangle, {\tt S}=diamond, {\tt D}=dipole,
+ {\tt P}=phased, {\tt F}=fork;
+ up, down, left, right, or angle from horizontal (default 90)
+ \seesect{Composite:}}
+\macrodef{arca}{arca}{({\sl absolute chord linespec}, ccw|cw, {\sl radius},
+ {\sl modifiers}) }
+ {gen}
+ {arc with acute angle (obtuse if radius is negative), drawn in a [ ] block}
+\macrodef{arcd}{arcd}{({\sl center},
+ {\sl radius},{\sl start degrees},{\sl end degrees}) }
+ {gen}
+ {Arc definition (see {\tt arcr}), angles in degrees
+ \seesect{Positions:}}
+\macrodef{arcdimension\_}{arcdimension_}{({\sl arcspec},{\sl offset},%
+{\sl label},
+ D|H|W|{\sl blank width},{\sl tic offset},{\sl arrowhead })}
+ {gen}
+ {like {\tt dimension\_}, for drawing arcs for dimensioning diagrams;
+ {\sl arrowhead=}{\tt -> | <-}. Uses the first argument as the attributes
+ of an invisible arc: {\tt arc invis }{\sl arg1}. {\sl Arg2} is the
+ radial displacement (possibly negative) of the dimension arrows.
+ If {\sl arg3} is {\tt s\_box(\ldots)} or {\sl rs\_box(\ldots)} and
+ {\sl arg4=}{\tt D|H|W} then {\sl arg4} means:
+ {\tt D:} blank width is the diagonal length of {\sl arg3};
+ {\tt H:} blank width is the height of {\sl arg3} + {\tt textoffset*2};
+ {\tt W:} blank width is the width of {\sl arg3} + {\tt textoffset*2};
+ otherwise {\sl arg4} is the absolute blank width}
+\macrodef{arcr}{arcr}{({\sl center},{\sl radius},{\sl start angle},{\sl
+ end angle,modifiers,ht}) }
+ {gen}
+ {Arc definition. If arg5 contains {\tt <-} or {\tt ->} then a midpoint
+ arrowhead of height equal to arg6 is added. Arg5 can contain modifiers
+ (e.g. outlined "red"), for the arc and arrowhead. Modifiers following
+ the macro affect the arc only,
+ e.g., {\tt arcr(A,r,0,pi\_/2,->) dotted ->}
+ \seesect{Positions:}}
+\macrodef{arcto}{arcto}{({\sl position 1},{\sl position 2},{\sl
+ radius},[dashed|dotted])}
+ {gen}
+ {line toward position 1 with rounded corner toward position 2}
+\macrodef{arrowline}{arrowline}{(\linespec)}
+ {cct}
+ {line (dotted, dashed permissible) with centred arrowhead
+ \seesect{Twoterminal:}}
+\macrodef{AutoGate}{AutoGate}{}
+ {log}
+ {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{Autologix}{Autologix}%
+ {({\sl Boolean function sequence},%
+ [N[oconnect]][L[eftinputs]][R][V][M][;offset={\sl value}]}
+ {log}
+ {Draw the Boolean expressions defined in function notation
+ using {\tt And, Or, Not, Buffer, Xor, Nand, Nor, Nxor}
+ and variables, e.g.,
+ {\tt Autologix(And(Or(x1,~x2),Or(~x1,x2)));}.
+ The Boolean functions are separated by semicolons (;). Function
+ outputs are aligned vertically but appending
+ {\tt:}{\sl location attribute} to a function can be used to place it.
+ Each unique variable {\sl var} causes an input point {\tt In}{\sl var}
+ to be defined. Preceding the variable by a {\tt \~{}} causes a not gate
+ to be drawn at the input.
+ The inputs are drawn in a row at the upper left by default.
+ An {\tt L} in arg2 draws the inputs in a column at the left;
+ {\tt R} reverses the order of the drawn inputs;
+ {\tt V} scans the expression from right to left
+ when listing inputs;
+ {\tt M} draws the left-right mirror image of the diagram;
+ and {\tt N} draws only the function tree without the input array.
+ The inputs are labelled {\tt In1}, {In2}, \ldots and the function
+ outputs are {\tt Out1}, {Out2}, \dots.
+ Each variable {\sl var} corresponds also to one of the input array
+ points with label {\tt In}{\sl var}.
+ Setting {\tt offset=}{\sl value} displaces the
+ drawn input list in order to disambiguate the input connections when {\tt L}
+ is used}
+\macrodef{b\_}{b_}{}
+ {gen}
+ {blue color value}
+\macrodef{b\_current}{b_current}{({\sl label},{\sl pos},In|Out,Start|End,{\sl
+ frac})}
+ {cct}
+ {labelled branch-current arrow to {\sl frac} between branch end and body
+ \seesect{Branchcurrent:}}
+\macrodef{basename\_}{basename_}{({\sl string sequence, separator})}
+ {gen}
+ {Extract the rightmost name from a sequence of names separated by arg2
+ (default dot ``.'')}
+\macrodef{battery}{battery}{(\linespec,{\sl n},R)}
+ {cct}
+ {n-cell battery: default 1 cell,
+ R=reversed polarity\seesect{Twoterminal:}}
+\macrodef{beginshade}{beginshade}{({\sl gray value})}
+ {gen}
+ {begin gray shading, see {\tt shade}
+ e.g., {\tt beginshade(.5);} {\sl closed line specs}; {\tt endshade}}
+\macrodef{bell}{bell}{( U|D|L|R|{\sl degrees}, {\sl size})}
+ {cct}
+ {bell, {\sl In1} to {\sl In3} defined
+ \seesect{Composite:}}
+\macrodef{below\_}{below_}{}
+ {gen}
+ {string position relative to current direction}
+\macrodef{bi\_tr}{bi_tr}{(\linespec,L|R,P,E)}
+ {cct}
+ {left or right, N- or P-type bipolar transistor, without or with envelope
+ \seesect{Semiconductors:}}
+\macrodef{bi\_trans}{bi_trans}{(\linespec,L|R,{\sl chars},E)}
+ {cct}
+ { bipolar transistor, core left or right; chars:
+ {\tt BU}=bulk line,
+ {\tt B}=base line and label,
+ {\tt S}=Schottky base hooks,
+ {\tt uEn|dEn}=emitters E0 to En,
+ {\tt uE|dE}=single emitter,
+ {\tt Cn|uCn|dCn}=collectors C0 to Cn; {\tt u} or {\tt d} add an arrow,
+ {\tt C}=single collector; {\tt u} or {\tt d} add an arrow,
+ {\tt G}=gate line and location,
+ {\tt H}=gate line; {\tt L}=L-gate line and location,
+ {\tt [d]D}=named parallel diode,
+ {\tt d}=dotted connection,
+ {\tt [u]T}=thyristor trigger line;
+ arg 4 = E: envelope
+ \seesect{Semiconductors:}}
+\macrodef{binary\_}{binary_}{($n$, [$m$])}
+ {gen}
+ {binary representation of $n,$ left padded to $m$ digits if the second
+ argument is nonblank}
+\macrodef{BOX\_gate}{BOX_gate}{({\sl inputs,output,swid,sht,label})}
+ {log}
+ {output=[{\tt P|N}], inputs=[{\tt P|N}]$\ldots$, sizes swid and sht
+ in {\tt L\_unit}s (default {\tt AND\_wd} = 7)
+ \seesect{Logicgates:}}
+\macrodef{boxcoord}{boxcoord}{({\sl planar obj},{\sl x fraction},{\sl y
+ fraction})}
+ {gen}
+ {internal point in a planar object}
+\macrodef{boxdim}{boxdim}{({\sl name},h|w|d|v,{\sl default})}
+ {gen}
+ {evaluate, e.g.\ {\sl name}{\tt \_w} if defined, else {\sl default\/}
+ if given, else 0 {\tt v} gives sum of {\tt d} and {\tt h} values
+ \seesect{Interaction:}}
+\macrodef{bp\_\_}{bp__}{}
+ {gen}
+ {big-point-size factor, in scaled inches, ({\tt *scale/72})}
+\macrodef{bswitch}{bswitch}{(\linespec, [L|R],chars)}
+ {cct}
+ {pushbutton switch R=right orientation (default L=left);
+ chars: O= normally open, C=normally closed }
+\macrodef{BUF\_ht}{BUF_ht}{}
+ {log}
+ {basic buffer gate height in {\tt L\_unit}s}
+\macrodef{BUF\_wd}{BUF_wd}{}
+ {log}
+ {basic buffer gate width in {\tt L\_unit}s}
+\macrodef{BUFFER\_gate}{BUFFER_gate}{(\linespec, [N|B],
+ {\sl wid, ht,} [N|P]\char42, [N|P]\char42, [N|P]\char42)}
+ {log}
+ {basic buffer, dfault 1 input or as a 2-terminal element,
+ arg2: {\tt N}=negated input, {\tt B}=box gate; arg 5:
+ normal ({\tt P}) or negated {\tt N}) inputs labeled In1
+ \seesect{Logicgates:}}
+\macrodef{BUFFER\_gen}{BUFFER_gen}{({\sl chars,wd,ht},[N|P]*,[N|P]*,[N|P]*)}
+ {log}
+ {general buffer, {\sl chars:} {\tt T}=triangle,
+ {\tt [N]O}=output location {\tt Out}
+ ({\tt NO} draws circle {\tt N\_Out});
+ {\tt [N]I, [N]N, [N]S, [N]NE, [N]SE}
+ input locations; {\tt C}=centre location.
+ Args 4-6 allow alternative
+ definitions of respective {\tt In, NE,}
+ and {\tt SE} argument sequences }
+\macrodef{buzzer}{buzzer}{( U|D|L|R|{\sl degrees, size,}[C])}
+ {cct}
+ {buzzer, {\sl In1} to {\sl In3} defined, C=curved
+ \seesect{Composite:}}
+\macrodef{c\_fet}{c_fet}{(\linespec,L|R,P)}
+ {cct}
+ {left or right, plain or negated pin simplified MOSFET}
+\macrodef{capacitor}{capacitor}{(\linespec,{\sl char}[+[L]],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;
+ +L polarity sign to the left of drawing direction;
+ arg3: R=reversed polarity,
+ arg4 = height (defaults F: {\tt dimen\_}$/3$,
+ 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|T|TS)}
+ {cct}
+ {circuit breaker to left or right, {\tt D}=with dots; {\tt T}=thermal;
+ {\tt TS}=squared thermal\seesect{Twoterminal:}}
+\macrodef{ccoax}{ccoax}{(at {\sl location}, M|F, {\sl diameter})}
+ {cct}
+ {coax connector, {\tt M}=male, {\tt F}=female
+ \seesect{Composite:}}
+\macrodef{cct\_init}{cct_init}{}
+ {cct}
+ {initialize circuit-diagram environment (reads {\tt libcct.m4})}
+\macrodef{centerline\_}{centerline_}{({\sl linespec, thickness{\tt|}color,
+ minimum long dash len, short dash len, gap len}}
+ {gen}
+ {Technical drawing centerline}
+\macrodef{Cintersect}{Cintersect}{({\sl Pos1, Pos2, rad1, rad2,} [R])}
+ {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})}
+ {cct}
+ {centre triple label \seesect{Labels:}}
+\macrodef{cm\_\_}{cm__}{}
+ {gen}
+ {absolute centiimetres}
+\macrodef{consource}{consource}{(\linespec,V|I|v|i,R)}
+ {cct}
+ {voltage or current controlled source with alternate forms;
+ {\tt R}=reversed polarity\seesect{Twoterminal:}}
+\macrodef{contact}{contact}{({\sl chars})}
+ {cct}
+ {single-pole contact: {\tt P}= three position, {\tt O}= normally open,
+ {\tt C}= normally closed, {\tt I}= circle contacts, {\tt R}= right
+ orientation
+ \seesect{Composite:}}
+\macrodef{contline}{contline}{({\sl line})}
+ {gen}
+ {evaluates to {\tt continue}
+ if processor is {\bf dpic}, otherwise to first arg (default {\tt line})}
+\macrodef{corner}{corner}{({\sl line thickness,attributes,turn radians})}
+ {gen}
+ { Mitre (default filled square) drawn at end of last line or at a
+ given position.
+ arg1 default: current line thickness;
+ arg2: e.g. {\tt outlined} {\sl string}; if arg2 starts with
+ {\tt at} {\sl position} then a manhattan (right-left-up-down) corner
+ is drawn;
+ arg3= radians (turn angle, +ve is ccw, default $\pi/2$).
+ The corner is enclosed in braces
+ in order to leave {\tt Here} unchanged unless arg2 begins with {\tt at}
+ \seesect{Corners:}}
+\macrodef{Cos}{Cos}{({\sl integer})}
+ {gen}
+ {cosine function, {\sl integer\/} degrees}
+\macrodef{cosd}{cosd}{({\sl arg})}
+ {gen}
+ {cosine of an expression in degrees}
+\macrodef{Cosine}{Cosine}{( {\sl amplitude}, {\sl freq}, {\sl time},
+ {\sl phase} )}
+ {gen}
+ {function $a\times\cos(\omega t + \phi)$ }
+\macrodef{cross}{cross}{(at {\sl location})}
+ {gen}
+ {plots a small cross}
+\macrodef{cross3D}{cross3D}{({\sl x1,y1,z1,x2,y2,z2})}
+ {3D}
+ {cross product of two triples}
+\macrodef{crossover}{crossover}{(\linespec, L|R, Line1, ...)}
+ {cct}
+ {line jumping left or right over named lines\seesect{Semiconductors:}}
+\macrodef{crosswd\_}{crosswd_}{}
+ {gen}
+ {cross dimension}
+\macrodef{csdim\_}{csdim_}{}
+ {cct}
+ {controlled-source width}
+\macrodef{d\_fet}{d_fet}{(\linespec,L|R,P,S,E|S)}
+ {cct}
+ {left or right, N or P depletion MOSFET, normal or simplified,
+ without or with envelope or thick channel
+ \seesect{Semiconductors:}}
+\macrodef{dabove}{dabove}{(at {\sl location})}
+ {darrow}
+ {above (displaced dlinewid/2)}
+\macrodef{dac}{dac}{({\sl width,height,nIn,nN,nOut,nS})}
+ {cct}
+ {DAC with defined width, height, and number of inputs {\tt In$i$},
+ top terminals {\tt N$i$}, ouputs {\tt Out$i$},
+ and bottom terminals~{\tt S$i$} \seesect{Logicgates:}}
+\macrodef{darc}{darc}{({\sl center position},
+ {\sl radius}, {\sl start radians}, {\sl end radians}, {\sl dline thickness},
+ {\sl arrowhead wid}, {\sl arrowhead ht},
+ {\sl terminals})}
+ {darrow}
+ {See also {\tt Darc}.
+ CCW arc in {\tt dline} style, with closed ends or (dpic only) arrowheads.
+ Permissible {\sl terminals}:
+ {\sl x}{\tt -},
+ {\tt -}{\sl x}, {\sl x}{\tt -}{\sl x}, {\tt ->}, {\sl x}{\tt ->},
+ {\tt <-}, {\tt <-}{\sl x}, {\tt <->}
+ where {\sl x} means {\tt |} or (half-thickness line) {\tt !}.}
+\macrodef{Darc}{Darc}{({\sl center position},
+ {\sl radius}, {\sl start radians}, {\sl end radians},
+ {\sl parameters})}
+ {darrow}
+ {Wrapper for {\tt darc}.
+ CCW arc in {\tt dline} style, with closed ends or (dpic only) arrowheads.
+ Semicolon-separated {\sl parameters}:
+ {\tt thick=}{\sl value}, {\tt wid=}{\sl value}, {\tt ends=}
+ {\sl x}{\tt -},
+ {\tt -}{\sl x}, {\sl x}{\tt -}{\sl x}, {\tt ->}, {\sl x}{\tt ->},
+ {\tt <-}, {\tt <-}{\sl x}, {\tt <->}
+ where {\sl x} means {\tt |} or (half-thickness line) {\tt !}.}
+\macrodef{Darlington}{Darlington}{(L|R,{\sl chars})}
+ {cct}
+ {Composite Darlington pair Q1 and Q2 with internal locations E, B, C;
+ Characters in {\sl arg2:}
+ E= envelope,
+ P= P-type,
+ B1= internal base lead,
+ D= damper diode,
+ R1= Q1 bias resistor; E1= ebox,
+ R2= Q2 bias resistor; E1= ebox,
+ Z= zener bias diode
+ \seesect{Semiconductors:}}
+\macrodef{darrow\_init}{darrow_init}{}
+ {darrow}
+ {initialize darrow drawing parameters (reads {\tt darrow.m4})}
+\macrodef{Darrow}{Darrow}{(\linespec, {\sl parameters})}
+ {darrow}
+ {Wrapper for {\tt darrow}.
+ Semicolon-separated {\sl parameters}:
+ {\tt S}, {\tt E} truncate at start or end by dline thickness/2;
+ {\tt thick=}{\sl val} (total thicknes, ie width);
+ {\tt wid=}{\sl val} (arrowhead width);
+ {\tt ht=}{\sl val} (arrowhead height);
+ {\tt ends=}
+ {\sl x}{\tt -}{\sl x} or
+ {\tt -}{\sl x} or
+ {\sl x}{\tt -} where {\sl x} is {\tt !} (half-width line)
+ or {\tt |} (full-width line).}
+\macrodef{darrow}{darrow}{(\linespec,
+ t,t,{\sl width},{\sl arrowhd wd},{\sl arrowhd ht},{\sl parameters})}
+ {darrow}
+ {See also {\tt Darrow}.
+ double arrow, truncated at beginning or end, specified sizes,
+ with arrowhead or closed stem.
+ {\sl parameters=}
+ {\tt {\sl x}-} or {\tt ->} or {\tt {\sl x}->} or {\tt <-} or {\tt <-{\sl x}}
+ or {\tt <->} where {\sl x} is {\tt |} or {\tt !}.
+ The {\tt !-} or {\tt -!} parameters close
+ the stem with half-thickness lines to simplify butting to other objects. }
+\macrodef{dashline}{dashline}{(\linespec,{\sl thickness}|{\sl color}|<->,
+ {\sl dash len, gap len},G)}
+ {gen}
+ {dashed line with dash at end ({\tt G} ends with gap)}
+\macrodef{dbelow}{dbelow}{(at {\sl location})}
+ {darrow}
+ {below (displaced dlinewid/2)}
+\macrodef{dcosine3D}{dcosine3D}{({\sl i,x,y,z})}
+ {3D}
+ {extract i-th entry of triple x,y,z}
+\macrodef{delay\_rad\_}{delay_rad_}{}
+ {cct}
+ {delay radius}
+\macrodef{delay}{delay}{(\linespec,{\sl size})}
+ {cct}
+ {delay element\seesect{Twoterminal:}}
+\macrodef{deleminit\_}{deleminit_}{}
+ {darrow}
+ {sets drawing direction for dlines}
+\macrodef{Demux}{Demux}{({\sl n},{\sl label},
+ {\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} displays binary pin numbers,
+ {\tt H} displays 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{dend}{dend}{(at {\sl location})}
+ {darrow}
+ {close (or start) double line}
+\macrodef{dfillcolor}{dfillcolor}{}
+ {darrow}
+ {dline fill color (default white)}
+\macrodef{diff\_}{diff_}{({\sl a},{\sl b})}
+ {gen}
+ {difference function}
+\macrodef{diff3D}{diff3D}{({\sl x1,y1,z1,x2,y2,z2})}
+ {3D}
+ {difference of two triples}
+\macrodef{dimen\_}{dimen_}{}
+ {cct}
+ {size parameter for circuit elements \seesect{Circuitscaling:}}
+\macrodef{dimension\_}{dimension_}{(\linespec,{\sl offset},{\sl label},
+ D|H|W|{\sl blank width},{\sl tic offset},{\sl arrowhead })}
+ {gen}
+ {macro for dimensioning diagrams;
+ {\sl arrowhead=}{\tt -> | <-}}
+\macrodef{diode}{diode}{(\linespec,%
+B|CR|D|G|L|LE[R]|P[R]|S|Sh|T|V|v|w|Z|chars,%
+[R][E])}
+ {cct}
+ {diode:
+ {\tt B}=bi-directional,
+ {\tt CR}=current regulator,
+ {\tt D}=diac,
+ {\tt G}=Gunn,
+ {\tt L}=open form with centre line,
+ {\tt LE[R]}=LED [right],
+ {\tt P[R]}=photodiode [right],
+ {\tt S}=Schottky,
+ {\tt Sh}=Shockley,
+ {\tt T}=tunnel,
+ {\tt V}=varicap,
+ {\tt v}=varicap (curved plate),
+ {\tt w}=varicap (reversed polarity),
+ {\tt Z}=zener;
+ appending {\tt K} to arg 2 draws open arrowheads;
+ arg 3: {\tt R}=reversed polarity, {\tt E}=enclosure \seesect{Twoterminal:}}
+\macrodef{dir\_}{dir_}{}
+ {darrow}
+ {used for temporary storage of direction by darrow macros}
+\macrodef{distance}{distance_}{({\sl Position 1}, {\sl Position2})}
+ {gen}
+ {distance between named positions}
+\macrodef{distance}{distance}{({\sl position}, {\sl position})}
+ {gen}
+ {distance between positions}
+\macrodef{dlabel}{dlabel}{({\sl long},{\sl lat},{\sl label},{\sl
+ label},{\sl label},{\sl chars})}
+ {cct}
+ {general triple label; {\sl chars:}
+ X displacement is from the centre of the last
+ line rather than the centre of the last {\tt [ ]};
+ L,R,A,B align labels ljust, rjust, above,
+ or below (absolute) respectively \seesect{Labels:}}
+\macrodef{dleft}{dleft}{}
+ {darrow}
+ {double line left turn}
+\macrodef{Dline}{Dline}{(\linespec, {\sl parameters})}
+ {darrow}
+ {Wrapper for {\tt dline}.
+ Semicolon-separated {\sl parameters}:
+ {\tt S}, {\tt E} truncate at start or end by dline thickness/2;
+ {\tt thick=}{\sl val} (total thicknes, ie width);
+ {\tt ends=}
+ {\sl x}{\tt -}{\sl x} or
+ {\tt -}{\sl x} or
+ {\sl x}{\tt -} where {\sl x} is {\tt !} (half-width line)
+ or {\tt |} (full-width line).}
+\macrodef{dline}{dline}{(\linespec,t,t,{\sl width},{\sl parameters})}
+ {darrow}
+ {See also {\tt Dline}.
+ Double line, truncated by half width at either end, closed
+ at either or both ends.
+ {\sl parameters=}
+ {\sl x}{\tt -}{\sl x} or
+ {\tt -}{\sl x} or
+ {\sl x}{\tt -} where {\sl x} is {\tt !} (half-width line)
+ or {\tt |} (full-width line).}
+\macrodef{dlinewid}{dlinewid}{}
+ {darrow}
+ {width of double lines}
+\macrodef{dljust}{dljust}{(at {\sl location})}
+ {darrow}
+ {ljust (displaced dlinewid/2)}
+\macrodef{dn\_}{dnx}{}
+ {gen}
+ {down with respect to current direction}
+\macrodef{dna\_}{dna_}{}
+ {cct}
+ {internal character sequence that specifies which subcomponents are drawn}
+%\macrodef{dnm\_}{dnm_}{}
+% {cct}
+% {similar to dna\_}
+\macrodef{dot}{dot}{(at {\sl location},{\sl radius},{\sl fill})}
+ {gen}
+ {filled circle (third arg= gray value: 0=black, 1=white)}
+\macrodef{dot3D}{dot3D}{({\sl x1,y1,z1,x2,y2,z2})}
+ {3D}
+ {dot product of two triples}
+\macrodef{dotrad\_}{dotrad_}{}
+ {gen}
+ {dot radius}
+\macrodef{down\_}{down_}{}
+ {gen}
+ {sets current direction to down \seesect{Placing:}}
+\macrodef{dright}{dright}{}
+ {darrow}
+ {double arrow right turn}
+\macrodef{drjust}{drjust}{(at {\sl location})}
+ {darrow}
+ {rjust (displaced dlinewid/2)}
+\macrodef{dswitch}{dswitch}{(\linespec,L|R,W[ud]B[K]{\sl chars})}
+ {cct}
+ {SPST switch left or right, W=baseline, B=contact blade,
+ dB=contact blade to the right of drawing direction,
+ K=vertical closing contact line,
+ C = external operating mechanism,
+ D = circle at contact and hinge,
+ (dD = hinge only, uD = contact only)
+ E = emergency button,
+ EL = early close
+ (or late open),
+ LE = late close (or early open),
+ F = fused,
+ H = time delay closing,
+ uH = time delay opening,
+ HH = time delay
+ opening and closing,
+ K = vertical closing contact,
+ L = limit,
+ M = maintained (latched),
+ MM = momentary contact on make,
+ MR = momentary contact on release,
+ MMR = momentary contact
+ on make and release,
+ O = hand operation button,
+ P = pushbutton,
+ T = thermal control linkage,
+ Y = pull switch,
+ Z = turn switch
+ \seesect{Twoterminal:}}
+\macrodef{dtee}{dtee}{([L|R])}
+ {darrow}
+ {double arrow tee junction with tail to left,
+ right, or (default) back along current direction }
+\macrodef{dtor\_}{dtor_}{}
+ {gen}
+ {degrees to radians conversion constant}
+\macrodef{dturn}{dturn}{({\sl degrees ccw})}
+ {darrow}
+ {turn dline arg1 degrees left (ccw)}
+\macrodef{E\_\_}{E__}{}
+ {gen}
+ {the constant $e$}
+\macrodef{e\_}{e_}{}
+ {gen}
+ {.e relative to current direction}
+\macrodef{e\_fet}{e_fet}{(\linespec,L|R,P,S,E|S)}
+ {cct}
+ {left or right, N or P enhancement MOSFET, normal
+ or simplified, without or with envelope or thick channel
+ \seesect{Semiconductors:}}
+\macrodef{earphone}{earphone}{( U|D|L|R|{\sl degrees, size})}
+ {cct}
+ {earphone, {\sl In1} to {\sl In3} defined
+ \seesect{Composite:}}
+\macrodef{ebox}{ebox}{(\linespec,{\sl length},{\sl ht},{\sl fill value})}
+ {cct}
+ { two-terminal box element with adjustable dimensions and fill
+ value 0 (black) to 1 (white). {\sl length} and {\sl ht} are relative
+ to the direction of \linespec\seesect{Twoterminal:}}
+\macrodef{elchop}{elchop}{({\sl Name1,Name2})}
+ {gen}
+ {{\tt chop} for ellipses: evaluates to {\tt chop} $r$ where $r$ is
+ the distance from the centre of ellipse Name1 to the intersection of
+ the ellipse with a line to location Name2;
+ e.g., {\tt line from A to E elchop(E,A)}}
+\macrodef{eleminit\_}{eleminit_}{(\linespec)}
+ {cct}
+ {internal line initialization}
+\macrodef{elen\_}{elen_}{}
+ {cct}
+ {default element length}
+\macrodef{em\_arrows}{em_arrows}{([N|I|E][D],{\sl angle,length})}
+ {cct}
+ {radiation arrows, N=nonionizing, I=ionizing, E=simple;
+ D=dot\seesect{Twoterminal:}}
+\macrodef{endshade}{endshade}{}
+ {gen}
+ {end gray shading, see {\tt beginshade}}
+\macrodef{Equidist3}{Equidist3}{({\sl Pos1, Pos2, Pos3, Result})}
+ {gen}
+ {Calculates location named {\sl Result} equidistant from the first three
+ positions, i.e.\ the centre of the circle passing through the three
+ positions}
+\macrodef{expe}{expe}{}
+ {gen}
+ {exponential, base $e$}
+\macrodef{f\_box}{f_box}{({\sl boxspecs},{\sl text},{\sl expr1},$\cdots$)}
+ {gen}
+ {like {\tt s\_box} but the text is overlaid on a box of identical size.
+ If there is only one argument then the default box
+ is invisible and filed white
+ \seesect{Interaction:}}
+\macrodef{Fector}{Fector}{({\sl x1,y1,z1,x2,y2,z2})}
+ {3D}
+ {vector projected on current view plane with top face
+ of 3-dimensonal arrowhead normal to x2,y2,z2 }
+\macrodef{FF\_ht}{FF_ht}{}
+ {cct}
+ {flipflop height parameter in {\tt L\_unit}s}
+\macrodef{FF\_wid}{FF_wid}{}
+ {cct}
+ {flipflop width parameter in {\tt L\_unit}s}
+\macrodef{fill\_}{fill_}{({\sl number})}
+ {gen}
+ {fill macro, 0=black, 1=white\seesect{Semiconductors:}}
+\macrodef{fitcurve}{fitcurve}{(V,n,[e.g. dotted],m (default 0))}
+ {gen}
+ {Draw a spline through positions V[m], $ldots$ V[n]: Works only with dpic.}
+\macrodef{FlipFlop}{FlipFlop}{(D|T|RS|JK,{\sl label},{\sl boxspec})}
+ {log}
+ {flip-flops,
+ {\sl boxspec}=e.g.\ ht x wid y \seesect{Logicgates:}}
+\macrodef{FlipFlop6}{FlipFlop6}{({\sl label},{\sl spec},{\sl boxspec})}
+ {log}
+ {{\em This macro (6-input flip-flops)
+ has been superseded by {\tt FlipFlopX} and may be deleted
+ in future}.
+ {\sl spec}={\tt [[n]NQ][[n]Q][[n]CK][[n]PR][lb]}
+ {\tt [[n]CLR][[n]S][[n].|D|T|R]} to include and negate pins,
+ {\tt lb} to print labels }
+\macrodef{FlipFlopJK}{FlipFlopJK}{({\sl label}, {\sl spec},{\sl boxspec})}
+ {log}
+ {{\em This macro (JK flip-flop)
+ has been superseded by {\tt FlipFlopX} and may be deleted
+ in future}.
+ Similar to {\tt FlipFlop6}.}
+\macrodef{FlipFlopX}{FlipFlopX}{({\sl boxspec, label, leftpins, toppins,
+ rightpins, bottompins})}
+ {log}
+ {General flipflop. Each of args 3 to 6 is null or a string of {\sl pinspecs}
+ separated by semicolons ({\tt;}). {\sl Pinspecs} are either empty
+ or of the form
+ {\tt[}{\sl pinopts}{\tt]:[}{\sl label}{\tt[:}{\sl Picname}{\tt]]}.
+ The first colon draws the pin.
+ Pins are placed top to bottom or left to right along the box edges with
+ null {\sl pinspecs} counted for placement. Pins are named by side and number
+ by default; eg {\tt W1, W2, ..., N1, N2, ..., E1, ..., S1, ...} ; however,
+ if {\tt:}{\sl Picname} is present in a {\sl pinspec} then {\sl Picname}
+ replaces the default name.
+ A {\sl pinspec} label is text placed at the pin base. Semicolons are
+ not allowed in labels; use, e.g., {\tt \char92{}char59\char123\char125}
+ instead,
+ and to put a bar over a label, use {\tt lg\_bartxt(}{\sl label}{\tt)}.
+ The {\sl pinopts} are {\tt[N|L|M][E]};
+ {\tt N}=pin with not circle;
+ {\tt L}=active low out; {\tt M}=active low in;
+ {\tt E}=edge trigger \seesect{Logicgates:}}
+\macrodef{for\_}{for_}{({\sl start},{\sl end},{\sl increment},`{\sl actions}')}
+ {gen}
+ {integer for loop with index variable {\tt m4x} \seesect{Looping:}}
+\macrodef{FTcap}{FTcap}{({\sl chars})}
+ {cct}
+ {Feed-through capacitor; example of a composite element derived from
+ a two-terminal element. Defined points: {\sl .Start, .End, .C .T1 .T2 T}
+ Arg 1: (default) {\tt A}= type A, {\tt B}= type B, {\tt C}= type C
+ \seesect{Composite:}}
+\macrodef{fuse}{fuse}{({\sl linespec, type, wid, ht})}
+ {cct}
+ {fuse symbol, type$=$
+ {\tt A|B|C|D|S|HB|HC} or {\tt dA=D}\seesect{Twoterminal:}}
+\macrodef{g\_}{g_}{}
+ {gen}
+ {green color value}
+\macrodef{G\_hht}{G_hht}{}
+ {log}
+ {gate half-height in {\tt L\_unit}s}
+\macrodef{gap}{gap}{(\linespec,{\sl fill},A)}
+ {cct}
+ {gap with (filled) dots, A=chopped arrow between dots\seesect{Twoterminal:}}
+\macrodef{gen\_init}{gen_init}{}
+ {gen}
+ {initialize environment for general diagrams
+ (customizable, reads {\tt libgen.m4})}
+\macrodef{glabel\_}{glabel_}{}
+ {cct}
+ {internal general labeller}
+%\macrodef{gpar\_}{gpar_}{({\sl element},{\sl element},{\sl separation})}
+% {cct}
+% {two same-direction elements in parallel}
+\macrodef{gpolyline\_}{gpolyline_}{({\sl fraction},{\sl location}, ...)}
+ {gen}
+ {internal to {\tt gshade}}
+\macrodef{graystring}{graystring}{({\sl gray value})}
+ {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 argument is a fraction in the range $[0,1]$; see {\tt rgbstring}}
+\macrodef{grid\_}{grid_}{({\sl x},{\sl y})}
+ {log}
+ {absolute grid location}
+\macrodef{ground}{ground}{(at {\sl location}, T, N|F|S|L|P|E, U|D|L|R|{\sl
+ degrees})}
+ {cct}
+ { ground, without stem for nonblank 2nd arg;
+ {\tt N}=normal, {\tt F}=frame, {\tt S}=signal, {\tt L}=low-noise,
+ {\tt P}=protective, {\tt E}=European; up, down, left, right, or angle
+ from horizontal (default -90)
+ \seesect{Composite:}}
+\macrodef{gshade}{gshade}{({\sl gray value},A,B,...,Z,A,B)}
+ {gen}
+ {(Note last two arguments). Shade a polygon with named
+ vertices, attempting to avoid sharp corners}
+\macrodef{gyrator}{gyrator}{({\sl box specs,space ratio,pin lgth,}[N][V])}
+ {cct}
+ {Gyrator two-port wrapper for {\tt nport}, {\tt N} omits pin dots; {\tt V}
+ gives a vertical orientation
+ \seesect{Composite:}}
+\macrodef{H\_ht}{H_ht}{}
+ {log}
+ {hysteresis symbol dimension in {\tt L\_unit}s}
+\macrodef{Header}{Header}{(1|2,{\sl rows,wid,ht,type})}
+ {log}
+ {Header block with 1 or 2 columns and square Pin 1
+ \seesect{Composite:}}
+\macrodef{HeaderPin}{HeaderPin}{({\sl location, type, Picname},%
+n|e|s|w,{\sl length})}
+ {log}
+ {General pin for {\tt Header} macro; arg 4 specifies pin direction
+ with respect to the current drawing direction)}
+\macrodef{hatchbox}{hatchbox}{({\sl boxspec,hashsep,hatchspec})}
+ {gen}
+ {Manhattan box with 45 degree hatching, e.g.,
+ {\tt hatchbox(outlined "blue",,dashed outlined "green" thick 0.4)}}
+\macrodef{heater}{heater}{({\sl linespec, ndivisions, wid, ht})}
+ {cct}
+ {heater element\seesect{Twoterminal:}}
+\macrodef{hex\_digit}{hex_digit}{($n$)}
+ {gen}
+ {hexadecimal digit for $0 \leq n < 16$}
+\macrodef{hexadecimal\_}{hexadecimal_}{($n$, [$m$])}
+ {gen}
+ {hexadecimal representation of $n,$ left padded to $m$ digits if the second
+ argument is nonblank}
+\macrodef{hlth}{hlth}{}
+ {gen}
+ {current line half thickness in drawing units}
+\macrodef{hoprad\_}{hoprad_}{}
+ {cct}
+ {hop radius in crossover macro}
+\macrodef{ht\_}{ht_}{}
+ {gen}
+ {height relative to current direction}
+\macrodef{ifdpic}{ifdpic}{({\sl if true},{\sl if false})}
+ {gen}
+ {test if dpic has been specified as pic processor}
+\macrodef{ifgpic}{ifgpic}{({\sl if true},{\sl if false})}
+ {gen}
+ {test if gpic has been specified as pic processor}
+\macrodef{ifinstr}{ifinstr}{({\sl string},{\sl string},{\sl if true},{\sl
+ if false})}
+ {gen}
+ {test if the second argument is a substring of the first; also
+ {\tt ifinstr({\sl string},{\sl string},{\sl if true},{\sl
+ string},{\sl string},{\sl if true}, $\ldots$ {\sl if false})}
+ }
+\macrodef{ifmfpic}{ifmfpic}{({\sl if true},{\sl if false})}
+ {gen}
+ {test if mfpic has been specified as pic post-processor}
+\macrodef{ifmpost}{ifmpost}{({\sl if true},{\sl if false})}
+ {gen}
+ {test if MetaPost has been specified as pic post-processor}
+\macrodef{ifpgf}{ifpgf}{({\sl if true},{\sl if false})}
+ {gen}
+ {test if \TPGF~has been specified as pic post-processor}
+\macrodef{ifpostscript}{ifpostscript}{({\sl if true},{\sl if false})}
+ {gen}
+ {test if Postscript ({\tt dpic -r}) has been specified as pic output format}
+\macrodef{ifpsfrag}{ifpsfrag}{({\sl if true},{\sl if false})}
+ {gen}
+ {Test if either {\tt psfrag} or {\tt psfrag\_} has been defined. For
+ postscript with psfrag strings, one or the other should be defined
+ prior to or at the beginning of the diagram}
+\macrodef{ifpstricks}{ifpstricks}{({\sl if true},{\sl if false})}
+ {gen}
+ {test if \PSTricks~has been specified as post-processor}
+\macrodef{ifroff}{ifroff}{({\sl if true},{\sl if false})}
+ {gen}
+ {test if {\bf troff} or {\bf groff} has been specified as post-processor}
+\macrodef{ifxfig}{ifxfig}{({\sl if true},{\sl if false})}
+ {gen}
+ {test if Fig 3.2 ({\tt dpic -x}) has been specified as pic output format}
+\macrodef{igbt}{igbt}{(\linespec,L|R,[L][[d]D])}
+ {cct}
+ {left or right IGBT, L=alternate gate type, D=parallel diode,
+ dD=dotted connections }
+\macrodef{in\_\_}{in__}{}
+ {gen}
+ {absolute inches}
+\macrodef{inductor}{inductor}{(\linespec,W|L,{\sl n},[M|P],{\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,
+ 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})}
+ {gen}
+ {inner product of (x,y) dimensions of two linear objects}
+\macrodef{Int\_}{Int_}{}
+ {gen}
+ {corrected (old) gpic $int()$ function}
+\macrodef{integrator}{integrator}{(\linespec,{\sl size})}
+ {cct}
+ {integrating amplifier\seesect{Twoterminal:}}
+\macrodef{intersect\_}{intersect_}{({\sl line1}.start,{\sl line1}.end,
+{\sl line2}.start,{\sl line2}.end)}
+ {gen}
+ {intersection of two lines}
+\macrodef{Intersect\_}{Intersect_}{({\sl Name1},{\sl Name2})}
+ {gen}
+ {intersection of two named lines}
+\macrodef{IOdefs}{IOdefs}{(\linespec,{\sl label},[P|N]*,L|R) }
+ {log}
+ {Define locations {\sl label}{\tt 1}, $\ldots$ {\sl label}{\tt n}
+ along the line; {\tt P}= label only;
+ {\tt N}=with {\tt NOT\_circle};
+ {\tt R}=circle to right of current direction }
+\macrodef{j\_fet}{j_fet}{(\linespec,L|R,P,E)}
+ {cct}
+ {left or right, N or P JFET, without or with envelope
+ \seesect{Semiconductors:}}
+\macrodef{jack}{jack}{(U|D|L|R|{\sl degrees},{\sl chars})}
+ {cct}
+ {arg1: drawing direction; string arg2: {\tt R}=right orientation,
+ one or more {\tt L[M][B]} for L and auxiliary contacts with make or break
+ points; {\tt S[M][B]} for S and auxiliary contacts
+ \seesect{Composite:}}
+\macrodef{KelvinR}{KelvinR}{({\sl cycles},[R],{\sl cycle wid})}
+ {cct}
+ {IEEE resistor in a {\tt [ ]} block with Kelvin taps {\sl T1} and {\sl T2}
+ \seesect{Composite:}}
+\macrodef{L\_unit}{L_unit}{}
+ {log}
+ {logic-element grid size}
+\macrodef{lamp}{lamp}{(\linespec, [R])}
+ {cct}
+ {Two-terminal incandescent lamp
+ \seesect{Twoterminal:}}
+\macrodef{larrow}{larrow}{({\sl label},{\tt ->|<-},{\sl dist})}
+ {cct}
+ {arrow {\sl dist} to left of last-drawn 2-terminal element
+ \seesect{Branchcurrent:}}
+\macrodef{lbox}{lbox}{({\sl wid}, {\sl ht}, {\sl type})}
+ {gen}
+ {box oriented in current direction, type= e.g.\ dotted}
+\macrodef{LCintersect}{LCintersect}{({\sl line name, Centre, rad,} [R])}
+ {gen}
+ { First (second if arg4 is R) intersection of a line with a circle}
+\macrodef{LCtangent}{LCtangent}{({\sl Pos1, Centre, rad,} [R])}
+ {gen}
+ { Left (right if arg4=R) tangent point of line
+ from Pos1 to circle at Centre with radius arg3}
+\macrodef{left\_}{left_}{}
+ {gen}
+ {left with respect to current direction \seesect{Placing:}}
+\macrodef{length3D}{length3D}{(x,y,z)}
+ {3D}
+ {Euclidean length of triple x,y,z}
+\macrodef{LEintersect}{LEintersect}{({\sl line name, Centre, ellipse wid,
+ ellipse ht}, [R])}
+ {gen}
+ { First (second if arg5 is R) intersection of a line with an ellipse}
+\macrodef{LEtangent}{LEtangent}{({\sl Pos1, Centre, ellips wid, ellipse ht}
+ [R])}
+ {gen}
+ { Left (right if arg5=R) tangent point of line
+ from Pos1 to ellipse at Centre with given width and height}
+\macrodef{lg\_bartxt}{lg_bartxt}{}
+ {log}
+ {draws an overline over logic-pin text (except for xfig)}
+\macrodef{lg\_pin}{lg_pin}{({\sl location, logical name, pin label},
+ n|e|s|w[L|M|I|O][N][E], {\sl pinno, optlen})}
+ {log}
+ {comprehensive logic pin; {\tt n|e|s|w}=direction,
+ {\tt L}=active low out, {\tt M}=active low in,
+ {\tt I}=inward arrow, {\tt O}=outward arrow,
+ {\tt N}=negated, {\tt E}=edge trigger}
+\macrodef{lg\_pintxt}{lg_pintxt}{}
+ {log}
+ {reduced-size text for logic pins}
+\macrodef{lg\_plen}{lg_plen}{}
+ {log}
+ {logic pin length in in {\tt L\_unit}s}
+\macrodef{LH\_symbol}{LH_symbol}{([U|D|L|R|{\sl degrees}][I])}
+ {log}
+ {logic-gate hysteresis symbol; {\tt I=}inverted}
+\macrodef{lin\_ang}{lin_ang}{({\sl line-reference})}
+ {gen}
+ {the angle from {\tt .start} to {\tt .end} of a line or move}
+\macrodef{lin\_leng}{lin_leng}{({\sl line-reference})}
+ {gen}
+ {length of a line, equivalent to {\sl line-reference}{\tt .len}
+ with dpic}
+\macrodef{linethick\_}{linethick_}{({\sl number})}
+ {gen}
+ {set line thickness in points}
+\macrodef{ljust\_}{ljust_}{}
+ {gen}
+ {ljust with respect to current direction}
+\macrodef{llabel}{llabel}{({\sl label},{\sl label},{\sl label})}
+ {cct}
+ {triple label on left side of the element \seesect{Labels:}}
+\macrodef{loc\_}{loc_}{({\sl x}, {\sl y})}
+ {gen}
+ {location adjusted for current direction}
+\macrodef{log\_init}{log_init}{}
+ {log}
+ {initialize environment for logic diagrams
+ (customizable, reads {\tt liblog.m4})}
+\macrodef{log10E\_}{log10E_}{}
+ {gen}
+ {constant $\log_{10}(e)$}
+\macrodef{loge}{loge}{}
+ {gen}
+ {logarithm, base $e$}
+\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$}
+\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{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:}}
+\macrodef{lt\_}{lt_}{}
+ {gen}
+ {left with respect to current direction}
+\macrodef{LT\_symbol}{LT_symbol}{(U|D|L|R|{\sl degrees})}
+ {log}
+ {logic-gate triangle symbol}
+\macrodef{lthick}{lthick}{}
+ {gen}
+ {current line thickness in drawing units}
+\macrodef{m4\_arrow}{m4_arrow}{(\linespec,{\sl ht},{\sl wid})}
+ {gen}
+ {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}.}
+\macrodef{m4lstring}{m4lstring}{({\sl arg1},{\sl arg2})}
+ {gen}
+ {expand {\sl arg1} if it begins
+ with {\tt sprintf} or {\tt "}, otherwise {\sl arg2}}
+\macrodef{m4xpand}{m4xpand}{({\sl arg})}
+ {gen}
+ {Evaluate the argument as a macro}
+\macrodef{m4xtract}{m4xtract}{(`{\sl string1}',{\sl string2})}
+ {gen}
+ {delete {\sl string2} from {\sl string1}, return 1 if present}
+\macrodef{manhattan}{manhattan}{}
+ {gen}
+ {sets direction cosines for left, right, up, down}
+\macrodef{Max}{Max}{({\sl arg, arg, $\ldots$})}
+ {gen}
+ {Max of an arbitrary number of inputs}
+\macrodef{memristor}{memristor}{({\sl linespec, wid, ht})}
+ {cct}
+ {memristor element\seesect{Twoterminal:}}
+\macrodef{microphone}{microphone}{( U|D|L|R|{\sl degrees, size})}
+ {cct}
+ {microphone, {\sl In1} to {\sl In3} defined
+ \seesect{Composite:}}
+\macrodef{Min}{Min}{({\sl arg, arg, $\ldots$})}
+ {gen}
+ {Min of an arbitrary number of inputs}
+\macrodef{Mitre\_}{Mitre_}{%
+ ({\sl Line1,Line2,length,line attributes})}
+ {gen}
+ {e.g., {\tt Mitre\_(L,M)} draws angle at intersection of lines
+ L and M with legs of length arg3 (default {\tt linethick bp\_\_/2});
+ sets {\tt Here} to intersection
+ \seesect{Corners:}}
+\macrodef{mitre\_}{mitre_}{%
+ ({\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
+ \seesect{Corners:}}
+\macrodef{mm\_\_}{mm__}{}
+ {gen}
+ {absolute millimetres}
+\macrodef{mosfet}{mosfet}{(\linespec,L|R,{\sl chars},E)}
+ {cct}
+ {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 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}
+ {Mux height parameter in {\tt L\_unit}s}
+\macrodef{Mux\_wid}{Mux_wid}{}
+ {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}})}
+ {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:}}
+\macrodef{Mx\_pins}{Mx_pins}{}
+ {log}
+ {max number of gate inputs without wings}
+\macrodef{n\_}{n_}{}
+ {gen}
+ {.n with respect to current direction}
+\macrodef{N\_diam}{N_diam}{}
+ {log}
+ {diameter of `not' circles in {\tt L\_unit}s}
+\macrodef{N\_rad}{N_rad}{}
+ {log}
+ {radius of `not' circles in {\tt L\_unit}s}
+\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.
+ \seesect{Logicgates:}}
+\macrodef{ne\_}{ne_}{}
+ {gen}
+ {.ne with respect to current direction}
+\macrodef{NeedDpicTools}{NeedDpicTools}{}
+ {gen}
+ {executes {\tt copy "HOMELIB\_/dpictools.pic"} if the file has not been read}
+\macrodef{neg\_}{neg_}{}
+ {gen}
+ {unary negation}
+\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.
+ \seesect{Logicgates:}}
+\macrodef{norator}{norator}{(\linespec,{\sl width},{\sl ht})}
+ {cct}
+ { norator two-terminal element \seesect{Twoterminal:}}
+\macrodef{NOT\_circle}{NOT_circle}{}
+ {log}
+ {`not' circle}
+\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
+ \seesect{Logicgates:}}
+\macrodef{NOT\_rad}{NOT_rad}{}
+ {log}
+ {`not' radius in absolute units}
+\macrodef{NPDT}{NPDT}{({\sl npoles,}[R])}
+ {cct}
+ {Double-throw switch; {\sl npoles:} number of poles;
+ {\tt R}= right orientation with respect to drawing direction
+ \seesect{Composite:}}
+\macrodef{nport}{nport}{({\sl box spec{\tt ;}other commands,
+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
+ \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.
+ {\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})}
+ {cct}
+ { nullator two-terminal element \seesect{Twoterminal:}}
+\macrodef{nw\_}{nw_}{}
+ {gen}
+ {.nw with respect to current direction}
+\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.
+ \seesect{Logicgates:}}
+\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
+ \seesect{Composite:}}
+\macrodef{open\_arrow}{open_arrow}{(\linespec,{\sl ht},{\sl wid})}
+ {gen}
+ {arrow with adjustable open head}
+\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.
+ \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.}
+\macrodef{OR\_rad}{OR_rad}{}
+ {log}
+ {radius of OR input face in {\tt L\_unit}s}
+\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.
+ \seesect{Seriesandparallel:}}
+%\macrodef{par\_}{par_}{({\sl element},{\sl element},{\sl separation})}
+% {cct}
+% {two same-direction, same-length elements in parallel}
+\macrodef{pc\_\_}{pc__}{}
+ {gen}
+ {absolute points}
+\macrodef{px\_\_}{px__}{}
+ {gen}
+ {absolute SVG screen pixels}
+\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
+ \seesect{Composite:}}
+\macrodef{pi\_}{pi_}{}
+ {gen}
+ {$\pi$}
+\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:}}
+\macrodef{pmod}{pmod}{({\sl integer}, {\sl integer})}
+ {gen}
+ {+ve $\hbox{mod}(M,N)$ e.g., $\hbox{\tt pmod}(-3,5)=2$}
+\macrodef{point\_}{point_}{({\sl angle})}
+ {gen}
+ {(radians) set direction cosines}
+\macrodef{Point\_}{Point_}{({\sl integer})}
+ {gen}
+ {sets direction cosines in degrees \seesect{Placing:}}
+\macrodef{polar\_}{polar_}{({\sl x},{\sl y})}
+ {gen}
+ {rectangular-to polar conversion}
+\macrodef{potentiometer}{potentiometer}{(\linespec,%
+ {\sl cycles},{\sl fractional pos},{\sl length},$\cdots$)}
+ {cct}
+ {resistor with taps T1, T2, $\ldots$
+ with specified fractional positions and lengths (possibly neg)
+ \seesect{Composite:}}
+\macrodef{print3D}{print3D}{(x,y,z)}
+ {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
+ angles defined by {\tt setview({\sl azim, elev})}}
+\macrodef{psset\_}{psset_}{({\sl PSTricks settings})}
+ {gen}
+ {set PSTricks parameters}
+\macrodef{pt\_\_}{pt__}{}
+ {gen}
+ {\TeX\ point-size factor, in scaled inches, ({\tt *scale/72.27})}
+\macrodef{ptrans}{ptrans}{(\linespec, [R|L])}
+ {cct}
+ {pass transistor; {\tt L=} left orientation
+ \seesect{Semiconductors:}}
+\macrodef{r\_}{r_}{}
+ {gen}
+ {red color value}
+\macrodef{rarrow}{rarrow}{({\sl label,{\tt ->|<-},{\sl dist}})}
+ {cct}
+ {arrow {\sl dist} to right of last-drawn 2-terminal element
+ \seesect{Branchcurrent:}}
+\macrodef{Rect\_}{Rect_}{({\sl radius},{\sl angle})}
+ {gen}
+ {(deg) polar-to-rectangular conversion}
+\macrodef{rect\_}{rect_}{({\sl radius},{\sl angle})}
+ {gen}
+ {(radians) polar-rectangular conversion}
+\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:}}
+ {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 T}=thermal.
+ Argument 3={\tt [L|R]} is deprecated but works for
+ backward compatibility
+ \seesect{Composite:}}
+\macrodef{resetdir\_)}{resetdir_)}{}
+ {gen}
+ {resets direction set by {\tt setdir\_}}
+\macrodef{resetrgb}{resetrgb}{}
+ {gen}
+ {cancel {\tt r\_, g\_, b\_} color definitions}
+\macrodef{resistor}{resistor}{(\linespec,n|E,{\sl chars}, {\sl
+ 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:}}
+\macrodef{resized}{resized}{({\sl factor},`{\sl macro name}',args)}
+ {cct}
+ {scale the element body size by {\sl factor}}
+\macrodef{restorem4dir}{restorem4dir}{([`{\sl stack name}'])}
+ {gen}
+ {Restore m4 direction parameters from the named stack;
+ default {\tt `savm4dir\_'}}
+\macrodef{reversed}{reversed}{(`{\sl macro name}',args)}
+ {cct}
+ {reverse polarity of 2-terminal element}
+\macrodef{rgbdraw}{rgbdraw}{({\sl color triple}, {\sl drawing commands})}
+ {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:}}
+\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:}}
+\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}
+\macrodef{right\_}{right_}{}
+ {gen}
+ {set current direction right \seesect{Placing:}}
+\macrodef{rjust\_}{rjust_}{}
+ {gen}
+ {right justify with respect to current direction}
+\macrodef{rlabel}{rlabel}{({\sl label},{\sl label},{\sl label})}
+ {cct}
+ {triple label on right side of the element \seesect{Labels:}}
+\macrodef{rot3Dx}{rot3Dx}{({\sl radians,x,y,z})}
+ {3D}
+ {rotates x,y,z about x axis}
+\macrodef{rot3Dy}{rot3Dy}{({\sl radians,x,y,z})}
+ {3D}
+ {rotates x,y,z about y axis}
+\macrodef{rot3Dz}{rot3Dz}{({\sl radians,x,y,z})}
+ {3D}
+ {rotates x,y,z about z axis}
+\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. }
+\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.}
+\macrodef{round}{round}{(at {\sl location,line thickness,attributes})}
+ {gen}
+ {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)}
+ {gen}
+ {set direction cosines}
+\macrodef{rpos\_}{rpos_}{({\sl position})}
+ {gen}
+ {Here + {\sl position}}
+\macrodef{rrot\_}{rrot_}{({\sl x, y, angle})}
+ {gen}
+ {\tt Here + vrot\_({\sl x, y, cos(angle), sin(angle))}}
+\macrodef{rs\_box}{rs_box}{({\sl text},{\sl expr1},$\cdots$)}
+ {gen}
+ {like {\tt s\_box} but the text is rotated by {\tt text\_ang}
+ (default 90) degrees \seesect{Interaction:}, \seesect{Pstricks:}}
+\macrodef{rsvec\_}{rsvec_}{({\sl position})}
+ {gen}
+ {Here + {\sl position}}
+\macrodef{rt\_}{rt_}{}
+ {gen}
+ {right with respect to current direction}
+\macrodef{rtod\_\_}{rtod__}{}
+ {gen}
+ {constant, degrees/radian}
+\macrodef{rtod\_}{rtod_}{}
+ {gen}
+ {constant, degrees/radian}
+\macrodef{rvec\_}{rvec_}{({\sl x},{\sl y})}
+ {gen}
+ {location relative to current direction}
+\macrodef{s\_}{s_}{}
+ {gen}
+ {.s with respect to current direction}
+\macrodef{s\_box}{s_box}{({\sl text},{\sl expr1},$\cdots$)}
+ {gen}
+ {generate dimensioned text string using {\tt\char92{}boxdims} from
+ {\tt boxdims.sty}. Two or more args are passed to {\tt sprintf()}
+ (default 90) degrees \seesect{Interaction:}}
+\macrodef{s\_dp}{s_dp}{({\sl name},{\sl default})}
+ {gen}
+ {depth of the most recent (or named) {\tt s\_box}
+ \seesect{Interaction:}}
+\macrodef{s\_ht}{s_ht}{({\sl name},{\sl default})}
+ {gen}
+ {height of the most recent (or named) {\tt s\_box}
+ \seesect{Interaction:}}
+\macrodef{s\_init}{s_init}{({\sl name})}
+ {gen}
+ {initialize {\tt s\_box} string label to {\sl name} which should be unique
+ \seesect{Interaction:}}
+\macrodef{s\_name}{s_name}{}
+ {gen}
+ {the value of the last {\tt s\_init} argument
+ \seesect{Interaction:}}
+\macrodef{s\_wd}{s_wd}{({\sl name},{\sl default})}
+ {gen}
+ {width of the most recent (or named) {\tt s\_box}
+ \seesect{Interaction:}}
+\macrodef{savem4dir}{savem4dir}{([`{\sl stack name}'])}
+ {gen}
+ {Stack m4 direction parameters in the named stack
+ (default {\tt `savm4dir\_'})}
+\macrodef{sbs}{sbs}{({\sl linespec, chars, label})}
+ {cct}
+ {Wrapper to place an SBS thyristor as a two-terminal element with
+ {\tt [ ]} block label given by the third argument
+ \seesect{Semiconductors:}}
+\macrodef{sc\_draw}{sc_draw}{({\sl dna string, chars, iftrue, iffalse})}
+ {cct}
+ {test if chars are in string, deleting chars from string}
+\macrodef{scr}{scr}{({\sl linespec, chars, label})}
+ {cct}
+ {Wrapper to place an SCR thyristor as a two-terminal element with
+ {\tt [ ]} block label given by the third argument
+ \seesect{Semiconductors:}}
+\macrodef{scs}{scs}{({\sl linespec, chars, label})}
+ {cct}
+ {Wrapper to place an SCS thyristor as a two-terminal element with
+ {\tt [ ]} block label given by the third argument
+ \seesect{Semiconductors:}}
+\macrodef{se\_}{se_}{}
+ {gen}
+ {.se with respect to current direction}
+\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
+ \seesect{Seriesandparallel:} }
+\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$
+ \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});
+ svg values are integers from 0 to 255\seesect{Semiconductors:}}
+\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,
+ {\sl height scale factor})}
+ {cct}
+ {directed arc drawn between nodes, with text label
+ and a height-adjustment parameter }
+\macrodef{sfgbelow}{sfgbelow}{}
+ {cct}
+ {like below but with extra space}
+\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.}
+\macrodef{sfgself}{sfgself}{(at {\sl location}, U|D|L|R|{\sl degrees},
+ {\sl text}, {\sl text justification}, cw|ccw, {\sl scale factor})}
+ {cct}
+ {self-loop drawn at angle {\sl angle} from a node,
+ with text label and a size-adjustment parameter }
+\macrodef{shade}{shade}{({\sl gray value},{\sl closed line specs})}
+ {gen}
+ {fill arbitrary closed curve}
+\macrodef{shadebox}{shadebox}{({\sl box specification})}
+ {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$
+}
+\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,
+ arcrad = 6, circlerad = 6, boxht = 12, boxwid = 18, ellipseht = 12,
+ ellipsewid = 18, dashwid = 2, arrowht = 3, arrowwid = arrowht/2,}}
+\macrodef{sign\_}{sign_}{({\sl number})}
+ {gen}
+ {sign function}
+\macrodef{Sin}{Sin}{({\sl integer})}
+ {gen}
+ {sine function, {\sl integer\/} degrees}
+\macrodef{sinc}{sinc}{({\sl number})}
+ {gen}
+ {the $\hbox{sinc}(x)$ function}
+\macrodef{sind}{sind}{({\sl arg})}
+ {gen}
+ {sine of an expression in degrees}
+\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}}
+\macrodef{source}{source}{(\linespec,V|v|I|i|AC|B|F|G|H|Q|L|N|P|S|T|X|U|{\sl
+ other},{\sl diameter},R)}
+ {cct}
+ {source, blank or voltage (2 types), current (2 types), AC,
+ or type F, G, Q, B, L, N, X or labelled,
+ H = step (Heaviside),
+ P = pulse, U = square, R = ramp,
+ S = sinusoid, T = triangle; other = custom interior label or waveform,
+ R = reversed polarity \seesect{Twoterminal:}}
+\macrodef{sourcerad\_}{sourcerad_}{}
+ {cct}
+ {default source radius}
+\macrodef{sp\_}{sp_}{}
+ {gen}
+ {evaluates to medium space for gpic strings}
+\macrodef{speaker}{speaker}{( U|D|L|R|{\sl degrees},{\sl size},H)}
+ {cct}
+ {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}
+\macrodef{sqrta}{sqrta}{({\sl arg})}
+ {gen}
+ {square root of the absolute value of {\sl arg}; i.e.,
+ {\tt sqrt(abs({\sl arg}))}}
+\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\_} }
+\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}
+\macrodef{stackdo\_}{stackdo}{(`{\sl stackname}',{\sl commands})}
+ {gen}
+ {Empty the stack to the first blank entry, performing arg 2}
+\macrodef{stackexec\_}{stackexec_}{(`{\sl name 1}',`{\sl name 2}',%
+ {\sl commands})}
+ {gen}
+ {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},%
+% `{\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
+% {\tt AutoGate} and {\tt Autologic} macros. Each location is prefixed
+% by argument 1 ``.''}
+\macrodef{stackreverse\_}{stackreverse_}{(`{\sl stack name}')}
+ {gen}
+ {Reverse the order of elements in a stack, preserving the name}
+\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.}
+\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}
+\macrodef{sus}{sus}{({\sl linespec, chars, label})}
+ {cct}
+ {Wrapper to place an SUS thyristor as a two-terminal element with
+ {\tt [ ]} block label given by the third argument
+ \seesect{Semiconductors:}}
+\macrodef{svec\_}{svec_}{({\sl x},{\sl y})}
+ {log}
+ {scaled and rotated grid coordinate vector}
+\macrodef{sw\_}{sw_}{}
+ {gen}
+ {.sw with respect to current direction}
+\macrodef{switch}{switch}{(\linespec,L|R,[C|O][D],[B|D])}
+ {cct}
+ {SPST switch (wrapper for bswitch, lswitch, and dswitch),
+ arg2: R=right orientation (default L=left);
+ if arg4=blank (knife switch): arg3 = [O{\tt|}C][D][A]
+ O= opening, C=closing, D=dots, A=blade arrowhead;
+ if arg4=B (button switch): arg3 = O{\tt|}C
+ O=normally open, C=normally closed,
+ if arg4=D: arg3 = same as for dswitch \seesect{Twoterminal:}}
+\macrodef{ta\_xy}{ta_xy}{({\sl x, y})}
+ {cct}
+ {macro-internal coordinates adjusted for {\tt L|R}}
+\macrodef{tapped}{tapped}{(`{\sl two-terminal element}',
+ [{\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:} }
+\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.
+ \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
+ \seesect{Composite:}}
+\macrodef{tgate}{tgate}{({\sl linespec,} [B][R|L])}
+ {cct}
+ {transmission gate, {\tt B=} ebox type; {\tt L=} oriented left
+ \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:}}
+\macrodef{thicklines\_}{thicklines_}{({\sl number})}
+ {gen}
+ {set line thickness in points}
+\macrodef{thinlines\_}{thinlines_}{({\sl number})}
+ {gen}
+ {set line thickness in points}
+\macrodef{threeD\_init}{threeD_init}{}
+ {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.
+ {\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
+ \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:}}
+\macrodef{tline}{tline}{(\linespec,{\sl wid},{\sl ht}) }
+ {cct}
+ {transmission line, manhattan direction\seesect{Twoterminal:}}
+\macrodef{tr\_xy\_init}{tr_xy_init}{({\sl origin, unit size, sign })}
+ {cct}
+ {initialize {\tt tr\_xy}}
+\macrodef{tr\_xy}{tr_xy}{({\sl x, y})}
+ {cct}
+ {relative macro internal coordinates adjusted for {\tt L|R}}
+\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
+ \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,
+ {\tt ht=}value{\tt ;} strip height
+ \seesect{Composite:}}
+\macrodef{ttmotor}{ttmotor}{({\sl linespec, string, diameter, brushwid, brushht})}
+ {cct}
+ {motor with label\seesect{Twoterminal:}}
+\macrodef{twopi\_}{twopi_}{}
+ {gen}
+ {$2\pi$}
+\macrodef{ujt}{ujt}{(\linespec,R,P,E)}
+ {cct}
+ {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}
+\macrodef{up\_\_}{up__}{}
+ {gen}
+ {up with respect to current direction}
+\macrodef{up\_}{up_}{}
+ {gen}
+ {set current direction up \seesect{Placing:}}
+\macrodef{variable}{variable}{(`{\sl element}',
+ {\tt [A|P|L|[u]N][C|S]},{\sl angle},{\sl length})}
+ {cct}
+ {overlaid arrow or line to indicate variable 2-terminal element:
+ {\tt A}=arrow, {\tt P}=preset,
+ {\tt L}=linear, {\tt N}=nonlinear, {\tt C}=continuous, {\tt S}=setpwise
+ \seesect{Twoterminal:}}
+\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}
+\macrodef{vlength}{vlength}{({\sl x},{\sl y})}
+ {gen}
+ {vector length $\sqrt{x^2+y^2}$}
+\macrodef{vperp}{vperp}{({\sl linear object})}
+ {gen}
+ {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}
+\macrodef{vrot\_}{vrot_}{({\sl x},{\sl y},{\sl xcosine},{\sl ycosine})}
+ {gen}
+ {rotation operator}
+\macrodef{vscal\_}{vscal_}{({\sl number},{\sl x},{\sl y})}
+ {gen}
+ {vector scale operator}
+\macrodef{Vsprod\_}{Vsprod_}{({\sl position}, {\sl expression})}
+ {gen}
+ {The vector in arg 1 multiplied by the scalar in arg 2}
+\macrodef{w\_}{w_}{}
+ {gen}
+ {.w with respect to current direction}
+\macrodef{while\_}{while_}{(`{\sl test}',`{\sl actions}')}
+ {gen}
+ {Integer m4 while loop}
+\macrodef{wid\_}{wid_}{}
+ {gen}
+ {width with respect to current direction}
+\macrodef{winding}{winding}{(L|R, {\sl diam, pitch, turns, core wid,
+ core color})}
+ {cct}
+ {core winding drawn in the current direction; {\tt R}=right-handed
+ \seesect{Composite:}}
+\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.
+ \seesect{Logicgates:}}
+\macrodef{XOR\_off}{XOR_off}{}
+ {log}
+ {XOR and NXOR offset of input face}
+\macrodef{xtal}{xtal}{(\linespec)}
+ {cct}
+ {quartz crystal\seesect{Twoterminal:}}
+\macrodef{xtract}{xtract}{({\sl string, substr1, substr2, $\ldots$})}
+ {gen}
+ {returns substrings if present}
+% \end{tabbing}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/defines.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/eboxdims.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/eboxdims.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/eboxdims.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,14 @@
+.PS
+# `eboxdims.m4'
+sinclude(Circuit_macros.dim) # The input file is Circuit_macros.tex
+box fill_(0.9) wid boxdim(Q,w) + 5pt__ ht boxdim(Q,v) + 5pt__ \
+ "\boxdims{Q}{\large$\displaystyle\int_0^T e^{tA}\,dt$}"
+thinlines_
+ s_init(eboxdims)
+ d2 = 5pt__/2
+ textoffset = 2 pt__
+ dimension_(from last box.sw to last box.se chop d2, -0.1,
+ s_box(\tt Q\_w),W,2pt__)
+ dimension_(from last box.se to last box.ne chop d2, -0.1,
+ s_box($\!\!\!$\tt Q\_h${+}$Q\_d) ljust,H,2pt__)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/eboxdims.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/fbfilter.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/fbfilter.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/fbfilter.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,39 @@
+.PS
+# fbfilter.m4
+cct_init
+# `fbfilter( U|D|L|R|degrees, [R|L],
+# amp label, C label, R label )'
+define(`fbfilter',
+`[
+ setdir_(ifelse(`$1',,0,`$1')) # Process arg 1
+ eleminit_ # Assign rp_ang, rp_len
+ tmpang = rp_ang # Save rp_ang
+ hunit = elen_ # Dimension parameters
+ vunit = ifinstr(`$2',R,-)dimen_
+ Q: opamp(,,,,`$2')
+ move to Q.In`'ifinstr(`$2',R,2,1); line to rvec_(-hunit/4,0)
+ J: dot
+ R: resistor(to rvec_(-elen_,0)) # Two-term elements change rp_ang
+ point_(tmpang) # so reset it.
+ In: Here
+ move to Q.In`'ifinstr(`$2',R,1,2); line to rvec_(-hunit/4,0)
+ G: Here
+ dot(at Q.Out)
+ { line to rvec_(hunit/4,0)
+ Out: Here }
+ line to rvec_(0,vunit)
+ C: capacitor(to rvec_(-distance(Q.Out,0.5 between J and G),0)); point_(tmpang)
+ line to J
+ ifelse(`$3',,,"$`$3'$" at Q.C)
+ ifelse(`$4',,,"$`$4'$" at C+vec_(0,-vunit/3))
+ ifelse(`$5',,,"$`$5'$" at R+vec_(0,-vunit/4))
+ ]')
+
+F1: fbfilter(,,K_3,C_{24},R_4)
+ ground(at F1.G)
+ dot(at F1.In); line up_ elen_/4
+F2: fbfilter(L,R,K_2,C_{23},R_3) with .In at F1.In
+ ground(at F2.G)
+ resetdir_
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/fbfilter.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/fet.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/fet.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/fet.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,170 @@
+.PS
+# `fet.m4'
+cct_init
+
+dwn = 0.9
+dwn = 1.0
+rgt = 0.9
+textht = 0.1
+
+dnl `IRF4905(linespec,R)'
+define(`IRF4905',
+ `[ ifelse(`$1',,,`eleminit_(`$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
+ S: last line.start; D: last line.end; line from S to D ')
+ G: Q.G
+ circle rad 5*dimen_/10 at Q.tr_xy(0,1) ]')
+
+define(`rmove',0.75)
+define(`dir_',`right_')
+
+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
+ }
+
+ 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_
+ [
+ linewid = linewid*1.2
+
+ Q1: mosfet(,,dGSDF,)
+ {"\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)
+ "\tt dG" rjust
+ arrow <- down .10 left .30 from Q1.Channel.start+(.15,0)
+ "\tt F" rjust
+ arrow <- down .05 left .15 from (Q1.S.x,Q1.S.y+0.05)
+ "\tt S" rjust
+ arrow <- down .05 right .15 from (Q1.D.x,Q1.D.y+0.05)
+ "\tt D" ljust
+ thicklines_ }
+
+ move right_ rmove
+ Q2: mosfet(,,uHSDF,)
+ {"\tt `$\ldots$'(,{,}uHSDF,)" at last [].s+(0,-0.15) below
+ thinlines_
+ arrow <- down .05 left .15 from (Q2.G.x,Q2.G.y-0.05)
+ "\tt uH" rjust
+ thicklines_ }
+
+ move right_ rmove
+ Q3: mosfet(,,dMEDSQuB,)
+ {"\tt `$\ldots$'(,{,}dMEDSQuB,)" at last [].s+(0,-0.05) below
+ thinlines_
+ arrow <- down .05 left .15 from (Q3.G.x,Q3.G.y-0.05)
+ "\tt dM" rjust
+ arrow <- down .13 left .30 from Q3.Channel.start+(.12,0)
+ "\tt E" rjust
+ arrow <- down .05 left .10 from Q3.S+(.06,0)
+ "\tt Q" rjust
+ arrow <- down .08 right .24 from (Q3.B.x,Q3.B.y+0.175)
+ "\tt uB" ljust
+ thicklines_ }
+
+ move right_ rmove
+ Q4: mosfet(,,uMEDSuB)
+ {`"{\tt $\ldots$(,{,}uMEDSuB)}"' 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
+ }
+
+ move right_ rmove
+ Q5: mosfet(,,ZSDFdT,)
+ {"\tt `$\ldots$'(,{,}ZSDFdT,)" at last [].s+(0,-0.05) below
+ thinlines_
+ arrow <- down .08 left .08 from (Q5.S.x,Q5.S.y+0.12)
+ "\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)
+ "\tt dT" ljust
+ thicklines_ }
+
+ move right_ rmove
+ up_
+ Q6: IRF4905 with .c at Here
+ {`"\tt IRF4905"' at Q6.s+(0,-0.15) below
+ "$G$" at Q6.G rjust
+ "$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)
+
+ 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
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/fet.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/lrarrows.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/lrarrows.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/lrarrows.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,16 @@
+.PS
+# `lrarrows.m4'
+cct_init
+ del = 0.55
+ inductor; larrow(i)
+ {"`\tt larrow(i)'" at last line + (0,-0.25)}
+ move right_ del
+ inductor; rarrow(i)
+ {"`\tt rarrow(i)'" at last line + (0,-0.25)}
+ move right_ del
+ inductor; larrow(i,<-)
+ {"`\tt larrow(i,<-)'" at last line + (0,-0.25)}
+ move right_ del
+ inductor; rarrow(i,<-)
+ {"`\tt rarrow(i,<-)'" at last line + (0,-0.25)}
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/lrarrows.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/md.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/md.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/md.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,59 @@
+%
+\newdimen{\leftwid}\setlength{\leftwid}{2in}
+\newdimen{\libwid}\setlength{\libwid}{0.5in}
+\newdimen\rightwid
+\setlength{\rightwid}{\textwidth}
+\addtolength{\rightwid}{-\leftwid}
+\addtolength{\rightwid}{-\libwid}
+%
+\newbox\Defbox
+%\iffalse% original macrodef:
+%\newcommand{\macrodef}[3]{\setbox\Defbox=\hbox{\tt #1}%
+% \ifdim\wd\Defbox>\textwidth%
+% \setbox\Defbox=\hbox{\parbox{\textwidth}{\tt #1}}\fi
+% \ifdim\wd\Defbox>\leftwid%
+% \box\Defbox\hfill\break\hspace*{\leftwid}%
+% \else\hbox to \leftwid{\box\Defbox\hfill}\fi%
+% \hbox to \libwid{#2\hfill}\parbox[t]{\rightwid}%
+% {\raggedright #3}\vspace{\parsep}\\}
+%\fi
+
+\newcommand{\macx}[2]{%
+ \phantomsection\pdfbookmark[subsection]{#1}{#2}#1}
+
+\newcommand{\macrodef}[5]{\begin{samepage}%
+\phantomsection\pdfbookmark[subsection]{#1}{#2}%
+\setbox\Defbox=\hbox{\tt #1#3}%
+ \ifdim\wd\Defbox>\textwidth%
+ \setbox\Defbox=\hbox{\parbox{\textwidth}{\tt #1#3}}\fi
+ \ifdim\wd\Defbox>\leftwid%
+ \box\Defbox\hfill\break\hspace*{\leftwid}%
+ \else\hbox to \leftwid{\box\Defbox\hfill}\fi%
+ \hbox to \libwid{#4\hfill}\parbox[t]{\rightwid}%
+ {\raggedright #5}\end{samepage}\vspace{\parsep}\\}
+
+\newcommand{\seesect}[1]{ (see \SR{#1})}
+
+
+\vspace{\abovedisplayskip}
+\noindent
+\macrodef{Along\_}{Along_}{({\sl LinearObj,distance,}[R])}
+ {gen}
+ {Distance arg2 (default all the way) along a linear object
+ from {\tt .start} to {\tt .end}
+ (from {\tt .end} to {\tt .start} if arg3={\tt R}) }
+\macrodef{AND\_gate}{AND_gate}{({\sl n},N)}
+ {log}
+ {basic `and' gate, 2 or {\sl n\/} inputs; {\tt N}=negated input.
+ Otherwise, arg1 can be a sequence of letters {\tt P|N}
+ to define normal or negated inputs
+ \seesect{Logicgates:}}
+\macrodef{AND\_gen}{AND_gen}{($n$,{\sl chars},[{\sl wid},[{\sl ht}]])}
+ {log}
+ {general AND gate: $n$=number of inputs $(0\leq n\leq 16)$;
+ {\sl chars:}
+ B=base and straight sides; A=Arc;
+ [N]NE,[N]SE,[N]I,[N]N,[N]S=inputs or circles;
+ [N]O=output; C=center.
+ Otherwise, arg1 can be a sequence of letters {\tt P|N}
+ to define normal or negated inputs.}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/md.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/mplex.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/mplex.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/mplex.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,49 @@
+.PS
+# mplex.m4
+ log_init
+ linewid = linewid*0.9
+
+ define(`short',elen_*2/3)
+ del = BUF_ht*L_unit
+down_
+P: NOR_gate(8)
+B: P.In3+(0,del/2)
+ dx = P.In1.x-P.In2.x
+ line down del/2 from P.Out then right 2*del; dot
+ {line up del*1.5; right_; BUFFER_gate(right_ short); "$\bar{Y}$" ljust }
+# BUFFER_gate(right_ short,N) ; "$Y$" ljust
+ NOT_gate(right_ short,n) ; "$Y$" ljust
+ for_(0,7,1,
+ `line from P.In`'eval(8-m4x) \
+ up B.y-P.In`'eval(8-m4x).y + (3.5-abs(m4x-3.5)) * dx \
+ then left (3.5-m4x)*AND_wd*L_unit then up (0.5+abs(m4x-3.5))*dx; down_
+ A`'m4x: AND_gate(5) with .Out at Here ')
+
+Eb: "$\bar{E}$" rjust at (A0.In5.x-2*short-dx/2,A0.n.y+del/2)
+# BUFFER_gate(from Eb right_ short,N); line to (A7.In1,Here) then to A7.In1
+ NOT_gate(from Eb right_ short,n); line to (A7.In1,Here) then to A7.In1
+ for_(0,6,1,
+ `line from A`'m4x.In1 to (A`'m4x.In1,Eb) ; dot')
+
+ for_(0,2,1,
+ `"`$S_'m4x$" wid 0.17 with .e at (Eb.x-textoffset,Eb.y+(1+m4x)*del*2)
+ NOT_gate(right_ short)
+ V1`'m4x: Here+(N_diam*L_unit/2,-del); {dot(at (V1`'m4x,Here))}
+# NOT_gate(right_ short)
+ NOT_gate(right_ short,n)
+ V0`'m4x: Here')
+
+ for_(0,7,1,`define(`i',m4x)dnl
+ for_(0,2,1,`define(`j',m4x)define(`k',`eval(((i+2**j)/2**j)%2)')dnl
+ move to A`'i.In`'eval(j+2)
+ line up V`'k`'j.y - Here.y dnl
+ ifelse(eval((i==7)|(i==(7-2**j))),1,
+ `then to V`'k`'j ifelse(eval(k==1),1,`then up del')',
+ `; dot')
+ ')
+ move to A`'i.In5; line to (Here,V02)
+ reversed(`BUFFER_gate',up_ short)
+ "$`I_'i$" at last line.end rjust
+ ')
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/mplex.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/oax.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/oax.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/oax.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,5 @@
+.PS
+# `oax.m4'
+cct_init
+include(oaxbody.m4)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/oax.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/oaxbody.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/oaxbody.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/oaxbody.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -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/oaxbody.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/quick.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/quick.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/quick.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,16 @@
+.PS # Pic input begins with .PS
+cct_init # Read in macro definitions and set defaults
+elen = 0.75 # Variables are allowed; default units are inches
+Origin: Here # Position names are capitalized
+ source(up_ elen); llabel(-,v_s,+)
+ resistor(right_ elen); rlabel(,R,)
+ dot
+ { # Save the current position and direction
+ capacitor(down_ to (Here,Origin)) #(Here,Origin) = (Here.x,Origin.y)
+ rlabel(+,v,-); llabel(,C,)
+ dot
+ } # Restore position and direction
+ line right_ elen*2/3
+ inductor(down_ Here.y-Origin.y); rlabel(,L,); b_current(i)
+ line to Origin
+.PE # Pic input ends
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/quick.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/stringdims.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/stringdims.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/stringdims.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,10 @@
+.PS
+# stringdims.m4
+sinclude(Circuit_macros.dim)
+s_init(stringdims)
+[B: box
+ s_box(`Left text') at B.w rjust
+ s_box(`Right text: $x^%g$',2) at B.e ljust
+ ]
+ box dotted ht last [].ht wid last [].wid at last []
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/stringdims.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/test.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/test.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/test.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1 @@
+\centering
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/test.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/thyristor.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/thyristor.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/thyristor.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,118 @@
+.PS
+# `thyristor.m4'
+cct_init
+
+define labels { {
+ "\sl $1" ht 11 pt__ $2 at last[].$1
+ "\sl $3" $4 at last[].$3
+ "\sl $5" $6 at last[].$5
+ "\tt $7" ht 11 pt__ $9 at (last[].s+(0,$8)) } }
+
+down_
+Row1: [
+ {thyristor
+ labels(A,above,K,below,G,ljust,`thyristor',-0.25,wid 0.75) }
+
+ move right 0.50 ; down_
+ {thyristor(,B)
+ labels(T1,above,T2,below,G,below ljust,`...(,B)',-0.35) }
+
+ move right 0.50 ; down_
+ {thyristor(down_ dimen_*0.8,BRK)
+ labels(T1,above,T2,below,G,below rjust,`...(,BRK)',-0.22) }
+
+ move right 0.60 ; down_
+ {thyristor(,BE)
+ labels(T1,above,T2,below,G,below ljust,`...(,BE)',-0.35) }
+
+ move right 0.50 ; down_
+ {thyristor(,A) at (Here,last [])
+ labels(A,above,K,below,G,ljust,`...(,A)',-0.35) }
+
+ move right 0.50 ; down_
+ {thyristor(,F) at (Here,last [])
+ labels(A,above,K,below,G,ljust,`...(,F)',-0.22) }
+
+ move right 0.65 ; down_
+ {thyristor(,BRE)
+ labels(T1,above,T2,below,G,below rjust,`...(,BRE)',-0.35) }
+
+ move right 0.75 ; down_
+ {thyristor(,UARE) at (Here,last [])
+ labels(A,above,K,below,G,rjust below,`...(,UARE)',-0.22) }
+
+ move right 0.50 ; down_
+ {thyristor(,AV,G: G+(0.1,0.1)) at (Here,last [])
+ thinlines_
+ spline -> from last[].G left 0.05 then left 0.05 down 0.1
+ thicklines_
+ labels(A,above,K,below,G,ljust,`...(,AV)',-0.35) }
+
+ move right 0.50 ; down_
+ {thyristor(,IEC)
+ labels(A,above ljust,K,below ljust,G,ljust,`...(,IEC)',-0.22) }
+ ]
+Row2: [
+ down_
+ {thyristor(,UAH)
+ labels(A,rjust above,K,rjust below,G,ljust,`...(,UAH)',-0.35,wid 0.65) }
+
+ move right 0.55 ; down_
+ {thyristor(,N) at (Here,last [])
+ labels(A,above,K,below,Ga,rjust,`...(,N)',-0.22) }
+
+ move right 0.55 ; down_
+ {thyristor(,UANRE) at (Here,last [])
+ labels(A,above,K,below,Ga,ljust above,`...(,UANRE)',-0.35) }
+ move right 0.55 ; down_
+ {thyristor(,SCR) at (Here,last [])
+ labels(A,above,K,below rjust,G,below ljust,`...(,SCR)',-0.22) }
+
+ move right 0.55 ; down_
+ {thyristor(,SCRE) at (Here,last [])
+ labels(A,above,K,below,G,ljust below,`...(SCRE)',-0.35) }
+
+ move right 0.65 ; down_
+ {thyristor(,SCRRE) at (Here,last [])
+ labels(A,above,K,below,G,rjust below,`...(SCRRE)',-0.22) }
+
+ move right 0.55 ; down_
+ {thyristor(,SCS) at (Here,last [])
+ labels(A,above,K,below,G,ljust,`...(SCS)',-0.35) }
+ { "\sl Ga" rjust above at last[].Ga }
+
+ move right 0.55 ; down_
+ {thyristor(,SCSE) at (Here,last [])
+ labels(A,above,K,below,G,ljust below,`...(SCSE)',-0.22) }
+ { "\sl Ga" rjust above at last[].Ga }
+
+ move right 0.65 ; down_
+ {thyristor(,SUSE) at (Here,last [])
+ labels(A,above,K,below,G,rjust,`...(SUSE)',-0.35) }
+
+ move right 0.65 ; down_
+ {thyristor(,SBSE) at (Here,last [])
+ labels(T1,above,T2,below,G,rjust,`...(SBSE)',-0.22) }
+
+ ] with .nw at Row1.sw + (0,-0.20)
+
+Twoterms: [ right_
+ { scr(,,Q) ; `"\tt scr(,{,}Q)"' at last [].e ljust}
+ { "\sl Q.G" at Q.G above }
+
+ move down 0.4; right_
+ { scs(,,Q2) ; `"\tt scs(,{,}Q2)"' at last [].e ljust }
+ { "\sl Q2.G" at Q2.G above }
+ { "\sl Q2.Ga" at Q2.Ga below }
+ ] with .nw at Row2.sw+(0,-0.2)
+
+ [ right_
+ { sus(,RE,Q3) ; `"\tt sus(,RE,Q3)"' at last [].e ljust}
+ { "\sl Q3.G" at Q3.G above }
+
+ move right_ 1.2 from last line.end
+ { sbs(,E,Q4) ; `"\tt sbs(,E,Q4)"' at last [].e ljust}
+ { "\sl Q4.G" at Q4.G below }
+ ] with .w at last [].e+(1.0,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/thyristor.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/tran.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/tran.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/tran.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,5 @@
+.PS
+# `tran.m4'
+cct_init
+include(tranbody.m4)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/tran.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/tran.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/tran.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/tran.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,76 @@
+% tran.m4
+\begin{tikzpicture}[scale=2.54]
+% dpic version 2014.03.24 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.2,0)\dpicstop
+\dpicdraw (0.2,0.333333)
+ --(0.2,0.291667)\dpicstop
+\dpicdraw (0.2,0.291667)
+ --(0.194444,0.291667)\dpicstop
+\dpicdraw (0.2,0.291667)
+ ..controls (0.217259,0.291667) and (0.23125,0.277676)
+ ..(0.23125,0.260417)
+ ..controls (0.23125,0.243158) and (0.217259,0.229167)
+ ..(0.2,0.229167)\dpicstop
+\dpicdraw (0.2,0.229167)
+ --(0.194444,0.229167)\dpicstop
+\dpicdraw (0.2,0.229167)
+ ..controls (0.217259,0.229167) and (0.23125,0.215176)
+ ..(0.23125,0.197917)
+ ..controls (0.23125,0.180658) and (0.217259,0.166667)
+ ..(0.2,0.166667)\dpicstop
+\dpicdraw (0.2,0.166667)
+ --(0.194444,0.166667)\dpicstop
+\dpicdraw (0.2,0.166667)
+ ..controls (0.241667,0.166667) and (0.241667,0.104167)
+ ..(0.2,0.104167)\dpicstop
+\dpicdraw (0.2,0.104167)
+ --(0.194444,0.104167)\dpicstop
+\dpicdraw (0.2,0.104167)
+ ..controls (0.241667,0.104167) and (0.241667,0.041667)
+ ..(0.2,0.041667)\dpicstop
+\dpicdraw (0.2,0.041667)
+ --(0.194444,0.041667)\dpicstop
+\dpicdraw (0.2,0.041667)
+ --(0.2,-0)\dpicstop
+\dpicdraw (0.272917,0.291667)
+ --(0.272917,0.041667)\dpicstop
+\dpicdraw (0.335417,0.291667)
+ --(0.335417,0.041667)\dpicstop
+\dpicdraw (0.408333,0.072917)
+ --(0.408333,0.072917)\dpicstop
+\dpicdraw (0.408333,0.072917)
+ --(0.413889,0.072917)\dpicstop
+\dpicdraw (0.408333,0.072917)
+ ..controls (0.366667,0.072917) and (0.366667,0.135417)
+ ..(0.408333,0.135417)\dpicstop
+\dpicdraw (0.408333,0.135417)
+ --(0.413889,0.135417)\dpicstop
+\dpicdraw (0.408333,0.135417)
+ ..controls (0.391074,0.135417) and (0.377083,0.149408)
+ ..(0.377083,0.166667)
+ ..controls (0.377083,0.183926) and (0.391074,0.197917)
+ ..(0.408333,0.197917)\dpicstop
+\dpicdraw (0.408333,0.197917)
+ --(0.413889,0.197917)\dpicstop
+\dpicdraw (0.408333,0.197917)
+ ..controls (0.366667,0.197917) and (0.366667,0.260417)
+ ..(0.408333,0.260417)\dpicstop
+\dpicdraw (0.408333,0.260417)
+ --(0.413889,0.260417)\dpicstop
+\dpicdraw (0.408333,0.260417)
+ --(0.408333,0.260417)\dpicstop
+\dpicdraw (0.2,0.333333)
+ --(0,0.333333)\dpicstop
+\dpicdraw (0.408333,0.260417)
+ --(0.608333,0.260417)
+ --(0.608333,0.360417)\dpicstop
+\dpicdraw (0.408333,0.072917)
+ --(0.608333,0.072917)
+ --(0.608333,-0.027083)\dpicstop
+\end{tikzpicture}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/tran.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/tranbody.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/tranbody.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/tranbody.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,6 @@
+line right 0.2
+up_
+A: transformer(,R,,,3) with .P1 at Here
+ line left 0.2 from A.P2
+ line right 0.2 from A.S2 then up 0.1
+ line right 0.2 from A.S1 then down 0.1
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/tranbody.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/ujt.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ujt.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ujt.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,28 @@
+.PS
+# `ujt.m4'
+cct_init
+dwn = 1.0
+dsep = 0.15
+
+define(`demo_ujt',`Q: ujt(`$1',`$2',`$3',`$4')
+ "\sl B1" ifelse(`$5',,below,ljust) at last [].B1
+ "{\sl E}sp_" at 1.5 between last [].Bulk.c and last [].E
+ "\sl B2" ifelse(`$5',,above,ljust) at last [].B2
+ ')
+
+[demo_ujt(up_ dimen_,,,E,A)
+`"{\tt ujt(up\_ dimen\_,{,},E)}"' wid 1.45 ht 0.1 at Q.s+(0,-0.15) ]
+
+[demo_ujt(,,P,)
+`"{\tt ujt(,{,}P,)}"' at Q.s+(0.1,-dsep) below ] \
+with .Q.w at last [].Q.e+(0.85,0)
+
+[demo_ujt(,R,,)
+`"{\tt ujt(,R,{,})}"' at Q.s+(0,-dsep) below] \
+with .Q.w at last [].Q.e+(0.8,0)
+
+[demo_ujt(,R,P,)
+`"{\tt ujt(,R,P,)}"' at Q.s+(0,-dsep) below] \
+with .Q.w at last [].Q.e+(0.8,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/ujt.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/woodchips.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/woodchips.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/woodchips.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,24 @@
+divert(-1)
+# `woodchips.m4'
+
+define(`grid',`[
+ psset_(linecolor=lightgray)
+ B: box invis wid 1.0 ht 0.3
+ d = 0.08
+ for x=B.ht to B.wid by d do {
+ line from B.nw+(x,0) thick 0.4 down B.ht left B.ht }
+ psset_(linecolor=black)
+ ]')
+
+divert(0)dnl
+.PS
+sinclude(Circuit_macros.dim)
+s_init(woodchips)
+
+ G: grid
+ f_box(Wood chips) with .w at G
+
+ f_box(color "lightgray" thickness 2 rad 2pt__,"\huge$n^{%g}$",4-1) \
+ with .w at G.e+(1.2,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/doc/woodchips.m4
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+LF
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/dpictools.pic
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/dpictools.pic (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/dpictools.pic 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,385 @@
+# dpictools.pic
+# General-purpose pic macros. Input this file using the 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.0, copyright (c) 2019 J. D. Aplevich under #
+# the LaTeX Project Public License. The files of this distribution may #
+# be redistributed or modified provided that this copyright notice is #
+# included and provided that modifications are clearly marked to #
+# distinguish them from this distribution. There is no warranty #
+# whatsoever for these files. #
+
+# findroot(function,left bound,right bound,tolerance,var name)
+# Solve function(x)=0 by the method of bisection
+# e.g. define parabola { $2 = ($1)^2 - 1 }
+# findroot( parabola, 0, 2, 1e-8, x )
+define findroot {$5 = 0; [ x_m = $2; x_M = $3
+ loop( $1(x_m,f_m);, abs(x_M-x_m)>$4,,
+ x_c = (x_m+x_M)/2
+ $1(x_c,f_c)
+ if sign(f_c)==sign(f_m) then {x_m=x_c} else {x_M=x_c};)
+ $5 := (x_m+x_M)/2 ] ; }
+
+# bisect(function,left bound,right bound, tolerance, var name)
+# Like findroot but uses recursion and without a [] box
+define bisect { x_m_$1 = $2; x_M_$1 = $3
+ x_c_$1 = (x_m_$1+x_M_$1)/2
+ if (abs(x_m_$1-x_M_$1) <= $4) then { $5 = x_c_$1 } else {
+ $1(x_m_$1,f_m_$1)
+ $1(x_c_$1,f_c_$1)
+ if (sign(f_c_$1)==sign(f_m_$1)) then { bisect($1,x_c_$1,x_M_$1,$4,$5) } \
+ else { bisect($1,x_m_$1,x_c_$1,$4,$5) } } }
+
+# case(i, alt1, alt2, ... ),
+# Case statement: execute alternative i
+# e.g., case(2, x=5, x=10, x=15) sets x to 10
+define case { exec sprintf("$%g",floor($1+0.5)+1); }
+
+# testexpr(i, expr1, expr2, ... )
+# Set i to index of the first true alternative
+# in a sequence of logical expressions, e.g.,
+# testexpr(i, 1>2, 1<2 ) sets i to 2; to 0
+# if no test is true.
+define testexpr { $1 = 0; [for i_testexpr=2 to $+ do {
+ exec sprintf("if $%g then {$1 := i_testexpr-1; i_testexpr=$+}",i_testexpr)
+ }] ; }
+
+# loop(initial,test,loopend,statements)
+# C-like loop. Commas in arg3 and arg4 must
+# be in quotes or parentheses, e.g.,
+# loop(i=1, i<=3, i+=1, print i) prints 1, 2, 3
+ld__ = 0
+define loop {ld__+=1
+ $1
+ for lx__[ld__]=0 to 1 do {
+ if $2 then { lx__[ld__]=0; $4; $3; } else { lx__[ld__]=1 }}
+ ld__-=1; }
+
+# array(var,expr1,expr2,...)
+# var[1]=expr1; var[2]=expr2,...
+define array {
+ for i_array=2 to $+ do { exec sprintf("$1[%g] = $%g",i_array-1,i_array); }}
+
+# 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); }}
+
+# slantbox(wid,ht,xslant,yslant,attributes)
+define slantbox { [
+ if "$1"=="" then { w = boxwid } else { w = $1 }
+ if "$2"=="" then { h = boxht } else { h = $2 }
+ if "$3"=="" then { xs = 0 } else { xs = $3 }
+ if "$4"=="" then { ys = 0 } else { ys = $4 }
+ NE: (w+xs,h+ys)/2 ; SE: (w-xs,-h+ys)/2
+ SW: (-w-xs,-h-ys)/2 ; NW: (-w+xs,h-ys)/2
+ N: 0.5 between NW and NE ; E: 0.5 between NE and SE
+ S: 0.5 between SE and SW ; W: 0.5 between SW and NW
+ C: 0.5 between SW and NE
+ line $5 from N to NE then to SE then to SW then to NW then to N
+ ] }
+# arraymax( data array, n, index name, value)
+# Find the index in array[1:n] of the first
+# occurrence of the max value. The value is
+# assigned if arg4 is non-blank. eg.,
+# array(x,4,9,8,6); arraymax( x,4,i )
+# assigns 2 to i, and arraymax( x,4,i,m )
+# assigns 2 to i and 9 to m
+define arraymax { { $3 = -1; if "$4" != "" then { $4 = 0 }; m_arrm = -1e25
+ for i_arrm=1 to $2 do { if $1[i_arrm] > m_arrm then {
+ $3 := i_arrm; m_arrm = $1[i_arrm] }}
+ if "$4" != "" then { $4 := m_arrm } } }
+
+# arraymin( data array, n, index name, value)
+# Like arraymax
+define arraymin { { $3 = -1; if "$4" != "" then { $4 = 0 }; m_arrm = 1e25
+ for i_arrm=1 to $2 do { if $1[i_arrm] < m_arrm then {
+ $3 := i_arrm; m_arrm = $1[i_arrm] }}
+ if "$4" != "" then { $4 := m_arrm } } }
+
+# copythru(macro_name,"datafile")
+# See the GNU pic manual
+# Implements "copy datafile thru macro_name"
+# for data separated by comma, spaces, or tabs
+define copythru {
+ sh "sed -e 's/^[ ]*/$1(/' -e 's/[ ]*$/)/' -e 's/[, ][ ]*/,/g' $2 \
+ > copy_tmp__"
+ copy "copy_tmp__"
+ sh "rm -f copy_tmp__";}
+
+# randn(array_name,n,mean,stddev)
+# Assign n Gaussian random numbers
+# in array_name[1] ... array_name[n]
+define randn {
+ if "$2"=="" then { n_randn = 1 } else { n_randn = $2 }
+ if "$3"=="" then { m_randn = 0 } else { m_randn = $3 }
+ if "$4"=="" then { s_randn = 1 } else { s_randn = $4 }
+ for i_randn=1 to n_randn by 2 do {
+ loop( t_randn=2, t_randn >= 1, u_randn = 2*rand()-1; v_randn = 2*rand()-1
+ t_randn = u_randn^2+v_randn^2 )
+ t_randn = sqrt( -2*loge(t_randn)/t_randn )
+ $1[i_randn] = u_randn*t_randn*s_randn+m_randn
+ if i_randn < n_randn then {
+ $1[i_randn+1] = v_randn*t_randn*s_randn+m_randn }
+ }
+ }
+
+# dfitpoints(V,n,m,P,mP)
+# Compute the controls in P[mP], P[mP+1]... for
+# the spline passing throught points V[m]...V[n]
+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
+ $4[mP_dfit]: $1[m_dfit]
+ for i_dfit=m_dfit+1 to n_dfit-1 do {
+ $4[mP_dfit+i_dfit-m_dfit]: $1[i_dfit]*(4/3) }
+ $4[mP_dfit+np_dfit]: $1[n_dfit]
+ $4[mP_dfit+1]: $4[mP_dfit+1]-$4[mP_dfit+0]/6 # forward substitution
+ d_dfit[1] = 1
+ for i_dfit = 2 to np_dfit-1 do { $4[mP_dfit+i_dfit]: \
+ $4[mP_dfit+i_dfit]-$4[mP_dfit+i_dfit-1]/d_dfit[i_dfit-1]/6
+ d_dfit[i_dfit] = 1-1/d_dfit[i_dfit-1]/36 }
+ for i_dfit= np_dfit-1 to 1 by -1 do { # backward substitution
+ $4[mP_dfit+i_dfit]: \
+ ($4[mP_dfit+i_dfit]-$4[mP_dfit+i_dfit+1]/6)/d_dfit[i_dfit] } }
+
+# dfitcurve(V,n,linetype,m (default 0))
+# Draw a spline through V[m],...V[n]
+# linetype=eg dotted. Works only with dpic.
+# The calculated control points P[i] satisfy
+# approximately:
+# P[0] = V[0]
+# P[i-1]/8 + P[i]*3/4 + P[i+1]/8 = V[i]
+# P[n] = V[n]
+# Like m4 macro fitcurve
+define dfitcurve { if "$4"=="" then { m_dfit=0 } else { m_dfit=$4 }
+ n_dfit = $2; np_dfit = n_dfit-m_dfit
+ M4P_[0]: $1[m_dfit]
+ case( min(max(np_dfit,-1),3)+1,
+ spline 0.551784 $3 from M4P_[0] to M4P_[0],
+ spline 0.551784 $3 from M4P_[0] to $1[n_dfit],
+ M4P_[3]: $1[n_dfit]; Q_dfit: (M4P_[3]-M4P_[0])/4
+ M4P_[1]: $1[m_dfit+1]-Q_dfit; M4P_[2]: $1[m_dfit+1]+Q_dfit
+ spline 0.551784 $3 from M4P_[0] to M4P_[1] then to M4P_[2] then to M4P_[3],
+ dfitpoints($1,$2,$4,M4P_,0) # draw using computed control points
+ spline 0.551784 $3 from M4P_[0] to 11/32 between M4P_[0] and M4P_[1] \
+ then to 5/32 between M4P_[1] and M4P_[2]
+ 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]) }
+
+# histbins { data array name, n, [min], [max],
+# nbins, bin array name )
+# Generate the distribution of n values in
+# dataarray. If given, arg3 and arg4 specify
+# maximum and minimum data values, otherwise they
+# are calculated. Bins have index 0 to arg5-1
+define histbins { # dataarray, n, [min], [max], nbins, binarray
+{ if "$3" == "" then { arraymin($1,$2,mn_histb,n_histb)} else { n_histb = $3 }
+ if "$4" == "" then { arraymax($1,$2,mx_histb,m_histb)} else { m_histb = $4 }
+ f_histb = ($5-0.001)/(m_histb-n_histb)
+ for i_histb=0 to $5-1 do { $6[i_histb] = 0 }
+ for i_histb=1 to $2 do {
+ x_histb = floor(($1[i_histb]-n_histb)*f_histb)
+ if (x_histb >= 0) && (x_histb < $5) then { $6[x_histb] += 1 } }
+} }
+
+# dpquicksort(a,lo,hi,ix)
+# Given array a[lo:hi] and index
+# array ix[lo:hi] = lo,lo+1,lo+2,...hi,
+# sort a[lo:hi] and do identical exchanges on ix
+define dpquicksort { [ if $3 > $2 then {
+ pivot = $1[($2+($3))/2]
+ loop(lo = $2; hi = $3, lo <= hi,
+ loop(,$1[lo] < pivot, lo += 1 )
+ loop(,$1[hi] > pivot, hi -= 1 )
+ if lo < hi then {
+ tmp = $1[lo]; $1[lo] := $1[hi]; $1[hi] := tmp
+ tmp = $4[lo]; $4[lo] := $4[hi]; $4[hi] := tmp }
+ if lo <= hi then { lo += 1; hi -= 1 } )
+ if hi > $2 then { exec sprintf("dpquicksort($1,%g,%g,$4)",$2,hi) }
+ if lo < $3 then { exec sprintf("dpquicksort($1,%g,%g,$4)",lo,$3) }
+ } ] }
+
+# dprot(radians,x,y)
+# Evaluates to a rotated pair (like m4 rot_ )
+define dprot { cos($1)*($2)-sin($1)*($3),sin($1)*($2)+cos($1)*($3) }
+
+# rgbtohsv(r,g,b,h,s,v)
+# rgb color triple to hsv with h range 0 to 360
+define rgbtohsv { $4 = 0; $5 = 0; $6 = 0
+ [r = $1; g = $2; b = $3
+ maxc = max(max(r,g),b)
+ minc = min(min(r,g),b)
+ if maxc==minc then { $4 := 0 } \
+ else {if maxc == r then {
+ $4 := pmod(60*((g-b)/(maxc-minc)),360) } \
+ else {if maxc == g then {
+ $4 := 60*((b-r)/(maxc-minc)) + 120 } \
+ else { $4 := 60*((r-g)/(maxc-minc)) + 240 }}}
+ if maxc == 0 then { $5 := 0 } else { $5 := 1 - (minc/maxc) }
+ $6 := maxc
+ ] }
+
+# hsvtorgb(h,s,v,r,g,b)
+# hsv color triple to rgb, h has range 0 to 360
+define hsvtorgb { $4 = 0; $5 = 0; $6 = 0
+ [h = pmod($1,360)/60; s = $2; v = $3
+ i = floor(h)
+ f = h-i
+ m = v*(1-s)
+ n = v*(1-s*f)
+ k = v*(1-s*(1-f))
+ case(i+1,
+ $4 := v; $5 := k; $6 := m,
+ $4 := n; $5 := v; $6 := m,
+ $4 := m; $5 := v; $6 := k,
+ $4 := m; $5 := n; $6 := v,
+ $4 := k; $5 := m; $6 := v,
+ $4 := v; $5 := m; $6 := n)
+ ] }
+
+# cmyktorgb(c,m,y,k,r,g,b)
+# cmyk colors in percent to rgb
+define cmyktorgb {
+ $5 = 1-min(1,($1+$4)/100)
+ $6 = 1-min(1,($2+$4)/100)
+ $7 = 1-min(1,($3+$4)/100)
+ }
+
+# rgbtocmyk(r,g,b,c,m,y,k)
+# rgb to cmyk colors out of 100
+define rgbtocmyk {
+ $7 = min(1-$1,min(1-$2,1-$3))*100
+ $4 = (1-$7-$1)/(1-$7)*100
+ $5 = (1-$7-$2)/(1-$7)*100
+ $6 = (1-$7-$3)/(1-$7)*100 }
+
+# DefineRGBColor(colorname,r,g,b)
+# Arguments are in the range 0 to 1
+# Define dpic macro colorname according to the
+# postprocessor specified by dpic command-line
+# option; colorname then evaluates to a string
+define DefineRGBColor {
+case(dpicopt, # The order of the following is defined in dpic source:
+# MFpic:
+ command sprintf("\mfpdefinecolor{_$1__}{rgb}{%g,%g,%g}",$2,$3,$4)
+ define $1 {"_$1__"} ,
+# Mpost:
+ define $1 {sprintf("(%g,%g,%g)",$2,$3,$4)} ,
+# PDF:
+ define $1 {sprintf("%g %g %g",$2,$3,$4)} ,
+# PGF:
+ command sprintf("\definecolor{_$1__}{rgb}{%g,%g,%g}",$2,$3,$4)
+ define $1 {"_$1__"} ,
+# Pict2e:
+ command sprintf("\definecolor{_$1__}{rgb}{%g,%g,%g}",$2,$3,$4)
+ define $1 {"_$1__"} ,
+# PS:
+ define $1 {sprintf("%g %g %g",$2,$3,$4)} ,
+# PSfrag:
+ define $1 {sprintf("%g %g %g",$2,$3,$4)} ,
+# PSTricks:
+ command sprintf("\definecolor{_$1__}{rgb}{%g,%g,%g}",$2,$3,$4)
+ define $1 {"_$1__"} ,
+# SVG:
+ define $1 {sprintf("rgb(%g,%g,%g)",int($2*255),int($3*255),int($4*255))} ,
+# TeX:
+ command sprintf("\definecolor{_$1__}{rgb}{%g,%g,%g}",$2,$3,$4)
+ define $1 {"_$1__"} ,
+# tTeX:
+ command sprintf("\definecolor{_$1__}{rgb}{%g,%g,%g}",$2,$3,$4)
+ define $1 {"_$1__"} ,
+# xfig:
+ define $1 {"black"}
+ ) }
+
+# DefineHSVColor(colorname,h,s,v)
+# Like DefineRGBColor but takes arguments
+# h in [0,360], s in [0,1], and v in [0,1]
+define DefineHSVColor { hsvtorgb($2,$3,$4,r_HSVRGB,g_HSVRGB,b_HSVRGB)
+ DefineRGBColor($1,r_HSVRGB,g_HSVRGB,b_HSVRGB) }
+
+# DefineCMYKColor(colorname,c,m,y,k)
+# Like DefineRGBColor but arguments in percent
+define DefineCMYKColor { cmyktorgb($2,$3,$4,r_CMYKRGB,g_CMYKRGB,b_CMYKRGB)
+ DefineRGBColor($1,r_CMYKRGB,g_CMYKRGB,b_CMYKRGB) }
+
+# ShadeObject(DrawRoutineName, n, colorseq)
+# colorseq = 0,r0,g0,b0,
+# frac1,r1,g1,b1,
+# frac2,r2,g2,b2,
+# ...
+# 1,rn,gn,bn
+# with 0 < frac1 < frac2 < ... < 1
+#
+# calls DrawRoutineName(frac,r,g,b)
+# n+1 times for frac = 0, 1/n, 2/n, ... 1
+# with rgb args interpolated (in hsv space)
+# between colorseq points
+#
+# eg B: box; define HorizShade { line right B.wid thick B.ht/100/(1bp__) \
+# from (0,-($1)*B.ht) outlined rgbstring($2,$3,$4) }
+# ShadeObject(HorizShade, 100, 0,1,0,0, 1,0,0,1) at B
+#
+define ShadeObject { [ Origin: Here; nSteps = abs($2)
+ nextP = $3; nextR = $4; nextG = $5; nextB = $6
+ nextarg = 7
+ thisP = nextP
+# Creates [] wid 0 ht 0 at (0,0):
+ if $2 < 0 then { rgbtohsv(nextR,nextG,nextB,nextH,nextS,nextV) } \
+ else { rgbtohsv(nextR^2,nextG^2,nextB^2,nextH,nextS,nextV) }
+ if nextP*nSteps >= 1 then { nextP = 0 }
+ $1(nextP,nextR,nextG,nextB)
+ for stepnum = 1 to nSteps do {
+ if stepnum > nextP*nSteps then {
+ thisP = nextP; thisH = nextH; thisS = nextS; thisV = nextV
+ exec sprintf("nextP = $%g; nextR = $%g; nextG = $%g; nextB = $%g",\
+ nextarg,nextarg+1,nextarg+2,nextarg+3);
+ nextarg +=4 }
+ if nextP != thisP then {
+ rgbtohsv(nextR^2,nextG^2,nextB^2,nextH,nextS,nextV)
+ if thisS == 0 then { thisH = nextH }
+ if nextS == 0 then { nextH = thisH }
+ if thisH-nextH > 180 then { nextH += 360 } \
+ else { if nextH-thisH > 180 then { thisH +=360 } } }
+ if nextP > thisP then {
+ x = (stepnum/nSteps-thisP)/(nextP-thisP)
+ currP = thisP*(1-x) + nextP*x
+ currH = thisH*(1-x) + nextH*x
+ currS = thisS*(1-x) + nextS*x
+ currV = thisV*(1-x) + nextV*x
+ hsvtorgb(currH,currS,currV,cRsq,cGsq,cBsq)
+ if $2 < 0 then { $1(currP,cRsq,cGsq,cBsq) } \
+ else { $1(currP,sqrt(cRsq),sqrt(cGsq),sqrt(cBsq)) } }
+ }
+ exec sprintf("$%g",nextarg)
+ ] }
+
+# Useful for debugging:
+# Print Pos:(Pos.x,Pos.y)
+define prpos { { print sprintf("$1:(%g,%g)",($1).x,($1).y) } }
+
+define prval { print sprintf("$1=%g",$1) }
+define prval2 { print sprintf("$1=%g, $2=%g",$1,$2) }
+define prval3 { print sprintf("$1=%g, $2=%g, $3=%g",$1,$2,$3) }
+
+# prow(array name,lo,hi)
+# print array[lo:hi] as a row
+# eg array(x,6,4,5); prow(x,1,3)
+define prow {
+ sh "echo -n \"print \\"\" > $1_xxx"
+ for i=$2 to $3-1 do { sh sprintf("echo -n \"%g \" >> $1_xxx",$1[i]) }
+ sh sprintf("echo \"%g\\"\" >> $1_xxx",$1[$3])
+ copy "$1_xxx"
+ sh "rm $1_xxx"
+ }
+
+define rnd {int($1+sign($1)/2)} # round function
+
+# print " *** dpic: dpictools.pic processed"
+define dpictools {1}
+# dpictools end
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/dpictools.pic
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ABlogix.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ABlogix.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ABlogix.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,51 @@
+.PS
+# `ABlogix.m4'
+log_init
+
+linewid = 0.4
+
+# A more complex expression
+ F: Autologix(And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
+ And(x4,Or(x2,x1,~x0),Xor(x2,~x1)))))
+
+ Loopover_(`v_', `"$v_$" at F.In`'v_ above', x0,x1,x2,x3,x4)
+ "\sl Out" ljust at F.Out
+ `"{\tt \shortstack[l]{Autologix(And(Or(x3,x1,\~{}x0),\\
+ \quad Nor(Or(x3,Not(x2),\~{}x1,x0),And(x4,Or(x2,x1,\~{}x0),\
+ Xor(x2,\~{}x1)))))}}"' wid 440pt__ ht 20pt__ \
+ with .w at F.sw+(0,-0.25)
+# Inputs on the left with vert offset in L_units
+define(`Doff',LV;offset=25)
+ G: Autologix(And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
+ And(x4,Or(x2,x1,~x0),Xor(x2,~x1)))),
+ Doff*L_unit) \
+ with .sw at F.Out+(0.2,-0.7)
+
+ Loopover_(`v_', `"$v_$" wid 11pt__ at G.In`'v_ rjust ', x0,x1,x2,x3,x4)
+ "\sl Out" ljust at G.Out
+ "{\tt ...,Doff*L\_unit)}" at G.s+(0,-10pt__)
+
+# A more complex expression
+define(`Eoff',R)
+ E: Autologix(And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
+ And(x4,Or(x2,x1,~x0),Xor(x2,~x1)))),
+ Eoff) \
+ with .nw at F.sw+(0,-1.35)
+
+ Loopover_(`v_', `"$v_$" at E.In`'v_ above ', x0,x1,x2,x3,x4)
+ "\sl Out" ljust at E.Out
+ "{\tt ...,Eoff)}" at E.s+(0,-10pt__)
+
+# Inputs on the left with vert offset in L_units
+define(`Foff',LRV;offset=17.25)
+ D: Autologix(And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
+ And(x4,Or(x2,x1,~x0),Xor(x2,~x1)))),
+ Foff*L_unit) \
+ with .sw at E.Out1+(0.2,-0.51)
+
+ Loopover_(`v_', `"$v_$" wid 11pt__ at D.In`'v_ rjust ', x0,x1,x2,x3,x4)
+ "\sl Out" ljust at D.Out
+ "{\tt ...,Foff*L\_unit)}" at D.s+(0,-10pt__)
+
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ABlogix.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/Adder.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Adder.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Adder.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,75 @@
+.PS
+# Adder.m4
+log_init
+
+del = linewid/4
+
+[ # full adder using gates
+ A: dot; {"\sf A" rjust}; line right
+ Xor1: XOR_gate with .In1 at Here
+ dy = Xor1.In1.y-Xor1.In2.y
+ B: dot(at (A,Xor1.In2)); {"\sf B" rjust}; line to Xor1.In2
+ line from Xor1.Out right 2*del+dy
+ Xor2: XOR_gate with .In1 at Here
+
+ Co: Autologix(Or(And(X1,X2),And(A,B)),N) with .nw at Xor2.sw+(-del,-del/2)
+ line from Co.In1 to (Co.In1,Xor2.In2) then to Xor2.In2
+ dot(at (Xor1.Out+(del,0))); line to (Here,Co.In2) then to Co.In2
+ dot(at (Xor1.In1-(del,0))); line to (Here,Co.In3) then to Co.In3
+ dot(at (Xor1.In2-(del+dy,0))); line to (Here,Co.In4) then to Co.In4
+ line right del from Co.Out1; dot; {"\sf Co" ljust }
+ dot(at (Here,Xor2.Out)); {"\sf S" ljust}; line to Xor2.Out
+ Ci: dot(at (B,(0.5 between Xor2.s and Co.n))); line to (Co.In1,Here); dot
+ "\sf Ci" rjust at Ci
+ ]
+
+[ # truth table
+ griddim = linewid*0.4
+ define(`row',`T: (0,-(`$1')*griddim*0.8)
+ Loopover_(`v',`"\sf v" at T; T: T+(griddim,0)', shift($@))')
+
+ [row(0,A,B,Ci,Co,S)]
+ line thick 2 color "gray" right 4.5*griddim \
+ with .c at last [].c+(0,-griddim/2)
+
+ [row(1,0,0,0,0,0)
+ row(2,0,0,1,0,1)
+ row(3,0,1,0,0,1)
+ row(4,0,1,1,1,0)
+ row(5,1,0,0,0,1)
+ row(6,0,1,1,0,0)
+ row(7,1,1,0,1,0)
+ row(8,1,1,1,1,1) ] with .n at last [].c+(0,-griddim)
+
+ ] with .nw at 1st [].ne+(linewid,0)
+
+[ # cascade of n-bit adders
+define(`nbitadder',
+`FlipFlopX(wid 2*linewid fill_(0.9),
+ $n$-\sf\scriptsize bit" "\sf\scriptsize adder,
+ :, I:;I:;;;I:;I:, I:, O:;;;O: ) `$3'
+ `"\ldots"' at last [].Chip.n + (0,arrowht)
+ `"\ldots"' at last [].Chip.s - (0,arrowht)
+ ifelse(`$1',,,
+ `"$\;\;x_{$1}$" at last [].N6.end above
+ "$`s_'{$1}$" at last [].S4.end below
+ "$y_{$1}\;\;$" at last [].N5.end above')
+ ifelse(`$2',,,
+ `"$\quad{}x_{$2}$" at last [].N2.end above
+ "$y_{$2}\quad\;\;$" at last [].N1.end above
+ "$`s_'{$2}$" at last [].S1.end below ')
+ ')
+
+P: nbitadder(0,n{-}1)
+ {"$c_o$" at P.E1.end ljust }
+ {"$c_n$" at P.W1.end above }
+Q: nbitadder(n,2n{-}1, with .E1.end at P.W1.end)
+ arrow left arrowht from Q.W1.end ht arrowht*4/5 wid arrowwid*5/4
+ { "\ldots" at Here+(-10pt__,0) }
+R: nbitadder(,kn{-}1, with .E1.end at Here-(20bp__,0))
+ arrow left arrowht from R.W1.end ht arrowht*4/5 wid arrowwid*5/4
+ {"$c_{kn}$" rjust }
+
+ ] with .nw at 1st [].sw+(0,-0.5)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Adder.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/Alogix.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Alogix.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Alogix.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,115 @@
+.PS
+# `Alogix.m4'
+log_init
+
+# A modest expression in default form
+A: Autologix(
+ Nand(And(Or(A,C),Or(B,~C),Or(~A,B,C)),Ck);
+ Nand(~A,B)@with .n at last [].s+(0,-2bp__))
+ move left 10bp__ from A.InCk
+ "\sl Out1" at A.Out1 ljust
+ "\sl Out2" at A.Out2 ljust
+ Loopover_(`v_', `"$v_$" at A.In`'v_ above ', A,B,C,Ck)
+ `"\shortstack[l]{
+ \tt Autologix( \\ \tt \quad
+ Nand(And(Or(A,C),Or(B,\~{}C),Or(\~{}A,B,C)),Ck);\\ \tt \quad
+ Nand(\~{}A,B))@with .n at last [].s+(0,-2bp\_\_))}"'\
+ wid 288bp__ ht 32bp__ with .nw at A.sw+(0,-0.10)
+
+# Draw a tree of gates only. The ~ has been
+# replaced by NOT gates.
+B: Autologix(Or(And(B,Not(C)),And(Not(A),B,C)),N) \
+ with .sw at A.e+(1.3,-0.5)
+ "{\sl Out}" at B.Out above ljust
+ `"\shortstack[l]{\tt B: Autologix( \\ \tt \
+ Or(And(B,Not(C)),And(Not(A),B,C)),N)}"' \
+ wid 242pt__ ht 20pt__ at B.s+(0,-0.2)
+ for_(1,4,1,`"{\sf\small\sl B.In`'m4x}" at B.In`'m4x rjust')
+ "{\sf\small\sl B.In5}" at B.In5+(0,-1.5bp__) rjust
+
+# Here is how to include an arbitrary circuit
+# that is not one of the standard gates.
+# First, define the circuit with a name ending
+# in _gate. Make sure its inputs are on the left
+# and named In1, In2, ... and the output Out
+# is on the right.
+define(`SR_gate',`[
+ S: NOR_gate
+ R: NOR_gate at S+(0,-L_unit*(AND_ht+4))
+ w = (S.Out.x-R.In1.x)/3
+ v = 2*L_unit
+ line right_ dimen_/2 from S.Out
+ Out: Here
+ TR: R.In1-(v,0)
+ line from S.Out+(v,0) down w*3/2 then left S.Out.x-TR.x+v down w \
+ then to TR then to R.In1
+ TS: S.In2-(v,0);
+ line from R.Out right v then up w*3/2 then left R.Out.x-TS.x+v up w \
+ then to TS then to S.In2
+ In1: S.In1
+ In2: R.In2 ]')
+# Now define the function by which the circuit
+# will be invoked:
+define(`SRff',`_AutoGate(SR,$@)')
+
+# You are done. Here is an example:
+G: [
+ F: Autologix(SRff(And(x,y),Nand(x,y)),LRV)
+
+ "$x$" at F.Inx rjust
+ "$y$" at F.Iny rjust
+ "\sl Out" at F.Out ljust
+ ] with .sw at A.n+(0.5,-0.25)
+ `"{\tt Autologix(SRff(And(x,y),Nand(x,y)),LRV)}"' wid 253pt__ ht 7pt__ \
+ with .w at last [].sw+(0,-10pt__)
+
+undefine(`extras')
+#efine(`extras')
+
+ifdef(`extras',`
+ Q1: Autologix(Nor(Nor(A,And(B,C)),Nand(Not(B),D))) \
+ with .nw at A.sw+(0,-61bp__)
+ Loopover_(`x',`"\sf x" at last [].In`'x above',A,B,C,D)
+
+ `"\shortstack[l]{%
+ \tt Q1: Autologix(Nor(Nor(A,And(B,C)),Nand(Not(B),D)),<options>)\\
+ \tt Loopover\_(`x',`\"\sf x\" at last [].In`'x above',A,B,C,D)}"' \
+ wid 350bp__ ht 20bp__ with .nw at Q1.sw+(0,-10pt__)
+
+ Q2: Autologix(Nor(Nor(A,And(B,~C)),Nand(Not(B),D)),V) \
+ with .nw at last "".sw+(0,-14bp__)
+ Loopover_(`x',`"\sf x" at last [].In`'x above',A,B,C,D)
+ "\sf V" at last [].se above rjust
+
+ Q3: Autologix(Nor(Nor(A,And(B,C)),Nand(Not(B),D)),R) \
+ with .nw at last [].sw+(0,-0.2)
+ Loopover_(`x',`"\sf x" at last [].In`'x above',A,B,C,D)
+ "\sf R" at last [].se above rjust
+
+ Q4: Autologix(Nor(Nor(A,And(B,C)),Nand(Not(B),D)),RV) \
+ with .nw at last [].sw+(0,-0.2)
+ Loopover_(`x',`"\sf x" at last [].In`'x above',A,B,C,D)
+ "\sf RV" at last [].se above rjust
+
+ Autologix(Nor(Nor(A,And(B,C)),Nand(Not(B),D)),LRV) \
+ with .Out at Q4.Out+(3.5,0)
+ Loopover_(`x',`"\sf x" at last [].In`'x rjust',A,B,C,D)
+ "\sf LRV" at last [].se above rjust
+
+ Autologix(Nor(Nor(A,And(B,C)),Nand(Not(B),D)),LR;offset=-L_unit*1.5) \
+ with .Out at Q3.Out+(3.5,0)
+ Loopover_(`x',`"\sf x" at last [].In`'x rjust',A,B,C,D)
+ "\sf LR" at last [].se above rjust
+
+ Autologix(Nor(Nor(A,And(B,~C)),Nand(Not(B),D)),LV;offset=L_unit*2) \
+ with .Out at Q2.Out+(3.5,0)
+ Loopover_(`x',`"\sf x" at last [].In`'x rjust',A,B,C,D)
+ "\sf LV" at last [].se above rjust
+
+ Autologix(Nor(Nor(A,And(B,C)),Nand(Not(B),D)),L) \
+ with .Out at Q1.Out+(3.5,0)
+ Loopover_(`x',`"\sf x" at last [].In`'x rjust',A,B,C,D)
+ "\sf L" at last [].se above rjust
+')
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Alogix.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/Autologix.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Autologix.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Autologix.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,57 @@
+.PS
+# `Autologix.m4'
+log_init
+
+A: [
+F: Autologix(
+ And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
+ And(Or(x2,x1,~x0),Xor(x2,~x1))));
+ ~x0;
+ And(~x0,Nand(~x1,x3))@ with .nw at 2nd last [].sw+(0,-dimen_*2/3);
+ Not(x1))
+ for_(1,4,1,`"\sl Out`'m4x" at F.Out`'m4x ljust')
+ Loopover_(`v_', `"\sl In$v_$" at F.In`'v_ above ',x0,x1,x3)
+# for_(1,3,1,`"\sl In`'m4x=" at F.In`'m4x+(0,10pt__) above')
+ "\sl In$x2$" at F.Inx2 +(-10pt__,0) above
+# "\sl In4=" at F.In4+(-10pt__,10pt__) above
+ for_(1,3,1,`"\sl In`'m4x" at F.In`'m4x')
+ "\sl In17" at F.In17
+G: Autologix(
+ And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
+ And(Or(x2,x1,~x0),Xor(x2,~x1))));
+ ~x0;
+ And(~x0,Nand(~x1,x3))@ with .nw at 2nd last [].sw+(0,-dimen_*2/3);
+ Not(x1),
+ N) with .Out1 at F.Out1+(6*dimen_,0)
+ for_(1,4,1,`"\sl Out`'m4x" at G.Out`'m4x ljust')
+ "\sl In1" at G.In1 rjust
+ "\sl In2" at G.In2 rjust
+ "\sl In`'m4nargs" at G.In`'m4nargs rjust
+ "\tt\ldots ,N)" wid 0.25 at (G.Out2,G.Out4) rjust
+]
+
+S: `"\def\tld{\char126}\shortstack[l]{\tt Autologix(\\\tt
+ \tt\quad{}And(Or(x3,x1,\tld{}x0),Nor(Or(x3,Not(x2),\tld{}x1,x0),
+ And(Or(x2,x1,\tld{}x0),Xor(x2,\tld{}x1))));\\
+ \tt\quad{}\tld{}x0;\\
+ \tt\quad{}And(\tld{}x0,Nand(\tld{}x1,x3))@
+ with .nw at 2nd last [].sw+(0,-dimen\_*2/3);\\
+ \tt\quad{}Not(x1))}"' \
+ ht 58pt__ wid 520pt__ with .nw at A.sw+(0,-15pt__)
+
+B: [
+F: #utologix(
+ And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
+ And(Or(x2,x1,~x0),Xor(x2,~x1))));
+ ~x0;
+ And(~x0,Nand(~x1,x3))@ with .ne at 2nd last [].se+(0,-dimen_*2/3);
+ Not(x1),
+ M)
+ for_(1,4,1,`"\sl Out`'m4x" at F.Out`'m4x rjust')
+ Loopover_(`v_', `"\sl In$v_$" at F.In`'v_ above ',x0,x1,x3)
+ "\sl In$x2$" at F.Inx2 +(10pt__,0) above
+ `"\tt\ldots @ with .ne at 2nd last [].se+(0,-dimen\_*2/3);Not(x1),M)"'\
+ wid 200pt__ at F.s below
+] with .n at S.s+(0,-0.1)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Autologix.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/Ball.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Ball.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Ball.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,140 @@
+% Ball.m4 stand-alone (PDF)LaTeX example
+%
+% Usage: type
+% m4 pgf.m4 Ball.m4 | dpic -g > Ball.tex; pdflatex Ball
+% or:
+% m4 pstricks.m4 Ball.m4 | dpic -p > Ball.tex; latex Ball; dvips Ball
+%
+\documentclass{article}
+ifpgf(`\usepackage{tikz}',`\usepackage{pstricks,pst-grad}')
+\pagestyle{empty}
+\begin{document}
+%
+.PS
+threeD_init
+command "\small{"
+
+ viewazimuth = 15 # Set view angles in degrees
+ viewelevation = 35
+ setview(viewazimuth,viewelevation)
+
+#def_bisect # Bring in the equation solver
+ NeedDpicTools
+
+ rectwid = 3.2 # basic dimensions
+ rectht = 2
+ alpha = rectht/3
+
+ # Rectangle
+ 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)
+ ifpstricks(command "}%")
+
+ define(`C3D',`0,0,alpha') # Centre of the sphere
+ C: project(C3D)
+
+ # Shaded sphere
+ ifelse(m4postprocessor,pstricks,
+ `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,%"
+ command sprintf("GradientPos={(%g,%g)}]{",Highlight.x,Highlight.y)
+ circle rad alpha at C
+ command "}%"',
+ m4postprocessor,pgf,
+ `command sprintf(\# A little too dark, maybe
+ "\dpicdraw[ball color=white](%g,%g) circle (%gin)\dpicstop",\
+ 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
+ "$\alpha$" at 0.5<S,C> rjust
+
+ define(`N3D',`0,0,2*alpha') # North pole
+ 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
+
+ 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 }
+
+`define' invisline { # name # Draw dashed invisible part of line in
+ Xb: $1 # the plane
+ bisect( linevis, 0, 1, 1e-8, x )
+ line dashed from S to x between S and Xb chop 0 chop 0.05 }
+
+thinlines_ # axes
+ invisline(X)
+ arrow to X chop 0.05 chop 0; "$x,\:\xi$" at Here+(0,3pt__) below
+ invisline(Y)
+ arrow to Y chop 0.05 chop 0; "$y,\:\eta$" ljust
+ line dashed from S to N chop 0 chop 0.05
+ 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))
+ "$\phi$" below at 0.5 between last arc.start and last arc.end
+
+ # vector (ratio along (N to Phat))
+define(`ray',`sum3D(N3D,sprod3D($1,diff3D(Phat3D,N3D)))')
+`define' rayvis { # ratio
+ $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
+
+thicklines_
+ line dashed from N to P chop 0 chop 0.05
+ line to Phat chop 0.05 chop 0
+
+define(`meridian',`rot3Dz(phi,rot3Dy(-($1),alpha,0,0))')
+`define' meridianvis { # angle # Visibility function on the meridian
+ $2 = dot3D(meridian($1),View3D) }
+
+thinlines_ # Draw the meridian
+ 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 }
+ 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 }
+ fitcurve(Q,n-1,dashed)
+
+define(`equator',`rot3Dz($1,alpha,0,0)')
+`define' equatorvis { # angle # Visibility function on the equator
+ $2 = dot3D(View3D,equator($1)) }
+
+ 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 }
+ 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 }
+ fitcurve(Q,n-1,dashed)
+
+ line dashed from C to P # beta
+ 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
+
+command "}"
+.PE
+%
+\end{document}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Ball.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/Blogix.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Blogix.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Blogix.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,87 @@
+.PS
+# `Blogix.m4'
+log_init
+
+linewid = 0.4
+
+# A more complex expression
+ F: Autologix(And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
+ And(x4,Or(x2,x1,~x0),Xor(x2,~x1)))))
+
+ Loopover_(`v_', `"$v_$" at F.In`'v_ above', x0,x1,x2,x3,x4)
+ "\sl Out" ljust at F.Out
+ `"{\tt \shortstack[l]{Autologix(And(Or(x3,x1,\~{}x0),\\
+ \quad Nor(Or(x3,Not(x2),\~{}x1,x0),And(x4,Or(x2,x1,\~{}x0),%\
+ Xor(x2,\~{}x1)))))}}"' wid 440pt__ ht 20pt__ \
+ with .w at F.sw+(0,-0.25)
+# Inputs on the left with vert offset in L_units
+define(`Doff',LV;offset=25)
+ G: Autologix(And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
+ And(x4,Or(x2,x1,~x0),Xor(x2,~x1)))),
+ Doff*L_unit) \
+ with .sw at F.Out+(0.2,-0.7)
+
+ Loopover_(`v_', `"$v_$" wid 11pt__ at G.In`'v_ rjust ', x0,x1,x2,x3,x4)
+ "\sl Out" ljust at G.Out
+ "{\tt ...,Doff*L\_unit)}" at G.s+(0,-10pt__)
+
+# A more complex expression
+define(`Eoff',R)
+ E: Autologix(And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
+ And(x4,Or(x2,x1,~x0),Xor(x2,~x1))));
+ And(~x0,Nand(~x1,x3)),
+ Eoff) \
+ with .nw at F.sw+(0,-1.5)
+
+ Loopover_(`v_', `"$v_$" at E.In`'v_ above ', x0,x1,x2,x3,x4)
+ "\sl Out1" ljust at E.Out1
+ "\sl Out2" ljust at E.Out2
+ "{\tt ...,Eoff)}" at E.s+(0,-10pt__)
+
+# Inputs on the left with vert offset in L_units
+define(`Foff',LRV;offset=17)
+ D: Autologix(And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
+ And(x4,Or(x2,x1,~x0),Xor(x2,~x1)))),
+ Foff*L_unit) \
+ with .sw at E.Out1+(0.2,-0.5)
+
+ Loopover_(`v_', `"$v_$" wid 11pt__ at D.In`'v_ rjust ', x0,x1,x2,x3,x4)
+ "\sl Out" ljust at D.Out
+ "{\tt ...,Foff)}" at D.s+(0,-10pt__)
+
+# Here's how to include an arbitrary circuit
+# that isn't one of the standard gates.
+# First, define the circuit with a name ending
+# in _gate. Make sure its inputs are on the left
+# and named In1, In2, ... and the output Out
+# is on the right.
+define(`SR_gate',`[
+ S: NOR_gate
+ R: NOR_gate at S+(0,-L_unit*(AND_ht+4))
+ w = (S.Out.x-R.In1.x)/3
+ v = 2*L_unit
+ line right_ dimen_/2 from S.Out
+ Out: Here
+ TR: R.In1-(v,0)
+ line from S.Out+(v,0) down w*3/2 then left S.Out.x-TR.x+v down w \
+ then to TR then to R.In1
+ TS: S.In2-(v,0);
+ line from R.Out right v then up w*3/2 then left R.Out.x-TS.x+v up w \
+ then to TS then to S.In2
+ In1: S.In1
+ In2: R.In2 ]')
+# Now define the function by which the circuit
+# will be invoked, with a preceding _:
+define(`SRff',`_AutoGate(SR,$@)')
+
+# You're done. Here is an example:
+ F: Autologix(Or(y,SRff(And(x,y),Nand(x,y)))) \
+ with .nw at 2nd last [].sw+(0,-0.5)
+
+ "\sl Out" at F.Out ljust
+ "$x$" at F.Inx above
+ "$y$" at F.Iny above
+ `"{\tt Autologix(Or(y,SRff(And(x,y),Nand(x,y))))}"' wid 267pt__ ht 7pt__ \
+ with .w at last [].sw+(0,-10pt__)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Blogix.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/Btree.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Btree.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Btree.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,32 @@
+.PS
+# Btree.m4
+# One way to draw a binary tree using pic macros
+gen_init
+circlerad = 0.35
+
+define n { [C: circle fill_(0.9) $1
+ if "$2" != "" then {
+ L: $2 with .ne at C.s-(circlerad/20, circlerad/2)
+ line from C to L.C chop }
+ if "$3" != "" then {
+ R: $3 with .nw at C.s+(circlerad/20,-circlerad/2)
+ line from C to R.C chop }
+ ] }
+
+# Redrawn from T. A. Standish, "Data Structure Techniques," Addison-Wesley 1980.
+# Node data:
+define Sirius { n("Sirius",Canopus,Vega) }
+define Canopus { n("Canopus",AlphaCentauri,Capella) }
+define AlphaCentauri { n("Alpha" "Centauri",Achernar,Arcturus) }
+define Arcturus { n("Arcturus",Betelgeux) }
+define Betelgeux { n("Betelgeux",BetaCentauri) }
+define Capella { n("Capella",Rigel) }
+define Rigel { n("Rigel",Procyon) }
+define Achernar { n("Achernar") }
+define BetaCentauri { n("Beta" "Centauri") }
+define Procyon { n("Procyon") }
+define Vega { n("Vega") }
+
+# Build the tree from the root
+S: Sirius
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Btree.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/Buttons.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Buttons.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Buttons.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,114 @@
+.PS
+# Buttons.m4
+gen_init
+NeedDpicTools
+
+divert(-1)
+#################################################################
+
+ `RoundButton(diameter,hue,linedensity)
+ hue 0=red, 60=yellow, 120=green ...'
+define(`RoundButton',`[
+# Colors and radius:
+ hue = ifelse(`$2',,60,`$2')
+ crad = ifelse(`$1',,circlerad,(`$1')/2)
+ linedensity = ifelse(`$3',,150/scale,`$3') # default 150 lines per inch
+ hsvtorgb(hue, 1, 1, r1,g1,b1)
+ hsvtorgb(hue-5, 1,0.9, r2,g2,b2)
+ hsvtorgb(hue-10,1,0.5, r3,g3,b3)
+# Shaded main disk
+ define RBbackground {
+ circle rad crad*($`'1) thick lthk at C outlined rgbstring($`'2,$`'3,$`'4)
+ }
+ C: circle invis rad crad at (0,0)
+ nsteps = round_(crad*linedensity)
+ lthk = crad/nsteps/(1bp__)
+ ShadeObject(RBbackground,nsteps,
+ 0, r1,g1,b1,
+ 0.2, r1,g1,b1,
+ 0.8, r2,g2,b2,
+ 1, r3,g3,b3) at C
+# Highlight disk with arc shading
+ rad1 = crad*3/4
+ C1: C.n-(0,rad1+0.02*crad)
+ C2: C1+(0,2*rad1)
+ lthk = 2*rad1/nsteps/(1bp__)
+ define RBoverlay {
+ radx = rad1 + ($`'1)*2*rad1
+ if $`'1 < 1 then {
+ arc cw rad radx thick lthk outlined rgbstring($`'2,$`'3,$`'4) \
+ from Cintersect(C2,radx,C1,rad1) \
+ to Cintersect(C2,radx,C1,rad1,R) \
+ with .c at C2
+ } }
+ nsteps = round_(rad1*2*linedensity)
+ ShadeObject(RBoverlay,nsteps,
+ 0, 1, 1, 1,
+ 0.1, 1, 1, 1,
+ 0.33,(r1+r2)/2,(g1+g2)/2,(b1+b2)/2,
+ 0.67,r1,g1,b1,
+ 1, (r1+r2)/2,(g1+g2)/2,(b1+b2)/2) with .c at C1
+ `$4']')
+
+#################################################################
+
+ `BoxButton(wid,height,hue,linedensity)
+ hue 0=red, 60=yellow, 120=green ...'
+define(`BoxButton',`[
+# Size and Color
+ boxw = ifelse(`$1',,boxwid*4/3,`$1')
+ boxh = ifelse(`$2',,boxw/4,`$2')
+ hue = ifelse(`$3',,180,`$3')
+ hsvtorgb(hue, 1, 1, r1,g1,b1)
+ hsvtorgb(hue-5, 1,0.9, r2,g2,b2)
+ hsvtorgb(hue-10,1,0.5, r3,g3,b3)
+# Peripheral shading
+ linedensity = ifelse(`$4',,150/scale,`$4')
+ nsteps=10
+ define BxBshadow {
+ box ht boxh wid boxw rad boxh/2 \
+ outlined rgbstring($`'2,$`'3,$`'4) at (0,($`'1)*4*linethick bp__)
+ }
+ Q: ShadeObject(BxBshadow,nsteps,
+ 0, 1,1,1,
+ 1, r3,g3,b3)
+# Shaded body
+ lthk = boxh/nsteps/(1bp__)
+ define BxBshade {
+ v = boxh*(1-($`'1))
+ h = (boxw-boxh)/2+sqrt((boxh/2)^2-(v-boxh/2)^2)
+ line from (-h,v) to (h,v) thick lthk outlined rgbstring($`'2,$`'3,$`'4)
+ }
+ nsteps = boxh*linedensity
+ C: ShadeObject(BxBshade,nsteps,
+ 0, r1, g1, b1,
+ 0.45,r2, g2, b2,
+ 1, r3, g3, b3) with .n at Q.n
+# Shaded highlight
+ bh = boxh*0.4
+ bw = boxw*4/4.5
+ define BxBhighlight {
+ v = bh*(1-($`'1)); h = (bw-bh)/2+sqrt((bh/2)^2-(v-bh/2)^2)
+ line from (-h,v) to (h,v) thick lthk outlined rgbstring($`'2,$`'3,$`'4)
+ }
+ nsteps = bh*linedensity
+ ShadeObject(BxBhighlight,nsteps,
+ 0,1,1,1,
+ 8/nsteps,1,1,1,
+ 1, r2,g2,b2) with .n at Q.n+(0,-boxh/20)
+ `$5']')
+
+#################################################################
+divert(0)dnl
+
+for x=0 to 5 do {
+ B: RoundButton(0.6,x*60) at (x,0)
+ "Button" sprintf("%g",x+1) at B }
+
+[ for i=0 to 2 do {
+ BoxButton(1.5,,180+120*i) at (i*2,0)
+ "Button" at last [].C
+ }
+ ] with .nw at 1st [].sw+(0,-0.5)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Buttons.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/Byte.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Byte.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Byte.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,40 @@
+.PS
+# Byte.m4
+gen_init
+
+boxht = 0.2
+boxwid = 3.8
+
+define leftlabel { {"{\sf $1}" at last box.w ljust} }
+
+ifdpic(`
+down_
+Lab[0]: box; leftlabel( B0STDISBL (reset pin is enabled) )
+Lab[1]: box; leftlabel( WDTON (WDT not always on) )
+Lab[2]: box; leftlabel( SPIEN (allow serial programming) )
+Lab[3]: box; leftlabel( CKOPT (full output swing) )
+Lab[4]: box; leftlabel( EESAVE (don\char39{}t preserve EEPB0OM over chip erase))
+Lab[5]: box; leftlabel( BOOTSZ1 )
+Lab[6]: box; leftlabel( BOOTSZ0 )
+Lab[7]: box; leftlabel( BOOTB0ST (boot reset vector at 0x0000) )
+
+boxwid = boxht
+left_
+B0:box "\sf 1" with .e at Lab[0].nw + (0.75,0.5)
+ box "\sf 0"
+ box "\sf 0"
+ box "\sf 1"
+ box "\sf 0"
+ box "\sf 0"
+ box "\sf 1"
+ box "\sf 1"
+ box wid 2*boxht "\sf 0xc9"
+
+for i=0 to 7 do {
+ spline -> ht arrowht*0.7 from B0.s-(i*boxht,0) down boxht/4 \
+ then to Lab[0].nw-((i+1)*boxht/2,0) \
+ then down Lab[0].nw.y-Lab[i].y then to Lab[i].w
+ }',
+`box wid 1 ht 0.75 "Byte.m4" "requires" "dpic"')
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Byte.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/CSlight.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/CSlight.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/CSlight.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,173 @@
+.PS
+# Csource.m4
+ ifmpost(command "verbatimtex")
+ command "\newcommand\scriptstack[2][c]{\hbox{\scriptsize\shortstack[#1]{#2}}}%"
+ command "{\scriptsize"
+ ifmpost(command "etex")
+define(`density',0.90)
+setrgb(density, density, density)
+
+cct_init
+ linewid = 0.4
+
+define(`npair',`[define(`m4lr',ifelse(`$1',,l,r))
+ J: mosfet(down_ dimen_,ifelse(`$1',,R,L),uHSDF,E)
+ "\scriptstack[l]{$Q_{`$2'}$\\ 2N5464}" at J.n+(0,8pt__)
+ G: J.G
+ line ifelse(`$1',,right,left) dimen_/4 from J.D
+ Q: bi_tr(up_ dimen_,ifelse(`$1',,L,R),,E) with .B at Here
+ ifelse(`$1',,r,l)label(,`\scriptstack[m4lr]{$Q_{`$3'}$\\ 2N4239}')
+ E: Q.E
+ S: dot(at (Q.C,J.S))
+ line from J.S to S then to Q.C ]')
+
+define(`ppair',`[define(`m4lr',ifelse(`$1',,l,r))
+ J: mosfet(down_ dimen_,ifelse(`$1',,R,L),dHSDF,E)
+ "\scriptstack[l]{$Q_{`$2'}$\\ 2N3819}" at J.s-(0,8pt__)
+ G: J.G
+ line ifelse(`$1',,right,left) dimen_/4 from J.S
+ Q: bi_tr(down_ dimen_,ifelse(`$1',,R,L),P,E) with .B at Here
+ ifelse(`$1',,l,r)label(,`\scriptstack[m4lr]{$Q_{`$3'}$\\ 2N4236}')
+ E: Q.E
+ S: dot(at (Q.C,J.D))
+ line from J.D to S then to Q.C ]')
+
+ R2: resistor(down_ dimen_)
+ llabel(,`\scriptstack[l]{$R_2$\\ 150}')
+ dot
+ Q13: bi_tr(down_ dimen_,,P,E) with .E at Here
+ rlabel(,`\scriptstack[r]{$Q_{13}$\\ 2N4236}')
+ line down 3.1*elen_ from Q13.C
+ Q14: bi_tr(up_ dimen_,R,,E) with .C at Here
+ llabel(,`\scriptstack[r]{$Q_{14}$\\ 2N4239}')
+ dot(at Q14.E)
+ { line left_ dimen_*1.3 then up_ dimen_
+ R1: potentiometer(up_ dimen_) with .Start at Here
+ rlabel(,`\scriptstack[l]{$R_1$\\ $20\,$K}')
+ { ground(at R1.T1) }
+ line from R1.End to (R1.End,Q13.E) then to Q13.E }
+ { dot(at Q13.C+(0,-elen_))
+ line to (R1.R,Here)+(-dimen_/2,0)
+ { arrowline(right_ dimen_/2); llabel(,i_1) }
+ V1: gap(down_ dimen_,1); rlabel(+,V_1,-)
+ line down_ dimen_/4 chop dotrad_ chop 0; ground(,T) }
+ R3: resistor(down_ dimen_)
+ llabel(,`\scriptstack[l]{$R_3$\\ 150}')
+ dot(at Q13.C+(0,-2*elen_))
+ line right_ dimen_/2
+ A1: opamp with .In2 at Here; "$A_1$" at A1.C
+ "`\scriptstack[l]{Nexus\\ SQ-10A}'" at A1.s below
+ line left_ dimen_/4 from A1.In1 then up_ dimen_/2 then right dimen_
+ dot
+ { resistor(up_ elen_)
+ llabel(,`\scriptstack[r]{$R_{14}$\\ $19\,$K}')
+ line to (Here,Q13.E) then to Q13.E }
+ line to (A1.Out,Here)
+ dot
+ { line to A1.Out
+ dot
+ resistor(down_ to (Here,Q14.E))
+ llabel(,`\scriptstack[l]{$R_{13}$\\ $91\,$K}')
+ line to Q14.E }
+ R6: resistor(right_ dimen_)
+ rlabel(,`\scriptstack[l]{$R_6$\\ $15\,$K}')
+ dot
+ line to (Here,A1.In1) then right_ dimen_/4
+ A2: opamp with .In1 at Here; "$A_2$" at A2.C
+ "`\scriptstack[l]{Nexus\\ SQ-10A}'" at A2.s below
+ line left_ dimen_/4 from A2.In2
+ ground
+
+ dot(at A2.Out)
+ DP1: npair(,3,4) with .E at (A2.Out,Q14.B)+(elen_*1.25,0)
+ line from A2.Out to (A2.Out,DP1.G) then to DP1.G
+ line from DP1.E to (DP1.E,R3.bottom); dot
+ D4: reversed(`diode',up_ dimen_/2 from DP1.S)
+ D3: reversed(`diode',up_ dimen_/2 from Here+(0,-dimen_/6))
+ llabel(,`\scriptstack[r]{$D_4$\\ OMC-V\\ $D_3$}')
+ DP2: ppair(,1,2) with .E at (DP1.E,Q13.B)
+ D1: diode(down_ dimen_/2 from DP2.S)
+ D2: diode(down_ dimen_/2 from Here+(0,dimen_/6))
+ rlabel(,`\raisebox{5pt}{\scriptstack[r]{$D_1$\\ $D_2$\\ OMC-V}}')
+ dot(at (Here,A2))
+ line to D2.bottom
+ line from DP2.G to (A2.Out,DP2.G) then to A2.Out
+ line from DP2.E to (DP2.E,R2.top); dot
+
+ T: dot(at (DP1.E,A2)+(dimen_,0))
+ DP3: npair(,7,8) with .G at (Here,DP1.G)+(dimen_/4,0)
+ dot(at DP3.E)
+ line to Q14.B
+ DP4: ppair(,5,6) with .G at (DP3.G,DP2.G)
+ dot(at DP4.E)
+ line to Q13.B
+ line from DP3.G to (T,DP3.G) then to (T,DP4.G) then to DP4.G
+ R11: resistor(down_ dimen_ from DP4.S)
+ rlabel(,`\scriptstack[r]{$R_{11}$\\ $20$}')
+ D5: diode(up_ from DP3.S to (DP3.S,A2),Z)
+ llabel(,`\scriptstack[r]{$D_5$\\ 1N4729$_{\vphantom{1}}$}')
+ line to R11.end
+ C4: capacitor(right_ dimen_*1.3 from DP3.S,C)
+ llabel(`C_4'); rlabel(,`0.68\,\mu\hbox{F}')
+ C3: capacitor(right_ dimen_*1.3 from DP4.S,C)
+ llabel(`C_3'); rlabel(,`0.68\,\mu\hbox{F}')
+ dot
+ dot(at (Here,R6))
+ C2: reversed(`capacitor',left_ dimen_*1.3,C)
+ rlabel(,,`C_2'); llabel(,`0.1\,\mu\hbox{F}')
+ line to R6.end
+
+ R5: resistor(up_ from R6.end to (R6.end,Q13.B))
+ rlabel(,`\scriptstack[l]{$R_5$\\ $100\,$K}')
+ dot(at R5.top-(0,dimen_/2))
+ line left_ dimen_/2
+ capacitor(down_ dimen_,C)
+ rlabel(,`\scriptstack[r]{$C_1$\\ $1\,\mu$F}')
+ ground(,T)
+
+ line from DP4.E to (DP4.E,R2.bottom)
+ resistor(up_ to (Here,R2.top))
+ rlabel(,`\scriptstack[l]{$R_9$\\ $910$}')
+ dot
+ resistor(down_ from DP3.E to (DP3.E,R3.bottom))
+ llabel(,`\scriptstack[l]{$R_{10}$\\ $910$}')
+ dot
+
+ line from R5.top to (R5,Q13.E)
+ resistor(right_ elen_)
+ llabel(,`\scriptstack[l]{$R_4$\\ $100\,$K}')
+ line to (C4.end,Here) then to C4.end
+
+ DP5: npair(L,11,10) with .E at (C4.end,DP1.E)+(elen_*0.8,0)
+ line from DP5.E to (DP5.E,R3.bottom); dot
+ line from R3.bottom to Here+(dimen_/2,0)
+ dot(,,1)
+ `"${}-E_{CC}$"' ljust
+ D6: diode(up_ from DP5.S to (DP5.S,A2),Z)
+ llabel(,`\scriptstack[r]{$D_6$\\ 1N4728}')
+ DP6: ppair(L,12,9) with .E at (DP5.E,DP2.E)
+ line from DP6.E to (DP6.E,R2.top); dot
+ line from R2.top to Here+(dimen_/2,0)
+ dot(,,1)
+ `"${}+E_{CC}$"' ljust
+ resistor(down_ from DP6.S to (DP6.S,C2))
+ rlabel(,`\scriptstack[r]{$R_{12}$\\ $20$}')
+ dot
+ { line to C2.e }
+ line to D6.end
+
+ Vr: dot(at (DP6.G,V1.top)+(dimen_/4,0))
+ line from DP6.G to (Vr,DP6.G) then to (Vr,DP5.G) then to DP5.G
+ reversed(`arrowline',right_ dimen_/2 from Vr); llabel(,i_2)
+ V2: gap(down_ dimen_,1); llabel(+,V_2,-)
+ line down_ dimen_/4 chop dotrad_ chop 0; ground(,T)
+
+ dot(at (Vr,T))
+ resistor(left_ to (DP6.E,Here))
+ rlabel(,`\scriptstack[l]{$R_{15}$\\ $200$}')
+ line to (DP1.E,Here)
+ dot
+
+ command "ifmpost(verbatimtex) }% ifmpost(etex)"
+resetrgb
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/CSlight.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/CanLogic.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/CanLogic.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/CanLogic.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,158 @@
+.PS
+# CanLogic
+log_init
+divert(-1)
+###########################################################################
+ Macros for automatically drawing 2-layer
+ Boolean functions
+
+ Style parameters
+define(`dotrad_',(0.01*scale))
+define(`gatelineth',1)
+define(`lineth',0.5)
+define(`inputsep',`2*jog')
+define(`jog',`(AND_ht/2)*L_unit')
+
+ `CanLogic(layer gate type,[N],
+ output gate type,[N],
+ term,term,...)
+ This is the driver macro. Terms are
+ strings of variables or of variables
+ preceded by the ~ character. Each
+ variable is one letter e.g.
+ CanLogic(NAND,,OR,N,abcd,a~b,c,~ad)'
+define(`CanLogic',
+ `define(`terms',`shift(shift(shift(shift($@))))')
+# Determine required input variables and negated
+# variables
+ Loopover_(`t_',`varloop(`v_',`define(X`'v_)',`define(XN`'v_)',t_)',terms)
+# Draw the inputs with NOT gates as necessary
+ PrevInput: Here-(inputsep,0)
+ Loopover_(`t_',`varloop(`v_',
+ `ifdef(D`'v_,,`ifdef(XN`'v_,`DrawInNotIn(v_)',`DrawIn(v_)')')',
+ `ifdef(D`'v_,,`ifdef(X`'v_,`DrawInNotIn(v_)',`DrawNotIn(v_)')')', t_)',
+ terms)
+# Draw 2nd-layer gates
+ right_
+ LastGateSE: PrevInput+(5*jog,-(AND_wd*L_unit*1.5)) dnl
+ Loopover_(`t_',
+ `define(`termcount',m4Lx)DrawLayerGate(G`'termcount,$1,$2,t_)',
+ terms)
+# Draw output gate
+ linethick = gatelineth
+ OP: m4xpand(`$3'_gate(termcount,$4)) with .Out at \
+ 0.5<G1.Out,G`'termcount.Out> + (jog/2*(termcount+3)+AND_wd*L_unit,0)
+ Out: Here
+ linethick = lineth
+# Connect 2nd-layer gates to the output gate
+ VectorConnect(G,termcount,OP)
+# Connect the inputs and negated inputs to
+# 2nd-layer gates
+ Loopover_(`t_',`ConnectInputs(G`'m4Lx,t_)',terms)
+# Clean up
+ Loopover_(`t_',`DeleteLogDefs(t_)',terms)
+ ')
+ `VectorConnect(number of 2nd layer gates,
+ common 2nd layer gate name,
+ output gate name)
+ Connect the 2nd-layer gate outputs to the
+ output gate inputs'
+define(`VectorConnect',
+ `for_(1,`$2',1,
+ `line from `$1'm4x.Out right `$3'.In1.x-`$1'm4x.Out.x \
+ - jog/2*(`$2'+1-abs(2*m4x-`$2'-1)) \
+ then down `$1'm4x.Out.y - `$3'.In`'m4x.y then to `$3'.In`'m4x ')')
+
+ Draw and label a non-inverted input
+define(`DrawIn',
+ `PrevInput: PrevInput+(inputsep,0)
+ In`'$1: PrevInput
+ "$$1$" ljust at PrevInput # Maybe labels should be done externally
+ Int`'$1: PrevInput
+ define(D`'$1)')
+
+ Draw and label an inverted input
+define(`DrawNotIn',
+ `PrevInput: PrevInput+(inputsep,0)
+ In`'$1: PrevInput
+ "$$1$" ljust at PrevInput # Maybe labels should be done externally
+ line down_ 2*jog from PrevInput
+ linethick = gatelineth
+ NOT_gate
+ InNt`'$1: Here
+ linethick = lineth
+ define(D`'$1)')
+ Draw and label an input that is required both
+ inverted and uninverted.
+define(`DrawInNotIn',
+ `PrevInput: PrevInput+(inputsep,0)
+ In`'$1: PrevInput
+ "$$1$" ljust at PrevInput # Maybe labels should be done externally
+ line from PrevInput down jog
+ Int`'$1: dot
+ PrevInput: PrevInput+(inputsep,0)
+ line to (PrevInput,Here) then down_ jog
+ linethick = gatelineth
+ NOT_gate
+ linethick = lineth
+ InNt`'$1: Here
+ define(D`'$1)')
+ `varloop(`var',ifnotnegated,ifnegated,term)
+ Loop over term variables performing actions'
+define(`varloop',`ifelse(`$4',,,substr(`$4',0,1),~,
+ `define(`$1',substr($4,1,1)) $3
+ varloop(`$1',`$2',`$3',substr($4,2))',
+ `define(`$1',substr($4,0,1)) $2
+ varloop(`$1',`$2',`$3',substr($4,1))')')')
+
+ Count gate inputs and mark last appearance
+define(`Countinputs',`varloop(`v_',
+ `define(`incount',incr(incount)) define(Last`'v_,`$1')',
+ `define(`incount',incr(incount)) define(LastN`'v_,`$1')',$2)')
+
+ Draw a 2nd layer gate
+define(`DrawLayerGate',
+ `define(`incount',0) dnl
+ Countinputs($1,$4) dnl
+ ifelse(incount,1,
+ `LastGateSE: LastGateSE-(0,jog)
+ $1: [ In1:Here; line right AND_wd*L_unit; Out: Here] \
+ with .Out at LastGateSE',
+ `LastGateSE: LastGateSE-(0,jog+AND_ht*L_unit)
+ linethick = gatelineth
+ $1: m4xpand(`$2'_gate(incount,$3)) with .se at LastGateSE
+ linethick = lineth ')')
+
+ Connect this gate to its input lines
+define(`ConnectInputs',`define(`innum',0) varloop(`v_',
+ `define(`innum',incr(innum))
+ line from `$1'.In`'innum to (In`'v_,`$1'.In`'innum)dnl
+ ifelse(`$1',m4xpand(Last`'v_),`then to In`'v_',`; dot')',
+ `define(`innum',incr(innum))
+ line from `$1'.In`'innum to (InNt`'v_,`$1'.In`'innum)dnl
+ ifelse(`$1',m4xpand(LastN`'v_), `then to InNt`'v_', `; dot')',$2)')
+
+ Delete definitions to allow more than one
+ circuit per diagram
+define(`DeleteLogDefs',`varloop(`v_',
+ `undefine(Last`'v_) undefine(D`'v_) undefine(X`'v_)',
+ `undefine(LastN`'v_) undefine(D`'v_) undefine(XN`'v_)',$1)')
+
+ Thanks to Alexander Ray for suggesting the
+ need for something like these macros
+###########################################################################
+divert(0)dnl
+
+ linethick = lineth
+
+[ CanLogic(AND,,OR,,abcd,~ba,c,d~a) #; line right jog from Out "$f$" above
+ ]
+{`"\tt CanLogic(AND,,OR,,abcd,\char126{}ba,c,d\char126{}a)"' \
+ at last [].s -(0,11bp__)}
+
+[ CanLogic(OR,N,NAND,,ab~c,a~bc,ac,~d) #; line right jog from Out "$f$" above
+ ] with .sw at last [].se+(0.5,0)
+{`"\tt CanLogic(OR,N,NAND,,ab\char126{}c,a\char126{}bc,ac,\char126{}d)"' \
+ at last [].s - (0,11bp__)}
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/CanLogic.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/Ccurve.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Ccurve.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Ccurve.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,13 @@
+.PS
+# Ccurve.m4
+gen_init
+# Gosper C curve
+
+`define' c_curve {if $3==0 then { continue by ($1,$2) } else {
+ c_curve( ($1-$2)/2, ($1+$2)/2, $3-1)
+ c_curve( ($1+$2)/2, ($2-$1)/2, $3-1)}}
+
+line from 0,4 to 0,4
+c_curve(0,4,10)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Ccurve.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/Chuck.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Chuck.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Chuck.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,263 @@
+.PS
+threeD_init s_init(Views) sinclude(tst.dim)
+#
+# Chuck.m4
+#
+divert(-1)
+ `Dimensioning for diagrams
+ dimension_(linespec,vert offset,
+ label,blank width,tic offset,<-|->,R)'
+define(`dimension_',`rpoint_(`$1') ; {
+ define(`m4h',`(rp_len ifelse((`$4'),(),,`-($4)'))')dnl
+ ifelse((`$2'),(),,`if (`$2') != 0 then {
+ {move to rvec_(0, ifelse(`$5',,`sign($2)*3.6bp__',`$5'))
+ line to rvec_(0,`$2')}
+ {move to rvec_(rp_len,ifelse(`$5',,`sign($2)*3.6bp__',`$5'))
+ line to rvec_(0,`$2')}
+ move to rvec_(0,`$2') }')
+ if m4h > 2*arrowht then {
+ { line ifelse(`$6',,<-,index($6,<),0,<-) to rvec_(m4h/2,0)
+ ifelse((`$4'),(),,`move to rvec_(($4),0)')
+ line ifelse(`$6',,->,eval(index($6,>)>0),1,->) to rvec_(m4h/2,0) }
+ } else {
+ { arrow from rvec_(-arrowht*1.5,0) to Here
+ arrow from rvec_(rp_len+arrowht*1.5,0) to rvec_(rp_len,0) }
+ }
+ define(`m4txt',`ifelse(`$7',,
+ `ifelse(index(`$3',"),0,`$3',"`$3'")',
+ `ifdef(`pstricks_',`sprintf("\rput{%g}(0,0){`$3'}",rp_ang*rtod_)',`"$3"')')')
+ ifelse(`$3',,,`m4txt at rvec_(rp_len/2,0)')
+ }')
+
+define(`rottxt',
+ `ifdef(`pstricks_',`sprintf("\rput{%g}(0,0){`$2'}",`$1')')')
+ `rotate(angle,at pos, objects at origin)'
+define(`rotate',
+ `ifdef(`pstricks_',`M4tmp: "" ifelse(`$2',,Here,`$2')
+ sprintf("\rput{%g}(%g,%g){`$3'}",`$1',M4tmp.x/scale,M4tmp.y/scale)')')
+ `r_box(angle,pos,string)'
+define(`crl',`int(`($1)'/scale*1000000)/1000000')
+define(`r_box',
+ `ifdef(`pstricks_',`M4tmp: ifelse(`$2',,Here,`$2')
+ command sprintf("\rput{%g}(%g,%g){",`$1',crl(M4tmp.x),crl(M4tmp.y))
+ w_box(`$3') at Orig
+ command "}%"')')
+ `r_dimen(linespec,offset,label,tic offset,<->,pos)'
+define(`r_dimen',
+ `M4tmp: dimension_(`$1',`$2',,,`$4',`$5')
+ r_box(rp_ang*rtod_,ifelse(`$6',,M4tmp+vec_(0,`$2'),`$6'),`$3')')
+
+ `ctrline(linespec,len)'
+define(`cdashl',0.1*scale)
+define(`cgapl',0.03*scale)
+define(`ctrline',`rpoint_(ifelse(`$1',,`to rvec_(linewid,0)',`$1'))
+ define(`m4h',ifelse(`$2',,1*scale,`$2'))dnl
+ m4n = int(rp_len/2/(m4h))*2+1
+ for i=1 to m4n do {
+ line to rvec_(rp_len/m4n/2-cdashl/2-cgapl,0)
+ move to rvec_(cgapl,0); line to rvec_(cdashl,0); move to rvec_(cgapl,0)
+ line thick dimensionth to rvec_(rp_len/m4n/2-cdashl/2-cgapl,0) } ')
+
+ `ctrarcr(pos,radius,startang,endang,len)'
+define(`ctrarcr',`dnl
+ define(`m5h',ifelse(`$5',,1*scale,`$5'))dnl
+ rp_len = abs((`$2')*(`$4'-(`$3')))
+ m5n = int(rp_len/2/(m5h))*2+1
+ m5a = (rp_len/m5n/2-cdashl/2-cgapl)/(`$2')
+ m5s = cdashl/(`$2')
+ m5sa = `$3'
+ for m4irr=1 to m5n do {
+ arc from `$1'+(rect_(`$2',m5sa)) to `$1'+(rect_(`$2',m5sa+m5a)) \
+ with .c at `$1'
+ m5sa = m5sa+m5a+cgapl/(`$2')
+ arc from `$1'+(rect_(`$2',m5sa)) to `$1'+(rect_(`$2',m5sa+m5s)) \
+ with .c at `$1'
+ m5sa = m5sa+m5s+cgapl/(`$2')
+ arc from `$1'+(rect_(`$2',m5sa)) to `$1'+(rect_(`$2',m5sa+m5a)) \
+ with .c at `$1'
+ m5sa = m5sa+m5a
+ } ')
+
+divert(0)dnl
+
+scale = 25.4*2
+tic = 3.6bp__
+
+command "{\sf"
+#psset_(linecolor=white)
+#command "\color{white}"
+
+#include(Lettering.m4)
+#Letter_init
+
+define(`visible',`linethick_(visibleth)')
+define(`hidden',`linethick_(hiddenth)')
+define(`dimension',`linethick_(dimensionth)
+ arrowwid = 1.5*arrowwid; arrowht = 1.5*arrowht; ')
+
+d1 = 230
+d2 = 204
+d3 = 140
+
+ visibleth = 1.2
+ dimensionth = 0.4
+ hiddenth = dimensionth
+
+Orig: Here
+visible
+ D3: circle diam d3 at Orig
+ D2: circle diam d2 at Orig
+
+ rr = d1/2
+ r = 40
+ h = 110/2
+ thet = asin((h+r)/(rr+r))
+ X1: rect_(rr,thet)
+ P1: rect_(rr+r,thet)
+
+dimension
+ cross(at (P1.x,-P1.y))
+ cross(at (-P1.x,P1.y))
+
+# Top outer visible line
+visible
+# arc ccw from (-P1.x,h) to (-X1.x,X1.y) rad r with .c at (-P1.x,P1.y)
+ arcs = atan2(P1.x-X1.x,P1.y-X1.y)
+ n = 0
+ nn = 8
+ for i = 0 to nn do {P[n]:(-P1.x,P1.y)+(rect_(r,-twopi_/4+i/nn*arcs)); n=n+1}
+ for i = 1 to nn do {P[n]:Orig+(rect_(rr,pi_-thet-i/nn/2*(pi_-2*thet))); n=n+1}
+ n = n-1
+ for i = 1 to n do { P[n+i]:(-P[n-i].x,P[n-i].y) }
+ fitcurve(P,2*n)
+# top arc
+# arc cw to X1 rad rr with .c at Orig
+# arc ccw from X1 to (P1.x,h) rad 4 with .c at P1
+# right end
+ line from (P1.x,h) to (305/2,h) then to (305/2,32/2) then left 40-3
+ arc ccw rad 3
+ line down 32-2*3
+ arc ccw rad 3
+dimension {
+ r_dimen(up 32 with .c at (305/2-5,0),0,32)
+ arrow <- up 8 right 8 then right 4 from last arc.sw
+ "3$\,$R" ljust
+ r_dimen(up h*2 at (305/2,0),-10,110)
+}; visible
+ line right 40-3 then to (305/2,-h) then to (P1.x,-h)
+# arc ccw to (X1.x,-X1.y) rad r with .c at P1.x,-P1.y
+# bottom arc
+ for i = 0 to 2*n do { P[i]: (-P[2*n-i].x,-P[i].y) }
+ fitcurve(P,2*n)
+# arc cw to (-X1.x,-X1.y) rad rr with .c at Orig
+# arc ccw to (-P1.x,-h) rad r with .c at (-P1.x,-P1.y)
+# left end
+ line from (-P1.x,-h) to (-305/2,-h) then to (-305/2,-25/2) then right 25
+ down; arc ccw rad 3
+ line right 40-25-2*3
+ arc ccw rad 3
+ line up 25
+ {R: line invis down 10 at (2nd last line,last line) }
+ arc ccw rad 3
+ line left 40-25-2*3
+ arc ccw rad 3
+ line to (-305/2,25/2) then to (-305/2,h) then to (-P1.x,h)
+
+dimension
+# centre
+ ctrline(right 305-30 with .c at Orig,60)
+ ctrline(up d1+10 with .c at Orig,)
+
+ {BX: box invis ht 25+2*3 wid 40-25 rad 3 with .w at (-305/2+25,0)}
+ Q: line invis from BX.n to BX.s; R: line invis from BX.se up 10 left 10
+ X: Intersect_(Q,R)
+ line <-> from BX.se to X then to (X.x,-X.y) then to BX.nw
+ r_box(90,BX,`3$\,$R')
+
+# Drill centres
+ D[1]: 35,sqrt(85^2-35^2)
+ D[2]: -D[1].x,D[1].y
+ D[3]: -D[1].x,-D[1].y
+ D[4]: D[1].x,-D[1].y
+ ctrline(from D[3] to D[1] chop 15)
+ ctrline(to rvec_(2*15,0))
+ ctrline(from D[3]+vec_(-15,0) to D[3]+vec_(15,0))
+ ctrline(from D[2] to D[4] chop 15)
+ ctrline(to rvec_(2*15,0))
+ ctrline(from D[2]+vec_(-15,0) to D[2]+vec_(15,0))
+visible
+ for i=1 to 4 do {
+ circle diam 16 at D[i]
+ for j = 0 to 7 do { arcr(D[i],23/2,j/8*twopi_,(j+3/4)/8*twopi_) ccw }
+ }
+
+hidden
+ for s=-1 to 1 by 2 do {
+ line dashed from (-305/2,s*h) to (305/2,s*h)
+ line dashed from (-305/2,s*30.6) to (305/2,s*30.6)
+ line dashed from (-305/2,s*21.1) to (305/2,s*21.1)
+ line dashed from (-305/2+25+2,s*21.1) to (305/2,s*21.1)
+ line dashed dashwid/2 from (-305/2+25,s*25/2) down -s*(40/2-25/2-2);
+ if s<0 then { arc dashed dashwid/4 ccw rad 2 } else { up; arc dashed dashwid/4 cw rad 2 }
+ line dashed to ((305/2,0),Here)
+ for k = -1 to 1 by 2 do {
+ move to (k*305/2,s*(30.6+10))
+ { dashline(from Here+(0,s*9.5/2) right -k*16,,dashwid/2)
+ dashline(right -k*9.5/2/2 up -s*9.5/2,,dashwid/3)
+ dashline(left -k*9.5/2/2 up -s*9.5/2,,dashwid/3)
+ dashline(left -k*16,,dashwid/2)
+ dashline(from Here+(-k*16,0) up s*9.5,,dashwid/2.5) }
+ { dashline(from Here+(0,s*11/2) right -k*36.5,,dashwid/2)
+ dashline(right -k*11/2/2 up -s*11/2,,dashwid/3)
+ dashline(left -k*11/2/2 up -s*11/2,,dashwid/3)
+ dashline(left -k*36.5,,dashwid/2)
+ dashline(from Here+(-k*36.5,0) up s*11,,dashwid/2.5) }
+ { dashline(from Here+(0,s*13/2) right -k*32,,dashwid/2)
+ dashline(down s*13,,dashwid/2)
+ dashline(left -k*32,,dashwid/2) }
+ ctrline(right -k*20 chop -3 chop 0); ctrline(right -k*20 chop 0 chop -3)
+ }
+ }
+
+dimension
+# bottom
+ dimension_(from (-305/2,-h) to (305/2,-h),-(rr*1.1-h),"305",20pt__)
+# outer radii
+ r_dimen(from (-P1.x,P1.y) down 40*cosd(30) right 40*sind(30),0,40,,->)
+ r_dimen(from (P1.x,-P1.y)+(Rect_(40,120)) \
+ down 40*cosd(30) right 40*sind(30),0,40,,<-)
+# main diameter
+ r_dimen(from (Rect_(rr,180+50)) to (Rect_(rr,50)),,230,,,(Rect_(50,50)))
+# inner circles
+ r_dimen(from (Rect_(d2/2,180+25)) to (Rect_(d2/2,25)),,204,,,(Rect_(25,25)))
+ r_dimen(from (Rect_(d3/2,180-12)) to (Rect_(d3/2,-12)),,140,,,(Rect_(25,-12)))
+
+# bolt hole placement diameter
+ r_dimen(from Orig to (Rect_(85,-43)),,`85$\,$R',,->,(Rect_(20,-43)))
+# left slot
+ r_dimen(from (-305/2+6,-25/2) up 25,0,25)
+ r_dimen(from (-305/2,-26) right 40,0,40)
+ line from last line.end to (last line.end.x,BX.s.y) chop -tic chop 0
+ r_dimen(from (-305/2,26) right 25,0,25)
+ line from last line.end to (last line.end.x,BX.n.y) chop -tic chop 0
+# right slot
+ r_dimen(from (305/2-40,-32/2-10) right 40,0,40)
+ line from (305/2-40,-32/2) down 10+tic
+# drill-holes
+ for i=1 to 4 do {
+ ctrarcr(Orig,85,atan2(D[i].y,D[i].x)-10*dtor_,atan2(D[i].y,D[i].x)+10*dtor_)
+ }
+ ctrarcr(Orig,85,atan2(D[4].y,D[4].x)+10*dtor_,atan2(D[4].y,D[4].x)+25*dtor_)
+ ctrline(up 30 at D[3])
+ ctrline(up 30 at D[4])
+ r_dimen(from D[3]+(0,-14) right 35,0,35)
+ r_dimen(from (0,D[3].y-14) right 35,0,35)
+
+# arrow <- down 30 left 30 from D[3] chop 16/2 chop 0 then left 5
+# "16 DRILL 23 CBORE" rjust "4 HOLES" rjust
+
+ arrow <- from (-305/2,30.6+10+2) up 5 left 5 then up 13
+ s_box(SEE (A)) with .sw at Here+(-5pt__,2pt__)
+
+command "}%"
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Chuck.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/Counting.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Counting.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Counting.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,26 @@
+.PS
+# Counting.m4
+gen_init
+
+ g = 0.4 # grid size
+ define grid { (($2)*g,-($1)*g) }
+ circlerad = 0.1
+
+for i=1 to 4 do {
+ sprintf(`"$S_%g$:"',i) ljust at grid(i,-0.5)
+ for j=1 to 4 do { if i+j < 8 then {
+ sprintf(`"$s_{%g%g}$"',i,j) at grid(i,j) } } }
+
+"$\vdots$" at grid(4.75,0)
+for i=1 to 3 do { `"$\cdots$"' at grid(i,5) }
+"$\cdots$" at grid(4,4)
+
+P: grid(1,1)
+for k=3 to 5 do {
+ for i=1 to k-1 do { if (k%2==1) then { m=i; n=k-i } else { m=k-i; n=i }
+ Q: grid(m,n)
+ arrow from P to Q chop
+ P: Q }
+ }
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Counting.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/Crossbar.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Crossbar.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Crossbar.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,53 @@
+.PS
+# Crossbar
+gen_init
+ 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 outlined "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("iflatex(\large)%g",i)
+ }
+ }
+
+ifdpic(`
+ cbx(3,6,0,5,2,7,1,4)
+
+',`box wid 1 ht 0.75 "Crossbar.m4" "requires" "dpic"')
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Crossbar.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/Crow.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Crow.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Crow.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,73 @@
+.PS
+# Crow.m4
+#`Illustrates shadebox and custom crowfoot line termination; uses s_box'
+gen_init
+s_init(Crow)
+sinclude(tst.dim)
+
+# Custom macros --------------------------
+
+# `crowline(linespec,wid,ht)'
+define(`crowline',
+ `line `$1'
+ M4_E: last line.end
+ crow_wd = ifelse(`$2',,`(arrowwid*8/5)',`$2')
+ crow_ht = ifelse(`$3',,`(1.5*crow_wd)',`$3')
+ M4_P: vperp(last line,crow_wd)
+ M4_X: crow_ht/lin_leng(last line) between M4_E and last line.start
+ ifdpic(
+ `spline 0.4 from M4_E+M4_P to M4_X+M4_P then to M4_X-M4_P then to M4_E-M4_P',
+ `spline from M4_E+(M4_P.x,M4_P.y) to M4_X+(M4_P.x,M4_P.y) \
+ then to M4_X-(M4_P.x,M4_P.y) then to M4_E-(M4_P.x,M4_P.y)') ')
+
+define(`custombox',
+ ``$1': shadebox(box `$2',3)
+ s_box({\sf `$1'}) at last box.n above
+ boxtext(`$3')')
+
+define(`boxtext',`s_box(\parbox{%gpt}{\sf `$1'},int(last box.wid/(1pt__))) \
+ with .nw at last box.nw +(5pt__,-5pt__) ')
+
+# ----------------------------
+
+ boxwid = boxwid*1.15
+ boxsep = boxwid/2
+
+ custombox(Class,ht boxht*2.2,
+ `classkey\\ class\_type\\ class\_desc')
+
+ custombox(Product,ht Class.ht with .nw at Class.ne+(boxsep,0),
+ `classkey\\ prodkey\\ prod\_name\\ pkg\_type')
+
+ custombox(Sales,ht boxht*3.3 with .nw at Product.ne+(boxsep*2,15pt__),
+ `perkey\\ classkey\\ prodkey\\ storekey\\ promokey\\ quantity\\ dollars')
+
+ custombox(Period,ht Sales.ht with .nw at Sales.ne+(boxsep*2,0),
+ `perkey\\ date\\ day\\ week\\ month\\ qtr\\ year')
+
+ custombox(Market,ht Sales.ht with .nw at Class.sw+(0,-boxsep*2),
+ `perkey\\ date\\ day\\ week\\ month\\ qtr\\ year')
+
+ custombox(Store,ht boxht*3.6 with .sw at (Product.w,Market.s),
+ `storekey\\ mktkey\\ store\_type\\ store\_name\\ street\\ city\\ state\\ zip')
+
+ custombox(Promotion,ht Market.ht with .sw at (Period.w,Market.s),
+ `promokey\\ promo\_type\\ promo\_desc\\ value\\ start\_date\ end\_date')
+
+ move to Class.ne+(0,-10pt__); crowline(to (Product.w,Here))
+
+ move to Product.ne+(0,-10pt__); crowline(to (Sales.w,Here))
+ move to last line.start+(0,-crow_wd*2.5); crowline(to (Sales.w,Here))
+T: last line.c+(0,-crow_wd*2.5)
+
+ move to Period.nw+(0,-10pt__); crowline(to (Sales.e,Here),,1.75*crow_wd)
+Q: (last line.c,0.4 between Sales.se and Sales.ne)
+
+ move to Market.ne+(0,-10pt__); crowline(to (Store.w,Here))
+ move to Store.ne+(0,-10pt__); line to (T,Here) then to T
+ crowline(to (Sales.w,Here))
+
+ move to Promotion.nw+(0,-10pt__); line to (Q,Here) then to Q
+ crowline(to (Sales.e,Here),,1.75*crow_wd)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Crow.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/Cruller.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Cruller.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Cruller.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,67 @@
+.PS
+# Cruller.m4
+threeD_init
+NeedDpicTools
+scale = 2.54
+
+define(`lobe',`(sind(6*(`$1'))+4)/5*2.25')
+
+ viewazimuth = 20 # Set view angles in degrees
+ viewelevation = 30
+ setview(viewazimuth,viewelevation,0)
+
+ dt = 3 # major angle degrees per facet
+ ds = 10 # minor angle degrees per facet
+
+ tradius = 6
+define(`cruller',`rot3Dz((`$1')*dtor_,
+ sum3D(0,tradius,0,0,Rect_(lobe(`$2'+2*(`$1')),`$2')))')
+
+define(`tvisible',`dot3D(View3D,
+ cross3D(diff3D(cruller(`$1'+dt/2,`$2'),cruller(`$1',`$2')),
+ diff3D(cruller(`$1',`$2'+ds/2),cruller(`$1',`$2'))))')
+
+ # create the arrays and sort
+ n = 0
+ for t = dt to 360+dt/2 by dt do {
+ for s=ds/2 to 360.1 by ds do {
+ if tvisible(t,s) > -0.01 then {
+ n +=1
+ t[n] = t
+ s[n] = s
+ d[n] = dot3D(cruller(t,s),view3D1,view3D2,view3D3) # view distance
+ ix[n] = n
+ }
+ } }
+# prval(n)
+ dpquicksort(d,1,n,ix)
+
+ # Background
+Bne: (9,6)
+Bsw: (-9,-6)
+B: 0.5 between Bne and Bsw
+iflatex(`line fill_(0.75) \
+ from (Bsw,Bne) to Bsw then to (Bne,Bsw) then to Bne then to (Bsw,Bne)',
+ `ShadedPolygon((Bsw,Bne):Bsw:(Bne,Bsw):Bne,,-30,
+ 0,1,1,1,
+ .5,.1,.4,0,
+ 1,0,0,0) at B')
+ # draw the facets
+thinlines_
+[
+ 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)))
+ 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 ) \
+ from SE to SW then to NW then to NE then to SE }
+ ] at B
+
+thicklines_
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Cruller.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/Csource.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Csource.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Csource.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,170 @@
+.PS
+# Csource.m4
+cct_init
+
+ # Set small text size
+ iflatex(`textoffset = 1bp__; ifpsfrag(`textht = 9bp__',
+ `latexcommand({\scriptsize)') ')
+
+ linewid = 0.4 # Reduce element sizes
+
+define(`npair',`[define(`m4lr',ifelse(`$1',,ljust,rjust))
+ J: mosfet(down_ dimen_,ifelse(`$1',,R,L),uHSDF,E)
+ "$Q_{$2}$" ljust "`2N5464'" ljust at J.nw+(-4pt__,9pt__)
+ G: J.G
+ line ifelse(`$1',,right,left) dimen_/4 from J.D
+ Q: bi_tr(up_ dimen_,ifelse(`$1',,L,R),,E) with .B at Here
+ ifelse(`$1',,r,l)label(,"$Q_{`$3'}$" m4lr "2N4239")
+ E: Q.E
+ S: dot(at (Q.C,J.S))
+ line from J.S to S then to Q.C ]')
+
+define(`ppair',`[define(`m4lr',ifelse(`$1',,ljust,rjust))
+ J: mosfet(down_ dimen_,ifelse(`$1',,R,L),dHSDF,E)
+ "$Q_{$2}$" ljust "`2N3819'" ljust at J.sw+(0,-8pt__)
+ G: J.G
+ line ifelse(`$1',,right,left) dimen_/4 from J.S
+ Q: bi_tr(down_ dimen_,ifelse(`$1',,R,L),P,E) with .B at Here
+ ifelse(`$1',,l,r)label(,"$Q_{`$3'}$" m4lr "2N4236")
+ E: Q.E
+ S: dot(at (Q.C,J.D))
+ line from J.D to S then to Q.C ]')
+
+ R2: resistor(down_ dimen_)
+ llabel(,"$R_2$" ljust "\unit{150}{}")
+ dot
+ Q13: bi_tr(down_ dimen_,,P,E) with .E at Here
+ rlabel(,"$Q_{13}$" rjust "2N4236")
+ line down 3.1*elen_ from Q13.C
+ Q14: bi_tr(up_ dimen_,R,,E) with .C at Here
+ llabel(,"$Q_{14}$" rjust "2N4239")
+ dot(at Q14.E)
+ { line left_ dimen_*1.3 then up_ dimen_
+ R1: potentiometer(up_ dimen_) with .Start at Here
+ rlabel(,"$R_1$" ljust "\unit{20}{\kilo}")
+ { ground(at R1.T1) }
+ line from R1.End to (R1.End,Q13.E) then to Q13.E }
+ { dot(at Q13.C+(0,-elen_))
+ line to (R1.R,Here)+(-dimen_/2,0)
+ { arrowline(right_ dimen_/2); llabel(,i_1) }
+ V1: gap(down_ dimen_,1); rlabel(+,V_1,-)
+ line down_ dimen_/4 chop dotrad_ chop 0; ground(,T) }
+ R3: resistor(down_ dimen_)
+ llabel(,"$R_3$" ljust "\unit{150}{}")
+ dot(at Q13.C+(0,-2*elen_))
+ line right_ dimen_/2
+ A1: opamp with .In2 at Here; "A$_1$" at A1.C
+ "Nexus" ljust "`SQ-10A'" ljust at A1.sw+(0,-10pt__) below
+ line left_ dimen_/4 from A1.In1 then up_ dimen_/2 then right dimen_
+ dot
+ { resistor(up_ elen_)
+ llabel(,"$R_{14}$" rjust "\unit{19}{\kilo}")
+ line to (Here,Q13.E) then to Q13.E }
+ line to (A1.Out,Here)
+ dot
+ { line to A1.Out
+ dot
+ resistor(down_ to (Here,Q14.E))
+ llabel(,"$R_{13}$" ljust "\unit{91}{\kilo}")
+ line to Q14.E }
+ R6: resistor(right_ dimen_)
+ clabel(,"$R_6$" "\vphantom{x}" "\unit{15}{\kilo}")
+ dot
+ line to (Here,A1.In1) then right_ dimen_/4
+ A2: opamp with .In1 at Here; "A$_2$" at A2.C
+ "Nexus" ljust "`SQ-10A'" ljust at A2.sw+(0,-10pt__) below
+ line left_ dimen_/4 from A2.In2
+ ground
+
+ dot(at A2.Out)
+ DP1: npair(,3,4) with .E at (A2.Out,Q14.B)+(elen_*1.25,0)
+ line from A2.Out to (A2.Out,DP1.G) then to DP1.G
+ line from DP1.E to (DP1.E,R3.bottom); dot
+ D4: reversed(`diode',up_ dimen_/2 from DP1.S)
+ D3: reversed(`diode',up_ dimen_/2 from Here+(0,-dimen_/7))
+ llabel(,"`OMC-V'" rjust "$D_3$" rjust "$D_4$")
+ DP2: ppair(,1,2) with .E at (DP1.E,Q13.B)
+ D1: diode(down_ dimen_/2 from DP2.S)
+ D2: diode(down_ dimen_/2 from Here+(0,dimen_/6))
+ { "$D_1$" rjust "$D_2$" rjust "`OMC-V'" rjust at last [].nw }
+ dot(at (Here,A2))
+ line to D2.bottom
+ line from DP2.G to (A2.Out,DP2.G) then to A2.Out
+ line from DP2.E to (DP2.E,R2.top); dot
+
+ T: dot(at (DP1.E,A2)+(dimen_,0))
+ DP3: npair(,7,8) with .G at (Here,DP1.G)+(dimen_/4,0)
+ dot(at DP3.E)
+ line to Q14.B
+ DP4: ppair(,5,6) with .G at (DP3.G,DP2.G)
+ dot(at DP4.E)
+ line to Q13.B
+ line from DP3.G to (T,DP3.G) then to (T,DP4.G) then to DP4.G
+ R11: resistor(down_ dimen_ from DP4.S)
+ rlabel(,"$R_{11}$" rjust "\unit{20}{}")
+ D5: diode(up_ from DP3.S to (DP3.S,A2),Z)
+ llabel(,"$D_5$" rjust "1N4729$_{\strut}$")
+ line to R11.end
+ C4: capacitor(right_ dimen_*1.3 from DP3.S,C)
+ llabel(,C_4); rlabel(,\unit{0.68}{\micro\farad})
+ C3: capacitor(right_ dimen_*1.3 from DP4.S,C)
+ llabel(,C_3); rlabel(,\unit{0.68}{\micro\farad})
+ dot
+ dot(at (Here,R6))
+ C2: reversed(`capacitor',left_ dimen_*1.3,C)
+ rlabel(,C_2); llabel(,\unit{0.1}{\micro\farad})
+ line to R6.end
+
+ R5: resistor(up_ from R6.end to (R6.end,Q13.B))
+ rlabel(,"$R_5$" ljust "\unit{100}{\kilo}")
+ dot(at R5.top-(0,dimen_/2))
+ line left_ dimen_/2
+ capacitor(down_ dimen_,C)
+ rlabel(,"$C_1$" rjust "\unit{1}{\micro\farad}")
+ ground(,T)
+
+ line from DP4.E to (DP4.E,R2.bottom)
+ resistor(up_ to (Here,R2.top))
+ rlabel(,"$R_9$" ljust "\unit{910}{}")
+ dot
+ resistor(down_ from DP3.E to (DP3.E,R3.bottom))
+ llabel(,"$R_{10}$" ljust "\unit{910}{}")
+ dot
+
+ line from R5.top to (R5,Q13.E)
+ resistor(right_ elen_)
+ clabel(,"$R_4$" "\vphantom{x}" "\unit{100}{\kilo}")
+ line to (C4.end,Here) then to C4.end
+
+ DP5: npair(L,11,10) with .E at (C4.end,DP1.E)+(elen_*0.8,0)
+ line from DP5.E to (DP5.E,R3.bottom); dot
+ line from R3.bottom to Here+(dimen_/2,0)
+ dot(,,1)
+ `"$-E_{CC}$"' ljust at last [].e
+ D6: diode(up_ from DP5.S to (DP5.S,A2),Z)
+ llabel(,"$D_6$" rjust "1N4728")
+ DP6: ppair(L,12,9) with .E at (DP5.E,DP2.E)
+ line from DP6.E to (DP6.E,R2.top); dot
+ line from R2.top to Here+(dimen_/2,0)
+ dot(,,1)
+ `"$+E_{CC}$"' ljust at last [].e
+ resistor(down_ from DP6.S to (DP6.S,C2))
+ rlabel(,"$R_{12}$" rjust "\unit{20}{}")
+ dot
+ { line to C2.e }
+ line to D6.end
+
+ Vr: dot(at (DP6.G,V1.top)+(dimen_/4,0))
+ line from DP6.G to (Vr,DP6.G) then to (Vr,DP5.G) then to DP5.G
+ reversed(`arrowline',right_ dimen_/2 from Vr); llabel(,i_2)
+ V2: gap(down_ dimen_,1); llabel(+,V_2,-)
+ line down_ dimen_/4 chop dotrad_ chop 0; ground(,T)
+
+ dot(at (Vr,T))
+ resistor(left_ to (DP6.E,Here))
+ clabel("$R_{15}$" "" "\unit{200}{}" ljust)
+ line to (DP1.E,Here)
+ dot
+
+ iflatex(ifpsfrag(,`latexcommand(})'))
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Csource.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/Decoder.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Decoder.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Decoder.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,24 @@
+.PS
+# Decoder.m4
+log_init
+
+ define(`nlines',3) # OK for nlines from 1 to approximately 4
+
+ define(`ndata',`eval(2**nlines-1)')
+ for_(0,nlines-1,1,
+ `{right_; A`'m4x: dot(at rsvec_(0,m4x*AND_ht))
+ "$A_{m4x}$" at last [].w rjust}')
+
+ for_(0,ndata,1,
+ `define(`m4y',m4x) down_
+ G`'m4y: AND_gate(nlines) \
+ at A0+svec_(AND_ht*3/2,(m4y+1/2)*AND_ht*3/2)
+ line down linewid/3; dot; "$\;D_{m4y}$" at last [].s below
+ for_(0,nlines-1,1,
+ `ifelse(eval(m4y/2**m4x%2),0,
+ `up_; NOT_circle with .s at',`move to') G`'m4y.In`'eval(nlines-m4x)
+ line to (Here,A`'m4x) ifelse(m4y,ndata,`then to A`'m4x',`; dot')
+ ')
+ ')
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Decoder.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/Drive.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Drive.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Drive.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,74 @@
+.PS
+# `Drive.m4'
+cct_init
+
+define(`synchmachine',`[ r = ifelse(`$1',,`dimen_*3/4',(`$1')/2)
+ C: circle rad r
+ Point_(120)
+ line from C to C+vec_(r*2/9,0); reversed(`inductor',to rvec_(r*2/3,0))
+ W2: Here
+ Point_(240)
+ line from C to C+vec_(r*2/9,0); reversed(`inductor',to rvec_(r*2/3,0))
+ W3: Here
+ line from C right_ r*2/9; inductor(right_ r*2/3)
+ W1: Here ]')
+
+ bht = sourcerad_*10
+ dlen = dimen_*2/3
+define(`Diodepair',`[ diode(up_ dlen); line up bht-2*dlen; diode(up_ dlen) ]')
+
+define(`gbt',`bi_trans(`$1',`$2',CBUHdE`$3')')
+define(`dotrad_',dotrad_*0.5/linewid)
+define(`GBTpair',`[linewid = 0.5*3/4
+ Q1: gbt(up_ bht/2,,D)
+ Q2: gbt(up_ bht/2,,D) with .C at Q1.E
+ ]')
+
+SW: ground
+ line up
+W: Here
+ line right dimen_/3; dot
+ ssep = sourcerad_*2.5
+ { line up ssep; S1: source(right_ dimen_,AC) }
+ { S2: source(right_ dimen_,AC) }
+ { line down ssep; S3: source(right_ dimen_,AC) }
+
+ dsep = dimen_/2
+D1: Diodepair at S2.e
+D2: Diodepair at D1+(dsep,0); dot(at D2.n); dot(at D2.s)
+D3: Diodepair at D2+(dsep,0); dot(at D3.n); dot(at D3.s)
+ dot(at (D1,S1))
+ dot(at (D2,S2)); line to S2.e
+ dot(at (D3,S3)); line to S3.e
+
+ line from D1.n to D3.n
+ inductor(right_ dimen_)
+T: dot
+ capacitor(to (Here,D1.s),C)
+ dot
+
+ gsep = dimen_*1.25
+G1: GBTpair with .Q1.C at T+(dimen_,0)
+G2: GBTpair at G1+(gsep,0)
+G3: GBTpair at G2+(gsep,0)
+
+ line from G3.Q1.C to T
+ dot(at (G1.Q1.C,T))
+ dot(at (G2.Q1.C,T))
+ line from G3.Q2.E to D1.s
+ dot(at (G1.Q1.E,D1.s))
+ dot(at (G2.Q1.E,D1.s))
+
+M: synchmachine with .C at G3.e+(dimen_*2,0)
+ sg = dimen_/8
+L: (0.5<G3.e,M.w>,D1.s)-(sg,0)
+ line from M.W1 to (M.W1,L) then to L \
+ then up M.C.y-L.y-sg then to G3.Q2.C+(0,-sg); dot
+ line from M.W3 down M.W3.y-L.y-sg*2 then to L+(sg*2,sg*2)\
+ then up M.C.y-L.y-sg*2 then to G2.Q2.C; dot
+ line from M.W2 to (L,M.W2) \
+ then down M.W2.y-G1.Q2.C.y-sg then to G1.Q2.C+(0,sg); dot
+
+ line right dimen_/3 from M.e then down M.e.y-SW.y
+ ground
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Drive.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/Escher.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Escher.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Escher.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,77 @@
+.PS
+threeD_init
+ 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)
+
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Escher.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/Euro.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Euro.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Euro.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,138 @@
+% 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
+include(pstricks.m4)
+gen_init
+divert(-1)
+ `euro_simple([height])
+ Basic euro symbol with round outer boundary
+ default height=10pt'
+define(`euro_simple',
+`[ linethick = 0
+ orad = ifelse(`$1',,`5bp__',(`$1')/2)
+ u = orad/6
+ irad = orad - u
+ C: (0,0)
+ D: C+(Rect_(irad,40))
+ CD: move from C+(0,-orad) to D
+ DK: move from D down u
+ Ubot: move from C+(0,u/2) right u
+ Utop: move from Ubot.start+(0,u) right u
+ Ltop: move from C+(0,-u/2) right u
+ Lbot: move from Ltop.start+(0,-u) right u
+ L_edge: C-(7.5*u,0)
+ Start: (C,Utop)
+ slope = (CD.end.y-CD.start.y)/(CD.end.x-CD.start.x)
+shade(0,
+ line from Start to Intersect_(Utop,CD) \
+ then to Intersect_(Ubot,CD) \
+ then to LCintersect(Ubot,C,irad)
+ arc to LCintersect(Ltop,C,irad) with .c at C
+ line to Intersect_(Ltop,CD) \
+ then to Intersect_(Lbot,CD) \
+ then to LCintersect(Lbot,C,irad)
+ arc to (D,C)-(0,D.y-C.y) with .c at C
+ line to LCintersect(DK,C,orad,R)
+ arc cw to LCintersect(Lbot,C,orad) with .c at C
+ line to (L_edge,Here) \
+ then right u/slope up u \
+ then to LCintersect(Ltop,C,orad)
+ arc cw to LCintersect(Ubot,C,orad) with .c at C
+ line to (L_edge,Here) \
+ then right u/slope up u \
+ then to LCintersect(Utop,C,orad)
+ arc cw to LCintersect(CD,C,orad,R) with .c at C
+ line to D
+ arc to LCintersect(Utop,C,irad) with .c at C
+ line to Start
+ ) ]')
+
+ `euro_symbol([ht=val; aspect=val; slant=degrees])
+ Euro symbol with variable aspect ratio and slant
+ defaults: ht=10pt, aspect=1, slant=0
+ e.g., euro_symbol(ht=14pt__; aspect=1.2)'
+
+define(`euro_symbol',`[
+ setkey_(`$1',ht,10pt__) setkey_(`$1',aspect,1) setkey_(`$1',slant,0)
+ linethick = 0
+ orad = m4ht/2
+ u = orad/6
+ irad = orad - u
+ if m4aspect==0 then { squeeze = 1 } else { squeeze = 1/m4aspect }
+ slant = sind(m4slant)
+ C: (0,0)
+ D: C+(Rect_(irad,40))
+ CD: move from C+(0,-orad) to D
+ DK: move from D down u
+ Ubot: move from C+(0,u/2) right u
+ Utop: move from Ubot.start+(0,u) right u
+ Ltop: move from C+(0,-u/2) right u
+ Lbot: move from Ltop.start+(0,-u) right u
+ L_edge: C-(7.5*u,0)
+ Start: (C,Utop)
+ slope = (CD.end.y-CD.start.y)/(CD.end.x-CD.start.x)
+
+shade(0,
+ S: LCintersect(Ubot,C,irad)
+ line from euro_tr(Start) to euro_tr(Intersect_(Utop,CD)) \
+ then to euro_tr(Intersect_(Ubot,CD)) \
+ then to euro_tr(S)
+ euro_arc(S,LCintersect(Ltop,C,irad),irad)
+ S: LCintersect(Lbot,C,irad)
+ line to euro_tr(Intersect_(Ltop,CD)) \
+ then to euro_tr(Intersect_(Lbot,CD)) \
+ then to euro_tr(S)
+ euro_arc(S,((D,C)-(0,D.y-C.y)),irad)
+ S: LCintersect(DK,C,orad,R)
+ line to euro_tr(S)
+ euro_arc(S,LCintersect(Lbot,C,orad),orad,cw)
+ S: LCintersect(Ltop,C,orad)
+ E: LCintersect(Lbot,C,orad)
+ line to euro_tr((L_edge,E)) \
+ then to euro_tr((L_edge,E)+(u/slope,u)) \
+ then to euro_tr(S)
+ E: LCintersect(Ubot,C,orad)
+ euro_arc(S,E,orad,cw)
+ S: LCintersect(Utop,C,orad)
+ line to euro_tr((L_edge,E)) \
+ then to euro_tr((L_edge,E)+(u/slope,u)) \
+ then to euro_tr(S)
+ euro_arc(S,LCintersect(CD,C,orad,R),orad,cw)
+ line to euro_tr(D)
+ euro_arc(D,LCintersect(Utop,C,irad),irad)
+ line to euro_tr(Start)
+) ]')
+
+ `aspect ratio and slant transformation'
+define(`euro_tr',`((`$1').x*squeeze+(`$1').y*slant,(`$1').y)')
+ `transformed arc, centre C'
+define(`euro_arc',
+`M4X: `$1'; as = atan2(M4X.y-C.y,M4X.x-C.x)
+ M4X: `$2'; ae = atan2(M4X.y-C.y,M4X.x-C.x)
+ ifelse(`$4',cw,`if ae > as then { ae -= twopi_ }',
+ `if ae < as then { ae += twopi_ }')
+ ax = ae-as
+ n = max(5,ceiling_(abs(ax)/(10*dtor_)))
+ for i=0 to n do { P[i]: euro_tr((rect_(`$3',as+i/n*ax))) }
+ fitcurve(P,n)
+ move to P[n] ')
+
+divert(0)dnl
+
+euro_simple
+move
+euro_symbol(slant=15)
+move
+euro_simple(72bp__)
+move
+euro_symbol(ht=72bp__*2; aspect=1.0; slant=15)
+
+.PE
+\end{document}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Euro.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/Floor.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Floor.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Floor.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,25 @@
+.PS
+# Floor.m4
+gen_init
+ s = 0.25
+ s60 = s*sqrt(3)/2
+ c60 = s/2
+ ni = 9
+ nj = 6
+ cellw = 3*s
+ cellh = 2*s60
+ B:box wid nj*cellw ht ni*cellh shaded rgbstring(0,1,0)
+
+ for i=1 to ni do {
+ for j=1 to nj do {
+ line shaded rgbstring(0,0,1) \
+ from B.sw+((j-1)*cellw,(i-1)*cellh) \
+ right c60 up s60 then right 2*s then up s60 right c60 then left s \
+ then down cellh left 2*c60 then left s
+ line shaded rgbstring(1,0,0) \
+ from B.sw+((j-1)*cellw,i*cellh) \
+ right s then down cellh right 2*c60 then right s then up s60 left c60 \
+ then left 2*s then left c60 up s60
+ }
+ }
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Floor.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/Flow.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Flow.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Flow.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,108 @@
+.PS
+# Flow.m4
+gen_init
+ifdef(`FlowchartDefs_',,`include(FlowchartDefs.m4)')
+
+# Could use xcolor with option dvipsnames but define color here for portability:
+define(`Thistle',`rgbstring(0.85,0.75,0.85)')dnl
+define(`RubineRed',`rgbstring(0.81,0,0.35)')dnl
+define(`YellowGreen',`rgbstring(0.68,1,0.18)')dnl
+define(`SeaGreen',`rgbstring(0.13,0.70,0.67)')dnl
+define(`Goldenrod',`rgbstring(0.85,0.65,0.13)')dnl
+
+ linethick_(1.0)
+ arrowwid = 0.05
+ arrowht = 0.1
+ fillval = 0.8
+ down
+
+Case: Fcase(,
+ "Test 1",[Fbox("Task 1",, shaded Thistle); W:last [].W; N:last [].N
+ arrow down linewid/3 from last [].S
+ Fbox("Task 1.5",, shaded Thistle) with .N at Here
+ E:last [].E; S:last [].S],
+ "Test 2",Fbox("Task 2" "is bigger", wid fboxwid*1.2 ht fboxht*3/2, \
+ shaded SeaGreen),
+ "Test 3",Fbox("Task 3",, shaded RubineRed)dnl
+ )
+
+ "\sl .N" at Case.N rjust above; "\sl .S" at Case.S rjust below
+ "\sl .E" at Case.E ljust; "\sl .W" at Case.W rjust
+ "\sl Case statement" below at Case.s+(0,-0.2)
+ move to Case.nw+(-12bp__,10bp__)
+
+Whiledo: Fwhiledo("$i < n$",,,Fbox("Task"),"T" above ljust at Test.E) \
+ with .nw at Case.ne+(0.25,0)
+
+ "\sl .N" at Whiledo.N rjust; "\sl .S" at Whiledo.S rjust below
+ "\sl .E" at Whiledo.E ljust; "\sl .W" at Whiledo.W rjust
+ "\sl While-do" below at Whiledo.s+(0,-0.2)
+
+Repeatuntil: Frepeatuntil("$n \geq 5$",,,Fbox("Task"),
+ "T" at Test.E above ljust) with .nw at Whiledo.sw + (0.25,-1)
+
+ "\sl .N" at Repeatuntil.N rjust above; "\sl .S" at Repeatuntil.S rjust below
+ "\sl .E" at Repeatuntil.E ljust; "\sl .W" at Repeatuntil.W rjust
+ "\sl Repeat-until" below at Repeatuntil.s+(0,-0.2)
+
+Ifthenelse: Fifthenelse("$A<B$",,,
+ Fbox("False"),
+ Fbox("True",ht fboxht*1.2 wid fboxwid)dnl
+ ) with .nw at Repeatuntil.sw +(0.5,-0.5)
+
+ "\sl .N" at Ifthenelse.N rjust above; "\sl .S" at Ifthenelse.S below rjust
+ "\sl .E" at Ifthenelse.E ljust; "\sl .W" at Ifthenelse.W rjust
+ "\sl If-then-else" below at Ifthenelse.s+(0,-0.3) \
+ "\sl (the True and False tasks are optional)"
+
+# Compound statement:
+[ right
+ ellipse shaded YellowGreen "Start"
+ arrow right linewid/2
+
+ Fbox("First task") with .W at Here
+ arrow down linewid/2 from last [].S
+
+ Fifthenelse("Test 1",,,
+ Frepeatuntil("$i \geq 5$",,shaded Goldenrod,Fbox("Task")),
+ Fifthenelse("$A < B$",,shaded Goldenrod,
+ Fbox("Left"),
+ Fbox("Right"),
+ "T" at Test.E above ljust),
+ "T" at Test.E above ljust) with .N at Here
+
+ A: arrow down 0.25 from last [].S ] with .nw at Case.sw + (-12bp__,-0.7)
+
+ "\sl Compound statement" below at last [].A.end
+
+Example: [ fillvalue = 0.8; awid = linewid/2; right_
+ Start: ellipse wid boxwid/2 ht boxwid/3 shaded "green"
+ arrow right_ awid
+ B1: Fbox("Planejamento")
+ B2: Fbox(`"Execu\c{c}\~ao"') with .W at B1.E+(awid*3,0)
+ B3: Fbox(`"Sele\c{c}\~ao"') with .W at B2.E+(awid*3,0)
+ LT: Ftest(`"Avalia\c{c}\~ao do" "Planejamento"',
+ wid fboxwid*1.5 ht fboxht*2.0,
+ shaded YellowGreen,
+ "Correto" at Box.e above ljust;
+ "Incompleto" at Box.w above rjust) with .S at 0.5 between B1.ne and B2.nw
+ arrow from B1.E to (LT.S,B1.E) then to LT.S
+ arrow from LT.W to (B1.N,LT.W) then to B1.N
+ arrow from LT.E to (B2.N,LT.E) then to B2.N
+ RT: Ftest(`"Avalia\c{c}\~ao da" "Execu\c{c}\~ao"',
+ wid fboxwid*1.5 ht fboxht*2.0,
+ shaded YellowGreen,
+ "Correto" at Box.e below ljust;
+ "Incompleto" at Box.w below rjust) with .N at 0.5 between B2.se and B3.sw
+ arrow from B2.E to (RT.N,B2.E) then to RT.N
+ arrow from RT.W to (B2.S,RT.W) then to B2.S
+ arrow from RT.E to (B3.S,RT.E) then to B3.S
+ B4: Fbox(`"Extra\c{c}\~ao"') with .S at B3.N+(0,awid)
+ arrow from B3.N to B4.S
+ arrow right_ awid from B4.E
+ B5: Fbox(`"Conclus\~ao"')
+ ellipse wid boxwid/2 ht boxwid/3 shaded "red" at (B5.S,Start)
+ arrow down_ awid from B5.S to last ellipse.n
+] with .nw at last [].sw+(0,-fboxht)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Flow.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/FlowchartDefs.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/FlowchartDefs.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/FlowchartDefs.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,128 @@
+divert(-1)
+ FlowchartDefs.m4
+ `Some experimental flow-chart macros.
+ In the following, every subchart is in
+ [] brackets, with .N, .S, .E and .W
+ internally defined. Follow this convention
+ if you create compound constructs.
+
+ Generally, the first argument is one
+ or more strings; the second adjusts
+ the size, and the third can be used
+ to add color, dashed lines, labels,
+ or other embellishements. Default is
+ grey fill if arg3 is blank.
+
+ These macros have been renamed from earlier
+ versions because of slight differences of
+ arguments.'
+
+define(`FlowchartDefs_')
+
+ `Default sizes:'
+define(`fboxwid',linewid*2)
+define(`fboxht',linewid*0.75)
+define(`farrowht',linewid*0.5)
+
+ `Fbox( "text", wid expr ht expr,
+ attributes ) The basic task box: arg1 may
+ be 1 or more label strings. Attributes
+ include box line and fill specs.
+ To adjust the box size to the size of
+ the typeset text, see the \boxdims macro
+ in the manual. Example:
+ Fbox("$x < 1$",,
+ shaded rgbstring(0.46,0.53,0.63))'
+define(`Fbox',`[ boxwid = fboxwid; boxht = fboxht
+ Box: box `$2' ifelse(`$3',,`fill_(fillval)',`$3') `$1'
+ N: Box.n; S:Box.s; E:Box.e; W: Box.w
+ `$4']')
+
+ `If-then
+ Ftest( "text", wid expr ht expr, attributes )'
+define(`Ftest',`[boxwid = fboxwid*0.8; boxht = fboxht*1.4
+ Box: box ifelse(`$2',,,`$2') invis
+ N: Box.n; S: Box.s; E: Box.e; W: Box.w
+ line from 0.5 between last box.n and last box.e \
+ to last box.e then to last box.s then to last box.w then to last box.n \
+ then to 0.5 between last box.n and last box.e \
+ ifelse(`$3',,`fill_(fillval)',`$3')
+ ifelse(`$1',,,`$1' at Box)
+ `$4']')
+
+ `case statement
+ Fcase(wid expr ht expr,
+ "Test string 1",task, ...,
+ "Test string n",task)'
+ `arg1 adjusts the size of the tests
+ A task is a flow subchart with internal names .E and .S defined
+ The test blocks are labeled Test1, Test2, ... and the tasks are
+ labeled Task1, Task2, ... '
+define(`Fcase',`[ down; S: Here; sx = S.x
+ Fcaseloop_(1,$@)
+ ifelse(`$2',,`E:S; W:S; N:S',
+ `E:(sx+linewid/2,Task1.E.y); W:Test1.W; N:Test1.N')
+ Fcasearrow_(1,$@)
+ arrow from E to (E,S) then to S ]')
+
+ define(`Fcaseloop_',`ifelse(`$3',,,
+ `Test`$1': Ftest(`$3',`$2') with .N at S
+ Task`$1': `$4' with .nw at Test`$1'.E+(linewid/2,min(Test`$1'.ht,fboxht)/2)
+ arrow right linewid/4 from Test`$1'.E \
+ then down Test`$1'.E.y-Task`$1'.W.y then to Task`$1'.W
+ S: (Test`$1'.S.x,min(Test`$1'.S.y,Task`$1'.S.y)-linewid/3)
+ ifelse(`$5',,`line',`arrow') from Test`$1'.S to S
+ sx = max(sx,Task`$1'.E.x)
+ Fcaseloop_(incr($1),`$2',shift(shift(shift(shift($@)))))')')
+ define(`Fcasearrow_',`ifelse(`$3',,,
+ `arrow from Task`$1'.E to (E,Task`$1'.E)
+ Fcasearrow_(incr($1),`$2',shift(shift(shift(shift($@)))))')')
+
+ `while statement with explicit test
+ Fwhiledo("test text", wid x ht y, attributes, task spec )
+ The task structure is given label Task '
+define(`Fwhiledo',`[ down
+ Test: Ftest(`$1',`$2',`$3')
+ arrow right linewid/2 from Test.E
+ Task: `$4' with .W at Here
+ E: Task.E; W: Test.w; S: Test.S
+ arrow up max(linewid/4,Test.n.y-Task.n.y+arrowht*1.5) \
+ from Task.N then left Task.x-Test.x
+ N: Here
+ arrow to Test.n
+ `$5']')
+
+ `repeat statement with explicit test
+ Frepeatuntil("test",wid x ht y,attributes, task spec )
+ The task structure is given label Task '
+define(`Frepeatuntil',`[ N: Here
+ Task: ifelse(`$4',,Here,`$4' with .N at N)
+ W: Task.W
+ arrow down linewid/3
+ Test: Ftest(`$1',`$2',`$3')
+ E: Task.E+(linewid/2+max(0,Test.e.x-Task.e.x),0)
+ arrow from Test.e to (E,Test) then to E then to Task.E
+ S: Test.S
+ `$5']')
+
+ `if-then-else
+ Fifthenelse( "test", wid x ht y, attributes,
+ left tasks, right tasks)
+ The left task structure is given label Ltask and the right
+ task structure is given label Rtask '
+define(`Fifthenelse',`[ Test: Ftest(`$1',`$2',`$3')
+ N: Test.N
+ Ltask: ifelse(`$4',,`Test.S; W:Test.W; LS:Ltask',
+ `$4 with .ne at ((Test.W.x+Test.x)/2,Test.S.y)
+ W: Ltask.W; LS:Ltask.S
+ arrow from Test.W to (Ltask.N,Test.W) then to Ltask.N')
+ Rtask: ifelse(`$5',,`Test.S; E:Test.E; RS:Rtask',
+ `$5 with .nw at ((Test.E.x+Test.x)/2,Test.S.y)
+ E: Rtask.E; RS: Rtask.S
+ arrow from Test.E to (Rtask.N,Test.E) then to Rtask.N')
+ S: (Test.x,min(LS.y,RS.y)-linewid/3)
+ arrow from LS to (LS,S)
+ arrow from RS to (RS,S)
+ line to (LS,Here)
+ `$6']')
+divert(0)dnl
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/FlowchartDefs.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/GnuMakefile
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/GnuMakefile (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/GnuMakefile 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,119 @@
+# Makefile for Circuit macros (based on Version 8.5.1)
+# Use GNU make.
+
+SRC = $(wildcard *.m4)
+TARGET = $(SRC:%.m4=%.$(MODE))
+
+CMLIBDIR = /usr/local/share/Circuit_macros
+CMLIBDIR = $$(HOME)/lib
+CMLIBS = liblog.m4
+CMLIBS = libgen.m4
+
+DPIC = dpic
+GPIC = pic
+M4 = m4 -I $(CMLIBDIR)
+
+# select one of tex, eps, pdf, svg, mp or fig
+MODE = tex
+
+# select one of pstricks, pgf, mfpic, latex or tpic
+# (for .tex output)
+TEXMODE = pgf
+TEXMODE = pstricks
+
+# select one of raw or psfrag
+# (for .eps output)
+EPSMODE = raw
+
+
+
+# ---- DO NOT CHANGE THE FOLLOWING LINES ----
+PIC = $(DPIC)
+
+# for .tex
+TPIC = $(PIC)
+ifeq ($(TEXMODE),pstricks)
+ TPICOPT = -P
+ TCMDRIVER = $(TEXMODE).m4
+else ifeq ($(TEXMODE),pgf)
+ TPICOPT = -g
+ TCMDRIVER = $(TEXMODE).m4
+else ifeq ($(TEXMODE),mfpic)
+ TPICOPT = -m
+ TCMDRIVER = $(TEXMODE).m4
+else ifeq ($(TEXMODE),latex)
+ TPICOPT = -e
+ TCMDRIVER =
+else ifeq ($(TEXMODE),tpic)
+ TPIC = $(GPIC)
+ TPICOPT = -t
+ TCMDRIVER = gpic.m4
+else
+ TERROR = TRUE
+endif
+
+# for .eps
+ifeq ($(EPSMODE),raw)
+ EPICOPT = -r
+ ECMDRIVER = postscript.m4
+else ifeq ($(EPSMODE),psfrag)
+ EPICOPT = -f
+ ECMDRIVER = $(EPSMODE).m4
+else
+ EERROR = TRUE
+endif
+
+
+.SUFFIXES: .m4 .tex .eps .pdf .svg .mp .fig
+
+.m4.tex:
+ifeq ($(TERROR),TRUE)
+ @echo "Invalid TEXMODE:" $(TEXMODE)
+ @exit 1 \
+else
+ $(M4) $(CMLIBS) $(TCMDRIVER) $< > $*.pic
+ $(TPIC) $(TPICOPT) $*.pic > $*.tex
+endif
+
+.m4.eps:
+ifeq ($(EERROR),TRUE)
+ echo "Invalid EPSMODE:" $(EPSMODE)
+ @exit 1 \
+else
+ $(M4) $(CMLIBS) $(ECMDRIVER) $< > $*.pic
+ $(PIC) $(EPICOPT) $*.pic > $*.eps
+endif
+
+.m4.pdf:
+ $(M4) $(CMLIBS) $< > $*.pic
+ $(PIC) -d $*.pic > $*.pdf
+.m4.svg:
+ $(M4) $(CMLIBS) svg.m4 $< > $*.pic
+ $(PIC) -v $*.pic > $*.svg
+.m4.mp:
+ $(M4) $(CMLIBS) mpost.m4 $< > $*.pic
+ $(PIC) -s $*.pic > $*.mp
+.m4.fig:
+ $(M4) $(CMLIBS) xfig.m4 $< > $*.pic
+ $(PIC) -x $*.pic > $*.fig
+
+-include GNUmakefile.local
+
+all: $(TARGET)
+
+clean:
+ rm -f *~
+ rm -f $(SRC:%.m4=%.pic)
+
+distclean: clean
+
+# use carefully!!!
+dodistclean: distclean
+ rm -f $(SRC:%.m4=%.tex)
+ rm -f $(SRC:%.m4=%.eps)
+ rm -f $(SRC:%.m4=%.pdf)
+ rm -f $(SRC:%.m4=%.svg)
+ rm -f $(SRC:%.m4=%.mp)
+ rm -f $(SRC:%.m4=%.fig)
+
+-include GNUmakefile.localdep
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/GnuMakefile
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Heathkit.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Heathkit.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Heathkit.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,353 @@
+.PS
+# Heathkit.m4
+cct_init
+# Landscape
+maxpswid = 11
+maxpsht = 8.5
+
+# Set small text size
+ iflatex(`ifpsfrag(`textht = 7.5bp__; textoffset = 0.5bp__',
+ `latexcommand({\tiny\sf)') ')
+
+# Grid parameters
+ picwid = 8.5
+ picht = 6
+ g = 1/12
+
+# Element scaling
+ linewid = 8*g
+define(`dimen_',dimen_*4/5)
+# Default sizes
+ boxwid = 2*g
+ boxht = 2*g
+ arrowht = arrowht*2/3
+
+# 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 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 }
+ linethick_(0.8)
+
+ifdpic(`
+ spline outlined "white" shaded "white" \
+ from (0,picht+g) down g then down picht/5 then right picwid/5
+ for i=1 to 4 do { contline down picht/5 then right picwid/5 }
+ contline right 2*g then up 2*g
+ contline up picht-2*g then up g then left g ')
+
+# Place the bottom inductor on the grid
+ L1: inductor(down_ 13*g from (80*g,22*g),,13,,g)
+ L2: inductor(down_ 10*g from L1.start+(0,21*g),,10,,g)
+ L3: inductor(down_ 10*g from L2.start+(0,12*g),,10,M,g)
+ line from M4Core1.end to (M4Core1,L1.end)
+ line from M4Core2.end to (M4Core2,L1.end)
+ Scrn: 2 between M4Core1.start and M4Core2.start
+ line dashed from Scrn to (Scrn,L1.end)
+ ground
+ L4: inductor(up_ 5*g from (Scrn.x+M4Core1.x-L2.c.x,L2.start.y-2*g),,5,,g)
+ L5: inductor(up_ 5*g from (L4,L2.end+(0,g)),,5,,g)
+
+# Circuit board
+ Board: box dashed thick 2 wid 58*g ht 55*g with .se at L1.end+(-7*g,-2*g)
+ P: box invis wid 12*g ht 4*g with .s at Board.sw+(26*g,0)
+ { "POWER SUPPLY" ljust "CIRCUIT BOARD" ljust at P.w+(g,0) }
+ line dashed thick 2 from P.sw to P.nw; line dashed thick 2 to P.ne
+ line dashed thick 2 to P.se
+
+define Pad { P`$1': box fill_(1) "$1" }
+# Board connections on the right
+ Pad(1) at (Board.e,L1.end)
+ line from P1.e to L1.end "RED" above
+ Pad(2) at (Board.e,L1.start)
+ line from P2.e to L1.start "RED" above
+ Pad(3) at (Board.e,L2.end)
+ GRN1: line left 4*g from L2.start "GRN" above ; ground
+ GRN2: line from P3.e to L2.end "GRN" above
+ spline <-> from GRN2.end+(-g,0) up 2.5*g right 0.5*g then up 5*g left g \
+ then up 2.5*g right 0.5*g
+ box invis fill_(1) wid 3*g ht g "\unit{6}{\hbox{VAC}}" at L2.c-(2*g,0)
+ Pad(4) at P3-(0,3*g)
+ line right_ 3*g from P4.e "BRN" above
+ arrow down_ 2*g ht arrowht*2/3
+ "TO DIAL" "LAMPS" at Here+(0,-g)below
+ Pad(5) at (Board.e,L3.end)
+ line from P5.e to L3.end "BLU" above
+ Pad(7) at (Board.e,L3.start)
+ line from P7.e to L3.start "BLU" above
+ Pad(6) at 0.5 between P5 and P7
+ line from P6.e to L3.c "BLU-YEL" above
+
+# Power wiring, plug, switch
+define(`socket',`[
+ Outer: box wid dimen_*2/3 ht dimen_/2*3/4
+ L: box wid dimen_/16 ht dimen_/4 at Outer-(dimen_/6,0)
+ R: box wid dimen_/16 ht dimen_/4 at Outer+(dimen_/6,0)
+ line from Outer.w to L.w
+ line from Outer.e to R.e
+ ] ')
+
+ BLK: line from L4.end to (int(L4.end.x/g+8)*g,L4.end.y) "BLK" below ; dot
+ b = lin_leng(BLK)
+ BLKYEL: line from L4.start right_ b "BLK-YEL" above ; dot
+ BLKGRN: line from L5.end right_ b "BLK-GRN" below ; dot
+ BLKRED: line from L5.start right_ b "BLK-RED" above ; dot
+ line right_ g; PL: dot
+ line from BLKYEL.end right g then to Here+(0,-g)
+ fuse(down_ 3*g,D)
+ rlabel(,"\unit{3}{\ampere} FUSE" rjust "SLOW BLOW")
+ line to (Here.x,int(Here.y/g)*g-g); dot
+ Sckt1: socket at Here+(5*g,0)
+ line from Sckt1.w to (PL,Sckt1); A: dot; "A" rjust
+ line from Sckt1.e right_ lin_leng(last line); B: dot; "B" ljust
+ Sckt2: socket at (Sckt1,P1+(0,6*g))
+ line from Sckt2.w to (A,Sckt2); dot
+ line from Sckt2.e to (B,Sckt2); dot
+ Sckt3: socket at (Sckt1,P1+(0,2*g))
+ line from Sckt3.w to (A,Sckt3); dot
+ line from Sckt3.e to (B,Sckt3); dot
+
+define(`plug',`[ w = dimen_*2/3; q = 0.25*w
+ F: line right_ w
+ arc cw from F.start to F.end with .c at F.c
+ T1: F.c+(-q,w/2+g/2)
+ T2: F.c+( q,w/2+g/2)
+ line from T1 to (T1,F.c)-(0,2*g)
+ line from T2 to (T2,F.c)-(0,2*g) ]')
+
+ PP: plug with .F.c at Sckt3+(0,-8*g)
+ "\unit{120}{\hbox{VAC}}" ljust "\unit{50/60}{\hertz}" ljust at PP.e
+
+define(`pwrswitch',`[ right; circlerad = 1.75*g/2
+ C1: circle "1"
+ C4: circle "4"
+ C2: circle "2" with .n at C1.s+(0,-C1.rad)
+ C5: circle "5"
+ C3: circle "3" with .n at C2.s+(0,-C1.rad)
+ C6: circle "6"
+ hatchbox(wid g ht C2.n.y-C3.s.y,0.05) with .w at 0.5 between C5.e and C6.e
+ ]')
+
+ Psw: pwrswitch with .C4.e at Sckt1+(0,-4*g)
+ "POWER" at Psw.w+(-2*g,0) rjust
+ arrow up Psw.ht/2 at Psw.e+(1.5*g,0)
+ "ON" above; "OFF" at last arrow.start below
+ line from Psw.C1.w to (A,Psw.C1) then to A
+ line from Psw.C2.w to (A,Psw.C2); contline to (Here,PP.T1) then to PP.T1
+ line from PP.T2 to (B,PP.T2) then to (B,L4.end) then to L4.end
+ line from BLKGRN.end to (B,BLKGRN); dot
+
+# Bottom connections
+ Pad(25) at Board.se+(-3*g,0)
+ R516: resistor(down_ 6*g from P25.s); rlabel(,"R516" rjust "22"); ground(,T)
+ dot(at P25.s+(0,-g)); line right_ 5*g
+ reversed(`source',down_ 4*g,B); llabel(,"No 49" ljust "HI" ljust "TEMP")
+ line to (P25,Here); dot
+ t = linethick; linethick_(0.4)
+ arrow <- from P25.s+(0,-g/2) right_ 2*g up_ g/4; "BRN" ljust; linethick_(t)
+
+ Pad(24) at P25+(-4*g,0)
+ line from P24.s to (P24,R516.end); ground(,T)
+ Pad(23) at Board.sw+(12*g,0)
+ line from P23.s to (P23,R516.end); ground(,T)
+
+ Pad(22) at Board.sw+(0,3*g)
+ R514: resistor(right_ 8*g from P22.e); llabel(,"R514")
+ rlabel(,"\unit{680}{\kilo}")
+ dot; { ground }
+ line to (P23,Here) then to P23.n
+
+# Diode bridge
+ BE: dot(at (P24,L1.c))
+ d1h = lin_leng(L1)/2
+ diode(left_ d1h up_ d1h); rlabel(,,"D508")
+ BN: dot
+ diode(left_ d1h down_ d1h); rlabel("D506")
+ BW: dot
+ diode(from BE left_ d1h down_ d1h); llabel(,,"D509")
+ BS: dot
+ diode(left_ d1h up_ d1h); llabel(D507)
+ capacitor(down_ from BN to BS,C); llabel("C507",,\unit{.22}{})
+ line from BE to P24.n
+ line from BN to P2.w
+ line from BS to P1.w
+ spline <-> from (BE.x+2*g,BS.y) \
+ up d1h/2 right g/2 then up d1h left g then up d1h/2 right g/2
+ box invis fill_(1) ht 2*g wid 2*g "57" "VAC" at last spline.c
+
+# Left board connections
+ Pad(21) at (Board.w,BW); line from P21.e to BW
+ Pad(19) at P21+(0,-3*g)
+ Pad(20) at P21+(0, 3*g)
+
+# Transistor with circles
+define(`hbi_tr',`[ linewid = linewid*4/4.16
+ Q: bi_tr(`$1',`$2',`$3',E)
+ E: circle rad m4_xyU at 5/4 between Q.A1 and Q.E "E"
+ B: circle rad m4_xyU at 5/4 between Q.A1 and Q.B "B"
+ C: circle rad m4_xyU at 5/4 between Q.A1 and Q.C "C"
+ ]')
+
+# Interior circuits
+ line from P6.w left 2*g; ground
+ line from P5.w left 4*g; dot
+ { C504: capacitor(down_ 4*g,C); llabel("C504",,\unit{.22}{}); ground(,T) }
+ D504: diode(left_ 5*g); rlabel(,"D504"); dot
+ { C505: capacitor(down_ to (Here,C504.end),C+L)
+ rlabel("C505",\unit{100}{},\unit{75}{\volt}); ground(,T) }
+ line right_ to (Here,P7); dot
+ { D503: reversed(`diode',to (D504.start,Here)); llabel(,"D503")
+ line to P7.w }
+ d3 = lin_leng(L3)
+ spline <-> from C504.start+(g/2,0) \
+ up d3/4 right g/4 then up d3*2/4 left g/2 then up d3/4 right g/4
+ box invis fill_(1) ht g wid 4*g "\unit{100}{\hbox{VAC}}" \
+ at last spline.c+(-g,0)
+
+ down_
+ Q503: hbi_tr(,R,P) with .E at (C505,P3)
+ line from Q503.C.e to (P25,Q503.C) then to P25.n
+ line from Q503.B.s to (Q503.B.x,Q503.E.y-4*g)
+ R513: resistor(down_ 5*g); llabel(,"R513" ljust "1500"); ground(,T)
+ line from P19.e to (BW-(2*g,0),P19) then up Q503.E.y-P19.y+2*g
+ R511: resistor(right_ 5*g); llabel(,"R511"); rlabel(,\unit{470}{});
+ line to (Q503.E,Here) then to Q503.E.n
+ line from P20.e to (BW,P20) then up R513.end.y-P20.y
+ resistor(up_ lin_leng(R513))
+ rlabel(,"R512" ljust "5600" ljust "\unit{1}{\watt}")
+ line to (Here,Q503.B) then to Q503.B.w
+ "Q503" "S2091 HI TEMP" "CONTROL" at Q503.E+(1.5*g,4*g)
+ D505: reversed(`diode',right_ from Q503.E.e to (C504,Q503.E)); llabel(,"D505")
+ line to P3.w
+
+ line from P4.w left_ 2*g then up P3.y-P4.y; dot
+ line from D503.end to (R513,D503); dot
+ { Pad(8) at (Here,Board.n) }
+ { line to P8.s }
+ R505: resistor(down_ to (Here,P6))
+ llabel(,"R505" ljust "\unit{12}{\kilo}"); dot
+ { C503: capacitor(down_ to (Here,C505.end),C+L)
+ rlabel(,"C503" rjust "100" rjust "\unit{70}{\volt}")
+ ground(,T) }
+ right_
+ Q502: hbi_tr(,R) with .B at (R511.start,Here)
+ line from Q502.C.e to R505.start
+ line from Q502.B.e to R505.end
+ R504: resistor(down_ from Q502.B.s to (Q502.B,C505.end))
+ rlabel(,"R504" rjust "\unit{51}{\kilo}"); ground(,T)
+ "Q502" "TA7311" "REGULATOR" "CONTROL" at Q502.C+(-1*g,3.5*g)
+
+ Pad(9) at (Q502.E,Board.n)
+ line from Q502.E.n to P9.s
+ Pad(10) at (Q502.B-(9*g,0),Board.n)
+ R502: resistor(left_ from Q502.E.w to (P10,Q502.E))
+ rlabel(,"R502"); llabel(,\unit{150}{}); dot
+
+ Pad(11) at (Board.w,Q502.E)
+ Pad(14) at P11+(0,2.5*g)
+ Pad(12) at P11+(0,-2.5*g)
+ Pad(13) at P12+(0,-2.5*g)
+ line right 2*g from P13.e then up P11.y-P13.y; dot
+ line from P12.e to (Here,P12); dot
+ Pad(15) at P13+(0,-3*g)
+
+ right_
+ Q501: hbi_tr(,R) with .B at P9.n+(0,2*g)
+ line from Q501.B.s to P9.n
+ line from Q501.C.e to (P8,Q501.C) then to P8.n
+ line from Q501.E.w to (P10,Q501.E) then to P10.n
+ "Q501" "2N3055" "REGULATOR" at Q501.n+(0,2*g)
+ line from P14.e to (P10,P14); dot
+
+ Pad(17) at (Board.w,R511)
+ Pad(16) at P17+(0,3*g)
+ Pad(18) at P17+(0,-3*g)
+ line right 2*g from P18.e then up P17.y-P18.y; dot
+
+ right_
+ Q504: hbi_tr(,R) with .C at (P10,P17)
+ line from P17.e to Q504.E.w
+ line from Q504.B.s to (Q504.B,R513.start)
+ R508:resistor(down_ to (Here,R513.end))
+ llabel(,"R508" ljust "680"); ground(,T)
+ dot(at (P10,P15))
+ { line to P10.s }
+ { resistor(down_ 5*g)
+ llabel(,
+ "R510" ljust "225" ljust "\unit{10}{\watt}" ljust "\unit{5}{\hbox{\%}}")
+ line to Q504.C.n }
+ R503:resistor(left_ 10*g); rlabel(,"R503")
+ { "290" "\unit{10}{\watt} \unit{5}{\hbox{\%}}" at last [].s+(0,-1.3*g) }
+ dot
+ line to (Here,Q504.B)
+ resistor(right_ to Q504.B.w); llabel(,"R507"); rlabel(,\unit{100}{})
+ line from P15.e to R503.end
+# "Q504" "40409" "REGULATOR" at Q504.C+(3.5*g,3*g)
+ "Q504" "40409" "REGULATOR" at Q504.n+(-2*g,3*g)
+ resistor(left_ from R502.end to (R503.end,P11)); rlabel(,"R501")
+ {"390" "\unit{5}{\watt} \unit{5}{\hbox{\%}}" at last [].s+(0,-1.3*g)}
+ line to P11.e
+
+ resistor(right_ from P16.e to (R514.end,P16)); llabel(,"R506")
+ rlabel(,\unit{82}{})
+ line down P16.y-P17.y; dot
+
+ dot(at (R514.end,P11))
+ C501: capacitor(down_ 6*g,C+); llabel("C501")
+ {"100" ljust "\unit{30}{\volt}" ljust at last [].s+(0,-g) below }
+ ground(,T)
+ dot(at (Here.x+4*g,P11.y))
+ ZD501: reversed(`diode',down_ lin_leng(C501),Z); llabel("ZD501"); ground(,T)
+
+ dot(at (R514.end,P15))
+ C502: capacitor(down_ 6*g,C+); llabel("C502")
+ {"100" ljust "\unit{30}{\volt}" ljust at last [].s+(0,-g) below }
+ ground(,T)
+ dot(at (Here.x+4*g,P15.y))
+ ZD502: reversed(`diode',down_ lin_leng(C502),Z); llabel("ZD502"); ground(,T)
+
+ line from (C502,P17) to (C502,R508.start+(0,g))
+ C506: capacitor(down_ to (Here,R508.end),C+); llabel("C506")
+ {"100" ljust "\unit{30}{\volt}" ljust at last [].s+(0,-g) below }
+ ground(,T)
+
+# Left-side boxes
+ boxwid = 10*g
+ boxht = 5*g
+ line left 3*g from P22.w "GRY" above
+ line left 3*g from P19.w "VIOL" above
+ box with .e at (Here,0.5 between P19 and P22) \
+ "\shortstack[l]{TO SIGNAL\\ METER\\ CIRCUIT}"
+
+ line left 8*g from P21.w "RED TO C508" above
+ line left 8*g from P20.w "VIOL" above
+
+ line left 3*g from P17.w "RED" above
+ line left 3*g from P18.w "WHT-" "RED" above
+ box with .e at (Here,0.5 between P17 and P18) \
+ "\shortstack[l]{\unit{12.7}{\volt} SOURCE\\ TO MULTIPLEX}"
+
+ line left 3*g from P16.w "WHT" above
+ box with .se at Here+(0,-g) \
+ "\shortstack[l]{\unit{12}{\volt} SOURCE\\ TO FM TUNER\\ SOURCE SWITCH}"
+
+ line left 3*g from P15.w "ORG" above
+ box ht 3*g with .e at Here \
+ "\shortstack[l]{\unit{15}{\volt} SOURCE\\ TO FM TUNER}"
+
+ line left 3*g from P13.w "BLU" above
+ line left 3*g from P12.w " WHT-" "RED"
+ line left 3*g from P11.w "RED" above
+ box ht 6*g with .e at (Here,P12) \
+ "\shortstack[l]{\unit{27}{\volt} SOURCE\\ TO CONTROL\\ PREAMP AND\\ PWR\
+ AMPLIFIER}"
+
+ line left 3*g from P14.w
+ { "WHT-" "GRY-" "GRN" at last line.c+(0,2*g) }
+ box with .se at Here+(0,-g) \
+ "\shortstack[l]{\unit{50}{\volt} SOURCE\\ TO PHONO\\ PREAMP}"
+
+ iflatex(`ifpsfrag(,`latexcommand(})')')
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Heathkit.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/I2L.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/I2L.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/I2L.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,77 @@
+.PS
+# I2L.m4
+ log_init
+
+[
+ down_
+T1: bi_trans(,R,BC2uEBU)
+ dy = T1.C0.y-T1.C1.y
+ dx = T1.C0.x-T1.Bulk.x
+ up_
+Q1: bi_trans(,,BC1dEBU) with .C1 at (T1.C2.x+dy+dx+dx,T1.C0.y-dy)
+Q2: bi_trans(,,BC1dEBU) with .C1 at Q1.E+(0,-dy*2)
+Q3: bi_tr(,,) with .B at Q2.C0+(2*dy,0)
+ down_
+T2: bi_trans(,R,BC1uEBU) with .C1 at (Q3.C.x+2*dx+2*dy,Q1.C0.y+dy)
+ up_
+X1: bi_tr(,,) with .B at (T2.C0.x+dy+dx,Q1.C0.y)
+X2: bi_tr(,,) with .B at (X1.B,Q3.C)
+
+ line down dx from Q2.E
+G: dot
+ line from T1.B to (T1.B,G) then to (X1.E.x+dy,G.y) then to X1.E+(dy,0) \
+ then to X1.E
+ line from X2.E right dy; dot
+
+ line from Q1.E down dy then to (T1.B.x,Q1.E.y-dy); dot
+ line from T1.C0 to (Q3.B,T1.C0) then to Q3.B; dot; line to Q2.C0
+
+A: dot(at (T1.B,Q1.B)-(dx,0)); { "$A$" rjust }
+ line to Q1.B
+ line from T1.C2 to (T1.C2,Q1.B); dot
+
+ line from Q2.B to (A,Q2.B); dot; { "$B$" rjust }
+ line right dy from T1.C1 then down T1.C1.y-Q2.B.y; dot
+
+VB: dot(at (T2.E.x+2*dx,T1.E.y+dy)); { "$V_B$" ljust }
+ line to (T1.E,Here) then to T1.E
+ line from T2.E to (T2.E,VB); dot
+
+ line from Q1.C1 to (Q3.C,Q1.C1) then to Q3.C; dot; line to X2.B
+
+ line from Q1.C0 to X1.B
+ dot(at Q1.C0+(dy,0)); line to (Here,Q2.C1) then to Q2.C1
+
+ line from Q3.E to (Q3.E,G); dot; ground
+
+ line from T2.B to (T2.B,G); dot
+
+ line from T2.C1 to (T2.C1,X1.B); dot
+ "$\overline{A+B}$" below at Here+(0,-2pt__)
+
+ line from T2.C0 to (X2.B,T2.C0) then to X2.B; dot
+ "$\overline{A+\overline{B}}$" below at (T2.E,Here)+(0pt__,-2pt__)
+
+]
+
+[
+right_
+
+jog = AND_ht/2*L_unit
+
+ X1: NOR_gate
+ line right jog from X1.Out; "$\overline{A+B}$" ljust
+ X2: NOR_gate at X1+svec_(0,-AND_ht*3/2)
+ line right jog from X2.Out; "$\overline{A+\overline{B}}$" ljust
+ line left jog from X2.In2
+ right_
+ NOT: NOT_gate with .Out at Here
+ line left jog from NOT.In1 then up X1.In2.y-NOT.In1.y; dot
+ line from X1.In2 to Here chop 0 chop -jog
+ B: dot; "$B$" rjust
+ line from X1.In1 to (B,X1.In1); dot; "$A$" rjust
+ line left jog from X2.In1 then up X1.In1.y-X2.In1.y; dot
+
+] with .e at last [].w-(1,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/I2L.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/IC10107.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/IC10107.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/IC10107.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,48 @@
+.PS
+# IC10107.m4
+ log_init
+
+right_
+ pinlen = 2*NOT_rad
+ hunit = AND_wd*L_unit*1.6
+B: box invis wid hunit*4 ht hunit*2
+ psep = hunit/2
+ nrad = B.ht*0.06
+ line from B.w+(0,nrad) to B.nw then to B.ne then to B.se then to B.sw \
+ then to B.w-(0,nrad)
+ arc ccw to Here+(0,2*nrad) with .c at B.w
+ for i = 1 to 8 do {
+ line down pinlen from B.sw+(psep/2,0)+((i-1)*psep,0)
+ sprintf("\small\sf%g",i) below
+ exec sprintf("P%g: last line.start",i)
+ line up pinlen from B.ne-(psep/2,0)-((i-1)*psep,0)
+ sprintf("\small\sf%g",8+i) above
+ exec sprintf("P%g: last line.start",8+i)
+ }
+G1: OR_gen(2,PIBANEONSEC) with .Out at P12.x-pinlen,B.y+B.ht/4
+G2: OR_gen(2,PIBANNEOSEC) with .Out at B.e.x-4*pinlen,B.y
+ left_
+G3: OR_gen(2,PIBANEONSEC) with .NE at P3.x,B.y-B.ht/4-AND_ht/6*L_unit
+
+ line from G3.N_NSE.w to (P2,G3.N_NSE) then to P2
+ line from P3 to G3.NE
+ line right pinlen from G3.In1 then down 2*pinlen
+ contline to (P4,Here) then to P4
+ line from G3.In2 to (P5,G3.In2) then to P5
+
+ line from G2.In2 left pinlen then down 2*pinlen
+ contline to (P9,Here) then to P9
+ line from G2.In1 left pinlen*2 then down G2.In1.y-G2.In2.y+3*pinlen
+ contline to (P7,Here) then to P7
+ line from G2.SE right NOT_rad+2*pinlen then up B.n.y-pinlen-G2.SE.y
+ contline to (P10,Here) then to P10
+ line from G2.N_NNE.e right pinlen then up B.n.y-2*pinlen-G2.N_NNE.y
+ contline to (P11,Here) then to P11
+
+ line from P12 to (P12,G1.N_NSE) then to G1.N_NSE.e
+ line from P13 down pinlen
+ contline to (G1.NE,Here) then to G1.NE
+ line from G1.In1 to (P14,G1.In1) then to P14
+ line from G1.In2 to (P15,G1.In2) then to P15
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/IC10107.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/Incl.eps.bb
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incl.eps.bb (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incl.eps.bb 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1 @@
+%%BoundingBox: 134 457 250 611
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incl.eps.bb
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incl.eps.gz
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incl.eps.gz
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incl.eps.gz 2019-09-05 22:25:35 UTC (rev 52034)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incl.eps.gz 2019-09-05 22:33:48 UTC (rev 52035)
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incl.eps.gz
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/octet-stream
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incl.pdf
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incl.pdf
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incl.pdf 2019-09-05 22:25:35 UTC (rev 52034)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incl.pdf 2019-09-05 22:33:48 UTC (rev 52035)
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incl.pdf
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/pdf
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incleps.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incleps.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incleps.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,21 @@
+.PS
+# Incleps.m4 : Illustrating one way to import and overwrite .eps graphics
+# Note: gpic doesn't fill the arrows
+darrow_init
+s_init(Incleps)
+sinclude(F_Incleps.dim) # Inserted for the web-page version.
+sinclude(examples.dim) # Change examples to the name of the main LaTeX file.
+
+define(`backarrow',`darrow(`$1',,,2pt__,6pt__,6pt__,<-|)')
+
+S: s_box(`\includegraphics[width=3in]{Incl}')
+ifgpic(`S: box invis ht s_ht wid s_wd with .c at S.n')
+
+thinlines_
+ backarrow( from boxcoord(S,0.4,0.95) up 0.4 right 0.7 )
+ s_box(\sf Basket) ljust
+ backarrow( from boxcoord(S,0.9,0.41) up 0.2 right 0.5 )
+ s_box(\sf Ball) ljust
+ backarrow( from boxcoord(S,0.85,0.32) up 0.2 right 0.5 )
+ s_box(`\sf\shortstack[l]{Star\\ player}') ljust
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Incleps.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/Inclpdf.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Inclpdf.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Inclpdf.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,22 @@
+.PS
+#`Inclpdf.m4 : Illustrating one way to import and overwrite graphics'
+
+include(darrow.m4)
+s_init(Inclpdf)
+sinclude(F_Inclpdf.dim)
+
+define(`backarrow',`darrow(`$1',,,2pt__,6pt__,6pt__,<-|)')
+
+# A blank box the size of the included pdf figure:
+S: s_box("\hskip %gin\vrule width 0pt height %gin",\
+ boxdim(InclA,w),boxdim(InclA,v))
+
+# Annotate the included figure:
+thinlines_
+ backarrow( from boxcoord(S,0.4,0.95) up 0.4 right 0.7 )
+ s_box(\sf Basket) ljust
+ backarrow( from boxcoord(S,0.9,0.41) up 0.2 right 0.5 )
+ s_box(\sf Ball) ljust
+ backarrow( from boxcoord(S,0.85,0.32) up 0.2 right 0.5 )
+ s_box(`\sf\shortstack[l]{Star\\ player}') ljust
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Inclpdf.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/Koch.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Koch.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Koch.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,32 @@
+.PS
+# Koch snowflake
+gen_init
+
+ leng = 4
+ X: 3,5
+ nsides = 3; rot[1] = 0; rot[2] = -120; rot[3] = -120
+ depth=4
+
+ for i=1 to depth do {
+ for j=1 to nsides do { tmp[j] = rot[j] }
+ leng = leng/3
+ k = 0
+ for j=1 to nsides do {
+ rot[k+1] = tmp[j]
+ rot[k+2] = 60
+ rot[k+3] = -120
+ rot[k+4] = 60
+ k += 4
+ }
+ nsides = k
+ }
+
+ a = 0
+ line from X to X
+ for i=1 to nsides do {
+ a += rot[i]
+ X: X+(Rect_(leng,a))
+ continue to X
+ }
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Koch.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/Loglog.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Loglog.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Loglog.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,85 @@
+.PS
+# Loglog.m4
+gen_init
+s_init(Loglog)
+sinclude(tst.dim)
+
+define(`rint',`sign(`$1')*int(abs(`$1')+.5)')
+S:[
+ horiz = 4
+ vert = horiz*2/3
+ tmax = 10
+ tmin = 1
+ vmax = 100
+ vmin = 0.1
+ tic = 0.08
+ denv = log(vmax) - log(vmin)
+ denh = log(tmax) - log(tmin)
+
+ Origin: Here
+ define(`coord',
+ `Origin+((log(`$1')-log(tmin))/denh*horiz,(log(`$2')-log(vmin))/denv*vert)')
+
+thinlines_
+# Left axes and labels
+ psset_(linecolor=gray)
+ vm = log(vmin); if vm!=0 then { vm=rint(vm) }
+ vM = log(vmax); if vM!=0 then { vM=rint(vM) }
+ for i = vm to vM do {
+ move to coord(tmin,exp(i))
+ line right horiz
+ s_box(\sf %g,exp(i)) rjust at last line.start ifgpic(`-(0.05,0)')
+ if i < rint(log(vmax)) then {
+ for j = 2 to 9 do {
+ move to coord(tmin,j*exp(i))
+ line right horiz
+ if (j==2) || (j==5) then {
+ s_box(\sf %g,j*exp(i)) rjust at last line.start ifgpic(`-(0.05,0)') }
+ } } }
+
+#Horizontal axis and labels
+ tm = log(tmin); if tm!=0 then { tm=rint(tm) }
+ tM = log(tmax); if tM!=0 then { tM=rint(tM) }
+ for t = tm to tM do {
+ move to coord(exp(t),vmin)
+ line up vert
+ s_box(\sf %g,exp(t)) below at last line.start ifgpic(`-(0,0.05)')
+ if t < rint(log(tmax)) then {
+ for j = 2 to 9 do { move to coord(j*exp(t),vmin)
+ line up vert
+ if (j==2) || (j==5) then {
+ s_box(\sf %g,j*exp(t)) below at last line.start ifgpic(`-(0,0.05)') }
+ } } }
+ psset_(linecolor=black)
+
+# arrow from Origin up vert chop 0 chop -.1
+ line from Origin up vert
+ s_box($y(t)$) at Origin+(-.1,.5*vert) rjust
+
+# arrow from Origin right horiz chop 0 chop -.1
+ line from Origin right horiz
+ s_box($t$) at Origin+(.5*horiz,-.1) below
+
+thicklines_
+ alpha = 2.5
+ beta = 3.0
+ tm = max(tmin,(vmin/alpha)^(1/beta))
+ tM = min(tmax,(vmax/alpha)^(1/beta))
+ line from coord(tm,alpha*tm^beta) to coord(tM,alpha*tM^beta)
+ f_box(invis fill_(1),`$y(t) = %g\,t^{%g}$',alpha,beta) \
+ with .sw at coord(2.1,11)
+
+ alpha = 0.05
+ beta = 2.0
+ tm = max(tmin,(vmin/alpha)^(1/beta))
+ tM = min(tmax,(vmax/alpha)^(1/beta))
+ line from coord(tm,alpha*tm^beta) to coord(tM,alpha*tM^beta)
+ f_box(invis fill_(1),`$y(t) = %g\,t^{%g}$',alpha,beta) \
+ with .se at coord(4.6,1.1)
+
+]
+
+# box wid S.wid ht S.ht at S
+# print (S.wid,S.ht)/(1 pc__)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Loglog.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/MC.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MC.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MC.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,35 @@
+.PS
+# MC.m4
+cct_init
+
+ dv = dimen_*0.6
+ dh = dimen_*0.4
+ backup = dimen_/6
+
+ for i=1 to 3 do {{
+ if i==2 then { Input: dot } else { line up (2-i)*dv }
+ source(right_ dimen_,AC); llabel(,,sprintf("$v_{\char%g}$",96+i))
+ resistor(right_ dimen_ from Here-(backup/2,0)); if i==1 then { llabel(,R_i)}
+ inductor(right_ dimen_ from Here-(backup,0),W); if i==1 then { llabel(,L_i)}
+ line right_ i*dh; b_current(sprintf("$i_{\char%g}$",96+i)); dot
+ { line down (3-i)*dv; capacitor(down_ dimen_)
+ if i==1 then { rlabel(,C_i) }
+ if i==2 then { dot(ifgpic(at last line.end)) } \
+ else { line ifgpic(from last line.end) right (2-i)*dh }
+ }
+ line right 3*dh; dot
+ E: Here+((3-i)*dh+dimen_*3/2,(4-2*i)*dv)
+ for j=1 to 3 do {{
+ line up (6-j*3)*dv then right (3-i)*dh
+ switch(right_ E.x-Here.x)
+ llabel(,,sprintf("$S_{\char%g\char%g}$",96+i,64+j))
+ if i==2 then { dot } else { line down (2-i)*dv }
+ }}
+ line from E right dh then down E.y-Here.y
+ arrow right dimen_/2 ; { sprintf("$i_{\char%g}\quad$",64+i) above }
+ resistor(right_ dimen_ from Here-(arrowht/2,0)); if i==1 then {llabel(,R_o)}
+ inductor(right_ dimen_ from Here-(backup,0),W); if i==1 then {llabel(,L_o)}
+ source(right_ dimen_,AC); llabel(sprintf("$v_{\char%g}$",64+i))
+ if i==2 then { Output: dot } else { line down (2-i)*dv }
+ }}
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MC.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/Makefile
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Makefile (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Makefile 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,269 @@
+# Examples Makefile
+#
+# Type "make" to generate examples.pdf containing many examples.
+# Type "make clean; make examples.ps" to invoke latex intead of pdflatex.
+# Type "make <diag>.ps" to make a postscript file from <diag>.m4
+# It may be necessary to type "make clean" before this or any of the following:
+# Type "make <diag>.eps" to make an .eps file from <diag>.m4
+# The following require ImageMagick convert:
+# Type "make <diag>.png" to make a .png file from <diag>.m4
+# Type "make <diag>.tif" to make a .tif file from <diag>.m4
+# Type "make <diag>.svg" to make a .svg file from <diag>.m4
+# See also: the svg subdirectory for generating svg directly.
+#
+# To test the file test.m4, type "make tst" if boxdims is used, otherwise
+# type "make tst1". In either case the file tst.ps is created.
+#
+# To debug a single diagram in a directory other than this examples
+# directory, copy this makefile and tst.tex to where you want to work,
+# redefine LIBDIR (below) appropriately, and type "make <diag>.xxx"
+# where xxx is one of ps, eps, png, or pdf
+
+#########################################################################
+
+# Circuit_macro directory, change this if necessary:
+# LIBDIR = $$HOME/lib
+LIBDIR = ..
+
+# The dpic processor:
+PIC = dpic -p
+#PIC = $$HOME/dpic/bu*/p2c/ftp/dpic -p
+#PIC = /cygdrive/d/Dwight/dpic/p2c/Windows/dpic -p
+#PIC = dpic -1 -p
+#PIC = $$HOME/dpic/build/test/dpic -p
+#PIC = $$HOME/tmp/dpic -p
+
+CONFIGFILE = pstricks.m4
+
+# This is for testing the mingw version of dpic:
+#CUSTOM=windows.m4
+
+# Uncomment for gpic. Use gpic or pic as applicable on your machine:
+# PIC = gpic -t
+# PIC = pic -t
+# CONFIGFILE = gpic.m4
+
+# Convert options
+EPSOPTS =
+PNGOPTS = -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 = \
+ Adder.tex Alogix.tex ABlogix.tex AmpTable.tex Antennas.tex Audio.tex \
+ Bip.tex Btree.tex Byte.tex Buttons.tex \
+ CanLogic.tex CctTable.tex Conn.tex Counting.tex Crossbar.tex Crow.tex \
+ Csource.tex \
+ Decoder.tex Demultiplexer.tex Diodes.tex Drive.tex \
+ Emarrows.tex Flow.tex Fuses.tex Grounds.tex \
+ Headers.tex Heathkit.tex \
+ I2L.tex Incleps.tex Jack.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 \
+ Quantum.tex Rectifiers.tex Relay.tex Rotbox.tex \
+ Schottky.tex ShiftR.tex Sierpinski.tex Sixpole.tex Sources.tex SQUID.tex \
+ Switches.tex \
+ TTLnand.tex Tgate.tex Three.tex Timer.tex Ttree.tex \
+ Variable.tex Windings.tex Xform.tex \
+ control.tex csc.tex diamond.tex \
+ 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 \
+ graysurf.tex lcct.tex pwrsupply.tex quick.tex \
+ random.tex recycle.tex rose.tex \
+ sfg.tex shapes.tex thyristor.tex ujt.tex worm.tex XOR.tex
+
+# From the doc directory:
+MANFIGS = AmpTable Antennas Audio Bip CctTable Conn Demultiplexer Diodes \
+ Emarrows Fuses \
+ Grounds Headers Jack Logic Multiplexer NLG NPDT Nport Opamp Pconn \
+ Relay ShiftR Sources Switches \
+ Tgate Variable Windings Xform fet quick thyristor ujt
+
+# Files that have to be processed twice:
+BOXDIMS = ex09 Crow Incleps Loglog Opamp random Ttree Windings
+
+DVIPSOPTS = -Ppdf -G0 -t letter
+M4LIBS = $(CONFIGFILE) $(CUSTOM)
+DIMFILE = $(DOC).dim
+BS = tr '|' '\134'
+
+# Might be needed (change latex commands to $(LTX) )
+# LTX = latex --shell-escape
+
+.SUFFIXES: .ps .dvi .tex .m4 .pic .eps .png .pdf .svg .tif .gif
+.dvi.ps:
+ dvips $(DVIPSOPTS) $* -o $*.ps
+ chmod 644 $*.ps
+.m4.tex:
+ @if test -n "$(DIMFILE)" ; then touch $(DIMFILE) ; fi ; touch F_$*.dim
+ $(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
+.m4.dvi:
+ make $*.tex
+ printf "|documentclass[11pt]{article}\n\
+|usepackage{times,pstricks,boxdims,graphicx,pst-grad,pst-slpe}\n\
+|usepackage[amssymb,Gray,thinqspace,textstyle]{SIunits}\n\
+|setlength{|textwidth}{28cm}|setlength{|textheight}{28cm}\n\
+|setlength{|oddsidemargin}{0pt}|setlength{|evensidemargin}{0pt}\n\
+|setlength{|hoffset}{-1cm}\n\
+|pagestyle{empty}|thispagestyle{empty}\n\
+|newbox|graph\n\
+|begin{document}\n\
+|noindent|input{"$*".tex}\n\
+|end{document}\n" | $(BS) > F_$*.tex
+ latex F_$*
+ touch F_$*.dim $(DIMFILE) ; rm -f $*.tex $*.pic ; make $*.tex
+ latex F_$*
+ touch F_$*.dim $(DIMFILE) ; rm -f $*.tex $*.pic ; make $*.tex
+ latex F_$*
+.m4.eps:
+ make $*.dvi
+ dvips -Ppdf F_$* -T128cm,28cm -o $*.ps
+# Recent changes to PSTricks(?) have clashed with the use of TeXtoEPS
+# so use ps2epsi
+ ps2epsi $*.ps $*.epsi
+ 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
+.m4.png:
+ make $*.eps
+ convert $(PNGOPTS) $*.eps $*.png
+ @if test -f $*.png.0 ; then mv $*.png.0 $*.png ; fi
+.m4.gif:
+ make $*.ps
+ convert $(GIFOPTS) $*.ps $*.gif
+# @if test -f $*.png.0 ; then mv $*.png.0 $*.png ; fi
+.m4.tif:
+ make $*.eps
+ convert $(EPSOPTS) $*.eps $*.tif
+ @if test -f $*.tif.0 ; then mv $*.tif.0 $*.tif ; fi
+.m4.pdf:
+ touch F_$*.dim
+ $(M4) pgf.m4 F_$*.dim $*.m4 > $*.pic
+ dpic -g $*.pic > test.tex
+ sed -e '/^\\usepackage.*graphicx/s/^.*$$/\\usepackage{tikz}/' \
+ -e '/pstricks/d' tst.tex > F_$*.tex
+ pdflatex F_$*
+ $(M4) pgf.m4 F_$*.dim $*.m4 > $*.pic
+ dpic -g $*.pic > test.tex
+ pdflatex F_$*
+ mv F_$*.pdf $*.pdf
+
+#########################################################################
+
+$(DOC).pdf: clean pdfmode $(DOC).frp
+ touch $(DOC).dim
+ for file in $(BOXDIMS) ; do \
+ rm -f $$file.tex $$file.pic ; \
+ make PIC="dpic -g" CONFIGFILE=pgf.m4 DIMFILE=$(DOC).dim $${file}.tex ; \
+ done
+ pdflatex $(DOC)
+ for file in $(BOXDIMS) ; do \
+ rm -f $$file.tex $$file.pic ; \
+ make PIC="dpic -g" CONFIGFILE=pgf.m4 DIMFILE=$(DOC).dim $${file}.tex ; \
+ done
+ pdflatex $(DOC)
+
+$(DOC).ps: psmode $(DOC).dvi
+
+psmode:
+ printf "|usepackage{pstricks,pst-grad}\n" | $(BS) > mode.tex
+
+pdfmode:
+ printf "|usepackage{tikz}\n" | $(BS) > mode.tex
+
+doclinks:
+ -for nm in $(MANFIGS) ; do cp $(LIBDIR)/doc/$$nm.m4 . ; done
+ touch doclinks
+
+$(DOC).dvi: $(DOC).frs
+ touch $(DOC).dim
+ for file in $(BOXDIMS) ; do \
+ rm -f $$file.tex $$file.pic ; \
+ make PIC="$(PIC)" DIMFILE=$(DOC).dim $${file}.tex ; done
+ latex $(DOC)
+ for file in $(BOXDIMS) ; do \
+ rm -f $$file.tex $$file.pic ; \
+ make PIC="$(PIC)" DIMFILE=$(DOC).dim $${file}.tex ; done
+ latex $(DOC)
+
+$(DOC).frs: doclinks $(DOC).tex files.tex header.tex psmode
+ make $(PICS)
+ cp $(LIBDIR)/doc/Version.tex .
+ latex $(DOC)
+ touch $(DOC).frs
+ rm -f $(DOC).dvi
+
+$(DOC).frp: doclinks $(DOC).tex files.tex header.tex pdfmode
+ make CONFIGFILE=pgf.m4 PIC="dpic -g" $(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
+ dvips $(DVIPSOPTS) tst -o tst.ps
+
+tst1: test.tex tst.tex
+ latex tst
+ dvips $(DVIPSOPTS) tst -o tst.ps
+
+gtst:
+ touch test.m4; make PIC="gpic -t" CONFIGFILE="" tst
+
+gtst1:
+ touch test.m4; make PIC="gpic -t" CONFIGFILE="" tst1
+
+echopics:
+ @echo $(PICS)
+
+clobber: clean
+ rm -f *.ps
+ - at for dir in mf mpost pdflatex xfig psfrag pgf svg dev test; \
+ do (if test -d $$dir ; then cd $$dir; make clobber; fi) ; done
+ rm -f *.warn quick.m4
+ rm -rf index.html html basenames *.png* dist zips htmlfiles svgfiles
+ rm -rf $(TMP)/Cir* $(ECETMP)/Cir* $(ECEDIR)
+ if test -f Incl.pdf ; then \
+ mv Incl.pdf Incl.pdx; rm -f *.pdf; mv Incl.pdx Incl.pdf ; fi
+ 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
+
+clean:
+ @printf "\n examples clean:\n"
+ rm -f core examples.pdf boxdims.tar.gz
+ rm -f *.dvi *.aux *.log *.toc *.blg *.eps *.tif *.epsi eps *-mfpic*
+ 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 *.tfm *[0-9]pk *.png *.1 *.gif
+ rm -f F_* Version.tex doclinks *stackdump *.ico quick.m4
+ for nm in $(MANFIGS) ; do rm -f $$nm.* ; done
+ rm -rf distfile distfile.tar.gz mode.tex
+ @printf "\n"
+ @if test -f distmakefile ; then make -f distmakefile clean ; fi
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Makefile
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Mixer.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Mixer.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Mixer.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,102 @@
+.PS
+#`Mixer.m4
+# Showing VMOS mosfet and custom transformer'
+cct_init
+ifdpic(`
+define(`sftxt',`{\sf `$1'}')
+
+define(`dimen_',0.6)
+define(`elen_',0.75)
+
+define(`Xform21',
+ `[ L1: inductor(to rvec_(dimen_*0.5,0),L,,M)
+ Core1E: M4Core1.end; Core2E: M4Core2.end
+ D: (0.5 between M4Core1 and M4Core2) - L1
+ T: line to rvec_(dimen_/3,0); { dot(at T.c) }
+ L2: inductor(to rvec_(L1.len,0),L,,M)
+ line from M4Core1.start to Core1E
+ line from M4Core2.start to Core2E
+ L3: inductor(to rvec_(-L1.len,0) with .c at T+(D.x*2,D.y*2),L) ]')
+
+ del = dimen_/3
+ setdir_(U)
+T1: Xform21; "sftxt(T1)" at T1.n above rjust
+ dot(at T1.L3.start+(0,4bp__))
+ dot(at T1.L1.end+(4bp__,0))
+ dot(at T1.L2.end+(4bp__,0))
+ line from T1.L3.start left_ dimen_*2/3
+RF: dot(,,1); "sftxt(RF)" at RF.w rjust
+ line from T1.L3.end left_ del; corner; ground(,,F)
+
+ line down_ del/2 from T1.L1.start then right_ del
+ reversed(`capacitor',right_ dimen_,C); llabel(,\unit{0.1}{\micro\farad})
+BT: dot(at Here)
+ line up_ del/2 from T1.L2.end then right del
+ reversed(`capacitor',right_ dimen_,C); llabel(,\unit{0.1}{\micro\farad})
+ t = dimen_*7/8
+ line to (BT.x+4*t,Here.y)
+TT: dot
+ line right_ dimen_+del/2; setdir_(U)
+Q1: mosfet(,,dMESDQuB,E) with .G at Here
+ { "sftxt(Q1)" at Q1.Env.ne above ljust }
+ ground(at Q1.S,,F)
+ line right_ del*3/2 from Q1.D then down_ Q1.D.y-T1.L2.end.y
+T2: Xform21 with .L1.start at (Here,T1.L2.end); "sftxt(T2)" at T2.n above ljust
+ dot(at T2.L1.start+(-4bp__,0))
+ dot(at T2.L3.end+(0,4bp__))
+ line from T2.L3.end right_ dimen_*2/3
+IF: dot(,,1); "sftxt(IF)" at IF.e ljust
+ setdir_(U)
+Q2: mosfet(,,dMESDQuB,E) at (Q1,T2.s-(0,elen_-del))
+ { "sftxt(Q2)" at Q2.Env.ne above ljust }
+ line from Q2.D to (T2.L2.end,Q2.D) then to T2.L2.end
+ line from Q2.G left_ del/2 then up_ BT.y-Q2.G.y then to BT
+
+ line right_ del from T1.T then down_ T1.T.y-BT.y+del
+ corner; left_
+ capacitor(to (T1.L3.end-(del,0),Here),C)
+ rlabel(,\unit{0.1}{\micro\farad}\hskip20pt)
+LOD: dot
+ { line to (RF,Here); dot(,,1)
+ move left_ 4bp__; "sftxt(local)" rjust "sftxt(oscillator)" rjust
+ move left 40bp__ }
+ line from T2.T left_ to (Q1.S,T2.T)
+T2T: dot
+ { capacitor(down_ to (Here,BT),C); rlabel(,\unit{0.1}{\micro\farad})
+ ground(,T,F) }
+ { line from T2.L3.start right_ del; corner; ground(,,F) }
+Vt: dot(at (0.5 between BT and TT,Q1.Env.nw),,1)
+ { "sftxt($+$V$_{\hbox{\scriptsize CC}}$)" at last [].e ljust }
+ line to (Here,T2T) chop dotrad_ chop 0; dot
+ { line to (Here,BT); Cv: capacitor(down_ 3/2*dimen_,C)
+ llabel(\unit{10}{\micro\farad}); G: dot; ground(,,F) }
+
+ for s=-1 to 1 by 2 do {{
+ line right s*t; corner
+ resistor(down_ to (Here,BT))
+ if s<0 then { llabel(,\unit{5}{\kilo\ohm}) } \
+ else { rlabel(,\unit{5}{\kilo\ohm})
+ { dot(at last line.start); line to (TT,Here)
+ resistor(right_ to (T2T,Here))
+ llabel(,\unit{10}{\ohm}) } }
+ P: potentiometer(down_ Cv.len,,0.5,s*t ) with .Start at Here
+ if s<0 then { "sftxt(\unit{1}{\kilo\ohm})" at P. 1st [].ne ljust } \
+ else { "sftxt(\unit{1}{\kilo\ohm})" at P. 1st [].sw rjust }
+ dot(at P.End)
+ dot(at P.T1)
+ { L: inductor(up_ to (Here,BT),L);
+ if s<0 then { "sftxt(\unit{100}{\micro\henry})" at last [].sw rjust } \
+ else { line to TT
+ "sftxt(\unit{100}{\micro\henry})" \
+ at last [].ne ljust below } }
+ capacitor(down_ to (Here,G),C)
+ if s<0 then { rlabel(,\unit{0.1}{\micro\farad}) } \
+ else { llabel(,\unit{0.1}{\micro\farad}) }
+ dot }}
+
+ resistor(down_ from LOD to (LOD,G)); llabel(,\unit{51}{\ohm}); corner
+ line to (Q2.S,Here) then to Q2.S
+
+',
+`box wid 2*boxwid "Mixer cct" "requires dpic"')
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Mixer.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/MosfetElements.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MosfetElements.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MosfetElements.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,78 @@
+.PS
+# MosfetElements.m4
+cct_init
+s_init(MosfetElements)
+
+ linewid = linewid*1.5
+ linethick = 1.5
+
+define(`mfgrid',
+ `tr_xy_init(,m4_U,m4R)define(`m4R',)
+ ltt = linethick; linethick = 0.4
+ m4gdim = ifelse(`$1',,4,`($1)')
+ iflatex(`latexcommand(\color{lightgray})')
+ for x=-m4gdim to m4gdim do {
+ line color "lightgray" from tr_xy(x,0) to tr_xy(x,2*m4gdim)
+ if pmod(x,2)==0 then { sprintf("{\tiny %g}",x) at last line.start below }}
+ for y=0 to 2*m4gdim do {
+ line color "lightgray" from tr_xy(-m4gdim,y) to tr_xy(m4gdim,y)
+ if pmod(y,2)==0 then { sprintf("{\tiny %g}",y) at last line.start rjust }}
+ linethick = ltt
+ iflatex(`latexcommand(\color{black})')
+ Grid: box invis wid 2*m4gdim*m4_xyU ht 2*m4gdim*m4_xyU \
+ with .sw at tr_xy(-m4gdim,0)
+')
+define(`gridnext',`with .Grid.w at last [].Grid.e + (m4_xyU*2,0)')
+define(`gridbelow',`with .Grid.nw at `$1'.Grid.sw+(0,-linewid/2)')
+define(`Gmosfet',`mfgrid; Q: mosfet(,,`$1') with .S at Grid.sw + (2*m4_xyU,0)')
+
+R1: [ Gmosfet(B); "B" at Q.Bl ljust ]
+ [ Gmosfet(D); "D" at Q.Dl ljust ] gridnext
+ [ Gmosfet(E); "E" at Q.Channel below ] gridnext
+ [ Gmosfet(F); "F" at Q.Channel below ] gridnext
+ [ Gmosfet(G); "G" at Q.Gl ljust ] gridnext
+ [ Gmosfet(H); "H" at Q.Hl ljust ] gridnext
+ [ Gmosfet(L); "L" at Q.Ll ] gridnext
+ [ Gmosfet(M); "M" at Q.Glh below ] gridnext
+
+R2:[ Gmosfet(uM); "uM" at Q.Gl ] gridbelow(R1)
+ [ Gmosfet(dM); "dM" at Q.Gl ] gridnext
+ [ Gmosfet(Pz); "Pz" at Grid.s ] gridnext
+ [ Gmosfet(Q); "Q" at Q.Ql above ] gridnext
+ [ Gmosfet(R); "R" at Q.Rl below ] gridnext
+ [ Gmosfet(S); "S" at Q.Sl ljust ] gridnext
+ [ Gmosfet(dT); "dT" at Q.Tl below ] gridnext
+ [ Gmosfet(X); "X" at Q.Xh above ] gridnext
+
+R3:[ Gmosfet(uM1)
+ "uM1" at Grid.s above
+ "G0" at Q.G0 above
+ "G1" at Q.G1 above ] gridbelow(R2)
+ [ Gmosfet(dM1)
+ "G0" at Q.G0 above
+ "G1" at Q.G1 above
+ "dM1" at Grid.s above ] gridnext
+
+# [ Q: mosfet
+# {"S" at Q.S rjust}
+# {"D" at Q.D ljust}
+# {"G" at Q.G rjust}
+# s_box(``mosfet'') at Q.s below]
+#
+# [ Q: mosfet(,,DSELuBQ)
+# s_box(``mosfet(,,DSELuBQ)'') at Q.s below] with .n at last [].s + (0,-0.2)
+#
+# [ Q: mosfet(,,DSEMuBQ)
+# s_box(``mosfet(,,DSEMuBQ)'') at Q.s below] with .n at last [].s + (0,-0.2)
+#
+# [ Q: mosfet(,,DSEdMuBQ)
+# s_box(``mosfet(,,DSEdMuBQ)'') at Q.s below] with .n at last [].s + (0,-0.2)
+#
+# [ Q: mosfet(right dimen_,,DSELuBQN)
+# {"S" at Q.S rjust}
+# {"D" at Q.D ljust}
+# {"G" at Q.G rjust}
+# s_box(``mosfet(right dimen\_,,DSELuBQN)'') at Q.s below] \
+# with .n at last [].s + (0,-0.2)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MosfetElements.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/MotorControl.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MotorControl.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MotorControl.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,57 @@
+.PS
+# MotorControl.m4
+cct_init
+
+ trad = 2.5*dotrad_
+define(`bigterminal',`circle rad trad')
+
+ mrad = linewid*2/3
+Motor: circle rad mrad "iflatex({\sf) Motor iflatex(})"
+
+ linethick = 2
+ T2: Motor.n+(0,dimen_/2)
+
+ for i=1 to 3 do {
+ if i==2 then { line from Motor.n to T2 } \
+ else { line from Motor right (i-2)*Motor.diam chop Motor.rad chop 0 \
+ then up T2.y-Motor.y }
+ bigterminal
+ cbreaker(up_ dimen_*3/4,,T)
+ bigterminal
+ line up_ dimen_
+ bigterminal
+ capacitor(up_ dimen_*1.2,,,dimen_/3,dimen_/6)
+ { circle fill_(1) rad dotrad_*3/2 thick 0.8 \
+ at 0.25 between last line.end and last line.start }
+ if i==1 then { L1: last circle } \
+ else { if i==2 then { L2: last circle }}
+ bigterminal
+ line up_ dimen_/4
+ }
+ linethick_(0.8)
+ C2: circle rad mrad/3 at Motor.n+ (0,dimen_*2)
+ line from C2.e right_ dimen_/3 then up C2.rad*1.5
+ line to (L1.x-dimen_/2,Here.y)
+ {S23: capacitor(up_ dimen_*2/3 from (L1.x-dimen_/2,Here.y),,,
+ dimen_/3,dimen_/6); dot(,,1) }
+ dot(,,1)
+ line to (L1.x-dimen_*2,Here.y) chop dotrad_ chop 0 then up dimen_/3
+ S1: [ bswitch(right_ dimen_/2) ] with .Bsw_T1.s at Here
+ S2: [ bswitch(right_ dimen_/2,,C) ] at S1+(0,-dimen_)
+ line right dimen_/6 down dimen_/6 from S1.Bsw_T2.se \
+ then down S1.Bsw_T2.se.y-S2.Bsw_T2.ne.y-dimen_/3 \
+ then to S2.Bsw_T2.ne
+ box wid S1.wid+dimen_/2 ht S1.n.y-S2.s.y+dimen_/3 \
+ at 0.5 between S1.s and S2.n
+ line left dimen_/2 from S23.end chop dotrad_ chop 0; corner
+ line to (Here,S1.Bsw_T2) then to S1.Bsw_T2.e
+ line from S2.Bsw_T1.w left dimen_/2; corner
+ line to (Here,L1) then to L1 chop 0 chop dotrad_
+
+ dot(at 0.5 between L1 and L2,,1)
+ { line to L2 chop dotrad_ }
+ S45: variable(`capacitor(down_ dimen_*2/3 chop dotrad_ chop 0,,,
+ dimen_/3,dimen_/6)',L,,dimen_/2); dot(,,1)
+ line to (Here,C2) then to C2.w chop dotrad_ chop 0
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/MotorControl.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/OpAmpFilter.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/OpAmpFilter.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/OpAmpFilter.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,72 @@
+.PS
+# OpAmpFilter.m4
+cct_init
+command "{\small\sf"
+
+divert(-1)
+divert(0)dnl
+
+ define(`SpecOpAmp',`$1: [ right_
+ lwtmp = linewid; linewid = 1*scale
+ H: opamp
+ "$2" at H.In1 below rjust
+ "$3" at H.In2 below rjust
+ "$4" at H.E below ljust
+ "V${-}$" at H.E1 below
+ line up_ dimen_/3 from H.E1 "4" rjust; dot(,,1)
+ "$\hbox{V}_{\hbox{CC}}$" above rjust at last [].n
+ "V${+}$" at H.E2 above
+ line down_ dimen_/3 from H.E2 "11" ljust; dot(,,1)
+ "${-}\hbox{V}_{\hbox{CC}}$" below ljust at last [].s
+ linewid = lwtmp
+ ifelse($1,U1,,`line left_ jog from H.In2 then down_ jog/2; zground ')
+ "$1" at H.S below ljust
+ In1: H.In1; In2: H.In2; Out: H.Out
+ D: dot(at Out)
+ V: circle diam 12bp__ "V" at Out+(dimen_/3,dimen_/3)
+ "V$_{\hbox{\scriptsize $5}}$" at V.n above
+ open_arrow(from V to D chop last circle.rad chop dotrad_) ] ')
+ define(`zground',`ground(`$1',,S); "0" at Here+(dimen_/6,-dimen_/2)')
+
+ cscale = 3/2
+ linewid = linewid*cscale
+ jog = dimen_*0.3
+ vstep = dimen_*5/4
+ SpecOpAmp(U1,2,3,1,hp)
+ R1: resistor(right_ elen_*3/4 from U1.Out); llabel(,"R1"); rlabel(,"1`\,'k")
+ dot; line right_ jog
+ SpecOpAmp(U2,5,6,7,bp) with .In1 at Here
+ R2: resistor(right_ elen_*3/4 from U2.Out); llabel(,"R2"); rlabel(,"1`\,'k")
+ dot; line right_ jog
+ SpecOpAmp(U3,9,10,8,lp) with .In1 at Here
+ SpecOpAmp(U4,13,12,14,n) with .Out at U3.Out+(0,-dimen_*3.0)
+ line up vstep from U4.Out
+ Rf: resistor(left_); rlabel(,R_f); llabel(,"1`\,'k")
+ line to (U4.In1,Here)-(jog,0) then to U4.In1-(jog,0); dot
+ line from U3.Out down_ vstep then left_ jog
+ RL: resistor; rlabel(,RL); llabel(,"100")
+ line to (U4.In1-(2*jog,0),Here) then to U4.In1-(2*jog,0); dot
+ line from U1.Out to (U1.Out,Here); right_
+ R42: resistor(to U4.In1); llabel(,"R42"); rlabel(,"1`\,'k")
+ line from U2.Out down_ vstep
+ R41: resistor(left_ to (U1.In2-(jog,0),Here))
+ llabel(,"2.2`\,'k"); rlabel(,"R41")
+ line to (Here,U1.In2); dot; { line to U1.In2 }
+ line left_ jog; dot
+ { resistor(down_ elen_); rlabel(,"R0" rjust "10`\,'k"); zground }
+ R3: resistor(left_ dimen_); rlabel(,"R3","in"); llabel(,"1`\,'k")
+ source(down_ elen_,AC); llabel("V$_{\hbox{\scriptsize in}\;}$"); zground
+ line up_ vstep from U1.Out
+ R5: resistor(left_ to (U1.In1-(jog,0),Here)); rlabel(,"R6\enskip 10`\,'k")
+ dot
+ line from U1.In1 left_ jog then to Here+(0,dimen_/2)
+ resistor(right_ to (U3.Out,Here)); llabel(,"R5"); rlabel(,"1`\,'k")
+ line to U3.Out; dot(at Here+(0,vstep))
+ capacitor(left_ to (U3.In1-(jog,0),Here)); rlabel(,"C2\enskip 100`\,'n")
+ line to (Here,U3.In1)
+ line from U2.Out up_ vstep
+ capacitor(left_ to (U2.In1-(jog,0),Here)); rlabel(,"C1\enskip 100`\,'n")
+ line to (Here,U2.In1)
+
+command "}%"
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/OpAmpFilter.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/Optoiso.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Optoiso.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Optoiso.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,63 @@
+.PS
+# Optoiso.m4
+cct_init
+movewid = 0.25
+
+# `optoiso([L|R][A|B|C])'
+define(`optoiso',`ifinstr(`$1',C,
+`[{ u = dimen_
+ hd = u/5
+ Q: bi_tr(up hd*4,ifinstr(`$1',R,R))
+ line from Q.E ifinstr(`$1',R,left,right)(hd+u/3); Pin4: dot(,,1)
+ line from Q.C to (Pin4,Q.C); Pin5: dot(,,1)
+ T: (Q.B,Pin5)+(0,4*hd)
+ line from Q.B to T then to (Pin5,T); Pin6: dot(,,1)
+ D: diode(from Pin6 +(ifinstr(`$1',R,+,-)(u/3+hd*8),0) down hd*4)
+ line from D.start ifinstr(`$1',R,right,left) (hd*2+u/3); Pin1: dot(,,1)
+ line from D.end to (Pin1,D.end); Pin2: dot(,,1)
+ line from (D.end,Pin4) to (Pin1,Pin4) chop hd chop 0; Pin3: dot(,,1)
+ B: box wid hd*10 ht hd*10 with .c at 0.5 between Pin4 and Pin1
+ arrow from B.c+(ifinstr(`$1',R,,-)hd*1.5,hd*1.5) to B.c chop 0 chop -0.7*hd
+ F: (ifinstr(`$1',R,,-)hd*0.5,-hd*0.5)
+ arrow from last arrow.start+(F.x,F.y) to last arrow.end+(F.x,F.y)
+ `$2' }]',
+`[{u = dimen_/2
+ Q: bi_trans(up u*2,ifinstr(`$1',R,R),ifinstr(`$1',B,B)CBUdE)
+ E: Q.E; C: Q.C; A:ifinstr(`$1',R,Q.e+(u*3/2,u),Q.w+(-u*3/2,u)); K: A-(0,u*2)
+ ifinstr(`$1',B,line from Q.B to (Q.B,E); B: Here)
+ D: diode(from A to K)
+ arrow from D.c+(0,u/6) to Q.ifinstr(`$1',R,e,w)+(0,u/6) chop u/3 chop u/4
+ arrow from last arrow.start-(0,u/3) to last arrow.end-(0,u/3)
+ Enc: box rad u wid abs(C.x-A.x)+u*2 ht u*2 with .c at 0.5 between C and K
+ `$2' }]')')
+
+define(`optlabels',
+ `{"\sl C" ht 0.1 at last [].C above
+ "\sl E" at last [].E below
+ ifinstr(`$1',B,`"\sl B" at last [].B below')
+ "\sl A" at last [].A above
+ "\sl K" at last [].K below}')
+
+Q: optoiso; optlabels; move
+ {`"\tt optoiso"' at last [].s+(0,-0.22)}
+ optoiso(Rightorientation); optlabels; move
+ {`"\tt optoiso(R)"' at last [].s+(0,-0.22)}
+ optoiso(B); optlabels(B); move
+ {`"\tt optoiso(B)"' at last [].s+(0,-0.22)}
+ optoiso(RB); optlabels(B)
+ {`"\tt optoiso(RB)"' at last [].s+(0,-0.22)}
+
+R: optoiso(C) with .nw at Q.sw+(0.33,-0.75); move 1
+{"\sl 1" at R.Pin1 rjust; "\sl 2" at R.Pin2 rjust
+ "\sl 3" wid 0.3 at R.Pin3 rjust}
+{"\sl 4" at R.Pin4 ljust; "\sl 5" at R.Pin5 ljust
+ "\sl 6" at R.Pin6 ljust }
+{`"\tt optoiso(C)"' at R.s below }
+S: optoiso(RC)
+{"\sl 1" at S.Pin1 ljust; "\sl 2" at S.Pin2 ljust
+ "\sl 3" at S.Pin3 ljust }
+{"\sl 4" at S.Pin4 rjust; "\sl 5" at S.Pin5 rjust
+ "\sl 6" wid 0.3 at S.Pin6 rjust }
+{`"\tt optoiso(RC)"' at S.s below }
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Optoiso.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/Orbits.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Orbits.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Orbits.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,74 @@
+.PS
+# Orbits.m4
+threeD_init
+NeedDpicTools
+
+ crad = 1.0
+ g = 0.65
+
+# `orbitpos(long,lat,rad,ang)'
+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 vis { X: PO($1)
+ if (distance(X,B.C)>crad) || \
+ (dot3D(View3D,orbitpos(orbitlong,orbitlat,orbitrad,$1))>0) \
+ then {$2 = 1} else {$2 = -1} }
+
+# `orbit(long,lat,rad)'
+define(`orbit',
+ `[da = 3
+ orbitlong = `$1'
+ orbitlat = `$2'
+ orbitrad = `$3'
+ define(`decorated',`ifelse(`$4',,,`outlined `$4'')')
+ arrow from PO(0) to PO(da*3) decorated
+ n=0
+ P[n]: PO(0)
+ vis(0,v)
+ for d=da to 360 by da do {
+ vis(d,x)
+ if x*v < 0 then {
+ findroot(vis,d-da,d,1e-6,x)
+ n+=1; P[n]: PO(x)
+ if v < 0 then { fitcurve(P,n,dashed decorated) } \
+ else { fitcurve(P,n,decorated) }
+ P[0]: P[n]
+ n = 0; v = -v }
+ n +=1; P[n]: PO(d)
+ }
+ if v < 0 then { fitcurve(P,n,dashed decorated) } \
+ else { fitcurve(P,n,decorated) }
+ ] with .c at B.C')
+
+# ball(rad,highlight rad,highlight degrees)
+define(`ball',`[
+ lt = linethick bp__
+ C: circle invis rad `$1' at (0,0)
+ D: C+(Rect_(`$2',`$3'))
+ rm = `$1'+distance(C,D)
+ a = 1 # fade rate parameter
+ for r=lt to rm by lt do {
+ u = 1-(r/rm*(a*r/rm+(1-a)))
+ if r < (1-g)*`$1' then { circle outlined rgbstring(u,u,u) rad r at D } \
+ else { arc cw outlined rgbstring(u,u,u) from Cintersect(D,r,C,`$1') \
+ to Cintersect(D,r,C,`$1',R) with .c at D
+ }
+ }
+ circle rad C.rad at C
+ ]')
+
+ linethick = 0.8
+ B: ball(crad,crad*g,110)
+
+ azimuth = 0
+ elevation = 0
+ setview(azimuth,elevation)
+
+ orbit(10, 30,crad*1.3,"red")
+ orbit(10,-30,crad*1.3,"blue")
+ orbit(10,-90,crad*1.3,"cyan")
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Orbits.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/PPA.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/PPA.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/PPA.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,40 @@
+.PS
+# `PPA.m4 Push-pull amplifier'
+cct_init
+
+Vs: source(up_ elen_,"$V_S$")
+ line right elen_/2
+T1: transformer(down_ elen_,,,W,10) with .P1 at Here
+ { dot(at T1.TP+(-dimen_/8,dimen_/3)) }
+ { dot(at T1.TS+(dimen_/8,dimen_*2/3))}
+ { dot(at T1.TS+(dimen_/8,-dimen_/8)) }
+ line from T1.P2 to Vs.start
+
+ line up_ dimen_*3/4 from T1.S1 then right_ dimen_*3/4
+ up_
+Q1: bi_tr(,L,,E) with .B at Here
+ line down_ dimen_*3/4 from T1.S2 then right_ dimen_*3/4
+ down_
+Q2: bi_tr(,R,,E) with .B at Here
+ line from Q1.E to Q2.E
+R2: resistor(left_ dimen_ from last line); llabel(,R_2)
+ dot; {dot(at R2.start) }
+ line to T1.TS
+ line down_ dimen_/2 right_ dimen_/2 from R2.start
+ ground
+
+ line right_ dimen_/6 from R2.start
+Vcc: battery(right_ elen_,2); rlabel(,V_{cc})
+ dot
+ line up dimen_*2/3 then to (R2.start.x,Here.y+dimen_*2/3)
+ resistor(to (R2.end,Here)); rlabel(,R_1); line to R2.end
+ line right_ dimen_/2 from Vcc.end
+T2: transformer(up_ elen_,,,W,10) with .TS at Here
+ line from T2.S2 to (T2.S2,Q1.C) then to Q1.C
+ line from T2.S1 to (T2.S1,Q2.C) then to Q2.C
+
+ line right elen_/2 from T2.P2
+ resistor(down_ to (Here,T2.P1)); llabel(,R_L)
+ line to T2.P1
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/PPA.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/PushPull.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/PushPull.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/PushPull.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,107 @@
+.PS
+# `PushPull.m4'
+cct_init
+iflatex(`ifpsfrag(,`latexcommand({\sf)') ')
+
+linewid = 1.2*linewid
+
+# Transformer as for Mixer.m4
+define(`Xform21',
+ `[ L1: inductor(to rvec_(dimen_*0.5,0),,,M)
+ Core1E: M4Core1.end; Core2E: M4Core2.end
+ D: (0.5 between M4Core1 and M4Core2) - L1
+ T: line to rvec_(dimen_/3,0); { dot(at T.c) }
+ L2: inductor(to rvec_(L1.len,0),,,M)
+ line from M4Core1.start to Core1E
+ line from M4Core2.start to Core2E
+ L3: inductor(to rvec_(-L1.len,0) with .c at T+(D.x*2,D.y*2),) ]')
+
+ del = dimen_/3
+ up_
+ T1: Xform21
+ line left_ del from T1.L3.end; corner; ground(,,F)
+ line left_ 2*del from T1.L3.start
+ In: dot(,,1); { "RF" wid 12bp__ at In.n above }
+ up_
+ Q1: mosfet(,,dBSDFQM1,E) with .G0 at T1.T+(2*dimen_+del/2,dimen_)
+ { "3N200" at last [].n above }
+ line from T1.L2.end to (T1.L2.end,Q1.G0) then to Q1.G0
+ Q2: mosfet(,,dBSDFQM1,E) with .G0 at (Q1.G0.x,T1.T.y-dimen_)
+ { "3N200" at last [].n above }
+ line from T1.L1.start to (T1.L1.start,Q2.G0) then to Q2.G0
+
+ resistor(right_ dimen_ from T1.T); llabel(,\unit{330}{\ohm}); Tx:dot
+ { line right_ del*3/2; corner; ground(,,F) }
+ dot(at (Tx,Q1.G0))
+ capacitor(down_ to Tx,C); llabel(\unit{5.6}{\pico\farad})
+ dot(at (Tx,Q2.G0))
+ capacitor(up_ to Tx,C); rlabel(\unit{5.6}{\pico\farad})
+
+ for_(1,2,1,
+ `dot(at Q`'m4x.S+(dimen_+del/2,0))
+ { resistor(down_ dimen_); G1:Here; { "$120$" at last [].nw rjust }
+ rlabel(,\ohm); dot; ground(,,F) }
+ line from Q`'m4x.S to (Here.x+dimen_*3/4,Q`'m4x.S.y); corner
+ capacitor(down_ to (Here,G1),C); rlabel(\raisebox{2pt}{1000},{\pico\farad});
+ corner
+ line left_ 2*dimen_*3/4; corner
+ TG: dot(at (Here,Q`'m4x.S))
+ capacitor(down_ to (Here,G1),C); rlabel(,,\unit{0.01}{\micro\farad})
+ ')
+
+ R: dot(at (Here.x+dimen_*2,(Q1.D.y+Q2.D.y)/2))
+ dot(at (R,Q1.D)); capacitor(down_ to R,C); llabel(\unit{20}{\pico\farad})
+ dot(at (R,Q2.D)); capacitor(up_ to R,C); llabel(\unit{20}{\pico\farad})
+ line right_ del*3/2 from R then down_ R.y-(Q1.S.y-dimen_); ground(,,F)
+
+ Vc: dot(at (R+(dimen_,0),Q1.ne),,1); { "$+V_{\hbox{c}}$" rjust at Vc.w }
+ dot(at (Vc,R))
+ inductor(right_ dimen_,); llabel(,\unit{1}{\micro\henry})
+ down_
+ T2: Xform21 with .T at Here
+ arrow from T2.L2 to T2.L3 chop -dimen_/4
+ line right_ del from T2.L3.start; corner
+ capacitor(down_ dimen_,C); llabel(\unit{1000}{\pico\farad}); ground(,T,F)
+ line right_ 2*del from T2.L3.end
+ Out: dot(,,1); { "IF" wid 12bp__ at Out.n above }; move right_ 0.3
+
+ line from T2.L1.start to (T2.L1,Q1.D) then to Q1.D
+ line from T2.L2.end to (T2.L2.end,Q2.D) then to Q2.D
+
+ line from Vc to (Vc,Q2.S) chop dotrad_/2 chop 0; dot
+ { line right_ del*2; corner
+ capacitor(down_ dimen_,C); llabel(,,\unit{1000}{\pico\farad}); ground(,,F) }
+ reversed(`inductor',down_ dimen_,); rlabel(,\unit{1}{\micro\henry})
+ line down_ dimen_/2
+
+ TL: dot(at (Q1.G1.x-del/2,Here.y))
+ up_
+ Q3: bi_tr(,R,,E) with .C at (TG.x,TL.y-dimen_*2/3)
+ resistor(right_ from TL to (Q3.C,TL)); llabel(,\unit{82}{\kilo\ohm})
+ line to (Vc,Here); dot
+ resistor(down_ to (Here,Q3.B)); rlabel(,\unit{8.2}{\kilo\ohm}); dot
+ dot(at Q3.B+(del,0))
+ line up_ (TL.y+Q3.C.y)/2 - Here.y+del/4 then left_ Here.x-TL.x
+ reversed(`capacitor',left_ dimen_,C); llabel(,\unit{1500}{\pico\farad})
+ Osc: dot(,,1); { "Osc" above at Osc.n }
+
+ line from Q3.B to (Vc,Q3.B)
+ line from Q3.C to (Q3.C,TL); dot
+ dot(at Q3.C+(0,del/2))
+ capacitor(left_ to (TL,Here),C); llabel(,\unit{1500}{\pico\farad}); dot
+ line down_ del/2 from Q3.E; dot
+ { resistor(down_ dimen_*3/4); rlabel(,\unit{820}{\ohm})
+ G: Here; ground(,T,F) }
+ line right_ dimen_; corner
+ capacitor(down_ to (Here,G),C); llabel(,\unit{1000}{\pico\farad})
+ ground(,T,F)
+ ground(at (TL,G),T,F)
+ resistor(up_ dimen_); llabel(,\unit{12}{\kilo\ohm})
+ line to (Here,Q1.G1) then to Q1.G1
+ line from Q2.G1 to (TL,Q2.G1); dot
+
+ ground(at (Vc,G),T,F)
+ resistor(up_ dimen_); rlabel(,\unit{5.6}{\kilo\ohm}); line to (Here,Q3.B)
+
+iflatex(`ifpsfrag(,`latexcommand(})')')
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/PushPull.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/Quantum.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Quantum.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Quantum.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,31 @@
+.PS
+# Quantum.m4
+gen_init
+
+ boxht = 0.35
+ boxwid = boxht
+ define(`dotrad_',boxht/5)
+
+define(`Bus',`line right_ 10*boxwid `$1'
+ circle diam boxht `$2' at last line.start
+ box fill_(1) "H" at last line.start+(boxwid*3/2,0)
+ box fill_(1) "H" at last line.end-(boxwid*2.5,0) ')
+
+define(`Meter',`[ Box: box wid boxwid*3/2 fill_(1)
+ r = Box.wid/3
+ C: 0.3 between Box.s and Box.n
+ arc cw from C+(-r,0) to C+(r,0) with .c at C
+ arrow from C+(-r/4,0) to C+(0.9*r,0.9*r) ]')
+
+X: Bus(,shaded rgbstring(0.5,0.5,1) "X")
+A1: Bus(from X.start+(0,-boxht*3/2), shaded "red" "A")
+A2: Bus(from 2 between X.start and A1.start,shaded "red" "A")
+ dot(at X.start+(3*boxwid,0))
+ line to (Here,A2); dot
+ circle rad dotrad_ at A1.start+(4*boxwid,0)
+ line from last circle.s to (last circle,X); dot
+ Meter with .e at X.end
+ box wid boxwid*1.2 ht boxht*1.2 fill_(1) "$R_{\psi}^{\pi/2}$" \
+ at A2.end-(4.5*boxwid,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Quantum.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/README-examples
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/README-examples (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/README-examples 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,58 @@
+
+This directory contains examples.tex, source files for the diagrams
+that are imported when examples.tex is LaTeXed, and some other standalone
+diagrams. To generate examples.pdf in a unix-like environment (versions
+of unix, linux, cygwin, djgpp, ...):
+
+1. Install the libraries as described in the top-level README file.
+2. In this directory, type "make". If your installed dpic is the
+ Mingw version included in the dpic distribution, (a) edit the
+ file windows.m4 to point to your installation folder, and (b) uncomment
+ the CUSTOM= line in the Makefile, or type "make CUSTOM=windows.m4".
+
+To test one of the diagrams, say ex01.m4, type one of the following
+(and have a look at the comments at the top of the Makefile):
+"make ex01.ps"
+"make ex01.eps"
+"make ex01.pdf" (uses pdflatex)
+"make ex01.png" (requires Imagemagick convert)
+"make ex01.tif" (requires Imagemagick convert)
+"make ex01.svg" (requires Imagemagick convert, but see the svg folder)
+
+IN CASE OF DIFFICULTY: Look at files debug1.tex and debug2.m4, and
+follow the instructions.
+
+To test and debug a single diagram, write it into test.m4. Type
+"make tst" to process the file, creating test.tex, which is imported into
+tst.tex. The diagram source and tst.tex are processed twice in case
+the boxdim macro is being used. If you only need to process once, type
+"make tst1". In both cases the resulting file is tst.ps.
+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
+in Makefile if environment variable M4PATH has not been defined, and type
+one of the above commands.
+
+By default, the dpic processor is invoked, producing TiKz commands.
+To use PSTricks instead, type "make clean; make examples.ps".
+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,
+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
+not handle LaTeX labels has to be treated separately as, for example,
+in the svg directory.
+
+To process the diagrams using .eps intermediate files with embedded psfrag
+strings, go into the psfrag directory and read the README file.
+
+To process the diagrams using MetaPost, look in the mpost subdirectory.
+
+The xfig subdirectory contains the file xfig/xfiglib.fig, which contains
+elements in xfig 3.2 format produced by dpic for importing into xfig.
+
+SVG: Look in the svg directory for an experimental configuration file and
+examples.
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/README-examples
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Rectifiers.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Rectifiers.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Rectifiers.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,186 @@
+.PS
+# Rectifiers.m4
+cct_init
+
+ tmax = 3.5
+ period = tmax/1.75
+ eamp = 0.5
+ omega = twopi_/period
+ ed = eamp/6
+ r = 0.95
+
+# For DC voltages
+ ted = asin(ed/eamp)/twopi_*period
+ npts = 40; sum = 0
+ for i=0 to npts do {
+ t = ted+(period/2-2*ted)*i/npts
+ sum += (eamp*cos(omega*t-pi_/2) - ed)*r }
+
+define(`Sine',`Cosine(eamp,omega,`$1',-pi_/2)')
+define(`axis',`line thick 0.4 right tmax chop -tmax*0.04 chop 0')
+
+Threephase: [ linethick_(1)
+ Ai: axis ; "$N_o$" ljust
+ EOrig: Ai.start+(tmax*0.04,0)
+ E1: sinusoid(eamp,omega,-pi_/2,-ted,tmax) with .Origin at EOrig
+ E2: sinusoid(eamp,omega,-pi_/2-twopi_/3,-ted,tmax) with .Origin at EOrig
+ E3: sinusoid(eamp,omega,-pi_/2+twopi_/3,-ted,tmax) with .Origin at EOrig
+ "$e_1$" at EOrig+(period/3,eamp*0.8) ljust above
+ "$e_2$" at EOrig+(2*period/3,eamp*0.8) ljust above
+ "$e_3$" at EOrig+(period,eamp*0.8) ljust above
+
+ Ad: axis with .end at Ai.end+(0,-eamp*2.1); "$N_o$" ljust
+ DOrig: Ad.start+(tmax*0.04,0)
+ Id: axis with .end at Ad.end+(0,-eamp*1.2); "${}0$" ljust
+ IOrig: Id.start+(tmax*0.04,0)
+
+ for i=1 to 11 by 2 do {
+ tl = max(0,period/2-i*period/6)
+ tr = min(period/2,tmax-(i*period/6-period/2))
+ sinusoid(eamp,omega,-pi_/2,tl,tr,thick 0.4 dashed) \
+ with .Origin at DOrig+(i*period/6-period/2,0)
+ tl = max(period/12,-(i*period/6-period/2+period/12) )
+ tr = period/2-period/12
+ S1: sinusoid(eamp*r,omega,-pi_/2,tl,tr) \
+ with .Origin at DOrig+(i*period/6-period/2,0)+(0,-ed*r); round(at S1.End)
+ S2: sinusoid(eamp*r,omega,-pi_/2,tl,tr) \
+ with .Origin at IOrig+(i*period/6-period/2,0)+(0,-ed*r); round(at S2.End)
+ }
+ "$e_1$" at DOrig+(period/3,eamp*0.8) ljust above
+ "$e_2$" at DOrig+(2*period/3,eamp*0.8) ljust above
+ "$e_3$" at DOrig+(period,eamp*0.8) ljust above
+
+ "$e_L$" at DOrig+(period/4,eamp*0.8) below
+ "$i_L$" at IOrig+(period/6,eamp*0.6) rjust above
+
+ vEd = r*eamp*cos(pi_/12)/(5*pi_/12) - r*ed
+ VEd: axis with .end at Ad.end+(0,vEd); "$E_D$" ljust
+ IEd: axis with .end at Id.end+(0,vEd); "$I_D$" ljust
+ ]
+
+Cct3:[
+ No: dot; {"$N_o$" below rjust }
+ { inductor(to Here+(Rect_(dimen_,60)),W); E2: "$e_2$" ljust }
+ { inductor(to Here+(Rect_(dimen_,-60)),W); E3: "$e_3$" ljust }
+ { inductor(from No-(dimen_,0) to No,W); E1: "$e_1$" above at last line.start }
+ D3: diode(down_ from E3); b_current(i_3,rjust); llabel(,,D_3)
+ line from E1 to (E1,D3.start)
+ D1: diode(down_); b_current(i_1,rjust); llabel(,,D_1)
+ line from E2 left E2.x-E1.x+dimen_/3 then down E2.y-E3.y \
+ then to 0.5 between D1.start and D3.start
+ D2: diode(down_); b_current(i_2,rjust); llabel(,,D_2)
+ { line from D1.end to D3.end }
+ dot
+ arrowline(down elen_/2); rlabel(,i_L)
+ resistor(right_ elen_); rlabel(+,e_L,-); llabel(,R)
+ line to (Here,No) then to No
+ ] with .e at Threephase.w-(0.5,0)
+
+Fullwave: [
+ linethick_(1)
+ Ai: axis ; "$N_o$" ljust
+ EOrig: Ai.start+(tmax*0.05,0)
+ E1: sinusoid(eamp,omega,-pi_/2,-ted,tmax) with .Origin at EOrig
+ "$e_1$" at EOrig+(period/3,eamp*0.8) ljust above
+ E2: sinusoid(eamp,omega, pi_/2,-ted,tmax) with .Origin at EOrig
+ "$e_2$" at EOrig+(period*5/6,eamp*0.8) ljust above
+
+ Ad: axis with .end at Ai.end+(0,-eamp*2.1); "$N_o$" ljust
+ DOrig: Ad.start+(tmax*0.05,0)
+ Id: axis with .end at Ad.end+(0,-eamp*1.2); "${}0$" ljust
+ IOrig: Id.start+(tmax*0.05,0)
+
+ for i=0 to 3 do {
+ if i<3 then { tf = period/2 } else { tf = Ad.end.x-(DOrig.x+3*period/2) }
+ sinusoid(eamp,omega,-pi_/2,0,tf,thick 0.4 dashed) \
+ with .Origin at DOrig+(i*period/2,0)
+ line from DOrig+(i*period/2-ted,0) right 2*ted
+ line from IOrig+(i*period/2-ted,0) right 2*ted
+ if i<3 then {tf = period/2-ted } else {tf = Ad.end.x-(DOrig.x+3*period/2) }
+ Ed: sinusoid(eamp*r,omega,-pi_/2,ted,tf) \
+ with .Origin at DOrig+(i*period/2,-ed*r)
+ Ed: sinusoid(eamp*r,omega,-pi_/2,ted,tf) \
+ with .Origin at IOrig+(i*period/2,-ed*r)
+ }
+ "$e_1$" at DOrig+(period/6,eamp*0.9) rjust above
+ "$e_2$" at DOrig+(period/6+period/2,eamp*0.9) rjust above
+ "$e_L$" at DOrig+(period/4,eamp*0.8) below
+ "$i_L$" at IOrig+(period/6,eamp*0.6) rjust above
+
+ vEd = sum/(period/2/(period/2-2*ted)*npts)
+ VEd: axis with .end at Ad.end+(0,vEd); "$E_D$" ljust
+ IEd: axis with .end at Id.end+(0,vEd); "$I_D$" ljust
+ ] with .sw at Threephase.nw+(0,0.5)
+
+Cct2:[
+ T: transformer(right_ elen_,R,8,AW,8)
+ line up elen_/2 from T.P1
+ gap(right_ elen_)
+ { sinusoid(0.08,omega*8,-pi_/2,0,twopi_/(omega*8)) with .c at last [] }
+ line to T.P2
+ line from T.S1 to (T.P1,T.S1) then down elen_/2
+ D1: diode(down_ elen_*3/4); rlabel(,D_1)
+ line from T.S2 to (T.P2,T.S2) then to (T.P2,D1.start)
+ D2: diode(down_ elen_*3/4); rlabel(,D_2)
+ corner; line to D1.end; corner
+ dot(at 0.5 between D1.end and D2.end)
+ arrowline(down elen_/2); rlabel(,i_L)
+ resistor(right_ elen_); rlabel(+,e_L,-); llabel(,R)
+ line to (Here,T.TS)-(0,elen_/2) then left Here.x-T.TS.x then to T.TS
+ {"$N_o$" at T.TS-(0,elen_/2) below }
+ thinlines_
+ move to T.TS-(0,0.1)
+ { arrow to (T.P1,Here) chop 0.05 "$e_1$" below }
+ { arrow to (T.P2,Here) chop 0.05 "$e_2$" below }
+ linethick_(1)
+ ] at (Cct3,Fullwave)
+
+Halfwave: [
+ linethick = 1
+ Ai: axis ; "$N_o$" ljust
+ EOrig: Ai.start+(tmax*0.05,0)
+ Ei: sinusoid(eamp,omega,-pi_/2,0,tmax) with .Origin at EOrig
+ "$e_i$" at EOrig+(period/3,eamp*0.8) ljust above
+
+ Ad: axis with .end at Ai.end+(0,-eamp*1.75); "$N_o$" ljust
+ DOrig: Ad.start+(tmax*0.05,0)
+ sinusoid(eamp,omega,-pi_/2,0,period/2,thick 0.4 dashed) with .Origin at DOrig
+ sinusoid(eamp,omega,-pi_/2,0,period/2,thick 0.4 dashed) \
+ with .Origin at DOrig+(period,0)
+ "$e_i$" at DOrig+(period/5,eamp*0.9) rjust above
+
+ line from Ad.start to DOrig+(ted,0)
+ Ed: sinusoid(eamp*r,omega,-pi_/2,ted,period/2-ted) \
+ with .Origin at DOrig+(0,-ed*r)
+ "$e_L$" at DOrig+(period/3,eamp*0.6) below
+ line from Ed.End right period/2+2*ted
+ Ed2: sinusoid(eamp*r,omega,-pi_/2,ted,period/2-ted) \
+ with .Origin at DOrig+(period,-ed*r)
+ line from Ed2.End to Ad.end
+
+ vEd = sum/(period/(period/2-2*ted)*npts)
+ VEd: axis with .end at Ad.end+(0,vEd); "$E_D$" ljust above
+
+ Id: axis with .end at Ad.end+(0,-eamp*1.0); "${}0$" ljust
+ IOrig: Id.start+(tmax*0.05,0)
+ line from Id.start to IOrig+(ted,0)
+ Sd: sinusoid(eamp*r,omega,-pi_/2,ted,period/2-ted) \
+ with .Origin at IOrig+(0,-ed*r)
+ "$i_L$" at IOrig+(period/3,eamp*0.7) above
+ line from Sd.End right period/2+2*ted
+ Sd2: sinusoid(eamp*r,omega,-pi_/2,ted,period/2-ted) \
+ with .Origin at IOrig+(period,-ed*r)
+ line from Sd2.End to Id.end
+ IEd: axis with .end at Id.end+(0,vEd); "$I_D$" ljust above
+ ] with .sw at Fullwave.nw+(0,0.5)
+
+Cct1:[ diode(down_ elen_); b_current(i_L,rjust,O,E); rlabel(D)
+ resistor(right_ elen_); rlabel(+,e_L,-); llabel(,R)
+ line up elen_
+ { "$N_o$" ljust below }
+ gap(left_ elen_); rlabel(-,e_i,+)
+ ] at (Cct3,Halfwave)
+
+
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Rectifiers.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/Resolver.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Resolver.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Resolver.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,49 @@
+.PS
+# `Resolver.m4'
+cct_init
+s_init(tst)
+sinclude(tst.dim)
+
+iflatex(`latexcommand({\scriptsize\sf)')
+
+[
+linewid = linewid*1.25
+define(`dotrad_',dotrad_/2)
+
+ T1: transformer(down_ dimen_/2)
+ line left from T1.P1; dot; move left 15bp__ "RH"
+ line left from T1.P2; dot; "RL" rjust
+ "Rotor ($r$)" at T1.TP rjust
+ line right_ dimen_*3/4 from T1.S2
+ C: Here
+ phi = 35
+ move right_ 0.1 from T1.S1; move from C to C+(Rect_(0.1,90+phi))
+ Q: Intersect_(last move,2nd last move)
+ Lr: inductor(from Q to C)
+ S1: line from T1.S1 to Q
+ A: C+(Rect_(dimen_*0.9,90+phi))
+ thinlines_
+ line dashed from Q to A chop 2bp__ chop 0
+ "Rotor shaft" at last line.end rjust "angle" rjust "" rjust
+ line dashed from C up_ dimen_*0.9 chop 2bp__ chop 0
+ arcd(C,dimen_*0.85,90,90+phi) ->
+ thicklines_
+ f_box($\phi$) at C+(Rect_(dimen_*0.85,90+phi/2))
+
+ d = distance(T1.P1,T1.P2)
+ Ls: inductor(up_ d from C+(d/2,0))
+ line right_ from Ls.end
+ D2: dot; "S2" ljust
+ line from Ls.start to (D2,Ls.start); dot; "S4" ljust
+ "$Kr\cos(\phi)$" at 0.5 between last "" and 2nd last ""
+ Lq: inductor(right_ d at (Lr,(C+(0,-d/3))))
+ line from Lq.end down_ d/4
+ K: Here; corner; line to (D2,K); dot; "S3" ljust
+ line from Lq.start down_ d*5/4
+ L: Here; corner; line to (D2,L); dot; "S1" ljust
+ "$Kr\sin(\phi)$" at 0.5 between last "" and 2nd last ""
+]
+"Resolver essentials" at last [].s below
+
+iflatex(`latexcommand(})')
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Resolver.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/Rotbox.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Rotbox.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Rotbox.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,17 @@
+.PS
+# Rotbox.m4
+gen_init
+
+ Point_(-10)
+ rotbox(boxwid/2,,thick 2)
+ Point_(30)
+ rotbox(,,shaded "green" outlined "blue",r=0.1) at last []+vec_(boxwid,0)
+ "r=0.1" at last []
+ move to last [].ne
+ Point_(0)
+ [ for_(2,8,2, `rotbox(,,dashed,t=m4x/10) at last []+vec_(boxwid*1.1,0)
+ sprintf("t=%g",m4x/10) at last [] ') ] with .nw at last [].ne+(0.1,0)
+ [ for_(10,16,2, `rotbox(,,dashed,t=m4x/10) at last []+vec_(boxwid*1.1,0)
+ sprintf("t=%g",m4x/10) at last [] ') ] with .nw at last [].sw+(0,-0.1)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Rotbox.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/SPM.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/SPM.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/SPM.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,59 @@
+.PS
+# `SPM.m4 Salient-pole machine'
+gen_init
+
+ outerrad = 1
+ medrad = 11/16
+ windings = 6
+ polewid = 3/8
+ twid = (outerrad-medrad)/3
+ srad = twid/4
+ halfline = ifgpic(0,linethick/2 pt__)
+
+ C: circle rad outerrad at 0,0
+ line from Rect_(outerrad,180+60) to (C.w,C.s) then down polewid/2 \
+ then right 2*outerrad then up polewid/2 then to Rect_(outerrad,-60)
+
+ line from C+(medrad,-twid/2) right twid then up twid then left twid \
+ chop -halfline
+ E: Here+(halfline,0)
+ for i = 1 to windings*2 do {
+ Point_(i*360/(windings*2))
+ arc ccw from E to C+vec_(medrad,-twid/2) with .c at C
+ E: rvec_(0,twid)
+ line to rvec_(twid,0) then to rvec_(twid,twid) then to E chop -halfline
+ }
+ move to C
+ for i = 0 to 3 do {{
+ Point_(i*90)
+ for_(-1,1,2,
+ `{ line from rvec_(polewid/2,m4x*polewid/2) \
+ to rvec_(medrad*2/3,m4x*polewid/2) \
+ then to rvec_(medrad*2/3,m4x*(polewid/2+polewid/5)) \
+ chop -halfline chop 0
+ { move to rvec_(0,-(m4x*polewid/5))
+ line from rvec_(-twid/2,m4x*twid/4) to rvec_(-twid/4,m4x*twid/4) \
+ then to rvec_(-twid/4,m4x*twid*3/4) \
+ then to rvec_(-twid*7/4,m4x*twid*3/4) \
+ then to rvec_(-twid*7/4,m4x*twid/4) \
+ then to rvec_(-twid/2,m4x*twid/4) }
+ T: rvec_(srad,0)
+ arc ifelse(m4x,-1,c)cw to (1+srad/distance(T,C))<C,T> with .c at T
+ }')
+ arc cw from last arc.end to 2nd last arc.end with .c at C
+ }}
+
+ t = distance(C,last arc.s)
+ "\sf N" at C+(0, t) below
+ "\sf N" at C+(0,-t) above
+ "\sf S" at C+(-t,0) ljust
+ "\sf S" at C+( t,0) rjust
+
+ for i = 0 to windings/2-1 do {
+ for j = 1 to 2 do { sprintf("$\char%g_%g$",97+i,j) \
+ at Rect_(outerrad-twid,180*(2-j)-i*360/windings) }
+ for j = 1 to 2 do { sprintf("$\char%g_%g'$",97+i,j) \
+ at Rect_(outerrad-twid,180*(2-j)-90-i*360/windings) }
+ }
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/SPM.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/SQUID.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/SQUID.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/SQUID.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,22 @@
+.PS
+# SQUID.m4
+cct_init
+
+divert(-1)
+divert(0)dnl
+
+down_
+#source
+S1: SQUID
+ "J1" at S1.J1 above rjust
+ "J2" at S1.J2 above ljust
+
+S2: SQUID(3,dimen_*1.5,-120) at S1.e+(elen_,0)
+ "J1" at S2.J1 above rjust
+ "J2" at S2.J2 below ljust
+ "J3" at S2.J3 above ljust
+ arcrad = S2.C.rad*0.7
+ arc from S2.c+(Rect_(arcrad,-135)) to S2.c+(Rect_(arcrad,-45)) \
+ with .c at S2.C ->
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/SQUID.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/Schottky.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Schottky.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Schottky.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,51 @@
+.PS
+# Schottky.m4
+# 4-input positive NAND: the Schottky option for transistors (TI TTL data book)
+ cct_init
+
+ tic = dimen_/4
+ rlen = dimen_*3/4
+
+E1: dot; line up_ tic
+Q1: bi_trans(,,dEBCBUS) with .E at Here; line left tic from Q1.B; B1: Here
+ resistor(up_ rlen from Q1.C); llabel(,\unit{3}{\kilo})
+B2: dot; line right_ tic
+Q2: bi_trans(up_ dimen_,,dEBCBUS) with .B at Here
+ line from Q2.E to (Q2.E,E1); dot
+Gnd: "GND" ljust at Here+(dimen_/2,0)
+ dot(at Q2.C)
+ { line to (Gnd,Here); "Y" ljust }
+ line to (Q1.C,Here); dot
+ resistor(up_ rlen); llabel(,\unit{4}{\kilo}); B4: dot; line right_ tic; up_
+Q4: bi_tr with .B at Here
+ line from Q4.E to Q2.C
+ line up_ tic from B4
+Q5: bi_trans(,,dEBCBUS) with .E at Here; line left_ tic from Q5.B; B5: dot
+ line from Q5.C to (Q4.C,Q5.C); dot
+ { line to Q4.C }
+ resistor(up_ rlen); llabel(,iflatex(120,"120")); dot
+Vcc: "Vcc" ljust at (Gnd,Here)
+ dot(at (B5,Vcc))
+ resistor(to (Here,Q5.C)); llabel(,\unit{8}{\kilo})
+ diode(from (B4,Q2.C) to (B5,Q2.C),Z)
+ line to (Here,Q5.C)
+ diode(from B4 to (Here,B4),Z); dot
+ line left_ tic; up_
+Q3: bi_trans(,,dEBCBUS) with .C at Here; line left_ tic from Q3.B; B3: Here
+ line from Q3.E to (Q3.E,B2); dot
+ dot(at (B1,Here)); resistor(down_ to (Here,Q1.C)); rlabel(,\unit{1.5}{\kilo}); line to B1
+ resistor(down_ from B3 to (B3,B2)); rlabel(,\unit{12}{\kilo}); line to B2
+ line from Vcc to (B3,Vcc); resistor(down_ to (Here,Q5.C))
+ rlabel(,\unit{20}{\kilo})
+ line to B3
+ ground(at (Q3.C,Gnd),,F); dot
+
+ for i=0 to 3 do {
+ dot(at (B3+(0,tic*i)))
+ line left_ tic*i; diode(left_ dimen_,Z); dot
+ {line down_ dimen_; reversed(`diode',down_ dimen_,Z); line to (Here,Gnd)
+ if i==3 then { line to Gnd } else { dot }}
+ line left_ tic*(4-i); ifpostscript(,`sprintf("\char%g",64+(4-i)) rjust')
+ }
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Schottky.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/Shaky.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Shaky.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Shaky.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,141 @@
+.PS
+# Shaky.m4
+gen_init
+NeedDpicTools
+divert(-1)
+ `An attempt to draw shaky hand-drawn lines'
+
+ `shakyline(linespec,type,s=shake,[shakevals])
+ Draw a line with a tremor
+ arg3: s=shake parameter (default 1)
+ arg4=normal(0,1) perturbations used if given'
+define(`shakyline',
+`rpoint_(ifelse(`$1',,`to rvec_(linewid,0)',`$1'))
+ M4_start: last line.start
+ M4_end: last line.end
+ [ Start: M4_start
+ End: M4_end
+ llen = distance(Start,End)
+ npts = round_(llen/linewid*4)
+ setkey_($3,s,1)
+ if "$4"=="" then { randn(d,npts-1,0,m4s*(llen/npts/8)) }\
+ else { for i=1 to npts-1 do { d[i] = $4[i]*m4s*(llen/npts/8) }}
+ P[0]: Start
+ for i=1 to npts-1 do { P[i]: i/npts between Start and End + (vec_(0,d[i])) }
+ P[npts]: End
+ spline $2 from P[0] to P[1]
+ for i=2 to npts do { continue to P[i] }
+ ] with .Start at last line.start; move to last line.end')
+
+ `shakyarc(arcspec,type,s=shake,[shakevals])
+ Draw an arc with a tremor
+ arg3: s=shake parameter (default 1)
+ arg4=normal(0,1) perturbations used if given'
+define(`shakyarc',
+`arc invis $1
+ M4_start: last arc.start
+ M4_end: last arc.end
+ M4_C: last arc.c
+ [ Start: M4_start
+ End: M4_end
+ C: M4_C
+ as = atan2(Start.y-C.y,Start.x-C.x)
+ ae = atan2(End.y-C.y,End.x-C.x)
+ ar = distance(Start,C)
+ llen = abs(ar*(ae-as))
+ npts = round_(llen/linewid*4)
+ setkey_($3,s,1)
+ if "$4"=="" then { randn(d,npts-1,0,m4s*(llen/npts/8)) }\
+ else { for i=1 to npts-1 do { d[i] = $4[i]*m4s*(llen/npts/8) }}
+ P[0]: Start
+ for i=1 to npts-1 do { P[i]: C + (rect_(ar+d[i],as+i/npts*(ae-as))) }
+ P[npts]: End
+ spline $2 from P[0] to P[1]
+ for i=2 to npts do { continue to P[i] }
+ ] with .Start at last arc.start; move to last arc.end')
+
+ `shakyspline(points,type,s=shake,[shakevals])
+ Draw a spline with a tremor
+ arg3: s=shake parameter (default 1)
+ arg4=normal(0,1) perturbations used if given'
+define(`shakyspline',
+`rpoint_(ifelse(`$1',,`to rvec_(linewid,0)',`$1'))
+ M4_start: last line.start
+ M4_end: last line.end
+ [ Start: M4_start
+ End: M4_end
+ llen = distance(Start,End)
+ npts = round_(llen/linewid*4)
+ setkey_($3,s,1)
+ if "$4"=="" then { randn(d,npts-1,0,m4s*(llen/npts/8)) }\
+ else { for i=1 to npts-1 do { d[i] = $4[i]*m4s*(llen/npts/8) }}
+ P[0]: Start
+ for i=1 to npts-1 do { P[i]: i/npts between Start and End + (vec_(0,d[i])) }
+ P[npts]: End
+ spline $2 from P[0] to P[1]
+ for i=2 to npts do { continue to P[i] }
+ ] with .Start at last line.start; move to last line.end')
+
+ `shakyfitcurve(V,n,linetype,
+ m (default 0),s=val,[shakevals])
+ Like fitcurve but the control points
+ are perturbed
+ arg5: s=shake parameter (default 1)
+ arg6=normal(0,1) perturbations used if given'
+define(`shakyfitcurve',`
+ {[ m4fn = `$2'; m4fm = ifelse(`$4',,0,`$4')
+ M4P_[0]: `$1'[m4fm]
+ setkey_($5,s,1)
+# if "$6"=="" then { !!!!
+# else { for i=1 to npts-1 do { d[i] = $5[i]*m4s*(llen/npts/8) }}
+ for i=m4fm+1 to m4fn-1 do { M4P_[i-m4fm]: `$1'[i]*(4/3) }
+ M4P_[m4fn-m4fm]: `$1'[m4fn]
+ n = m4fn-m4fm
+ # forward substitution
+ M4P_[1]: M4P_[1]-M4P_[0]/6
+ d[1] = 1
+ for i = 2 to n-1 do {
+ M4P_[i]: M4P_[i]-M4P_[i-1]/(d[i-1]*6)
+ d[i] = 1-1/d[i-1]/36 }
+ # backward substitution
+ for i= n-1 to 1 by -1 do {
+ M4P_[i]: (M4P_[i]-M4P_[i+1]/6)/d[i] }
+ # draw using computed control points
+ spline 0.55 `$3' from M4P_[0] to 11/32 between M4P_[0] and M4P_[1] \
+ then to 5/32 between M4P_[1] and M4P_[2]
+ for i=2 to n-2 do { continue to M4P_[i] }
+ continue to 27/32 between M4P_[n-2] and M4P_[n-1] \
+ then to 21/32 between M4P_[n-1] and M4P_[n] then to M4P_[n]
+ ] with .M4P_[0] at `$1'[ifelse(`$4',,0,`$4')]} ')
+
+
+divert(0)
+
+[
+ linethick = 2.5
+ round(,,colored "gray")
+ nl = 10
+ for i=1 to nl do {
+ shakyline(right 6/nl up 2*(2*pmod(i,2)-1),colored "gray",s=1)
+ round(,,colored "gray") }
+ ]
+
+[
+ linethick = 2.5
+ na = 3
+ arcrad = 1
+ for i=1 to na do {
+ shakyarc(,colored "gray",s=1)
+ }
+ ] with .nw at last [].sw +(0,-1)
+
+[
+ linethick = 2.5
+ na = 3
+ arcrad = 2
+ for i=1 to na do {
+ shakyarc(,colored "gray",s=1)
+ }
+ ] with .sw at last [].se +(1,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Shaky.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/Sierpinski.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Sierpinski.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Sierpinski.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,27 @@
+.PS
+# Sierpinski.m4
+gen_init
+`define Sierpinski' {
+ if $1 > 0.04 then {
+ d = $1/2-lh
+ shade(1,line from $2+(d/2,d/2*s3+lw*2) right d/2 up d/2*s3 then left d*2 \
+ then right d down d*s3 then right d/2 up d/2*s3 )
+ Sierpinski($1/2,$2-($1/2,0))
+ Sierpinski($1/2,$2+($1/2,0))
+ Sierpinski($1/2,$2+(0,$1*s3/2))
+ }
+ }
+
+ r = 4
+ linethick = 0.2
+ #linethick = 1/2 /(1pt__)
+ lw = linethick pt__ /2
+ s3 = sqrt(3)
+ lh = lw*s3
+ A: 3,3
+ d = r/2-lh
+ shade(0,line from A+(0,lw) right d then up d*s3 left d then down d*s3 left d\
+ then right d )
+ psset_(linecolor=white)
+ Sierpinski(r/2,A)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Sierpinski.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/Sixpole.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Sixpole.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Sixpole.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,25 @@
+.PS
+# sixpole.m4
+define(`biquad',`[
+In: Here
+ resistor(right_)
+E: dot
+ resistor
+ dot
+ {capacitor(down_,C); ground(,T)}
+ line right_ elen_/3
+ { dot
+ line up_ elen_
+ amp(to (E,Here),elen_/2)
+ capacitor(from E to Here,C) }
+ amp(right_,elen_/2)
+ Out: Here
+ ]')
+
+cct_init
+define(`elen_',linewid)
+
+ biquad
+ biquad with .In at last [].Out+(-linewid/4,0)
+ biquad with .In at last [].Out+(-linewid/4,0)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Sixpole.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/TTLnand.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/TTLnand.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/TTLnand.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,50 @@
+.PS
+# TTLnand.m4
+ cct_init
+ up_
+Q3: bi_tr
+ "\sf Q3" at Q3.E above ljust
+ dot(at Q3.C); reversed(`diode',up_ dimen_/2)
+Q4: bi_tr with .E at Here
+ "\sf Q4" at Q4.E above ljust
+ resistor(up_ dimen_ from Q4.C); rlabel(,`130\,\mathrm{\Omega}')
+V: dot
+ line left_ dimen_*0.75 from Q4.B; dot
+ line left_ dimen_*0.75 from Q3.B; dot
+Q2: bi_tr(up_ Q4.B.y-Q3.B.y) with .E at Here
+ "\sf Q2" at 1/2 between Q2.E and Q2.C ljust
+ resistor(from Q2.C to (Q2.C,V)); rlabel(,`1.6\,\mathrm{k\Omega}'); dot
+ resistor(from Q2.E down_ dimen_); llabel(,`1\,\mathrm{k\Omega}')
+ line to (Q4.E,Here)
+G: dot
+ line to Q3.E
+ line left_ dimen_/4 from Q2.B
+ right_
+Q1: bi_trans(,,BCdE2BU) with .C at Here
+ "\sf Q1" at Q1.Bulk above rjust
+ resistor(up_ from Q1.B to (Q1.B,V)); rlabel(,`4\,\mathrm{k\Omega}')
+ line to V
+
+ line left dimen_ from Q1.E2
+X1: dot; "$X1$" rjust above at last [].w
+X2: dot(at (X1,Q3.C)); "$X2$" rjust at last [].w
+ AA: line invis right dimen_ from X2
+ line from X2 to Intersect_(AA,Q1.Em1) then to Q1.E1
+X3: dot(at 2 between X1 and X2); "$X3$" rjust below at last [].w
+ AA: line invis right dimen_ from X3
+ line from X3 to Intersect_(AA,Q1.Em0) then to Q1.E0
+
+W: X2+(dimen_/2,0)
+N: V+(0,dimen_/4)
+S: (N.x,N.y-2*(N.y-W.y))
+ line from V to 2 between V and N
+Vcc:dot; "$+5\,\hbox{V}$" ljust at last [].e
+ line from G to (G,S)
+ ground
+ line from N to (W,N) then to (W,S) then to S
+ arc rad N.y-W.y ccw to N with .c at 1/2 between N and S
+
+ line right (N.y-S.y)/2+dimen_/2 from Q3.C
+Z: dot; "$Z = \overline{X1\cdot X2\cdot X3}$" ljust
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/TTLnand.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/Three.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Three.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Three.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,44 @@
+.PS
+# Three.m4: three-phase oscillator
+ cct_init
+
+define(`section',`[ I: Here
+ resistor(right elen_*0.75); llabel(,R/2)
+T: dot
+ line down dimen_/2 then right_ dimen_/4
+ Amp: opamp(,,,,,
+ rgbfill(0.9,0.6,0.1,line to N then to E then to S then to Here)
+ "{\scriptsize$-$}" at In1 ljust
+ "{\scriptsize$+$}" at In2 ljust
+ ) with .In1 at Here
+ line left dimen_/4 from Amp.In2 then down dimen_/4; G: ground
+ resistor(from T to (Amp.Out,T)); llabel(,R)
+O: dot
+ { arrow up dimen_*0.5 then right dimen_/4 up dimen_/4
+ "$`$1^\circ'$" above }
+ line to Amp.Out
+ dot(at T+(dimen_/4,0)); line up dimen_*0.6
+ capacitor(right_ Amp.Out.x-Here.x-dimen_/4,C); llabel(,2C)
+ line to (Here,T); dot
+ ]')
+
+A: section(0)
+B: section(120) with .I at A.O
+C: section(-120) with .I at B.O
+
+ ground(at (A.I,A.G)+(dimen_/3,0),,)
+P:potentiometer(down_ dimen_/2,,0.75,dimen_/2) with .End at Here
+ line from P.Start to (A.I,P.Start); dot
+ resistor(up_ dimen_*0.75 from P.T1)
+ line to A.T
+
+ dot(at B.Amp.Out+(dimen_/3,0)); { "$V_c$" above }
+ resistor(down_ dimen_*0.75)
+ { dot; line right (C.T.x-Here.x)/2
+ reversed(`diode',up_ dimen_)
+ line to C.T }
+ resistor(down_ dimen_*0.75)
+ dot
+ line from C.O right dimen_/4 then down C.O.y-Here.y then to (A.I,Here) \
+ then to A.I
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Three.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/Timer.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Timer.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Timer.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,52 @@
+.PS
+# Timer.m4
+cct_init
+iflatex(`latexcommand({\small\sf)')
+
+define(`ic555',`[Chip: box ht boxwid wid boxwid "555"
+ P7: "7" ljust at 1/6<Chip.sw,Chip.nw>
+ P6: "6" ljust at 1/2<Chip.sw,Chip.nw>
+ P2: "2" ljust at 5/6<Chip.sw,Chip.nw>
+ P4: "4" below at 1/3<Chip.nw,Chip.ne>
+ P8: "8" below at 2/3<Chip.nw,Chip.ne>
+ P3: "3" rjust at Chip.e
+ P1: "1" above at Chip.s
+ ]')
+
+ define(`elen_',`linewid')
+Vs: dot
+ down_
+ variable(`resistor(,E); llabel(,1`\,'\hbox{M})')
+ resistor(,E); llabel(,100`\,'\hbox{k})
+ capacitor(,E); llabel(220`\,'\mu)
+Zero: dot
+
+ dot(at Vs+(elen_*4/3,0))
+ resistor(,E); llabel(,33`\,'\hbox{k})
+ line to (Here,Zero) chop 0 chop elen_
+C2: capacitor; llabel(0.1`\,'\mu)
+ dot
+
+IC1: ic555 with .P7 at C2.start + (elen_,0)
+ line from IC1.P4 to (IC1.P4,Vs); dot
+ line from IC1.P8 to (IC1.P8,Vs); dot
+ line from IC1.P1 to (IC1.P1,Zero); dot
+ line from IC1.P2 to (C2,IC1.P2); dot
+ crossover(from IC1.P7 to (Zero,IC1.P7),R,C2); dot
+ line from IC1.P6 left elen_/2 then down IC1.P6.y-IC1.P7.y; dot
+ line from IC1.P3 right elen_*2/3
+R: dot
+ line right_ elen_/3
+B: buzzer(,,C) with .In3 at Here
+ line from B.In1 to (R,B.In1)
+ reversed(`diode',to (Here,Vs),LE); "red" at last line.c+(elen_/2,0)
+ resistor(down_ elen_ from R,E); llabel(,470)
+ diode(to (Here,Zero),LE); {"green" at last line.c+(elen_*2/3,0)}
+ line to Zero chop 0 chop -elen_
+ line up_ (Vs.y-Here.y)/3
+ battery(up_ (Vs.y-Here.y)/3); rlabel(,,9`\,'\hbox{V})
+ switch(to (Here,Vs),,D)
+ line to (R,Vs)
+
+iflatex(`latexcommand(})')
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Timer.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/Ttree.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Ttree.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Ttree.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,56 @@
+.PS
+# Ttree.m4
+# A binary tree using m4
+gen_init
+sinclude(tst.dim)
+s_init(Ttree)
+
+# `Node(no in row, head [location],
+# displacement of top of body (.n) wrt head,
+# body Node 1, body Node 2, ...) '
+define(`Node',`
+ Head`$1': `$2'
+ ifelse(`$3',,,`Body`$1': [
+ Loopover_(`v',`v; define(`m4ct',m4Lx)',shift(shift(shift($@))))
+ ] with .n at Head`$1' + `$3'
+ connect(`$1',m4ct)')')
+
+define(`connect',`Bot: move from Head$1.sw to Head$1.se
+for_(1,`$2',1,
+ `Top: move from Body$1.Head`'m4x.nw to Body$1.Head`'m4x.ne
+ Move: move from Head$1 to Body$1.Head`'m4x
+ if Bot.len*Top.len*Move.len > 0 then {
+ line from Intersect_(Move,Top) to Intersect_(Move,Bot)}')')
+
+ vsep = 0.75
+
+ Node(1,s_box($`h(h(h(x_1,x_2),h(x_3,x_4)),h(h(x_5,x_6),h(x_7,x_8)))'$),
+ (0,-vsep),
+ Node(1,s_box($`h(h(x_1,x_2),h(x_3,x_4))'$),
+ (0,-vsep),
+ Node(1,s_box($`h(x_1,x_2)'$),
+ (0,-vsep),
+ Node(1,s_box($`x_1:=((A,pk_A),h_1)'$)),
+ Node(2,s_box($`x_2:=((B,pk_B),h_2)'$) \
+ with .n at last "".ne+(0.2,-vsep*2/3))),
+ Node(2,s_box($`h(x_3,x_4)'$) with .nw at Head1.ne+(Body1.wid/2+0.1,0),
+ (0,-vsep),
+ Node(1,s_box($`x_3:=((A,pk_A^\prime),h_3)'$)),
+ Node(2,s_box($`x_4:=((D,pk_D),h_4)'$) \
+ with .n at last "".ne+(0.2,-vsep*2/3)))),
+ Node(2,s_box($`h(h(x_5,x_6),h(x_7,x_8))'$) \
+ with .nw at Head1.ne+(Body1.wid/2,0),
+ (0,-vsep),
+ Node(1,s_box($`h(x_5,x_6)'$),
+ (0,-vsep*5/4),
+ Node(1,s_box($`x_5:=((E,pk_E),h_5)'$)),
+ Node(2,s_box($`x_6:=((H,pk_H),h_6)'$) \
+ with .n at last "".ne+(0.2,-vsep*2/3))),
+ Node(2,s_box($`h(x_7,x_8)'$) with .nw at Head1.ne+(Body1.wid/2+0.1,0),
+ (0,-vsep*5/4),
+ Node(1,s_box($`x_7:=((D,pk_D^\prime),h_7)'$)),
+ Node(2,s_box($`x_8:=((K,pk_K),h_8)'$) \
+ with .n at last "".ne+(0.2,-vsep*2/3))),
+ Node(3,s_box($`h(x_9)'$) at 0.5 between Head1 and Head2)))
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Ttree.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/Wheat.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Wheat.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Wheat.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,20 @@
+.PS
+# `Wheat.m4'
+gen_init
+
+boxwid = boxht
+
+for j = 0 to 7 do {
+ for i = 0 to 7 do {
+ box fill_((i+j)%2) at (j*boxwid,-i*boxwid)
+ x = 2^(j+8*i)
+ if (i+j)%2==0 then { command "{\white" } else { command "{\black" }
+ if x < 10000 then { sprintf("\Large$%g$",x) at last box } \
+ else { y = int(log(x))
+ sprintf("{\Large$%g$}$\cdot 10^{%g}$",round_(x/(10^y)),y) \
+ at last box }
+ command "}"
+ }
+ }
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/Wheat.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/XOR.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/XOR.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/XOR.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,66 @@
+.PS
+# `XOR.m4'
+# Some realizations of the XOR function
+log_init
+scale = 2.54
+
+define(`gatelineth',1.6) # gate line thickness
+define(`lineth',0.8) # connection thickness
+
+define(`labels',`
+ "$A$" at last [].InA above
+ "$B$" at last [].InB above
+ "$A\oplus B$" at last [].Out ljust
+')
+
+# single gate
+ XOR: Autologix(Xor(A,B))
+ labels
+
+# canonical form
+ Autologix(Or(And(A,Not(B)),And(Not(A),B))) \
+ with .nw at last [].sw+(0,-1)
+ labels
+
+# mixed gates
+ Autologix(And(Nand(A,B),Or(A,B))) \
+ with .nw at last [].nw+(8,0)
+ labels
+
+# nand realization
+ Autologix(Nand(Nand(Nand(A,A),B),Nand(Nand(B,B),A))) \
+ with .nw at 2nd last [].sw+(0,-1)
+ labels
+
+# nor realization
+ Autologix(Nor(Nor(Nor(A,A),Nor(B,B)),Nor(A,B))) \
+ with .nw at last [].nw+(8,0)
+ labels
+
+# These functions contain topologies in common so write a macro
+define(`customAB',
+ `S: Autologix(N`$1'(N`$1'(A,B1),N`$1'(B1,B)),N) with .Out at Here
+ line thick lineth from S.In2 to S.In3; InAB: dot(at last line.c)
+ line thick lineth from InAB left 2*L_unit
+ TN: Autologix(N`$1'(A,B)) with .Out at Here
+ line thick lineth from TN.InA up 3*L_unit; InA: Here
+ line thick lineth from TN.InB up 3*L_unit; InB: Here
+ line thick lineth from S.In4 to (InB,S.In4) then to (InB,TN.In2); dot
+ line thick lineth from S.In1 to (InA,S.In1); dot')
+
+ [ customAB(and)
+ Out: S.Out
+ ] with .nw at 2nd last [].sw+(0,-1)
+ labels
+
+ [ linethick = gatelineth
+ H: NOR_gate(2); linethick = lineth
+ L:dot(at H.w-(2*L_unit,0))
+ line from H.In1 to (L,H.In1) then to (L,H.In2) then to H.In2
+ line from L left 2*L_unit
+ customAB(or)
+ Out: H.Out
+ ] with .nw at last [].nw+(8,0)
+ labels
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/XOR.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/birds.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/birds.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/birds.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,34 @@
+.PS
+gen_init
+scale = 50
+linethick = 2*linethick
+
+define bird {[
+ line shaded "$1" from (0,0) to \
+ (10,-5) to (19,8) to (35,7) to (38,-12)+(0,2) to (60,0) to\
+ (75,23) to (80,40) to (52,37)+(2,2) to (74,50) to (52,50) to \
+ (60,60) to (38,48)+(0,2) to (35,67) to (19,68) to (10,55) to \
+ (0,60) to (-8,50) to (14,50) to (-8,37)+(2,2) to (20,40) to \
+ (15,23) to (0,0)
+E: (80,40)
+W: (20,40)
+N: (19,68)
+S: (19,8)
+ line outlined "gray" from (35,15) down 10 right 25
+ line outlined "gray" from (40,20) right 25 down 8
+ line outlined "gray" from (42,25) right 28 down 6
+ line outlined "gray" from (40,30) right 32 down 4
+ circle outlined "gray" rad 1 at (1,55)
+ circle outlined "gray" rad 4 at (24,55)
+]}
+
+ ncols = 4
+ nrows = 4
+ right
+ for i=0 to nrows-1 do {
+ for j=0 to ncols-1 do { move to (j*60,-i*60)
+ if (i+j)%2==0 then { bird(black) } else { bird(white) }
+ }
+ }
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/birds.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/bistable.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/bistable.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/bistable.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,35 @@
+.PS
+# `bistable.m4'
+cct_init # Default initialization
+
+ up_
+rgbdraw(1,0,0,
+Q1: bi_tr(,R) # Q1 upward with base to the right
+ llabel(,Q_1) ) # Label to left of last []
+rgbdraw(0,0,1,
+Q2: bi_tr with .C at Q1.C+(elen_*7/4,0) # Q2 with base to left
+ rlabel(,Q_2) )
+
+ ground(at Q1.E)
+ ground(at Q2.E)
+
+ line right_ dimen_/3 from Q1.B # Extend the base conductors
+B1: Here
+ line left_ dimen_/3 from Q2.B
+B2: Here
+
+ resistor(up_ elen_*0.75 from Q1.C); llabel(,"$R_L$" wid 0.16) # Load resistors
+ line to (Q2.C,Here) "$V_{\hbox{cc}}$" below
+ resistor(down_ to Q2.C); llabel(,R_L)
+
+ move to Q1.C+(0,dimen_/5)
+ { resistor(right_ to (B1,Here)); llabel(,R_1)
+X: line to B2 } # Label the line to be jumped
+ resistor(from (Q2.C,Here) left_ to (B2,Here)); rlabel(,R_1)
+ crossover(to B1,R,X)
+
+ resistor(down_ elen_*0.75); rlabel(,R_2) # Bias resistors
+ {"$-V_{\hbox{cc}}$" rjust}
+ line to (B2,Here)
+ resistor(up_ to B2); rlabel(,R_2)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/bistable.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/brace.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/brace.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/brace.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,80 @@
+.PS
+# brace.m4
+gen_init
+NeedDpicTools
+
+divert(-1)
+ `brace(linespec,depth,arm thickness,attributes)
+ Curly brace along linespec
+ default depth is linewid/5
+ attributes = eg
+ thick 0.4 outlined "string" shaded "string"
+ (default black)'
+define(`brace',`rpoint_(ifelse(`$1',,`to rvec_(linewid,0)',`$1'))
+ M4brS: last line.start; M4brE: last line.end
+ [ brdepth = ifelse(`$2',,linewid/5,`$2')
+ brthick = ifelse(`$3',,brdepth/6,`$3')
+ define(`m4braceattribs',
+ `ifelse(`$4',,`thick 0.4 shaded rgbstring(0,0,0)',`$4')')dnl
+ tension = 0.55
+ halfwid = distance(M4brS,M4brE)
+ smallrad = brdepth-brthick
+ bigrad = brdepth+brthick
+ for sgn=1 to -1 by -2 do {
+ S: rvec_(sgn*halfwid/2,0)
+ A: S+vec_(0,smallrad/2)
+ B: vec_(0,smallrad/2)
+ T: vec_(0,brdepth)
+ C: vec_(0,bigrad/2)
+ D: vec_(sgn*halfwid/2,bigrad/2)
+ {spline tension m4braceattribs \
+ from S to tension between S and A \
+ then to tension between A-vec_(sgn*bigrad/2,0) and A \
+ then to A-vec_(sgn*bigrad/2,0) \
+ then to B+vec_(sgn*bigrad/2,0) \
+ then to tension between B+vec_(sgn*bigrad/2,0) and B \
+ then to tension between T and B \
+ then to T \
+ then to tension between T and C \
+ then to tension between C+vec_(sgn*bigrad/2,0) and C \
+ then to C+vec_(sgn*bigrad/2,0) \
+ then to D-vec_(sgn*bigrad/2,0) \
+ then to tension between D-vec_(sgn*bigrad/2,0) and D \
+ then to tension between S and D \
+ then to S }
+ }
+ E: (0,0)
+] with .E at 0.5 between M4brS and M4brE')
+divert(0)dnl
+
+ del = 0.2
+ maxht = 2
+ minht = 0.3
+ n = 16
+ hmax = 360
+R1: [
+ for i=0 to n-1 do {
+ x = i/n
+ y = minht*(1-x)+maxht*x
+ hsvtorgb(x*hmax,1,1,r,g,b)
+ brace(from (-i*del,-y/2) up y,,,thick 0.4 \
+ shaded rgbstring(r,g,b))
+ brace(from ((i+1)*del,y/2) down y,,,thick 0.4 \
+ outlined rgbstring(r,g,b) \
+ shaded rgbstring(r,g,b))
+ }
+ ]
+R2: [
+ for i=0 to n-1 do {
+ x = i/n
+ y = minht*(1-x)+maxht*x
+ hsvtorgb(x*hmax,1,1,r,g,b)
+ brace(from (-i*del,-y/2) up y,5bp__+x*20bp__,2bp__+x*13bp__,thick 0.4 \
+ shaded rgbstring(r,g,b))
+ brace(from ((i+1)*del,y/2) down y,5bp__+x*20bp__,2bp__+x*13bp__,thick 0.4 \
+ outlined rgbstring(r,g,b) \
+ shaded rgbstring(r,g,b))
+ }
+ ] with .n at R1.s+(0,-0.2)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/brace.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/chaos.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/chaos.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/chaos.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,39 @@
+.PS
+# chaos.m4
+# Example simulation of chaos equations.
+gen_init
+scale = 10
+define(`FF',`dnl
+ `$4' = `$1'+dt*10*(-`$1'+`$2')
+ `$5' = `$2'+dt*(28*`$1'-`$2'-`$1'*`$3')
+ `$6' = `$3'+dt*(-8*`$3'/3+`$1'*`$2') ')
+[
+x0 = 1
+y0 = 0
+z0 = 0
+dt = 0.005
+nN = 100
+for i = 1 to nN do {
+ for j = 1 to 8 do {
+ FF(x0,y0,z0,x1,y1,z1)
+ FF(x1,y1,z1,x2,y2,z2)
+ FF(x2,y2,z2,x3,y3,z3)
+ FF(x3,y3,z3,x4,y4,z4)
+ spline from x0,y0 to x1,y1 then to x2,y2 then to x3,y3 then to x4,y4
+ x0 = x4; y0 = y4; z0 = z4
+ }
+ }
+arrow from (-15,0) to (15,0); "$x$" ljust
+line up 1 from (10,0); "$ 10$" at last line.start below
+line up 1 from (-10,0); "$-10$" at last line.start below
+arrow from (0,-15) to (0,15); "$y$" above
+line right 1 from (0,10); "$ 10$" at last line.start rjust
+line right 1 from (0,-10); "$-10$" at last line.start rjust
+"$ 0$" at (0,0) below rjust
+]
+`"\parbox{2.5in}{\begin{eqnarray*}
+ \dot{x}_1 & = & 10(-x_1+x_2)\\
+ \dot{x}_2 & = & 28x_1-x_2-x_1x_3\\
+ \dot{x}_3 & = & -8x_3/3+x_1x_2
+ .\end{eqnarray*}}"' at last [].s below
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/chaos.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/clock.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/clock.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/clock.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,20 @@
+.PS
+# clock.m4
+gen_init
+
+ linethick = 1.5
+ arrowwid = 5 pt__
+
+ rgbfill(255/255,250/255,205/255,
+ Clock: circle rad 0.75 at (0,0) )
+
+ command "\newcounter{hour}"
+ for time=1 to 12 do {
+ sprintf("\setcounter{hour}{%g}\Roman{hour}",time) \
+ at Rect_(Clock.rad*0.85,90-time*30)
+ }
+ line <-> from Rect_(Clock.rad*0.95,90-8.5*30) to Clock \
+ then to Rect_(Clock.rad*0.7,90-3.5*30)
+ line thick 1 outline "red" from Clock to Rect_(Clock.rad*0.95,90-0.75*30)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/clock.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/control.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/control.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/control.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,142 @@
+.PS
+# control.m4
+gen_init
+ linewid = linewid*0.8
+ circlerad = 0.35/2
+ bw = boxwid/2
+ bh = boxht/2
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . #
+
+PID: [
+ {"$r(s)$" above ljust}
+ arrow
+S1: circle
+ line right "$e(s)$" above
+ { arrow right ; box ht bh wid bw "$K_p$"
+ arrow right linewid-circlerad ; S2: circle }
+ { line up linewid ; arrow right ; box ht bh wid bw "$K_D s$"
+ line to (S2,Here) ; arrow to S2.n }
+ { line down linewid ; arrow right ; box ht bh wid bw "$K_I/s$"
+ line to (S2,Here) ; arrow to S2.s }
+ arrow right from S2.e "$u(s)$" above
+ box "$G(s)$"
+ arrow right ; "$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__)
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . #
+
+Observer: [ {"$r$" above ljust}
+ arrow
+S: circle
+ "$-\;$" below rjust at S.s
+ arrow <- down linewid/2 from S.s
+ box ht bh wid bw "$K$"
+ arrow <- down linewid/2
+ line right linewid "$\hat x$" above
+Obs:box wid linewid*5 ht boxht*5/4 \
+ "$\frac{d}{dt}\hat x = (A{-}LC)\hat x + B u + L y$"
+ "\sl Observer" above ljust at Obs.sw
+ arrow <- right linewid/2 from 3/4<Obs.se,Obs.ne>
+ line to (Here,S)
+ {"$u$" above at Here+(linewid/2,0)}
+ arrow from S.e to Here+(linewid,0)
+Plant: box wid boxwid*3/2 ht boxht*5/4 \
+ "$\frac{d}{dt} x=Ax+Bu$" "$\quad y=Cx$\hfill\hbox{}"
+ "\sl Plant" above ljust at Plant.sw
+ arrow right from Plant.e
+ "$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 Observer.sw+(0,-5pt__)
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . #
+
+Multiblock: [
+boxwid = boxht
+circlerad = boxht*0.4
+
+define summer { circle
+ {line from last circle.nw to last circle.se
+ line from last circle.sw to last circle.ne
+ "$$1$" at last circle.n below
+ "$$2$" at last circle.s above
+ "$$3$" at last circle.e rjust
+ "$$4$" at last circle.w ljust}
+}
+define doublebox {[box "$$1$"; arrow; box "$$2$"]}
+
+ arrow "$E_1$" above
+S1: summer(,-,,+)
+ linewid = boxwid/2
+ arrow "$\epsilon$" above
+ doublebox(H_1,H_2)
+ arrow
+S2: summer(-,,,+)
+ arrow
+T: doublebox(H_3,H_4)
+ line
+Y: Here
+ arrow
+ "$S_1$" above
+R1: box "$R_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
+ "$n_1$" ljust at S2.n+(0,boxht/2)
+ left
+Rf: doublebox(R_2,R_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
+ "$n_2$" at S1.s+(0,-boxht/2) ljust
+] with .nw at Observer.sw + (0,-0.5)
+ "(c) A multiblock example" below ljust at Multiblock.sw+(0,-5pt__)
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . #
+
+Nonlinear: [boxwid = boxwid*3/2; boxht = boxht*3/2
+ thicklines_
+ scale = 0.8
+ circlerad = 0.3/2
+R: box "reference" "$R$"
+ arrow right linewid*4/3 "${y_c}_{\hbox{\scriptsize ref}}$" above
+Gh: box "```inverse'''" "$\hat G$"
+ arrow from Gh.s down "${y_m}_{\hbox{\scriptsize ref}}$" ljust
+E: circle
+ arrow from E.e right "$e$" above
+ box "stabilizer" "$K$"
+ arrow "$\delta u$" above
+D: circle
+ line from Gh.e to (D,Gh.e) "$u_{\hbox{\scriptsize ref}}$" above
+ arrow to D.n
+ arrow from D.e right "$u$" above
+G: box "plant" "$G$"
+ arrow <- from G.n up boxht/2
+ "disturbance $z$" above
+ arrow right from G.e + (0,boxht/4)
+ "$y_c$" ljust
+ arrow right from G.e + (0,-boxht/4)
+ "$y_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
+ "$-$" 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))
+ 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__)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/control.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/csc.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/csc.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/csc.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,76 @@
+ifelse(ifpstricks(T)`'ifmpost(T)`'ifpostscript(T)`'ifpgf(T),,
+ `PSTricks, MetaPost, PGF, or Postscript required for this diagram',`dnl
+.PS 3.5
+# csc.m4
+gen_init
+
+circlerad=1.91
+hubrad=0.10
+s=0.5
+
+define(`midnight',`0.1, 0.1, 0.44')
+define(`white',`1, 1, 1')
+define(`spokewidth',0.1)
+define(`spoke',`dnl
+ {line from rvec_(0,hubrad-spokewidth/2) to rvec_(circlerad-0.05,0)}
+ {line from rvec_(0,-(hubrad-spokewidth/2)) to rvec_(circlerad-0.05,0)}')
+define(`lwid',1)
+define(`coord',`(s*(`$1'),s*(`$2'))')
+
+# Circle and spokes
+# [
+rgbdraw(midnight,
+ linethick=`0.'eval(lwid*15)/(1pt__)
+ {circle with .c at Here
+ circle invis diam last circle.diam + linethick pt__ at last circle }
+ linethick=spokewidth/(1pt__)
+ for angle = 0 to 330 by 30 do {
+ Point_(angle)
+ {spoke}
+ }
+ )
+
+# Whiten where the hull will be
+ linethick=`0.'eval(lwid*20)/(1pt__)
+ rgbdraw(white,
+ Point_(-60){line to rvec_(circlerad*0.72,0)}
+ Point_(-90){line to rvec_(circlerad*0.72,0)}
+ Point_(-120){line to rvec_(circlerad*0.72,0)}
+
+ linethick=`0.'eval(lwid*15)/(1pt__)
+ {move to coord(1.8,-2.3)+(0,0.025)
+ spline to Here+coord(-0.8,-0.3) then to Here+coord(-1.8,-0.3) \
+ then to Here+coord(-2.18,-0.27) \
+ then to Here+coord(-3.93,-0.1)}
+ )
+
+# Sail
+ thinlines_
+ setrgb(midnight)
+ rgbfill(midnight,
+ line from coord(0.44,3.38) to coord(0.44,2.6) \
+ then to coord(2.1,-1.75) \
+ then to coord(1.22,-1.53) \
+ then to coord(0.62,-1.4) \
+ then to coord(0.55,-1.6) \
+ then to coord(-2.2,-1.6) \
+ then to coord(-2.35,-1.5)
+ spline to coord(-2.14,-0.78) \
+ then to coord(-1.74,0.22) \
+ then to coord(-1.42,0.89) \
+ then to coord(-0.92,1.73) \
+ then to coord(0,2.9) \
+ then to coord(0.44,3.38)
+ )
+
+# Hull
+ rgbfill(midnight,
+ spline from coord(2.1,-1.75) to coord(1.9,-2.2) \
+ then to coord(1.85,-2.3) then to coord(1.8,-2.33) \
+ then to coord(1,-2.5) then to coord(0,-2.6) then to coord(-0.38,-2.57) \
+ then to coord(-2.13,-2.4)
+ 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')
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/csc.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/darrows.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/darrows.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/darrows.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,61 @@
+.PS
+# darrows.m4
+darrow_init
+
+[
+line thick 0.4 outlined "lightgray" down_ 6
+line thick 0.4 outlined "lightgray" down_ 6 from last line.start+(1,0)
+move to 1st line.start
+right_
+
+linethick = 5
+define(`dlthick',0.25)
+linewid = 1
+
+ { darrow() }
+move down 0.4; right_; { darrow(,t) }
+move down 0.4; right_; { darrow(,,t) }
+move down 0.4; right_; { darrow(,t,t) }
+move down 0.4; right_; { darrow(,,,,,,|-) }
+move down 0.4; right_; { darrow(,,,,,,!-) }
+move down 0.4; right_; { darrow(,,,,,,<-) }
+move down 0.4; right_; { darrow(,t,,,,,<-) }
+move down 0.4; right_; { darrow(,,t,,,,<-) }
+move down 0.4; right_; { darrow(,t,t,,,,<-) }
+move down 0.4; right_; { darrow(,,,,,,<-|) }
+move down 0.4; right_; { darrow(,,,,,,<-!) }
+move down 0.4; right_; { darrow(,,,,,,<->) }
+move down 0.4; right_; { darrow(,t,,,,,<->) }
+move down 0.4; right_; { darrow(,,t,,,,<->) }
+move down 0.4; right_; { darrow(,t,t,,,,<->) }
+]
+
+[
+line thick 0.4 outlined "lightgray" down_ 6
+line thick 0.4 outlined "lightgray" down_ 6 from last line.start+(1,0)
+move to 1st line.start
+right_
+
+linethick = 5
+define(`dlthick',0.25)
+linewid = 1
+
+ { Darrow() }
+move down 0.4; right_; { Darrow(,S) }
+move down 0.4; right_; { Darrow(,E) }
+move down 0.4; right_; { Darrow(,S;E) }
+move down 0.4; right_; { Darrow(,ends=|-) }
+move down 0.4; right_; { Darrow(,ends=!-) }
+move down 0.4; right_; { Darrow(,ends=<-) }
+move down 0.4; right_; { Darrow(,S;ends=<-) }
+move down 0.4; right_; { Darrow(,E;ends=<-) }
+move down 0.4; right_; { Darrow(,S;E;ends=<-) }
+move down 0.4; right_; { Darrow(,ends=<-|) }
+move down 0.4; right_; { Darrow(,ends=<-!) }
+move down 0.4; right_; { Darrow(,ends=<->) }
+move down 0.4; right_; { Darrow(,S;ends=<->) }
+move down 0.4; right_; { Darrow(,E;ends=<->) }
+move down 0.4; right_; { Darrow(,S;E;ends=<->) }
+] with .nw at last [].ne+(0.5,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/darrows.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/debug1.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/debug1.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/debug1.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,15 @@
+% This is file debug1.tex
+% Type
+% pdflatex debug1
+% for a very basic test of your latex (or pdflatex) installation. The
+% file debug1.log should not contain any error messages and debug1.pdf
+% should read correctly in a pdf reader.
+%
+\documentclass{article}
+%
+\newcommand\Angle[1]{\setbox0=\hbox{$\mskip 7mu minus 4mu#1$}%
+ \raise.21ex\hbox{$/$}\hskip-0.95ex\underline{\raise\dp0\hbox{\box0}}}
+%
+\begin{document}
+ $120\Angle{50^{\circ}}$
+\end{document}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/debug1.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/debug2.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/debug2.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/debug2.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,48 @@
+% This is file debug2.m4
+% Type the two (identical) command lines:
+% m4 pdf.m4 debug2.m4 | dpic -g > debug2.tex; pdflatex debug2
+% m4 pdf.m4 debug2.m4 | dpic -g > debug2.tex; pdflatex debug2
+% Alternatively, type the two not-quite-identical lines:
+% m4 pstricks.m4 debug2.m4 | dpic -p > debug2.tex; latex debug2
+% m4 pstricks.m4 debug2.m4 | dpic -p > debug2.tex; latex debug2; dvips debug2
+% In either case, the first command creates the file debug2.dim; the second
+% reads it to draw the correct bounding box.
+%
+% If m4 gives an error saying that it cannot find pdf.m4 then the M4PATH
+% environment variable has not been set to the directory containing
+% pgf.m4, pstricks.m4, and the other m4 libraries. For example, I have
+% export M4PATH=.:~/lib:
+% in the file ~/.bash_aliases on my Ubuntu machine, and on my PC with cygwin
+% it is in .bashrc. (You will have to change ~/lib to suit.)
+%
+% If other errors occur, look at debug2.log for details.
+%
+% If boxdims.sty is not found, then either it has not been copied to
+% where latex can find it or the latex filename database has not been
+% updated correctly. Instructions for the latter depend on the operating
+% system and may invlove commands texhash, mktexlsr, tlmgr, possibly preceded
+% by sudo, or (for MiKTeX) clicking on the Refresh FNDB button. See steps 3
+% and 4 (ignore 1 and 2) at
+% https://en.wikibooks.org/wiki/LaTeX/Installing_Extra_Packages
+%
+% On my Ubuntu machine, boxdims.sty is in
+% /usr/local/lib/localtexmf/tex/latex/local/
+% and on my cygwin machine it is in
+% /cygdrive/d/localtexmf/tex/latex/local/
+% but you might choose something like ~/texmf/tex/latex/boxdims/
+%
+\documentclass{article}
+\usepackage{boxdims}
+\usepackage{ifpstricks(pstricks,tikz)}
+\begin{document}
+.PS
+cct_init
+sinclude(debug2.dim)
+s_init(steinmetz)
+[
+ source(up_,AC); llabel(,s_box(`${}20$ V'),)
+ inductor(up_,W); llabel(,s_box(`${}20$ mH'),)
+ ]
+showbox_
+.PE
+\end{document}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/debug2.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/diamond.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/diamond.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/diamond.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,38 @@
+.PS
+# diamond.m4
+gen_init
+# See LaTeX Graphics Companion pp 57-58
+ifdpic(`
+dimen = 1.5
+ratio = 0.9
+n = 30
+
+North: (0,dimen)
+East: (dimen,0)
+South: (0,-dimen)
+West: (-dimen,0)
+
+define(`square',
+ `shade(`$1',
+ line from North to East then to South then to West then to North)
+ ')
+
+define(`diamond',`[
+for i = 2 to n do {
+ square(`$1')
+ Tmp: North
+ North: ratio between East and North
+ East: ratio between South and East
+ South: ratio between West and South
+ West: ratio between Tmp and West
+ }]')
+
+linethick = 0
+diamond( i % 2 )
+linethick = 0.4
+diamond( (n-i)/(n-2) ) with .w at last [].e+(0.25,0)
+
+',
+`box "diamond.m4" "requires" "dpic"')
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/diamond.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/ex00.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex00.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex00.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,91 @@
+.PS
+# ex00.m4
+gen_init
+
+[
+thicklines_
+ewid = 2
+eht = 0.5
+E: ellipse wid ewid ht eht
+
+ [ narrows = 5
+ de = ewid/narrows
+ for i=0 to narrows do {
+ arrow down from i*de,0 }
+ ] with .s at E.n+(0,0.25)
+
+ "{\bf B$(t)$}" at last [].c
+
+thinlines_
+ arrow from E.c to E.ne
+ box invis fill_(1) ht 0.12 wid 0.12 with .c at last arrow.c "$r$"
+]
+[
+# ex07.m4
+# gen_init
+
+Barrel: box invis ht 0.4 wid 1.5
+ up
+Face: arc rad 2.6 from Barrel.e+(2.4,-1.7/2) to Barrel.e+(2.4,1.7/2)
+
+ eps = 0.03
+ arc ccw rad 2.6 from Face.start-(eps,0) to Face.end-(eps,0) \
+ with .c at Face.c-(eps,0)
+ line from Barrel.nw to Barrel.ne then to Face.end
+ line from Barrel.sw to Barrel.se then to Face.start
+ arc cw from Barrel.sw to Barrel.nw rad Barrel.ht*1.2
+
+Cathode: Barrel.w+(0.3,0)
+Term: Barrel.w+(-0.25,0)
+ dcath = 0.13
+ dan = 0.12
+
+ line from Cathode up dcath/2 left dcath/2 then to Term.x,Cathode.y+dcath/2
+ dot
+ line from Cathode down dcath/2 left dcath/2 then to Term.x,Cathode.y-dcath/2
+ dot
+
+ hole = 0.06
+Hole: line invis up hole from Cathode+(0.5,-hole/2)
+ line from Hole.end up dan-hole/2 then to Term.x,Cathode.y+dan; dot
+ line from Hole.start down dan-hole/2 then to Term.x,Cathode.y-dan; dot
+
+ platewid = 0.25
+ platesep = 0.15
+Plates: box invis wid platewid ht platesep at Barrel.e+(-platewid/2,0)
+ line right platewid from Plates.nw
+ line right platewid from Plates.sw
+ line up 0.3 from Plates.n
+ line down 0.3 from Plates.s
+
+linethick_(1.4)
+ move to Cathode+(0.03,0)
+Spot: 0.9<Face.start,Face.end>
+ arcto(Plates.c,Spot,(Plates.c.x-Cathode.x)*0.90,outlined "gray")
+ line to Spot chop 0 chop -0.02 outlined "gray"
+
+thinlines_
+
+ arrow <- from Cathode+(0.2,0.06) up 0.5 left 0.3
+ "{\sl electron}" above "{\sl gun}" above
+
+ arrow <- from Plates.nw+(0,0.06) up 0.5 left 0.3
+ "{\sl deflection}" above "{\sl plates}" above
+
+ arrow <- from 0.5<Plates.e,Spot>+(0,0.06) up 0.5 left 0.3
+ "{\sl electron beam}" at Here+(-0.3,0) above
+
+ spline <- from 1.015<Plates.e,Spot> right 0.1 up 0.1 then up 0.1 \
+ then up 0.1 left 0.1
+ "{\sl spot of light}sp_" rjust
+
+ "{\sl vacuum}sp_" at 0.5<Face.start,Face.end>+(-0.4,0) rjust
+
+ arrow <- from Face.start+(0.1,0.5) left 0.6*1.4 down 0.3*1.4
+ "{\sl phosphor coating}sp_" rjust
+
+ arrow <- from 0.2<Barrel.se,Face.start> left 0.6 down 0.3
+ "{\sl glass enclosure (tube)}sp_" rjust
+
+] with .sw at last [].se+(0.5,0)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex00.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/ex01.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex01.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex01.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,21 @@
+.PS
+# ex01.m4
+cct_init
+ linewid = linewid*1.5 # let's make the circuit elements bigger than usual
+ define(`elen_',linewid) # but not longer
+ del = elen_/4 # a spacing parameter
+
+ Vin: source(up_ elen_ + 2*del); llabel(-,v_s,+)
+
+ switch(right_ elen_,,C); rlabel(,t = 0,)
+ resistor; llabel(,47\`,'\Omega,); b_current(i_R\strut,above rjust)
+
+ line right_ elen_/2 then down_ del
+ parallel_(`inductor(,W); llabel(,L,); b_current(i_L)',
+ `capacitor(,C); rlabel(+,v_C,-); llabel(,,\;C)')
+ line to (Here,Vin.start) then to Vin.start
+
+ arcd(last []+(4pt__,0),del,30,330) <- ; "$i_2$" at last arc
+ arcd(Vin.c+(4*del,0),2*del,30,330) <- ; "$i_1$" at last arc
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex01.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/ex02.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex02.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex02.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,54 @@
+.PS
+# ex02.m4
+cct_init
+
+[
+ [
+ for angl=0 to 315 by 45 do {
+ Point_(angl)
+ opamp(to rvec_(linewid*3/2,0)) with .Out at (0,0) }
+ ]
+ resistor(down_ dimen_ from last [].s)
+ diode(down_ dimen_*2/3,LE)
+ diode(down_ dimen_*2/3,LER)
+ ground(,T)
+]
+
+[
+ define(`elen_',`dimen_*3/2') # restore defaults
+ define(`sourcerad_',`dimen_*0.25')
+ leng = elen_
+ define(`fromcentre',`move to C+(-elen_/2,-elen_*cosd(15)/(2*sind(15)))')
+ C: dot
+ { fromcentre()
+ for i = 0 to 359 by 30 do {
+ Point_(i); inductor
+ }
+ }
+ define(`elen_',leng*0.8)
+ { fromcentre()
+ for i=0 to 359 by 30 do {
+ Point_(i); inductor(,W)
+ }
+ }
+ define(`elen_',leng*0.6)
+ { fromcentre()
+ for i=0 to 359 by 30 do {
+ Point_(i); resistor
+ }
+ }
+ define(`elen_',leng*0.4)
+ { fromcentre()
+ for i=0 to 359 by 30 do {
+ Point_(i); capacitor(,C)
+ }
+ }
+ define(`elen_',leng*0.2)
+ { fromcentre()
+ for i=0 to 359 by 30 do {
+ Point_(i); diode
+ }
+ }
+ ] with .sw at last [].se+(linewid,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex02.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/ex03.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex03.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex03.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,30 @@
+.PS
+# ex03.m4
+cct_init
+circlerad = 0.35/2
+define(`elen_',`dimen_')
+del = linewid*0.6
+
+ "$u_k$" above
+ line
+{
+ arrow right_ del
+B0: circle "$b_0$"
+ arrow right linewid/2
+S: circle "$\sum$"
+ line right 2*circlerad + del + S.w.x-B0.e.x
+ {arrow ; "$y_k$" above }
+ down_
+ delay
+ {line left_ del ; circle "$-a_1$" ; arrow from last circle to S chop}
+ line dashed down_ del
+ delay
+ {line left_ del ; circle "$-a_n$" ; arrow from last circle to S chop}
+}
+ down_
+ delay
+ {line right_ del ; circle "$b_1$" ; arrow from last circle to S chop}
+ line dashed down_ del
+ delay
+ {line right_ del ; circle "$b_n$" ; arrow from last circle to S chop}
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex03.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/ex04.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex04.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex04.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,59 @@
+.PS
+# ex04.m4
+cct_init
+
+[
+pushdef(`elen_',`dimen_') # short elements
+pushdef(`sourcerad_',`dimen_*0.2')
+#linewid = 0.85
+linewid = 0.6
+
+Ct:dot
+ Point_(-60); capacitor(,C); dlabel(0.14,0.14,,,C_3)
+Cr:dot
+ left_; capacitor(,C); dlabel(0.14,0.14,C_2,,)
+Cl:dot
+ down_; capacitor(from Ct to Cl,C); dlabel(0.14,-0.10,C_1,,)
+
+T:dot(at Ct+(0,elen_))
+ 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,)
+R:dot
+L:dot( at (Cl-(Cos(30)*(elen_),0),R) )
+
+ inductor(from L to Cl); dlabel(-0.1,-0.1,L_2,,,X)
+
+ right_; resistor(from L to R); rlabel(,R_2,)
+ move down 0.3
+
+ resistor(from T to R); dlabel(0,0.15,,R_3,) ; b_current(y,ljust above)
+
+ 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,)
+ resistor(to 0.8 between L and T); dlabel(0,0.15,,R_1,)
+ line to T
+ ]
+popdef(`elen_')
+popdef(`sourcerad_')
+
+[
+ Point_(225)
+{B1: ebox ; b_current; dlabel(dimen_*0.4,-0.1,i_1)
+ dot
+ B4: ebox(to rvec_(rp_len,0)); b_current(,,,E); dlabel(dimen_*0.4,-0.1,,,i_4) }
+ Point_(-45)
+ B2: ebox ; b_current; dlabel(dimen_*0.4, 0.1,i_2)
+ dot
+ B7: ebox ; b_current; dlabel(dimen_*0.4, 0.1,i_7)
+ B3: ebox(from B1.end to B2.end); b_current; dlabel(dimen_*0.4,0.1,i_3)
+ dot(at (B1.start,B7.end))
+{B5: ebox(to B1.end); b_current; dlabel(dimen_*0.4,-0.09,i_5)}
+{B6: ebox(to B2.end); b_current; dlabel(dimen_*0.4, 0.09,i_6)}
+{B8: ebox(right_ to B4.end); b_current; dlabel(dimen_*0.4, 0.1,i_8)}
+ B9: ebox(left_ to B7.end); b_current; dlabel(dimen_*0.4,-0.1,i_9)
+ ] with .w at last [].e+(0.5,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex04.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/ex05.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex05.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex05.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,65 @@
+.PS
+# ex05.m4
+darrow_init
+
+ fillval = 0.8 # environmental variable
+
+ dx = boxht/5 # diagram parameters wrt scaled env variables
+ circlerad = boxht*3/8
+ extlen=4*dx
+ indel = boxht/3
+
+COb: box fill_ "C$\bar{\mbox{O}}$"
+CO:box fill_ with .nw at last box.se+(dx,-dx) "CO"
+CbOb: box fill_ with .nw at last box.se+(dx,-dx) \
+ "$\bar{\mbox{C}}$$\bar{\mbox{O}}$"
+CbO: box fill_ with .nw at last box.se+(dx,-dx) "$\bar{\mbox{C}}$O"
+
+ dline(from CbO.s down_ dx,,t,,!-)
+ dright
+{Sum: circle invis at (CO,Here)}
+ darrow(to Sum.e)
+
+SW: (COb.w,Sum.s)+(-3*dx-extlen/2,-dx)
+NE: (CbO.e,COb.n)+(dx,dx)
+ right_; shadebox(box wid NE.x-SW.x ht NE.y-SW.y with .sw at SW)
+
+U: "\bf u$\,$" rjust at COb.w-(3*dx+extlen,0)
+ dline(right_ extlen+dx,,t,,|-)
+TU: dtee(R)
+ {darrow(to COb.w,t)}
+ dline(to (Here,CO),t,t)
+{Dum: circle invis at (Here,Sum)}
+ dtee(L)
+ {darrow(to CO.w,t)}
+{D: box "D" wid boxwid/2 ht boxwid/2 at 0.5<Here,Dum.n>}
+ darrow(to D.n,t)
+ darrow(from D.s to Dum.n,,,,,,!-)
+
+ dline(up_ from CO.n to (CO,COb)-(0,indel),,t,,!-)
+ dleft; darrow(to (COb.e,Here))
+
+ dline(up_ from CbOb.n to (CbOb,COb),,t,,!-)
+ dleft; darrow(to COb.e)
+
+ dline(from CbO.n-(indel,0) up_ CbOb.y-CbO.n.y,,t,,!-)
+ dleft; darrow(to CbOb.e)
+
+ dline(up_ from CbO.n to (CbO,CO),,t,,!-)
+ dleft
+ darrow(to CO.e)
+
+ dline(up_ from CbO.n+(indel,0) to (CbO,COb)+(indel,indel),,t,,!-)
+ dleft; darrow(to (COb.e,Here))
+
+ darrow(from CO.s to Sum.n,,,,,,!-)
+
+ darrow(left_ from Sum.w to Dum.e)
+ darrow(from Dum.w to (U,Dum))
+ {"{\bf y$\,$}" rjust}
+ move left 0.23
+
+ circle at Sum
+ circle at Dum
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex05.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/ex06.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex06.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex06.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,67 @@
+.PS
+# ex06.m4
+gen_init
+
+F: box invis wid 1.6i ht 1.8i
+E: box invis wid F.wid ht F.ht
+G: box invis wid 1i ht F.ht
+
+ ell = F.ht-0.6i
+ r = 0.3i
+ offset = 8bp__
+ hatch = 0.1i
+ dhs = hatch * sqrt(2)
+ qmell = F.ht - ell
+ kwid = F.wid-qmell-r
+
+ box wid G.e.x-F.w.x ht F.ht with .sw at F.sw thick linethick*3/2
+ Loopover_(`B',
+ `line from B.ne to B.se thick linethick*3/2
+ B`'T: B.se + (-qmell,qmell)
+ line from (B.w,B`'T) to B`'T chop 0 chop -offset
+ line from B`'T up ell chop -offset chop 0
+ line from B`'T + (-r,0) up ell
+ line dashed from B`'T to B.se
+ "\large $0$" at B`'T + (-r/2,ell/2)
+ "\large $0$" at B`'T + (qmell/2,ell/2)
+ "$t$" at (B`'T,B.n) + (-offset/2,offset)
+ sprintf("$\overbrace{\phantom{\hbox to %gin{}}}^{\hbox{$k$}}$",kwid) \
+ at B.nw + (kwid/2,0) above
+ thinlines_
+ for x = hatch to B`'T.x-B.w.x-r by hatch do {line down ell from B.nw+(x,0)}
+ for y = dhs to qmell by dhs do {line up y right y from (B.w,B`'T)+(0,-y)}
+ for x = y-qmell to B.wid-qmell*2 by dhs do {
+ line up qmell right qmell from B.sw+(x,0) }
+ for x = last line.start.x-B.w.x+dhs to B.wid by dhs do {
+ line up (B.wid-x)/2 right (B.wid-x)/2 from B.sw+(x,0) }
+ thicklines_
+ ',F,E)
+
+ line from (G.w,ET) right G.wid
+ line from ET + (0,r) left ET.x-E.w.x
+
+ thinlines_
+ for y = hatch to r by hatch do { line left r from ET+(0,r-y) }
+ for x = dhs to G.wid by dhs do {
+ line left x down x from G.nw+(x,0) }
+ for y=x-G.wid to G.ht-G.wid by dhs do {
+ line left G.wid down G.wid from G.ne+(0,-y) }
+ for x = y-(G.ht-G.wid) to G.wid by dhs do {
+ line right G.wid-x up G.wid-x from G.sw+(x,0) }
+ thicklines_
+
+ "$q$" at F.sw + (-offset,offset/3)
+ "$\ell$" at (F.w,FT) + (-offset,offset/3)
+
+ "$n{+}p{+}m$" at G.ne + (0,offset)
+
+ Loopover_(`B',`"\Large $B$" ht 0.2 with .n at B.s + (0,-offset/2)',F,E,G)
+
+ # extra left brace to avoid a psfrag problem (bug?)
+ sprintf(\
+ "$\vphantom{\{}\left.\vrule height %gin depth0pt width0pt\right\}r$",r/2) \
+ at ET + (offset,r/2)
+
+# Adjust the bounding box without using s_box:
+ move from F.nw+(-12bp__,21bp__) to G.se+(20bp__,-15bp__)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex06.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/ex07.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex07.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex07.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,69 @@
+.PS
+# ex07.m4
+gen_init
+Barrel: box invis ht 0.4 wid 1.5
+ up
+Face: arc rad 2.6 from Barrel.e+(2.4,-1.7/2) to Barrel.e+(2.4,1.7/2)
+
+ eps = 0.03
+ arc ccw rad 2.6 from Face.start-(eps,0) to Face.end-(eps,0) \
+ with .c at Face.c-(eps,0)
+ line from Barrel.nw to Barrel.ne then to Face.end
+ line from Barrel.sw to Barrel.se then to Face.start
+ arc cw from Barrel.sw to Barrel.nw rad Barrel.ht*1.2
+
+Cathode: Barrel.w+(0.3,0)
+Term: Barrel.w+(-0.25,0)
+ dcath = 0.13
+ dan = 0.12
+
+ line from Cathode up dcath/2 left dcath/2 then to Term.x,Cathode.y+dcath/2
+ dot
+ line from Cathode down dcath/2 left dcath/2 then to Term.x,Cathode.y-dcath/2
+ dot
+
+ hole = 0.06
+Hole: line invis up hole from Cathode+(0.5,-hole/2)
+ line from Hole.end up dan-hole/2 then to Term.x,Cathode.y+dan; dot
+ line from Hole.start down dan-hole/2 then to Term.x,Cathode.y-dan; dot
+
+ platewid = 0.25
+ platesep = 0.15
+Plates: box invis wid platewid ht platesep at Barrel.e+(-platewid/2,0)
+ line right platewid from Plates.nw
+ line right platewid from Plates.sw
+ line up 0.3 from Plates.n
+ line down 0.3 from Plates.s
+
+linethick_(1.4)
+psset_(linecolor=gray)
+
+ move to Cathode+(0.03,0)
+Spot: 0.9<Face.start,Face.end>
+ arcto(Plates.c,Spot,(Plates.c.x-Cathode.x)*0.90)
+ line to Spot chop 0 chop -0.02
+
+psset_(linecolor=black)
+thinlines_
+
+ arrow <- from Cathode+(0.2,0.06) up 0.5 left 0.3
+ "{\sl electron}" above "{\sl gun}" above
+
+ arrow <- from Plates.nw+(0,0.06) up 0.5 left 0.3
+ "{\sl deflection}" above "{\sl plates}" above
+
+ arrow <- from 0.5<Plates.e,Spot>+(0,0.06) up 0.5 left 0.3
+ "{\sl electron beam}" at Here+(-0.3,0) above
+
+ spline <- from 1.015<Plates.e,Spot> right 0.1 up 0.1 then up 0.1 \
+ then up 0.1 left 0.1
+ "{\sl spot of light}sp_" rjust
+
+ "{\sl vacuum}sp_" at 0.5<Face.start,Face.end>+(-0.4,0) rjust
+
+ arrow <- from Face.start+(0.1,0.5) left 0.6*1.4 down 0.3*1.4
+ "{\sl phosphor coating}sp_" rjust
+
+ arrow <- from 0.2<Barrel.se,Face.start> left 0.6 down 0.3
+ "{\sl glass enclosure (tube)}sp_" rjust
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex07.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/ex08.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex08.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex08.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,81 @@
+.PS
+# ex08.m4
+log_init
+
+define(`del',`L_unit*5/2')
+
+# Input labels
+C: grid_(0,0); "\sf C sp_" rjust at C
+DE: C+grid_(0,AND_ht*7/4)
+A0: DE+grid_(0,BUF_ht*3/2); "\sf A0 sp_" rjust at A0
+A1: A0+grid_(0,BUF_ht*3/2); "\sf A1 sp_" rjust at A1
+A2: A1+grid_(0,BUF_ht*3/2); "\sf A2 sp_" rjust at A2
+ move to (-0.2,0) # Lettering within the global object
+
+# Buffer strings
+for_(1,3,1,
+ `line right 3*del from A`'eval(3-m4x)
+ B`'eval(2*m4x-1): NOT_gate; line right 2*del
+ T`'m4x: last line.c
+ B`'eval(2*m4x): BUFFER_gate(,N) ')
+
+B7: BUFFER_gate at (B1,C)
+
+G1: NOR_gate with .Out at (B1.Out,DE)
+G2: NOR_gate at (B2+grid_(N_rad,0),G1-grid_(0,AND_ht))
+G3: AND_gate(4) with .In1 at (G2.Out+(9*del,0),A2)
+G5: AND_gate(4) with .In4 at (G3.In1,G2.Out)
+G6: AND_gate at G5+grid_(AND_wd,AND_ht*3/4)+(del*2,0)
+G4: NOR_gate with .In1 at (G6.Out,G3)+(2*del,0)
+G7: NOR_gate with .In2 at (G4.In2,G5.Out)
+
+# Output to other latches
+TOL: (G2.Out,C)+(4*del,-4*L_unit)
+ move to TOL+(3*del,-del/3) ; {move down 0.15}
+ "\sf {\sl To other latches}" below
+
+# Remaining input lines
+ line from G1.In1 to (DE,G1.In1); "\sf D sp_" rjust
+ line from G1.In2 to (DE,G1.In2); "\sf E sp_" rjust
+ dot(at G1.In2-(del,0)); line to (Here,G2.In2) then to G2.In2
+ line from C to B7.In1
+
+# Connect Bi, and connect to output bus
+for_(1,3,1,
+ `dot(at T`'m4x.c) ; line down (A2.y-A1.y)/2
+ line to (TOL-(m4x*del,0),Here) ; arrow to (Here,TOL) ')
+
+# G1 to G2
+ dot(at (T1.c,G1)); line to (Here,G2.In1) then to G2.In1
+
+# Upper And inputs to output bus
+for_(1,4,1,
+ `line left eval(5-m4x)*del from G3.In`'m4x
+ arrow to (Here,TOL) ')
+
+ line from B2.Out to (G3.In1,B2)-(4*del,0) ; dot
+ line from B4.Out to (G3.In2,B4)-(3*del,0) ; dot
+ line from B6.Out to (G3.In3,B6)-(2*del,0) ; dot
+ line from G1.Out to (G3.In4,G1)-(del,0) ; dot
+
+# Lower And inputs
+ line left 4*del from G5.In1 ; dot
+ line left 3*del from G5.In2 ; dot
+ line left 2*del from G5.In3 ; dot
+ line from G2.Out to G5.In4 ; dot(at (TOL,Here)) ; arrow to (Here,TOL)
+
+# Fix up G4, G6, G7
+ line from G3.Out to G4.In1
+ line right del from G4.Out
+ {dot; line right del ; "\sf sp_ Q7" ljust; move right 0.2 } # letters in object
+ line down 2*del then to G6.In1+(-del,del)
+ line to (Here,G6.In1) then to G6.In1
+ line from G4.In2 to (G6.In1+(-del,0),G4.In2)
+ line down del then to G7.Out+(del,2*del)
+ line to (Here,G7) then to G7.Out
+ line from G6.Out right del ; line to (Here,G7.In1) then to G7.In1
+ line from G5.Out to G7.In2
+ line left del from G6.In2 ; arrow to (Here,TOL)
+ dot(at (Here,C)) ; line to B7.Out
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex08.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/ex09.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex09.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex09.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,135 @@
+.PS
+# ex09.m4
+# Illustrating the arguments of the `dimension_' macro.
+gen_init
+sinclude(F_ex09.dim)
+sinclude(examples.dim)
+s_init(ex09)
+scale = 25
+
+define(`spacer',`
+[
+iflatex(`ifpsfrag(`textht = 7.5bp__; textoffset = 0.5bp__',
+ `latexcommand({\sf)') ')
+linethick_(1.0)
+
+ WC: circle diameter 4.22 at 0,0
+ EC: circle same at 30.15,0
+ NC: circle diameter 2.36 at 13.28, 10.92/2
+ SC: circle same at 13.28,-10.92/2
+
+ C: 0.5<WC,EC> # spacer centre
+ h = 27.26 # spacer height
+ s = 4.22/2 # small arc radius
+ r = h/2*0.80 # large arc radius
+ Cr: C+(0,h/2-r) # upper arc centre
+ e = s # small arc centre offset from small circle
+ Cs: EC+(e,0) # right arc centre
+
+# Tangent points Tr and Ts to circles at Cr and Cs
+ dx = Cr.x-Cs.x; dy = Cr.y-Cs.y; dsq = dx*dx+dy*dy
+ Tr: (r*(r-s)/dsq)<Cr,Cs> + (vscal_(r*sqrt(dsq-(r-s)^2)/dsq,dy,-dx))
+ Ts: (s/r)<Cr,Tr>-(dx,dy)
+
+ line from Tr to Ts
+ arc cw to (Ts.x,-Ts.y) with .c at Cs
+E: last arc.e
+ line to (Tr.x,-Tr.y)
+ arc cw to (C.x-(Here.x-C.x),Here.y) with .c at (Cr.x,-Cr.y)
+S: last arc.s
+ line to (Cs.x-Ts.x-s,Cs.y-Ts.y)
+ arc cw to (Here.x,-Here.y) with .c at (-e,0)
+W: last arc.w
+ line to (C.x-(Tr.x-C.x),Tr.y)
+ arc cw to Tr with .c at Cr
+N: last arc.n
+
+thinlines_
+ dimension_(from S+(2,0) to N+(2,0),-(E.x-C.x+4),s_box(27.76), H)
+ dimension_(from SC.n+(0,2) left SC.x-WC.x, (SC.n.y-S.y+3), s_box(13.28), W)
+ dimension_(from WC.n+(0,2) right EC.x-WC.x,-(WC.n.y-S.y+7), s_box(30.15), W)
+ dimension_(from W+(0,-1.5) to E+(0,-1.5), -(C.y-S.y+8), s_box(41.28), W)
+ dimension_(from SC.e+(2,0) up NC.y-SC.y, (SC.e.x-W.x+8), s_box(10.92), H)
+
+ arrow <- from EC left 6 up 16 chop EC.rad chop 0
+ line left 4 "4.22 (2) PL" above
+ arrow <- from NC up last line.y-NC.y+7/8 left 8 chop NC.rad chop 0
+ {"2.36" above}
+ arrow to SC chop 0 chop SC.rad
+iflatex(`ifpsfrag(,`latexcommand(})')')
+] ')
+
+define(`sk',`scale*0.7')
+
+define(`bdot',
+ `dot(`$1',,0.5)
+ s_box($`$2'$\strut) `$1' `$3' ')
+
+ thinlines_
+# Upper left diagram
+ spacer
+
+# Lower left diagram
+[ define(`lwid',`29bp__')
+A: bdot(at (0,0),A,below)
+B: bdot(at (2*sk,0),B,below)
+Ctr: 0.5 between A and B
+
+ linethick_(1)
+ dimension_(from A to B,0.5*sk,\sl label,lwid,0.1*sk)
+ s_box(`\tt dimension\_(from A to B,0.5,\char92 sl label,29bp\_\_,0.1)') \
+ with .sw at A+(-0.8*sk,-0.7*sk)
+
+ thinlines_
+ arrow from A to B chop 0.05*sk "\sl linespec" below
+ dimension_(up_ 0.5*sk from A,0.2*sk,"\sl offset\ {}" rjust,,,->)
+ dimension_(up_ 0.1*sk from B,-0.2*sk)
+ s_box(\ \sl tic offset) with .nw at 2nd last arrow
+ dimension_(up_ 0.1*sk from B+(0,0.5*sk),-0.2*sk)
+ s_box(\ \sl tic offset) with .nw at 2nd last arrow
+ dimension_(from Ctr+(-lwid/2,0.5*sk) right lwid,0.2*sk,
+ "\strut\sl blank width" above)
+ move up 1*sk from A
+] with .nw at last [].sw+(0,-0.6*sk)
+
+# Right diagram
+[ A: bdot(at (0,0),A, above rjust)
+ B: bdot(at (2*sk,0),B, above ljust)
+ C: bdot(at (0,-1.5*sk),C, above rjust)
+ D: bdot(at (2*sk,-1.5*sk),D, above ljust)
+
+T: C+(-1*sk,-0.5*sk)
+T: C+(-0.45*sk,-1.0*sk)
+ dimension_(from A to B,0.3*sk,$AB$,20bp__)
+
+ s_box(`\tt dimension\_(from A to B,0.3,\$AB\$,20bp\_\_)') \
+ with .sw at T
+
+ dimension_(from C to B chop dotrad_,,$X$,16bp__)
+ s_box(`\tt dimension\_(from C to B,,\$X\$,16bp\_\_)') \
+ with .sw at T+(0,-13bp__)
+
+ dimension_(from C to A,0.3*sk,$CA$,14bp__,,->)
+ s_box(`\tt dimension\_(from C to A,0.3,\$CA\$,14bp\_\_,,->)') \
+ with .sw at T+(0,-2*13bp__)
+
+ dimension_(from D to B,-0.3*sk,"$DB$" ljust)
+ s_box(`\tt dimension\_(from D to B,-0.3,\"\$DB\$\" ljust)') \
+ with .sw at T+(0,-3*13bp__)
+
+ dimension_(from C to D chop dotrad_,,s_box($T^{%g}$,15),W)
+ s_box(
+ `\tt dimension\_(from C to D,,s\_box(\$T\char94\char123\%g\char125\$,15),W)')\
+ with .sw at T+(0,-4*13bp__)
+
+ arcdimension_(from C to D with .c at \
+ 0.5 between A and B,12bp__,s_box($C$ to $D$),W)
+ s_box(
+ `\tt arcdimension\_(from C to D with .c at \smash{\char92}') \
+ with .sw at T+(0,-5*13bp__)
+ s_box(`\tt 0.5 between A and B,12bp\_\_,s\_box(\$C\$ to \$D\$),W)') \
+ with .sw at T+(5,-6*13bp__)
+
+] with .nw at 1st [].ne+(0.8*sk,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex09.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/ex10.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex10.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex10.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,56 @@
+.PS
+# ex10.m4
+cct_init
+
+[
+ dt = 360/5
+ r = 0.75
+
+ N0: dot(at (Rect_(r,90)))
+ N1: dot(at (Rect_(r,(90-dt))))
+ N2: dot(at (Rect_(r,(90-2*dt))))
+ N3: dot(at (Rect_(r,(90-3*dt))))
+ N4: dot(at (Rect_(r,(90-4*dt))))
+
+ line from N0 to N1 then to N2 then to N3 then to N4 then to N0
+ L14: line from N1 to N4
+ L24: line from N2 to N4
+ C02: crossover(from N0 to N2,,L14)
+ C13: crossover(from N1 to N3,,C02,L24)
+ C03: crossover(from N0 to N3,,L14,L24)
+ ]
+
+[
+ up_
+rgbdraw(1,0,0,
+Q1: bi_tr(,R) # Q1 upward with base to the right
+ llabel(,Q_1) ) # Label to left of last []
+rgbdraw(0,0,1,
+Q2: bi_tr with .C at Q1.C+(elen_*7/4,0) # Q2 with base to left
+ rlabel(,Q_2) )
+
+ ground(at Q1.E)
+ ground(at Q2.E)
+
+ line right_ dimen_/3 from Q1.B # Extend the base conductors
+B1: Here
+ line left_ dimen_/3 from Q2.B
+B2: Here
+
+ resistor(up_ elen_*0.75 from Q1.C); llabel(,"$R_L$" wid 0.16) # Load resistors
+ line to (Q2.C,Here) "$V_{\hbox{cc}}$" below
+ resistor(down_ to Q2.C); llabel(,R_L)
+
+ move to Q1.C+(0,dimen_/5)
+ { resistor(right_ to (B1,Here)); llabel(,R_1)
+X: line to B2 } # Label the line to be jumped
+ resistor(from (Q2.C,Here) left_ to (B2,Here)); rlabel(,R_1)
+ crossover(to B1,R,X)
+
+ resistor(down_ elen_*0.75); rlabel(,R_2) # Bias resistors
+ {"$-V_{\hbox{cc}}$" rjust}
+ line to (B2,Here)
+ resistor(up_ to B2); rlabel(,R_2)
+ ] with .sw at last [].se+(0.75,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex10.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/ex11.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex11.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex11.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,74 @@
+.PS
+# ex11.m4
+cct_init
+
+ "sp_{audio}" ljust
+ { arrow down_ elen_/4}
+ resistor(down_ 2*elen_) ; llabel(R_{17})
+G: ground
+ capacitor(right_ dimen_ from last [].c) ; rlabel(,C_{19})
+ {arrow <- right_ arrowht from last line.start}
+ { resistor(down_ to (Here,G)); rlabel(,R_{19}) }
+{R18: resistor(up_ elen_*1.2); llabel(,R_{18}) }
+
+ line right_ elen_/4 ; up_
+Q4: bi_tr(,,,E) with .B at Here; llabel(,,Q_4)
+ resistor(down_ from Q4.E to (Q4.E,G)); rlabel(,R_{21})
+ resistor(up_ from Q4.C to (Q4.C,R18.end)); llabel(,R_{20})
+ line up_ elen_/4; dot; "$V_{CC}$" ljust
+
+T1: Q4.C+(0,elen_/8)
+
+ capacitor(right_ dimen_ from T1); llabel(,C_{20})
+ { capacitor(down_ 0.5*(Here.y-G.y)); rlabel(,C_{21})
+ resistor(right_ elen_); llabel(,R_{23})
+ arrow <- from last [] to (last [],G)
+ }
+ resistor(right_ elen_); llabel(,R_{22})
+ { resistor(down_ 0.5*(Here.y-G.y)); llabel(,R_{24})
+ capacitor(down_ to (Here,G)); llabel(,C_{22}) }
+
+ capacitor(right_ dimen_); llabel(,C_{23})
+ { capacitor(down_ to (Here,G)); rlabel(,C_{24}) }
+ line right_ elen_/2
+Q5I: Here
+ line right_ elen_/4 ; up_
+Q5: bi_tr(,,,E) with .B at Here; rlabel(,Q_5)
+R27: resistor(down_ dimen_ from Q5.E); rlabel(,R_{27})
+ line to (Here,G)
+ resistor(from Q5I down_ Q5I.y-R27.end.y-elen_/12); rlabel(,R_{25})
+ { capacitor(to (Here,G)); llabel(,C_{25}) }
+
+ crossover(to (R27,Here)+(hoprad_,0),,R27)
+R28: resistor(right_ elen_-hoprad_); llabel(,R_{28})
+ resistor(down_ to (Here,G)); rlabel(,R_{30})
+ line to G
+
+ resistor(up_ from Q5.C to (Q5.C,R18.end)); llabel(,R_{26})
+ line to R18.end
+
+ up_
+Q6: bi_tr(,,,E) with .E at (R28.end.x,Q5.E.y+(T1.y-Q4.B.y)); llabel(,,Q_6)
+
+ line from Q6.B to (Q5.C,Q6.B)
+ resistor(down_ from Q6.E to R28.end); rlabel(,R_{29})
+
+ line right_ dimen_*3/4 from Q6.C
+
+ { R31: resistor(down_ elen_); circle diam dimen_*0.8 with .c at last line.c
+ "$R_{31}$" below at last circle.sw
+ "$V$" below at last line.c+(dimen_/4,0) }
+ line right_ dimen_
+ { capacitor(down_ elen_); rlabel(,,C_{26})
+ line down_ elen_/4; dot; "sp_$V_{SS}$" ljust }
+ line right_ dimen_/2
+T6: transformer(down_ elen_) with .P1 at Here
+ line from T6.P2 to R31.end
+ {"$T_6$" at T6.n above }
+ line right_ elen_/3 from T6.S1
+ inductor(down_ elen_,W)
+ line to T6.S2
+
+ speaker(R) with .Box.w at last [].e+(dimen_/8,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex11.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/ex12.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex12.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex12.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,133 @@
+.PS
+# ex12.m4
+cct_init
+
+[
+ fetht = dimen_*0.9
+
+G: ground
+Q4: e_fet(up_ fetht) with .S at G
+Q3: e_fet(up_ fetht) with .S at Q4.D
+
+Q2: e_fet(down_ fetht,R,P) with .G at Q3.Channel+( dimen_*0.25,dimen_*1.8)
+Q1: e_fet(down_ fetht,R,P) with .G at Q2.G + (-dimen_*1.25,0)
+
+ line left_ dimen_ from Q3.G
+A: dot; "$A$sp_" rjust
+ line left_ dimen_ from Q4.G
+B: dot; "$B$sp_" rjust
+
+ line from Q1.G to (Q1.G,Q3.D) then to (Q1.Channel,Q3.D) \
+ then to (Q1.Channel,B);dot
+ line from Q2.G to (Q3.Channel,Q2.G) then to (Q3.Channel,Q3.D) \
+ then to (Q3.G,Q3.D) then to Q3.G;dot
+ line from Q1.D to Q2.D
+ line from Q1.S to Q2.S
+ dot(at (G,Q1.S)) ; line up dimen_/3 ; "$+5$V{}sp_" rjust
+ line from Q3.D to (Q3.D,Q2.D);dot
+ dot(at Q3.D)
+ line right_ dimen_ ; dot ; "sp_$\overline{AB}$" above
+]
+
+[
+ del = dimen_/3
+
+define(`pair',`[
+Q1: c_fet(up_ dimen_,,P)
+ line right dimen_*2/3 from Q1.D
+ {dot(at last line.c); reversed(`source',up_ dimen_,I); Rail: Here
+ line right dimen_/2 with .c at Here}
+Q2: c_fet(up_ dimen_,R,P) with .D at Here
+ line down del*2 from Q2.S
+ resistor(down_ dimen_)
+Gnd: ground(,T,S)
+ ]')
+
+P1: pair
+Rail: P1.Rail
+Vc: dot(at P1.Q2.S+(0,-del)); "$V_{\hbox{\small c}}$" rjust
+ line from P1.Q1.G to (P1.Q1.G,Rail)+(0,del/2); "$S{+}$" ljust
+
+ line right_ del from P1.Q2.G
+ {dot(at last line.c); line up del; "$V_{\hbox{\small ref}}$" above}
+ pht = P1.Rail.y-P1.Gnd.y
+
+P2: pair with .Q1.G at Here
+Vcp: dot(at P2.Q2.S+(0,-del*2)); {"$V_{\hbox{\small c$'$}}$" above rjust}
+ {line to (P1.Q1.S,Here) then to P1.Q1.S}
+ line from P2.Q2.G to (P2.Q2.G,Rail)+(0,del/2); "$S{-}$" rjust
+
+ line from Vc to (P2.Q1.S,Vc) then to P2.Q1.S
+
+define(`cpair',`[
+Rail: line right dimen_/2
+Q1: c_fet(up_ dimen_,,P) with .D at last line.c
+Q2: c_fet(up_ dimen_) with .S at Rail.c+(0,-pht)
+ ground(at Q2.S,T,S)
+ line from Q1.G to Q2.G
+ line from Q1.S to Q2.D
+ ]')
+
+S1: cpair with .Rail at P2.Rail+(P2.Q2.G.x-P2.Rail.x+P2.Q2.G.x-P2.Q2.D.x+del,0)
+S2: cpair with .Q1.G at (S1.Q1.D.x+del,S1.Q1.G.y)
+S3: cpair with .Rail at 2 between S1.Rail and S2.Rail
+
+ line from Vcp to (S2.Q2.G,Vcp); dot
+ dot(at (S2.Q2.D,Here)); line to (S3.Q2.G,Here); dot
+ dot(at (S3.Q2.D,Here)); arrow right del; "$e_2$" ljust
+ dot(at P2.Q1.S); line to (S1.Q1.G,Here); dot
+ dot(at (S1.Q2.D,Here)); arrow to (last arrow.end,Here); "$e_1$" ljust
+
+
+] with .sw at last [].se+(0.25,0)
+
+[
+ elen=0.2
+
+VDD: dot; llabel(,V_{DD},)
+ line down_ elen/2
+P1: mosfet(up_,,ZSDFdTX,) with .D at Here
+
+MIDDLE: line from P1.S down_ elen/2
+
+N1: mosfet(up_,,ZSDFTX,) with .D at Here
+N2: mosfet(up_,,ZSDFTX,) with .D at N1.S
+ ground(at N2.S)
+
+ING: P1.G+(-elen/2,0)
+
+ line from P1.B right_ elen * 2/5 then down_ elen * 4/5
+ line to (ING, Here)
+ dot
+
+ line from N1.B right_ elen * 2/5 then up_ elen * 4/5
+ line to (ING, Here)
+ dot
+
+ line from N1.G to (ING,N1.G)
+ dot
+
+ line from N2.G to (ING,N2.G) then to ING then to P1.G
+
+ dot(at (ING,MIDDLE))
+ line left_ elen*2
+ "$V_{\hbox{\scriptsize in}}$" above
+
+ dot(at MIDDLE)
+ line right_ elen*2
+ { "$V_{\hbox{\scriptsize out}}$" above }
+
+ line from N2.B to (Here,N2.B)
+ "$V_{BB}$" above
+
+PUNT:dot(at 0.5 between N1.S and N2.D)
+
+ "$V_x$" ljust
+
+ "$P_1$" at P1.Channel.end above rjust
+ "$N_1$" at N1.Channel.start below rjust
+ "$N_2$" at N2.Channel.start below rjust
+
+] with .sw at last [].se
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex12.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/ex15.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex15.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex15.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,40 @@
+.PS
+# ex15.m4
+gen_init
+
+[
+n = 10; r = 1
+for i = 1 to n-1 do {
+ for j = i+1 to n do {
+ line from rect_(r,i*twopi_/n) to rect_(r,j*twopi_/n)
+ }
+ }
+ ]
+[
+ linethick = 2.5
+ crad = 1.0
+ C: circle rad crad
+ g = 0.65
+ D: C+(Rect_(crad*g,110))
+ rm = crad+distance(C,D)
+ for r=lthick to rm by 2*lthick do {
+ if r < (1-g)*crad then { circle rad r at D thick r/rm*linethick } \
+ else { arc cw from Cintersect(D,r,C,crad) \
+ to Cintersect(D,r,C,crad,R) with .c at D thick r/rm*linethick }
+ }
+
+ linethick = 1.5
+ C: circle invis rad crad with .w at C.e+(0.1,0)
+ D: C+(Rect_(crad*g,110))
+ a = 1 # fade rate parameter
+ for r=lthick to rm by lthick do {
+ u = 1-(r/rm*(a*r/rm+(1-a)))
+ if r < (1-g)*crad then { circle outlined rgbstring(u,u,u) rad r at D } \
+ else { arc cw outlined rgbstring(u,u,u) from Cintersect(D,r,C,crad) \
+ thick linethick*1.5 to Cintersect(D,r,C,crad,R) with .c at D
+ }
+ }
+ circle rad C.rad at C
+ ] with .w at last [].e+(0.1,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex15.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/ex16.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex16.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex16.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,67 @@
+.PS
+# ex16.m4
+cct_init
+[
+define(`elen_',linewid*1.2)
+ circlerad = delay_rad_
+ {"\sl input" above ljust}
+ line right_
+J: Here
+ delay
+K: Here
+ delay
+L: Here
+S1: circle "$+$" at (K.x,K.y+linewid)
+S2: circle "$+$" at (L,S1)
+ arrow up_ S1.y-J.y from J then to S1.w
+ arrow from K to S1.s
+ arrow from S1.e to S2.w
+ arrow from L to S2.s
+S3: circle "$+$" at (L.x,L.y-linewid)
+ arrow down_ J.y-S3.y from J then to S3.w
+ arrow from L to S3.n
+ arrow from S2.e right_ linewid/2 then down_ (S2.y-S3.y)/2-circlerad \
+ then right_ linewid/2
+ arrow from S3.e right_ linewid/2 then up_ (S2.y-S3.y)/2-circlerad \
+ then right_ linewid/2
+ "\sl output" at 0.5<last arrow.end, 2nd last arrow.end>
+ ]
+[
+ circlerad = 0.35/2
+ d = linewid*1.75
+ S00: circle "$00$"
+ S10: circle "$10$" at S00+(d,d)
+ S01: circle "$01$" at S00+(d,-d)
+ S11: circle "$11$" at S01+(d,d)
+ dx = circlerad*cosd(60)
+ dy = circlerad*sind(60)
+ brad = circlerad*1.3
+ qrad = circlerad*6
+
+ arc -> cw from S00+(-dx,-dy) to S00+(-dx,dy) rad brad \
+ with .c at S00-(dx+sqrt(brad^2-dy^2),0)
+ "$0/00$" at last arc.w rjust
+ right
+ arc -> cw from S00+(dx,dy) to S10+(-dy,-dx) rad qrad
+ "$1/11$" at last arc.nw rjust above
+ right
+ arc -> cw from S10+(dy,-dx) to S11+(-dx,dy) rad qrad
+ "$1/01$" at last arc.ne ljust above
+ up_
+ arc -> cw from S11+(dx,dy) to S11+(dx,-dy) rad brad \
+ with .c at S11+(dx+sqrt(brad^2-dy^2),0)
+ "$1/10$" at last arc.e ljust
+ down_
+ arc -> cw from S11+(-dx,-dy) to S01+(dy,dx) rad qrad
+ "$0/01$" at last arc.se ljust below
+ left_
+ arc -> cw from S01+(-dy,dx) to S00+(dx,-dy) rad qrad
+ "$0/11$" at last arc.sw rjust below
+ up_
+ arc -> cw from S01+(-dx,dy) to S10+(-dx,-dy) rad qrad*2
+ "$1/00$" at last arc.w rjust
+ down_
+ arc -> cw from S10+(dx,-dy) to S01+(dx,dy) rad qrad*2
+ "$0/10$" at last arc.e ljust
+ ] with .sw at last [].se+(0.4,0)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex16.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/ex17.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex17.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex17.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,43 @@
+.PS
+# ex17.m4
+cct_init
+
+[
+nrows = 4
+ncols = 9
+linewid = linewid*0.6 # everything smaller
+define(`elen_',linewid) # shorter default length
+
+ for j = 1 to nrows do {
+ { for i = 1 to ncols do {
+ Point_(-120) resistor
+ Point_( 0) inductor
+ Point_( 120) capacitor
+ if i < ncols then {Point_(0) diode} }
+ }
+ Point_(-120) move to rvec_(elen_,0)
+ { for i = 1 to ncols do {
+ Point_(-60) capacitor
+ Point_( 60) resistor }
+ }
+ Point_(-60) move to rvec_(elen_,0)
+ }
+ Point_(0) for i = 1 to ncols-1 do { inductor }
+]
+
+[ # an exercise of the `parallel_' macro:
+ down_ # for labelling
+ Point_(-80) # skew current direction
+
+ parallel_(Sep=1.75*dimen_;
+ parallel_(
+ `capacitor(,C); rlabel(,,C_2)',
+ `resistor; llabel(,R_2)' ),
+ parallel_(
+ `resistor; rlabel(,R_1); move to rvec_(-dimen_/5,0)
+ inductor(,W); rlabel(,L_1)',
+ `reversed(`source',to rvec_(elen_,0),V,sourcerad_*2.5); rlabel(,v_s)' )
+ )
+
+] with .sw at last [].se+(elen_,0)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex17.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/ex18.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex18.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex18.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,37 @@
+.PS
+# ex18.m4
+cct_init
+
+[
+ "$v_i$" rjust; dot
+ resistor(right_ dimen_) ; llabel(,R_i)
+T: dot
+ line right_ linewid/4
+A: opamp with .In1 at Here
+
+ line from A.In2 to (T,A.In2)
+ resistor(down_ dimen_) ; rlabel(,R_g)
+ ground(,T)
+
+ line right_ dimen_ from A.Out
+ diode(up_ dimen_); dot
+ {line right_ linewid/2; dot; "$v_o$" ljust }
+ resistor(left_ to (A.Out,Here)) ; rlabel(,R_o); dot
+ { diode(down_ to A.Out); dot }
+ line to (T,Here) then to T
+]
+
+[
+define(`dimen_',dimen_*1.25)
+
+B: battery(up_ dimen_*2/3); rlabel(,V^o)
+ move down dimen_/4
+ resistor(up_ dimen_); rlabel(,R,)
+ inductor(right_ elen_); b_current(i); rlabel(,L)
+ { capacitor(down_ to (Here,B.start)); rlabel(,C); llabel(+,v,-) }
+ line right_ dimen_
+ diode(down_ to (Here,B.start),T); b_current(h(v))
+ line to B.start
+] with .nw at last [].ne+(20bp__,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex18.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/ex21.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex21.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex21.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,64 @@
+.PS
+# ex21.m4
+log_init
+ iflatex(`textoffset = 1bp__; ifpsfrag(,`latexcommand({\sf)') ')
+
+dy = 0.2
+ddy = 1.8*dy
+
+D: FlipFlop(D)
+ `"\tt FlipFlop(D)"' at last [].s+(0,-ddy) above
+T: FlipFlop( T) with .Chip.sw at last [].se + (0.4,0)
+ `"\tt FlipFlop(T)"' at last [].s+(0,-ddy) above
+RS: FlipFlop(RS) with .Chip.sw at last [].se + (0.4,0)
+ `"\tt FlipFlop(RS)"' at last [].s+(0,-ddy) above
+JK: FlipFlop(JK) with .Chip.sw at last [].se + (0.4,0)
+ `"\tt FlipFlop(JK)"' at last [].s+(0,-dy) above
+
+# Test 3: synchronous 3-bit counter
+define(`counterFF',``$1':FlipFlop(JK) `$2'
+ "\sf\scriptsize `$1'" at `$1'.Chip.sw below ljust
+ "\sf\scriptsize $`'1$" at `$1'.PinCLR.end above
+ "\sf\scriptsize $`'1$" at `$1'.PinPR.end below')
+
+[
+right_
+ counterFF(FF0)
+ counterFF(FF1,with .Chip at FF0.Chip+(-28*L_unit,0))
+ counterFF(FF2,with .Chip at FF1.Chip+(-28*L_unit,0))
+ "\sf\scriptsize $1$sp_" at FF0.PinJ.end rjust
+ "\sf\scriptsize $1$sp_" at FF0.PinK.end rjust
+Dc: FF2.Chip.sw+(-9*L_unit,-7*L_unit)
+Bot: Dc+(0,-3*L_unit)
+
+left_
+AndG: AND_gate at FF1.Chip.nw+(4*L_unit,12*L_unit)
+right_
+
+ line from FF2.PinCK.end left 3*L_unit
+ line to (Here,Dc); dot
+ line from FF1.PinCK.end left 3*L_unit
+ line to (Here,Dc); dot
+ line from FF0.PinCK.end left 3*L_unit
+ line to (Here,Dc) then to Dc
+ "\sf\scriptsize $D_C$ sp_" rjust
+
+ line from FF2.PinK.end to FF2.PinJ.end; dot
+ line to (Here,AndG.Out) then to AndG.Out
+
+ line from FF1.PinK.end to FF1.PinJ.end; dot
+ line to (Here,FF1.PinCLR.end+(0,3*L_unit))
+ line to (AndG.In2+(6*L_unit,0),Here) then to AndG.In2+(6*L_unit,0); dot
+
+ line from FF0.PinQ.end right 0.1; dot
+ line from AndG.In2 to (Here,AndG.In2) then to (Here,Bot); "$D_{00}$" below
+
+ line right 0.1 from FF1.PinQ.end; dot
+ line from AndG.In1 to (Here,AndG.In1) then to (Here,Bot); "$D_{01}$" below
+
+ line right 0.1 from FF2.PinQ.end
+ line to (Here,Bot); "$D_{02}$" below
+ ] with .n at 0.5<2nd[].s,3rd[].s> - (0,0.4)
+
+ iflatex(ifpsfrag(,`latexcommand(})'))
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ex21.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/examples.pdf
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/examples.pdf
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/examples.pdf 2019-09-05 22:25:35 UTC (rev 52034)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/examples.pdf 2019-09-05 22:33:48 UTC (rev 52035)
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/examples.pdf
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/pdf
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/examples.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/examples.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/examples.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,34 @@
+% PSTricks examples.tex
+
+\documentclass[11pt]{article}
+\usepackage{times}
+%\usepackage{pstricks,pst-grad}
+\input mode
+\usepackage{rotating}
+\usepackage{graphicx}
+\usepackage{boxdims}
+\usepackage{upgreek}
+\usepackage[amssymb,Gray,thinqspace,textstyle]{SIunits}
+\usepackage{amssymb}
+
+\input header
+
+\global\psttrue
+
+\begin{document}
+ \hfill
+ {\large\bf Examples:
+ \input{Version.tex}}
+ \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 or 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. The most simplicity and elegance is
+ achieved by sticking to one pic interpreter and one postprocessor.
+
+\input files
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/examples.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/exp.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/exp.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/exp.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,258 @@
+.PS
+# exp.m4
+threeD_init
+NeedDpicTools
+
+# Graduated shading is probably best done using the built-in functions
+# of PSTricks or the somewhat equivalent tikz capabilities. Other
+# postprocessors do not have the same functionality so the following
+# demonstrates how it can be done in the pic language with m4 macros.
+# See the macro `PhadedPolygon' in libgen.m4
+
+# Projected box object:
+[
+g = 1.2
+define(`axlen',1.2*g)
+define(`O3',`0,0,0')
+define(`X0',`axlen,0,0')
+define(`Y0',`0,axlen,0')
+define(`Z0',`0,0,axlen')
+
+# diagram viewing angle
+dazim = 54
+delev = 15
+setview(dazim,delev)
+
+# projection azimuth, elevation
+pazim = 20*dtor_
+pelev = 35*dtor_
+arad = 0.6*g
+
+# object displacement
+define(`D3',`0.3*g,0.6*g,0.9*g')
+
+# fixed coordinate frame
+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
+
+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))
+psset_(linecolor=black)
+ 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
+ "$\theta$" above
+ right_
+ 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))
+ Fector(R01(Y0),R01(Z0)) with .Origin at O ;
+ "$y_1$" ljust at project(R01(Y0))
+ Fector(R01(Z0),R01(Y0)) with .Origin at O ;
+ "$z_1$" above at project(R01(Z0))
+thicklines_
+
+# box object dimension
+b = 0.6*g
+d = 0.4*g
+h = 0.20*g
+
+# 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)
+
+# 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))))
+thinlines_
+ line from PB1 to P1
+ line from PB2 to P2
+ line from PB7 to P7
+ line from PB4 to P4
+thicklines_
+
+# draw the object
+ ifdpic(`line invis fill_(1) from PB4 to PB7 to PB6 to PB5
+ line from PB4 to PB7; line to PB6; line to PB5 ; line to PB4
+ line invis fill_(0.5) from PB5 to PB6 to PB2 to PB1
+ line from PB5 to PB6; line to PB2; line to PB1 ; line to PB5
+ line invis fill_(0.85) from PB6 to PB7 to PB3 to PB2
+ line from PB6 to PB7; line to PB3; line to PB2 ; line to PB6',
+ `gshade(1,PB4,PB7,PB6,PB5,PB4,PB7)
+ gshade(0.5,PB5,PB6,PB2,PB1,PB5,PB6)
+ gshade(0.85,PB6,PB7,PB3,PB2,PB6,PB7)')
+ line from PB4 to PB5 to PB1 to PB2 to PB3 to PB7 to PB4
+ line from PB5 to PB6 to PB7
+ line from PB6 to PB2
+
+ arrow from O to PB1 chop linethick pt__; "$X$" rjust
+
+ line from P4 to P5 to P1 to P2 to P3 to P7 to P4
+ line from P5 to P6 to P7
+ line from P6 to P2
+ line dashed from P4 to P0 to P3
+ line dashed from P0 to P1
+ ]
+
+# Globe:
+[
+ # Set small text size
+ iflatex(`textoffset = 1bp__; ifpsfrag(`textht = 9.5bp__',
+ `latexcommand({\small)') ')
+
+ azimuth = 15 # View angles in degrees
+ elevation = 35
+ setview(azimuth,elevation)
+
+ rectwid = 3.5 # Basic dimensions
+ rectht = 2.4
+ 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)
+
+ ShadedPolygon(NW:NE:SE:SW,,-90,
+ 0,0.25,0.25,0.25,
+ 1,1,1,1) with .Start at NW
+
+ define(`C3D',`0,0,alpha') # Centre of the sphere
+ C: project(C3D)
+
+# # Shaded sphere using PSTricks or tikz:
+# # this is black magic but PSTricks
+# # seems to give more control
+# ifpstricks(
+# `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,%"
+# command sprintf("GradientPos={(%g,%g)}]{",Highlight.x,Highlight.y)
+# circle rad alpha at C
+# command "}%"',
+#
+# `ifpgf( # A little too dark with tikz-pgf, maybe:
+# `command sprintf(\
+# "\dpicdraw[ball color=white](%g,%g) circle (%gin)\dpicstop",\
+# C.x,C.y,alpha/2.54)',
+#
+# `circle rad alpha at C fill_(1) ')')
+
+ # Shaded sphere with pic shading:
+ shadedball(alpha) at C
+
+ S: 0,0 # The sphere bottom touch point
+ "$S$" at S+(0,-2pt__) rjust
+ "$\alpha$" at 0.5<S,C> ljust
+
+ define(`N3D',`0,0,2*alpha') # North pole
+ 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
+
+ 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
+ $2 = distance(Tlv,C)-alpha }
+
+`define' invisline { # name # Draw dashed invisible part of line in
+ Tmp: $1 # the plane
+ findroot(linevis, 0, 1, 1e-8, x)
+ line dashed from S to x between S and Tmp chop 0 chop 0.05 }
+
+thinlines_ # axes
+ invisline(X)
+ arrow to X chop 0.05 chop 0; "$x$" below
+ invisline(Y)
+ arrow to Y chop 0.05 chop 0; "$y$" ljust
+ line dashed from S to N chop 0 chop 0.05
+ 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))
+ "$\phi$" below at 0.5 between last arc.start and last arc.end
+
+ # vector (ratio along (N to Phat))
+define(`ray',`sum3D(N3D,sprod3D($1,diff3D(Phat3D,N3D)))')
+`define' rayvis { # ratio
+ $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
+
+thicklines_
+ line dashed from N to P chop 0 chop 0.05
+ line to Phat chop 0.05 chop 0
+
+define(`meridian',`rot3Dz(phi,rot3Dy(-($1),alpha,0,0))')
+`define' meridianvis { # angle # Visibility function on the meridian
+ $2 = dot3D(meridian($1),View3D) }
+
+thinlines_ # Draw the meridian
+ 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 }
+ 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 }
+ fitcurve(Q,n-1,dashed)
+
+define(`equator',`rot3Dz($1,alpha,0,0)')
+`define' equatorvis { # angle # Visibility function on the equator
+ $2 = dot3D(View3D,equator($1)) }
+
+ 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 }
+ 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 }
+ fitcurve(Q,n-1,dashed)
+
+ line dashed from C to P # beta
+ 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__)
+
+ iflatex(ifpsfrag(,`latexcommand(})'))
+ ] with .w at last [].e+(0.5,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/exp.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/files.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/files.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/files.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,668 @@
+% The format of this file must be strictly retained to avoid problems
+% in the generation of examples.html
+\bfig{
+ \centerline{\getpic{quick}}
+ \caption{The quick-start example from the manual
+ \src{quick.m4}.}
+ }
+
+\bfig{
+ \centerline{{\small\getpic{CctTable}}}
+ \caption{Two-terminal elements, showing some variations
+ \src{CctTable.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Diodes}}
+ \caption{Diodes: a {\tt K} in the second argument draws an open arrowhead
+ \src{Diodes.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Emarrows}}
+ \caption{Radiation arrows
+ \src{Emarrows.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Sources}}
+ \caption{Sources and source-like elements
+ \src{Sources.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Variable}}
+ \caption{Arrows and marks indicating variability
+ \src{Variable.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{AmpTable}}
+ \caption{Macros {\tt amp}, {\tt delay}, and {\tt integrator}
+ \src{AmpTable.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Fuses}}
+ \caption{Macros {\tt fuse} and {\tt cbreaker}
+ \src{Fuses.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Switches}}
+ \caption{The switch macros; {\tt switch(,,,L|B|D)} is a wrapper
+ for {\tt lswitch}, {\tt bswitch}, and {\tt dswitch}
+ \src{Switches.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Grounds}}
+ \caption{Ground symbols
+ \src{Grounds.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Antennas}}
+ \caption{Antenna symbols
+ \src{Antennas.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Audio}}
+ \caption{Audio elements
+ \src{Audio.m4}.}
+ }
+
+\bfig{
+ {\small\centerline{\getpic{Opamp}} }
+ \caption{The opamp
+ \src{Opamp.m4}.}
+ }
+
+\bfig{
+ {\small\centerline{\getpic{Xform}} }
+ \caption{The transformer element, drawing direction down
+ \src{Xform.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Relay}}
+ \caption{The {\tt contact} and {\tt relay} macros
+ \src{Relay.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{NPDT}}
+ \caption{Double throw with the {\tt NPDT} macro
+ \src{NPDT.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Jack}}
+ \caption{The {\tt jack} and {\tt plug} macros
+ \src{Jack.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Conn}}
+ \caption{The {\tt tstrip}, {\tt ccoax}, {\tt tconn}, and {\tt tbox} macros
+ \src{Conn.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Pconn}}
+ \caption{The {\tt pconnex} macro
+ \src{Pconn.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Headers}}
+ \caption{The {\tt Header} macro
+ \src{Headers.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{fet}}
+ \caption{FETs, showing programmable components and example customizations
+ \src{fet.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ujt}}
+ \caption{UJT examples
+ \src{ujt.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{thyristor}}
+ \caption{Thyristor examples
+ \src{thyristor.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Bip}}
+ \caption{Bipolar transistors (drawing direction: up)
+ \src{Bip.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Tgate}}
+ \caption{The {\tt tgate} and {\tt ptrans} elements
+ \src{Tgate.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Nport}}
+ \caption{The {\tt nport} and {\tt nterm} macros
+ \src{Nport.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{NLG}}
+ \caption{Some customizations of {\tt nport}
+ \src{NLG.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Windings}}
+ \caption{The macro
+ {\tt winding(L|R,diam,pitch,turns,core wid,core color)}
+ \src{Windings.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex01}\quad
+ \getpic{Timer}}
+ \caption{Two simple labeled circuits
+ \src{ex01.m4}%
+ \src{Timer.m4}.}
+ }
+
+\bfig{
+ {\small\centerline{\getpic{Optoiso}} }
+ \caption{Optical isolator: a circuit with right or left orientation
+ \src{Optoiso.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Mixer}}
+ \caption{A balanced mixer, using {\tt mosfet} and a custom transformer
+ \src{Mixer.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{PushPull}}
+ \caption{A push-pull mixer, showing FETs with multiple gates
+ \src{PushPull.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Quantum}}
+ \caption{A quantum circuit
+ \src{Quantum.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{SQUID}}
+ \caption{Superconducting quantum interface device (drawing direction down)
+ \src{SQUID.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Sixpole}}
+ \caption{A six-pole filter
+ \src{Sixpole.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex18}}
+ \caption{Precision half-wave rectifier and a tunnel diode circuit
+ (illustrating {\tt opamp, diode, resistor, ground,} and labels)
+ \src{ex18.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{MC}}
+ \caption{A three-phase switched AC-AC converter
+ \src{MC.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex10}}
+ \caption{Non-planar graph and bistable circuit
+ (illustrating the {\tt crossover} macro and colored elements)
+ \src{ex10.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Three}}
+ \caption{Three-phase oscillator
+ \src{Three.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex17}}
+ \caption{A repetitive network created by Pic looping and
+ a skewed circuit used to test the macro {\tt parallel\_}
+ \src{ex17.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex12}}
+ \caption{ A CMOS NAND gate, a test circuit, and an XMOSFET example
+ \src{ex12.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{pwrsupply}}
+ \caption{An elementary power supply circuit with colored elements,
+ and a multiple-winding transformer with 3-phase rectifier
+ \src{pwrsupply.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{TTLnand}}
+ \caption{ TTL NAND gate illustrating a transistor with multiple emitters
+ \src{TTLnand.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{I2L}}
+ \caption{ Gate circuit and equivalent embedded $I^2L$ components
+ illustrating multiple collectors
+ \src{I2L.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Schottky}}
+ \caption{ A 4-input NAND circuit illustrating the {\tt S} (Schottky)
+ option of {\tt bi\_trans}
+ \src{Schottky.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex11}}
+ \caption{Transistor radio audio chain
+ \src{ex11.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex04}}
+ \caption{Labels on non-manhattan elements
+ \src{ex04.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Csource}}
+ \caption{Realization of a controlled source
+ (illustrating stacked element labels)
+ \src{Csource.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Drive}}
+ \caption{Synchronous machine driven by variable-speed drive and rectifier
+ \src{Drive.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex16}}
+ \caption{A rate $1/2$ binary convolutional coder and its state diagram
+ \src{ex16.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex03}}
+ \caption{Digital filter
+ \src{ex03.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{MotorControl}}
+ \caption{Motor control connections
+ \src{MotorControl.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex02}}
+ \caption{Elements at obtuse angles
+ \src{ex02.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Rectifiers}}
+ \caption{Rectifier circuits and waveforms
+ \src{Rectifiers.m4}.}
+ }
+
+\begin{sidewaysfigure} %\rotatebox{90}{% \begin{landscape} %ignore%
+\bfig{
+ \centerline{\hspace*{2cm}\getpic{Heathkit}}
+ \caption{The power supply of a Heathkit AR-15 (Now, {\em that}
+ was a receiver!) with custom transformer and other elements,
+ drawn on a grid (partially shown) to aid in placement
+ \src{Heathkit.m4}.}
+ }
+\end{sidewaysfigure} %}% \end{landscape}
+
+\begin{sidewaysfigure} %\rotatebox{90}{% \begin{landscape} %ignore%
+\bfig{
+ \centerline{\hspace*{2cm}\getpic{lcct}}
+ \caption{A digital circuit of moderate size,
+ redrawn from M.~P.~Maclenan and G.~M.~Burns,
+ ``An Approach to Drawing Circuit Diagrams for Text Books,''
+ Tugboat (12)1, March 1991, pp.\ 66-69
+ \src{lcct.m4}.}
+ }
+\end{sidewaysfigure} %}% \end{landscape}
+
+\bfig{
+ \centerline{\getpic{sfg}}
+ \caption{Signal-flow graphs
+ \src{sfg.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Logic}}
+ \caption{Basic logic gates
+ \src{Logic.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex08}}
+ \caption{General-purpose latch: a small logic circuit
+ \src{ex08.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Decoder}}
+ \caption{Decoder logic, constructed using the {\tt for\_} macro
+ \src{Decoder.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex21}}
+ \caption{Some flip-flops
+ \src{ex21.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Multiplexer}}
+ \caption{Multiplexer
+ \src{Multiplexer.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Demultiplexer}}
+ \caption{Demultiplexer
+ \src{Demultiplexer.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ShiftR}}
+ \caption{A 5-bit shift register drawn using a custom flip-flop
+ \src{ShiftR.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Adder}}
+ \caption{A full adder and a cascade of $n$-bit adders
+ \src{Adder.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{CanLogic}}
+ \caption{A way of automatically drawing two-layer logic diagrams
+ \src{CanLogic.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Alogix}}
+ \caption{The {\tt Autologix(}{\sl Boolean expression};
+ {\sl Boolean expression}... , {\sl options}{\tt )}
+ macro automatically draws Boolean expressions in function notation.
+ The function tree is drawn, then a row or column of inputs, then
+ the connections. The default result is on the left,
+ a custom element at the top, and a tree of gates only is shown
+ on the right.
+ \src{Alogix.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ABlogix}}
+ \caption{The {\tt Autologix} macro can draw inputs on the left but
+ the added drawing complexity may require hand tuning with
+ second-argument options: {\tt L} puts the inputs on the left,
+ {\tt R} reverses their order, {\tt V} scans the input arguments
+ in reverse order, and {\tt offset=}{\sl value} displaces the array
+ of inputs
+ \src{ABlogix.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{XOR}}
+ \caption{Realizations of the XOR function using {\tt Autologix}
+ \src{XOR.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex00}}
+ \caption{Line diagrams
+ \src{ex00.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Crossbar}}
+ \caption{A crossbar switch
+ \src{Crossbar.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Byte}}
+ \caption{Elementary splines
+ \src{Byte.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Rotbox}}
+ \caption{The macro
+ {\tt rotbox(}{\sl wid,ht,type,}{\tt [r|t=}{\sl val}{\tt ])}
+ draws a box in the current direction
+ \src{Rotbox.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{exp}}
+ \caption{Test of {\tt project} and other {\tt lib3D}
+ macros, showing the projection of a solid onto
+ the $y_1,z_1$ plane by sighting along the $x_1$ axis.
+ \src{exp.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{graysurf}}
+ \caption{Plotting surfaces using gray scales. A sort algorithm
+ determines plotting order
+ \src{graysurf.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{shapes}}
+ \caption{Basic shapes
+ \src{shapes.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex09}}
+ \caption{Illustrating the macro
+ {\tt dimension\_(}{\sl linespec}, {\sl offset}, {\sl label},
+ {\tt D|H|W|}{\sl blank width}, {\sl tic offset},{\tt <-|->)}.
+ A negative second argument implies an offset to the right of the
+ {\sl linespec} direction. A {\sl label} starting with {\tt "} or
+ {\tt sprintf} is copied literally. If {\sl label} is an
+ {\tt s\_box(...)} then setting argument 4 to {\tt H}, {\tt W}, or
+ {\tt D} tailors the blank width to the {\tt s\_box} height, width, or
+ diagonal respectively; i.e.,\ {\tt W} is equivalent to
+ {\tt s\_wd+textoffset*2}.
+ The macro {\tt arcdimension\_} is similar but the first argument
+ specifies the arc to be dimensioned and the second argument is
+ the outward radial offset of the dimension arrow arc.
+ \src{ex09.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex05}}
+ \caption{Use of {\tt darrow}
+ \src{ex05.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{control}}
+ \caption{Control-system block diagrams that do not require m4
+ \src{control.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex06}}
+ \caption{Crosshatching by {\tt for} loops
+ \src{ex06.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Loglog}}
+ \caption{A graph drawn using the pic language
+ \src{Loglog.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{random}}
+ \caption{Testing random numbers
+ \src{random.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{csc}}
+ \caption{Conestoga Sailing Club (illustrating the filling of arbitrary
+ shapes)
+ \src{csc.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{rose}}
+ \caption{Redrawn from a detail of the set design for the musical
+ {\it Dracula,} used for testing {\tt dpic}. This diagram
+ consumes much \LaTeX\ main memory but can be produced
+ directly as pdf using \hbox{\tt dpic -d},
+ as svg using \hbox{\tt dpic -g},
+ or as postscript using \hbox{\tt dpic -r}
+ since no text formatting is required
+ \src{rose.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{diamond}}
+ \caption{Variations on M.~Goossens, S.~Rahtz, and F.~Mittelbach,
+ {\em The \LaTeX\ Graphics Companion,} Addison-Wesley 1997, pp.\ 57-58
+ \src{diamond.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{worm}}
+ \caption{An exercise in calculating RGB colours
+ \src{worm.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Buttons}}
+ \caption{Shading in color
+ \src{Buttons.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Sierpinski}}
+ \caption{The Sierpinski triangle: a test of pic macro recursion
+ \src{Sierpinski.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{recycle}}
+ \caption{Modest repetition and partial fill
+ \src{recycle.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{ex15}}
+ \caption{Simple diagrams that are easily drawn by looping
+ \src{ex15.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Counting}}
+ \caption{An example of enumeration
+ \src{Counting.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Crow}}
+ \caption{Illustrating {\tt shadebox} and a custom crowfoot line termination
+ \src{Crow.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Flow}}
+ \caption{A flowchart sampler
+ \src{Flow.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Btree}}
+ \caption{A binary tree
+ \src{Btree.m4}.}
+ }
+
+\bfig{
+ \centerline{\getpic{Ttree}}
+ \caption{Another tree
+ \src{Ttree.m4}.}
+ }
+
+% Overlaying a figure with line graphics depends on the postprocessor:
+\ifpst% PSTricks
+\bfig{%
+ \centerline{\getpic{Incleps}}%
+ \caption{Overlaying a figure with line graphics
+ \src{Incleps.m4}.}%
+ }
+\else\ifpgf% PGF
+\bfig{%
+ \centerline{\getpic{Incleps}}% %ignore%
+ \caption{Overlaying a figure with line graphics %ignore%
+ \src{Incleps.m4}.}%
+ }
+\else\ifmpost% MetaPost
+\bfig{%
+ \centerline{\boxdims{InclA}{%ignore%
+ \includegraphics[width=3in]{../Incl.eps.gz}}%
+ \hspace*{-3in}\includegraphics{Inclpdf.1}}%
+ \caption{Overlaying a figure with line graphics %ignore%
+ \src{Inclpdf.m4}.}
+ }
+\else\ifpdfl% pdflatex
+\bfig{%
+ \centerline{\boxdims{InclA}{%ignore%
+ \includegraphics[width=3in]{../Incl}}%
+ \hspace*{-3in}\includegraphics{Inclpdf}}%
+ \caption{Overlaying a figure with line graphics %ignore%
+ \src{Inclpdf.m4}.}
+ }
+\else\ifpostscript% Postscript with psfrag (.eps.gz not allowed)
+\bfig{%
+ \centerline{\boxdims{InclA}{%ignore%
+ \includegraphics[width=3in]{Incl.eps}}%
+ \hspace*{-3in}\includegraphics{Inclpdf.eps}}%
+ \caption{Overlaying a figure with line graphics %ignore%
+ \src{Inclpdf.m4}.}
+ }
+\fi\fi\fi\fi\fi
+
+\end{document}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/files.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/graysurf.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/graysurf.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/graysurf.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,189 @@
+.PS
+# graysurf.m4
+threeD_init
+NeedDpicTools
+
+Overall: [
+
+Surface:[
+# This just draws the facets back to front
+
+ setview(20,30)
+ dimen = 1.5
+
+ xmax = 2*dimen
+ ymax = 1.5*dimen
+ zmax = 1*dimen
+
+ define(`fn',
+ `expe(-(`$1')/tt)*cos((`$2')/xmax*1.75*twopi_)*cos((`$1')/ymax*twopi_)')
+
+ nx = 24; dx = xmax/nx
+ ny = 30; dy = ymax/ny
+ tt = 1.5
+ fnmax = fn(0,0,0)
+
+ 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
+
+ linethick_(0)
+ for i = 0 to nx-1 do {
+ x = xmax*i/nx
+ for j = 0 to ny-1 do {
+ 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))
+ ) } }
+] with .w at last [].e+(-0.2,0)
+
+Torus: [
+# Calculate all the facet centres but draw
+# only a subset of them after sorting
+
+ viewazimuth = 20 # Set view angles in degrees
+ viewelevation = 30
+
+ setview(viewazimuth,viewelevation,0)
+
+ sfactor = 0.7
+ tradius = 2*sfactor
+ sradius = 0.75*sfactor
+
+define(`torus',`rot3Dz((`$1')*dtor_,
+ sum3D(tradius,0,0,rot3Dy((`$2')*dtor_,sradius,0,0)))')
+
+define(`tvisible',
+ `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
+
+ dt = 10 # major angle degrees per facet
+ ds = 10 # minor angle degrees per facet
+
+ # create the arrays and sort
+ n = 0
+ for t = dt to 360+dt/2 by dt do {
+ for s=ds/2 to 360.1 by ds do {
+ if tvisible(t,s) >= 0 then {
+ n +=1
+ t[n] = t
+ s[n] = s
+ d[n] = dot3D(torus(t,s),view3D1,view3D2,view3D3) # view distance
+ ix[n] = n
+ } } }
+#prval(n)
+ dpquicksort(d,1,n,ix)
+
+ # draw the facets
+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)))
+ f = ((dcosine3D(3,torus(tc,sc))/sradius+1)/2)^2
+ g = min(f,0.9)
+ setrgb(g,g,g)
+ line fill f ifpdf( invis ) \
+ from SE to SW then to NW then to NE then to SE
+# line invis shaded rgbstring(f,f^3,f^3) \
+# f from SE to SW then to NW then to NE then to SE
+ resetrgb
+ }
+
+thicklines_
+ 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)
+ arrow to Y.end
+
+] with .sw at last [].se+(0.2,0)
+
+Hat: [
+# Sort as for the torus but draw edges too
+
+ azimuth = 25 # View angles in degrees
+ elevation = 20
+ setview(azimuth,elevation)
+ # the 3D object: `hat(t,y)'
+ define(`hat',`cosd($1)*($2),sind($1)*($2),(($2)^2-1)^2')
+ define(`gradient',`(-4*($2)*(($2)^2-1)*cosd(`$1')),
+ (-4*($2)*(($2)^2-1)*sind(`$1')),1')
+ define edge {$2=dot3D(View3D,gradient($1,y))}
+ define(`hatvis',
+ `(($2 > 0.6) || (dot3D(View3D,gradient($1,$2)) > 0))')
+
+ # grid parameters
+ dang = 09
+ maxy = 1.25
+ 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))
+ # create the arrays and sort
+ n = 0
+ for t = dang/2 to 360.1 by dang do {
+ for y=dy/2 to maxy by dy do {
+ if hatvis(t,y) then {
+ n +=1
+ t[n] = t
+ y[n] = y
+ d[n] = dot3D(hat(t,y),View3D) #distance toward the front
+ ix[n] = n
+ } } }
+#prval(n)
+ 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)
+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)))
+ f = abs(yc^2-1)
+ line invis fill f from SE to SW then to NW then to NE then to SE
+ }
+
+ # Outline where the surface goes invisible
+mm = int(maxy/dy)
+nr = -1
+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-1-nr]: (-R[mm+nr].x,R[mm+nr].y)
+ }
+fitcurve(R,mm*2-1)
+
+ # Z axis
+thicklines_
+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
+
+ # 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)
+] scaled 1.25 with .s at 1st [].ne+(0,-0.75)
+] scaled 0.85
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/graysurf.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/header.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/header.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/header.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,54 @@
+% header.tex
+% instead of \usepackage[cm]{fullpage} (letter size):
+ \setlength{\topmargin}{-29.59087pt}
+ \setlength{\headheight}{0pt}
+ \setlength{\headsep}{0pt}
+ \setlength{\textheight}{679.61174pt}
+ \setlength{\footskip}{30.0pt}
+ \setlength{\textwidth}{528.93675pt}
+ \setlength{\oddsidemargin}{-29.59087pt}
+ \setlength{\evensidemargin}{\oddsidemargin}
+
+% To test a new installation, all but one of the diagram inclusions
+% below might be commented out, and re-introduced one by one.
+
+\newcommand{\src}[1]{{\tt [#1]}}
+\newcommand{\makepic}{\box\graph} % Required only for gpic -t
+%\newcommand\scriptstack[2][c]{\hbox{\scriptsize\shortstack[#1]{#2}}}%
+\newbox\graph
+
+\newif\ifmpost
+\newif\ifpst
+\newif\ifpdfl
+\newif\ifpgf
+\newif\ifpostscript
+
+\newcommand{\getpic}[1]{%
+ \ifpst
+ \input #1 \makepic
+ \else\ifpgf
+ \input #1
+ \else\ifmpost
+ \includegraphics[trim=1 1 1 1]{#1.1}%
+ \else\ifpdfl
+ \includegraphics[trim=1 1 1 1]{#1}
+ \else\ifpostscript%
+ \includegraphics{#1.eps}%
+ \fi\fi\fi\fi\fi}
+
+% Left-justified captions to be used in parbox
+\makeatletter
+\def\caption#1{%
+ \vskip\abovecaptionskip
+ \refstepcounter{figure}
+ \sbox\@tempboxa{{Figure \arabic{figure}: #1}}%
+ \ifdim \wd\@tempboxa >\hsize
+ {Figure \arabic{figure}: #1}\par
+ \else
+ \global \@minipagefalse
+ \hb at xt@\hsize{\box\@tempboxa\hfil}%
+ \fi
+ \vskip\belowcaptionskip}
+\makeatother
+
+\newcommand{\bfig}[1]{\vspace{5ex}\noindent\parbox{\textwidth}{#1}}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/header.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/ics.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ics.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ics.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,84 @@
+divert(-1)
+
+ Macros defining some integrated circuits
+
+define(`lg_pinsep',3*L_unit) logic pin separation in logic units
+define(`lg_chipwd',18*L_unit) default chip width
+
+ `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])'
+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(`ic6116',`[ Chip: box wid_ lg_chipwd ht_ 15*lg_pinsep
+ "6116" at Chip.sw below ljust
+ lg_pin(Chip.sw_+(0,lg_pinsep),GND,Pin12,w,12)
+ 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),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.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)
+ ]')
+
+define(`ic6502',`[ Chip: box wid_ lg_chipwd ht_ 24*lg_pinsep
+ "6502" at Chip.sw_ below_ ljust_
+ 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,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)
+ lg_pin(Chip.sw_+(0,17*lg_pinsep),SYNC,Pin7,w,7)
+ 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.se_+(0,4*lg_pinsep),
+ {\large$\phi$}\hbox{\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)
+ ]')
+
+define(`ic6522',`[ Chip: box wid_ lg_chipwd ht_ 24*lg_pinsep
+ "6522" at Chip.sw below ljust
+ lg_pin(Chip.sw_+(0,lg_pinsep),V\hbox{\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,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),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_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),lg_bartxt(RESET),Pin34,eN,34)
+ ]')
+
+define(`ic74LS138',`[ Chip: box wid_ lg_chipwd ht_ 11*lg_pinsep
+ "74LS138" at Chip.sw below ljust
+ lg_pin(Chip.sw_+(0,lg_pinsep),GND,Pin8,w,8)
+ 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\hbox{\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)
+ ]')
+
+divert(0)dnl
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/ics.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/keyval.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/keyval.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/keyval.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,74 @@
+.PS
+# keyval.m4
+cct_init
+
+#An experiment in defining macro options as key1=val1;key2=val2; ...
+# `resistor( linespec,
+# cycles=n;type=E|Q|H;side=L|R)
+# chars : E=ebox
+# Q=offset
+# H=squared (default 3 cycles)
+# R=to right of drawing direction'
+define(`xesistor',
+`print "`$0'($@)" ;
+ setkey_(`$2',cycles,4,N)dnl
+ setkey_(`$2',type,N,N)dnl
+ setkey_(`$2',side,R,N)dnl
+ print "cycles:m4cycles"
+ print "type:m4type"
+ print "side:m4side"
+ifelse(
+ m4type,E,
+ `ebox(`$1',shift(shift(shift($@))))',
+ `eleminit_(`$1')
+ ifelse(m4type,N,
+ `define(`m4n',`eval((m4cycles)*2)')dnl
+ define(`m4h',`dimen_/24')dnl
+ define(`m4v',2)dnl
+ if m4h*m4n*2 > rp_len then { eleminit_(to rvec_(m4h*m4n*2,0)) }
+ tr_xy_init(last line.c, m4h, ifelse(m4side,R,-))dnl
+ { line from last line.start to tr_xy(-m4n,0)\
+ for_(2,m4n,2,
+ `then to tr_xy(eval(2*m4x-3-m4n), m4v) \
+ then to tr_xy(eval(2*m4x-1-m4n),-m4v) \')dnl
+ then to tr_xy(m4n, 0) then to last line.end
+ [box invis ht_ m4h*m4v*2 wid_ m4h*m4n*2] at 2nd last line.c
+ }',
+ m4type,Q,
+ `define(`m4n',`eval(2*(m4cycles))')dnl
+ define(`m4h',`dimen_/24')dnl
+ define(`m4v',2)dnl
+ if m4h*m4n*2 > rp_len then { eleminit_(to rvec_(m4h*m4n*2,0)) }
+ tr_xy_init(last line.c, m4h, ifelse(m4side,R,-))dnl
+ { line from last line.start to tr_xy(-m4n,0)\
+ for_(2,m4n,2,
+ `then to tr_xy(eval(2*m4x-2-m4n), m4v*2) \
+ then to tr_xy(eval(2*m4x-m4n),0) \')dnl
+ then to tr_xy(m4n, 0) then to last line.end
+ [box invis ht_ m4h*m4v*2 wid_ m4h*m4n*2] at 2nd last line.c + ta_xy(0,m4v)
+ }',
+ m4type,H,
+ `define(`m4n',`ifelse(`$2',,5,`eval(2*$2-1)')')dnl
+ define(`m4h',`dimen_/20')dnl
+ define(`m4v',7/3)dnl
+ if m4h*m4n*2 > rp_len then { eleminit_(to rvec_(m4h*m4n*2,0)) }
+ tr_xy_init(last line.c, m4h, ifelse(m4side,R,-))dnl
+ { line from last line.start to tr_xy(-m4n,0)\
+ for_(-m4n,m4n,2,
+ `ifelse(eval(((m4x+m4n)/2)%2),0,
+ `then to tr_xy(m4x,m4v) then to tr_xy(eval(m4x+2),m4v) \',
+ `then to tr_xy(m4x,0) \
+ ifelse(m4x,m4n,,`then to tr_xy(eval(m4x+2),0)')\')')dnl
+ then to tr_xy(m4n, 0) then to last line.end
+ [box invis ht_ m4h*m4v wid_ m4h*m4n*2] at 2nd last line.c+(0,m4h*m4v/2)
+ }')
+ line invis from 2nd last line.start to 2nd last line.end ')
+
+ popdef(`m4cycles')dnl
+ popdef(`m4type')dnl
+ popdef(`m4side')dnl
+')
+
+ xesistor(,type=E;cycles=5;)
+ xesistor(,type=Q;cycles=3;side=L)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/keyval.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/lcct.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/lcct.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/lcct.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,193 @@
+.PS 8.5
+# lcct.m4
+log_init
+include(ics.m4)
+iflatex(`ifpsfrag(,`latexcommand({\sf)')')
+
+define(`dimen_',0.5)
+define(`elen_',dimen_)
+define(`Groundtype',`')
+
+define(`breakout',` for i = 1 to `$1' do {
+ {line `$2' ifelse(`$4',,del,`$4')-jog/2 then `$2' jog/2 `$3' jog \
+ then `$3' lg_pinsep}
+ move `$3' lg_pinsep }
+ move `$2' ifelse(`$4',,del,`$4')-jog/2 then `$2' jog/2 `$3' jog ')
+
+del = lg_pinsep
+jog = del*2/3
+
+ right_
+IC1: ic6502
+
+Vcc: IC1.Pin8.end.x-del-elen_,IC1.Pin4.y+lg_pinsep+3*del
+Reset: IC1.Pin8.end.x-del,Vcc.y+del
+
+ resistor(up_ Vcc.y-IC1.Pin4.y from IC1.Pin4.end)
+
+ line left 2*del from IC1.Pin6.end
+ line up_ to (Here,Vcc) chop 0 chop elen_
+ resistor
+
+ line left del from IC1.Pin40.end
+ {line to (Here,Reset)}
+ move left elen_
+ {NOT_gate(right_ elen_)}
+ {reversed(`capacitor',to (Here,Vcc),C)}
+ down_; resistor; ground(,T,Groundtype)
+
+ line from IC1.Pin2.end to (IC1.Pin2.end,Vcc)
+
+ move to IC1.Pin26.end; breakout(8,left,down)
+ line to (Here,IC1.sw+(0,-del))
+ line down jog right jog/2
+Data: Here
+
+ line from IC1.Pin1.end down_ 2*lg_pinsep; ground(,T,Groundtype)
+
+ line left 2*del from IC1.Pin34.end
+ line to (Here,Data+(0,-del))
+RWB: Here
+
+ move to IC1.Pin25.end; breakout(16,right,down)
+ line to (Here,RWB)+(0,-del+jog) then down jog left jog/2
+Addr: Here
+
+ right_
+IC5: ic74LS138 with .Chip.nw at (IC1.Chip.w.x,Addr.y-2*del)
+ line from IC5.Pin5.end down_ 3*lg_pinsep ; ground(,T,Groundtype)
+ line from IC5.Pin16.end down_ 1.5*lg_pinsep ; ground(,T,Groundtype)
+ move to IC5.Pin1.end; breakout(3,left,up)
+ line to Here.x,Addr.y-jog then up jog right jog/2 then to Addr
+
+ line right_ 2*del from IC1.Pin39.end
+ { NOT_gate(right_ 3*del)
+C1: Here }
+ capacitor(up_ elen_*0.6)
+ {resistor(right_ 3*del)}
+ line up 2*(IC1.Pin37.y-Here.y)
+ {line from IC1.Pin37.end to (Here,IC1.Pin37)}
+ right_; xtal(right_ 3*del)
+
+IC2: ic6116 with .Chip.nw at Here.x+2*del+lg_plen*L_unit,IC1.Chip.n.y
+ line from IC2.Pin24.end up to (IC2.Pin24.end,Vcc)
+ right_
+Or1: OR_gate with .Out at IC2.Pin21.end
+ line from Or1.In2 left del then down del
+ line to (C1,Here) then to C1
+ line from Or1.In1 left del
+ line to (Here,IC2.Chip.nw+(0,del))
+RW: Here
+ move to IC2.Pin17.end; breakout(8,left,down)
+ line to (Here,Data)+(0,jog) then down jog left jog/2
+ line down_ lg_pinsep from IC2.Pin12.end ; ground(,T,Groundtype)
+ move to IC2.Pin19.end; breakout(11,right,down)
+ line to (Here,Addr) chop 0 chop jog
+ line down jog left jog/2
+ line down_ lg_pinsep from IC2.Pin20.end ; ground(,T,Groundtype)
+
+ right_
+IC3: ic6116 with .Chip.nw at IC2.Chip.ne + (IC2.Chip.nw.x - IC1.Chip.ne.x-del,0)
+IC4: ic6522 with .Chip.nw at IC3.Chip.ne + (IC2.Chip.nw.x - IC1.Chip.ne.x-del,0)
+IC6: ic74LS138 with .Chip.nw at (IC3.Chip.nw,IC5.Chip.nw)
+
+ line from Vcc to (IC4.Pin34.end.x+del,Vcc.y)
+ line from Reset to (IC4.Pin34.end,Reset) then to IC4.Pin34.end
+
+ line right_ 2*del from (C1,IC4.Pin25); NOT_gate; line to IC4.Pin25.end
+ line right del from IC1.Pin4.end; line to Here.x,Vcc.y-del
+ line to (IC4.Pin21.end,Here)-(del,0) then to IC4.Pin21.end-(del,0) \
+ then to IC4.Pin21.end
+
+ line from IC3.Pin21.end to (IC3.Pin21.end,Vcc)
+ move to IC3.Pin17.end
+ breakout(8,left,down); line to (Here,Data)+(0,jog) then down jog left jog/2
+ move to IC3.Pin19.end
+ breakout(11,right,down); line to (Here,Addr)+(0,jog) then down jog left jog/2
+ move to IC4.Pin26.end
+ breakout(8,left,down,2*del);
+ line to (Here,Data)+(0,jog) then down jog left jog/2 then to Data
+ move to IC4.Pin35.end
+ breakout(4,left,down); line to (Here,Addr)+(0,jog) then down jog left jog/2 \
+ then to Addr
+ line from IC4.Pin20.end to (IC4.Pin20.end,Vcc)
+ line down_ lg_pinsep from IC4.Pin1.end; ground(,T,Groundtype)
+ line left 3*del from IC4.Pin23.end
+ line to (Here,IC6.Pin7) then to IC6.Pin7.end
+ line down_ 2*lg_pinsep from IC3.Pin18.end; ground(,T,Groundtype)
+
+ line down_ lg_pinsep from IC6.Pin8.end; ground(,T,Groundtype)
+ line up_ 2.5*lg_pinsep from IC6.Pin16.end \
+ then right_ lg_pinsep then down_ lg_pinsep/2; ground(,T,Groundtype)
+ move to IC6.Pin5.end; breakout(1,left,up); line up_ lg_pinsep
+ move to IC6.Pin1.end; breakout(3,left,up)
+ line to (Here,Addr)-(0,jog) then up jog left jog/2
+
+ line from RW to (IC3.Pin19.end+(2*del,0),RW)
+RWE: Here
+ line to (RWE,RWB) then to RWB
+ line from IC4.Pin22.end to (RWE,IC4.Pin22.end)
+
+ right_
+Or3: OR_gate with .Out at IC3.Pin20.end.x-del,IC1.Pin9.y
+ line from Or3.Out to (IC3.Pin20.end,Or3.Out) then to IC3.Pin20.end
+ left_
+Or2: OR_gate with .In2 at (IC2.Chip.se,Or3.In1)
+ line from Or2.Out to (IC2.Pin18.end-(3*del,0),Or2.Out)
+ line to (Here,IC2.Pin18) then to IC2.Pin18.end
+ line from Or2.In1 right del; line to (Here,IC1.Pin37)
+
+ line from Or3.In2 left del; line to (Here,IC1.Pin37)
+
+define(`addrlabel',`dnl
+ line invis right 4*del from IC5.Pin`$1'.end "{\tiny (`$2')}" above ')
+
+ addrlabel( 7,E000 - FFFF)
+ addrlabel( 9,C000 - DFFF)
+ addrlabel(10,A000 - BFFF)
+ addrlabel(11,8000 - 9FFF)
+ addrlabel(12,6000 - 7FFF)
+ addrlabel(13,4000 - 5FFF)
+ addrlabel(14,2000 - 3FFF)
+ addrlabel(15,0000 - 1FFF)
+
+ line from IC5.Pin7.end right 4*del
+K: Here; line to (K,IC5.Pin13)
+ line to (IC6.Pin4.end-(3*del,0),Here)
+ line to (Here,IC6.Pin4.end) then to IC6.Pin4.end
+
+Ands: [ right_
+ And1: AND_gate; line right del/2 then down del*3/2 \
+ then left And1.Out.x-And1.In1.x+del then down del then right_ del/2
+ And2: AND_gate with .In1 at Here
+ line from And2.Out right del/2 then down del then right_ del/2
+ And3: AND_gate with .In1 at Here
+ line right_ del/2 from And3.Out
+ NOT_gate
+ line right_ del/2
+ And4: AND_gate with .In1 at Here
+ ] with .And2.In1 at (K.x+2*del,IC5.Pin9.y)
+
+# line from Ands.And4.Out right del*3; line to (Here,Or3.In1) then to Or3.In1
+ line from Ands.And4.Out right IC6.Pin5.end.x-3*del-Ands.And4.Out.x
+ line to (Here,Or3.In1) then to Or3.In1
+ line from Ands.And4.In2 left del
+ line to (Here,IC5.Pin14) then to IC5.Pin14.end
+ line from IC5.Pin15.end to (IC2.Pin20.end.x+2*del,IC5.Pin15.y)
+ line to (Here,Or2.In2) then to Or2.In2
+ NOT_gate(right_ from (K,Ands.And3.In2) to Ands.And3.In2)
+ line from Ands.And2.In2 to (K+(del+jog/2,0),Ands.And2.In2)
+ line left jog/2 up jog; line to (Here.x,Addr.y-jog) then up jog left jog/2
+ line from Ands.And1.In1 to (K.x+del+jog/2,Ands.And1.In1.y) \
+ then left jog/2 up jog
+ line from Ands.And1.In2 to (K.x+del+jog/2,Ands.And1.In2.y) \
+ then left jog/2 up jog
+
+ line from IC6.Pin6.end left 2*del; line to (Here,IC4.Pin24)
+ line from IC4.Pin24.end to (IC2.Chip.se,IC4.Pin24)
+ move left dimen_; {NOT_gate(right_ dimen_)}
+ line left jog/2 down jog; line to (Here,Data) chop 0 chop jog
+ line down jog left jog/2
+
+iflatex(`ifpsfrag(,`latexcommand(})')')
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/lcct.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/mf/Makefile
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/Makefile (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/Makefile 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,55 @@
+# Type "make" or "make testfont.ps"
+# To test an individual diagram, type "make DOC=file clean file.ps"
+
+LIBDIR = $$HOME/lib
+M4MACROS = mfpic.m4
+
+M4 = m4 -I $(LIBDIR)
+
+# Use ljfive (which is 600dpi) because 1200dpi produces mf errors on some figs
+MODE = ljfive
+MF = MFINPUTS=.: mf "\mode:=$(MODE); scrollmode;"
+DOC = test
+LATEX = TEXFORMATS=.: TEXFONTS=.: latex
+TR = tr '\075' '\134'
+
+PIC=dpic
+
+testfont.ps:
+
+font.dvi: font.m4
+ $(M4) $(M4MACROS) font.m4 > font.pic
+ $(PIC) -m font.pic > font.tex
+ -$(LATEX) font
+ cat cct.mf | tr -d '\015' > xxx; mv xxx cct.mf
+ -$(MF) "input cct" < /dev/null
+ gftopk cct.*gf `ls cct.*gf | sed 's/gf$$/pk/'`
+ cp -p cct.*pk cct.pk
+
+testfont.ps: font.dvi
+ (echo 'cct'; echo '=table'; echo '=end') | $(TR) | \
+ (TEXFORMATS=.: TEXFONTS=.: tex testfont)
+ dvips -D600 testfont -o
+
+# For testing individual diagrams:
+$(DOC).ps: $(DOC).pk
+ $(LATEX) $(DOC)
+ TEXPKS=.: dvips -Z -P$(MODE) $(DOC)
+
+$(DOC).pk: $(DOC).tex
+ -$(LATEX) $(DOC)
+ -$(MF) "input $(DOC)-mfpic" < /dev/null
+ gftopk $(DOC)-mfpic.*gf `ls $(DOC)-mfpic.*gf | sed 's/gf$$/pk/'`
+
+$(DOC).tex: $(DOC).m4
+ sed -n -e "s/cct/$(DOC)-mfpic/" -e '1,/opengraphs/p' font.m4 > $(DOC).tex
+ $(M4) $(M4MACROS) $(DOC).m4 | $(PIC) -m >> $(DOC).tex
+ echo '=closegraphsfile=end{document}' | $(TR) >> $(DOC).tex
+
+clobber: clean
+ rm -f *.tfm cct.mf
+
+clean:
+ rm -f *.tex *pk *mfpic*
+ rm -f *.log *.dvi *.ps *.aux *gf
+ rm -f core log xxx *.pic font.tex testfont*
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/Makefile
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/cct.mf
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/cct.mf (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/cct.mf 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,5732 @@
+% cct.mf, generated by Mfpic, v1.10 2012/12/03,
+% from TeX source "font" on 2019/04/11 at 19:33
+numeric mfpicversion; mfpicversion := 110;
+if unknown mode: mode := localfont; fi
+if unknown mag: mag := 1000/1000; fi
+if unknown grafbase: input grafbase; fi
+
+if unknown grafbaseversion: grafbaseversion := 0; fi
+if grafbaseversion <> mfpicversion :
+GBmsg "Bad mfpic installation: mfpic and grafbase versions do not match.";
+fi
+
+
+%----------------------------<1>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0.041667, 0.041667);
+
+beginmfpic(1); % line 12 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.041667,0),
+(0.0625,0.041667),
+(0.104167,-0.041667),
+(0.145833,0.041667),
+(0.1875,-0.041667),
+(0.229167,0.041667),
+(0.270833,-0.041667),
+(0.291667,0),
+(0.333333,0));
+
+endmfpic; % (1) line 26 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<2>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.041667, 0.041667, 0, 0.333333);
+
+beginmfpic(2); % line 27 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(-0,0.041667),
+(-0.041667,0.0625),
+(0.041667,0.104167),
+(-0.041667,0.145833),
+(0.041667,0.1875),
+(-0.041667,0.229167),
+(0.041667,0.270833),
+(0,0.291667),
+(0,0.333333));
+
+endmfpic; % (2) line 41 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<3>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0.019939, 0.071131);
+
+beginmfpic(3); % line 42 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.024933,0));
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((0.024933,0),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((0.070249,0.021131),-155,-410,0.05);
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((0.102388,-0.017171),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((0.134527,0.021131),-130,-410,0.05);
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((0.166667,-0.017171),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((0.198806,0.021131),-130,-410,0.05);
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((0.230945,-0.017171),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((0.263085,0.021131),-130,-385,0.05);
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((0.3084,0),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0.3084,0),
+(0.333333,0));
+
+endmfpic; % (3) line 59 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<4>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.019939, 0.071131, -0.333333, 0);
+
+beginmfpic(4); % line 60 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,-0.024933));
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((0,-0.024933),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((0.021131,-0.070249),115,-140,0.05);
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((-0.017171,-0.102388),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((0.021131,-0.134527),140,-140,0.05);
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((-0.017171,-0.166667),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((0.021131,-0.198806),140,-140,0.05);
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((-0.017171,-0.230945),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((0.021131,-0.263085),140,-115,0.05);
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((-0,-0.3084),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((-0,-0.3084),
+(-0,-0.333333));
+
+endmfpic; % (4) line 77 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<5>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.333333, 0, -0.071131, 0.019939);
+
+beginmfpic(5); % line 78 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(-0.024933,0));
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((-0.024933,0),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((-0.070249,-0.021131),25,-230,0.05);
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((-0.102388,0.017171),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((-0.134527,-0.021131),50,-230,0.05);
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((-0.166667,0.017171),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((-0.198806,-0.021131),50,-230,0.05);
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((-0.230945,0.017171),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((-0.263085,-0.021131),50,-205,0.05);
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((-0.3084,0),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.3084,0),
+(-0.333333,0));
+
+endmfpic; % (5) line 95 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<6>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.071131, 0.019939, 0, 0.333333);
+
+beginmfpic(6); % line 96 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.024933));
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((0,0.024933),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((-0.021131,0.070249),-65,-320,0.05);
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((0.017171,0.102388),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((-0.021131,0.134527),-40,-320,0.05);
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((0.017171,0.166667),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((-0.021131,0.198806),-40,-320,0.05);
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((0.017171,0.230945),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((-0.021131,0.263085),-40,-295,0.05);
+
+resizedrawpen (0.4bp);
+
+store (curpath)
+drawn
+circle ((-0,0.3084),0.002767);
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((-0,0.3084),
+(-0,0.333333));
+
+endmfpic; % (6) line 113 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<7>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.146418, 0.333333, 0, 0.123214);
+
+beginmfpic(7); % line 114 in the TeX source.
+
+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.
+%------------------------------------------
+
+
+%----------------------------<8>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.123214, 0, -0.146418, 0.333333);
+
+beginmfpic(8); % line 123 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.
+%------------------------------------------
+
+
+%----------------------------<9>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0, 0.03125);
+
+beginmfpic(9); % line 132 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.041667,0));
+
+store (curpath)
+drawn
+arcplr ((0.072917,0),-180,-360,0.03125);
+
+store (curpath)
+drawn
+arcplr ((0.135417,0),-180,-360,0.03125);
+
+store (curpath)
+drawn
+arcplr ((0.197917,0),180,-0,0.03125);
+
+store (curpath)
+drawn
+arcplr ((0.260417,0),-180,-360,0.03125);
+
+store (curpath)
+drawn
+polyline (false)
+((0.291667,0),
+(0.333333,0));
+
+endmfpic; % (9) line 144 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<10>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0, 0.03125, -0.333333, 0);
+
+beginmfpic(10); % line 145 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,-0.041667));
+
+store (curpath)
+drawn
+arcplr ((0,-0.072917),90,-90,0.03125);
+
+store (curpath)
+drawn
+arcplr ((-0,-0.135417),90,-90,0.03125);
+
+store (curpath)
+drawn
+arcplr ((-0,-0.197917),90,-90,0.03125);
+
+store (curpath)
+drawn
+arcplr ((-0,-0.260417),90,-90,0.03125);
+
+store (curpath)
+drawn
+polyline (false)
+((-0,-0.291667),
+(-0,-0.333333));
+
+endmfpic; % (10) line 157 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<11>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.333333, 0, -0.03125, 0);
+
+beginmfpic(11); % line 158 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(-0.041667,0));
+
+store (curpath)
+drawn
+arcplr ((-0.072917,0),-0,-180,0.03125);
+
+store (curpath)
+drawn
+arcplr ((-0.135417,0),-0,-180,0.03125);
+
+store (curpath)
+drawn
+arcplr ((-0.197917,0),-0,-180,0.03125);
+
+store (curpath)
+drawn
+arcplr ((-0.260417,0),-0,-180,0.03125);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.291667,0),
+(-0.333333,0));
+
+endmfpic; % (11) line 170 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<12>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.03125, 0, 0, 0.333333);
+
+beginmfpic(12); % line 171 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.041667));
+
+store (curpath)
+drawn
+arcplr ((0,0.072917),-90,-270,0.03125);
+
+store (curpath)
+drawn
+arcplr ((0,0.135417),-90,-270,0.03125);
+
+store (curpath)
+drawn
+arcplr ((-0,0.197917),-90,-270,0.03125);
+
+store (curpath)
+drawn
+arcplr ((-0,0.260417),-90,-270,0.03125);
+
+store (curpath)
+drawn
+polyline (false)
+((-0,0.291667),
+(-0,0.333333));
+
+endmfpic; % (12) line 183 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<13>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.03125, 0, 0, 0.333333);
+
+beginmfpic(13); % line 184 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.041667));
+
+store (curpath)
+drawn
+arcplr ((0,0.072917),-90,-270,0.03125);
+
+store (curpath)
+drawn
+arcplr ((0,0.135417),-90,-270,0.03125);
+
+store (curpath)
+drawn
+arcplr ((-0,0.197917),-90,-270,0.03125);
+
+store (curpath)
+drawn
+arcplr ((-0,0.260417),-90,-270,0.03125);
+
+store (curpath)
+drawn
+polyline (false)
+((-0,0.291667),
+(-0,0.333333));
+
+endmfpic; % (13) line 196 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<14>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.125, 0.333333, 0, 0.083333);
+
+beginmfpic(14); % line 197 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.
+%------------------------------------------
+
+
+%----------------------------<15>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.083333, 0, -0.125, 0.333333);
+
+beginmfpic(15); % line 206 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.
+%------------------------------------------
+
+
+%----------------------------<16>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0.0625, 0.0625);
+
+beginmfpic(16); % line 215 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.141667,0));
+
+store (curpath)
+drawn
+polyline (false)
+((0.141667,-0.0625),
+(0.141667,0.0625));
+
+store (curpath)
+drawn
+arcplr ((0.29992,0),-150,-210,0.125);
+
+store (curpath)
+drawn
+polyline (false)
+((0.17492,0),
+(0.333333,0));
+
+endmfpic; % (16) line 226 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<17>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.0625, 0.0625, -0.333333, 0);
+
+beginmfpic(17); % line 227 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,-0.141667));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.0625,-0.141667),
+(0.0625,-0.141667));
+
+store (curpath)
+drawn
+arcplr ((0,-0.29992),120,60,0.125);
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.17492),
+(0,-0.333333));
+
+endmfpic; % (17) line 238 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<18>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.333333, 0, -0.0625, 0.0625);
+
+beginmfpic(18); % line 239 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(-0.141667,0));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.141667,0.0625),
+(-0.141667,-0.0625));
+
+store (curpath)
+drawn
+arcplr ((-0.29992,0),30,-30,0.125);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.17492,0),
+(-0.333333,0));
+
+endmfpic; % (18) line 250 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<19>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.0625, 0.0625, 0, 0.333333);
+
+beginmfpic(19); % line 251 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.141667));
+
+store (curpath)
+drawn
+polyline (false)
+((0.0625,0.141667),
+(-0.0625,0.141667));
+
+store (curpath)
+drawn
+arcplr ((0,0.29992),-60,-120,0.125);
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.17492),
+(0,0.333333));
+
+endmfpic; % (19) line 262 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<20>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0.083333, 0.083333);
+
+beginmfpic(20); % line 263 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.141667,0));
+
+store (curpath)
+drawn
+polyline (false)
+((0.141667,-0.083333),
+(0.141667,0.083333));
+
+store (curpath)
+drawn
+polyline (false)
+((0.191667,-0.083333),
+(0.191667,0.083333));
+
+store (curpath)
+drawn
+polyline (false)
+((0.191667,0),
+(0.333333,0));
+
+endmfpic; % (20) line 275 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<21>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.083333, 0.083333, 0, 0.333333);
+
+beginmfpic(21); % line 276 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.141667));
+
+store (curpath)
+drawn
+polyline (false)
+((0.083333,0.141667),
+(-0.083333,0.141667));
+
+store (curpath)
+drawn
+polyline (false)
+((0.083333,0.191667),
+(-0.083333,0.191667));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.191667),
+(0,0.333333));
+
+endmfpic; % (21) line 288 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<22>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0.051253, 0.051253);
+
+beginmfpic(22); % line 289 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.130582,0));
+
+store (curpath)
+filled
+drawn
+lclosed
+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));
+
+store (curpath)
+drawn
+polyline (false)
+((0.202751,0),
+(0.333333,0));
+
+endmfpic; % (22) line 305 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<23>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.051253, 0.051253, -0.333333, 0);
+
+beginmfpic(23); % line 306 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,-0.130582));
+
+store (curpath)
+filled
+drawn
+lclosed
+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));
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.202751),
+(0,-0.333333));
+
+endmfpic; % (23) line 322 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<24>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.333333, 0, -0.051253, 0.051253);
+
+beginmfpic(24); % line 323 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(-0.130582,0));
+
+store (curpath)
+filled
+drawn
+lclosed
+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));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.202751,0),
+(-0.333333,0));
+
+endmfpic; % (24) line 339 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<25>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.051253, 0.051253, 0, 0.333333);
+
+beginmfpic(25); % line 340 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.130582));
+
+store (curpath)
+filled
+drawn
+lclosed
+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));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.202751),
+(0,0.333333));
+
+endmfpic; % (25) line 356 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<26>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0.051253, 0.051253);
+
+beginmfpic(26); % line 357 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.130582,0));
+
+store (curpath)
+filled
+drawn
+lclosed
+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),
+(0.223584,0.045718));
+
+store (curpath)
+drawn
+polyline (false)
+((0.202751,0),
+(0.333333,0));
+
+endmfpic; % (26) line 375 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<27>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.051253, 0.051253, -0.333333, 0);
+
+beginmfpic(27); % line 376 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,-0.130582));
+
+store (curpath)
+filled
+drawn
+lclosed
+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),
+(0.045718,-0.223584));
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.202751),
+(0,-0.333333));
+
+endmfpic; % (27) line 394 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<28>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.333333, 0, -0.051253, 0.051253);
+
+beginmfpic(28); % line 395 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(-0.130582,0));
+
+store (curpath)
+filled
+drawn
+lclosed
+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),
+(-0.223584,-0.045718));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.202751,0),
+(-0.333333,0));
+
+endmfpic; % (28) line 413 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<29>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.051253, 0.051253, 0, 0.333333);
+
+beginmfpic(29); % line 414 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.130582));
+
+store (curpath)
+filled
+drawn
+lclosed
+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),
+(-0.045718,0.223584));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.202751),
+(0,0.333333));
+
+endmfpic; % (29) line 432 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<30>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.036084, 0.333333, -0.051253, 0.051253);
+
+beginmfpic(30); % line 433 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.036084,-0.045718),
+(-0.036084,0.045718));
+
+endmfpic; % (30) line 439 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<31>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.051253, 0.051253, -0.333333, 0.036084);
+
+beginmfpic(31); % line 440 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.045718,0.036084),
+(0.045718,0.036084));
+
+endmfpic; % (31) line 446 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<32>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0.0625, 0.0625);
+
+beginmfpic(32); % line 447 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.125,0));
+
+store (curpath)
+drawn
+polyline (false)
+((0.125,-0.041667),
+(0.125,0.041667));
+
+store (curpath)
+drawn
+polyline (false)
+((0.145833,0),
+(0.145833,0.0625),
+(0.1875,0.0625),
+(0.1875,-0.0625),
+(0.145833,-0.0625),
+(0.145833,0));
+
+store (curpath)
+drawn
+polyline (false)
+((0.208333,-0.041667),
+(0.208333,0.041667));
+
+store (curpath)
+drawn
+polyline (false)
+((0.208333,0),
+(0.333333,0));
+
+endmfpic; % (32) line 465 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<33>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.0625, 0.0625, -0.333333, 0);
+
+beginmfpic(33); % line 466 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,-0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.041667,-0.125),
+(0.041667,-0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.145833),
+(0.0625,-0.145833),
+(0.0625,-0.1875),
+(-0.0625,-0.1875),
+(-0.0625,-0.145833),
+(0,-0.145833));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.041667,-0.208333),
+(0.041667,-0.208333));
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.208333),
+(0,-0.333333));
+
+endmfpic; % (33) line 484 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<34>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0.125, 0.125);
+
+beginmfpic(34); % line 485 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.041667,0));
+
+store (curpath)
+drawn
+circle ((0.166667,0),0.125);
+
+store (curpath)
+drawn
+polyline (false)
+((0.291667,0),
+(0.333333,0));
+
+endmfpic; % (34) line 494 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<35>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.125, 0.125, 0, 0.333333);
+
+beginmfpic(35); % line 495 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.041667));
+
+store (curpath)
+drawn
+circle ((0,0.166667),0.125);
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.291667),
+(0,0.333333));
+
+endmfpic; % (35) line 504 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<36>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.083333, 0.083333, -0.041667, 0.041667);
+
+beginmfpic(36); % line 505 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+arcplr ((-0.041667,0),180,0,0.041667);
+
+store (curpath)
+drawn
+arcplr ((0.041667,0),180,360,0.041667);
+
+endmfpic; % (36) line 511 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<37>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0.15, 0.15);
+
+beginmfpic(37); % line 512 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.016667,0));
+
+store (curpath)
+drawn
+polyline (false)
+((0.016667,0),
+(0.166667,0.15),
+(0.316667,0),
+(0.166667,-0.15),
+(0.016667,0));
+
+store (curpath)
+drawn
+polyline (false)
+((0.316667,0),
+(0.333333,0));
+
+endmfpic; % (37) line 525 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<38>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.15, 0.15, 0, 0.333333);
+
+beginmfpic(38); % line 526 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.016667));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.016667),
+(-0.15,0.166667),
+(0,0.316667),
+(0.15,0.166667),
+(0,0.016667));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.316667),
+(0,0.333333));
+
+endmfpic; % (38) line 539 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<39>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.1875, -0.025, 0.025);
+
+beginmfpic(39); % line 540 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((0.0875,-0.025),
+(0.1875,0),(0.0875,0.025));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.164594,0));
+
+endmfpic; % (39) line 548 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<40>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.025, 0.025, -0.1875, 0);
+
+beginmfpic(40); % line 549 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((-0.025,-0.0875),
+(0,-0.1875),(0.025,-0.0875));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,-0.164594));
+
+endmfpic; % (40) line 557 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<41>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.1875, 0, -0.025, 0.025);
+
+beginmfpic(41); % line 558 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((-0.0875,0.025),
+(-0.1875,0),(-0.0875,-0.025));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(-0.164594,0));
+
+endmfpic; % (41) line 566 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<42>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.025, 0.025, 0, 0.1875);
+
+beginmfpic(42); % line 567 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((0.025,0.0875),
+(0,0.1875),(-0.025,0.0875));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.164594));
+
+endmfpic; % (42) line 575 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<43>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.132583, 0, 0.132583);
+
+beginmfpic(43); % line 576 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((0.07955,0.044194),
+(0.132583,0.132583),(0.044194,0.07955));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.116385,0.116385));
+
+endmfpic; % (43) line 584 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<44>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.132583, 0, 0, 0.132583);
+
+beginmfpic(44); % line 585 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((-0.044194,0.07955),
+(-0.132583,0.132583),(-0.07955,0.044194));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(-0.116385,0.116385));
+
+endmfpic; % (44) line 593 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<45>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.132583, 0, -0.132583, 0);
+
+beginmfpic(45); % line 594 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((-0.07955,-0.044194),
+(-0.132583,-0.132583),(-0.044194,-0.07955));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(-0.116385,-0.116385));
+
+endmfpic; % (45) line 602 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<46>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.132583, -0.132583, 0);
+
+beginmfpic(46); % line 603 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((0.044194,-0.07955),
+(0.132583,-0.132583),(0.07955,-0.044194));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.116385,-0.116385));
+
+endmfpic; % (46) line 611 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<47>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0.125, 0.125);
+
+beginmfpic(47); % line 612 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.145833,0));
+
+store (curpath)
+drawn
+polyline (false)
+((0.145833,0.0625),
+(0.145833,-0.0625));
+
+store (curpath)
+drawn
+polyline (false)
+((0.1875,0.125),
+(0.1875,-0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((0.1875,0),
+(0.333333,0));
+
+endmfpic; % (47) line 624 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<48>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.125, 0.125, -0.333333, 0);
+
+beginmfpic(48); % line 625 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,-0.145833));
+
+store (curpath)
+drawn
+polyline (false)
+((0.0625,-0.145833),
+(-0.0625,-0.145833));
+
+store (curpath)
+drawn
+polyline (false)
+((0.125,-0.1875),
+(-0.125,-0.1875));
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.1875),
+(0,-0.333333));
+
+endmfpic; % (48) line 637 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<49>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.333333, 0, -0.125, 0.125);
+
+beginmfpic(49); % line 638 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(-0.145833,0));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.145833,-0.0625),
+(-0.145833,0.0625));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.1875,-0.125),
+(-0.1875,0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.1875,0),
+(-0.333333,0));
+
+endmfpic; % (49) line 650 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<50>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.125, 0.125, 0, 0.333333);
+
+beginmfpic(50); % line 651 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.145833));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.0625,0.145833),
+(0.0625,0.145833));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.125,0.1875),
+(0.125,0.1875));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.1875),
+(0,0.333333));
+
+endmfpic; % (50) line 663 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<51>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0.125, 0.125);
+
+beginmfpic(51); % line 664 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.0625,0));
+
+store (curpath)
+drawn
+polyline (false)
+((0.0625,0.0625),
+(0.0625,-0.0625));
+
+store (curpath)
+drawn
+polyline (false)
+((0.104167,0.125),
+(0.104167,-0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((0.145833,0.0625),
+(0.145833,-0.0625));
+
+store (curpath)
+drawn
+polyline (false)
+((0.1875,0.125),
+(0.1875,-0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((0.229167,0.0625),
+(0.229167,-0.0625));
+
+store (curpath)
+drawn
+polyline (false)
+((0.270833,0.125),
+(0.270833,-0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((0.270833,0),
+(0.333333,0));
+
+endmfpic; % (51) line 684 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<52>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.125, 0.125, -0.333333, 0);
+
+beginmfpic(52); % line 685 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,-0.0625));
+
+store (curpath)
+drawn
+polyline (false)
+((0.0625,-0.0625),
+(-0.0625,-0.0625));
+
+store (curpath)
+drawn
+polyline (false)
+((0.125,-0.104167),
+(-0.125,-0.104167));
+
+store (curpath)
+drawn
+polyline (false)
+((0.0625,-0.145833),
+(-0.0625,-0.145833));
+
+store (curpath)
+drawn
+polyline (false)
+((0.125,-0.1875),
+(-0.125,-0.1875));
+
+store (curpath)
+drawn
+polyline (false)
+((0.0625,-0.229167),
+(-0.0625,-0.229167));
+
+store (curpath)
+drawn
+polyline (false)
+((0.125,-0.270833),
+(-0.125,-0.270833));
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.270833),
+(0,-0.333333));
+
+endmfpic; % (52) line 705 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<53>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.333333, 0, -0.125, 0.125);
+
+beginmfpic(53); % line 706 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(-0.0625,0));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.0625,-0.0625),
+(-0.0625,0.0625));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.104167,-0.125),
+(-0.104167,0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.145833,-0.0625),
+(-0.145833,0.0625));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.1875,-0.125),
+(-0.1875,0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.229167,-0.0625),
+(-0.229167,0.0625));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.270833,-0.125),
+(-0.270833,0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.270833,0),
+(-0.333333,0));
+
+endmfpic; % (53) line 726 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<54>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.125, 0.125, 0, 0.333333);
+
+beginmfpic(54); % line 727 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.0625));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.0625,0.0625),
+(0.0625,0.0625));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.125,0.104167),
+(0.125,0.104167));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.0625,0.145833),
+(0.0625,0.145833));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.125,0.1875),
+(0.125,0.1875));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.0625,0.229167),
+(0.0625,0.229167));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.125,0.270833),
+(0.125,0.270833));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.270833),
+(0,0.333333));
+
+endmfpic; % (54) line 747 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<55>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0.05, 0.05);
+
+beginmfpic(55); % line 748 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.041667,0));
+
+store (curpath)
+drawn
+polyline (false)
+((0.291667,0),
+(0.291667,0.05),
+(0.041667,0.05),
+(0.041667,-0.05),
+(0.291667,-0.05),
+(0.291667,0));
+
+store (curpath)
+drawn
+polyline (false)
+((0.291667,0),
+(0.333333,0));
+
+endmfpic; % (55) line 762 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<56>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.05, 0.05, 0, 0.333333);
+
+beginmfpic(56); % line 763 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.041667));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.291667),
+(-0.05,0.291667),
+(-0.05,0.041667),
+(0.05,0.041667),
+(0.05,0.291667),
+(0,0.291667));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.291667),
+(0,0.333333));
+
+endmfpic; % (56) line 777 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<57>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0.021706, 0.125);
+
+beginmfpic(57); % line 778 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.083333,0));
+
+store (curpath)
+drawn
+polyline (false)
+((0.083333,0),
+(0.208333,0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((0.25,0),
+(0.333333,0));
+
+endmfpic; % (57) line 788 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<58>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.021706, 0.125, -0.333333, 0);
+
+beginmfpic(58); % line 789 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,-0.083333));
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.083333),
+(0.125,-0.208333));
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.25),
+(0,-0.333333));
+
+endmfpic; % (58) line 799 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<59>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.333333, 0, -0.125, 0.021706);
+
+beginmfpic(59); % line 800 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(-0.083333,0));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.083333,0),
+(-0.208333,-0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.25,0),
+(-0.333333,0));
+
+endmfpic; % (59) line 810 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<60>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.125, 0.021706, 0, 0.333333);
+
+beginmfpic(60); % line 811 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.083333));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.083333),
+(-0.125,0.208333));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.25),
+(0,0.333333));
+
+endmfpic; % (60) line 821 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<61>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0.021706, 0.125);
+
+beginmfpic(61); % line 822 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.083333,0));
+
+store (curpath)
+drawn
+polyline (false)
+((0.083333,0),
+(0.208333,0.125));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+lclosed
+begingroup; save mfpicnexus;
+hide(numeric mfpicnexus; path mfpicnexus[]; mfpicnexus = 0)
+
+store (mfpicnexus[incr mfpicnexus])
+arcplr ((-0.074188,-0.014308),22.529508,35.422548,0.233002);
+
+store (mfpicnexus[incr mfpicnexus])
+arcplr ((0.043984,-0.100954),72.077452,58.261852,0.233002);
+
+mkpoly (false, mfpicnexus)
+endgroup;
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((-0.022091,-0.067162),11.25,45.13128,0.233002);
+
+store (curpath)
+drawn
+polyline (false)
+((0.25,0),
+(0.333333,0));
+
+endmfpic; % (61) line 837 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<62>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.021706, 0.125, -0.333333, 0);
+
+beginmfpic(62); % line 838 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,-0.083333));
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.083333),
+(0.125,-0.208333));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+lclosed
+begingroup; save mfpicnexus;
+hide(numeric mfpicnexus; path mfpicnexus[]; mfpicnexus = 0)
+
+store (mfpicnexus[incr mfpicnexus])
+arcplr ((-0.014308,0.074188),-67.470492,-54.577452,0.233002);
+
+store (mfpicnexus[incr mfpicnexus])
+arcplr ((-0.100954,-0.043984),-17.922548,-31.738148,0.233002);
+
+mkpoly (false, mfpicnexus)
+endgroup;
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((-0.067162,0.022091),-78.75,-44.86872,0.233002);
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.25),
+(0,-0.333333));
+
+endmfpic; % (62) line 853 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<63>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.333333, 0, -0.125, 0.021706);
+
+beginmfpic(63); % line 854 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(-0.083333,0));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.083333,0),
+(-0.208333,-0.125));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+lclosed
+begingroup; save mfpicnexus;
+hide(numeric mfpicnexus; path mfpicnexus[]; mfpicnexus = 0)
+
+store (mfpicnexus[incr mfpicnexus])
+arcplr ((0.074188,0.014308),-157.470492,-144.577452,0.233002);
+
+store (mfpicnexus[incr mfpicnexus])
+arcplr ((-0.043984,0.100954),-107.922548,-121.738148,0.233002);
+
+mkpoly (false, mfpicnexus)
+endgroup;
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((0.022091,0.067162),-168.75,-134.86872,0.233002);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.25,0),
+(-0.333333,0));
+
+endmfpic; % (63) line 869 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<64>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.125, 0.021706, 0, 0.333333);
+
+beginmfpic(64); % line 870 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.083333));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.083333),
+(-0.125,0.208333));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+lclosed
+begingroup; save mfpicnexus;
+hide(numeric mfpicnexus; path mfpicnexus[]; mfpicnexus = 0)
+
+store (mfpicnexus[incr mfpicnexus])
+arcplr ((0.014308,-0.074188),112.529508,125.422548,0.233002);
+
+store (mfpicnexus[incr mfpicnexus])
+arcplr ((0.100954,0.043984),162.077452,148.261852,0.233002);
+
+mkpoly (false, mfpicnexus)
+endgroup;
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((0.067162,-0.022091),101.25,135.13128,0.233002);
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.25),
+(0,0.333333));
+
+endmfpic; % (64) line 885 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<65>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0.032352, 0.125);
+
+beginmfpic(65); % line 886 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.083333,0));
+
+store (curpath)
+drawn
+polyline (false)
+((0.083333,0),
+(0.208333,0.125));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+lclosed
+begingroup; save mfpicnexus;
+hide(numeric mfpicnexus; path mfpicnexus[]; mfpicnexus = 0)
+
+store (mfpicnexus[incr mfpicnexus])
+arcplr ((-0.0153,-0.121331),34.780608,22.077452,0.236733);
+
+store (mfpicnexus[incr mfpicnexus])
+arcplr ((-0.025038,0.02723),-14.577452,-0.979566,0.236733);
+
+mkpoly (false, mfpicnexus)
+endgroup;
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((-0.032152,-0.047835),12.233526,41.25,0.236733);
+
+store (curpath)
+drawn
+polyline (false)
+((0.25,0),
+(0.333333,0));
+
+endmfpic; % (65) line 901 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<66>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.032352, 0.125, -0.333333, 0);
+
+beginmfpic(66); % line 902 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,-0.083333));
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.083333),
+(0.125,-0.208333));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+lclosed
+begingroup; save mfpicnexus;
+hide(numeric mfpicnexus; path mfpicnexus[]; mfpicnexus = 0)
+
+store (mfpicnexus[incr mfpicnexus])
+arcplr ((-0.121331,0.0153),-55.219392,-67.922548,0.236733);
+
+store (mfpicnexus[incr mfpicnexus])
+arcplr ((0.02723,0.025038),-104.577452,-90.979566,0.236733);
+
+mkpoly (false, mfpicnexus)
+endgroup;
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((-0.047835,0.032152),-77.766474,-48.75,0.236733);
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.25),
+(0,-0.333333));
+
+endmfpic; % (66) line 917 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<67>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.333333, 0, -0.125, 0.032352);
+
+beginmfpic(67); % line 918 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(-0.083333,0));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.083333,0),
+(-0.208333,-0.125));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+lclosed
+begingroup; save mfpicnexus;
+hide(numeric mfpicnexus; path mfpicnexus[]; mfpicnexus = 0)
+
+store (mfpicnexus[incr mfpicnexus])
+arcplr ((0.0153,0.121331),-145.219392,-157.922548,0.236733);
+
+store (mfpicnexus[incr mfpicnexus])
+arcplr ((0.025038,-0.02723),165.422548,179.020434,0.236733);
+
+mkpoly (false, mfpicnexus)
+endgroup;
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((0.032152,0.047835),-167.766474,-138.75,0.236733);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.25,0),
+(-0.333333,0));
+
+endmfpic; % (67) line 933 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<68>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.125, 0.032352, 0, 0.333333);
+
+beginmfpic(68); % line 934 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.083333));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.083333),
+(-0.125,0.208333));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+lclosed
+begingroup; save mfpicnexus;
+hide(numeric mfpicnexus; path mfpicnexus[]; mfpicnexus = 0)
+
+store (mfpicnexus[incr mfpicnexus])
+arcplr ((0.121331,-0.0153),124.780608,112.077452,0.236733);
+
+store (mfpicnexus[incr mfpicnexus])
+arcplr ((-0.02723,-0.025038),75.422548,89.020434,0.236733);
+
+mkpoly (false, mfpicnexus)
+endgroup;
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+arcplr ((0.047835,-0.032152),102.233526,131.25,0.236733);
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.25),
+(0,0.333333));
+
+endmfpic; % (68) line 949 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<69>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.625, -0.25, 0.25);
+
+beginmfpic(69); % line 950 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.0625,0));
+
+store (curpath)
+drawn
+polyline (false)
+((0.5625,0),
+(0.0625,0.25),
+(0.0625,-0.25),
+(0.5625,0),
+(0.625,0));
+
+endmfpic; % (69) line 961 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<70>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.25, 0.25, -0.625, 0);
+
+beginmfpic(70); % line 962 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,-0.0625));
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.5625),
+(0.25,-0.0625),
+(-0.25,-0.0625),
+(0,-0.5625),
+(0,-0.625));
+
+endmfpic; % (70) line 973 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<71>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.625, 0, -0.25, 0.25);
+
+beginmfpic(71); % line 974 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(-0.0625,0));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.5625,0),
+(-0.0625,-0.25),
+(-0.0625,0.25),
+(-0.5625,0),
+(-0.625,0));
+
+endmfpic; % (71) line 985 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<72>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.25, 0.25, 0, 0.625);
+
+beginmfpic(72); % line 986 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.0625));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.5625),
+(-0.25,0.0625),
+(0.25,0.0625),
+(0,0.5625),
+(0,0.625));
+
+endmfpic; % (72) line 997 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<73>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.333333, -0.175, 0.175);
+
+beginmfpic(73); % line 998 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0.020833,0));
+
+store (curpath)
+drawn
+polyline (false)
+((0.1375,-0.175),
+(0.020833,-0.175),
+(0.020833,0.175),
+(0.1375,0.175));
+
+store (curpath)
+drawn
+arcplr ((0.1375,0),90,-90,0.175);
+
+store (curpath)
+drawn
+polyline (false)
+((0.3125,0),
+(0.333333,0));
+
+endmfpic; % (73) line 1011 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<74>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.175, 0.175, -0.333333, 0);
+
+beginmfpic(74); % line 1012 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,-0.020833));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,-0.1375),
+(-0.175,-0.020833),
+(0.175,-0.020833),
+(0.175,-0.1375));
+
+store (curpath)
+drawn
+arcplr ((0,-0.1375),0,-180,0.175);
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.3125),
+(0,-0.333333));
+
+endmfpic; % (74) line 1025 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<75>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.333333, 0, -0.175, 0.175);
+
+beginmfpic(75); % line 1026 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(-0.020833,0));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.1375,0.175),
+(-0.020833,0.175),
+(-0.020833,-0.175),
+(-0.1375,-0.175));
+
+store (curpath)
+drawn
+arcplr ((-0.1375,0),-90,-270,0.175);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.3125,0),
+(-0.333333,0));
+
+endmfpic; % (75) line 1039 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<76>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.175, 0.175, 0, 0.333333);
+
+beginmfpic(76); % line 1040 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.020833));
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.1375),
+(0.175,0.020833),
+(-0.175,0.020833),
+(-0.175,0.1375));
+
+store (curpath)
+drawn
+arcplr ((0,0.1375),180,-0,0.175);
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.3125),
+(0,0.333333));
+
+endmfpic; % (76) line 1053 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<77>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.083333, 0.083333, -0.0625, 0);
+
+beginmfpic(77); % line 1054 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.083333,0),
+(-0.083333,-0));
+
+store (curpath)
+drawn
+polyline (false)
+((0.055556,-0.03125),
+(-0.055556,-0.03125));
+
+store (curpath)
+drawn
+polyline (false)
+((0.035714,-0.0625),
+(-0.035714,-0.0625));
+
+endmfpic; % (77) line 1064 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<78>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.083333, 0.083333, -0.1875, 0);
+
+beginmfpic(78); % line 1065 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,-0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((0.083333,-0.125),
+(-0.083333,-0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((0.055556,-0.15625),
+(-0.055556,-0.15625));
+
+store (curpath)
+drawn
+polyline (false)
+((0.035714,-0.1875),
+(-0.035714,-0.1875));
+
+endmfpic; % (78) line 1077 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<79>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.104167, 0.104167, -0.333333, -0);
+
+beginmfpic(79); % line 1078 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.104167,-0),
+(-0.104167,-0.041667));
+
+store (curpath)
+drawn
+arcplr ((-0.104167,-0.072917),90,-90,0.03125);
+
+store (curpath)
+drawn
+arcplr ((-0.104167,-0.135417),90,-90,0.03125);
+
+store (curpath)
+drawn
+arcplr ((-0.104167,-0.197917),90,-90,0.03125);
+
+store (curpath)
+drawn
+arcplr ((-0.104167,-0.260417),90,-90,0.03125);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.104167,-0.291667),
+(-0.104167,-0.333333));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.03125,-0.041667),
+(-0.03125,-0.291667));
+
+store (curpath)
+drawn
+polyline (false)
+((0.03125,-0.041667),
+(0.03125,-0.291667));
+
+store (curpath)
+drawn
+polyline (false)
+((0.104167,-0.333333),
+(0.104167,-0.291667));
+
+store (curpath)
+drawn
+arcplr ((0.104167,-0.260417),-90,-270,0.03125);
+
+store (curpath)
+drawn
+arcplr ((0.104167,-0.197917),-90,-270,0.03125);
+
+store (curpath)
+drawn
+arcplr ((0.104167,-0.135417),-90,-270,0.03125);
+
+store (curpath)
+drawn
+arcplr ((0.104167,-0.072917),-90,-270,0.03125);
+
+store (curpath)
+drawn
+polyline (false)
+((0.104167,-0.041667),
+(0.104167,0));
+
+endmfpic; % (79) line 1102 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<80>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0, 0.333333, -0.104167, 0.104167);
+
+beginmfpic(80); % line 1103 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.104167),
+(0.041667,-0.104167));
+
+store (curpath)
+drawn
+arcplr ((0.072917,-0.104167),-180,-360,0.03125);
+
+store (curpath)
+drawn
+arcplr ((0.135417,-0.104167),-180,-360,0.03125);
+
+store (curpath)
+drawn
+arcplr ((0.197917,-0.104167),180,-0,0.03125);
+
+store (curpath)
+drawn
+arcplr ((0.260417,-0.104167),-180,-360,0.03125);
+
+store (curpath)
+drawn
+polyline (false)
+((0.291667,-0.104167),
+(0.333333,-0.104167));
+
+store (curpath)
+drawn
+polyline (false)
+((0.041667,-0.03125),
+(0.291667,-0.03125));
+
+store (curpath)
+drawn
+polyline (false)
+((0.041667,0.03125),
+(0.291667,0.03125));
+
+store (curpath)
+drawn
+polyline (false)
+((0.333333,0.104167),
+(0.291667,0.104167));
+
+store (curpath)
+drawn
+arcplr ((0.260417,0.104167),0,-180,0.03125);
+
+store (curpath)
+drawn
+arcplr ((0.197917,0.104167),0,-180,0.03125);
+
+store (curpath)
+drawn
+arcplr ((0.135417,0.104167),0,-180,0.03125);
+
+store (curpath)
+drawn
+arcplr ((0.072917,0.104167),0,-180,0.03125);
+
+store (curpath)
+drawn
+polyline (false)
+((0.041667,0.104167),
+(0,0.104167));
+
+endmfpic; % (80) line 1127 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<81>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.1625, 0.1625, 0, 0.3);
+
+beginmfpic(81); % line 1128 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.0375,0.05),
+(-0.0375,0.25));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.1625,0.15),
+(-0.0375,0.15));
+
+store (curpath)
+drawn
+polyline (false)
+((0.1625,0),
+(-0.0375,0.09));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((0.025108,0.031366),
+(0.1125,0.0225),(0.047906,0.082028));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0.096479,0.029709),
+(0.0125,0.0675));
+
+store (curpath)
+drawn
+polyline (false)
+((0.1625,0.3),
+(-0.0375,0.21));
+
+endmfpic; % (81) line 1144 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<82>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.3, 0, -0.1625, 0.1625);
+
+beginmfpic(82); % line 1145 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.05,-0.0375),
+(-0.25,-0.0375));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.15,-0.1625),
+(-0.15,-0.0375));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.1625),
+(-0.09,-0.0375));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((-0.031366,0.025108),
+(-0.0225,0.1125),(-0.082028,0.047906));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.029709,0.096479),
+(-0.0675,0.0125));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.3,0.1625),
+(-0.21,-0.0375));
+
+endmfpic; % (82) line 1161 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<83>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.1625, 0.1625, 0, 0.3);
+
+beginmfpic(83); % line 1162 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.0375,0.05),
+(0.0375,0.25));
+
+store (curpath)
+drawn
+polyline (false)
+((0.1625,0.15),
+(0.0375,0.15));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.1625,0),
+(0.0375,0.09));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((-0.047906,0.082028),
+(-0.1125,0.0225),(-0.025108,0.031366));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.096479,0.029709),
+(-0.0125,0.0675));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.1625,0.3),
+(0.0375,0.21));
+
+endmfpic; % (83) line 1178 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<84>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.3, -0.1625, 0.1625);
+
+beginmfpic(84); % line 1179 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.05,-0.0375),
+(0.25,-0.0375));
+
+store (curpath)
+drawn
+polyline (false)
+((0.15,-0.1625),
+(0.15,-0.0375));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.1625),
+(0.09,-0.0375));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((0.082028,0.047906),
+(0.0225,0.1125),(0.031366,0.025108));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0.029709,0.096479),
+(0.0675,0.0125));
+
+store (curpath)
+drawn
+polyline (false)
+((0.3,0.1625),
+(0.21,-0.0375));
+
+endmfpic; % (84) line 1195 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<85>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.1625, 0.1625, 0, 0.3);
+
+beginmfpic(85); % line 1196 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.0375,0.05),
+(-0.0375,0.25));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.1625,0.15),
+(-0.0375,0.15));
+
+store (curpath)
+drawn
+polyline (false)
+((0.1625,0),
+(-0.0375,0.09));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((0.099892,0.058634),
+(0.0125,0.0675),(0.077094,0.007972));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0.1125,0.0225),
+(0.028521,0.060291));
+
+store (curpath)
+drawn
+polyline (false)
+((0.1625,0.3),
+(-0.0375,0.21));
+
+endmfpic; % (85) line 1212 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<86>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.3, 0, -0.1625, 0.1625);
+
+beginmfpic(86); % line 1213 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.05,-0.0375),
+(-0.25,-0.0375));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.15,-0.1625),
+(-0.15,-0.0375));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.1625),
+(-0.09,-0.0375));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((-0.058634,0.099892),
+(-0.0675,0.0125),(-0.007972,0.077094));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.0225,0.1125),
+(-0.060291,0.028521));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.3,0.1625),
+(-0.21,-0.0375));
+
+endmfpic; % (86) line 1229 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<87>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.1625, 0.1625, 0, 0.3);
+
+beginmfpic(87); % line 1230 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.0375,0.05),
+(0.0375,0.25));
+
+store (curpath)
+drawn
+polyline (false)
+((0.1625,0.15),
+(0.0375,0.15));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.1625,0),
+(0.0375,0.09));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((-0.077094,0.007972),
+(-0.0125,0.0675),(-0.099892,0.058634));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.1125,0.0225),
+(-0.028521,0.060291));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.1625,0.3),
+(0.0375,0.21));
+
+endmfpic; % (87) line 1246 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<88>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.3, -0.1625, 0.1625);
+
+beginmfpic(88); % line 1247 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.05,-0.0375),
+(0.25,-0.0375));
+
+store (curpath)
+drawn
+polyline (false)
+((0.15,-0.1625),
+(0.15,-0.0375));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.1625),
+(0.09,-0.0375));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((0.007972,0.077094),
+(0.0675,0.0125),(0.058634,0.099892));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0.0225,0.1125),
+(0.060291,0.028521));
+
+store (curpath)
+drawn
+polyline (false)
+((0.3,0.1625),
+(0.21,-0.0375));
+
+endmfpic; % (88) line 1263 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<89>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.4, -0.2, 0.2);
+
+beginmfpic(89); % line 1264 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+circle ((0.2,0),0.2);
+
+endmfpic; % (89) line 1269 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<90>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.175, 0.175, 0, 0.252778);
+
+beginmfpic(90); % line 1270 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.227778),
+(0,0.227778));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.002778),
+(0,0.252778));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((-0.083333,-0),
+(0,0.027778),(-0.083333,0.055556));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.027778),
+(-0.017568,0.027778));
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.027778),
+(0,0.027778));
+
+endmfpic; % (90) line 1284 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<91>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.175, 0.175, 0, 0.252778);
+
+beginmfpic(91); % line 1285 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.227778),
+(0,0.227778));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.002778),
+(0,0.252778));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((0.083333,0.055556),
+(0,0.027778),(0.083333,-0));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.027778),
+(0.017568,0.027778));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.027778),
+(0,0.027778));
+
+endmfpic; % (91) line 1299 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<92>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.175, 0.175, 0, 0.252778);
+
+beginmfpic(92); % line 1300 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.227778),
+(0,0.227778));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.002778),
+(0,0.252778));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.027778),
+(-0.175,0.027778));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((-0.066667,0.055556),
+(-0.15,0.027778),(-0.066667,-0));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.066667,0.027778),
+(-0.132432,0.027778));
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.027778),
+(0,0.027778));
+
+endmfpic; % (92) line 1316 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<93>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.175, 0.175, 0, 0.252778);
+
+beginmfpic(93); % line 1317 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.227778),
+(0,0.227778));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.002778),
+(0,0.252778));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.027778),
+(0.175,0.027778));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((0.066667,-0),
+(0.15,0.027778),(0.066667,0.055556));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0.066667,0.027778),
+(0.132432,0.027778));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.027778),
+(0,0.027778));
+
+endmfpic; % (93) line 1333 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<94>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.175, 0.175, 0, 0.25);
+
+beginmfpic(94); % line 1334 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.125),
+(0,0.125));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((0.129167,0.152778),
+(0.045833,0.125),(0.129167,0.097222));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0.129167,0.125),
+(0.063402,0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.225),
+(0,0.225));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.075));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.1),
+(0,0.15));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.175),
+(0,0.25));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.05,0.225),
+(-0.05,0.025),
+(-0.175,0.025));
+
+store (curpath)
+drawn
+polyline (false)
+((0.16393,0.125),
+(0.175,0.125),
+(0.175,0.025),
+(0.16393,0.025));
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.025),
+(0,0.025));
+
+endmfpic; % (94) line 1361 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<95>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.175, 0.175, 0, 0.25);
+
+beginmfpic(95); % line 1362 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.125),
+(0,0.125));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((-0.129167,0.097222),
+(-0.045833,0.125),(-0.129167,0.152778));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.129167,0.125),
+(-0.063402,0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.225),
+(0,0.225));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.075));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.1),
+(0,0.15));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.175),
+(0,0.25));
+
+store (curpath)
+drawn
+polyline (false)
+((0.05,0.225),
+(0.05,0.025),
+(0.175,0.025));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.16393,0.125),
+(-0.175,0.125),
+(-0.175,0.025),
+(-0.16393,0.025));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.025),
+(0,0.025));
+
+endmfpic; % (95) line 1389 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<96>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.175, 0.175, 0, 0.25);
+
+beginmfpic(96); % line 1390 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.125),
+(0,0.125));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((0.045833,0.097222),
+(0.129167,0.125),(0.045833,0.152778));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0.111598,0.125),
+(0.045833,0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.225),
+(0,0.225));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.075));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.1),
+(0,0.15));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.175),
+(0,0.25));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.05,0.225),
+(-0.05,0.025),
+(-0.175,0.025));
+
+store (curpath)
+drawn
+polyline (false)
+((0.16393,0.125),
+(0.175,0.125),
+(0.175,0.025),
+(0.16393,0.025));
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.025),
+(0,0.025));
+
+endmfpic; % (96) line 1417 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<97>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.175, 0.175, 0, 0.25);
+
+beginmfpic(97); % line 1418 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.125),
+(0,0.125));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((-0.045833,0.152778),
+(-0.129167,0.125),(-0.045833,0.097222));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.111598,0.125),
+(-0.045833,0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.225),
+(0,0.225));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.075));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.1),
+(0,0.15));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.175),
+(0,0.25));
+
+store (curpath)
+drawn
+polyline (false)
+((0.05,0.225),
+(0.05,0.025),
+(0.175,0.025));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.16393,0.125),
+(-0.175,0.125),
+(-0.175,0.025),
+(-0.16393,0.025));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.025),
+(0,0.025));
+
+endmfpic; % (97) line 1445 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<98>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.175, 0.175, 0, 0.25);
+
+beginmfpic(98); % line 1446 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.125),
+(0,0.125));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((0.129167,0.152778),
+(0.045833,0.125),(0.129167,0.097222));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0.129167,0.125),
+(0.063402,0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.225),
+(0,0.225));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.25));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.05,0.225),
+(-0.05,0.025),
+(-0.175,0.025));
+
+store (curpath)
+drawn
+polyline (false)
+((0.16393,0.125),
+(0.175,0.125),
+(0.175,0.025),
+(0.16393,0.025));
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.025),
+(0,0.025));
+
+endmfpic; % (98) line 1469 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<99>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.175, 0.175, 0, 0.25);
+
+beginmfpic(99); % line 1470 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.125),
+(0,0.125));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((-0.129167,0.097222),
+(-0.045833,0.125),(-0.129167,0.152778));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.129167,0.125),
+(-0.063402,0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.225),
+(0,0.225));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.25));
+
+store (curpath)
+drawn
+polyline (false)
+((0.05,0.225),
+(0.05,0.025),
+(0.175,0.025));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.16393,0.125),
+(-0.175,0.125),
+(-0.175,0.025),
+(-0.16393,0.025));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.025),
+(0,0.025));
+
+endmfpic; % (99) line 1493 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<100>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.175, 0.175, 0, 0.25);
+
+beginmfpic(100); % line 1494 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.125),
+(0,0.125));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((0.045833,0.097222),
+(0.129167,0.125),(0.045833,0.152778));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((0.111598,0.125),
+(0.045833,0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.225),
+(0,0.225));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.25));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.05,0.225),
+(-0.05,0.025),
+(-0.175,0.025));
+
+store (curpath)
+drawn
+polyline (false)
+((0.16393,0.125),
+(0.175,0.125),
+(0.175,0.025),
+(0.16393,0.025));
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0.025),
+(0,0.025));
+
+endmfpic; % (100) line 1517 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<101>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.175, 0.175, 0, 0.25);
+
+beginmfpic(101); % line 1518 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.125),
+(0,0.125));
+
+resizedrawpen (0bp);
+
+store (curpath)
+drawn
+filled
+polyline (true)
+((-0.045833,0.152778),
+(-0.129167,0.125),(-0.045833,0.097222));
+
+resizedrawpen (0.8bp);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.111598,0.125),
+(-0.045833,0.125));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.225),
+(0,0.225));
+
+store (curpath)
+drawn
+polyline (false)
+((0,0),
+(0,0.25));
+
+store (curpath)
+drawn
+polyline (false)
+((0.05,0.225),
+(0.05,0.025),
+(0.175,0.025));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.16393,0.125),
+(-0.175,0.125),
+(-0.175,0.025),
+(-0.16393,0.025));
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0.025),
+(0,0.025));
+
+endmfpic; % (101) line 1541 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<102>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.35, -0.15, 0.15);
+
+beginmfpic(102); % line 1542 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.2,-0.15),
+(0,-0.15),
+(0,0.15),
+(0.2,0.15));
+
+store (curpath)
+drawn
+arcplr ((0.2,0),90,-90,0.15);
+
+endmfpic; % (102) line 1551 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<103>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.15, 0.15, -0.35, 0);
+
+beginmfpic(103); % line 1552 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.15,-0.2),
+(-0.15,0),
+(0.15,0),
+(0.15,-0.2));
+
+store (curpath)
+drawn
+arcplr ((0,-0.2),0,-180,0.15);
+
+endmfpic; % (103) line 1561 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<104>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.35, 0, -0.15, 0.15);
+
+beginmfpic(104); % line 1562 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.2,0.15),
+(0,0.15),
+(0,-0.15),
+(-0.2,-0.15));
+
+store (curpath)
+drawn
+arcplr ((-0.2,0),-90,-270,0.15);
+
+endmfpic; % (104) line 1571 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<105>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.15, 0.15, 0, 0.35);
+
+beginmfpic(105); % line 1572 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.15,0.2),
+(0.15,0),
+(-0.15,0),
+(-0.15,0.2));
+
+store (curpath)
+drawn
+arcplr ((0,0.2),-180,-360,0.15);
+
+endmfpic; % (105) line 1581 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<106>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.355556, -0.151089, 0.151089);
+
+beginmfpic(106); % line 1582 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.122222,0.148911),
+(0,0.148911));
+
+store (curpath)
+drawn
+arcplr ((-0.310672,-0.001089),25.772366,-25.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.151089),
+(0.122222,-0.151089));
+
+store (curpath)
+drawn
+arcplr ((0.122222,-0.107571),90,24.529547,0.256481);
+
+store (curpath)
+drawn
+arcplr ((0.122222,0.105392),-90,-24.529547,0.256481);
+
+endmfpic; % (106) line 1593 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<107>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.151089, 0.151089, -0.355556, -0);
+
+beginmfpic(107); % line 1594 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.148911,-0.122222),
+(0.148911,0));
+
+store (curpath)
+drawn
+arcplr ((-0.001089,0.310672),-64.227634,-115.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.151089,-0),
+(-0.151089,-0.122222));
+
+store (curpath)
+drawn
+arcplr ((-0.107571,-0.122222),0,-65.470453,0.256481);
+
+store (curpath)
+drawn
+arcplr ((0.105392,-0.122222),180,245.470453,0.256481);
+
+endmfpic; % (107) line 1605 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<108>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.355556, -0, -0.151089, 0.151089);
+
+beginmfpic(108); % line 1606 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.122222,-0.148911),
+(0,-0.148911));
+
+store (curpath)
+drawn
+arcplr ((0.310672,0.001089),-154.227634,-205.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((-0,0.151089),
+(-0.122222,0.151089));
+
+store (curpath)
+drawn
+arcplr ((-0.122222,0.107571),-90,-155.470453,0.256481);
+
+store (curpath)
+drawn
+arcplr ((-0.122222,-0.105392),90,155.470453,0.256481);
+
+endmfpic; % (108) line 1617 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<109>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.151089, 0.151089, 0, 0.355556);
+
+beginmfpic(109); % line 1618 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.148911,0.122222),
+(-0.148911,0));
+
+store (curpath)
+drawn
+arcplr ((0.001089,-0.310672),115.772366,64.623066,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((0.151089,0),
+(0.151089,0.122222));
+
+store (curpath)
+drawn
+arcplr ((0.107571,0.122222),-180,-245.470453,0.256481);
+
+store (curpath)
+drawn
+arcplr ((-0.105392,0.122222),0,65.470453,0.256481);
+
+endmfpic; % (109) line 1629 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<110>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.175, -0.1, 0.1);
+
+beginmfpic(110); % line 1630 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0),
+(0,-0.1),
+(0,0.1),
+(0.175,0));
+
+endmfpic; % (110) line 1638 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<111>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.1, 0.1, -0.175, 0);
+
+beginmfpic(111); % line 1639 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.175),
+(-0.1,0),
+(0.1,0),
+(0,-0.175));
+
+endmfpic; % (111) line 1647 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<112>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.175, 0, -0.1, 0.1);
+
+beginmfpic(112); % line 1648 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0),
+(0,0.1),
+(0,-0.1),
+(-0.175,0));
+
+endmfpic; % (112) line 1656 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<113>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.1, 0.1, 0, 0.175);
+
+beginmfpic(113); % line 1657 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.175),
+(0.1,0),
+(-0.1,0),
+(0,0.175));
+
+endmfpic; % (113) line 1665 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<114>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.425, -0.15, 0.15);
+
+beginmfpic(114); % line 1666 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.2,-0.15),
+(0,-0.15),
+(0,0.15),
+(0.2,0.15));
+
+store (curpath)
+drawn
+arcplr ((0.2,0),90,-90,0.15);
+
+store (curpath)
+drawn
+circle ((0.3875,0),0.0375);
+
+endmfpic; % (114) line 1676 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<115>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.15, 0.15, -0.425, 0);
+
+beginmfpic(115); % line 1677 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.15,-0.2),
+(-0.15,0),
+(0.15,0),
+(0.15,-0.2));
+
+store (curpath)
+drawn
+arcplr ((0,-0.2),0,-180,0.15);
+
+store (curpath)
+drawn
+circle ((0,-0.3875),0.0375);
+
+endmfpic; % (115) line 1687 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<116>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.425, 0, -0.15, 0.15);
+
+beginmfpic(116); % line 1688 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.2,0.15),
+(0,0.15),
+(0,-0.15),
+(-0.2,-0.15));
+
+store (curpath)
+drawn
+arcplr ((-0.2,0),-90,-270,0.15);
+
+store (curpath)
+drawn
+circle ((-0.3875,0),0.0375);
+
+endmfpic; % (116) line 1698 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<117>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.15, 0.15, 0, 0.425);
+
+beginmfpic(117); % line 1699 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.15,0.2),
+(0.15,0),
+(-0.15,0),
+(-0.15,0.2));
+
+store (curpath)
+drawn
+arcplr ((0,0.2),-180,-360,0.15);
+
+store (curpath)
+drawn
+circle ((0,0.3875),0.0375);
+
+endmfpic; % (117) line 1709 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<118>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.430556, -0.151089, 0.151089);
+
+beginmfpic(118); % line 1710 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.122222,0.148911),
+(0,0.148911));
+
+store (curpath)
+drawn
+arcplr ((-0.310672,-0.001089),25.772366,-25.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.151089),
+(0.122222,-0.151089));
+
+store (curpath)
+drawn
+arcplr ((0.122222,-0.107571),90,24.529547,0.256481);
+
+store (curpath)
+drawn
+arcplr ((0.122222,0.105392),-90,-24.529547,0.256481);
+
+store (curpath)
+drawn
+circle ((0.393056,-0.001089),0.0375);
+
+endmfpic; % (118) line 1722 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<119>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.151089, 0.151089, -0.430556, -0);
+
+beginmfpic(119); % line 1723 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.148911,-0.122222),
+(0.148911,0));
+
+store (curpath)
+drawn
+arcplr ((-0.001089,0.310672),-64.227634,-115.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.151089,-0),
+(-0.151089,-0.122222));
+
+store (curpath)
+drawn
+arcplr ((-0.107571,-0.122222),0,-65.470453,0.256481);
+
+store (curpath)
+drawn
+arcplr ((0.105392,-0.122222),180,245.470453,0.256481);
+
+store (curpath)
+drawn
+circle ((-0.001089,-0.393056),0.0375);
+
+endmfpic; % (119) line 1735 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<120>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.430556, -0, -0.151089, 0.151089);
+
+beginmfpic(120); % line 1736 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.122222,-0.148911),
+(0,-0.148911));
+
+store (curpath)
+drawn
+arcplr ((0.310672,0.001089),-154.227634,-205.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((-0,0.151089),
+(-0.122222,0.151089));
+
+store (curpath)
+drawn
+arcplr ((-0.122222,0.107571),-90,-155.470453,0.256481);
+
+store (curpath)
+drawn
+arcplr ((-0.122222,-0.105392),90,155.470453,0.256481);
+
+store (curpath)
+drawn
+circle ((-0.393056,0.001089),0.0375);
+
+endmfpic; % (120) line 1748 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<121>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.151089, 0.151089, 0, 0.430556);
+
+beginmfpic(121); % line 1749 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.148911,0.122222),
+(-0.148911,0));
+
+store (curpath)
+drawn
+arcplr ((0.001089,-0.310672),115.772366,64.623066,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((0.151089,0),
+(0.151089,0.122222));
+
+store (curpath)
+drawn
+arcplr ((0.107571,0.122222),-180,-245.470453,0.256481);
+
+store (curpath)
+drawn
+arcplr ((-0.105392,0.122222),0,65.470453,0.256481);
+
+store (curpath)
+drawn
+circle ((0.001089,0.393056),0.0375);
+
+endmfpic; % (121) line 1761 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<122>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0, 0.4, -0.151089, 0.151089);
+
+beginmfpic(122); % line 1762 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+arcplr ((-0.316228,-0.001089),25.376934,-25.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((0.166667,0.148911),
+(0.044444,0.148911));
+
+store (curpath)
+drawn
+arcplr ((-0.266228,-0.001089),25.772366,-25.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((0.044444,-0.151089),
+(0.166667,-0.151089));
+
+store (curpath)
+drawn
+arcplr ((0.166667,-0.107571),90,24.529547,0.256481);
+
+store (curpath)
+drawn
+arcplr ((0.166667,0.105392),-90,-24.529547,0.256481);
+
+endmfpic; % (122) line 1774 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<123>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.151089, 0.151089, -0.4, 0);
+
+beginmfpic(123); % line 1775 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+arcplr ((-0.001089,0.316228),-64.623066,-115.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((0.148911,-0.166667),
+(0.148911,-0.044444));
+
+store (curpath)
+drawn
+arcplr ((-0.001089,0.266228),-64.227634,-115.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.151089,-0.044444),
+(-0.151089,-0.166667));
+
+store (curpath)
+drawn
+arcplr ((-0.107571,-0.166667),0,-65.470453,0.256481);
+
+store (curpath)
+drawn
+arcplr ((0.105392,-0.166667),180,245.470453,0.256481);
+
+endmfpic; % (123) line 1787 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<124>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.4, 0, -0.151089, 0.151089);
+
+beginmfpic(124); % line 1788 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+arcplr ((0.316228,0.001089),-154.623066,-205.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.166667,-0.148911),
+(-0.044444,-0.148911));
+
+store (curpath)
+drawn
+arcplr ((0.266228,0.001089),-154.227634,-205.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.044444,0.151089),
+(-0.166667,0.151089));
+
+store (curpath)
+drawn
+arcplr ((-0.166667,0.107571),-90,-155.470453,0.256481);
+
+store (curpath)
+drawn
+arcplr ((-0.166667,-0.105392),90,155.470453,0.256481);
+
+endmfpic; % (124) line 1800 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<125>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.151089, 0.151089, 0, 0.4);
+
+beginmfpic(125); % line 1801 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+arcplr ((0.001089,-0.316228),115.376934,64.623066,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.148911,0.166667),
+(-0.148911,0.044444));
+
+store (curpath)
+drawn
+arcplr ((0.001089,-0.266228),115.772366,64.623066,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((0.151089,0.044444),
+(0.151089,0.166667));
+
+store (curpath)
+drawn
+arcplr ((0.107571,0.166667),180,114.529547,0.256481);
+
+store (curpath)
+drawn
+arcplr ((-0.105392,0.166667),0,65.470453,0.256481);
+
+endmfpic; % (125) line 1813 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<126>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0, 0.475, -0.151089, 0.151089);
+
+beginmfpic(126); % line 1814 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+arcplr ((-0.316228,-0.001089),25.376934,-25.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((0.166667,0.148911),
+(0.044444,0.148911));
+
+store (curpath)
+drawn
+arcplr ((-0.266228,-0.001089),25.772366,-25.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((0.044444,-0.151089),
+(0.166667,-0.151089));
+
+store (curpath)
+drawn
+arcplr ((0.166667,-0.107571),90,24.529547,0.256481);
+
+store (curpath)
+drawn
+arcplr ((0.166667,0.105392),-90,-24.529547,0.256481);
+
+store (curpath)
+drawn
+circle ((0.4375,-0.001089),0.0375);
+
+endmfpic; % (126) line 1827 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<127>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.151089, 0.151089, -0.475, 0);
+
+beginmfpic(127); % line 1828 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+arcplr ((-0.001089,0.316228),-64.623066,-115.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((0.148911,-0.166667),
+(0.148911,-0.044444));
+
+store (curpath)
+drawn
+arcplr ((-0.001089,0.266228),-64.227634,-115.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.151089,-0.044444),
+(-0.151089,-0.166667));
+
+store (curpath)
+drawn
+arcplr ((-0.107571,-0.166667),0,-65.470453,0.256481);
+
+store (curpath)
+drawn
+arcplr ((0.105392,-0.166667),180,245.470453,0.256481);
+
+store (curpath)
+drawn
+circle ((-0.001089,-0.4375),0.0375);
+
+endmfpic; % (127) line 1841 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<128>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.475, 0, -0.151089, 0.151089);
+
+beginmfpic(128); % line 1842 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+arcplr ((0.316228,0.001089),-154.623066,-205.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.166667,-0.148911),
+(-0.044444,-0.148911));
+
+store (curpath)
+drawn
+arcplr ((0.266228,0.001089),-154.227634,-205.376934,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.044444,0.151089),
+(-0.166667,0.151089));
+
+store (curpath)
+drawn
+arcplr ((-0.166667,0.107571),-90,-155.470453,0.256481);
+
+store (curpath)
+drawn
+arcplr ((-0.166667,-0.105392),90,155.470453,0.256481);
+
+store (curpath)
+drawn
+circle ((-0.4375,0.001089),0.0375);
+
+endmfpic; % (128) line 1855 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<129>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.151089, 0.151089, 0, 0.475);
+
+beginmfpic(129); % line 1856 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+arcplr ((0.001089,-0.316228),115.376934,64.623066,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((-0.148911,0.166667),
+(-0.148911,0.044444));
+
+store (curpath)
+drawn
+arcplr ((0.001089,-0.266228),115.772366,64.623066,0.35);
+
+store (curpath)
+drawn
+polyline (false)
+((0.151089,0.044444),
+(0.151089,0.166667));
+
+store (curpath)
+drawn
+arcplr ((0.107571,0.166667),180,114.529547,0.256481);
+
+store (curpath)
+drawn
+arcplr ((-0.105392,0.166667),0,65.470453,0.256481);
+
+store (curpath)
+drawn
+circle ((0.001089,0.4375),0.0375);
+
+endmfpic; % (129) line 1869 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<130>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (0, 0.25, -0.1, 0.1);
+
+beginmfpic(130); % line 1870 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0.175,0),
+(0,-0.1),
+(0,0.1),
+(0.175,0));
+
+store (curpath)
+drawn
+circle ((0.2125,0),0.0375);
+
+endmfpic; % (130) line 1879 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<131>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.1, 0.1, -0.25, 0);
+
+beginmfpic(131); % line 1880 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,-0.175),
+(-0.1,0),
+(0.1,0),
+(0,-0.175));
+
+store (curpath)
+drawn
+circle ((0,-0.2125),0.0375);
+
+endmfpic; % (131) line 1889 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<132>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.25, 0, -0.1, 0.1);
+
+beginmfpic(132); % line 1890 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((-0.175,0),
+(0,0.1),
+(0,-0.1),
+(-0.175,0));
+
+store (curpath)
+drawn
+circle ((-0.2125,0),0.0375);
+
+endmfpic; % (132) line 1899 in the TeX source.
+%------------------------------------------
+
+
+%----------------------------<133>
+unitlen := 1.0pt#;
+xscale := 72; yscale := 72;
+bounds (-0.1, 0.1, 0, 0.25);
+
+beginmfpic(133); % line 1900 in the TeX source.
+
+resizedrawpen (0.8bp);
+setcolor (drawcolor) black;
+
+store (curpath)
+drawn
+polyline (false)
+((0,0.175),
+(0.1,0),
+(-0.1,0),
+(0,0.175));
+
+store (curpath)
+drawn
+circle ((0,0.2125),0.0375);
+
+endmfpic; % (133) line 1909 in the TeX source.
+%------------------------------------------
+
+
+end.
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/cct.mf
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/cct.tfm
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/cct.tfm
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/cct.tfm 2019-09-05 22:25:35 UTC (rev 52034)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/cct.tfm 2019-09-05 22:33:48 UTC (rev 52035)
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/cct.tfm
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/octet-stream
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/font.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/font.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/font.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,424 @@
+\documentclass[11pt]{article}
+\usepackage{mfpic}
+\pagestyle{empty}
+\begin{document}
+\thispagestyle{empty}
+\opengraphsfile{cct}
+
+ifdef(`L_unit',,`include(liblog.m4)')
+define(`srad_',`sourcerad_*3/2')
+define(`quad_',`srad_/sqrt(2)')
+define(`Dim',`dimen_*2/3')
+.PS
+ resistor(right_ Dim)
+.PE
+.PS
+ resistor(up_ Dim)
+.PE
+.PS
+ inductor(right_ Dim,W)
+.PE
+.PS
+ inductor(down_ Dim,W)
+.PE
+.PS
+ inductor(left_ Dim,W)
+.PE
+.PS
+ inductor(up_ Dim,W)
+.PE
+.PS
+ {eleminit_(right Dim)}
+ m4m_core(Here,m4wd,m4ht+dimen_/24,dimen_/16)
+.PE
+.PS
+ {eleminit_(up_ Dim)}
+ m4m_core(Here,m4wd,m4ht+dimen_/24,dimen_/16)
+.PE
+.PS
+ inductor(right_ Dim)
+.PE
+.PS
+ inductor(down_ Dim)
+.PE
+.PS
+ inductor(left_ Dim)
+.PE
+.PS
+ inductor(up_ Dim)
+.PE
+.PS
+ inductor(up_ Dim)
+.PE
+.PS
+ {eleminit_(right Dim)}
+ m4m_core(Here,m4wd,m4ht+dimen_/24,dimen_/16)
+.PE
+.PS
+ {eleminit_(up_ Dim)}
+ m4m_core(Here,m4wd,m4ht+dimen_/24,dimen_/16)
+.PE
+.PS
+ capacitor(right_ Dim,C)
+.PE
+.PS
+ capacitor(down_ Dim,C)
+.PE
+.PS
+ capacitor(left_ Dim,C)
+.PE
+.PS
+ capacitor(up_ Dim,C)
+.PE
+.PS
+ capacitor(right_ Dim)
+.PE
+.PS
+ capacitor(up_ Dim)
+.PE
+.PS
+ diode(right_ Dim)
+.PE
+.PS
+ diode(down_ Dim)
+.PE
+.PS
+ diode(left_ Dim)
+.PE
+.PS
+ diode(up_ Dim)
+.PE
+.PS
+ diode(right_ Dim,Z)
+.PE
+.PS
+ diode(down_ Dim,Z)
+.PE
+.PS
+ diode(left_ Dim,Z)
+.PE
+.PS
+ diode(up_ Dim,Z)
+.PE
+.PS
+ diode(right_ Dim,BD)
+.PE
+.PS
+ diode(down_ Dim,BD)
+.PE
+.PS
+ xtal(right_ Dim)
+.PE
+.PS
+ xtal(down_ Dim)
+.PE
+.PS
+ source(right_ Dim)
+.PE
+.PS
+ source(up_ Dim)
+.PE
+.PS
+ arc rad sourcerad_/3 cw from Here-(sourcerad_*2/3,0) to Here\
+ with .c at Here-(sourcerad_/3,0)
+ arc rad sourcerad_/3 ccw from Here to Here+(sourcerad_*2/3,0) \
+ with .c at Here+(sourcerad_/3,0)
+.PE
+.PS
+ consource(right_ Dim)
+.PE
+.PS
+ consource(up_ Dim)
+.PE
+.PS
+ {move down 1 bp__ then up_ 2 bp__}; arrow right_ srad_
+.PE
+.PS
+ {move right 1 bp__ then left 2 bp__}; arrow down_ srad_
+.PE
+.PS
+ {move down 1 bp__ then up_ 2 bp__}; arrow left_ srad_
+.PE
+.PS
+ {move right 1 bp__ then left 2 bp__}; arrow up_ srad_
+.PE
+.PS
+ arrow right quad_ up quad_
+.PE
+.PS
+ arrow left quad_ up quad_
+.PE
+.PS
+ arrow left quad_ down quad_
+.PE
+.PS
+ arrow right quad_ down quad_
+.PE
+.PS
+ battery(right_ Dim)
+.PE
+.PS
+ battery(down_ Dim)
+.PE
+.PS
+ battery(left_ Dim)
+.PE
+.PS
+ battery(up_ Dim)
+.PE
+.PS
+ battery(right_ Dim,3)
+.PE
+.PS
+ battery(down_ Dim,3)
+.PE
+.PS
+ battery(left_ Dim,3)
+.PE
+.PS
+ battery(up_ Dim,3)
+.PE
+.PS
+ ebox(right_ Dim)
+.PE
+.PS
+ ebox(up_ Dim)
+.PE
+.PS
+ switch(right_ Dim)
+.PE
+.PS
+ switch(down_ Dim)
+.PE
+.PS
+ switch(left_ Dim)
+.PE
+.PS
+ switch(up_ Dim)
+.PE
+.PS
+ switch(right_ Dim,,O)
+.PE
+.PS
+ switch(down_ Dim,,O)
+.PE
+.PS
+ switch(left_ Dim,,O)
+.PE
+.PS
+ switch(up_ Dim,,O)
+.PE
+.PS
+ switch(right_ Dim,,C)
+.PE
+.PS
+ switch(down_ Dim,,C)
+.PE
+.PS
+ switch(left_ Dim,,C)
+.PE
+.PS
+ switch(up_ Dim,,C)
+.PE
+.PS
+ amp(right_ Dim*3/2*5/4)
+.PE
+.PS
+ amp(down_ Dim*3/2*5/4)
+.PE
+.PS
+ amp(left_ Dim*3/2*5/4)
+.PE
+.PS
+ amp(up_ Dim*3/2*5/4)
+.PE
+.PS
+ delay(right_ Dim)
+.PE
+.PS
+ delay(down_ Dim)
+.PE
+.PS
+ delay(left_ Dim)
+.PE
+.PS
+ delay(up_ Dim)
+.PE
+.PS
+rp_ang = 0
+ right_
+ ground(,T)
+.PE
+.PS
+rp_ang = 0
+ right_
+ ground
+.PE
+.PS
+ down_; transformer(,L)
+.PE
+.PS
+ right_; transformer(,L)
+.PE
+.PS
+ up_; bi_tr
+.PE
+.PS
+ left_; bi_tr
+.PE
+.PS
+ up_; bi_tr(,R)
+.PE
+.PS
+ right_; bi_tr(,R)
+.PE
+.PS
+ up_; bi_tr(,,P)
+.PE
+.PS
+ left_; bi_tr(,,P)
+.PE
+.PS
+ up_; bi_tr(,R,P)
+.PE
+.PS
+ right_; bi_tr(,R,P)
+.PE
+.PS
+ circle rad 4*dimen_/10
+.PE
+.PS
+ up_; j_fet
+.PE
+.PS
+ up_; j_fet(,R)
+.PE
+.PS
+ up_; j_fet(,,P,)
+.PE
+.PS
+ up_; j_fet(,R,P,)
+.PE
+.PS
+ up_; e_fet(,,,)
+.PE
+.PS
+ up_; e_fet(,R,,)
+.PE
+.PS
+ up_; e_fet(,,P,)
+.PE
+.PS
+ up_; e_fet(,R,P,)
+.PE
+.PS
+ up_; d_fet(,,,)
+.PE
+.PS
+ up_; d_fet(,R,,)
+.PE
+.PS
+ up_; d_fet(,,P,)
+.PE
+.PS
+ up_; d_fet(,R,P,)
+.PE
+.PS
+ right_; AND_gate
+.PE
+.PS
+ down_; AND_gate
+.PE
+.PS
+ left_; AND_gate
+.PE
+.PS
+ up_; AND_gate
+.PE
+.PS
+ right_; OR_gate
+.PE
+.PS
+ down_; OR_gate
+.PE
+.PS
+ left_; OR_gate
+.PE
+.PS
+ up_; OR_gate
+.PE
+.PS
+ right_; BUFFER_gate
+.PE
+.PS
+ down_; BUFFER_gate
+.PE
+.PS
+ left_; BUFFER_gate
+.PE
+.PS
+ up_; BUFFER_gate
+.PE
+.PS
+ right_; NAND_gate
+.PE
+.PS
+ down_; NAND_gate
+.PE
+.PS
+ left_; NAND_gate
+.PE
+.PS
+ up_; NAND_gate
+.PE
+.PS
+ right_; NOR_gate
+.PE
+.PS
+ down_; NOR_gate
+.PE
+.PS
+ left_; NOR_gate
+.PE
+.PS
+ up_; NOR_gate
+.PE
+.PS
+ right_; XOR_gate
+.PE
+.PS
+ down_; XOR_gate
+.PE
+.PS
+ left_; XOR_gate
+.PE
+.PS
+ up_; XOR_gate
+.PE
+.PS
+ right_; NXOR_gate
+.PE
+.PS
+ down_; NXOR_gate
+.PE
+.PS
+ left_; NXOR_gate
+.PE
+.PS
+ up_; NXOR_gate
+.PE
+.PS
+ right_; NOT_gate
+.PE
+.PS
+ down_; NOT_gate
+.PE
+.PS
+ left_; NOT_gate
+.PE
+.PS
+ up_; NOT_gate
+.PE
+
+\closegraphsfile
+\end{document}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/font.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/mf/mftest
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/mftest (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/mftest 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,43 @@
+#!/bin/sh
+# mftest -- script to test the mf version of a single picture file
+#
+# Usage: mftest file
+#
+# e.g. copy ex01.m4 here and type ./mftest ex01
+# Invokes m4 on file.m4, and builds the resulting picture in file.ps
+
+LIBS=mfpic.m4
+MODE=ljfzzz
+
+echo "\documentclass{article}
+\usepackage[amssymb,Gray,thinqspace,textstyle]{SIunits}
+\usepackage{mfpic}
+&begin{document}
+\opengraphsfile{"$1"mfpic}
+%{This is a test of the -m option of dpic (mfpic output).}" \
+| tr '\046' '\134' > $1.tex
+
+m4 -B16000 $LIBS $1.m4 | dpic -m >> $1.tex
+
+echo "
+&closegraphsfile
+\end{document}" | tr '\046' '\134' >> $1.tex
+
+echo "
+latex "$1
+latex $1
+echo "
+mf \mode:=$MODE; scrollmode; input $1""mfpic < /dev/null"
+mf "\mode:="$MODE"; scrollmode; input "$1mfpic < /dev/null
+echo "
+gftopk:"
+ls $1mfpic.*gf | sed -e 's/^/gftopk /' \
+ -e "s/$1mfpic.\([0-9]*\)gf/$1mfpic.\1gf $1mfpic.\1pk/" | sh
+ls $1mfpic.*gf $1mfpic.*pk
+cp $1mfpic.*pk $1mfpic.pk
+echo "
+TEXFORMATS=.: TEXFONTS=.: latex $1"
+TEXFORMATS=.: TEXFONTS=.: latex $1
+echo "
+TEXPKS=.: dvips -M1 -P$MODE $1 -o"
+TEXPKS=.: dvips -M1 -P$MODE $1 -o
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mf/mftest
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mode.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mode.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mode.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1 @@
+\usepackage{tikz}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mode.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/mpost/Makefile
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/Makefile (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/Makefile 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,133 @@
+# Makefile for the mpost subdirectory
+# To test a new file, copy it into test.m4 and type "make tst" or "make tst1"
+
+M4 = m4 mpost.m4
+# If the M4PATH environment variable has not been set to include the
+# installation directory then change $$HOME/lib to point to the directory,
+# and uncomment the following:
+
+# M4 = m4 -I $$HOME/lib mpost.m4
+
+#---------------------------------------------
+
+MKDIM=pwd | sed -e 's%^%=boxdimfile{%' -e 's%/cygdrive/\(.\)/%\1:/%' \
+ -e 's%$$%/$(DIMFILE)}%'
+
+# Comment out the following line to produce absolute addresses for .dim files.
+MKDIM=printf '=boxdimfile{$(DIMFILE)}\n'
+
+#---------------------------------------------
+
+DOC = examplesmpost
+FIGS = Adder.1 Alogix.1 ABlogix.1 Antennas.1 AmpTable.1 Audio.1 \
+ Bip.1 Btree.1 Byte.1 Buttons.1 \
+ Counting.1 Crossbar.1 Crow.1 Csource.1 CanLogic.1 CctTable.1 Conn.1 \
+ Decoder.1 Demultiplexer.1 Diodes.1 Drive.1 \
+ Emarrows.1 Flow.1 Fuses.1 \
+ Grounds.1 Headers.1 Heathkit.1 I2L.1 Inclpdf.1 Jack.1 \
+ Logic.1 Loglog.1 MC.1 Mixer.1 MotorControl.1 Multiplexer.1 \
+ NLG.1 NPDT.1 Nport.1 \
+ Opamp.1 Optoiso.1 Pconn.1 PushPull.1 Quantum.1 \
+ Rectifiers.1 Relay.1 Rotbox.1 \
+ Schottky.1 Sierpinski.1 ShiftR.1 Sixpole.1 Sources.1 SQUID.1 Switches.1 \
+ Tgate.1 Three.1 Timer.1 TTLnand.1 Ttree.1 \
+ Variable.1 Windings.1 Xform.1 \
+ control.1 csc.1 diamond.1 ex00.1 ex01.1 ex02.1 \
+ ex03.1 ex04.1 ex05.1 ex06.1 ex08.1 ex09.1 ex10.1 \
+ ex11.1 ex12.1 ex15.1 ex16.1 ex17.1 ex18.1 ex21.1 exp.1 \
+ fet.1 graysurf.1 lcct.1 pwrsupply.1 quick.1 \
+ recycle.1 rose.1 shapes.1 thyristor.1 sfg.1 ujt.1 worm.1 XOR.1
+
+BOXDIMS = ex09 Crow Inclpdf Loglog Opamp Ttree Windings
+
+# It is advisable to do `make clean' between test examples.
+#---------------------------------------------
+
+DPIC = dpic
+# DPIC = $$HOME/dpic/test/dpic
+
+MPOST = mpost --tex=latex
+
+TR = | tr '=' '\134'
+
+LATEX = latex
+DVIPS = dvips
+
+DIMFILE = tmp.dim
+
+.SUFFIXES: .mp .dvi .ps .m4 .1
+.dvi.ps:
+ $(DVIPS) $* -o
+.tex.dvi:
+ $(LATEX) $*
+.m4.mp:
+ $(M4) $*.m4 | $(DPIC) -s > $*.mp
+# $(M4) $*.m4 $*.pic
+# $(DPIC) -s $*.pic > $*.mp
+.m4.1:
+ @touch $(DIMFILE) $(DOC).dim
+ $(M4) $(DIMFILE) $(DOC).dim $*.m4 > $(DOC).pic
+ @(printf 'verbatimtex\n' ;\
+ printf '=documentclass[11pt]{article}\n' ;\
+ printf '=usepackage{times,boxdims,graphicx}\n' ;\
+ printf '=usepackage[amssymb,Gray,thinqspace,textstyle]{SIunits}\n' ;\
+ $(MKDIM) ;\
+ printf '=begin{document} etex\n' ) $(TR) > $*.mp
+# $(M4) $(DIMFILE) $(DOC).dim $*.m4 | $(DPIC) -s >> $*.mp
+ dpic -s $(DOC).pic >> $*.mp
+ @printf 'end\n' >> $*.mp
+ $(MPOST) $*.mp
+
+$(DOC).ps: $(DOC).dvi
+ $(DVIPS) $(DOC) -o
+
+EXL = exlinks
+$(DOC).dvi: $(DOC).tex
+ -if test "$(DOC)" = "examplesmpost" ; then make exlinks dims; fi
+ make $(FIGS)
+ $(LATEX) $(DOC)
+ -if test -n "$(BOXDIMS)" ; then rm -f dims; \
+ for box in $(BOXDIMS) ; do rm -f $$box.1; done; \
+ make BOXDIMS="$(BOXDIMS)" dims; $(LATEX) $(DOC); fi
+
+dims:
+ -if test -n "$(BOXDIMS)" ; then for box in $(BOXDIMS) ; do \
+ make $$box.1; rm -f $$box.1; make $$box.1; done; fi
+ touch dims
+
+figs: $(EXL) $(FIGS)
+
+exlinks:
+ @echo ""
+ @echo 'Ignore "cannot create ... exists" warnings.'
+ - at if test ! -f ex11.m4 ; then \
+ ls ../*.m4 | sed -e 's/^/ln -s /' -e '/test.m4/d' | sh;\
+ fi
+ - at if test ! -f AmpTable.m4 ; then \
+ ls ../../doc/*.m4 ../*.bb ../*.gz | sed -e 's/^/ln -s /' | sh;\
+ fi
+ -if test -n "$(EXL)" ; then touch $(EXL) ; fi
+
+clobber: clean
+
+tst:
+ rm -f tst.ps tst.dvi test.1 test.mp
+ make EXL="" DPIC="$(DPIC)" CONFIGFILE="$(CONFIGFILE)" DOC=tstmpost \
+ FIGS=test.1 BOXDIMS=test
+ rm -f *.frs
+
+tst1: test.1 tstmpost.tex
+ latex tstmpost
+ dvips tstmpost
+
+clean:
+ rm -f stamp-* $(FIGS) *.pic
+ -if /usr/bin/test -f exlinks ; then \
+ ls -l *.m4 *.bb *.gz | grep '\->' | \
+ sed -e 's/^.* \([^ ][^ ]*\) ->.*$$/rm -f \1/' | sh; fi
+ rm -f Incl.eps.bb Incl.eps.gz
+ rm -f *.log *.dvi *.ps test.pdf *.aux *.mp *.[0-9] *.[0-9][0-9] *.mpx *.dim
+ rm -f core log mpxerr* *links figs.* *.dim dims F_test.*
+ rm -f man[0-9]*.pic man[0-9]*.m4 figs.m4 test.1 test.mp test.pic test.tex
+ -if test -n "$(BOXDIMS)" ; then for box in $(BOXDIMS) ; do \
+ rm -f F_$$box.tex $$box.tex ; done; fi
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/Makefile
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/README-mpost
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/README-mpost (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/README-mpost 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,13 @@
+
+THIS DIRECTORY contains a Makefile and test files for the MetaPost
+output of dpic.
+
+1. On a Unix-like system, typing "make" processes the examples file
+ and the diagrams it includes to produce examplesmpost.ps. Each diagram is
+ passed through m4, dpic, and MetaPost, and then is imported into
+ examplesmpost.tex by the \includegraphics macro. On MikTeX, check the MKDIM
+ definition in the Makefile before typing "make".
+
+2. To work on a single file, copy the source into test.m4 in this directory
+ and type make tst. The files test.pic, test.mp, test.1, tst.dvi, and tst.ps
+ will be created.
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/README-mpost
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/examplesmpost.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/examplesmpost.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/examplesmpost.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,21 @@
+% mpost examples.tex
+
+\documentclass[11pt]{article}
+\usepackage{times,boxdims,pstricks}
+\usepackage{rotating}
+\usepackage{graphicx}
+\usepackage[amssymb,Gray,thinqspace,textstyle]{SIunits}
+
+\input ../header
+
+\global\mposttrue
+\begin{document}
+ \hfill
+ {\large\bf Examples:
+ \input{../../doc/Version.tex}
+ }
+ \hfill\break
+ The source files have been processed with m4, dpic -s, and MetaPost to
+ produce this file.
+
+\input ../files.tex
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/examplesmpost.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/mpost/mptest
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/mptest (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/mptest 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,27 @@
+#!/bin/sh
+# mptest -- script to process a single picture file through MetaPost
+# to produce an eps file
+#
+# Usage: ./mptest file
+# You may have to make this file executable first.
+#
+# e.g. copy ex01.m4 here and type ./mptest ex01
+# Starting with file.m4, invoke m4, dpic -s, and MetaPost to produce file.1
+
+LIBS=mpost.m4
+
+rm -f $1.ps F$1.* $1.1 $1.mp $1.pic
+m4 $LIBS $1.m4 > $1.pic
+
+# Write the LaTeX heading. The = signs get translated to backslashes
+#
+( echo 'verbatimtex
+=documentclass[11pt]{article}
+=usepackage{times,boxdims}=usepackage{graphicx}
+=usepackage[amssymb,Gray,thinqspace,textstyle]{SIunits}
+=begin{document} etex
+') | tr '=' '\134' > $1.mp
+
+dpic -s $1.pic >> $1.mp
+
+TEX=latex mpost $1.mp end
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/mptest
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/tstmpost.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/tstmpost.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/tstmpost.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,18 @@
+\documentclass[11pt,dvips]{article}
+\usepackage[dvips]{graphicx}
+\usepackage{amssymb,pstricks,boxdims,pst-grad}
+\usepackage[amssymb,Gray,thinqspace,textstyle]{SIunits}
+\addtolength{\textwidth}{2cm}
+\addtolength{\textheight}{3cm}
+\setlength{\oddsidemargin}{0pt}
+\setlength{\evensidemargin}{0pt}
+\setlength{\hoffset}{-0.5in}
+
+\pagestyle{empty}
+\thispagestyle{empty}
+%
+\begin{document}
+\vspace*{-1bp}
+\includegraphics{test.1}
+\vspace*{-1bp}
+\end{document}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/mpost/tstmpost.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/person.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/person.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/person.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,43 @@
+.PS
+# person.m4
+gen_init
+
+divert(-1)
+ `person(
+ height=val;width=val;fill="colorname")
+ e.g. person(height=1;fill="gray")'
+define(`person',`[ setkey_(`$1',height,linewid)
+ setkey_(`$1',width,m4height*2/5)dnl
+ setkey_(`$1',fill,"black",N)dnl
+ bodywid = m4width/2
+ bodyrad = bodywid/8
+ bodyht = (m4height - bodywid - bodywid/16 + bodyrad*2)/2
+ tmplth = linethick; linethick = 0
+ Head: circle diam bodywid colored m4fill
+ Body: box rad bodyrad ht bodyht wid bodywid colored m4fill \
+ with .n at Head.s+(0,-Head.diam/16)
+ armwid = bodywid/3
+ Armleft: box wid armwid rad armwid/2 ht Body.ht-bodyrad colored m4fill \
+ with .w at Body.e + (armwid/2,0)
+ Armright: box same with .e at Body.w + (-armwid/2,0)
+ Legleft: box wid bodywid/2.5 rad armwid/2 ht Body.ht colored m4fill \
+ with .n at (Body.w,Body.s)+(bodywid/5,bodyrad*2)
+ Legright: box same with .n at (Body.e,Body.s)+(-bodywid/5,bodyrad*2)
+ linethick_(tmplth)
+ popdef(`m4height',`m4fill')dnl
+ ]')
+
+divert(0)dnl
+
+ linewid = 3*linewid
+
+ setrgb(0.54,0.81,0.94,babyblue)
+ person(fill="babyblue")
+ person(width=linewid*3/4;fill="babyblue")
+ person(width=linewid;fill="babyblue")
+ person
+ resetrgb
+ person(height=1;fill="gray")
+
+ line up linewid with .c at last [].e+(linewid/10,0)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/person.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/pgf/Makefile
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/Makefile (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/Makefile 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,160 @@
+# Makefile for the pgf subdirectory
+
+# Type "make" to produce the examplespgf.pdf file
+# Type "make examplespgf.ps" for postscript output
+# Type "make tst" to process the file test.m4 and produce tstpgf.ps
+# Type "make tst.pdf" to process the file test.m4 and produce tstpgf.pdf
+
+# Where the .m4 libraries are installed. Change if necessary:
+LIBDIR = $$HOME/lib
+
+#---------------------------------------------
+
+# The .m4 circuit_macro libraries used for the examples:
+M4MACROS = pgf.m4
+M4 = m4 -I $(LIBDIR)
+
+#---------------------------------------------
+DOC = examplespgf
+
+FIGS = Adder.tex Alogix.tex ABlogix.tex Antennas.tex Audio.tex AmpTable.tex \
+ Bip.tex Btree.tex Byte.tex Buttons.tex \
+ CanLogic.tex CctTable.tex Conn.tex Counting.tex Crossbar.tex Crow.tex \
+ Csource.tex \
+ Decoder.tex Demultiplexer.tex Diodes.tex Drive.tex \
+ Emarrows.tex Flow.tex Fuses.tex \
+ Grounds.tex Headers.tex Heathkit.tex Jack.tex \
+ I2L.tex Incleps.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 Quantum.tex \
+ Rectifiers.tex Relay.tex Rotbox.tex \
+ Schottky.tex Sierpinski.tex ShiftR.tex Sixpole.tex Sources.tex SQUID.tex \
+ Switches.tex \
+ Tgate.tex Three.tex Timer.tex TTLnand.tex Ttree.tex \
+ Windings.tex Variable.tex Xform.tex \
+ control.tex csc.tex diamond.tex \
+ 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 graysurf.tex lcct.tex pwrsupply.tex quick.tex \
+ recycle.tex rose.tex sfg.tex shapes.tex thyristor.tex ujt.tex worm.tex \
+ XOR.tex
+
+# Files using boxdims macros:
+BOXDIMS = ex09 Crow Incleps Loglog TTLnand Opamp Ttree Windings
+
+# It is advisable to do `make clean' between test examples.
+#---------------------------------------------
+
+DPIC = dpic
+# DPIC = $$HOME/dpic/test/dpic
+
+TR = | tr '=' '\134'
+
+.SUFFIXES: .tex .m4 .eps .ps .dim .pdf
+.tex.ps:
+ latex $*
+ dvips -Ppdf $*
+.m4.tex:
+ $(M4) $(M4MACROS) $*.m4 | $(DPIC) -g > $*.tex
+# $(M4) $(M4MACROS) $*.m4 > $*.pic
+# $(DPIC) -g $*.pic > $*.tex
+.m4.pdf:
+ $(M4) $(M4MACROS) $*.m4 | $(DPIC) -g > test.tex
+ pdflatex tstpgf
+ mv tstpgf.pdf $*.pdf
+.m4.dim:
+ printf '\\documentclass[11pt]{article}\n' > F$*.tex
+ printf '\usepackage{times,boxdims,tikz}\n' >> F$*.tex
+ printf '\usepackage[amssymb,Gray,thinqspace,textstyle]{SIunits}\n' >>F$*.tex
+ printf '\\begin{document}\\input '$* >> F$*.tex
+ printf '\n\\end{document}\n' >> F$*.tex
+ make $*.tex
+ touch F$*.dim
+ $(M4) $(M4MACROS) F$*.dim $*.m4 | $(DPIC) -g > $*.tex; latex F$*
+ $(M4) $(M4MACROS) F$*.dim $*.m4 | $(DPIC) -g > $*.tex; latex F$*
+
+
+$(DOC).pdf: Incl.pdf $(DOC).tex
+ -if test "$(DOC)"="examplespgf" ; then make exlinks ; fi
+ -if test -n "$(BOXDIMS)" ; then \
+ for box in $(BOXDIMS) ; do touch F$$box.dim; make $$box.dim ; done; fi
+ make $(FIGS)
+ pdflatex $(DOC)
+
+EXL = exlinks
+$(DOC).ps: $(DOC).dvi
+ dvips -Ppdf $(DOC)
+
+$(DOC).dvi: Incl.eps.gz $(DOC).tex
+ -if test "$(DOC)"="examplespgf" ; then make exlinks ; fi
+ make dims $(FIGS)
+ latex $(DOC)
+
+dims:
+ -if test -n "$(BOXDIMS)" ; then \
+ for box in $(BOXDIMS) ; do touch F$$box.dim; make $$box.dim ; done; fi
+ touch dims
+
+Incl.eps.gz: ../Incl.eps.gz ../Incl.eps.bb
+ cp ../Incl.eps.gz .
+ cp ../Incl.eps.bb .
+
+Incl.pdf: ../Incl.pdf
+ cp ../Incl.pdf .
+
+figs: $(EXL) $(FIGS)
+
+exlinks: Incl.eps.gz
+ @echo ""
+ @echo 'Ignore "cannot create ... exists" warnings.'
+ - at if test ! -f ex11.m4 ; then \
+ ls ../*.m4 | sed -e 's/^/ln -s /' -e '/test.m4/d' -e '/quick.m4/d' | sh;\
+ ls ../../doc/*.m4 ../*.gz | sed -e 's/^/ln -s /' | sh;\
+ fi
+ touch $(EXL)
+
+clobber: clean
+ rm -f $(DOC).ps test.m4 *.pdf
+
+tstpgf.ps: tst
+tst: test.m4
+ touch tstpgf.dim
+ $(M4) pgf.m4 tstpgf.dim test.m4 \
+ > test.pic
+ $(DPIC) -g test.pic > test.tex
+ latex tstpgf
+ $(M4) pgf.m4 tstpgf.dim test.m4 \
+ > test.pic
+ $(DPIC) -g test.pic > test.tex
+ latex tstpgf
+ dvips tstpgf
+
+tst.pdf: test.m4
+ touch tstpgf.dim
+ $(M4) pgf.m4 tstpgf.dim test.m4 \
+ > test.pic
+ $(DPIC) -g test.pic > test.tex
+ pdflatex tstpgf
+ $(M4) pgf.m4 tstpgf.dim test.m4 \
+ > test.pic
+ $(DPIC) -g test.pic > test.tex
+ pdflatex tstpgf
+
+test.tex: test.m4
+ touch tstpgf.dim
+ $(M4) pgf.m4 tstpgf.dim test.m4 > test.pic
+ $(DPIC) -g test.pic > test.tex
+
+clean:
+ rm -f stamp-* $(FIGS) *.dvi *.bb *.gz tstpgf.ps tstpgf.pdf
+ rm -f *.out *.pfg Incl.* *.pic
+ -if /usr/bin/test -f exlinks ; then \
+ ls -l *.m4 | grep '\->' | \
+ sed -e 's/^.* \([^ ][^ ]*\) ->.*$$/rm -f \1/' | sh; fi
+ rm -f *.log *.ps *.aux *.mp *.[0-9] *.[0-9][0-9] *.mpx *.eps *.dim
+ rm -f core log mpxerr* *links figs.* *.dim dims Ftest.* setdim.tex
+ rm -f man[0-9]*.pic man[0-9]*.m4 figs.m4 test.1 test.mp test.pic test.tex
+ -if test -n "$(BOXDIMS)" ; then for box in $(BOXDIMS) ; do \
+ rm -f F$$box.tex $$box.tex ; done; fi
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/Makefile
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/README-pgf
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/README-pgf (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/README-pgf 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,9 @@
+
+To test a single diagram, copy it into test.m4
+and type 'make tst'. The file is processed through
+m4 and dpic -g to make test.tex which is then
+included by tstpgf.tex.
+
+To produce examplespgf.pdf using tikz-pgf and pdflatex, type "make"
+To produce examplespgf.ps using tikz-pgf, latex, and dvips,
+ type "make examplespgf.ps".
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/README-pgf
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/examplespgf.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/examplespgf.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/examplespgf.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,28 @@
+% pgf examples.tex
+
+\documentclass[11pt]{article}
+\usepackage{times,boxdims,tikz}
+\usepackage[amssymb,Gray,thinqspace,textstyle]{SIunits}
+\usepackage{rotating}
+
+\input ../header
+
+\global\pgftrue
+\addtolength{\textheight}{6ex}
+
+\begin{document}
+ \hfill
+ {\large\bf Examples:
+ \input{../../doc/Version.tex}
+ }
+ \hfill\break
+
+ In this directory the source files are processed with m4, dpic -g,
+ and TikZ PGF.
+ This is a collection of diagrams the author has had occasion to
+ produce using m4 circuit macros and others, and gpic or dpic. The
+ source-file names are shown for reference. There may be other or
+ better m4 or pic constructs for producing the same drawings in some
+ cases.
+
+\input ../files.tex
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/examplespgf.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/pgf/tstpgf.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/tstpgf.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/tstpgf.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,9 @@
+\documentclass{article}
+\usepackage{times,boxdims,tikz}
+\usepackage{rotating}
+\pagestyle{empty}
+\begin{document}
+\thispagestyle{empty}
+%\centerline{\input test.tex}
+\centerline{\boxdims{tpgf}{\input{test.tex}}}
+\end{document}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pgf/tstpgf.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/psfrag/Makefile
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/Makefile (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/Makefile 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,147 @@
+# Makefile for the psfrag subdirectory
+
+# Where the .m4 libraries are installed. Change if necessary:
+LIBDIR = $$HOME/lib
+
+#---------------------------------------------
+
+MKDIM=pwd | sed -e 's%^%=boxdimfile{%' -e 's%/cygdrive/\(.\)/%\1:/%' \
+ -e 's%$$%/$(DIMFILE)}%'
+
+# Comment out the following line to produce absolute addresses for .dim files.
+MKDIM=printf '=boxdimfile{$(DIMFILE)}\n'
+
+#---------------------------------------------
+
+# The .m4 circuit_macro libraries used for the examples:
+M4MACROS = psfrag.m4
+M4 = m4
+
+#---------------------------------------------
+DOC = examplespsfrag
+
+FIGS = Adder.eps Alogix.eps ABlogix.eps Antennas.eps Audio.eps AmpTable.eps \
+ Bip.eps Btree.eps Byte.eps Buttons.eps \
+ CanLogic.eps CctTable.eps Conn.eps Counting.eps Crossbar.eps Crow.eps \
+ Decoder.eps Demultiplexer.eps Diodes.eps Drive.eps \
+ Csource.eps \
+ Emarrows.eps Flow.eps Fuses.eps \
+ Grounds.eps Headers.eps Heathkit.eps Jack.eps \
+ I2L.eps Inclpdf.eps \
+ Logic.eps Loglog.eps MC.eps Mixer.eps MotorControl.eps Multiplexer.eps \
+ NLG.eps NPDT.eps Nport.eps \
+ Opamp.eps Optoiso.eps Pconn.eps PushPull.eps Quantum.eps \
+ Rectifiers.eps Relay.eps Rotbox.eps \
+ Schottky.eps Sierpinski.eps ShiftR.eps Sixpole.eps Sources.eps SQUID.eps \
+ Switches.eps \
+ Tgate.eps Three.eps Timer.eps TTLnand.eps Ttree.eps \
+ Windings.eps Variable.eps Xform.eps \
+ control.eps csc.eps diamond.eps \
+ ex00.eps ex01.eps ex02.eps ex03.eps ex04.eps \
+ ex05.eps ex06.eps ex08.eps ex09.eps ex10.eps ex11.eps ex12.eps \
+ ex15.eps ex16.eps ex17.eps ex18.eps ex21.eps exp.eps \
+ fet.eps graysurf.eps lcct.eps pwrsupply.eps quick.eps \
+ recycle.eps rose.eps sfg.eps shapes.eps thyristor.eps ujt.eps worm.eps \
+ XOR.eps
+
+LOCALFIGS = ex21
+
+# Files using boxdims macros:
+BOXDIMS = ex09 Crow Inclpdf Loglog TTLnand Opamp Ttree Windings
+
+# It is advisable to do `make clean' between test examples.
+#---------------------------------------------
+
+DPIC = dpic
+# DPIC = $$HOME/dpic/test/dpic
+
+TR = | tr '=' '\134'
+
+LATEX = latex
+
+DIMFILE = tmp.dim
+
+.SUFFIXES: .tex .m4 .eps .ps
+.tex.ps:
+ $(LATEX) $*
+ dvips -Ppdf $*
+
+.m4.eps:
+ touch $(DIMFILE)
+ $(M4) $(M4MACROS) $(DIMFILE) $*.m4 > $*.pic
+ $(DPIC) -f $*.pic > $*.eps
+# $(M4) $(M4MACROS) $(DIMFILE) $*.m4 | $(DPIC) -f >> $*.eps
+
+$(DOC).ps: $(DOC).dvi
+ dvips -Ppdf $(DOC)
+
+$(DOC).dvi: $(DOC).tex
+ -if test "$(DOC)"="examplespsfrag" ; then make exlinks ;\
+ $(MKDIM) $(TR) > setdim.tex; fi
+ make $(FIGS) Incl.eps
+ $(LATEX) $(DOC)
+ -if test -n "$(BOXDIMS)" ; then \
+ for box in $(BOXDIMS) ; do rm -f $$box.eps; make $$box.eps ; done; \
+ $(LATEX) $(DOC); fi
+ -if test -n "$(BOXDIMS)" ; then \
+ for box in $(BOXDIMS) ; do rm -f $$box.eps; make $$box.eps ; done; \
+ $(LATEX) $(DOC); fi
+
+Incl.eps: ../Incl.eps.gz
+ rm -f Incl.eps.gz
+ cp ../Incl.eps.gz .
+ gunzip Incl.eps.gz
+
+figs: exlinks $(FIGS)
+
+exlinks:
+ @echo ""
+ @echo 'Ignore "cannot create ... exists" warnings.'
+ - at if test ! -f ex11.m4 ; then \
+ ls ../*.m4 | sed -e 's/^/ln -s /' -e '/test.m4/d' | sh;\
+ ls ../../doc/*.m4 ../*.bb ../*.gz | sed -e 's/^/ln -s /' | sh;\
+ fi
+ touch exlinks
+# for file in $(LOCALFIGS); do cp $${file}PSF.m4 $${file}.m4 ; done
+
+clobber: clean
+ rm -f $(DOC).ps test.m4
+
+tst: tstpsfrag.ps
+
+tstpsfrag.ps: tstpsfrag.dvi
+ dvips tstpsfrag
+
+tstpsfrag.dvi: test.eps
+ latex tstpsfrag
+
+test.eps: test.pic
+ $(DPIC) -f test.pic > test.eps
+
+test.pic: test.m4 testlinks
+ $(M4) $(M4MACROS) test.m4 > test.pic
+ $(DPIC) -f test.pic > test.eps
+ latex tstpsfrag
+ touch tstpsfrag.dim
+ $(M4) $(M4MACROS) tstpsfrag.dim test.m4 > test.pic
+
+testlinks:
+ for file in ics.m4 FlowchartDefs.m4 ; do ln -s ../$$file ; done
+ touch testlinks
+
+clean:
+ @printf "\n psfrag clean:\n"
+ rm -f stamp-* $(FIGS) *.dvi *.bb *.gz tstpsfrag.ps *.out *.pfg Incl.eps
+ -if /usr/bin/test -f exlinks ; then \
+ ls -l *.m4 | grep '\->' | \
+ sed -e 's/^.* \([^ ][^ ]*\) ->.*$$/rm -f \1/' | sh; rm -f exlinks ; fi
+ -if /usr/bin/test -f testlinks ; then \
+ ls -l *.m4 | grep '\->' | \
+ sed -e 's/^.* \([^ ][^ ]*\) ->.*$$/rm -f \1/' | sh; rm -f testlinks ; fi
+ for file in $(LOCALFIGS); do rm -f $${file}.m4 ; done
+ rm -f *.log *.ps *.aux *.mp *.[0-9] *.[0-9][0-9] *.mpx *.eps *.dim *.pic
+ rm -f core log mpxerr* *links figs.* *.dim dims F_test.* setdim.tex
+ rm -f man[0-9]*.pic man[0-9]*.m4 figs.m4 test.1 test.mp test.pic test.tex
+ -if test -n "$(BOXDIMS)" ; then for box in $(BOXDIMS) ; do \
+ rm -f F_$$box.tex $$box.tex ; done; fi
+ @printf "\n"
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/Makefile
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/README-psfrag.txt
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/README-psfrag.txt (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/README-psfrag.txt 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,7 @@
+
+To test out a single diagram, copy it into test.m4 and type 'make tst'.
+The file is processed through m4 and dpic -f to make test.eps containing
+psfrag embedded labels. This file is read by tstpsfrag.tex using the
+\includegraphics command.
+
+Note that the configuration file to be read initially by m4 is psfrag.m4.
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/README-psfrag.txt
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/examplespsfrag.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/examplespsfrag.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/examplespsfrag.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,30 @@
+% psfrag examples.tex
+
+\documentclass[11pt]{article}
+\usepackage{times,boxdims}
+\usepackage[amssymb,Gray,thinqspace,textstyle]{SIunits}
+\usepackage{rotating}
+\usepackage{graphicx}
+\usepackage[scanall]{psfrag}
+\newcommand\scriptstack[2][c]{\hbox{\scriptsize\shortstack[#1]{#2}}}%
+\def\?{$\,$}
+
+\input{setdim.tex}
+
+\input ../header
+
+\global\postscripttrue
+\begin{document}
+ \hfill
+ {\large\bf Examples:
+ \input{../../doc/Version.tex}
+ }
+ \hfill\break
+
+ In this directory the source file are processed with m4, dpic -f,
+ and {\tt\char92 usepackage[scanall]\{psfrag\}}.
+ 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.
+
+\input ../files.tex
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/examplespsfrag.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/psfrag/tstpsfrag.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/tstpsfrag.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/tstpsfrag.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,14 @@
+\documentclass[dvips]{article}
+\usepackage{times,boxdims,graphicx}
+\usepackage[amssymb,Gray,thinqspace,textstyle]{SIunits}
+\usepackage[scanall]{psfrag}
+\addtolength{\textwidth}{2cm}
+\addtolength{\textheight}{3cm}
+\setlength{\oddsidemargin}{0pt}
+\setlength{\evensidemargin}{0pt}
+\setlength{\hoffset}{-0.5in}
+\pagestyle{empty}
+\begin{document}
+\thispagestyle{empty}
+\includegraphics{test.eps}
+\end{document}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/psfrag/tstpsfrag.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/pwrsupply.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pwrsupply.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pwrsupply.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,75 @@
+.PS
+# pwrsupply.m4
+cct_init
+ifdef(`m4pco',`resetrgb')
+
+Singlephase:[
+ linewid = linewid*1.2
+ down_
+ T:transformer
+ line left_ elen_/8 from T.P1
+ rgbdraw(0,0,1,fuse(left_ elen_/3,D))
+ reversed(`switch',left_ elen_*2/3)
+ gap(down_ to (Here,T.P2))
+ { fuse(right_ 2*dimen_/5 at last []) }
+ line to T.P2
+ blen = dimen_/2
+ W: T.TS+(dimen_/2,0)
+ N: W+(blen,blen)
+ S: W+(blen,-blen)
+ E: S+(blen,blen)
+ diode(from W to N)
+ diode(from S to E)
+ G: gap(from E+(dimen_,0) down_ (E.y-S.y)*5/4); llabel(+,,-)
+ C: capacitor(down_ G.start.y-G.end.y from 0.5 between E and G.start,C)
+
+ setrgb(1,0,0)
+ line from T.S1 to (T.S1,N) then to N; dot
+ diode(to E); dot
+ line from E to G.start; dot
+ dot(at C.start)
+ resetrgb
+
+ setrgb(0,1,0)
+ dot(at C.end)
+ dot(at G.end)
+ ground
+ line to (W,Here) then to W; dot
+ diode(to S); dot
+ line to (T.S2,Here) then to T.S2
+ resetrgb
+ ]
+
+Threephase: [
+L:[ loadht = 2*elen_
+ Load: ebox(down_ loadht,0.4,0.25); llabel(+,,-)
+ hsep = dimen_*3/4
+ for_(1,3,1,
+ `line left_ hsep; ifelse(m4x,3,,dot)
+ { diode(up_ loadht/3) ; line up_ loadht/3; diode(up_ loadht/3)
+ T`'m4x: ifelse(m4x,3,Here,dot)
+ line right hsep } ')
+ ]
+
+T:[
+ X1: transformer(down_ dimen_*2/3,,,,4)
+ X2: transformer(down_ dimen_*2/3,,,,4) with .P1 at X1.P2
+ X3: transformer(down_ dimen_*2/3,,,,4) with .P1 at X2.P2
+ line from X1.M4Core1.end to X3.M4Core1.start
+ line from X1.M4Core2.end to X3.M4Core2.start
+ for_(1,3,1,
+ `move to X`'m4x.P2 ; ifelse(m4x,3,,dot)
+ line left_ dimen_
+ P`'m4x: dot(,,1)')
+ line left_ dimen_/2 from X1.P1 then down X1.P1.y-P3.y; dot
+ B: X1.S2+(dimen_/2,0)
+ line from X1.S1 right B.x-X1.S2.x then down X1.S1.y-X3.S1.y then to X3.S1
+ line from X2.S1 to (B,X2.S1); dot
+ ] with .X2.S2 at L.w-(dimen_,0)
+
+ line from T.X1.S2 to (L.T3,T.X1.S2); dot
+ line from T.X2.S2 to (L.T2,T.X2.S2); dot
+ line from T.X3.S2 to (L.T1,T.X3.S2); dot
+] with .sw at Singlephase.se+(0.3,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/pwrsupply.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/random.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/random.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/random.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,101 @@
+.PS
+# random.m4
+gen_init
+NeedDpicTools
+sinclude(tst.dim)
+s_init(random)
+iflatex(`latexcommand({\small)')
+
+################################################################
+# hscale(right length,nlabels,
+# minlabel,maxlabel,[T][N])
+ define(`hscale',`[ define(`hs_nl',`ifelse(`$2',,5,`$2')')
+ A: line `$1' ; Start: A.start; End: A.end
+ td = 1/(hs_nl-1)*A.len/5
+ define(`hs_ud',`ifinstr(`$5',T,down,up)')
+# Major tics
+ for i=1 to hs_nl-2 do { line hs_ud graphsize/20 thick 0.4 \
+ from i/(hs_nl-1) between A.start and A.end }
+# Minor tics
+ for i=0 to hs_nl-2 do { Ts: i/(hs_nl-1) between A.start and A.end
+ for j=1 to 4 do { line thick 0.4 hs_ud graphsize/20/2 from Ts+(j*td,0) } }
+# Labels
+ ifinstr(`$5',N,,`for_(0,eval(hs_nl-1),1,
+ `Ts: m4x/(hs_nl-1) between A.start and A.end
+ s_box("\small %g",`$3'+m4x/(hs_nl-1)*(`$4'-(`$3'))) \
+ at Ts ifelse(`$5',T,above,below)') ')
+ ]')
+# vscale(up length,nlabels,
+# minlabel,maxlabel,[R][N] )
+ define(`vscale',`[ define(`vs_nl',`ifelse(`$2',,5,`$2')')
+ A: line `$1' ; Start: A.start; End: A.end
+ td = 1/(vs_nl-1)*A.len/5
+ define(`vs_lr',`ifinstr(`$5',R,left,right)')
+# Major tics
+ for i=1 to vs_nl-2 do { line vs_lr graphsize/20 thick 0.4 \
+ from i/(vs_nl-1) between A.start and A.end }
+# Minor tics
+ for i=0 to vs_nl-2 do { Ts: i/(vs_nl-1) between A.start and A.end
+ for j=1 to 4 do { line thick 0.4 vs_lr graphsize/20/2 from Ts+(0,j*td) } }
+# Labels
+ ifinstr(`$5',N,,`for_(0,eval(vs_nl-1),1,
+ `Ts: m4x/(vs_nl-1) between A.start and A.end
+ s_box("\small %g",`$3'+m4x/(vs_nl-1)*(`$4'-(`$3'))) \
+ at Ts ifelse(`$5',R,ljust,rjust)')')
+ ]')
+# f_gauss(x,mean,stddev)
+ define f_gauss`{ std_gauss(($1-($2))/($3))/($3) }'
+ define std_gauss`{ expe(-($1)^2/2)/sqrt(twopi_) }'
+################################################################
+
+[
+ n = 2000
+ stddev = 0.25
+ graphsize = 2
+
+ B: box wid graphsize ht graphsize
+# Gemerate n Gaussian random numbers
+ randn(z,n,0,stddev)
+ m = 0
+ for i=1 to n-1 by 2 do { m +=1; x[m] = z[i]; y[m] = z[i+1]
+ dot(at B+(x[m],y[m]))
+ }
+
+ hscale(right B.wid,5,-1,1) with .Start at B.sw
+ hscale(right B.wid,5,-1,1,TN) with .Start at B.nw
+ vscale(up B.ht,5,-1,1) with .Start at B.sw
+ vscale(up B.ht,5,-1,1,RN) with .Start at B.se
+
+ N: box invis wid B.wid ht B.ht with .sw at B.nw+(0,graphsize/10)
+ nb = 20
+ binmax = n/5*0.5
+ dx = N.wid/nb
+ histbins(x,m,-1,1,nb,hbin)
+ for i=0 to nb-1 do { line up hbin[i]/binmax * N.ht \
+ from N.sw+((0.5+i)*dx,0) thick dx/(1bp__) outlined "gray" }
+ box wid N.wid ht N.ht at N
+# vscale(up N.ht,5,0,1) with .Start at N.sw
+
+ E: box invis wid B.wid ht B.ht with .sw at B.se+(graphsize/10,0)
+ nb = 20
+ binmax = n/5*0.5
+ dy = E.ht/nb
+ histbins(y,m,-1,1,nb,vbin)
+ for i=0 to nb-1 do { line right vbin[i]/binmax * E.wid \
+ from E.sw+(0,(0.5+i)*dy) thick dy/(1bp__) outlined "gray" }
+ box wid E.wid ht E.ht at E
+# hscale(right E.wid,5,0,1) with .Start at E.sw
+
+ng = 16
+for i=0 to ng do { x = i/ng*N.wid
+ U: x,(f_gauss(x,N.wid/2,stddev)*m*dx)/binmax*N.ht
+ X[i]: N.sw+U
+ Y[i]: E.nw+(U.y,-U.x) }
+ fitcurve(X,ng)
+ fitcurve(Y,ng)
+
+]
+#showbox_
+
+iflatex(`latexcommand(})')
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/random.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/recycle.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/recycle.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/recycle.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,128 @@
+.PS
+# recycle.m4
+gen_init
+NeedDpicTools
+[
+# Gradient fill and clipping are simply
+# done with PStricks or Tikz but the other
+# postprocessors don't all have this
+# facility so the following calculates
+# shading boundaries and lines.
+
+define ShadePoint { testexpr(i, $1<f1, $1<f2, $1<f3 )
+ Px: $1 between P0 and Pz
+ S: move from Px to Px+Up
+ case(i+1,
+ M4L: LCintersect(S,T1,stripwd/2)
+ M4R: ($1-f2)/(1-f2) between P9 and P8
+ ,
+ M4L: $1/f1 between P0 and P4
+ M4R: $1/f1 between P0 and P3
+ ,
+ M4L: Intersect_(S,M57)
+ M4R: LCintersect(S,P1,stripwd/2)
+ ,
+ M4L: Intersect_(S,M57)
+ M4R: ($1-f2)/(1-f2) between P9 and P8
+ )
+ line outlined rgbstring($2,$3,$4) from M4L to M4R
+ }
+
+define ShadeTail { testexpr(i, $1<g1, $1<g2, $1<g3 )
+ Px: $1 between T4 and Qz
+ S: move from Px to Px+AcrossTail
+ case(i+1,
+ M4L: LCintersect(S,T1,stripwd/2,R)
+ M4R: LCintersect(S,T1,stripwd/2)
+ ,
+ M4L: $1/g1 between T5 and T6
+ M4R: $1/g1 between T3 and T2
+ ,
+ M4L: LCintersect(S,T1,stripwd/2,R)
+ M4R: $1/g2 between T3 and P6
+ ,
+ M4L: LCintersect(S,T1,stripwd/2,R)
+ M4R: ($1-g2)/(g3-g2) between P6 and P7
+ )
+ line outlined rgbstring($2,$3,$4) from M4L to M4R
+ }
+
+# `recycle(width)'
+define(`recycle',`[ Origin: Here
+ space = 2*linethick pt__
+ stripwd = ($1-space)/3.765544
+ for angle=0 to 240 by 120 do {
+ Right: (dprot(angle*dtor_,stripwd,0))
+ Up: (dprot(angle*dtor_,0,stripwd/2))
+ P0: Here+Right*space/stripwd
+ Axis: move from P0 to P0+Right*3/4; P1: Here
+ P2: P1-Up
+ P3: 1.5 between P1 and P2
+ P4: P1 + (P1-P3)
+ P5: P1 + Up
+ P6: P5+Right/sqrt(3)/2
+ P7: P6+(P6-P5)
+ T1: 2 between P1 and P6
+ P8: T1+(dprot((angle-30)*dtor_,stripwd/2,0))
+ P9: P1+(P8-T1)
+ T2: T1+(dprot((angle+210)*dtor_,stripwd/2,0))
+ AcrossTail: T1-T2
+ T3: P6+(dprot((angle+120)*dtor_,stripwd,0))
+ T4: T3+AcrossTail
+ T5: 2 between T3 and T4
+ T6: 2 between T2 and T1
+ V: move from P8 to P8-Up; Pz: Intersect_(Axis,V)
+ t = distance(P0,Pz)
+ f1 = distance(P1,P0) / t
+ V: move from P9 to P9+Up; R: Intersect_(Axis,V); f2 = distance(P0,R) / t
+ V: move from P7 to P7-Up; R: Intersect_(Axis,V); f3 = distance(P0,R) / t
+ n = int(t/lthick*1.5)
+ M57: move from P5 to P7
+ ShadeObject( ShadePoint,n,
+ 0,1,1,1,
+ 1,0.5,0.5,0.5) with .Origin at Origin
+ point
+ J: move from T4 to T1; Qz: LCintersect(J,T1,stripwd/2,R)
+ u=distance(T4,Qz)
+ g1 = distance(T1,T4) / u
+ g2 = stripwd / u
+ V: move from P7 to P7+AcrossTail; R: Intersect_(V,J)
+ g3 = distance(R,T4) / u
+ m = int(u/lthick*1.5)
+ ShadeObject(ShadeTail,m,
+ 0,1,1,1,
+ 1,0.5,0.5,0.5) with .Origin at Origin
+ tail
+# { for i=0 to 9 do { exec sprintf("{\"P%g\" at P%g}",i,i) } }
+# { for i=1 to 6 do { exec sprintf("{\"T%g\" at T%g}",i,i) } }
+ move to T4
+ }
+ ]')
+define(`tail',`line from P7 to P6 then to T3 then to T5 then to T6
+ arc cw to P7 with .c at T1')
+
+define(`point',`line from P2 to P3 then to P0 then to P4 then to P5 then to P7
+ arc ccw to P8 with .c at T1
+ line to P9
+ arc cw to P2 with .c at P1')
+
+recycle(2)
+]
+[
+# yinyang.m4
+ifdpic(`
+circlerad = 0.5
+shade(0,
+A: arc ccw rad circlerad*2 to Here+(4*circlerad,0)
+ )
+B: circle colored "white" with .c at 1/4<A.w,A.e>
+ arc cw rad circlerad from B.e to B.w with .c at B.c
+ circle colored "black" with .c at 3/4<A.w,A.e>
+ circle rad circlerad*2 with .c at A.c
+ circle rad circlerad/3 fill_(0) at 0.5<A.w,A.c>
+ circle rad circlerad/3 fill_(1) at 0.5<A.c,A.e>
+',`
+box wid 1 ht 0.75 "Yinyang.m4" "requires" "dpic"
+')
+] with .w at last [].e+(0.2,0)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/recycle.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/rose.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/rose.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/rose.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,130 @@
+.PS
+# rose.m4
+gen_init
+ifelse(rgbstring(1,1,1),"",
+`This diagram is for PSTricks, postscript, PDF, MetaPost, or SVG',
+`
+
+scale = 1.2
+define(`gold_',`1,0.84,0')
+
+define(`rose',`point_(`$2'); CC: (vec_(`$1',0)); rrad = `$3'
+ move to CC
+ tmp = rrad-stripwid
+ {circle shaded rgbstring(gold_) rad rrad-sthick at CC}
+ {circle shaded rgbstring(gold_) rad tmp-sthick at CC}
+ {line to rvec_(rrad,0) chop tmp chop 0 }
+ {line to rvec_(-rrad,0) chop tmp chop 0 }
+ {line to rvec_(0,rrad) chop tmp chop 0 }
+ {line to rvec_(0,-rrad) chop tmp chop 0 }
+ {line from rvec_(-tmp/sqrt(2),-tmp/sqrt(2)) to rvec_(tmp/sqrt(2),tmp/sqrt(2))}
+ {line from rvec_(-tmp/sqrt(2),tmp/sqrt(2)) to rvec_(tmp/sqrt(2),-tmp/sqrt(2))}
+ {circle shaded rgbstring(gold_) rad tmp-stripwid-sthick at CC}
+ tmp = last circle.rad/sqrt(2)
+ line thick stripthick from rvec_(-tmp,0) to rvec_(0,-tmp) \
+ then to rvec_(tmp,0) then to rvec_(0,tmp) then to rvec_(-tmp,0) \
+ shaded rgbstring(gold_)
+ ')
+
+define(`spt_',`/72.27')
+
+[ lsk = 1.2
+ sector = 360*dtor_/16
+ exterior = 2.49
+ outer_circle = exterior-0.55
+ inner_circle = 1.1
+ spoke_tail = 0.41
+ spokethick = 0.09/(1spt_) # points
+ stripwid = 0.05
+ stripthick = 1.6/1.2
+ midroserad = inner_circle*sin(sector/2)-stripwid/2
+ outerroserad = outer_circle*sin(sector/4)-stripwid/2
+ del = 0.05
+
+C: (0,0)
+ circle rad exterior fill_(0) at C
+ circle shaded rgbstring(gold_) rad outer_circle at C
+ circle rad spoke_tail fill_(0) at C
+ linethick = stripthick
+ sthick = linethick/2 spt_
+ for i=0 to 15 do {
+ move to rect_(spoke_tail+1.5*stripwid,sector*i);
+ for j=-1 to 1 by 2 do {
+ {point_(sector*(i+j*0.5))
+ line to rvec_(outer_circle-spoke_tail,0) }
+ { point_(sector*i)
+ move to rvec_(0,j*spokethick spt_)
+ line to rvec_(outer_circle-spoke_tail,0) \
+ chop outer_circle-inner_circle chop 0
+ }
+ }
+ crad = 0.25 +1.5*stripwid
+ cthick = 1.5*stripwid/(1spt_)
+ X: rect_(inner_circle+midroserad,sector*i)
+ circle outlined rgbstring(gold_) rad crad-(cthick/2 spt_) thick cthick at X
+ circle rad crad - sthick at X
+ }
+ for i=0 to 15 do {
+ X: rect_(inner_circle+midroserad,sector*i)
+ circle fill_(0) rad crad-1.5*stripwid-sthick at X
+
+ for j = -1 to 1 by 2 do { move to X+vec_(0.20,j*0.14)
+ point_(sector*(i+j*0.25))
+ line to rvec_(1.5*stripwid,0) }
+
+ circle shaded rgbstring(gold_) rad midroserad*2/3-sthick at X
+ circle rad midroserad*2/3-stripwid-sthick at X
+ line from X to -(midroserad*2/3/(inner_circle+midroserad))<X,C>
+ }
+
+ crad = spoke_tail+7*stripwid
+ cthick = 2*stripwid/(1spt_)
+ circle outlined rgbstring(gold_) rad crad-cthick/2 spt_ thick cthick at C
+ circle rad spoke_tail+1.5*stripwid-sthick at C
+ for i=5 to 7 do { circle rad spoke_tail+i*stripwid-sthick at C }
+ # Spokes and roses
+ for i=0 to 15 do {
+ rose(inner_circle,sector*i,midroserad)
+ line thick spokethick/lsk from C to rect_(outer_circle,sector*(i-0.5))
+ line thick spokethick/lsk from C to rect_(outer_circle,sector*i) \
+ chop inner_circle+midroserad*2 chop 0
+ for j=-1 to 1 by 2 do {
+ X: rect_(outer_circle+outerroserad-linethick spt_,sector*(i+j*0.25))
+ linethick = 1/lsk
+ circle colored rgbstring(gold_) rad outerroserad*1/2-1/lsk/2 spt_ at X
+ linethick = stripthick
+ circle fill_(0) rad outerroserad*1/3-sthick at X
+ point_(sector*(i+j*0.25))
+ line from X to X + vec_(outerroserad,0)
+ rose(outer_circle,sector*(i+j*0.25),outerroserad)
+ }
+ }
+ # Outer decorations
+ for i=0 to 31 do {
+ move to rect_(exterior-0.25,sector*i/2); point_(sector*i/2)
+ { line thick stripthick from rvec_(del,3.5*del) to rvec_(-del,0) \
+ then to rvec_(del,-3.5*del) then to rvec_(del,3.5*del) \
+ shaded rgbstring(gold_) }
+ circle rad stripwid-sthick at Here
+ }
+ smrad = 0.08
+ for i=0 to 7 do {
+ point_(sector*2*i)
+ move to C + vec_(midroserad+smrad/4,0)
+ { circle shaded rgbstring(gold_) rad smrad-sthick at Here}
+ { circle shaded rgbstring(gold_) rad smrad/2-sthick at Here}
+ line from rvec_(smrad/2,0) to rvec_(smrad,0)
+ }
+
+ tmp = midroserad-stripwid
+ circle shaded rgbstring(gold_) rad midroserad-sthick at C
+ circle shaded rgbstring(gold_) rad tmp-sthick at C
+ CQ: circle invis rad tmp-linethick*4/2 spt_ at C
+ line from CQ.e to CQ.n to CQ.w to CQ.s to CQ.e to CQ.n
+ CQ: 0.5<CQ.e,CQ.n>
+ tmp = (distance(CQ,C) - linethick*3/2 spt_)*sqrt(2)
+ box wid tmp ht tmp at C
+ ] with .sw at 1,1
+
+')
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/rose.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/rotate.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/rotate.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/rotate.tex 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,9 @@
+\documentclass[11pt]{article}\usepackage{pstricks,boxdims,pst-grad}
+
+\pagestyle{empty}
+\thispagestyle{empty}
+\begin{document}
+ {\vspace{2ex}\input{rotatetext.tex}
+% {\vspace{2ex}\input{rotellipse.tex}
+ }
+\end{document}
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/rotate.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/rotatetext.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/rotatetext.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/rotatetext.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,50 @@
+.PS
+# rotatetext.m4
+# This is a test of the \rput function to write a string around the
+# periphery of a circle of radius r, accounting for inter-letter kerns
+{\Huge
+gen_init
+twopi = twopi_
+rtod = rtod_
+
+define(`outputstring',`University of Waterloo')
+r = 0.75
+divert(-1)
+
+sinclude(rotate.dim) # Letter and letter-pair width definitions
+sinclude(tst.dim)
+define(`arctot',0) # Total arc used by the string
+sinclude(rotatetext.dim)
+
+define(`cname',`ifelse(`$1',` ',,`$1')')
+
+define(`cprint',`ifelse(len(`$3'),0,,
+ `define(`cc',`substr(`$3',0,1)')dnl
+ dt = atan2(boxdim(cname(cc),w)/2,`$2')
+ te = te + ifdef(`kern',`atan2(kern/2,`$2')',0) + dt
+
+# The kernel of the print mechanism. All else is to calculate angles
+ sprintf("\rput[B]{%8.3f}(0,0){\boxdims{cname(cc)}{cc}}",(arctot/2-te)*rtod) \
+ with .bottom at `$1'+(rect_(`$2',arctot/2-te+twopi/4))
+
+ define(`kern',0) ifelse(len(`$3'),1,,cc,` ',,substr(`$3',1,1),` ',,
+ `define(`kern',`(boxdim(substr(`$3',0,2),w)-boxdim(
+ cname(substr(`$3',0,1)),w)-boxdim(cname(substr(`$3',1,1)),w))')dnl
+ \defboxdim{substr(`$3',0,2)}{substr(`$3',0,2)}')
+if abs(kern/(1 pt__))>0.05 then {
+ print sprintf("k`'ern(substr(`$3',0,2))=%5.2gpt",kern/(1 pt__)) }
+ te = te + dt + atan2(kern/2,`$2')
+ cprint(`$1',`$2',substr(`$3',1))')')
+divert
+
+print sprintf("`arctot'=%g",arctot)
+
+C: circle rad r
+te = 0
+cprint(C,r,outputstring)
+
+# Write the total angle to rotatetext.dim
+sh sprintf("echo \"`define'(`\`arctot'',%f)\" > rotatetext.dim",te)
+
+}
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/rotatetext.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/rotellipse.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/rotellipse.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/rotellipse.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,20 @@
+.PS
+# `rotellipse.m4'
+gen_init
+
+[
+ E: ellipse shaded "red" outlined "blue"
+
+ A: rotellipse(1,1,outlined "red" shaded "blue") with .w at E.e
+ Point_(45)
+ B: rotellipse(,,dotted fill_(0.9))
+ C: rotellipse(,,colored "red") with .s at last [].n
+ thinlines_
+ showbox_(A)
+ showbox_(B)
+ showbox_(C)
+ thicklines_
+
+] with .sw at 1,1
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/rotellipse.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/sfg.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/sfg.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/sfg.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,93 @@
+.PS
+# sfg.m4
+sfg_init( 1.2 ) # scale default size by 1.2
+
+ iflatex(`textoffset = 1bp__; ifpsfrag(`textht = 9.5bp__',
+ `latexcommand({\small)') ')
+
+[
+# Graph 1
+T:[
+ Ft: sfgnode(,f(t),sfgbelow)
+ sfgline(,1/K)
+ Y1: sfgnode(,y_1,sfgbelow rjust)
+ sfgline(,K/M)
+ DDY2: sfgnode(,\ddot{y}_2,sfgbelow rjust)
+ sfgline(,s^{-1})
+ DY2: sfgnode(,`\dot{y}_2=x_2',sfgbelow ljust)
+ sfgline(,s^{-1})
+ Y2: sfgnode(,y_2=x_1,sfgbelow ljust)
+
+ sf = 1
+ sfgarc(from DY2 to DDY2,-B/M,below,,sf)
+ sfgarc(from Y2 to DDY2,-K/M,above,ccw,sf)
+ sfgarc(from Y2 to Y1,1,sfgabove,,sf)
+ ]
+
+# Graph 2
+B: [
+ R1: sfgnode(,r_1,sfgabove)
+ sfgline(,1)
+ X1: sfgnode(,\;x_1,ljust)
+ R2: sfgnode(at R1+(0,-1),r_2,sfgabove)
+ sfgline(,1)
+ X2: sfgnode(,\;x_2,ljust)
+ sfgarc(from X1 to X2,a_{21}\;,rjust,ccw)
+ sfgarc(from X2 to X1,\;a_{12},ljust,ccw)
+
+ sfgself(at X1,,q_{11})
+ sfgself(at X1,R,\;a_{11},ljust,cw,1.5)
+ sfgself(at X2,-90,a_{22},sfgbelow)
+ ] with .w at T.e + (linewid/2,-linewid/4)
+
+# Graph 3
+G3: [#sfg_init( 0.85,0.35/2 ) # change node spacing and increase node size
+ sfg_wid = 0.85
+ sfg_rad = 0.35/2
+ for_(1,4,1,`N`'m4x: sfgnode(,m4x,,fill_(0.9))
+ sfgself(at N`'m4x,-90,P_{m4x},,cw)
+ ifelse(m4x,4,,`sfgline(,G_{m4x},sfgbelow)') ')
+ sfgarc(from N2 to N1,F_2,sfgabove,ccw,)
+ sfgarc(from N3 to N1,F_3,sfgbelow,ccw,1.4)
+] with .nw at T.sw
+
+A: [#sfg_init( 0.75,0.15 )
+ sfg_wid = 0.75
+ sfg_rad = 0.15
+ arrow right linewid*2/3
+ P: sfgnode(,p)
+ sfgself(,90,a,sfgbelow,cw)
+ arrow from P.e "b" below
+ Q: sfgnode(,q)
+ R: sfgnode(at Q+(Q.x-P.x,Q.y-P.y),r) # for gpic
+ sfgarc(from Q to R,c,sfgabove,cw)
+ sfgarc(from R to Q,d,sfgbelow,cw)
+ sfgself(at R,-90,e,sfgabove,cw)
+ arrow right linewid*2/3 from R.e
+ ] with .w at G3.e+(linewid/2,0)
+
+G4: [sfg_init( 2.0,0.25/2 ) # change node spacing and increase node size
+ s1 = 0.9
+ s2 = 1.2
+ N0: sfgnode(,\hbox{\Large 0},,invis)
+ sfgline(right_ sfg_wid,\nu,below,->)
+ N1: sfgnode(,\hbox{\Large 1},,invis)
+ { sfgarc(to N0 ->,(1{-}p)\gamma{+}\nu,above,ccw,s1) }
+ sfgline(right_ sfg_wid,\nu+\lambda,below,->)
+ N2: sfgnode(,\hbox{\Large 2},,invis)
+ { sfgarc(to N1 ->,{{2}\choose{1}}p(1{-}p)\gamma{+}2\nu,above,ccw,s1) }
+ { sfgarc(to N0 ->,(1{-}p)^2\gamma,above,ccw,s2) }
+ sfgline(right_ sfg_wid,\nu+2\lambda,below,->)
+ N3: sfgnode(,\hbox{\Large 3},,invis)
+ { sfgarc(to N2 ->,{{3}\choose{2}}p^2(1{-}p)\gamma{+}3\nu,above,ccw,s1) }
+ { sfgarc(to N1 ->,{{3}\choose{1}}p(1{-}p)^2\gamma,above,ccw,1.2) }
+ { sfgarc(to N0 ->,(1{-}p)^3\gamma,above,ccw,s2) }
+ sfgline(right_ sfg_wid/2,\nu+3\lambda,below,->)
+ {"$\ldots$" wid 0.3 ljust}
+ ] with .nw at G3.sw+(0,-0.15)
+ move from (T.w,G4.s)-(7bp__,6bp__) to B.ne+(15bp__,6bp__)
+]
+#showbox_
+
+ iflatex(ifpsfrag(,`latexcommand(})'))
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/sfg.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/shapes.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/shapes.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/shapes.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,202 @@
+.PS
+# shapes.m4
+threeD_init
+
+divert(-1)
+# shapes.m4
+# 3D structures with complex surfaces and hidden lines are the domain of more
+# sophisticated software packages, but basic shapes can be drawn with pic.
+#threeD_init
+
+#####################################################
+
+ `cylinder3D(xdispl,ydispl,zdispl,diameter,
+ [colored "color"])'
+define(`cylinder3D',`[ Start: (0,0)
+ xdispl = `$1'; ydispl = `$2'; zdispl = `$3'
+ diamc = ifelse(`$4',,(lenc/2),`$4') ; radc = diamc/2
+ define(`M4CL',`xdispl,ydispl,zdispl')dnl
+ lenc = length3D(M4CL)
+ cs = dot3D(View3D,M4CL)/lenc
+ 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
+ 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))
+ ql = sqrta(dot3D(Light3D,M4PP)/radc)
+ line from P to End+P outlined rgbstring(ql,ql,ql) `$5' } }
+ Perp: (vperp(CL,radc))
+ if cs > 0 then { T: End; B: Start } else { T: Start; B: End }
+ rpoint_(from Start to Perp)
+ css = sqrta(cs)
+ Top: rotellipse(diamc,diamc*cs,
+ thick linethick/3 shaded rgbstring(css,css,css)) with .c at T
+ W: line thick linethick/3 from T+Perp to B+Perp
+ Bot: ellipsearc(diamc,diamc*cs,pi_,twopi_,rp_ang,cw,
+ thick linethick/3) with .C at B
+ E: line thick linethick/3 from B-Perp to T-Perp
+ rpoint_(from Start to End)
+`$6']')
+
+ `cone3D(xdispl,ydispl,zdispl,diameter,
+ [colored "color"])'
+define(`cone3D',`[ Start: (0,0)
+ xdispl = `$1'; ydispl = `$2'; zdispl = `$3'
+ define(`M4CL',`xdispl,ydispl,zdispl')dnl
+ lenc = length3D(M4CL)
+ diamc = ifelse(`$4',,(lenc/2),`$4') ; radc = diamc/2
+ End: (project(M4CL))
+ cs = dot3D(View3D,M4CL)/lenc
+ az = atan2(ydispl,xdispl)
+ ae = atan2(zdispl,sqrt(xdispl^2+ydispl^2))
+ CL: line invis from Start to End; C: CL.c
+ nls = int(twopi_*radc/lthick)
+ lt = sqrt(radc^2+lenc^2)
+ b = 0
+ for i=0 to nls-1 do { if dot3D(View3D,
+ 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)))))
+ 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 } } }
+ if vlength(CL.x,CL.y) != 0 then { Perp: (vperp(CL,radc,R)) } else { Perp: (radc,0) }
+ if cs >= 0 then { T: End; B: Start } else {T: Start; B: End }
+ rpoint_(from Start to Perp)
+ pout = (vlength(End.x,End.y) > abs(radc*cs))
+ if cs < 0 then { css = sqrta(cs)
+ if pout then { line thick linethick/3 from BW to End then to WB }
+ Bot: rotellipse(diamc,diamc*cs,thick linethick/3 \
+ ifelse(`$5',,`shaded rgbstring(css,css,css)',`$5')) with .c at T } \
+ else { if pout then {
+ line thick linethick/3 from BW to End then to WB
+ a = acos((WB.x*Perp.x+WB.y*Perp.y)/radc^2)
+ Bot: ellipsearc(diamc,diamc*cs,a,pi_-a,rp_ang,cw, thick linethick/3) \
+ with .C at B } \
+ else {
+ Bot: rotellipse(diamc,diamc*cs,thick linethick/3) with .c at B } }
+ rpoint_(from Start to End)
+`$6']')
+ `Arrow3D(xdispl,ydispl,zdispl,
+ diam,arrowwid,arrowht)'
+define(`Arrow3D',`[ diam_Ar = ifelse(`$4',,linewid/10,`$4')
+ wid_Ar = ifelse(`$5',,diam_Ar*2,`$5')
+ ht_Ar = ifelse(`$6',,wid_Ar*2,`$6')
+ x_Ar = ifelse(`$1',,1,`$1')
+ y_Ar = ifelse(`$2',,1,`$2')
+ z_Ar = ifelse(`$3',,1,`$3')
+ define(`M4Arrow3D',`x_Ar,y_Ar,z_Ar')dnl
+ len_Ar = length3D(M4Arrow3D)
+ len_Shaft = len_Ar - ht_Ar
+ cs_Ar = dot3D(View3D,M4Arrow3D)
+ if cs_Ar >= 0 then {
+ Shaft: cylinder3D(sprod3D(len_Shaft/len_Ar,M4Arrow3D),diam_Ar)
+ Head: cone3D(sprod3D(ht_Ar/len_Ar,M4Arrow3D),wid_Ar) \
+ with .Start at Shaft.End } \
+ else {
+ Head: cone3D(sprod3D(ht_Ar/len_Ar,M4Arrow3D),wid_Ar)
+ Shaft: cylinder3D(sprod3D(len_Shaft/len_Ar,M4Arrow3D),diam_Ar) \
+ with .End at Head.Start }
+ Start: Shaft.Start; End: Head.End
+ `$7']')
+
+define(`f2xyz3D',``$1'x = `$2'
+`$1'y = `$3'
+`$1'z = `$4' ')
+
+ `prism3D(xdispl,ydispl,zdispl,wid,ht,rotation (rad))'
+define(`prism3D',`[ Start: (0,0)
+ xdispl = ifelse(`$1',,linewid,`$1')
+ ydispl = ifelse(`$2',,linewid,`$2')
+ zdispl = ifelse(`$3',,linewid,`$3')
+ 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
+ lenp = length3D(xdispl,ydispl,zdispl)
+ az = atan2(ydispl,xdispl); ae = atan2(zdispl,sqrt(xdispl^2+ydispl^2))
+ wp2 = widp/2; hp2 = htp/2
+# corners
+ f2xyz3D(nwB,rot3Dz(az,rot3Dy(-ae,rot3Dx(rotp, 0,-wp2, hp2))))
+ f2xyz3D(swB,rot3Dz(az,rot3Dy(-ae,rot3Dx(rotp, 0,-wp2,-hp2))))
+ f2xyz3D(seB,rot3Dz(az,rot3Dy(-ae,rot3Dx(rotp, 0, wp2,-hp2))))
+ f2xyz3D(neB,rot3Dz(az,rot3Dy(-ae,rot3Dx(rotp, 0, wp2, hp2))))
+ f2xyz3D(nwF,rot3Dz(az,rot3Dy(-ae,rot3Dx(rotp,lenp,-wp2, hp2))))
+ f2xyz3D(swF,rot3Dz(az,rot3Dy(-ae,rot3Dx(rotp,lenp,-wp2,-hp2))))
+ f2xyz3D(seF,rot3Dz(az,rot3Dy(-ae,rot3Dx(rotp,lenp, wp2,-hp2))))
+ f2xyz3D(neF,rot3Dz(az,rot3Dy(-ae,rot3Dx(rotp,lenp, wp2, hp2))))
+# facets
+ M4Facet3D(neF,nwF,swF,seF)
+ M4Facet3D(neB,seB,swB,nwB)
+ M4Facet3D(neF,seF,seB,neB)
+ M4Facet3D(neF,neB,nwB,nwF)
+ M4Facet3D(seF,swF,swB,seB)
+ M4Facet3D(nwF,nwB,swB,swF)
+`$7']')
+
+define(`M4Facet3D',`
+define(`PFacet',`cross3D(diff3D(`$2'x,`$2'y,`$2'z,`$1'x,`$1'y,`$1'z),
+ 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))
+ 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
+ line to P4; round
+ line to P1; round } ')
+
+#####################################################
+divert(0)dnl
+
+azimuth = 60
+elev = 10
+setview(azimuth,elev)
+[ Orig: (0,0)
+ setlight
+ Arrow3D(1,0,0) with .Start at Orig; move left 12bp__ from last [].End "x"
+ 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))
+]
+ Ball: shadedball(0.5) with .nw at last [].ne+(-0.25,0)
+[
+ setview(45,10)
+ setlight(40,70)
+ n = 9; len = 1.5; thmin = m4azim+pi_/2*0.8; thmax = thmin+twopi_
+ 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 .nw at last [].ne
+[
+ setlight(0,0)
+ movewid = 0.1
+ len = 1.5; ni = 5; nj = 5
+ for i=1 to ni-1 do {
+ {for j = 0 to nj by 2 do {
+ setview(0,i/ni*180-90,j/nj*90)
+ cylinder3D(0,0,len*(j+1)/(nj+1),0.4)
+ if j < nj then {move right} } }
+ if i < ni then {move down 0.85; right_} } #else { move down movewid } }
+] with .nw at 1st [].sw+(0,-0.1)
+[
+ setlight(0,0)
+ len = 1.5; ni = 4; nj = 6
+ for i=1 to ni do {
+ {for j = 0 to nj by 2 do {
+ setview(0,i/ni*180-90,j/nj*90)
+ cone3D(0,0,len*(j+1)/(nj+1),0.4)
+ if i==2 && j==(nj-2) then { move up_ 0.2 right_ -0.4 } \
+ else { if j < nj then {move right_ 0.1}} } }
+ if i < ni then {move down_ 0.75; right_} }
+] with .nw at last [].ne+(0.2,0)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/shapes.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/snake.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/snake.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/snake.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,21 @@
+.PS
+# snake.m4
+gen_init
+scale = 2
+rmax = 0.8
+rmin = 0.2
+fact = 0.75
+wd = 0.15
+[
+shade(0.8,
+ for r = rmax to rmin by *fact do {
+ arc cw rad r to Here+(r+r,0)
+ arc ccw rad r-wd to Here+(2*(r-wd),0) }
+ line right wd
+ for r = r to rmax by *1/fact do {
+ arc cw rad r to Here-(r+r,0)
+ arc ccw rad r-wd to Here-(2*(r-wd),0) }
+ line to (0,0)
+ )
+] with .sw at 2,2
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/snake.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/squiggle.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/squiggle.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/squiggle.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,25 @@
+.PS
+gen_init
+
+divert(-1)
+dnl Should this macro be in libgen.m4 or would that be just adding clutter?
+
+ `squiggle(linespec,
+ amplitude,wavelength,attributes)'
+ `squiggly line (sinusoid), e.g.
+ squiggle(up_ 1 right_ 2,,,outlined "red")'
+define(`squiggle',`rpoint_(ifelse(`$1',,linewid,`$1'))
+ m4dist = lin_leng(last line)
+ m4cycles = int(m4dist/(ifelse(`$3',,0.25*scale,`$3'))+0.5)
+ define(`squiggleampl',`ifelse(`$2',,0.04*scale,`$2')')dnl
+ define(`squigglefreq',`(twopi_*m4cycles/m4dist)')dnl
+ sinusoid(squiggleampl,squigglefreq,-twopi_/4,0,m4dist,`$4') \
+ with .Origin at last line.start
+ move to last line.end')
+divert(0)dnl
+
+squiggle(up_ 1 right_ 2,,,outlined "red")
+squiggle(up 2 right_ 2,0.1,0.15,outlined "red" <-> wid 0.06 ht 0.05)
+squiggle(right_ 1,,,dotted outlined "blue" wid 0.06 ht 0.05)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/squiggle.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/ABlogixSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ABlogixSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ABlogixSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,53 @@
+.PS
+# `ABlogixSVG.m4'
+ log_init(svg_font(sans-serif,10.5bp__))
+ linewid = 0.4
+
+# A more complex expression
+ F: Autologix(And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
+ And(x4,Or(x2,x1,~x0),Xor(x2,~x1)))))
+
+ Loopover_(`v_', `"svg_it(v_)" wid 11bp__ at F.In`'v_ above', x0,x1,x2,x3,x4)
+ "svg_it(Out)" ljust at F.Out
+ "svg_tt(`Autologix(And(Or(x3,x1,~x0),')" \
+ wid 201bp__ with .w at F.sw+(0,-0.25)
+ "svg_tt(`Nor(Or(x3,Not(x2),~x1,x0),And(x4,Or(x2,x1,~x0),')" \
+ wid 343bp__ with .w at last "".w+(65bp__,-16bp__)
+ "svg_tt(`Xor(x2,~x1)))))')" \
+ wid 105bp__ with .w at last "".w+(0,-16bp__)
+# Inputs on the left with vert offset in L_units
+define(`Doff',LV;offset=25)
+ G: Autologix(And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
+ And(x4,Or(x2,x1,~x0),Xor(x2,~x1)))),
+ Doff*L_unit) \
+ with .sw at F.Out+(0.2,-0.7)
+
+ Loopover_(`v_', `"svg_it(v_)" wid 11pt__ at G.In`'v_ rjust ', x0,x1,x2,x3,x4)
+ "svg_it(Out)" wid 22bp__ ljust at G.Out
+ "svg_tt(`...,'Doff*L`'_unit))" at G.s+(0,-10pt__)
+
+# A more complex expression
+define(`Eoff',R)
+ E: Autologix(And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
+ And(x4,Or(x2,x1,~x0),Xor(x2,~x1)))),
+ Eoff) \
+ with .nw at F.sw+(0,-1.5)
+
+ Loopover_(`v_', `"svg_it(v_)" wid 11bp__ at E.In`'v_ above ', x0,x1,x2,x3,x4)
+ "svg_it(Out)" ljust at E.Out
+ "svg_tt(...`,'Eoff))" at E.s+(0,-10pt__)
+
+# Inputs on the left with vert offset in L_units
+define(`Foff',LRV;offset=17)
+ D: Autologix(And(Or(x3,x1,~x0),Nor(Or(x3,Not(x2),~x1,x0),
+ And(x4,Or(x2,x1,~x0),Xor(x2,~x1)))),
+ Foff*L_unit) \
+ with .sw at E.Out1+(0.2,-0.5)
+
+ Loopover_(`v_', `"svg_it(v_)" wid 11pt__ at D.In`'v_ rjust ', x0,x1,x2,x3,x4)
+ "svg_it(Out)" ljust at D.Out
+ "svg_tt(...`,'Foff*L`'_unit))" at D.s+(0,-10pt__)
+
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ABlogixSVG.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/AdderSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AdderSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AdderSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,76 @@
+.PS
+# AdderSVG.m4
+log_init(svg_font(sans-serif,11bp__))
+
+ del = linewid/4
+[ # full adder using gates
+ A: dot; {"A" rjust}; line right
+ Xor1: XOR_gate with .In1 at Here
+ dy = Xor1.In1.y-Xor1.In2.y
+ B: dot(at (A,Xor1.In2)); {"B" rjust}; line to Xor1.In2
+ line from Xor1.Out right 2*del+dy
+ Xor2: XOR_gate with .In1 at Here
+
+ Co: Autologix(Or(And(X1,X2),And(A,B)),N) with .nw at Xor2.sw+(-del,-del/2)
+ line from Co.In1 to (Co.In1,Xor2.In2) then to Xor2.In2
+ dot(at (Xor1.Out+(del,0))); line to (Here,Co.In2) then to Co.In2
+ dot(at (Xor1.In1-(del,0))); line to (Here,Co.In3) then to Co.In3
+ dot(at (Xor1.In2-(del+dy,0))); line to (Here,Co.In4) then to Co.In4
+ line right del from Co.Out1; dot; {"Co" ljust }
+ dot(at (Here,Xor2.Out)); {"S" ljust}; line to Xor2.Out
+ Ci: dot(at (B,(0.5 between Xor2.s and Co.n))); line to (Co.In1,Here); dot
+ "Ci" rjust at Ci
+ ]
+
+[ # truth table
+ griddim = linewid*0.4
+ define(`row',`T: (0,-(`$1')*griddim*0.8)
+ Loopover_(`v',`"v" at T; T: T+(griddim,0)', shift($@))')
+
+ [row(0,A,B,Ci,Co,S)]
+ line thick 2 color "gray" right 4.5*griddim \
+ with .c at last [].c+(0,-griddim/2)
+
+ [row(1,0,0,0,0,0)
+ row(2,0,0,1,0,1)
+ row(3,0,1,0,0,1)
+ row(4,0,1,1,1,0)
+ row(5,1,0,0,0,1)
+ row(6,0,1,1,0,0)
+ row(7,1,1,0,1,0)
+ row(8,1,1,1,1,1) ] with .n at last [].c+(0,-griddim)
+
+ ] with .nw at 1st [].ne+(linewid,0)
+
+[ # cascade of n-bit adders
+define(`smarrow',`arrow arrowht*4/5 wid arrowwid*5/4')
+define(`nbitadder',
+`FlipFlopX(wid 2*linewid fill_(0.9),n-bit adder,
+ :, I:;I:;;;I:;I:, I:, O:;;;O: ) `$3'
+ `"... "' at last [].Chip.n + (0,arrowht)
+ `"... "' at last [].Chip.s - (0,arrowht)
+ ifelse(`$1',,,
+ `"x`'svg_sub($1)" at last [].N6.end above
+ "s`'svg_sub($1)" at last [].S4.end below
+ "y`'svg_sub($1)" at last [].N5.end above')
+ ifelse(`$2',,,
+ `"x`'svg_sub($2)" ljust at 0.5 between last [].N2.end and last [].N1.end above
+ "y`'svg_sub($2)" rjust at 0.5 between last [].N2.end and last [].N1.end above
+ "s`'svg_sub($2)" at last [].S1.end below ')
+ ')
+
+P: nbitadder(0,n-1)
+ {"c`'svg_sub(o)" wid 0.15 at P.E1.end ljust }
+ {"c`'svg_sub(n)" at P.W1.end above }
+Q: nbitadder(n,2n-1, with .E1.end at P.W1.end)
+ smarrow left arrowht from Q.W1.end
+ { "... " at Here+(-10pt__,0) }
+R: nbitadder(,kn-1, with .E1.end at Here-(20bp__,0))
+ smarrow left arrowht from R.W1.end
+ {"c`'svg_sub(kn)" wid 0.22 rjust }
+
+
+ ] with .nw at 1st [].sw+(0,-0.5)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AdderSVG.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/AlogixSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AlogixSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AlogixSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,116 @@
+.PS
+# `AlogixSVG.m4'
+log_init(svg_font(sans-serif,10.5bp__))
+
+# A modest expression in default form
+A: Autologix(
+ Nand(And(Or(A,C),Or(B,~C),Or(~A,B,C)),Ck);
+ Nand(~A,B)@with .n at last [].s+(0,-2bp__))
+ "svg_it(Out1)" at A.Out1 ljust
+ "svg_it(Out2)" at A.Out2 ljust
+ Loopover_(`v_', `"svg_it(v_)" at A.In`'v_ above ', A,B,C,Ck)
+ move left 0.2 from A.w
+ "svg_tt(`Autologix(')" wid 68bp__ with .w at A.sw+(0,-0.15)
+ "svg_tt(`Nand(And(Or(A,C),Or(B,~C),Or(~A,B,C)),Ck);')" \
+ wid 305bp__ with .w at last "".w+(0.2,-0.18)
+ "svg_tt(`Nand(~A,B)@with .n at last [].s+(0,-2bp__))')"\
+ wid 313bp__ with .w at last "".w+(0,-0.18)
+
+# Draw a tree of gates only. The ~ has been
+# replaced by NOT gates.
+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)
+ 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
+
+# Here is how to include an arbitrary circuit
+# that is not one of the standard gates.
+# First, define the circuit with a name ending
+# in _gate. Make sure its inputs are on the left
+# and named In1, In2, ... and the output Out
+# is on the right.
+define(`SR_gate',`[
+ S: NOR_gate
+ R: NOR_gate at S+(0,-L_unit*(AND_ht+4))
+ w = (S.Out.x-R.In1.x)/3
+ v = 2*L_unit
+ line right_ dimen_/2 from S.Out
+ Out: Here
+ TR: R.In1-(v,0)
+ line from S.Out+(v,0) down w*3/2 then left S.Out.x-TR.x+v down w \
+ then to TR then to R.In1
+ TS: S.In2-(v,0);
+ line from R.Out right v then up w*3/2 then left R.Out.x-TS.x+v up w \
+ then to TS then to S.In2
+ In1: S.In1
+ In2: R.In2 ]')
+# Now define the function by which the circuit
+# will be invoked:
+define(`SRff',`_AutoGate(SR,$@)')
+
+# You are done. Here is an example:
+G: [
+ F: Autologix(SRff(And(x,y),Nand(x,y)),LRV)
+
+ "svg_it(x)" at F.Inx rjust
+ "svg_it(y)" at F.Iny rjust
+ "svg_it(Out)" at F.Out ljust
+ ] with .sw at A.n+(0.5,-0.25)
+ "svg_tt(`Autologix(SRff(And(x,y),Nand(x,y)),LRV)')" wid 285pt__ \
+ with .w at last [].sw+(0,-10pt__)
+
+undefine(`extras')
+define(`extras')
+
+ifdef(`extras',`
+ Q1: Autologix(Nor(Nor(A,And(B,C)),Nand(Not(B),D))) \
+ with .nw at A.sw+(0,-61bp__)
+ Loopover_(`x',`"x" wid 7bp__ at last [].In`'x above',A,B,C,D)
+
+ "svg_tt(`Q1: Autologix(Nor(Nor(A,And(B,C)),Nand(Not(B),D)),options)')" \
+ wid 363bp__ with .nw at Q1.sw+(0,-10bp__)
+ "svg_tt(`Loopover_(`x',`\"svg_it(x)\" at last [].In`'x above',A,B,C,D)')" \
+ wid 431bp__ with .nw at last "".sw+(0,-5bp__)
+
+ Q2: Autologix(Nor(Nor(A,And(B,~C)),Nand(Not(B),D)),V) \
+ with .nw at last "".sw+(0,-16bp__)
+ Loopover_(`x',`"x" at last [].In`'x above',A,B,C,D)
+ "V" at last [].se above rjust
+
+ Q3: Autologix(Nor(Nor(A,And(B,C)),Nand(Not(B),D)),R) \
+ with .nw at last [].sw+(0,-0.2)
+ Loopover_(`x',`"x" at last [].In`'x above',A,B,C,D)
+ "R" at last [].se above rjust
+
+ Q4: Autologix(Nor(Nor(A,And(B,C)),Nand(Not(B),D)),RV) \
+ with .nw at last [].sw+(0,-0.2)
+ Loopover_(`x',`"x" at last [].In`'x above',A,B,C,D)
+ "RV" at last [].se above rjust
+
+ Autologix(Nor(Nor(A,And(B,C)),Nand(Not(B),D)),LRV) \
+ with .Out at Q4.Out+(3.5,0)
+ Loopover_(`x',`"x" at last [].In`'x rjust',A,B,C,D)
+ "LRV" at last [].se above rjust
+
+ Autologix(Nor(Nor(A,And(B,C)),Nand(Not(B),D)),LR;offset=-L_unit*1.5) \
+ with .Out at Q3.Out+(3.5,0)
+ Loopover_(`x',`"x" at last [].In`'x rjust',A,B,C,D)
+ "LR" at last [].se above rjust
+
+ Autologix(Nor(Nor(A,And(B,~C)),Nand(Not(B),D)),LV;offset=L_unit*2) \
+ with .Out at Q2.Out+(3.5,0)
+ Loopover_(`x',`"x" at last [].In`'x rjust',A,B,C,D)
+ "LV" at last [].se above rjust
+
+ Autologix(Nor(Nor(A,And(B,C)),Nand(Not(B),D)),L) \
+ with .Out at Q1.Out+(3.5,0)
+ Loopover_(`x',`"x" at last [].In`'x rjust',A,B,C,D)
+ "L" at last [].se above rjust
+')
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AlogixSVG.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/AmpTableSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AmpTableSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AmpTableSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,25 @@
+.PS
+# `Amptable.m4'
+cct_init(svg_font(sans-serif,11bp__))
+
+ textwid = 0.7
+ movewid = 2pt__
+{
+ {amp ; move ; "`amp'" ljust}
+ move down 0.4; right_
+ {amp(,0.3) ; move ; "`amp'(,0.3)" ljust}
+ }
+ move right_ 2.0
+{ {delay ; move ; "`delay'" ljust}
+ move down 0.4; right_
+ {delay(,0.2) ; move ; "`delay'(,0.2)" ljust}
+ }
+
+ move right_ 2.0
+{ {integrator ; move ; "`integrator'" ljust}
+ move down 0.5; right_
+ {integrator(,0.3) ; move ; "`integrator'(,0.3)" wid 1.2 at Here ljust}
+ }
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AmpTableSVG.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/AntennasSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AntennasSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AntennasSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,40 @@
+.PS
+# `Antennas.m4'
+cct_init(svg_font(sans-serif,11bp__))
+ textoffset = 3bp__
+
+ define(`elen_',elen_*0.9)
+ B: Here
+ A: antenna
+ "T" below at A.T
+ "`antenna'" wid 0.6 at A.n above
+ A: antenna(at A.T+(elen_,0),T)
+ "T" below at A.T
+ "`(,T)'" at A.n above
+ A: antenna(at A.T+(elen_,0),,L)
+ "T1" below rjust at A.T1
+ "T2" below ljust at A.T2
+ "`(,,L)'" at A.n above
+ A: antenna(at A.T+(elen_,0),T,L)
+ "T1" below rjust at A.T1
+ "T2" below ljust at A.T2
+ "`(,T,L)'" at A.n above
+ A: antenna(at A.T+(elen_,0),,T)
+ "T" below at A.T
+ "`(,,T)'" at A.n above
+ A: antenna(at A.T+(elen_,0),,S)
+ "T1" below rjust at A.T1
+ "T2" below ljust at A.T2
+ "`(,,S)'" at A.n above
+ A: antenna(at A.T+(elen_,0),,D)
+ "T1" below rjust at A.T1
+ "T2" below ljust at A.T2
+ "`(,,D)'" at A.n above
+ A: antenna(at A.T+(elen_,0),,P)
+ "T" below at A.T
+ "`(,,P)'" at A.n above
+ A: antenna(at A.T+(elen_,0),,F)
+ "T" below at A.T
+ "`(,,F)'" at A.n above
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AntennasSVG.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/AudioSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AudioSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AudioSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,93 @@
+.PS
+# `Audio.m4'
+cct_init(svg_font(sans-serif,11bp__,2bp__))
+
+define(`In123',`
+thinlines_
+ arrow <- from `$1'.In1 up 0.05 left 0.15
+ "svg_it(In1)" wid 0.25 rjust above
+ arrow <- left 0.15 from `$1'.In2
+ "svg_it(In2)" rjust
+ arrow <- from `$1'.In3 down 0.05 left 0.15
+ "svg_it(In3)" rjust below
+thicklines_ ')
+
+L:[
+ S: speaker
+ `"speaker"' at S.s+(0,-0.2) below
+ In123(S)
+ thinlines_
+ arrow <- from S.In4 left 0.05 up 0.15
+ "svg_it(In4)" above rjust
+ arrow <- from S.In5 right 0.05 up 0.15
+ "svg_it(In5)" above ljust
+ arrow <- from S.In6 left 0.05 down 0.15
+ "svg_it(In6)" below rjust
+ arrow <- from S.In7 right 0.05 down 0.15
+ "svg_it(In7)" below ljust
+ spline <- from S.Box.e+(0,0.05) right 0.27 up 0.10 \
+ then right 0.1 up 0.2
+ "svg_it(Box)" above
+ thicklines_
+ ]
+[
+ H: speaker(,,H)
+ `"...(,,H)"' at H.s+(0,-0.30) below
+ ] with .sw at last [].se
+[
+ B: bell
+ `"bell"' at B.s+(0,-0.2) below
+ In123(B)
+ thinlines_
+ arrow <- from B.Box.n+(-0.1,0) up 0.15 left 0.1 ; "svg_it(Box)" above
+ arrow <- from B.Circle.n up 0.15 ; "svg_it(Circle)" above
+ thicklines_
+ ] with .sw at last [].se+(0.35,0)
+[
+ M: microphone
+ `"microphone"' at M.s+(0,-0.2) below
+ In123(M)
+ thinlines_
+ arrow <- from M.Circle.n up 0.15 ; "svg_it(Circle)" above
+ thicklines_
+ ] with .sw at last [].se+(0.4,0)
+[
+ Z: buzzer
+ `"buzzer"' at Z.s+(0,-0.2) below
+ In123(Z)
+ thinlines_
+ arrow <- from Z.Box.n up 0.15 ; "svg_it(Box)" above
+ thicklines_
+ ] with .sw at last [].se+(0.4,0)
+R:[
+ Z: buzzer(,,C)
+ `"buzzer(,,C)"' at Z.s+(0,-0.2) below
+ In123(Z)
+ thinlines_
+ spline <- from 0.8<Z.Face.s,Z.Face.n> right 2*arrowht up 0.5*arrowht \
+ then up 0.15 right 0.05
+ "svg_it(Face)" wid 0.5 at Here above
+ thicklines_
+ ] with .sw at last [].se+(0.4,0)
+[[
+ E: earphone
+ `"earphone"' at E.s+(0,-0.2) below
+ In123(E)
+ thinlines_
+ arrow <- from E.Box.n up 0.15 left 0.15 ; "svg_it(Box)" above
+ thicklines_
+ ]
+ [
+ E: earphone(,,C)
+ `"earphone(,,C)"' at E.s+(0,-0.2) below
+ thinlines_
+ arrow <- from E.L up 0.15 left 0.15; "svg_it(L)" rjust
+ arrow <- from E.R up 0.15 right 0.15; "svg_it(R)" ljust
+ "svg_it(N)" at E.N above
+ "svg_it(C)" at E.C
+ thicklines_
+ ] with .sw at last [].se+(0.4,0)
+] with .n at (0.5 between L and R,L.s)+(0,-0.2)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/AudioSVG.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/Banking.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Banking.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Banking.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,59 @@
+.PS
+#Banking.m4
+
+gen_init
+
+ scale = 2.54 # use cm
+ svg_font(Arial Black,11 bp__,2 bp__)
+ boxwid = 6.8
+ boxht = 4.5
+ linethick_(1.5)
+
+ define(`heading',
+ `<tspan font-style=\"bold\" font-size=\"120%\" fill=\"white\">`$1'</tspan>')
+ define(`subheading',
+ `<tspan fill=\"white\" font-size=\"75%\" font-style=\"bold\">[`$1']</tspan>')
+ define(`wtext',`<tspan fill=\"white\">`$1'</tspan>')
+
+ C: circle diam 2.6 colored "mediumblue"
+ Person: box rad boxht/4 colored "mediumblue" with .n at C.s+(0,C.rad/8) \
+ "heading(Personal Banking)" \
+ "" \
+ "heading(Customer)" \
+ "subheading(Person)" \
+ "" \
+ "wtext(A customer of the bank`,' with)" \
+ "wtext(personal bank accounts.)"
+
+ A1: arrow thick 1.5 dashed down 3.5 from Person.s
+ svg_font(Arial,11 bp__,2 bp__)
+ { box invis fill 1 ht 0.4 wid 1.0 "Uses" at A1 }
+ command "</g>"
+ Internet: box colored "steelblue" \
+ "heading(Internet Banking System)" \
+ "subheading(Software system)" \
+ "" \
+ "wtext(Allows customers to view)" \
+ "wtext(information about their bank)" \
+ "wtext(accounts`,' and make payments.)"
+
+ svg_font(Arial,11 bp__,2 bp__)
+ A2: arrow thick 1.5 dashed right 5.4 from Internet.e \
+ "Sends e-mail" above "using" below
+ command "</g>"
+ Email: box colored "slategrey" \
+ "heading(E-mail System)" \
+ "subheading(Software system)" \
+ "" \
+ "wtext(Internal Microsoft Exchange)" \
+ "wtext(e-mail system.)"
+
+ A3:arrow thick 1.5 dashed from Email.nw+(0.4,0) to Person.se+(0.3,Person.ht/5)
+ svg_font(Arial,11 bp__,2 bp__)
+ { box invis fill 1 ht 0.4 wid 3.3 "Sends e-mails to" at A3 }
+ command "</g>"
+
+# etc
+
+ command "</g>" # font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Banking.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/Banking.txt
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Banking.txt (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Banking.txt 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,54 @@
+.PS
+#Banking.m4
+
+ command "<g style=\"font-family:Arial\">"
+ textht = 12*(scale/72)*dptextratio # 12 pt size
+
+ scale = 2.54 # use cm
+ boxwid = 6.8
+ boxht = 4.5
+ arrowwid = 0.25
+ arrowht = 0.5
+
+define heading {"<tspan font-style=\"bold\" font-size=\"120%\" fill=\"white\"
+>$1</tspan>"}
+define subheading {"<tspan font-style=\"bold\" font-size=\"75%\" fill=\"white\"
+>$1</tspan>"}
+define wtext {<tspan fill="white">$1</tspan>}
+
+ C: circle diam 2.6 colored "mediumblue"
+ Person: box rad boxht/4 colored "mediumblue" with .n at C.s+(0,C.rad/8) \
+ heading(Personal Banking) \
+ "" \
+ heading(Customer) \
+ subheading(Person) \
+ "" \
+ wtext(A customer of the bank, with) \
+ "wtext(personal bank accounts.)"
+
+# arrow thick 1.5 dashed down 3.5 from Person.s
+# { box invis fill 1 ht 0.4 wid 1.0 "Uses" at last arrow }
+# Internet: box colored "steelblue" \
+# "heading(Internet Banking System)" \
+# "subheading(Software system)" \
+# "" \
+# "wtext(Allows customers to view)" \
+# "wtext(information about their bank)" \
+# "wtext(accounts`,' and make payments.)"
+#
+# arrow thick 1.5 dashed right 5.4 from Internet.e \
+# "Sends e-mail" above "using" below
+# Email: box colored "slategrey" \
+# "heading(E-mail System)" \
+# "subheading(Software system)" \
+# "" \
+# "wtext(The internal Microsoft Exchange)" \
+# "wtext(e-mail system..)"
+#
+# arrow thick 1.5 dashed from Email.nw+(0.4,0) to Person.se+(0.3,Person.ht/5)
+# { box invis fill 1 ht 0.4 wid 3.3 "Sends e-mails to" at last arrow }
+
+# etc
+
+ command "</g>" # font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Banking.txt
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/BipSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/BipSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/BipSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,68 @@
+.PS
+# `Bip.m4'
+cct_init(svg_font(sans-serif,11bp__))
+
+ up_
+Q1: bi_tr(up_ dimen_)
+ thinlines_
+ box dotted ht last [].ht wid last [].wid at last []
+ thicklines_
+ "E" at Q1.E-(0,0.05) below
+ "B" at Q1.B rjust
+ "C" at Q1.C above
+ "`bi_tr(up_ dimen_)'" wid 1.2 at Q1.s + (0,-0.35) below
+
+Q2: bi_tr(,R) with .E at Q1.E+(0.25,0)
+ thinlines_
+ box dotted ht last [].ht wid last [].wid at last []
+ thicklines_
+ "E" at Q2.E-(0,0.05) below
+ "B" at Q2.B ljust
+ "C" at Q2.C above
+ "`bi_tr(,R)'" at Q2.s + (0,-0.2) below
+
+Q3: bi_tr(,,P) with .C at Q2.C+(1.15,0)
+ thinlines_
+ box dotted ht last [].ht wid last [].wid at last []
+ thicklines_
+ "E" at Q3.E-(0,0.05) below
+ "B" at Q3.B rjust
+ "C" at Q3.C above
+ "`bi_tr(,,P)'" at Q3.s + (0,-0.2) below
+
+Q4: bi_tr(,,,E) with .C at Q3.C+(0.9,0)
+ thinlines_
+ box dotted ht last [].ht wid last [].wid at last []
+ thicklines_
+ "E" at Q4.E-(0,0.05) below
+ "B" at Q4.B rjust
+ "C" at Q4.C above
+ "`bi_tr(,,,E)'" at (Q4.s,Q4.E) + (0,-0.2) below
+
+Q5: igbt(,,) with .E at Q4.E+(0.65,0)
+ thinlines_
+ box dotted ht last [].ht wid last [].wid at last []
+ thicklines_
+ "E" at Q5.E-(0,0.05) below
+ "G" at Q5.G rjust
+ "C" at Q5.C above
+ "`igbt'" at Q5.s + (0,-0.2) below
+
+Q6: igbt(,,LD) with .E at Q5.E+(0.55,0)
+ thinlines_
+ box dotted ht last [].ht wid last [].wid at last []
+ thicklines_
+ "E" at Q6.E-(0,0.05) below
+ "G" at Q6.G rjust
+ "C" at Q6.C above
+ "`igbt(,,LD)'" at (Q6.s,Q6.E) + (0,-0.2) below
+
+Q7: Darlington with .E at Q6.E+(1.2,0)
+ thicklines_
+ "E" wid 0.15 at Q7.E-(0,0.05) below
+ "B" at Q7.B rjust
+ "C" at Q7.C above
+ "`Darlington'" at (Q7.s,Q7.E) + (0,-0.2) below
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/BipSVG.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/BtreeSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/BtreeSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/BtreeSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,33 @@
+.PS
+# Btree.m4
+# One way to draw a binary tree using pic macros
+gen_init(svg_font(sans-serif,11bp__))
+circlerad = 0.35
+
+define n { [C: circle fill_(0.9) $1
+ if "$2" != "" then {
+ L: $2 with .ne at C.s-(circlerad/20, circlerad/2)
+ line from C to L.C chop }
+ if "$3" != "" then {
+ R: $3 with .nw at C.s+(circlerad/20,-circlerad/2)
+ line from C to R.C chop }
+ ] }
+
+# Redrawn from T. A. Standish, "Data Structure Techniques," Addison-Wesley 1980.
+# Node data:
+define Sirius { n("Sirius",Canopus,Vega) }
+define Canopus { n("Canopus",AlphaCentauri,Capella) }
+define AlphaCentauri { n("Alpha" "Centauri",Achernar,Arcturus) }
+define Arcturus { n("Arcturus",Betelgeux) }
+define Betelgeux { n("Betelgeux",BetaCentauri) }
+define Capella { n("Capella",Rigel) }
+define Rigel { n("Rigel",Procyon) }
+define Achernar { n("Achernar") }
+define BetaCentauri { n("Beta" "Centauri") }
+define Procyon { n("Procyon") }
+define Vega { n("Vega") }
+
+# Build the tree from the root
+S: Sirius
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/BtreeSVG.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/ButtonsSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ButtonsSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ButtonsSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,115 @@
+.PS
+# ButtonsSVG.m4
+gen_init(svg_font(sans-serif,11bp__))
+copy "HOMELIB_/dpictools.pic"
+
+divert(-1)
+#################################################################
+
+ `RoundButton(diameter,hue,linedensity)
+ hue 0=red, 60=yellow, 120=green ...'
+define(`RoundButton',`[
+# Colors and radius:
+ hue = ifelse(`$2',,60,`$2')
+ crad = ifelse(`$1',,circlerad,(`$1')/2)
+ linedensity = ifelse(`$3',,150/scale,`$3') # default 150 lines per inch
+ hsvtorgb(hue, 1, 1, r1,g1,b1)
+ hsvtorgb(hue-5, 1,0.9, r2,g2,b2)
+ hsvtorgb(hue-10,1,0.5, r3,g3,b3)
+# Shaded main disk
+ define RBbackground {
+ circle rad crad*($`'1) thick lthk at C outlined rgbstring($`'2,$`'3,$`'4)
+ }
+ C: circle invis rad crad at (0,0)
+ nsteps = round_(crad*linedensity)
+ lthk = crad/nsteps/(1bp__)
+ ShadeObject(RBbackground,nsteps,
+ 0, r1,g1,b1,
+ 0.2, r1,g1,b1,
+ 0.8, r2,g2,b2,
+ 1, r3,g3,b3) at C
+# Highlight disk with arc shading
+ rad1 = crad*3/4
+ C1: C.n-(0,rad1+0.02*crad)
+ C2: C1+(0,2*rad1)
+ lthk = 2*rad1/nsteps/(1bp__)
+ define RBoverlay {
+ radx = rad1 + ($`'1)*2*rad1
+ if $`'1 < 1 then {
+ arc cw rad radx thick lthk outlined rgbstring($`'2,$`'3,$`'4) \
+ from Cintersect(C2,radx,C1,rad1) \
+ to Cintersect(C2,radx,C1,rad1,R) \
+ with .c at C2
+ } }
+ nsteps = round_(rad1*2*linedensity)
+ ShadeObject(RBoverlay,nsteps,
+ 0, 1, 1, 1,
+ 0.1, 1, 1, 1,
+ 0.33,(r1+r2)/2,(g1+g2)/2,(b1+b2)/2,
+ 0.67,r1,g1,b1,
+ 1, (r1+r2)/2,(g1+g2)/2,(b1+b2)/2) with .c at C1
+ `$4']')
+
+#################################################################
+
+ `BoxButton(wid,height,hue,linedensity)
+ hue 0=red, 60=yellow, 120=green ...'
+define(`BoxButton',`[
+# Size and Color
+ boxw = ifelse(`$1',,boxwid*4/3,`$1')
+ boxh = ifelse(`$2',,boxw/4,`$2')
+ hue = ifelse(`$3',,180,`$3')
+ hsvtorgb(hue, 1, 1, r1,g1,b1)
+ hsvtorgb(hue-5, 1,0.9, r2,g2,b2)
+ hsvtorgb(hue-10,1,0.5, r3,g3,b3)
+# Peripheral shading
+ linedensity = ifelse(`$4',,150/scale,`$4')
+ nsteps=10
+ define BxBshadow {
+ box ht boxh wid boxw rad boxh/2 \
+ outlined rgbstring($`'2,$`'3,$`'4) at (0,($`'1)*4*linethick bp__)
+ }
+ Q: ShadeObject(BxBshadow,nsteps,
+ 0, 1,1,1,
+ 1, r3,g3,b3)
+# Shaded body
+ lthk = boxh/nsteps/(1bp__)
+ define BxBshade {
+ v = boxh*(1-($`'1))
+ h = (boxw-boxh)/2+sqrt((boxh/2)^2-(v-boxh/2)^2)
+ line from (-h,v) to (h,v) thick lthk outlined rgbstring($`'2,$`'3,$`'4)
+ }
+ nsteps = boxh*linedensity
+ C: ShadeObject(BxBshade,nsteps,
+ 0, r1, g1, b1,
+ 0.4, r2, g2, b2,
+ 1, r3, g3, b3) with .n at Q.n
+# Shaded highlight
+ bh = boxh*0.4
+ bw = boxw*4/4.5
+ define BxBhighlight {
+ v = bh*(1-($`'1)); h = (bw-bh)/2+sqrt((bh/2)^2-(v-bh/2)^2)
+ line from (-h,v) to (h,v) thick lthk outlined rgbstring($`'2,$`'3,$`'4)
+ }
+ nsteps = bh*linedensity
+ ShadeObject(BxBhighlight,nsteps,
+ 0,1,1,1,
+ 8/nsteps,1,1,1,
+ 1, r2,g2,b2) with .n at Q.n+(0,-boxh/20)
+ `$5']')
+
+#################################################################
+divert(0)dnl
+
+for x=0 to 5 do {
+ B: RoundButton(0.6,x*60) at (x,0)
+ "Button" sprintf("%g",x+1) at B }
+
+[ for i=0 to 2 do {
+ BoxButton(1.5,,180+120*i) at (i*2,0)
+ "Button" at last [].C
+ }
+ ] with .nw at 1st [].sw+(0,-0.5)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ButtonsSVG.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/ByteSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ByteSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ByteSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,38 @@
+% Byte.m4
+.PS
+gen_init(svg_font(sans-serif,11bp__))
+boxht = 0.2
+boxwid = 3.5
+
+define leftlabel { {"$1" at last box.w ljust} }
+
+down_
+Lab[0]: box; leftlabel( B0STDISBL (reset pin is enabled) )
+Lab[1]: box; leftlabel( WDTON (WDT not always on) )
+Lab[2]: box; leftlabel( SPIEN (allow serial programming) )
+Lab[3]: box; leftlabel( CKOPT (full output swing) )
+Lab[4]: box; leftlabel( EESAVE (don't preserve EEPB0OM over chip erase) )
+Lab[5]: box; leftlabel( BOOTSZ1 )
+Lab[6]: box; leftlabel( BOOTSZ0 )
+Lab[7]: box; leftlabel( BOOTB0ST (boot reset vector at 0x0000) )
+
+boxwid = boxht
+left_
+B0:box "1" with .e at Lab[0].nw + (0.75,0.5)
+ box "0"
+ box "0"
+ box "1"
+ box "0"
+ box "0"
+ box "1"
+ box "1"
+ box wid 2*boxht "0xc9"
+
+for i=0 to 7 do {
+ spline -> ht arrowht*0.7 from B0.s-(i*boxht,0) down boxht/4 \
+ then to Lab[0].nw-((i+1)*boxht/2,0) \
+ then down Lab[0].nw.y-Lab[i].y then to Lab[i].w
+ }
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ByteSVG.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/CanLogicSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CanLogicSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CanLogicSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,159 @@
+.PS
+#CanLogic
+ifdef(`L_unit',,`include(liblog.m4)')
+log_init(svg_font(sans-serif,11bp__))
+
+divert(-1)
+###########################################################################
+ Macros for automatically drawing 2-layer
+ Boolean functions
+
+ Style parameters
+define(`dotrad_',(0.01*scale))
+define(`gatelineth',1)
+define(`lineth',0.5)
+define(`inputsep',`2*jog')
+define(`jog',`(AND_ht/2)*L_unit')
+
+ `CanLogic(layer gate type,[N],
+ output gate type,[N],
+ term,term,...)
+ This is the driver macro. Terms are
+ strings of variables or of variables
+ preceded by the ~ character. Each
+ variable is one letter e.g.
+ CanLogic(NAND,,OR,N,abcd,a~b,c,~ad)'
+define(`CanLogic',
+ `define(`terms',`shift(shift(shift(shift($@))))')
+# Determine required input variables and negated
+# variables
+ Loopover_(`t_',`varloop(`v_',`define(X`'v_)',`define(XN`'v_)',t_)',terms)
+# Draw the inputs with NOT gates as necessary
+ LastInput: Here-(inputsep,0)
+ Loopover_(`t_',`varloop(`v_',
+ `ifdef(D`'v_,,`ifdef(XN`'v_,`DrawInNotIn(v_)',`DrawIn(v_)')')',
+ `ifdef(D`'v_,,`ifdef(X`'v_,`DrawInNotIn(v_)',`DrawNotIn(v_)')')', t_)',
+ terms)
+# Draw 2nd-layer gates
+ right_
+ LastGateSE: LastInput+(5*jog,-(AND_wd*L_unit*1.5))
+ Loopover_(`t_',
+ `define(`termcount',m4Lx)DrawLayerGate(G`'termcount,$1,$2,t_)',
+ terms)
+# Draw output gate
+ linethick = gatelineth
+ OP: m4xpand(`$3'_gate(termcount,$4)) with .Out at \
+ 0.5<G1.Out,G`'termcount.Out> + (jog/2*(termcount+3)+AND_wd*L_unit,0)
+ Out: Here
+ linethick = lineth
+# Connect 2nd-layer gates to the output gate
+ VectorConnect(G,termcount,OP)
+# Connect the inputs and negated inputs to
+# 2nd-layer gates
+ Loopover_(`t_',`ConnectInputs(G`'m4Lx,t_)',terms)
+# Clean up
+ Loopover_(`t_',`DeleteLogDefs(t_)',terms)
+ ')
+ `VectorConnect(number of 2nd layer gates,
+ common 2nd layer gate name,
+ output gate name)
+ Connect the 2nd-layer gate outputs to the
+ output gate inputs'
+define(`VectorConnect',
+ `for_(1,`$2',1,
+ `line from `$1'm4x.Out right `$3'.In1.x-`$1'm4x.Out.x \
+ - jog/2*(`$2'+1-abs(2*m4x-`$2'-1)) \
+ then down `$1'm4x.Out.y - `$3'.In`'m4x.y then to `$3'.In`'m4x ')')
+
+ Draw and label a non-inverted input
+define(`DrawIn',
+ `LastInput: LastInput+(inputsep,0)
+ In`'$1: LastInput
+ "svg_it($1)" ljust at LastInput # Maybe labels should be done externally
+ Int`'$1: LastInput
+ define(D`'$1)')
+
+ Draw and label an inverted input
+define(`DrawNotIn',
+ `LastInput: LastInput+(inputsep,0)
+ InN`'$1: LastInput
+ "svg_it($1)" ljust at LastInput # Maybe labels should be done externally
+ line down_ 2*jog from LastInput
+ linethick = gatelineth
+ NOT_gate
+ InNt`'$1: Here
+ linethick = lineth
+ define(D`'$1)')
+ Draw and label an input that is required both
+ inverted and uninverted.
+define(`DrawInNotIn',
+ `LastInput: LastInput+(inputsep,0)
+ In`'$1: LastInput
+ "svg_it($1)" ljust at LastInput # Maybe labels should be done externally
+ line from LastInput down jog
+ Int`'$1: dot
+ LastInput: LastInput+(inputsep,0)
+ line to (LastInput,Here) then down_ jog
+ linethick = gatelineth
+ NOT_gate
+ linethick = lineth
+ InNt`'$1: Here
+ define(D`'$1)')
+ `varloop(`var',ifnotnegated,ifnegated,term)
+ Loop over term variables performing actions'
+define(`varloop',`ifelse(`$4',,,substr(`$4',0,1),~,
+ `define(`$1',substr($4,1,1)) $3
+ varloop(`$1',`$2',`$3',substr($4,2))',
+ `define(`$1',substr($4,0,1)) $2
+ varloop(`$1',`$2',`$3',substr($4,1))')')')
+
+ Count gate inputs and mark last appearance
+define(`Countinputs',`varloop(`v_',
+ `define(`incount',incr(incount)) define(Last`'v_,`$1')',
+ `define(`incount',incr(incount)) define(LastN`'v_,`$1')',$2)')
+
+ Draw a 2nd layer gate
+define(`DrawLayerGate',
+ `define(`incount',0)
+ Countinputs($1,$4)
+ ifelse(incount,1,
+ `LastGateSE: LastGateSE-(0,jog)
+ $1: [ In1:Here; line right AND_wd*L_unit; Out: Here] \
+ with .Out at LastGateSE',
+ `LastGateSE: LastGateSE-(0,jog+AND_ht*L_unit)
+ linethick = gatelineth
+ $1: m4xpand(`$2'_gate(incount,$3)) with .se at LastGateSE
+ linethick = lineth ')')
+
+ Connect this gate to its input lines
+define(`ConnectInputs',`define(`innum',0) varloop(`v_',
+ `define(`innum',incr(innum))
+ line from `$1'.In`'innum to (In`'v_,`$1'.In`'innum)dnl
+ ifelse(`$1',m4xpand(Last`'v_),`then to In`'v_',`; dot')',
+ `define(`innum',incr(innum))
+ line from `$1'.In`'innum to (InNt`'v_,`$1'.In`'innum)dnl
+ ifelse(`$1',m4xpand(LastN`'v_), `then to InNt`'v_', `; dot')',$2)')
+
+ Delete definitions to allow more than one
+ circuit per diagram
+define(`DeleteLogDefs',`varloop(`v_',
+ `undefine(Last`'v_) undefine(D`'v_) undefine(X`'v_)',
+ `undefine(LastN`'v_) undefine(D`'v_) undefine(XN`'v_)',$1)')
+
+ Thanks to Alexander Ray for suggesting the
+ need for something like these macros
+###########################################################################
+divert(0)dnl
+
+ linethick = lineth
+
+[ CanLogic(AND,,OR,,abcd,a~b,c,~ad) #; line right jog from Out "svg_it(f)" above
+ ]
+{`"CanLogic(AND,,OR,,abcd,a~b,c,~ad)"' at last [].s -(0,11bp__)}
+
+[ CanLogic(OR,N,NAND,,ab~c,a~bc,ac,~d) #; line right jog from Out "$f$" above
+ ] with .sw at last [].se+(0.5,0)
+{`"CanLogic(OR,N,NAND,,ab~c,a~bc,ac,~d)"' at last [].s - (0,11bp__)}
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CanLogicSVG.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/CctTableSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CctTableSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CctTableSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,79 @@
+.PS
+# `CctTableSVG.m4'
+cct_init(svg_font(sans-serif,11pt__))
+textwid = 1.5
+movewid = 2 pt__
+hm = 2.1
+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) = ebox'" ljust}
+}
+ move down vm; right_
+{ {resistor(,,ES) ; move ;"`resistor(,,ES) '" ljust}
+ move right_ hm
+ {resistor(,4,QR) ; move ;"`resistor(,4,QR) '" ljust}
+ move right_ hm
+ {resistor(,,H) ; move ;"`resistor(,,H) '" ljust}
+}
+ move down vm; right_
+{ {resistor(,,V) ; move ;"`resistor(,,V)'" ljust}
+ move right_ hm
+ {ebox(,,,0.5) ; move ;"`ebox(,,,0.5)'" ljust}
+ move right_ hm
+ {ebox(,0.5,0.3) ; move ;"`ebox(,0.5,0.3)'" ljust}
+}
+ move down vm; right_
+{ {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(,,,M) ; move ;"`inductor(,,,M)'" ljust}
+ move right_ hm
+ {inductor(,W,6,P); move ;"`inductor(,W,6,P)'" ljust}
+ move right_ hm
+ {ttmotor(,G) ; move ;"`ttmotor(,G)'" ljust}
+}
+ move down vm; right_
+{ {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_
+{ {memristor ; move;"`memristor'" ljust}
+ move right_ hm
+ {heater; move;"`heater'" ljust}
+ move right_ hm
+ {tline ; move;"`tline'" 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}
+}
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CctTableSVG.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/ConnSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ConnSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ConnSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,67 @@
+.PS
+# `ConnSVG.m4'
+cct_init(svg_font(sans-serif,11.5bp__))
+
+T:[
+ S1: tstrip(U)
+ thinlines_
+ arrow <- left 0.15 from S1.L1; "L1" rjust
+ arrow <- left 0.15 from S1.L4; "L4" wid 0.2 rjust
+ "..." at (0.5 between last "" and 2nd last "")+(-0.15,0.02)
+ arrow <- right 0.25 from S1.R1; "R1" ljust
+ arrow <- right 0.25 from S1.R4; "R4" ljust
+ "..." at (0.5 between last "" and 2nd last "")+(0.15,0.02)
+ arrow <- right 0.15 up 0.10 from S1.T1; "T1" ljust
+ arrow <- right 0.15 up 0.10 from S1.T4; "T4" ljust
+ "..." at (0.5 between last "" and 2nd last "")+(0.15,0.02)
+ thicklines_
+ CS1: "`tstrip(U)'" at S1.s+(0,-0.15)
+ S2: tstrip(R,5,DO;wid=1.0;ht=0.25) with .sw at S1.se+(0.7,0.15)
+ thinlines_
+ arrow <- up 0.2 right 0.1 from S2.T1; "T1" above
+ arrow <- up 0.2 right 0.1 from S2.T5; "T5" above
+ "..." at 0.5 between last "" and 2nd last "" above
+ CS2: `"tstrip(R,5,"' ljust \
+ `" DO;wid=1.0;ht=0.25)"' ljust at S2.sw+(-0.1,-0.2)
+]
+
+C: [
+ C1: ccoax
+ `"ccoax "' at C1.s below
+ thinlines_
+ arrow <- up 0.1 right 0.1 from C1.C.ne; "C" ljust
+ arrow <- down 0.05 right 0.1 from C1.S.e; "S" wid 0.1 ljust
+ thicklines_
+ C2: ccoax(at C1+(0,0.3),F)
+ `"ccoax(,F)"' wid 0.65 at C2.ne ljust
+ ] with .C1.sw at T.S2.se+(0.6,0.0)
+
+Y: [
+ tconn(,O)
+ {`"tconn(,O)"' at last line.c+(0,-0.2) wid 43 pt__ }
+ move to Here+(0.3,0)
+ P1: tconn(,>)
+ {`"(,>)"' at last line.c+(0,-0.2)}
+ move to P1.end+(0.3,0)
+ tconn(,>>)
+ {`"(,>>)"' at last line.c+(0,-0.2)}
+ move to P1.start+(0,linewid)
+ P3: tconn(,<)
+ {`"tconn(,<)"' at last line.c+(0,-0.2)}
+ move to P3.end+(0.3,0)
+ tconn(,<<)
+ {`"(,<<)"' at last line.c+(0,-0.2)}
+
+] with .sw at (C.e.x-0.3,T.s.y)
+
+B: [
+ tbox(V`'svg_sub(2))
+ `"tbox(V`'svg_sub(2))"' wid 105bp__ with .nw at last [].sw+(0,-4bp__)
+ [ left_;
+ tbox(V`'svg_sub(1)) ] with .nw at last [].sw+(0,-0.25)
+ `"left_"' at last [].sw +(0,-0.2) ljust `"tbox(V`'svg_sub(1))"' wid 100bp__ \
+ ljust
+] with .nw at Y.ne+(0.2,0)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ConnSVG.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/CountingSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CountingSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CountingSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,32 @@
+.PS
+# CountingSVG.m4
+gen_init(svg_font(sans-serif,11bp__))
+
+ g = 0.4 # grid size
+ define grid { (($2)*g,-($1)*g) }
+ circlerad = 0.1
+
+for i=1 to 4 do { # 66% becomes 66%% in the sprintf string:
+ sprintf("svg_it(S`'svg_sub(%g,66%):)",i) ljust at grid(i,-0.5)
+ for j=1 to 4 do { if i+j < 8 then {
+ sprintf("svg_it(s`'svg_sub(%g%g,66%))",i,j) at grid(i,j) } } }
+
+"." at grid(4.6,0)
+"." at grid(4.7,0)
+"." at grid(4.8,0)
+for i=1 to 3 do { `"..."' at grid(i,5) }
+"..." at grid(4,4)
+
+P: grid(1,1)
+for k=3 to 5 do {
+ for i=1 to k-1 do { if (k%2==1) then { m=i; n=k-i } else { m=k-i; n=i }
+ Q: grid(m,n)
+ arrow from P to Q chop
+ P: Q }
+ }
+
+move from grid(1,1)+(-0.5,0.1) \# Adjust bounding box
+ to grid(4,4)+(0.5,-0.45)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CountingSVG.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/CrossbarSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrossbarSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrossbarSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,54 @@
+.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
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrossbarSVG.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/CrowSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrowSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrowSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,74 @@
+.PS
+# CrowSVG.m4
+#`Illustrates shadebox and custom crowfoot line termination'
+gen_init(svg_font(sans-serif,11bp__))
+
+# Custom macros --------------------------
+
+# `crowline(linespec,wid,ht)'
+define(`crowline',
+ `line `$1'
+ M4_E: last line.end
+ crow_wd = ifelse(`$2',,`(arrowwid*8/5)',`$2')
+ crow_ht = ifelse(`$3',,`(1.5*crow_wd)',`$3')
+ M4_P: vperp(last line); M4_P: (M4_P.x*crow_wd,M4_P.y*crow_wd)
+ M4_X: crow_ht/lin_leng(last line) between M4_E and last line.start
+ ifdpic(
+ `spline 0.4 from M4_E+M4_P to M4_X+M4_P then to M4_X-M4_P then to M4_E-M4_P',
+ `spline from M4_E+(M4_P.x,M4_P.y) to M4_X+(M4_P.x,M4_P.y) \
+ then to M4_X-(M4_P.x,M4_P.y) then to M4_E-(M4_P.x,M4_P.y)') ')
+
+define(`custombox',
+ ``$1': shadebox(box `$2',3)
+ "`$1'" at last box.n above
+ boxtext(shift(shift($@)))')
+
+define boxtext {
+ for i=1 to $+ do { move to last box.nw+(3pt__,-(2+i*11)pt__);
+ exec sprintf("\"$%g\" ljust",i) }
+ }
+
+# ----------------------------
+
+ boxwid = boxwid*1.15
+ boxsep = boxwid/2
+
+ custombox(Class,ht boxht*2.2,
+ `classkey, class_type, class_desc')
+
+ custombox(Product,ht Class.ht with .nw at Class.ne+(boxsep,0),
+ `classkey, prodkey, prod_name, pkg_type')
+
+ custombox(Sales,ht boxht*3.3 with .nw at Product.ne+(boxsep*2,15pt__),
+ `perkey, classkey, prodkey, storekey, promokey, quantity, dollars')
+
+ custombox(Period,ht Sales.ht with .nw at Sales.ne+(boxsep*2,0),
+ `perkey, date, day, week, month, qtr, year')
+
+ custombox(Market,ht Sales.ht with .nw at Class.sw+(0,-boxsep*2),
+ `perkey, date, day, week, month, qtr, year')
+
+ custombox(Store,ht boxht*3.6 with .sw at (Product.w,Market.s),
+ `storekey, mktkey, store_type, store_name, street, city, state, zip')
+
+ custombox(Promotion,ht Market.ht with .sw at (Period.w,Market.s),
+ `promokey, promo_type, promo_desc, value, start_date, end_date')
+
+ move to Class.ne+(0,-10pt__); crowline(to (Product.w,Here))
+
+ move to Product.ne+(0,-10pt__); crowline(to (Sales.w,Here))
+ move to last line.start+(0,-crow_wd*2.5); crowline(to (Sales.w,Here))
+T: last line.c+(0,-crow_wd*2.5)
+
+ move to Period.nw+(0,-10pt__); crowline(to (Sales.e,Here),,1.75*crow_wd)
+Q: (last line.c,0.4 between Sales.se and Sales.ne)
+
+ move to Market.ne+(0,-10pt__); crowline(to (Store.w,Here))
+ move to Store.ne+(0,-10pt__); line to (T,Here) then to T
+ crowline(to (Sales.w,Here))
+
+ move to Promotion.nw+(0,-10pt__); line to (Q,Here) then to Q
+ crowline(to (Sales.e,Here),,1.75*crow_wd)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrowSVG.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/CrullerSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrullerSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrullerSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,67 @@
+.PS
+# CrullerSVG.m4
+threeD_init
+NeedDpicTools
+scale = 2.54
+
+define(`lobe',`(sind(6*(`$1'))+4)/5*2.25')
+
+ viewazimuth = 20 # Set view angles in degrees
+ viewelevation = 30
+ setview(viewazimuth,viewelevation,0)
+
+ dt = 3 # major angle degrees per facet
+ ds = 10 # minor angle degrees per facet
+
+ tradius = 6
+define(`cruller',`rot3Dz((`$1')*dtor_,
+ sum3D(0,tradius,0,0,Rect_(lobe(`$2'+2*(`$1')),`$2')))')
+
+define(`tvisible',`dot3D(View3D,
+ cross3D(diff3D(cruller(`$1'+dt/2,`$2'),cruller(`$1',`$2')),
+ diff3D(cruller(`$1',`$2'+ds/2),cruller(`$1',`$2'))))')
+
+ # create the arrays and sort
+ n = 0
+ for t = dt to 360+dt/2 by dt do {
+ for s=ds/2 to 360.1 by ds do {
+ if tvisible(t,s) > -0.01 then {
+ n +=1
+ t[n] = t
+ s[n] = s
+ d[n] = dot3D(cruller(t,s),view3D1,view3D2,view3D3) # view distance
+ ix[n] = n
+ }
+ } }
+# prval(n)
+ dpquicksort(d,1,n,ix)
+
+ # Background
+Bne: (9,6)
+Bsw: (-9,-6)
+B: 0.5 between Bne and Bsw
+iflatex(`line fill_(0.75) \
+ from (Bsw,Bne) to Bsw then to (Bne,Bsw) then to Bne then to (Bsw,Bne)',
+ `ShadedPolygon((Bsw,Bne):Bsw:(Bne,Bsw):Bne,,-30,
+ 0,1,1,1,
+ .5,.1,.4,0,
+ 1,0,0,0) at B')
+ # draw the facets
+thinlines_
+[
+ 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)))
+ 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 ) \
+ from SE to SW then to NW then to NE then to SE }
+ ] at B
+
+thicklines_
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CrullerSVG.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/CsourceSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CsourceSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CsourceSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,197 @@
+.PS
+# Csource.m4
+cct_init(svg_font(sans-serif,11bp__,2bp__))
+
+# The default line separation is a bit small if the top line contains
+# subscripts, so we space stacked lines explicitly:
+define(`stbelow',`at last ""-(0,textht*1.3)')
+
+define(`loffset',`+(textoffset,0)')
+define(`roffset',`-(textoffset,0)')
+
+define(`npair',`[define(`m4lr',ifelse(`$1',,l,r))
+ J: mosfet(down_ dimen_,ifelse(`$1',,R,L),uHSDF,E)
+ {["svg_it(Q`'svg_sub(`$2'))" ljust; "2N5464" ljust stbelow]\
+ at J.nw+(ifelse(`$1',,-5bp__,5bp__),textht*0.75)}
+ G: J.G
+ line ifelse(`$1',,right,left) dimen_/4 from J.D
+ Q: bi_tr(up_ dimen_,ifelse(`$1',,L,R),,E) with .B at Here
+ {["svg_it(Q`'svg_sub(`$3'))" m4lr`'just; "2N4239" m4lr`'just stbelow] \
+ at last [].ifelse(`$1',,e,w)}
+ E: Q.E
+ S: dot(at (Q.C,J.S))
+ line from J.S to S then to Q.C ]')
+
+define(`ppair',`[define(`m4lr',ifelse(`$1',,l,r))
+ J: mosfet(down_ dimen_,ifelse(`$1',,R,L),dHSDF,E)
+ {["svg_it(Q`'svg_sub(`$2'))" ljust; "2N3819" ljust stbelow] \
+ at J.sw+(ifelse(`$1',,0,`4bp__'),-textht*0.6)}
+ G: J.G
+ line ifelse(`$1',,right,left) dimen_/4 from J.S
+ Q: bi_tr(down_ dimen_,ifelse(`$1',,R,L),P,E) with .B at Here
+ {["svg_it(Q`'svg_sub(`$3'))" m4lr`'just; "2N4236" m4lr`'just stbelow]}
+ E: Q.E
+ S: dot(at (Q.C,J.D))
+ line from J.D to S then to Q.C ]')
+
+ textht = textht*0.8
+ R2: resistor(down_ dimen_)
+ {["svg_it(R`'svg_sub(2))" ljust; "150`'svg_ohm" ljust stbelow] \
+ at last [].e loffset }
+ dot
+ Q13: bi_tr(down_ dimen_,,P,E) with .E at Here
+ {["svg_it(Q`'svg_sub(13))" rjust; "2N4236" rjust stbelow] at last [].w }
+ line down 3.1*elen_ from Q13.C
+ Q14: bi_tr(up_ dimen_,R,,E) with .C at Here
+ {["svg_it(Q`'svg_sub(14))" rjust; "2N4239" rjust stbelow] at last [].w }
+ dot(at Q14.E)
+ { line left_ dimen_*1.3 then up_ dimen_
+ R1: potentiometer(up_ dimen_) with .Start at Here
+ {["svg_it(R`'svg_sub(1))" ljust; "20k`'svg_ohm" ljust stbelow] \
+ at last [].e loffset }
+ { ground(at R1.T1) }
+ line from R1.End to (R1.End,Q13.E) then to Q13.E }
+ { dot(at Q13.C+(0,-elen_))
+ line to (R1.R,Here)+(-dimen_/2,0)
+ { arrowline(right_ dimen_/2); llabel(,i`'svg_sub(1)) }
+ { move left 0.2}
+ V1: gap(down_ dimen_,1); rlabel(+,V`'svg_sub(1),-)
+ line down_ dimen_/4 chop dotrad_ chop 0; ground(,T) }
+ R3: resistor(down_ dimen_)
+ {["svg_it(R`'svg_sub(3))" ljust; "150svg_ohm" ljust stbelow] \
+ at last [].e loffset}
+ dot(at Q13.C+(0,-2*elen_))
+ line right_ dimen_/2
+ A1: opamp with .In2 at Here; "svg_it(A`'svg_sub(1))" at A1.C
+ { "Nexus" rjust "SQ-10A" rjust at (A1.E,A1.s)+(0,-textht/2) }
+ line left_ dimen_/4 from A1.In1 then up_ dimen_/2 then right dimen_
+ dot
+ { resistor(up_ elen_)
+ {["svg_it(R`'svg_sub(14))" rjust; "19k`'svg_ohm" rjust stbelow] \
+ at last [].w roffset}
+ line to (Here,Q13.E) then to Q13.E }
+ line to (A1.Out,Here)
+ dot
+ { line to A1.Out
+ dot
+ resistor(down_ to (Here,Q14.E))
+ {["svg_it(R`'svg_sub(13))" ljust; "91k`'svg_ohm" ljust stbelow] \
+ at last [].e loffset}
+ line to Q14.E }
+ R6: resistor(right_ dimen_)
+ {["svg_it(R`'svg_sub(6))" ljust; "15k`'svg_ohm" ljust stbelow] \
+ with .n at last [].sw+(0,-textoffset) }
+ dot
+ line to (Here,A1.In1) then right_ dimen_/4
+ A2: opamp with .In1 at Here; {"svg_it(A`'svg_sub(2))" at A2.C }
+ { "Nexus" rjust "SQ-10A" rjust at (A2.E,A2.s)+(0,-textht/2) }
+ line left_ dimen_/4 from A2.In2
+ ground
+
+ dot(at A2.Out)
+ DP1: npair(,3,4) with .E at (A2.Out,Q14.B)+(elen_*1.25,0)
+#if 2 < 1 then {
+ line from A2.Out to (A2.Out,DP1.G) then to DP1.G
+ line from DP1.E to (DP1.E,R3.bottom); dot
+ D4: reversed(`diode',up_ dimen_/2 from DP1.S)
+ D3: reversed(`diode',up_ dimen_/2 from Here+(0,-dimen_/6))
+ { "OMC-V" rjust "svg_it(D`'svg_sub(4))" rjust \
+ "svg_it(D`'svg_sub(3))" rjust at last [].w }
+ DP2: ppair(,1,2) with .E at (DP1.E,Q13.B)
+ D1: diode(down_ dimen_/2 from DP2.S)
+ D2: diode(down_ dimen_/2 from Here+(0,dimen_/6))
+ {"svg_it(D`'svg_sub(1))" rjust "svg_it(D`'svg_sub(2))" rjust "OMC-V" rjust\
+ at last [].w }
+ dot(at (Here,A2))
+ line to D2.bottom
+ line from DP2.G to (A2.Out,DP2.G) then to A2.Out
+ line from DP2.E to (DP2.E,R2.top); dot
+
+ T: dot(at (DP1.E,A2)+(dimen_,0))
+ DP3: npair(,7,8) with .G at (Here,DP1.G)+(dimen_/4,0)
+ dot(at DP3.E)
+ line to Q14.B
+ DP4: ppair(,5,6) with .G at (DP3.G,DP2.G)
+ dot(at DP4.E)
+ line to Q13.B
+ line from DP3.G to (T,DP3.G) then to (T,DP4.G) then to DP4.G
+ R11: resistor(down_ dimen_ from DP4.S)
+ {["svg_it(R`'svg_sub(11))" rjust; "20`'svg_ohm" rjust stbelow] \
+ at last [].w roffset}
+ D5: diode(up_ from DP3.S to (DP3.S,A2),Z)
+ {["svg_it(D`'svg_sub(5))" rjust; "1N4729" rjust stbelow] \
+ at last [].w roffset}
+ line to R11.end
+ C4: capacitor(right_ dimen_*1.3 from DP3.S,C)
+ llabel(,svg_it(C`'svg_sub(4))); rlabel(,"0.68`'svg_micro(F)")
+ C3: capacitor(right_ dimen_*1.3 from DP4.S,C)
+ llabel(,svg_it(C`'svg_sub(3))); rlabel(,"0.68`'svg_micro(F)")
+ dot
+ dot(at (Here,R6))
+ C2: reversed(`capacitor',left_ dimen_*1.3,C)
+ rlabel(,svg_it(C`'svg_sub(2))); llabel(,"0.1`'svg_micro(F)")
+ line to R6.end
+
+ R5: resistor(up_ from R6.end to (R6.end,Q13.B))
+ {["svg_it(R`'svg_sub(5))" ljust; "100k`'svg_ohm" ljust stbelow] \
+ at last [].e loffset }
+ dot(at R5.top-(0,dimen_/2))
+ line left_ dimen_/2
+ capacitor(down_ dimen_,C)
+ {["svg_it(C`'svg_sub(1))" rjust; "1`'svg_micro(F)" rjust stbelow] \
+ at last [].w roffset}
+ ground(,T)
+
+ line from DP4.E to (DP4.E,R2.bottom)
+ resistor(up_ to (Here,R2.top))
+ {["svg_it(R`'svg_sub(9))" ljust; "910`'svg_ohm" ljust stbelow] \
+ at last [].e loffset}
+ dot
+ resistor(down_ from DP3.E to (DP3.E,R3.bottom))
+ {["svg_it(R`'svg_sub(10))" ljust; "910`'svg_ohm" ljust stbelow] \
+ at last [].e loffset}
+ dot
+
+ line from R5.top to (R5,Q13.E)
+ resistor(right_ elen_)
+ {["svg_it(R`'svg_sub(4))" ljust; "100k`'svg_ohm" ljust stbelow] \
+ with .s at last [].nw+(0,1bp__)}
+ line to (C4.end,Here) then to C4.end
+
+ DP5: npair(L,11,10) with .E at (C4.end,DP1.E)+(elen_*0.8,0)
+ line from DP5.E to (DP5.E,R3.bottom); dot
+ line from R3.bottom to Here+(dimen_/2,0)
+ dot(,,1)
+ "svg_it(-E`'svg_sub(CC))" ljust at last [].e
+ D6: diode(up_ from DP5.S to (DP5.S,A2),Z)
+ {["svg_it(D`'svg_sub(6))" rjust; "1N4728" rjust stbelow] \
+ at last [].w roffset}
+ DP6: ppair(L,12,9) with .E at (DP5.E,DP2.E)
+ line from DP6.E to (DP6.E,R2.top); dot
+ line from R2.top to Here+(dimen_/2,0)
+ dot(,,1)
+ { "svg_it(E`'svg_sub(CC))" ljust at last [].e }
+ resistor(down_ from DP6.S to (DP6.S,C2))
+ {["svg_it(R`'svg_sub(12))" rjust; "20`'svg_ohm" rjust stbelow] \
+ at last [].w roffset}
+ dot
+ { line to C2.e }
+ line to D6.end
+
+ Vr: dot(at (DP6.G,V1.top)+(dimen_/4,0))
+ line from DP6.G to (Vr,DP6.G) then to (Vr,DP5.G) then to DP5.G
+ reversed(`arrowline',right_ dimen_/2 from Vr); llabel(,i`'svg_sub(2))
+ V2: gap(down_ dimen_,1); llabel(+,V`'svg_sub(2),-)
+ { move right 0.2}
+ line down_ dimen_/4 chop dotrad_ chop 0; ground(,T)
+
+ dot(at (Vr,T))
+ resistor(left_ to (DP6.E,Here))
+ {["svg_it(R`'svg_sub(15))" ljust; "200`'svg_ohm" ljust stbelow] \
+ with .s at last [].nw+(0,textoffset)}
+ line to (DP1.E,Here)
+ dot
+#}
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/CsourceSVG.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/DecoderSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DecoderSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DecoderSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,25 @@
+.PS
+# Decoder.m4
+log_init(svg_font(sans-serif,11bp__))
+
+ define(`nlines',3) # OK for nlines from 1 to approximately 4
+
+ define(`ndata',`eval(2**nlines-1)')
+ for_(0,nlines-1,1,
+ `{right_; A`'m4x: dot(at rsvec_(0,m4x*AND_ht))
+ "svg_it(A`'svg_sub(m4x))" wid 0.2 at last [].w rjust}')
+
+ for_(0,ndata,1,
+ `define(`m4y',m4x) down_
+ G`'m4y: AND_gate(nlines) \
+ at A0+svec_(AND_ht*3/2,(m4y+1/2)*AND_ht*3/2)
+ line down linewid/3; dot; "svg_it(D`'svg_sub(m4y))" at last [].s below
+ for_(0,nlines-1,1,
+ `ifelse(eval(m4y/2**m4x%2),0,
+ `up_; NOT_circle with .s at',`move to') G`'m4y.In`'eval(nlines-m4x)
+ line to (Here,A`'m4x) ifelse(m4y,ndata,`then to A`'m4x',`; dot')
+ ')
+ ')
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DecoderSVG.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/DemultiplexerSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DemultiplexerSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DemultiplexerSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,37 @@
+.PS
+# `DemultiplexerSVG.m4'
+log_init(svg_font(sans-serif,11*0.8bp__))
+
+ right_
+
+ Demux(4,DM1)
+ "`Demux'(4,DM1)" at last [].s below
+ "svg_it(Out0)" at last [].Out0.end +(6bp__,6bp__)
+ "svg_it(Out3)" at last [].Out3.end +(6bp__,-6bp__)
+ "svg_it(In)" at last [].In.end rjust wid 11bp__
+ "svg_it(Sel)" at last [].Sel.end ljust above
+ left_; Demux(4,,LOE) with .c at last [].c+(1.2,0)
+ "`left_; Demux'(4,,LOE)" at last [].s + (0,-20bp__)
+ "svg_it(Sel)" at last [].Sel.end rjust
+ "svg_it(Out0)" at last [].Out0.end +(-6bp__,6bp__)
+ "svg_it(OE)" at last [].OE.end ljust
+ "svg_it(In)" at last [].In.end+(0,5bp__) ljust
+ right_; Demux(4,,NOEBN2) with .c at last [].c+(1.2,0)
+ "(4,,NOEBN2)" at last [].s below
+ "svg_it(Sel0)" at last [].Sel0.end rjust
+ "svg_it(Sel1)" at last [].Sel1.end ljust
+ "svg_it(Out0)" at last [].Out0.end +(5bp__,6bp__)
+ "svg_it(Out3)" at last [].Out3.end +(5bp__,6bp__)
+ "svg_it(NOE)" at last [].NOE.end rjust
+ "svg_it(In)" at last [].In.end above
+ down_; Demux(8,,L3,,28*L_unit) with .c at last [].c+(1.8,0)
+ "`down_; Demux'(8,,L3,,28*L_unit)" at last [].s+(0,-15bp__) wid 170bp__
+ "svg_it(Sel0)" at last [].Sel0.end rjust
+ "svg_it(Sel2)" at last [].Sel2.end rjust below
+ "svg_it(Out0)" at last [].Out0.end rjust
+ "svg_it(Out7)" at last [].Out7.end ljust
+ "svg_it(In)" at last [].In.end rjust
+
+ command "</g>" # end font
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DemultiplexerSVG.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/DiodesSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DiodesSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DiodesSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,50 @@
+.PS
+# `Diodes.m4'
+cct_init(svg_font(sans-serif,11bp__))
+movewid = 2pt__
+{ {diode ; move ; "`diode'" ljust}
+ move down 0.2; right_
+ {diode(,S) ; move ; "`diode(,S)'" ljust}
+ move down 0.2; right_
+ {diode(,V) ; move ; "`diode(,V)'" ljust}
+ move down 0.2; right_
+ {diode(,v) ; move ; "`diode(,v)'" ljust}
+ move down 0.2; right_
+ {diode(,w) ; move ; "`diode(,w)'" ljust}
+ move down 0.2; right_
+ {diode(,B) ; move ; "`diode(,B)'" ljust}
+ move down 0.2; right_
+ {diode(,G) ; move ; "`diode(,G)'" ljust}
+ }
+
+ move right_ 2.0
+{
+ {diode(,K) ; move ; "`diode(,K)'" ljust}
+ move down 0.2; right_
+ {diode(,ZK) ; move ; "`diode(,ZK)'" ljust}
+ move down 0.2; right_
+ {diode(,CR) ; move ; "`diode(,CR)'" ljust}
+ move down 0.2; right_
+ {diode(,L) ; move ; "`diode(,L)'" ljust}
+ move down 0.2; right_
+ {diode(,F) ; move ; "`diode(,F)'" ljust}
+ move down 0.2; right_
+ {diode(,Sh) ; move ; "`diode(,Sh)'" ljust}
+ move down 0.2; right_
+ {diode(,D) ; move ; "`diode(,D)'" ljust}
+ }
+
+ move right_ 2.0
+{ {diode(,Z,RE) ; move ; "`diode(,Z,RE)'" ljust; move right 1.5}
+ move down 0.25; right_
+ {diode(,T) ; move ; "`diode(,T)'" ljust}
+ move down 0.30; right_
+ {diode(,P) ; move ; "`diode(,P)'" ljust}
+ move down 0.30; right_
+ {diode(,LE) ; move ; "`diode(,LE)'" ljust}
+ move down 0.15; right_
+ {diode(,LER) ; move ; "`diode(,LER)'" ljust}
+ }
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DiodesSVG.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/DriveSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DriveSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DriveSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,74 @@
+.PS
+# `Drive.m4'
+cct_init
+
+define(`synchmachine',`[ r = ifelse(`$1',,`dimen_*3/4',(`$1')/2)
+ C: circle rad r
+ Point_(120)
+ line from C to C+vec_(r*2/9,0); reversed(`inductor',to rvec_(r*2/3,0))
+ W2: Here
+ Point_(240)
+ line from C to C+vec_(r*2/9,0); reversed(`inductor',to rvec_(r*2/3,0))
+ W3: Here
+ line from C right_ r*2/9; inductor(right_ r*2/3)
+ W1: Here ]')
+
+ bht = sourcerad_*10
+ dlen = dimen_*2/3
+define(`Diodepair',`[ diode(up_ dlen); line up bht-2*dlen; diode(up_ dlen) ]')
+
+define(`gbt',`bi_trans(`$1',`$2',CBUHdE`$3')')
+define(`dotrad_',dotrad_*0.5/linewid)
+define(`GBTpair',`[linewid = 0.5*3/4
+ Q1: gbt(up_ bht/2,,D)
+ Q2: gbt(up_ bht/2,,D) with .C at Q1.E
+ ]')
+
+SW: ground
+ line up
+W: Here
+ line right dimen_/3; dot
+ ssep = sourcerad_*2.5
+ { line up ssep; S1: source(right_ dimen_,AC) }
+ { S2: source(right_ dimen_,AC) }
+ { line down ssep; S3: source(right_ dimen_,AC) }
+
+ dsep = dimen_/2
+D1: Diodepair at S2.e
+D2: Diodepair at D1+(dsep,0); dot(at D2.n); dot(at D2.s)
+D3: Diodepair at D2+(dsep,0); dot(at D3.n); dot(at D3.s)
+ dot(at (D1,S1))
+ dot(at (D2,S2)); line to S2.e
+ dot(at (D3,S3)); line to S3.e
+
+ line from D1.n to D3.n
+ inductor(right_ dimen_)
+T: dot
+ capacitor(to (Here,D1.s),C)
+ dot
+
+ gsep = dimen_*1.25
+G1: GBTpair with .Q1.C at T+(dimen_,0)
+G2: GBTpair at G1+(gsep,0)
+G3: GBTpair at G2+(gsep,0)
+
+ line from G3.Q1.C to T
+ dot(at (G1.Q1.C,T))
+ dot(at (G2.Q1.C,T))
+ line from G3.Q2.E to D1.s
+ dot(at (G1.Q1.E,D1.s))
+ dot(at (G2.Q1.E,D1.s))
+
+M: synchmachine with .C at G3.e+(dimen_*2,0)
+ sg = dimen_/8
+L: (0.5<G3.e,M.w>,D1.s)-(sg,0)
+ line from M.W1 to (M.W1,L) then to L \
+ then up M.C.y-L.y-sg then to G3.Q2.C+(0,-sg); dot
+ line from M.W3 down M.W3.y-L.y-sg*2 then to L+(sg*2,sg*2)\
+ then up M.C.y-L.y-sg*2 then to G2.Q2.C; dot
+ line from M.W2 to (L,M.W2) \
+ then down M.W2.y-G1.Q2.C.y-sg then to G1.Q2.C+(0,sg); dot
+
+ line right dimen_/3 from M.e then down M.e.y-SW.y
+ ground
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/DriveSVG.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/EmarrowsSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/EmarrowsSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/EmarrowsSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,31 @@
+.PS
+# `Emarrows.m4'
+cct_init(svg_font(sans-serif,11bp__))
+ hskip = 0.6
+[
+ { em_arrows(N)
+ box dotted wid last [].wid ht last [].ht at last [].c
+ thinlines_
+ arrow <- up 0.12 from last [].Head;`"Head"' above
+ arrow <- down 0.12 from last [].Tail;`"Tail"' below
+ `"A1"' rjust below at last [].A1.c
+ `"A2"' ljust above at last [].A2.c
+ thicklines_
+ move down 0.25 from last [].s
+ move up 0.2 from last [].n
+ `"em_arrows(N)"' wid 1.0 at last [].s+(0,-0.20) below }
+ { em_arrows(ND,45) with .sw at last [].se+(hskip*1.5,0)
+ `"em_arrows(ND,45)"' at last [].s below }
+ { em_arrows(I) with .sw at last [].se+(hskip,0)
+ `"...(I)"' at last [].s+(0,-9bp__) below }
+ { em_arrows(ID) with .sw at last [].se+(hskip,0)
+ `"...(ID)"' at last [].s+(0,-2bp__) below }
+ { em_arrows(E) with .sw at last [].se+(hskip,0)
+ `"...(E)"' at last [].s+(0,-2bp__) below }
+ { em_arrows(ED) with .sw at last [].se+(hskip,0)
+ `"...(ED)"' wid .75 at last [].s+(0,-2bp__) below }
+ ]
+# box wid last [].wid ht last [].ht at last []
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/EmarrowsSVG.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/FlowSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/FlowSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/FlowSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,254 @@
+divert(-1)
+ FlowchartDefs.m4
+ `Some experimental flow-chart macros.
+ In the following, every subchart is in
+ [] brackets, with .N, .S, .E and .W
+ internally defined. Follow this convention
+ if you create compound constructs.
+
+ Generally, the first argument is one
+ or more strings; the second adjusts
+ the size, and the third can be used
+ to add color, dashed lines, labels,
+ or other embellishements. Default is
+ grey fill if arg3 is blank.
+
+ These macros have been renamed from earlier
+ versions because of slight differences of
+ arguments.'
+
+define(`FlowchartDefs_')
+
+ `Default sizes:'
+define(`fboxwid',linewid*2)
+define(`fboxht',linewid*0.75)
+define(`farrowht',linewid*0.5)
+
+ `Fbox( "text", wid expr ht expr,
+ attributes ) The basic task box: arg1 may
+ be 1 or more label strings. Attributes
+ include box line and fill specs.
+ To adjust the box size to the size of
+ the typeset text, see the \boxdims macro
+ in the manual. Example:
+ Fbox("svg_it(x svg_symbol(&`#'60;) 1)",,
+ shaded rgbstring(0.46,0.53,0.63))'
+define(`Fbox',`[ boxwid = fboxwid; boxht = fboxht
+ Box: box `$2' ifelse(`$3',,`fill_(fillval)',`$3') `$1'
+ N: Box.n; S:Box.s; E:Box.e; W: Box.w
+ `$4']')
+
+ `If-then
+ Ftest( "text", wid expr ht expr, attributes )'
+define(`Ftest',`[boxwid = fboxwid*0.8; boxht = fboxht*1.4
+ Box: box ifelse(`$2',,,`$2') invis
+ N: Box.n; S: Box.s; E: Box.e; W: Box.w
+ line from 0.5 between last box.n and last box.e \
+ to last box.e then to last box.s then to last box.w then to last box.n \
+ then to 0.5 between last box.n and last box.e \
+ ifelse(`$3',,`fill_(fillval)',`$3')
+ ifelse(`$1',,,`$1' at Box)
+ `$4']')
+
+ `case statement
+ Fcase(wid expr ht expr,
+ "Test string 1",task, ...,
+ "Test string n",task)'
+ `arg1 adjusts the size of the tests
+ A task is a flow subchart with internal names .E and .S defined
+ The test blocks are labeled Test1, Test2, ... and the tasks are
+ labeled Task1, Task2, ... '
+define(`Fcase',`[ down; S: Here; sx = S.x
+ Fcaseloop_(1,$@)
+ ifelse(`$2',,`E:S; W:S; N:S',
+ `E:(sx+linewid/2,Task1.E.y); W:Test1.W; N:Test1.N')
+ Fcasearrow_(1,$@)
+ arrow from E to (E,S) then to S ]')
+
+ define(`Fcaseloop_',`ifelse(`$3',,,
+ `Test`$1': Ftest(`$3',`$2') with .N at S
+ Task`$1': `$4' with .nw at Test`$1'.E+(linewid/2,min(Test`$1'.ht,fboxht)/2)
+ arrow right linewid/4 from Test`$1'.E \
+ then down Test`$1'.E.y-Task`$1'.W.y then to Task`$1'.W
+ S: (Test`$1'.S.x,min(Test`$1'.S.y,Task`$1'.S.y)-linewid/3)
+ ifelse(`$5',,`line',`arrow') from Test`$1'.S to S
+ sx = max(sx,Task`$1'.E.x)
+ Fcaseloop_(incr($1),`$2',shift(shift(shift(shift($@)))))')')
+ define(`Fcasearrow_',`ifelse(`$3',,,
+ `arrow from Task`$1'.E to (E,Task`$1'.E)
+ Fcasearrow_(incr($1),`$2',shift(shift(shift(shift($@)))))')')
+
+ `while statement with explicit test
+ Fwhiledo("test text", wid x ht y, attributes, task spec )
+ The task structure is given label Task '
+define(`Fwhiledo',`[ down
+ Test: Ftest(`$1',`$2',`$3')
+ arrow right linewid/2 from Test.E
+ Task: `$4' with .W at Here
+ E: Task.E; W: Test.w; S: Test.S
+ arrow up max(linewid/4,Test.n.y-Task.n.y+arrowht*1.5) \
+ from Task.N then left Task.x-Test.x
+ N: Here
+ arrow to Test.n
+ `$5']')
+
+ `repeat statement with explicit test
+ Frepeatuntil("test",wid x ht y,attributes, task spec )
+ The task structure is given label Task '
+define(`Frepeatuntil',`[ N: Here
+ Task: ifelse(`$4',,Here,`$4' with .N at N)
+ W: Task.W
+ arrow down linewid/3
+ Test: Ftest(`$1',`$2',`$3')
+ E: Task.E+(linewid/2+max(0,Test.e.x-Task.e.x),0)
+ arrow from Test.e to (E,Test) then to E then to Task.E
+ S: Test.S
+ `$5']')
+
+ `if-then-else
+ Fifthenelse( "test", wid x ht y, attributes,
+ left tasks, right tasks)
+ The left task structure is given label Ltask and the right
+ task structure is given label Rtask '
+define(`Fifthenelse',`[ Test: Ftest(`$1',`$2',`$3')
+ N: Test.N
+ Ltask: ifelse(`$4',,`Test.S; W:Test.W; LS:Ltask',
+ `$4 with .ne at ((Test.W.x+Test.x)/2,Test.S.y)
+ W: Ltask.W; LS:Ltask.S
+ arrow from Test.W to (Ltask.N,Test.W) then to Ltask.N')
+ Rtask: ifelse(`$5',,`Test.S; E:Test.E; RS:Rtask',
+ `$5 with .nw at ((Test.E.x+Test.x)/2,Test.S.y)
+ E: Rtask.E; RS: Rtask.S
+ arrow from Test.E to (Rtask.N,Test.E) then to Rtask.N')
+ S: (Test.x,min(LS.y,RS.y)-linewid/3)
+ arrow from LS to (LS,S)
+ arrow from RS to (RS,S)
+ line to (LS,Here)
+ `$6']')
+
+divert(0)dnl
+.PS
+# Here is a test file exercising the above definitions
+gen_init(svg_font(sans-serif,11bp__,2.5bp__))
+
+# Could use xcolor with option dvipsnames but define color here for portability
+define(`Thistle',`rgbstring(0.85,0.75,0.85)')dnl
+define(`RubineRed',`rgbstring(0.81,0,0.35)')dnl
+define(`YellowGreen',`rgbstring(0.68,1,0.18)')dnl
+define(`SeaGreen',`rgbstring(0.13,0.70,0.67)')dnl
+define(`Goldenrod',`rgbstring(0.85,0.65,0.13)')dnl
+
+# Accented characters
+define(`svg_ccedilla',`svg_symbol(&`#'231;)')dnl
+define(`svg_atilde',`svg_symbol(&`#'227;)')dnl
+
+ linethick_(1.0)
+ arrowwid = 0.05
+ arrowht = 0.1
+ fillval = 0.8
+ down
+
+Case: Fcase(,
+ "Test 1",[Fbox("Task 1",, shaded Thistle); W:last [].W; N:last [].N
+ arrow down linewid/3 from last [].S
+ Fbox("Task 1.5",, shaded Thistle) with .N at Here
+ E:last [].E; S:last [].S],
+ "Test 2",Fbox("Task 2" "is bigger", wid fboxwid*1.2 ht fboxht*3/2, \
+ shaded SeaGreen),
+ "Test 3",Fbox("Task 3",, shaded RubineRed)dnl
+ )
+
+ "svg_it(.N)" at Case.N rjust above
+ "svg_it(.S)" at Case.S rjust below
+ "svg_it(.E)" at Case.E ljust
+ "svg_it(.W)" at Case.W rjust
+ "svg_it(Case statement)" below at Case.s+(0,-0.2)
+ move to Case.nw+(-12bp__,10bp__)
+
+Whiledo: Fwhiledo("svg_it(i svg_lt n)",,,Fbox("Task"),
+ "T" above ljust at Test.E) \
+ with .nw at Case.ne+(0.25,0)
+
+ "svg_it(.N)" at Whiledo.N rjust
+ "svg_it(.S)" at Whiledo.S rjust below
+ "svg_it(.E)" at Whiledo.E ljust
+ "svg_it(.W)" at Whiledo.W rjust
+ "svg_it(While-do)" below at Whiledo.s+(0,-0.2)
+
+Repeatuntil: Frepeatuntil("svg_it(n svg_geq 5)",,,Fbox("Task"),
+ "T" at Test.E above ljust) with .nw at Whiledo.sw + (0.25,-1)
+
+ "svg_it(.N)" at Repeatuntil.N rjust above
+ "svg_it(.S)" at Repeatuntil.S rjust below
+ "svg_it(.E)" at Repeatuntil.E ljust
+ "svg_it(.W)" at Repeatuntil.W rjust
+ "svg_it(Repeat-until)" below at Repeatuntil.s+(0,-0.2)
+
+Ifthenelse: Fifthenelse("svg_it(A`'svg_lt`'B)",,,
+ Fbox("False"),
+ Fbox("True",ht fboxht*1.2 wid fboxwid)dnl
+ ) with .nw at Repeatuntil.sw +(0.5,-0.5)
+
+ "svg_it(.N)" at Ifthenelse.N rjust above;
+ "svg_it(.S)" at Ifthenelse.S below rjust
+ "svg_it(.E)" at Ifthenelse.E ljust
+ "svg_it(.W)" at Ifthenelse.W rjust
+ "svg_it(If-then-else)" at Ifthenelse.s+(0,-0.3) \
+ "svg_it((the True and False tasks are optional))"
+
+# Compound statement:
+[ right
+ ellipse shaded YellowGreen "Start"
+ arrow right linewid/2
+
+ Fbox("First task") with .W at Here
+ arrow down linewid/2 from last [].S
+
+ Fifthenelse("Test 1",,,
+ Frepeatuntil("svg_it(i svg_geq 5)",,shaded Goldenrod,Fbox("Task")),
+ Fifthenelse("svg_it(A svg_lt B)",,shaded Goldenrod,
+ Fbox("Left"),
+ Fbox("Right"),
+ "T" at Test.E above ljust),
+ "T" at Test.E above ljust) with .N at Here
+
+ A: arrow down 0.25 from last [].S ] with .nw at Case.sw + (-12bp__,-0.7)
+
+ "svg_it(Compound statement)" below at last [].A.end
+
+Example: [ fillvalue = 0.8; awid = linewid/2; right_
+ Start: ellipse wid boxwid/2 ht boxwid/3 shaded "green"
+ arrow right_ awid
+ B1: Fbox("Planejamento")
+ B2: Fbox("Execu`'svg_ccedilla`'svg_atilde`'o") \
+ with .W at B1.E+(awid*3,0)
+ B3: Fbox("Sele`'svg_ccedilla`'svg_atilde`'o") \
+ with .W at B2.E+(awid*3,0)
+ LT: Ftest("Avalia`'svg_ccedilla`'svg_atilde`'o do" "Planejamento",
+ wid fboxwid*1.5 ht fboxht*2.0,
+ shaded YellowGreen,
+ "Correto" at Box.e above ljust;
+ "Incompleto" at Box.w above rjust) with .S at 0.5 between B1.ne and B2.nw
+ arrow from B1.E to (LT.S,B1.E) then to LT.S
+ arrow from LT.W to (B1.N,LT.W) then to B1.N
+ arrow from LT.E to (B2.N,LT.E) then to B2.N
+ RT: Ftest("Avalia`'svg_ccedilla`'svg_atilde`'o da" \
+ "Execu`'svg_ccedilla`'svg_atilde`'o",
+ wid fboxwid*1.5 ht fboxht*2.0,
+ shaded YellowGreen,
+ "Correto" at Box.e below ljust;
+ "Incompleto" at Box.w below rjust) with .N at 0.5 between B2.se and B3.sw
+ arrow from B2.E to (RT.N,B2.E) then to RT.N
+ arrow from RT.W to (B2.S,RT.W) then to B2.S
+ arrow from RT.E to (B3.S,RT.E) then to B3.S
+ B4: Fbox("Extra`'svg_ccedilla`'svg_atilde`'o") \
+ with .S at B3.N+(0,awid)
+ arrow from B3.N to B4.S
+ arrow right_ awid from B4.E
+ B5: Fbox("Conclus`'svg_atilde`'o")
+ ellipse wid boxwid/2 ht boxwid/3 shaded "red" at (B5.S,Start)
+ arrow down_ awid from B5.S to last ellipse.n
+] with .nw at last [].sw+(0,-fboxht)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/FlowSVG.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/FontsSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/FontsSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/FontsSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,28 @@
+.PS
+# FontsSVG.m4
+gen_init
+ textht = 0.2
+
+define(`ft',`{ svg_font(`$1',`$2',`$3',"`$1'")}; move down 0.5; right_')
+
+B: box wid 4 ht 7
+ move to B.nw+(2,-0.5)
+
+ ft(Arial)
+ ft(Helvetica)
+ ft(Times)
+ ft(Courier)
+ ft(Cursive)
+ ft(Verdana)
+ ft(Georgia)
+ ft(Palatino)
+ ft(Garamond)
+ ft(Bookman)
+# ft(Comic Sans MS)
+ ft(Trebuchet MS)
+ ft(Arial Black)
+ ft(Impact)
+
+ textht = 0.1
+ "These may be vewer-dependent" above ljust at B.sw
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/FontsSVG.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/FusesSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/FusesSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/FusesSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,33 @@
+.PS
+# `FusesSVG.m4'
+cct_init(svg_font(sans-serif,11bp__))
+
+movewid = 0.25
+
+ {fuse ; {"`fuse'" at last line.c+(0,-0.2)}
+ move
+ fuse(,D) ; {"`fuse(,D)'" at last line.c+(0,-0.2)}
+ move
+ fuse(,B) ; {"`fuse(,B)'" at last line.c+(0,-0.2)}
+ move
+ fuse(,C) ; {"`fuse(,C)'" at last line.c+(0,-0.2)}
+ move
+ fuse(,S) ; {"`fuse(,S)'" at last line.c+(0,-0.2)}
+ move
+ fuse(,HB) ; {"`fuse(,HB)'" at last line.c+(0,-0.2)}
+ }
+ move down; right_
+ fuse(,HC,0.5,0.3) ; {"`(,HC,0.5,0.3)'" ljust at last line.start+(0,-0.25)}
+ move
+ cbreaker; {"`cbreaker'" at last line.c+(0,-0.25)}
+ move
+ cbreaker(,R); {"`cbreaker(,R)'" at last line.c+(0,-0.25)}
+ move
+ cbreaker(,,D); {"`...(,,D)'" at last line.c+(0,-0.25)}
+ move
+ cbreaker(,,T); {"`...(,,T)'" at last line.c+(0,-0.25)}
+ move
+ cbreaker(,,TS); {"`...(,,TS)'" at last line.c+(0,-0.25)}
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/FusesSVG.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/GroundsSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/GroundsSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/GroundsSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,40 @@
+.PS
+# `GroundsSVG.m4'
+cct_init(svg_font(sans-serif,11bp__))
+
+sep = 0.65
+Ground: ground
+ move right sep
+GT: ground(,T)
+ move right sep
+GF: ground(,,F)
+ move right sep
+GE: ground(,,E)
+ move right sep
+
+B: Here+(0,-0.5) ; {
+ "`ground'" wid 36bp__ at (Ground,B)
+ "`ground'(,T)" at (GT,B)+(0,12bp__)
+ "(,,F)" at (GF,B)
+ "(,,E)" at (GE,B)}
+
+
+GS: ground(,,S)
+ move right sep
+GS90: [ground(,,S,90) ] with .n at Here
+ move right sep from GS90.n
+GQ: ground(,,Q)
+ move right sep
+GL: ground(,,L)
+ move right sep
+GP: ground(,,P)
+
+C: Here+(0,-0.5)
+ "(,,S)" at (GS,C)
+ "(,,S,90)" at (GS90,C)
+ "(,,Q)" at (GQ,C)
+ "(,,L)" at (GL,C)
+ "(,,P)" at (GP,C)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/GroundsSVG.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/HeadersSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/HeadersSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/HeadersSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,38 @@
+.PS
+# HeadersSVG.m4
+log_init(svg_font(sans-serif,10bp__))
+
+ Header
+ {"svg_it(P1)" wid 15bp__ at last [].P1 rjust
+ `"Header"' wid 45bp__ at last [].s+(0,-10pt__)
+ "svg_it(P2)" at last [].P2 rjust}
+
+ Header(2,3,8mm__,10mm__) with .nw at last [].ne+(0.75,-0.05)
+ {"svg_it(P1)" at last [].P1 rjust
+ "`Header(2,3,8mm__,10mm__)'" at last [].s+(0,-10pt__)
+ "svg_it(P2)" at last [].P2 ljust
+ "svg_it(P5)" at last [].P5 rjust
+ "svg_it(P6)" at last [].P6 ljust}
+
+ left_
+ Header(2,4,,,fill_(0.9)) with .sw at last [].se+(0.75,0)
+ {"svg_it(P1)" at last [].P1 rjust_
+ "`left_; Header(2,4,,,fill_(0.9))'" at last [].s+(0,-23pt__)
+ "svg_it(P8)" at last [].P8 ljust_}
+
+ down_
+ Header(2,8) with .nw at last [].ne+(0.75,0)
+ {"svg_it(P1)" at last [].P1 ljust
+ "svg_it(P2)" at last [].P2 ljust
+ "`down_; Header'(2,8)" at last [].s+(0,-10pt__)
+ "svg_it(P15)" at last [].P15 rjust
+ "svg_it(P16)" at last [].P16 rjust}
+ {thinlines_
+ arrow <- right 0.15 from last [].PinP1.e ; {move right 0.45}
+ "svg_it(PinP1)" ljust
+ arrow <- right 0.15 from last [].PinP2.e
+ "svg_it(PinP2)" ljust
+ thicklines_ }
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/HeadersSVG.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/HeathkitSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/HeathkitSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/HeathkitSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,343 @@
+.PS
+cct_init(svg_font(Helvetica,7pt__))
+# HeathkitSVG.m4
+# Landscape
+maxpswid = 11
+maxpsht = 8.5
+
+# llabel and rlabel without math mode
+define(`Llabel',`llabel(
+ ifelse(`$1',,,`m4lstring(`$1',"`$1'")'),
+ ifelse(`$2',,,`m4lstring(`$2',"`$2'")'),
+ ifelse(`$3',,,`m4lstring(`$3',"`$3'")'))')
+define(`Rlabel',`rlabel(
+ ifelse(`$1',,,`m4lstring(`$1',"`$1'")'),
+ ifelse(`$2',,,`m4lstring(`$2',"`$2'")'),
+ ifelse(`$3',,,`m4lstring(`$3',"`$3'")'))')
+
+# Grid parameters
+ picwid = 8.5
+ picht = 6
+ g = 1/12
+
+# Element scaling
+ linewid = 8*g
+define(`dimen_',dimen_*4/5)
+# Default sizes
+ boxwid = 2*g
+ boxht = 2*g
+ arrowht = arrowht*2/3
+
+# Grid
+ linethick_(0.4)
+ 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 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 }
+ move left 2*g from (0,0)
+ linethick_(0.8)
+
+ spline outlined "white" shaded "white" \
+ from (0,picht+g) down g then down picht/5 then right picwid/5
+ for i=1 to 4 do { continue down picht/5 then right picwid/5 }
+ continue right 2*g then up 2*g
+ continue up picht-2*g then up g then left g
+
+# Place the bottom inductor on the grid
+ I1: inductor(down_ 13*g from (80,22)*g,,13,,g)
+ I2: inductor(down_ 10*g from I1.start+(0,21*g),,10,,g)
+ I3: inductor(down_ 10*g from I2.start+(0,12)*g,,10,M,g)
+ line from M4Core1.end to (M4Core1,I1.end)
+ line from M4Core2.end to (M4Core2,I1.end)
+ Scrn: 2 between M4Core1.start and M4Core2.start
+ line dashed from Scrn to (Scrn,I1.end)
+ ground
+ I4: inductor(up_ 5*g from (Scrn.x+M4Core1.x-I2.x,I2.start.y-2*g),,5,,g)
+ I5: inductor(up_ 5*g from (I4,I2.end+(0,g)),,5,,g)
+
+# Circuit board
+ Board: box dashed thick 2 wid 58*g ht 55*g with .se at I1.end+(-7,-2)*g
+ P: box invis wid 12*g ht 4*g with .s at Board.sw+(26*g,0) \
+ "POWER SUPPLY" "CIRCUIT BOARD"
+ line dashed thick 2 from P.sw to P.nw; line dashed thick 2 to P.ne
+ line dashed thick 2 to P.se
+
+define Pad { P`$1': box fill_(1) "$1" }
+# Board connections on the right
+ Pad(1) at (Board.e,I1.end)
+ line from P1.e to I1.end "RED" above
+ Pad(2) at (Board.e,I1.start)
+ line from P2.e to I1.start "RED" above
+ Pad(3) at (Board.e,I2.end)
+ GRN1: line left 4*g from I2.start "GRN" above ; ground
+ GRN2: line from P3.e to I2.end "GRN" above
+ spline <-> from GRN2.end+(-g,0) up 2.5*g right 0.5*g then up 5*g left g \
+ then up 2.5*g right 0.5*g
+ box invis fill_(1) wid 3*g ht g "6 VAC" at I2-(2*g,0)
+ Pad(4) at P3-(0,3)*g
+ line right_ 3*g from P4.e "BRN" above
+ arrow down_ 2*g ht arrowht*2/3
+ "TO DIAL" "LAMPS" at Here+(0,-g)
+ Pad(5) at (Board.e,I3.end)
+ line from P5.e to I3.end "BLU" above
+ Pad(7) at (Board.e,I3.start)
+ line from P7.e to I3.start "BLU" above
+ Pad(6) at 0.5 between P5 and P7
+ line from P6.e to I3 "BLU-YEL" above
+
+# Power wiring, plug, switch
+define(`socket',`[
+ Outer: box wid dimen_*2/3 ht dimen_/2*3/4
+ L: box wid dimen_/16 ht dimen_/4 at Outer-(dimen_/6,0)
+ R: box wid dimen_/16 ht dimen_/4 at Outer+(dimen_/6,0)
+ line from Outer.w to L.w
+ line from Outer.e to R.e
+ ] ')
+
+ BLK: line from I4.end to (int(I4.end.x/g+8)*g,I4.end.y) "BLK" below ; dot
+ b = lin_leng(BLK)
+ BLKYEL: line from I4.start right_ b "BLK-YEL" above ; dot
+ BLKGRN: line from I5.end right_ b "BLK-GRN" below ; dot
+ BLKRED: line from I5.start right_ b "BLK-RED" above ; dot
+ line right_ g; PL: dot
+ line from BLKYEL.end right g then to Here+(0,-g)
+ fuse(down_ 3*g,D)
+ {"3 A FUSE" "SLOW BLOW" at last line+(-5*g,0) }
+ line to (Here.x,int(Here.y/g)*g-g); dot
+ Sckt1: socket at Here+(5,0)*g
+ line from Sckt1.w to (PL,Sckt1); A: dot; "A" rjust
+ line from Sckt1.e right_ lin_leng(last line); B: dot; "B" ljust
+ Sckt2: socket at (Sckt1,P1+(0,6)*g)
+ line from Sckt2.w to (A,Sckt2); dot
+ line from Sckt2.e to (B,Sckt2); dot
+ Sckt3: socket at (Sckt1,P1+(0,2)*g)
+ line from Sckt3.w to (A,Sckt3); dot
+ line from Sckt3.e to (B,Sckt3); dot
+
+define(`plug',`[ w = dimen_*2/3; q = 0.25*w
+ F: line right_ w
+ arc cw from F.start to F.end with .c at F
+ T1: F+(-q,w/2+g/2)
+ T2: F+( q,w/2+g/2)
+ line from T1 to (T1,F)-(0,2*g)
+ line from T2 to (T2,F)-(0,2*g) ]')
+
+ PP: plug with .F at Sckt3+(0,-8)*g
+ {"120 VAC" ljust "50/60 Hz" ljust at PP.e }
+
+define(`pwrswitch',`[ right; circlerad = 1.75*g/2
+ C1: circle "1"
+ C4: circle "4"
+ C2: circle "2" with .n at C1.s+(0,-C1.diam/2)
+ C5: circle "5"
+ C3: circle "3" with .n at C2.s+(0,-C1.diam/2)
+ C6: circle "6"
+ hatchbox(wid g ht C2.n.y-C3.s.y,0.05) with .w at 0.5 between C5.e and C6.e
+ ]')
+
+ Psw: pwrswitch with .C4.e at Sckt1+(0,-4*g)
+ "POWER" at Psw.w+(-2*g,0) rjust
+ arrow up Psw.ht/2 at Psw.e+(1.5*g,0)
+ "ON" above; "OFF" at last arrow.start below
+ line from Psw.C1.w to (A,Psw.C1) then to A
+ line from Psw.C2.w to (A,Psw.C2); continue to (Here,PP.T1) then to PP.T1
+ line from PP.T2 to (B,PP.T2) then to (B,I4.end) then to I4.end
+ line from BLKGRN.end to (B,BLKGRN); dot
+
+# Bottom connections
+ Pad(25) at Board.se+(-3,0)*g
+ R516: resistor(down_ 6*g from P25.s)
+ {"R516" "22" at last line+(-2*g,0)} ; ground(,T)
+ dot(at P25.s+(0,-g)); line right_ 5*g
+ reversed(`source',down_ 4*g,B)
+ {"#49" ljust "HI" ljust "TEMP" ljust at last line+(2*g,0) }
+ line to (P25,Here); dot
+ t = linethick; linethick_(0.4)
+ arrow <- from P25.s+(0,-g/2) right_ 2*g up_ g/4; "BRN" ljust; linethick_(t)
+
+ Pad(24) at P25+(-4,0)*g
+ line from P24.s to (P24,R516.end); ground(,T)
+ Pad(23) at Board.sw+(12*g,0)
+ line from P23.s to (P23,R516.end); ground(,T)
+
+ Pad(22) at Board.sw+(0,3)*g
+ R514: resistor(right_ 8*g from P22.e); Llabel(,R514); Rlabel(,680 K)
+ dot; { ground }
+ line to (P23,Here) then to P23.n
+
+# Diode bridge
+ BE: dot(at (P24,I1))
+ d1h = lin_leng(I1)/2
+ diode(left_ d1h up_ d1h); Rlabel(,,D508)
+ BN: dot
+ diode(left_ d1h down_ d1h); Rlabel(D506)
+ BW: dot
+ diode(from BE left_ d1h down_ d1h); Llabel(,,D509)
+ BS: dot
+ diode(left_ d1h up_ d1h); Llabel(D507)
+ capacitor(down_ from BN to BS,C); Llabel(C507,,.22)
+ line from BE to P24.n
+ line from BN to P2.w
+ line from BS to P1.w
+ spline <-> from (BE.x+2*g,BS.y) \
+ up d1h/2 right g/2 then up d1h left g then up d1h/2 right g/2
+ box invis fill_(1) ht 2*g wid 2*g "57" "VAC" at last spline
+
+# Left board connections
+ Pad(21) at (Board.w,BW); line from P21.e to BW
+ Pad(19) at P21+(0,-3*g)
+ Pad(20) at P21+(0, 3*g)
+
+# Transistor with circles
+define(`hbi_tr',`[ linewid = linewid*4/4.16
+ Q: bi_tr(`$1',`$2',`$3',E)
+ E: circle rad m4_xyU at 5/4 between Q.A1 and Q.E "E"
+ B: circle rad m4_xyU at 5/4 between Q.A1 and Q.B "B"
+ C: circle rad m4_xyU at 5/4 between Q.A1 and Q.C "C"
+ ]')
+
+# Interior circuits
+ line from P6.w left 2*g; ground
+ line from P5.w left 4*g; dot
+ { C504: capacitor(down_ 4*g,C); Llabel(C504,,.22); ground(,T) }
+ D504: diode(left_ 5*g); Rlabel(,D504); dot
+ { C505: capacitor(down_ to (Here,C504.end),C+L)
+ Rlabel(C505,100,75 V); ground(,T) }
+ line right_ to (Here,P7); dot
+ { D503: reversed(`diode',to (D504.start,Here)); Llabel(,D503); line to P7.w }
+ d3 = lin_leng(I3)
+ spline <-> from C504.start+(g/2,0) \
+ up d3/4 right g/4 then up d3*2/4 left g/2 then up d3/4 right g/4
+ box invis fill_(1) ht g wid 4*g "100 VAC" at last spline+(-g,0)
+
+ down_
+ Q503: hbi_tr(,R,P) with .E at (C505,P3)
+ line from Q503.C.e to (P25,Q503.C) then to P25.n
+ line from Q503.B.s to (Q503.B.x,Q503.E.y-4*g)
+ R513: resistor(down_ 5*g)
+ {"R513" ljust "1500" ljust at last [].e}; ground(,T)
+ line from P19.e to (BW-(2*g,0),P19) then up Q503.E.y-P19.y+2*g
+ R511: resistor(right_ 5*g); Llabel(,R511); Rlabel(,470);
+ line to (Q503.E,Here) then to Q503.E.n
+ line from P20.e to (BW,P20) then up R513.end.y-P20.y
+ resistor(up_ lin_leng(R513))
+ {"R512" ljust "5600" ljust "1 W" ljust at last [].e}
+ line to (Here,Q503.B) then to Q503.B.w
+ "Q503" "S2091 HI TEMP" "CONTROL" at Q503.E+(1.5,4)*g
+ D505: reversed(`diode',right_ from Q503.E.e to (C504,Q503.E)); Llabel(,D505)
+ line to P3.w
+
+ line from P4.w left_ 2*g then up P3.y-P4.y; dot
+ line from D503.end to (R513,D503); dot
+ { Pad(8) at (Here,Board.n) }
+ { line to P8.s }
+ R505: resistor(down_ to (Here,P6)); Llabel(,"R505" ljust "12 K"); dot
+ { C503: capacitor(down_ to (Here,C505.end),C+L)
+ Rlabel(C503,100,70 V); ground(,T) }
+ right_
+ Q502: hbi_tr(,R) with .B at (R511.start,Here)
+ line from Q502.C.e to R505.start
+ line from Q502.B.e to R505.end
+ R504: resistor(down_ from Q502.B.s to (Q502.B,C505.end))
+ {"R504" ljust "51 K" ljust at last [].e}; ground(,T)
+ "Q502" "TA7311" "REGULATOR" "CONTROL" at Q502.C+(-1,3)*g
+
+ Pad(9) at (Q502.E,Board.n)
+ line from Q502.E.n to P9.s
+ Pad(10) at (Q502.B-(9,0)*g,Board.n)
+ R502: resistor(left_ from Q502.E.w to (P10,Q502.E))
+ Rlabel(,R502); Llabel(,150); dot
+
+ Pad(11) at (Board.w,Q502.E)
+ Pad(14) at P11+(0,2.5)*g
+ Pad(12) at P11+(0,-2.5)*g
+ Pad(13) at P12+(0,-2.5)*g
+ line right 2*g from P13.e then up P11.y-P13.y; dot
+ line from P12.e to (Here,P12); dot
+ Pad(15) at P13+(0,-3)*g
+
+ right_
+ Q501: hbi_tr(,R) with .B at P9.n+(0,2*g)
+ line from Q501.B.s to P9.n
+ line from Q501.C.e to (P8,Q501.C) then to P8.n
+ line from Q501.E.w to (P10,Q501.E) then to P10.n
+ "Q501" "2N3055" "REGULATOR" at Q501.n+(0,2)*g
+ line from P14.e to (P10,P14); dot
+
+ Pad(17) at (Board.w,R511)
+ Pad(16) at P17+(0,3*g)
+ Pad(18) at P17+(0,-3*g)
+ line right 2*g from P18.e then up P17.y-P18.y; dot
+
+ right_
+ Q504: hbi_tr(,R) with .C at (P10,P17)
+ line from P17.e to Q504.E.w
+ line from Q504.B.s to (Q504.B,R513.start)
+ R508:resistor(down_ to (Here,R513.end))
+ {"R508" ljust "680" ljust at last [].e}; ground(,T)
+ dot(at (P10,P15))
+ { line to P10.s }
+ { resistor(down_ 5*g); {"225" ljust "10 W" ljust "5 %" ljust at last [].e}
+ line to Q504.C.n }
+ R503:resistor(left_ 10*g); Rlabel(,R503); Llabel(,290 10 W 5%); dot
+ line to (Here,Q504.B)
+ resistor(right_ to Q504.B.w); Llabel(,R507); Rlabel(,100)
+ line from P15.e to R503.end
+ "Q504" "40409" "REGULATOR" at Q504.C+(3.5,3)*g
+ resistor(left_ from R502.end to (R503.end,P11))
+ Rlabel(,R501); Llabel(,390 5W 5%); line to P11.e
+
+ resistor(right_ from P16.e to (R514.end,P16)); Llabel(,R506); Rlabel(,82)
+ line down P16.y-P17.y; dot
+
+ dot(at (R514.end,P11))
+ C501: capacitor(down_ 6*g,C+)
+ Llabel(C501); {"100" ljust "30 V" ljust at last [].s +(0,-g)}
+ ground(,T)
+ dot(at (Here.x+4*g,P11.y))
+ ZD501: reversed(`diode',down_ lin_leng(C501),Z); Llabel(ZD501); ground(,T)
+
+ dot(at (R514.end,P15))
+ C502: capacitor(down_ 6*g,C+)
+ Llabel(C502); {"100" ljust "30 V" ljust at last [].s +(0,-g)}
+ ground(,T)
+ dot(at (Here.x+4*g,P15.y))
+ ZD502: reversed(`diode',down_ lin_leng(C502),Z); Llabel(ZD502); ground(,T)
+
+ line from (C502,P17) to (C502,R508.start+(0,g))
+ C506: capacitor(down_ to (Here,R508.end),C+)
+ Llabel(C506); {"100" ljust "30 V" ljust at last [].s +(0,-g)}
+ ground(,T)
+
+# Left-side boxes
+ boxwid = 10*g
+ boxht = 5*g
+ line left 3*g from P22.w "GRY" above
+ line left 3*g from P19.w "VIOL" above
+ box with .e at (Here,0.5 between P19 and P22) "TO SIGNAL" "METER CIRCUIT"
+
+ line left 8*g from P21.w "RED TO C508" above
+ line left 8*g from P20.w "VIOL" above
+
+ line left 3*g from P17.w "RED" above
+ line left 3*g from P18.w; {"WHT-" ljust "RED" ljust at Here+(0,g) }
+ box with .e at (Here,0.5 between P17 and P18) "12.7 V SOURCE" "TO MULTIPLEX"
+
+ line left 3*g from P16.w "WHT" above
+ box with .se at Here+(0,-g) "12 V SOURCE" "TO FM TUNER" "SOURCE SWITCH"
+
+ line left 3*g from P15.w "ORG" above
+ box ht 3*g with .e at Here "15 V SOURCE" "TO FM TUNER"
+
+ line left 3*g from P13.w "BLU" above
+ line left 3*g from P12.w; {"WHT-" ljust "RED" ljust at Here+(0,g) }
+ line left 3*g from P11.w "RED" above
+ box ht 6*g with .e at (Here,P12) "27 V SOURCE" "TO CONTROL" "PREAMP AND" \
+ "PWR AMPLIFIER"
+
+ line left 3*g from P14.w
+ {"WHT-" ljust "GRY-" ljust "GRN" ljust at Here+(0,1.5*g) }
+ box with .se at Here+(0,-g) "50 V SOURCE" "TO PHONO" "PREAMP"
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/HeathkitSVG.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/I2LSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/I2LSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/I2LSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,78 @@
+.PS
+# I2L.m4
+log_init(svg_font(sans-serif,11bp__))
+
+[
+ down_
+T1: bi_trans(,R,BC2uEBU)
+ dy = T1.C0.y-T1.C1.y
+ dx = T1.C0.x-T1.Bulk.x
+ up_
+Q1: bi_trans(,,BC1dEBU) with .C1 at (T1.C2.x+dy+dx+dx,T1.C0.y-dy)
+Q2: bi_trans(,,BC1dEBU) with .C1 at Q1.E+(0,-dy*2)
+Q3: bi_tr(,,) with .B at Q2.C0+(2*dy,0)
+ down_
+T2: bi_trans(,R,BC1uEBU) with .C1 at (Q3.C.x+2*dx+2*dy,Q1.C0.y+dy)
+ up_
+X1: bi_tr(,,) with .B at (T2.C0.x+dy+dx,Q1.C0.y)
+X2: bi_tr(,,) with .B at (X1.B,Q3.C)
+
+ line down dx from Q2.E
+G: dot
+ line from T1.B to (T1.B,G) then to (X1.E.x+dy,G.y) then to X1.E+(dy,0) \
+ then to X1.E
+ line from X2.E right dy; dot
+
+ line from Q1.E down dy then to (T1.B.x,Q1.E.y-dy); dot
+ line from T1.C0 to (Q3.B,T1.C0) then to Q3.B; dot; line to Q2.C0
+
+A: dot(at (T1.B,Q1.B)-(dx,0)); { "svg_it(A)" wid 0.15 rjust }
+ line to Q1.B
+ line from T1.C2 to (T1.C2,Q1.B); dot
+
+ line from Q2.B to (A,Q2.B); dot; { "svg_it(B)" rjust }
+ line right dy from T1.C1 then down T1.C1.y-Q2.B.y; dot
+
+VB: dot(at (T2.E.x+2*dx,T1.E.y+dy)); { "svg_it(V`'svg_sub(B))" ljust }
+ line to (T1.E,Here) then to T1.E
+ line from T2.E to (T2.E,VB); dot
+
+ line from Q1.C1 to (Q3.C,Q1.C1) then to Q3.C; dot; line to X2.B
+
+ line from Q1.C0 to X1.B
+ dot(at Q1.C0+(dy,0)); line to (Here,Q2.C1) then to Q2.C1
+
+ line from Q3.E to (Q3.E,G); dot; ground
+
+ line from T2.B to (T2.B,G); dot
+
+ line from T2.C1 to (T2.C1,X1.B); dot
+ "svg_it(~(A+B))" wid textht*1.5 below at Here+(0,-2pt__)
+
+ line from T2.C0 to (X2.B,T2.C0) then to X2.B; dot
+ "svg_it(~(A+(~B)))" below at (T2.E,Here)+(0pt__,-2pt__)
+
+]
+
+[
+right_
+
+jog = AND_ht/2*L_unit
+
+ X1: NOR_gate
+ line right jog from X1.Out; "svg_it(~(A+B))" ljust
+ X2: NOR_gate at X1+svec_(0,-AND_ht*3/2)
+ line right jog from X2.Out; "svg_it(~(A+(~B)))" ljust
+ line left jog from X2.In2
+ right_
+ NOT: NOT_gate with .Out at Here
+ line left jog from NOT.In1 then up X1.In2.y-NOT.In1.y; dot
+ line from X1.In2 to Here chop 0 chop -jog
+ B: dot; "svg_it(B)" rjust
+ line from X1.In1 to (B,X1.In1); dot; "svg_it(A)" wid 0.15 rjust
+ line left jog from X2.In1 then up X1.In1.y-X2.In1.y; dot
+
+] with .e at last [].w-(1,0)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/I2LSVG.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/Incl.jpg
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Incl.jpg
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Incl.jpg 2019-09-05 22:25:35 UTC (rev 52034)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Incl.jpg 2019-09-05 22:33:48 UTC (rev 52035)
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Incl.jpg
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/octet-stream
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/InclepsSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/InclepsSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/InclepsSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,90 @@
+.PS
+# InclepsSVG.m4 : Illustrating one way to import and overwrite jpg in svg
+# A bit messy, but it works. This file has to be processed
+# by m4 in the usual way and then twice by dpic, eg
+# m4 svg.m4 SVGconfig.m4 InclepsSVG.m4 > InclepsSVG.pic
+# dpic -v InclepsSVG.pic > InclepsSVG.svg
+# dpic -v InclepsSVG.pic > InclepsSVG.svg
+
+# The double processing is needed because svg coordinates are to the right
+# and down. We have to store the coordinates of the nw corner and use them
+# on the second pass.
+
+divert(-1)
+######################################################################
+# Macros to simplify inclusion and positioning of raster image files such
+# as png or jpg or files with mime type of "image/svg+xml"
+
+ `svg_init_include([Unique_name])
+ Put this (once) before all drawing commands
+ in the diagram. It opens a [] block for the
+ total diagram and creates the file
+ Unique_name.dim (default SVGinsertTemp.dim).'
+define(`svg_init_include',
+`define(`M4IP_uniq',`ifelse(`$1',,SVGinsertTemp,`$1')')dnl
+ M4IP_NW: (0,0); m4IP_nw = 0; m4IP_lth = lthick
+ sh "touch M4IP_uniq.dim"
+ copy "M4IP_uniq.dim"
+ [ M4IP_NW: M4IP_NW; { move to M4IP_NW } ')
+
+ `svg_include(filename, wid, ht, [position],[attrib])
+ Insert bitmap at specified position; also create
+ an invis box of the same size and location.
+ arg1= path to image file
+ arg2= picture width in drawing units
+ arg3= picture height in drawing units
+ arg4= position attribute e.g.
+ Pic: svg_include(Incl.jpg,2,3, with .sw at (1,4))
+ arg5= additional svg image attributes in the sprintf
+ string, e.g.
+ clip-path=\"polygon(5%% 0%%, 100%% 0%%, 100%% 100%%, 5%% 100%%)\" (distances
+ in percent to top-left, top-right, bottom-right, bottom-left clip corners,
+ or in pixels) '
+define(`svg_include',`box invis wid `$2' ht `$3' `$4'
+define(`m4xpx',`(last box.w.x-M4IP_NW.x+m4IP_lth/2)/(1px__)')dnl
+define(`m4ypx',`(M4IP_NW.y-last box.n.y+m4IP_lth/2)/(1px__)')dnl
+define(`m4wdpx',`(`$2')/(1px__)')dnl
+define(`m4htpx',`(`$3')/(1px__)')dnl
+if m4IP_nw then { command sprintf(\
+ "<image x=\"%g\" y=\"%g\" width=\"%g\" height=\"%g\"dnl
+ xlink:href=\"`$1'\" `$5' />", m4xpx,m4ypx,m4wdpx,m4htpx) } ')
+
+ `svg_end_include
+ Put this before .PE after all drawing commands.
+ It closes the [] block and writes to Unique_name.dim'
+define(`svg_end_include',`] with .M4IP_NW at M4IP_NW
+ print sprintf("m4IP_nw=1; m4IP_lth=%g; M4IP_NW:(%g,%g)",lthick,\
+ last [].w.x+3*m4IP_lth/2, last [].n.y+3*m4IP_lth/2) > "M4IP_uniq.dim"
+ undefine(`M4IP_uniq') ')
+
+######################################################################
+divert(0)dnl
+
+darrow_init
+svg_init_include
+
+
+# This jpg is 242 px x 321 px
+ Picture: svg_include(Incl.jpg, 242px__, 321px__, with .w at (1,0))
+
+ define(`backarrow',`darrow(`$1',,,2pt__,6pt__,6pt__,<-|)')
+ thinlines_
+ backarrow( from boxcoord(Picture,0.4,0.95) up 0.4 right 0.7 )
+ "Basket" wid 0.45 with .w at Here+(2bp__,0)
+ backarrow( from boxcoord(Picture,0.9,0.41) up 0.2 right 0.5 )
+ "Ball" wid 0.3 with .w at Here+(2bp__,0)
+ backarrow( from boxcoord(Picture,0.85,0.32) up 0.2 right 0.5 )
+ "Star" wid 0.3 with .w at Here+(2bp__,0)
+ "Player" wid 0.43 with .w at last "".w+(0,-0.15)
+
+#for i=3 to 1 by -1 do {
+# Picture: svg_include(Incl.jpg, i/4*242px__, i/4*321px__,
+# with .nw at last box.nw+(0.125,-0.25)) }
+
+# P2: svg_include(Incl.jpg, 242px__, 321px__,
+# with .w at Picture.e+(1.25,0),
+# clip-path=\"polygon(30 0, 100%% 0%%, 100%% 100%%, 30 321)\" )
+
+svg_end_include
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/InclepsSVG.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/JackSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/JackSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/JackSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,75 @@
+.PS
+# `Jack.m4'
+cct_init(svg_font(sans-serif,11bp__))
+
+P: [
+ P1: plug
+ "A" wid 0.1 at P1.A rjust
+ "B" at P1.B rjust
+ "TB" at P1.TB ljust above
+ "TA" at P1.TA ljust below
+ P2: plug(,R) with .B at P1.A+(0.85,0)
+ "A" wid 0.1 at P2.A rjust
+ "B" at P2.B rjust
+ P3: plug(,3) with .A at P2.B+(0.85,0)
+ "A" at P3.A rjust
+ "B" at P3.B rjust
+ "C" at P3.C rjust
+ P4: plug(L,3R) with .A at P3.A+(1,0)
+ "A" wid 0.1 at P4.A ljust
+ "B" at P4.B ljust
+ "C" at P4.C ljust
+ `"plug"' below at P1.s+(0,-0.1)
+ `"plug(,R)"' below at P2.s+(0,-0.1)
+ `"plug(,3)"' below at P3.s+(-0.1,-0.1)
+ `"plug(L,3R)"' below at P4.s+(0.1,-0.1)
+]
+
+L: [
+ J1: jack
+ thinlines_
+ "L" wid 0.1 rjust at J1.L
+ arrow <- right 0.1 from J1.F; "F" ljust
+ arrow <- down 0.1 from J1.G then left 0.1 ; "G" rjust
+ thicklines_
+ J2: jack(,LMBS) with .F at J1.F+(1.2,0)
+ thinlines_
+ "L" rjust at J2.L
+ arrow <- from J2.LM left 0.25; "LM" rjust
+ arrow <- from J2.LB left 0.25; "LB" rjust
+ "S" rjust at J2.S
+ thicklines_
+ J3: jack(L,RLS) with .F at J2.F+(0.4,0)
+ thinlines_
+ "L" ljust at J3.L
+ "S" ljust at J3.S
+ thicklines_
+ J4: jack(L,RLBLMLMS) with .F at J3.F+(1,0)
+ thinlines_
+ "L1" ljust at J4.L1
+ arrow <- right 0.3 from J4.LM1; "LM1" ljust
+ "L2" ljust at J4.L2
+# arrow <- right 0.3 from J4.LM2; "LM2" ht 11pt__ ljust
+ arrow <- right 0.3 from J4.LM2; "LM2" ljust
+ "S" ljust at J4.S
+ "L" ljust at J4.L
+ arrow <- right 0.2 from J4.LB ; "LB" ljust
+ J5: jack(,RSBSMLB) with .F at J4.F+(1.95,0)
+ thinlines_
+ "L" rjust at J5.L
+ "S" rjust at J5.S
+ "S1" rjust at J5.S1
+ arrow <- left 0.3 from J5.SM1; "SM1" rjust
+ arrow <- left 0.25 then left 0.1 down 0.05 from J5.LB; "LB" rjust
+ arrow <- left 0.25 then left 0.1 up 0.05 from J5.SB; "SB" rjust
+ thicklines_
+
+ `"jack"' below at J1.s+(0,-0.15)
+ `"jack(,LMBS)"' at (J2,last "")
+ `"..(L,RLS)"' at (J3,last "")
+ `"..(L,RLBLMLMS)"' at (J4,last "")
+ `"..(,RSBSMLB)"' wid 72bp__ at (J5,last "")
+] with .nw at P.sw + (0,0.1)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/JackSVG.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/LgateSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/LgateSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/LgateSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,153 @@
+divert(-1)
+# LgateSVG.m4
+###########################################################################
+
+define(`And',`GenLogGate(AND,$@)')
+define(`Nand',`GenLogGate(NAND,$@)')
+define(`Or',`GenLogGate(OR,$@)')
+define(`Nor',`GenLogGate(NOR,$@)')
+define(`Xor',`GenLogGate(XOR,$@)')
+define(`Nxor',`GenLogGate(NXOR,$@)')
+define(`Not',`GenLogGate(NOT,$@)')
+
+define(`GenLogGate',`[ pushdef(`m4nargs',0)dnl
+ # Count the arguments and draw the gate
+ Loopover_(`a',`define(`m4nargs',incr(m4nargs))',shift($@))dnl
+ G: ifelse(`$1',NOT,`NOT_gate()',`$1_gate(m4nargs)')
+ Out: G.Out
+ T: (G.In1.x-2*L_unit,G.y)
+ # Sublayer gates with centre at the height of G
+ SubLayer: [ pushdef(`m4_nct',0)
+ pushdef(`m4glayer')dnl
+ Loopover_(`arg',
+ `define(`m4_nct',incr(m4_nct))dnl
+ # Stack the input label or draw a sublayer gate
+ pushdef(`m4InNames')dnl
+ Gate`'m4_nct: ifelse(patsubst(substr(arg,0,1),`[a-zA-Z]',`&'),&,
+ `[ In`'arg: ifdef(`MarkLogInputs',`"arg" above',Here)
+ pushdef(`m4InNames',In`'arg)dnl
+ Out: Here ] ht 2*L_unit',
+ `arg') ifelse(m4_nct,1,,`with .ne at last [].se+(0,-L_unit)')
+ ifdef(`MarkSubLayers',
+ `{ box wid last [].wid ht last [].ht at last [] }')
+ # Prepend gate name to labels
+ m4LogPromote(Gate`'m4_nct)',
+ shift($@)) dnl
+ # Promote gate labels to Sublayer block
+ pushdef(`m4InNames') m4LogLabel()
+ MidOut: 0.5 between Gate`'eval((m4_nct+1)/2).Out \
+ and Gate`'eval((m4_nct+2)/2).Out
+ popdef(`m4_nct')dnl
+ ] with .MidOut at T+(-m4nargs*L_unit,0) # end SubLayer
+ ifdef(`MarkSubLayers',
+ `{ box wid last [].wid ht last [].ht at last [] }')
+ # Promote sublayer labels to outer block
+ pushdef(`m4glayer') m4LogPromote(SubLayer) dnl
+ pushdef(`m4InNames') m4LogLabel() dnl
+ # Draw the connecting lines
+ define(`m4hhv',`(m4nargs-1)/2')dnl
+ for_(1,m4nargs,1,`
+ line from G.In`'m4x \
+ left G.In`'m4x.x-T.x+(m4hhv-abs(m4x-m4hhv-1))*L_unit \
+ then up SubLayer.Gate`'m4x.Out.y-G.In`'m4x.y \
+ then to SubLayer.Gate`'m4x.Out')
+ popdef(`m4nargs') dnl
+ ]')
+
+# Manage names of sublayer inputs
+define(`m4LogPromote',`ifelse(m4InNames,,`popdef(`m4InNames')',
+ `pushdef(`m4glayer',m4InNames:$1)
+ popdef(`m4InNames') m4LogPromote($1)') ')dnl
+
+define(`m4LogLabel',`ifelse(m4glayer,,`popdef(`m4glayer')',
+ `define(`m4BaseIn',`substr(m4glayer,0,index(m4glayer,:))')dnl
+ m4glayer.m4BaseIn
+ pushdef(`m4InNames',m4BaseIn) popdef(`m4glayer') m4LogLabel()') ')dnl
+
+# Clear a name stack
+define(`stack_del',`ifelse($1,`$1',,`popdef(`$1')$0($@)')')
+
+###########################################################################
+divert(0)dnl
+.PS
+log_init(svg_font(sans-serif,11bp__))
+#define(`MarkLogInputs')
+
+define(`bbelow',`with .nw at last [].sw+(0,-0.2)')
+
+ define(`MarkLogInputs')
+Ex1:Or(x1,q,`Or(y1,z1)',`Or(z3,u,v,`Or(w,r)',x2,y2,z2,m)')
+ `"Or(x1,q,`Or(y1,z1)',`Or(z3,u,v,`Or(w,r)',x2,y2,z2,m)')"' \
+ at Ex1.se+(-0.4,-0.2)
+ undefine(`MarkLogInputs')
+
+ line from Ex1.Inx1 to (Ex1.w,Ex1.Inx1)-(L_unit,0)
+ line from Ex1.Inx2 to (Here,Ex1.Inx2) then to Here; dot
+ line to Here-(2*L_unit,0); Inx: "x" above
+
+ line from Ex1.Iny1 to (Ex1.w,Ex1.Iny1)-(2*L_unit,0)
+ line from Ex1.Iny2 to (Here,Ex1.Iny2) then to Here; dot
+ line to Here-(2*L_unit,0); Iny: "y" above
+
+ line from Ex1.Inz1 to (Ex1.w,Ex1.Inz1)-(3*L_unit,0)
+ {line from Ex1.Inz3 to (Ex1.Inz3,Ex1.Inz1); dot}
+ line from Ex1.Inz2 to (Here,Ex1.Inz2) then to Here; dot
+ line to Here-(2*L_unit,0); Inz: "z" above
+
+Ex2: And(`Not(A)',B,C,`Nor(A2,D)') with .nw at Ex1.Out+(0.75,0.2)
+ line right 3*L_unit from Ex2.Out
+ "svg_it(ABC(A+D))" above ljust at Ex2.G.nw
+ line right 0.1 at last ""+(0.1,0.16)
+ line right 0.35 at last ""+(0.55,0.16)
+ line from Ex2.InA2 to (Ex2.InA2,Ex2.InA); dot
+ line to Ex2.InA chop -3*L_unit chop 0
+ "svg_it(A)" rjust at last line.start
+ "svg_it(B)" rjust at Ex2.InB
+ "svg_it(C)" rjust at Ex2.InC
+ "svg_it(D)" rjust at Ex2.InD
+ `"And(`Not(A)',B,C,`Nor(A2,D)')"' wid 2.1 with .w at Ex2.sw-(0,0.2)
+ `"line from Ex2.InA2 to (Ex2.InA2,Ex2.InA); dot"' wid 3.2 \
+ with .w at last "".w+(0,-0.2)
+ `"line to Ex2.InA chop -3*L_unit chop 0"' wid 2.60 \
+ with .w at last "".w+(0,-0.2)
+ `"\"A\" rjust at last line.start"' wid 1.6 with .w at last "".w+(0,-0.2)
+ `"\"B\" rjust at Ex2.InB; \"C\" rjust at Ex2.InC"' wid 2.7 with .w \
+ at last "".w+(0,-0.2)
+
+Ex3: Or(`And(A1,C1)',`And(B1,`Not(C2)')',`And(`Not(A2)',B2,C3)') \
+ with .nw at Ex1.sw+(0,-0.4)
+ line right 3*L_unit from Ex3.Out
+ line from Ex3.InB2 to (Ex3.InA2,Ex3.InB2)+(-2*L_unit,0) \
+ then up Ex3.InB1.y-Ex3.InB2.y; dot
+ line from Ex3.InB1 to Here chop 0 chop -2*L_unit; B: "svg_it(B)" rjust
+ line from Ex3.InA2 to (Ex3.InA2,Ex3.InA1); dot
+ line from Ex3.InA1 to (B,Here) ; "svg_it(A)" rjust
+ line from Ex3.InC2 to (Ex3.InC2,Ex3.InC1) then to Ex3.InC1
+ dot(at Ex3.InC2); line to (B,Here); "svg_it(C)" rjust
+ dot(at ((Ex3.InC2)+(-2*L_unit,0),Ex3.InC2))
+ line to (Here,Ex3.InC3) then to Ex3.InC3
+ "svg_it(AC+BC+ABC)" above ljust at Ex3.G.nw
+ line right 0.1 at last ""+(0.5,0.16)
+ line right 0.1 at last ""+(0.73,0.16)
+ `"Or(`And(A1,C1)',`And(B1,`Not(C2)')',`And(`Not(A2)',B2,C3)')"' \
+ at (B,Ex3.s)+(0,-0.2) ljust
+
+# define(`MarkSubLayers')
+Ex4: And(`Or(`Nand(`Or(A,B)',C)',D)',E) with .w at Ex3.e+(1.25,0)
+ "svg_it(A)" rjust at Ex4.InA
+ "svg_it(B)" rjust at Ex4.InB
+ line from Ex4.InC to (Ex4.InA,Ex4.InC); "svg_it(C)" rjust
+ line from Ex4.InD to (Ex4.InA,Ex4.InD); "svg_it(D)" rjust
+ line from Ex4.InE to (Ex4.InA,Ex4.InE); "svg_it(E)" rjust
+ line right 3*L_unit from Ex4.Out
+ "svg_it((D+(A+B)C)E)" above ljust at Ex4.G.nw
+ line right 0.5 at last ""+(0.6,0.16)
+ `"And(`Or(`Nand(`Or(A,B)',C)',D)',E)"' at Ex4.sw+(0,-0.2) ljust
+# undefine(`MarkSubLayers')
+
+stack_del(`m4InNames') # clear the name stack in case other diagrams need it
+# extend the bounding box
+move from Ex1.nw+(-0.35,0.1) to Ex4.Out+(1,-0.65)
+
+command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/LgateSVG.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/LogicSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/LogicSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/LogicSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,59 @@
+.PS
+# Logic.m4
+log_init(svg_font(sans-serif,11bp__))
+xgap = 0.5
+[ dmov = 0.4
+{ {AND_gate ; "`AND_gate'" ljust at last [].w + (xgap,0)}
+ move down dmov; right_
+ {OR_gate ; "`OR_gate'" ljust at last [].w + (xgap,0)}
+ move down dmov; right_
+ {BUFFER_gate ; "`BUFFER_gate'" ljust at last [].w + (xgap,0)}
+ move down dmov; right_
+ {XOR_gate ; "`XOR_gate'" ljust at last [].w + (xgap,0)}
+ }
+
+xgap = 0.65
+ move right_ 2
+{ { NAND_gate ; "`NAND_gate'" ljust at last [].w + (xgap,0) }
+ move down dmov; right_
+ { Gate: NOR_gate(3)
+ "`NOR_gate(3)'" ljust at last [].w + (xgap,0)
+ thinlines_
+ spline <- from Gate.Out right arrowht*2.0 \
+ then up 0.15 then right 0.05
+ "`Out'" ljust
+ spline <- from Gate.N_Out down arrowht*2.0 \
+ then right 0.1+arrowht*1.5+NOT_rad down 0.15-arrowht*2.0
+ "`N_Out'" ljust
+ for_(1,3,1,
+ `arrow <- left 0.2 down 0.05 from Gate.In`'m4x
+ "In`'m4x" rjust at Here+(0,(2-m4x)*0.02)')
+ }
+ thicklines_
+ move down dmov; right_
+ { NOT_gate ; "`NOT_gate'" ljust at last [].w + (xgap,0) }
+ move down dmov; right_
+ { NXOR_gate ; "`NXOR_gate'" ljust at last [].w + (xgap,0) }
+}
+ move right_ 2
+{ {B: NAND_gate(,B) ; "`NAND_gate(,B)'" ljust at B.w + (xgap,0)}
+ { line invis right 1.8 from last [].se then down 1}
+ move down dmov; right_
+ move left N_diam*L_unit; right_
+ {NOR_gate(3,NB) ; "`NOR_gate(3,NB)'" ljust at (B.w,last []) + (xgap,0) }
+ move down dmov; right_
+ {BOX_gate(PN,N,,,=1)
+ "`BOX_gate(PN,N,,,=1)'" ljust at (B.w,last []) + (xgap,0)
+ line left 0.15 from last [].In1
+ line left 0.15-NOT_rad*2 from last [].In2
+ line right 0.15 from last [].Out }
+ move down dmov; move right_ N_diam*L_unit
+ {BOX_gate(PP,N,,,=)
+ "`BOX_gate(PP,N,,,=)'" ljust at (B.w,last []) + (xgap,0)
+ line left 0.15 from last [].In1
+ line left 0.15 from last [].In2
+ line right 0.15 from last [].Out }
+}
+]
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/LogicSVG.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/LoglogSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/LoglogSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/LoglogSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,81 @@
+.PS
+# LoglogSVG.m4
+gen_init(svg_font(sans-serif,11bp__))
+
+define(`rint',`sign(`$1')*int(abs(`$1')+.5)')
+S:[
+ horiz = 4
+ vert = horiz*2/3
+ tmax = 10
+ tmin = 1
+ vmax = 100
+ vmin = 0.1
+ tic = 0.08
+ denv = log(vmax) - log(vmin)
+ denh = log(tmax) - log(tmin)
+
+ Origin: Here
+ define(`coord',
+ `Origin+((log(`$1')-log(tmin))/denh*horiz,(log(`$2')-log(vmin))/denv*vert)')
+
+thinlines_
+# Left axes and labels
+ psset_(linecolor=gray)
+ for i = rint(log(vmin)) to rint(log(vmax)) do {
+ move to coord(tmin,exp(i))
+ line right horiz
+ sprintf("%g",exp(i)) wid 0.2 rjust at last line.start
+ if i < rint(log(vmax)) then {
+ for j = 2 to 9 do { move to coord(tmin,j*exp(i))
+ line right horiz
+ if (j==2) || (j==5) then {
+ sprintf("%g",j*exp(i)) rjust at last line.start }
+ } } }
+
+#Horizontal axis and labels
+ for t = rint(log(tmin)) to rint(log(tmax)) do {
+ move to coord(exp(t),vmin)
+ line up vert
+ sprintf("%g",exp(t)) wid 0.15 below at last line.start
+ if t < rint(log(tmax)) then {
+ for j = 2 to 9 do { move to coord(j*exp(t),vmin)
+ line up vert
+ if (j==2) || (j==5) then {
+ sprintf("%g",j*exp(t)) below at last line.start }
+ } } }
+ psset_(linecolor=black)
+
+# arrow from Origin up vert chop 0 chop -0.1
+ line from Origin up vert
+ "svg_it(y(t))" wid 0.3 at Origin+(-0.1,0.5*vert) rjust
+
+# arrow from Origin right horiz chop 0 chop -0.1
+ line from Origin right horiz
+ "svg_it(t)" at Origin+(.5*horiz,-0.1) below
+
+thicklines_
+ alpha = 2.5
+ beta = 3.0
+ tm = max(tmin,(vmin/alpha)^(1/beta))
+ tM = min(tmax,(vmax/alpha)^(1/beta))
+ line from coord(tm,alpha*tm^beta) to coord(tM,alpha*tM^beta)
+P: box invis fill_(1) wid 0.75 ht 0.18 \
+ "svg_it(y(t) = 1.5 t)" with .w at coord(2.005,14)
+ "svg_it(svg_small(3))" with .w at P.ne #ljust
+
+ alpha = 0.05
+ beta = 2.0
+ tm = max(tmin,(vmin/alpha)^(1/beta))
+ tM = min(tmax,(vmax/alpha)^(1/beta))
+ line from coord(tm,alpha*tm^beta) to coord(tM,alpha*tM^beta)
+Q: box invis fill_(1) wid 0.80 ht 0.18 \
+ "svg_it(y(t) = 0.05 t)" with .e at coord(4.6,1.4)
+ "svg_it(svg_small(2))" with .w at Q.ne #ljust
+
+]
+
+# box wid S.wid ht S.ht at S
+# print (S.wid,S.ht)/(1 pc__)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/LoglogSVG.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/MCSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MCSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MCSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,44 @@
+.PS
+#MC.m4
+cct_init(svg_font(Times,11bp__))
+textoffset = 3bp__
+
+ dv = dimen_*0.6
+ dh = dimen_*0.4
+ backup = dimen_/6
+
+ for i=1 to 3 do {{
+ if i==2 then { Input: dot } else { line up (2-i)*dv }
+ source(right_ dimen_,AC)
+# The pound sign has to be protected from m4
+ llabel(,,sprintf("svg_it(v`'svg_sub(&``#''%g;,66%))",96+i))
+ resistor(right_ dimen_ from Here-(backup/2,0))
+ if i==1 then { llabel(,R`'svg_sub(i))}
+ inductor(right_ dimen_ from Here-(backup,0),W)
+ if i==1 then { llabel(,L`'svg_sub(i))}
+ line right_ i*dh
+ b_current(sprintf("svg_it(i`'svg_sub(&``#''%g;,66%))",96+i)); dot
+ { line down (3-i)*dv; capacitor(down_ dimen_)
+ if i==1 then { rlabel(,C`'svg_it(i)) }
+ if i==2 then { dot } else { line right (2-i)*dh }}
+ line right 3*dh; dot
+ E: Here+((3-i)*dh+dimen_*2,(4-2*i)*dv)
+ for j=1 to 3 do {{
+ line up (6-j*3)*dv then right (3-i)*dh
+ switch(right_ E.x-Here.x)
+ llabel(,,sprintf("svg_it(S`'svg_sub(&``#''%g;&``#''%g;,66%))",96+i,64+j))
+ if i==2 then { dot } else { line down (2-i)*dv }
+ }}
+ line from E right dh then down E.y-Here.y
+ arrow right dimen_/2
+ { sprintf("svg_it(i`'svg_sub(&`#'%g;,66%))",64+i) above }
+ resistor(right_ dimen_ from Here-(arrowht/2,0))
+ if i==1 then {llabel(,R`'svg_sub(o))}
+ inductor(right_ dimen_ from Here-(backup,0),W)
+ if i==1 then {llabel(,L`'svg_sub(o))}
+ source(right_ dimen_,AC)
+ llabel(sprintf("svg_it(v`'svg_sub(&``#''%g;,66%))",64+i))
+ if i==2 then { Output: dot } else { line down (2-i)*dv }
+ }}
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MCSVG.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/Makefile
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Makefile (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Makefile 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,91 @@
+LIBDIR = $$HOME/lib
+M4LIBS = svg.m4 SVGconfig.m4
+
+# To process a single file, copy it to test.m4 and type "make tst"
+# to produce tstSVG.html
+
+DPIC = dpic
+#DPIC = $$HOME/dpic/bu*/p2c/ftp/dpic
+#DPIC = $$HOME/dpic/bu*/test/dpic
+
+.SUFFIXES: .pic .svg .m4
+.pic.svg:
+ $(DPIC) -v $*.pic > $*.svg
+ grep '<\!-- width' $*.svg | sed -e 's%<\!-- *%%' -e 's% *-->%%' > $*.siz
+.m4.svg:
+ m4 $(M4LIBS) $*.m4 | sed -e '/^\%/d' > $*.pic
+ $(DPIC) -v $*.pic > $*.svg
+ grep '<\!-- width' $*.svg | sed -e 's%<\!-- *%%' -e 's% *-->%%' > $*.siz
+
+CCTSVG = \
+ AdderSVG.svg AlogixSVG.svg ABlogixSVG.svg AmpTableSVG.svg AntennasSVG.svg \
+ AudioSVG.svg \
+ BipSVG.svg BtreeSVG.svg ByteSVG.svg ButtonsSVG.svg \
+ CanLogicSVG.svg CctTableSVG.svg ConnSVG.svg CountingSVG.svg CrossbarSVG.svg \
+ CrowSVG.svg CrullerSVG.svg CsourceSVG.svg \
+ DecoderSVG.svg DemultiplexerSVG.svg DiodesSVG.svg DriveSVG.svg \
+ EmarrowsSVG.svg \
+ FlowSVG.svg FontsSVG.svg FusesSVG.svg GroundsSVG.svg \
+ HeadersSVG.svg HeathkitSVG.svg InclepsSVG.svg I2LSVG.svg JackSVG.svg \
+ LogicSVG.svg LoglogSVG.svg \
+ MCSVG.svg MixerSVG.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\
+ SchottkySVG.svg ShiftRSVG.svg SierpinskiSVG.svg \
+ SixpoleSVG.svg SourcesSVG.svg SQUIDSVG.svg SwitchesSVG.svg \
+ TTLnandSVG.svg TgateSVG.svg TtreeSVG.svg \
+ ThreeSVG.svg TimerSVG.svg VariableSVG.svg WindingsSVG.svg XformSVG.svg \
+ controlSVG.svg cscSVG.svg diamondSVG.svg ex00SVG.svg \
+ ex01SVG.svg ex02SVG.svg ex03SVG.svg ex04SVG.svg ex05SVG.svg ex06SVG.svg \
+ ex08SVG.svg ex09SVG.svg ex10SVG.svg ex11SVG.svg ex12SVG.svg \
+ ex15SVG.svg ex16SVG.svg ex17SVG.svg ex18SVG.svg ex21SVG.svg \
+ expSVG.svg fetSVG.svg graysurfSVG.svg lcctSVG.svg \
+ pwrsupplySVG.svg quickSVG.svg randomSVG.svg recycleSVG.svg roseSVG.svg \
+ sfgSVG.svg shapesSVG.svg paletteSVG.svg \
+ thyristorSVG.svg ujtSVG.svg wormSVG.svg XORSVG.svg Np.svg
+
+examplesSVG.html: examplesSVG.htmx
+ make $(CCTSVG)
+ Version=`sed -e 's/Version //' $(LIBDIR)/doc/Version.tex` ; \
+ sed -e 's/Version XXX/Version '$$Version'/' examplesSVG.htmx \
+ | m4 > examplesSVG.html
+
+SED = sed -e '/^\%/d'
+TEST = test
+tst: $(TEST).pic
+ $(DPIC) -v $(TEST).pic > $(TEST).svg
+ m4 $(M4LIBS) $(TEST).m4 | $(SED) > $(TEST).pic
+ $(DPIC) -v $(TEST).pic > $(TEST).svg
+ grep '<\!-- width' $(TEST).svg | sed -e 's%<\!-- *%%' -e 's% *-->%%' \
+ > $(TEST).siz
+ make tstSVG.html
+
+test.pic:
+ m4 $(M4LIBS) test.m4 | $(SED) > test.pic
+
+tstSVG.html: tstSVG.htmx $(TEST).svg
+ Version=`sed -e 's/Version //' $(LIBDIR)/doc/Version.tex` ; \
+ sed -e 's/Version XXX/Version '$$Version'/' \
+ -e 's/XXXXX/'$(TEST)'/g' \
+ tstSVG.htmx | m4 > tstSVG.html
+# cp tstSVG.html $(TEST) $$HOME/public_html/svg
+
+xst: Incleps.png
+
+InclepsSVG.svg: InclepsSVG.m4
+ m4 $(M4LIBS) $*.m4 | sed -e '/^\%/d' > $*.pic
+ $(DPIC) -v $*.pic > $*.svg
+ $(DPIC) -v $*.pic > $*.svg
+
+Incleps.png:
+ (cd ..; make Incleps.png); cp ../Incleps.png .
+
+clean:
+ @printf "\n svg clean:\n"
+ rm -f *.svg *.dim *.ps *log *.siz *.pic examplesSVG.html Incleps.png
+ rm -f tstSVG.html
+ @printf "\n"
+
+clobber: clean
+ rm -f test.m4
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Makefile
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MixerSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MixerSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MixerSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,98 @@
+.PS
+#`MixerSVG.m4
+# Showing VMOS mosfet and custom transformer'
+cct_init(svg_font(sans-serif,11bp__,1bp__))
+
+define(`dimen_',0.6)
+define(`elen_',0.75)
+
+define(`Xform21',
+ `[ L1: inductor(to rvec_(dimen_*0.5,0),L,,M)
+ Core1E: M4Core1.end; Core2E: M4Core2.end
+ D: (0.5 between M4Core1 and M4Core2) - L1
+ T: line to rvec_(dimen_/3,0); { dot(at T.c) }
+ L2: inductor(to rvec_(L1.len,0),L,,M)
+ line from M4Core1.start to Core1E
+ line from M4Core2.start to Core2E
+ L3: inductor(to rvec_(-L1.len,0) with .c at T+(D.x*2,D.y*2),L) ]')
+
+ del = dimen_/3
+ setdir_(U)
+T1: Xform21; "T1" at T1.n above rjust
+ dot(at T1.L3.start+(0,4bp__))
+ dot(at T1.L1.end+(4bp__,0))
+ dot(at T1.L2.end+(4bp__,0))
+ line from T1.L3.start left_ dimen_*2/3
+RF: dot(,,1); "RF" at RF.w rjust
+ line from T1.L3.end left_ del; corner; ground(,,F)
+
+ line down_ del/2 from T1.L1.start then right_ del
+ reversed(`capacitor',right_ dimen_,C); llabel(,0.1 svg_micro`'F)
+BT: dot(at Here)
+ line up_ del/2 from T1.L2.end then right del
+ reversed(`capacitor',right_ dimen_,C); llabel(,0.1 svg_micro`'F)
+ t = dimen_*7/8
+ line to (BT.x+4*t,Here.y)
+TT: dot
+ line right_ dimen_+del/2; setdir_(U)
+Q1: mosfet(,,dMESDQuB,E) with .G at Here
+ { "Q1" at Q1.Env.ne above ljust }
+ ground(at Q1.S,,F)
+ line right_ del*3/2 from Q1.D then down_ Q1.D.y-T1.L2.end.y
+T2: Xform21 with .L1.start at (Here,T1.L2.end); "T2" at T2.n above ljust
+ dot(at T2.L1.start+(-4bp__,0))
+ dot(at T2.L3.end+(0,4bp__))
+ line from T2.L3.end right_ dimen_*2/3
+IF: dot(,,1); "IF" wid 12bp__ at IF.e ljust
+ setdir_(U)
+Q2: mosfet(,,dMESDQuB,E) at (Q1,T2.s-(0,elen_-del))
+ { "Q2" at Q2.Env.ne above ljust }
+ line from Q2.D to (T2.L2.end,Q2.D) then to T2.L2.end
+ line from Q2.G left_ del/2 then up_ BT.y-Q2.G.y then to BT
+
+ line right_ del from T1.T then down_ T1.T.y-BT.y+del*3/2
+ corner; left_
+ capacitor(to (T1.L3.end-(del,0),Here),C)
+ rlabel(,0.1 svg_micro`'F )
+LOD: dot
+ { line to (RF,Here)
+ dot(,,1); move left_ 4bp__; "local" rjust "oscillator" rjust;
+ move left 50bp__ }
+ line from T2.T left_ to (Q1.S,T2.T)
+T2T: dot
+ { capacitor(down_ to (Here,BT),C); rlabel(,0.1 svg_micro`'F)
+ ground(,T,F) }
+ { line from T2.L3.start right_ del; corner; ground(,,F) }
+Vt: dot(at (0.5 between BT and TT,Q1.Env.nw),,1)
+ { "+V`'svg_sub(CC)" at last [].e ljust }
+ line to (Here,T2T); dot
+ { line to (Here,BT); Cv: capacitor(down_ 3/2*dimen_,C)
+ llabel(10 svg_micro`'F); G: dot; ground(,,F) }
+
+ for s=-1 to 1 by 2 do {{
+ line right s*t; corner
+ resistor(down_ to (Here,BT))
+ if s<0 then { llabel(,5 k`'svg_ohm) } \
+ else { rlabel(,5 k`'svg_ohm)
+ { dot(at last line.start); line to (TT,Here)
+ resistor(right_ to (T2T,Here))
+ llabel(,10 svg_ohm) } }
+ P: potentiometer(down_ Cv.len,,0.5,s*t ) with .Start at Here
+ if s<0 then { "1 k`'svg_ohm" at P. 1st [].ne ljust } \
+ else { "1 k`'svg_ohm" at P. 1st [].sw rjust }
+ dot(at P.End)
+ dot(at P.T1)
+ { L: inductor(up_ to (Here,BT),L);
+ if s<0 then { "100 svg_micro`'H" at last [].sw rjust } \
+ else { line to TT
+ "100 svg_micro`'H" at last [].ne ljust below } }
+ capacitor(down_ to (Here,G),C)
+ if s<0 then { rlabel(,0.1 svg_micro`'F) } \
+ else { llabel(,0.1 svg_micro`'F) }
+ dot }}
+
+ resistor(down_ from LOD to (LOD,G)); llabel(,51 svg_ohm); corner
+ line to (Q2.S,Here) then to Q2.S
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MixerSVG.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/MotorControlSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MotorControlSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MotorControlSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,58 @@
+.PS
+# MotorControl.m4
+cct_init(svg_font(sans-serif,11bp__))
+
+ trad = 2.5*dotrad_
+define(`bigterminal',`circle rad trad')
+
+ mrad = linewid*2/3
+Motor: circle rad mrad "Motor"
+
+ linethick = 2
+ T2: Motor.n+(0,dimen_/2)
+
+ for i=1 to 3 do {
+ if i==2 then { line from Motor.n to T2 } \
+ else { line from Motor right (i-2)*Motor.diam chop Motor.rad chop 0 \
+ then up T2.y-Motor.y }
+ bigterminal
+ cbreaker(up_ dimen_*3/4,,T)
+ bigterminal
+ line up_ dimen_
+ bigterminal
+ capacitor(up_ dimen_*1.2,,,dimen_/3,dimen_/6)
+ { circle fill_(1) rad dotrad_*3/2 thick 0.8 \
+ at 0.25 between last line.end and last line.start }
+ if i==1 then { L1: last circle } \
+ else { if i==2 then { L2: last circle }}
+ bigterminal
+ line up_ dimen_/4
+ }
+ linethick_(0.8)
+ C2: circle rad mrad/3 at Motor.n+ (0,dimen_*2)
+ line from C2.e right_ dimen_/3 then up C2.rad*1.5
+ line to (L1.x-dimen_/2,Here.y)
+ {S23: capacitor(up_ dimen_*2/3 from (L1.x-dimen_/2,Here.y),,,
+ dimen_/3,dimen_/6); dot(,,1) }
+ dot(,,1)
+ line to (L1.x-dimen_*2,Here.y) chop dotrad_ chop 0 then up dimen_/3
+ S1: [ bswitch(right_ dimen_/2) ] with .Bsw_T1.s at Here
+ S2: [ bswitch(right_ dimen_/2,,C) ] at S1+(0,-dimen_)
+ line right dimen_/6 down dimen_/6 from S1.Bsw_T2.se \
+ then down S1.Bsw_T2.se.y-S2.Bsw_T2.ne.y-dimen_/3 \
+ then to S2.Bsw_T2.ne
+ box wid S1.wid+dimen_/2 ht S1.n.y-S2.s.y+dimen_/3 \
+ at 0.5 between S1.s and S2.n
+ line left dimen_/2 from S23.end chop dotrad_ chop 0; corner
+ line to (Here,S1.Bsw_T2) then to S1.Bsw_T2.e
+ line from S2.Bsw_T1.w left dimen_/2; corner
+ line to (Here,L1) then to L1 chop 0 chop dotrad_
+
+ dot(at 0.5 between L1 and L2,,1)
+ { line to L2 chop dotrad_ }
+ S45: variable(`capacitor(down_ dimen_*2/3 chop dotrad_ chop 0,,,
+ dimen_/3,dimen_/6)',L,,dimen_/2); dot(,,1)
+ line to (Here,C2) then to C2.w chop dotrad_ chop 0
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MotorControlSVG.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/MultiplexerSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MultiplexerSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MultiplexerSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,43 @@
+.PS
+# MultiplexerSVG.m4
+log_init
+
+# Font
+ textht = textht*0.8
+ command "<g font-size=\"50%\" font-family=\"Helvetica\">"
+ right_
+
+ Mux(4,M1)
+ "`Mux'(4,M1)" at last [].s below
+ "svg_it(In0)" at last [].In0.end rjust wid 14bp__
+ "svg_it(In1)" at last [].In1.end rjust
+ "svg_it(In2)" at last [].In2.end rjust
+ "svg_it(In3)" at last [].In3.end rjust
+ "svg_it(Out)" at last [].Out.end above
+ "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
+ "svg_it(Out)" at last [].Out.end below
+ "svg_it(Sel)" at last [].Sel.end rjust below
+
+ right_; Mux(4,,OEBN2) with .c at last [].c+(1.4,0)
+ "`Mux'(4,,OEBN2)" at last [].s below
+ "svg_it(Sel0)" at last [].Sel0.end rjust
+ "svg_it(Sel1)" at last [].Sel1.end ljust
+ "svg_it(In0)" at last [].In0.end rjust
+ "svg_it(In3)" at last [].In3.end rjust
+ "svg_it(OE)" at last [].OE.end rjust
+
+ down_; Mux(8,,L3,,28*L_unit) with .c at last [].c+(1.7,0)
+ "`down_; Mux'(8,,L3,,28*L_unit)" at last [].s below wid 162bp__
+ "svg_it(Sel0)" at last [].Sel0.end rjust
+ "svg_it(Sel2)" at last [].Sel2.end rjust below
+ "svg_it(In0)" at last [].In0.end rjust
+ "svg_it(In7)" at last [].In7.end ljust wid 14bp__
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/MultiplexerSVG.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/NLGSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/NLGSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/NLGSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,21 @@
+.PS
+# NLG.m4
+cct_init(svg_font(sans-serif,11bp__))
+
+ define(`nullor',`nport(`$1'
+ {`"0"' at Box.w ljust
+ `"oo"' at Box.e rjust},shift($@))')
+
+N: nullor
+`"nullor"' at last [].s+(0,-3pt__) below
+G: gyrator with .sw at N.se+(0.5,0)
+`"gyrator"' at G.s+(0,-3pt__) below
+I: gyrator(invis,,0,N) with .w at G.e+(0.5,0)
+`"gyrator(invis,,0,N)"' at I.s
+V: gyrator(invis wid boxht,,0,NV) with .w at I.e+(1,0)
+`"gyrator(invis wid boxht,,0,NV)"' wid 2 at V.s+(0,-3pt__) below
+
+ move right 0.9
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/NLGSVG.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/NPDTSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/NPDTSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/NPDTSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,41 @@
+.PS
+# `NPDT.m4'
+cct_init(svg_font(sans-serif,11bp__))
+
+ movewid = 1.0
+
+ NPDT
+ {move left 0.1 from last [].w}
+ { "svg_it(R)" at last [].R.s below
+ "svg_it(T)" at last [].T.s below
+ "svg_it(L)" at last [].L.s below }
+ { `"NPDT"' at last [].s +(0,-0.22) }
+
+ up_; NPDT with .sw at last[].se+(0.5,0)
+ { "svg_it(R)" wid 8pt__ at last [].R.e ljust
+ "svg_it(T)" at last [].T.e ljust
+ "svg_it(L)" at last [].L.e ljust }
+ { `"up_; NPDT"' at last [].s +(0.1,-0.15) }
+ right_
+
+ NPDT(2) with .w at last [].e+(0.75,0)
+ { for_(1,2,1,
+ `"svg_it(R`'m4x)" at last [].R`'m4x.e ljust
+ "svg_it(L`'m4x)" wid 11pt__ at last [].L`'m4x.w rjust') }
+ { `"NPDT(2)"' at last [].s +(0,-0.15) }
+ move
+
+ NPDT(3,R)
+ { for_(1,3,1,
+ `"svg_it(R`'m4x)" at last [].R`'m4x.e ljust
+ "svg_it(L`'m4x)" wid 11pt__ at last [].L`'m4x.w rjust') }
+ { `"NPDT(3,R)"' at last [].s below }
+
+ left_; NPDT(2,R) with .w at last [].e+(1.0,0)
+ { for_(1,2,1,
+ `"svg_it(R`'m4x)" at last [].R`'m4x.w rjust
+ "svg_it(L`'m4x)" wid 11pt__ at last [].L`'m4x.e ljust') }
+ { `"left_; NPDT(2,R)"' wid 90bp__ at last [].s +(0,-0.15) }
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/NPDTSVG.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/Np.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Np.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Np.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,20 @@
+.PS
+svg_font(sans-serif,9bp__)
+
+B: box invis wid 6 ht 2
+"`nport(box specs; other commands,nw,nn,ne,ns,space ratio,pin lgth,style,other commands)" \
+ ljust at B.w \
+"" ljust \
+"Default is a twoport the size of a normal box." ljust \
+"Args 2 to 5 are the number of ports to be drawn on w, n, e, s sides." ljust \
+"" ljust \
+"The port pins are named by side, number, and by a or b pin," ljust \
+"e.g. W1a, W1b, W2a, ... . Arg 6 specifies the ratio of" ljust \
+"port width to interport space, and arg 7 is the pin length." ljust \
+"" ljust \
+"Set arg 8 to N to omit the dots on the port pins" ljust \
+"Arguments 1 and 9 allow customizations'" ljust
+
+svgLink(NportSVG.svg,"<- back" ljust at last box.sw above ljust,B)
+command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/Np.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/NportSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/NportSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/NportSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,47 @@
+.PS
+# `NportSVG.m4'
+cct_init(svg_font(sans-serif,11bp__))
+
+textoffset = 2bp__
+Twoport: nport
+
+ "W1a" wid 0.35 above rjust at Twoport.W1a
+ "W1b" below rjust at Twoport.W1b
+ "E1a" above ljust at Twoport.E1a
+ "E1b" below ljust at Twoport.E1b
+
+#Nport: nport(wid 1 ht 1.5 fill_(0.9) svgLinkString(Np.svg,n-port,B),1,2,3,4) \
+# with .Box.w at Twoport.Box.e+(1.0,0)
+Nport: nport(wid 1.75 ht 1 fill_(0.9),1,2,3,4) \
+ with .Box.w at Twoport.Box.e+(1.25,0)
+ svgLink(Np.svg,"n-port" at Nport,B)
+
+ "W1a" rjust at Nport.W1a
+ "W1b" rjust at Nport.W1b
+
+ "E1a" ljust at Nport.E1a
+ "E3b" ljust at Nport.E3b
+
+ "N1a" above at Nport.N1a.n
+ "N1b " above at Nport.N1b.n
+ " N2a" above at Nport.N2a.n
+ "N2b" above at Nport.N2b.n
+
+ "S1a" below at Nport.S1a.s
+ "S4b" below at Nport.S4b.s
+
+ "..." at 0.5<Nport.S1a,Nport.S4b>+(0,-0.10)
+ "..." at 0.5<Nport.E1a,Nport.E3b>+(0.15,0.05)
+
+Nterm: nterm with .Box.w at Nport.Box.e+(1.0,0)
+ "W1" rjust at Nterm.W1
+ "E1" wid 0.2 ljust at Nterm.E1
+ "S1" below at Nterm.S1.s
+
+ `"nport"' at Twoport.s+(0,-0.3)
+ `"nport(wid 1.5 ht 1.75 fill_(0.9),1,2,3,4)"' ljust at Nport.sw+(0,-0.3)
+ `"svgLink(Np.svg,\"n-port\" at Nport,B)"' ljust at Nport.sw+(0,-0.5)
+ `"nterm"' at Nterm.s+(0,-0.3)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/NportSVG.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/OpampSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/OpampSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/OpampSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,35 @@
+.PS
+# Opamp.m4
+cct_init(svg_font(sans-serif,11bp__))
+
+ A: opamp
+ thinlines_
+ "`opamp'" at A.s-(0,0.25)
+ "Out" below at A.Out
+ spline <- from A.In1 left 0.1 then up 0.1 left 0.1
+ "In1" wid 0.25 rjust above
+ spline <- from A.In2 left 0.1 then down 0.1 left 0.1
+ "In2" rjust below
+ arrow <- up 0.1 right 0.1 from A.E1
+ "E1" ljust above
+ arrow <- down 0.1 right 0.1 from A.E2
+ "E2" ljust below
+ thicklines_
+ Point_(15)
+ B: opamp(,,,,PR) with .sw at A.se+(0.65,0)
+ thinlines_
+ "`Point_(15); opamp(,,,,PR)'" at B.s-(0,0.25)
+ spline <- right arrowht up arrowht from B.V1 then right 0.1
+ "V1" ljust
+ spline <- right arrowht down arrowht from B.V2 then right 0.1
+ "V2" ljust
+ thicklines_
+ Point_(90)
+ C: opamp with .sw at B.se+(1.05,0)
+ "`Point_(90); opamp'" at C.s-(0,0.25)
+ right_
+ D: opamp(,,,,T) with .sw at C.se+(0.65,0)
+ "`opamp(,,,,T)'" wid 0.75 at D.s-(0,0.25)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/OpampSVG.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/OptoisoSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/OptoisoSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/OptoisoSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,64 @@
+.PS
+# OptoisoSVG.m4
+cct_init(svg_font(sans-serif,11bp__,3bp__))
+movewid = 0.25
+
+# `optoiso([L|R][A|B|C])'
+define(`optoiso',`ifinstr(`$1',C,
+`[{ u = dimen_
+ hd = u/5
+ Q: bi_tr(up hd*4,ifinstr(`$1',R,R))
+ line from Q.E ifinstr(`$1',R,left,right)(hd+u/3); Pin4: dot(,,1)
+ line from Q.C to (Pin4,Q.C); Pin5: dot(,,1)
+ T: (Q.B,Pin5)+(0,4*hd)
+ line from Q.B to T then to (Pin5,T); Pin6: dot(,,1)
+ D: diode(from Pin6 +(ifinstr(`$1',R,+,-)(u/3+hd*8),0) down hd*4)
+ line from D.start ifinstr(`$1',R,right,left) (hd*2+u/3); Pin1: dot(,,1)
+ line from D.end to (Pin1,D.end); Pin2: dot(,,1)
+ line from (D.end,Pin4) to (Pin1,Pin4) chop hd chop 0; Pin3: dot(,,1)
+ B: box wid hd*10 ht hd*10 with .c at 0.5 between Pin4 and Pin1
+ arrow from B.c+(ifinstr(`$1',R,,-)hd*1.5,hd*1.5) to B.c chop 0 chop -0.7*hd
+ F: (ifinstr(`$1',R,,-)hd*0.5,-hd*0.5)
+ arrow from last arrow.start+(F.x,F.y) to last arrow.end+(F.x,F.y)
+ `$2' }]',
+`[{u = dimen_/2
+ Q: bi_trans(up u*2,ifinstr(`$1',R,R),ifinstr(`$1',B,B)CBUdE)
+ E: Q.E; C: Q.C; A:ifinstr(`$1',R,Q.e+(u*3/2,u),Q.w+(-u*3/2,u)); K: A-(0,u*2)
+ ifinstr(`$1',B,line from Q.B to (Q.B,E); B: Here)
+ D: diode(from A to K)
+ arrow from D.c+(0,u/6) to Q.ifinstr(`$1',R,e,w)+(0,u/6) chop u/3 chop u/4
+ arrow from last arrow.start-(0,u/3) to last arrow.end-(0,u/3)
+ Enc: box rad u wid abs(C.x-A.x)+u*2 ht u*2 with .c at 0.5 between C and K
+ `$2' }]')')
+
+define(`optlabels',
+ `{"svg_it(C)" ht 0.1 at last [].C above
+ "svg_it(E)" at last [].E below
+ ifinstr(`$1',B,`"svg_it(B)" at last [].B below')
+ "svg_it(A)" at last [].A above
+ "svg_it(K)" at last [].K below}')
+
+Q: optoiso; optlabels; move
+ {`"optoiso"' at last [].s+(0,-0.22)}
+ optoiso(Rightorientation); optlabels; move
+ {`"optoiso(R)"' at last [].s+(0,-0.22)}
+ optoiso(B); optlabels(B); move
+ {`"optoiso(B)"' at last [].s+(0,-0.22)}
+ optoiso(RB); optlabels(B)
+ {`"optoiso(RB)"' at last [].s+(0,-0.22)}
+
+R: optoiso(C) with .nw at Q.sw+(0.33,-0.75); move 1
+{"svg_it(1)" at R.Pin1 rjust; "svg_it(2)" at R.Pin2 rjust
+ "svg_it(3)" wid 0.3 at R.Pin3 rjust}
+{"svg_it(4)" at R.Pin4 ljust; "svg_it(5)" at R.Pin5 ljust
+ "svg_it(6)" at R.Pin6 ljust }
+{`"optoiso(C)"' at R.s below }
+S: optoiso(RC)
+{"svg_it(1)" at S.Pin1 ljust; "svg_it(2)" at S.Pin2 ljust
+ "svg_it(3)" at S.Pin3 ljust }
+{"svg_it(4)" at S.Pin4 rjust; "svg_it(5)" at S.Pin5 rjust
+ "svg_it(6)" wid 0.3 at S.Pin6 rjust }
+{`"optoiso(RC)"' at S.s below }
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/OptoisoSVG.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/PconnSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PconnSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PconnSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,51 @@
+.PS
+# `PconnSVG.m4'
+cct_init(svg_font(sans-serif,11bp__))
+
+P1: [
+ C1: pconnex(,A)
+ thinlines_
+ arrow <- left 0.2 from C1.H.w; "svg_it(H)" wid 10bp__ rjust
+ thicklines_
+ `"pconnex(,A)"' at last [].s below
+ C2: pconnex(,AF) with .w at C1.e+(0.3,0)
+ thinlines_
+ arrow <- right 0.2 up 0.1 from C2.H.e; "svg_it(H)" ljust
+ N: box invis wid (C2.w.x-C1.e.x)/2 ht C1.N.ht \
+ with .n at 0.5 between C1.ne and C2.nw "svg_it(N)"
+ arrow from N.w to C1.N.e
+ arrow from N.e to C2.N.w
+ G: box invis wid N.wid ht N.ht with .n at (N,C1.N.s) "svg_it(G)"
+ arrow from G.w to C1.G.e
+ arrow from G.e to C2.G.w
+ `"(,AF)"' at last [].s below
+ C03: pconnex(,AC) with .w at C2.e+(0.2,0)
+ `"(,AC)"' at last [].s below
+ C3: pconnex(,ACF) with .w at last [].e+(0.2,0)
+ `"(,ACF)"' at last [].s below
+
+ C4: pconnex(,P) with .w at last [].e+(0.2,0)
+ `"(,P)"' at (C4,last "") below
+ C5: pconnex(U,D) with .w at last [].e+(0.2,0)
+ `"(U,D)"' at last [].s below
+ C6: pconnex(U,DF) with .w at last [].e+(0.2,0)
+ `"(U,DF)"' at last [].s below
+ C7: pconnex(U,J) with .w at last [].e+(0.2,0)
+ `"(U,J)"' at last [].s below
+ C8: pconnex(U,JF) with .w at last [].e+(0.2,0)
+ `"(U,JF)"' wid 21bp__ at last [].s below
+ ]
+
+P2: [
+ C9: pconnex(,G)
+ `"(,G)"' at last [].s below
+ C91: pconnex(,GF) with .w at last [].e+(0.2,0)
+ `"(,GF)"' at last [].s below
+ C92: pconnex(L,GF) with .w at last [].e+(0.2,0)
+ `"(L,GF)"' at last [].s below
+ C10: pconnex(,GC) with .w at last [].e + (0.2,0)
+ `"(,GC)"' at last [].s below
+] with .nw at P1.C1.sw + (0,-0.25)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PconnSVG.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/PushPullSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PushPullSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PushPullSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,108 @@
+.PS
+# `PushPullSVG.m4'
+cct_init(svg_font(sans-serif,10bp__,1bp__))
+
+linewid = 1.2*linewid
+
+# Transformer as for Mixer.m4
+define(`Xform21',
+ `[ L1: inductor(to rvec_(dimen_*0.5,0),,,M)
+ Core1E: M4Core1.end; Core2E: M4Core2.end
+ D: (0.5 between M4Core1 and M4Core2) - L1
+ T: line to rvec_(dimen_/3,0); { dot(at T.c) }
+ L2: inductor(to rvec_(L1.len,0),,,M)
+ line from M4Core1.start to Core1E
+ line from M4Core2.start to Core2E
+ L3: inductor(to rvec_(-L1.len,0) with .c at T+(D.x*2,D.y*2),) ]')
+
+ del = dimen_/3
+ up_
+ T1: Xform21
+ line left_ del from T1.L3.end; corner; ground(,,F)
+ line left_ 2*del from T1.L3.start
+ In: dot(,,1); { "RF" wid 12bp__ at In.n above }
+ up_
+ Q1: mosfet(,,dBSDFQM1,E) with .G0 at T1.T+(2*dimen_+del/2,dimen_)
+ { "3N200" at last [].n above }
+ line from T1.L2.end to (T1.L2.end,Q1.G0) then to Q1.G0
+ Q2: mosfet(,,dBSDFQM1,E) with .G0 at (Q1.G0.x,T1.T.y-dimen_)
+ { "3N200" at last [].n above }
+ line from T1.L1.start to (T1.L1.start,Q2.G0) then to Q2.G0
+
+ resistor(right_ dimen_ from T1.T); llabel(,330`'svg_ohm); Tx:dot
+ { line right_ del*3/2; corner; ground(,,F) }
+ dot(at (Tx,Q1.G0))
+ capacitor(down_ to Tx,C); llabel(5.6pF)
+ dot(at (Tx,Q2.G0))
+ capacitor(up_ to Tx,C); rlabel(5.6pF)
+
+ for_(1,2,1,
+ `dot(at Q`'m4x.S+(dimen_+del/2,0))
+ { resistor(down_ dimen_); G1:Here;
+ { "120" at last [].w rjust "svg_ohm" rjust }
+ dot; ground(,,F) }
+ line from Q`'m4x.S to (Here.x+dimen_*3/4,Q`'m4x.S.y); corner
+ capacitor(down_ to (Here,G1),C)
+ { "1000" at last [].w rjust "pF" rjust }
+ corner
+ line left_ 2*dimen_*3/4; corner
+ TG: dot(at (Here,Q`'m4x.S))
+ capacitor(down_ to (Here,G1),C); rlabel(,0.01 svg_micro(F))
+ ')
+
+ R: dot(at (Here.x+dimen_*2,(Q1.D.y+Q2.D.y)/2))
+ dot(at (R,Q1.D)); capacitor(down_ to R,C); llabel(20pF)
+ dot(at (R,Q2.D)); capacitor(up_ to R,C); llabel(20pF)
+ line right_ del*3/2 from R then down_ R.y-(Q1.S.y-dimen_); ground(,,F)
+
+ Vc: dot(at (R+(dimen_,0),Q1.ne),,1); { "+Vc" rjust at Vc.w }
+ dot(at (Vc,R))
+ inductor(right_ dimen_,); llabel(,1 svg_micro(H))
+ down_
+ T2: Xform21 with .T at Here
+ arrow from T2.L2 to T2.L3 chop -dimen_/4
+ line right_ del from T2.L3.start; corner
+ capacitor(down_ dimen_,C); llabel(1000 pF); ground(,T,F)
+ line right_ 2*del from T2.L3.end
+ Out: dot(,,1); { "IF" wid 12bp__ at Out.n above }; move right_ 0.3
+
+ line from T2.L1.start to (T2.L1,Q1.D) then to Q1.D
+ line from T2.L2.end to (T2.L2.end,Q2.D) then to Q2.D
+
+ line from Vc to (Vc,Q2.S) chop dotrad_/2 chop 0; dot
+ { line right_ del*2; corner
+ capacitor(down_ dimen_,C); llabel(,1000 pF); ground(,,F) }
+ reversed(`inductor',down_ dimen_,); rlabel(,1 svg_micro(H))
+ line down_ dimen_/2
+
+ TL: dot(at (Q1.G1.x-del/2,Here.y))
+ up_
+ Q3: bi_tr(,R,,E) with .C at (TG.x,TL.y-dimen_*2/3)
+ resistor(right_ from TL to (Q3.C,TL)); llabel(,82 k`'svg_ohm)
+ line to (Vc,Here); dot
+ resistor(down_ to (Here,Q3.B)); rlabel(,8.2 k`'svg_ohm); dot
+ dot(at Q3.B+(del,0))
+ line up_ (TL.y+Q3.C.y)/2 - Here.y+del/4 then left_ Here.x-TL.x
+ reversed(`capacitor',left_ dimen_,C); llabel(,1500 pF)
+ Osc: dot(,,1); { "Osc" above at Osc.n }
+
+ line from Q3.B to (Vc,Q3.B)
+ line from Q3.C to (Q3.C,TL); dot
+ dot(at Q3.C+(0,del/2))
+ capacitor(left_ to (TL,Here),C); llabel(,1500 pF); dot
+ line down_ del/2 from Q3.E; dot
+ { resistor(down_ dimen_*3/4); rlabel(,820`'svg_ohm)
+ G: Here; ground(,T,F) }
+ line right_ dimen_; corner
+ capacitor(down_ to (Here,G),C); llabel(,1000 pF)
+ ground(,T,F)
+ ground(at (TL,G),T,F)
+ resistor(up_ dimen_); llabel(,12 k`'svg_ohm)
+ line to (Here,Q1.G1) then to Q1.G1
+ line from Q2.G1 to (TL,Q2.G1); dot
+
+ ground(at (Vc,G),T,F)
+ resistor(up_ dimen_); rlabel(,5.6 k`'svg_ohm); line to (Here,Q3.B)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/PushPullSVG.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/QuantumSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/QuantumSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/QuantumSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,31 @@
+.PS
+# QuantumSVG.m4
+gen_init
+
+ boxht = 0.35
+ boxwid = boxht
+ define(`dotrad_',boxht/5)
+
+define(`Bus',`line right_ 10*boxwid `$1'
+ circle diam boxht `$2' at last line.start
+ box fill_(1) "H" at last line.start+(boxwid*3/2,0)
+ box fill_(1) "H" at last line.end-(boxwid*2.5,0) ')
+
+define(`Meter',`[ Box: box wid boxwid*3/2 fill_(1)
+ r = Box.wid/3
+ C: 0.3 between Box.s and Box.n
+ arc cw from C+(-r,0) to C+(r,0) with .c at C
+ arrow from C+(-r/4,0) to C+(0.9*r,0.9*r) ]')
+
+X: Bus(,shaded rgbstring(0.5,0.5,1) "X")
+A1: Bus(from X.start+(0,-boxht*3/2), shaded "red" "A")
+A2: Bus(from 2 between X.start and A1.start, shaded "red" "A")
+ dot(at X.start+(3*boxwid,0))
+ line to (Here,A2); dot
+ circle rad dotrad_ at A1.start+(4*boxwid,0)
+ line from last circle.s to (last circle,X); dot
+ Meter with .e at X.end
+ box wid boxwid*1.2 ht boxht*1.2 fill_(1) at A2.end-(4.5*boxwid,0) \
+ "svg_it(R)svg_sub(svg_psi)svg_sup(svg_pi/2,,,-1.2ex)"
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/QuantumSVG.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/RectifiersSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/RectifiersSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/RectifiersSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,189 @@
+.PS
+# RectifiersSVG.m4
+cct_init(svg_font(Times,11bp__))
+
+ tmax = 3.5
+ period = tmax/1.75
+ eamp = 0.5
+ omega = twopi_/period
+ ed = eamp/6
+ r = 0.95
+
+# For DC voltages
+ ted = asin(ed/eamp)/twopi_*period
+ npts = 40; sum = 0
+ for i=0 to npts do {
+ t = ted+(period/2-2*ted)*i/npts
+ sum += (eamp*cos(omega*t-pi_/2) - ed)*r }
+
+define(`Sine',`Cosine(eamp,omega,`$1',-pi_/2)')
+define(`axis',`line thick 0.4 right tmax chop -tmax*0.04 chop 0')
+
+Threephase: [ linethick_(1)
+ Ai: axis ; "N`'svg_sub(o)" ljust
+ move right 0.3 from Ai.end
+ EOrig: Ai.start+(tmax*0.04,0)
+ E1: sinusoid(eamp,omega,-pi_/2,-ted,tmax) with .Origin at EOrig
+ E2: sinusoid(eamp,omega,-pi_/2-twopi_/3,-ted,tmax) with .Origin at EOrig
+ E3: sinusoid(eamp,omega,-pi_/2+twopi_/3,-ted,tmax) with .Origin at EOrig
+ "e`'svg_sub(1)" at EOrig+(period/3,eamp*0.8) ljust above
+ "e`'svg_sub(2)" at EOrig+(2*period/3,eamp*0.8) ljust above
+ "e`'svg_sub(3)" at EOrig+(period,eamp*0.8) ljust above
+
+ Ad: axis with .end at Ai.end+(0,-eamp*2.1); "N`'svg_sub(o)" ljust
+ DOrig: Ad.start+(tmax*0.04,0)
+ Id: axis with .end at Ad.end+(0,-eamp*1.2); "0" ljust
+ IOrig: Id.start+(tmax*0.04,0)
+
+ for i=1 to 11 by 2 do {
+ tl = max(0,period/2-i*period/6)
+ tr = min(period/2,tmax-(i*period/6-period/2))
+ sinusoid(eamp,omega,-pi_/2,tl,tr,thick 0.4 dashed) \
+ with .Origin at DOrig+(i*period/6-period/2,0)
+ tl = max(period/12,-(i*period/6-period/2+period/12) )
+ tr = period/2-period/12
+ S1: sinusoid(eamp*r,omega,-pi_/2,tl,tr) \
+ with .Origin at DOrig+(i*period/6-period/2,0)+(0,-ed*r); round(at S1.End)
+ S2: sinusoid(eamp*r,omega,-pi_/2,tl,tr) \
+ with .Origin at IOrig+(i*period/6-period/2,0)+(0,-ed*r); round(at S2.End)
+ }
+ "e`'svg_sub(1)" at DOrig+(period/3,eamp*0.8) ljust above
+ "e`'svg_sub(2)" at DOrig+(2*period/3,eamp*0.8) ljust above
+ "e`'svg_sub(3)" at DOrig+(period,eamp*0.8) ljust above
+
+ "e`'svg_sub(L)" at DOrig+(period/4,eamp*0.8) below
+ "i`'svg_sub(L)" at IOrig+(period/6,eamp*0.6) rjust above
+
+ vEd = r*eamp*cos(pi_/12)/(5*pi_/12) - r*ed
+ VEd: axis with .end at Ad.end+(0,vEd); "E`'svg_sub(D)" ljust
+ IEd: axis with .end at Id.end+(0,vEd); "I`'svg_sub(D)" ljust
+ ]
+
+Cct3:[
+ No: dot; {"N`'svg_sub(o)" below rjust }
+ { inductor(to Here+(Rect_(dimen_,60)),W); E2: "e`'svg_sub(2)" ljust }
+ { inductor(to Here+(Rect_(dimen_,-60)),W); E3: "e`'svg_sub(3)" ljust }
+ { inductor(from No-(dimen_,0) to No,W)
+ E1: "e`'svg_sub(1)" above at last line.start }
+ D3: diode(down_ from E3); b_current(i`'svg_sub(3),rjust)
+ llabel(,,D`'svg_sub(3))
+ line from E1 to (E1,D3.start)
+ D1: diode(down_); b_current(i`'svg_sub(1),rjust); llabel(,,D`'svg_sub(1))
+ line from E2 left E2.x-E1.x+dimen_/3 then down E2.y-E3.y \
+ then to 0.5 between D1.start and D3.start
+ D2: diode(down_); b_current(i`'svg_sub(2),rjust); llabel(,,D`'svg_sub(2))
+ { line from D1.end to D3.end }
+ dot
+ arrowline(down elen_/2); rlabel(,i`'svg_sub(L))
+ resistor(right_ elen_); rlabel(+,e`'svg_sub(L),-); llabel(,R)
+ line to (Here,No) then to No
+ ] with .e at Threephase.w-(0.5,0)
+ move left 0.2 from Cct3.w
+
+Fullwave: [
+ linethick_(1)
+ Ai: axis ; "N`'svg_sub(o)" ljust
+ EOrig: Ai.start+(tmax*0.05,0)
+ E1: sinusoid(eamp,omega,-pi_/2,-ted,tmax) with .Origin at EOrig
+ "e`'svg_sub(1)" at EOrig+(period/3,eamp*0.8) ljust above
+ E2: sinusoid(eamp,omega, pi_/2,-ted,tmax) with .Origin at EOrig
+ "e`'svg_sub(2)" at EOrig+(period*5/6,eamp*0.8) ljust above
+
+ Ad: axis with .end at Ai.end+(0,-eamp*2.1); "N`'svg_sub(o)" ljust
+ DOrig: Ad.start+(tmax*0.05,0)
+ Id: axis with .end at Ad.end+(0,-eamp*1.2); "0" ljust
+ IOrig: Id.start+(tmax*0.05,0)
+
+ for i=0 to 3 do {
+ if i<3 then { tf = period/2 } else { tf = Ad.end.x-(DOrig.x+3*period/2) }
+ sinusoid(eamp,omega,-pi_/2,0,tf,thick 0.4 dashed) \
+ with .Origin at DOrig+(i*period/2,0)
+ line from DOrig+(i*period/2-ted,0) right 2*ted
+ line from IOrig+(i*period/2-ted,0) right 2*ted
+ if i<3 then {tf = period/2-ted } else {tf = Ad.end.x-(DOrig.x+3*period/2) }
+ Ed: sinusoid(eamp*r,omega,-pi_/2,ted,tf) \
+ with .Origin at DOrig+(i*period/2,-ed*r)
+ Ed: sinusoid(eamp*r,omega,-pi_/2,ted,tf) \
+ with .Origin at IOrig+(i*period/2,-ed*r)
+ }
+ "e`'svg_sub(1)" at DOrig+(period/6,eamp*0.9) rjust above
+ "e`'svg_sub(2)" at DOrig+(period/6+period/2,eamp*0.9) rjust above
+ "e`'svg_sub(L)" at DOrig+(period/4,eamp*0.8) below
+ "i`'svg_sub(L)" at IOrig+(period/6,eamp*0.6) rjust above
+
+ vEd = sum/(period/2/(period/2-2*ted)*npts)
+ VEd: axis with .end at Ad.end+(0,vEd); "E`'svg_sub(D)" ljust
+ IEd: axis with .end at Id.end+(0,vEd); "I`'svg_sub(D)" ljust
+ ] with .sw at Threephase.nw+(0,0.5)
+
+Cct2:[
+ T: transformer(right_ elen_,R,8,AW,8)
+ line up elen_/2 from T.P1
+ gap(right_ elen_)
+ { sinusoid(0.08,omega*8,-pi_/2,0,twopi_/(omega*8)) with .c at last [] }
+ line to T.P2
+ line from T.S1 to (T.P1,T.S1) then down elen_/2
+ D1: diode(down_ elen_*3/4); rlabel(,D`'svg_sub(1))
+ line from T.S2 to (T.P2,T.S2) then to (T.P2,D1.start)
+ D2: diode(down_ elen_*3/4); rlabel(,D`'svg_sub(2))
+ corner; line to D1.end; corner
+ dot(at 0.5 between D1.end and D2.end)
+ arrowline(down elen_/2); rlabel(,i`'svg_sub(L))
+ resistor(right_ elen_); rlabel(+,e`'svg_sub(L),-); llabel(,R)
+ line to (Here,T.TS)-(0,elen_/2) then left Here.x-T.TS.x then to T.TS
+ {"N`'svg_sub(o)" at T.TS-(0,elen_/2) below }
+ thinlines_
+ move to T.TS-(0,0.1)
+ { arrow to (T.P1,Here) chop 0.05 "e`'svg_sub(1)" below }
+ { arrow to (T.P2,Here) chop 0.05 "e`'svg_sub(2)" below }
+ linethick_(1)
+ ] at (Cct3,Fullwave)
+
+Halfwave: [
+ linethick = 1
+ Ai: axis ; "N`'svg_sub(o)" ljust
+ EOrig: Ai.start+(tmax*0.05,0)
+ Ei: sinusoid(eamp,omega,-pi_/2,0,tmax) with .Origin at EOrig
+ "e`'svg_sub(i)" at EOrig+(period/3,eamp*0.8) ljust above
+
+ Ad: axis with .end at Ai.end+(0,-eamp*1.75); "N`'svg_sub(o)" ljust
+ DOrig: Ad.start+(tmax*0.05,0)
+ sinusoid(eamp,omega,-pi_/2,0,period/2,thick 0.4 dashed) with .Origin at DOrig
+ sinusoid(eamp,omega,-pi_/2,0,period/2,thick 0.4 dashed) \
+ with .Origin at DOrig+(period,0)
+ "e`'svg_sub(i)" at DOrig+(period/5,eamp*0.9) rjust above
+
+ line from Ad.start to DOrig+(ted,0)
+ Ed: sinusoid(eamp*r,omega,-pi_/2,ted,period/2-ted) \
+ with .Origin at DOrig+(0,-ed*r)
+ "e`'svg_sub(L)" at DOrig+(period/3,eamp*0.6) below
+ line from Ed.End right period/2+2*ted
+ Ed2: sinusoid(eamp*r,omega,-pi_/2,ted,period/2-ted) \
+ with .Origin at DOrig+(period,-ed*r)
+ line from Ed2.End to Ad.end
+
+ vEd = sum/(period/(period/2-2*ted)*npts)
+ VEd: axis with .end at Ad.end+(0,vEd); "E`'svg_sub(D)" ljust above
+
+ Id: axis with .end at Ad.end+(0,-eamp*1.0); "0" ljust
+ IOrig: Id.start+(tmax*0.05,0)
+ line from Id.start to IOrig+(ted,0)
+ Sd: sinusoid(eamp*r,omega,-pi_/2,ted,period/2-ted) \
+ with .Origin at IOrig+(0,-ed*r)
+ "i`'svg_sub(L)" at IOrig+(period/3,eamp*0.7) above
+ line from Sd.End right period/2+2*ted
+ Sd2: sinusoid(eamp*r,omega,-pi_/2,ted,period/2-ted) \
+ with .Origin at IOrig+(period,-ed*r)
+ line from Sd2.End to Id.end
+ IEd: axis with .end at Id.end+(0,vEd); "I`'svg_sub(D)" ljust above
+ ] with .sw at Fullwave.nw+(0,0.5)
+
+Cct1:[ diode(down_ elen_); b_current(i`'svg_sub(L),rjust,O,E); rlabel(D)
+ resistor(right_ elen_); rlabel(+,e`'svg_sub(L),-); llabel(,R)
+ line up elen_
+ { "N`'svg_sub(o)" ljust below }
+ gap(left_ elen_); rlabel(-,e`'svg_sub(i),+)
+ ] at (Cct3,Halfwave)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/RectifiersSVG.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/RelaySVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/RelaySVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/RelaySVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,80 @@
+.PS
+# `Relay.m4'
+cct_init(svg_font(sans-serif,11bp__))
+
+{contact
+ {`"contact"' wid 0.8 at last [].s+(0,-0.2)
+ "svg_it(P)" rjust at last [].P.w
+ "svg_it(O)" ljust at last [].O
+ "svg_it(C)" ljust at last [].C }
+ move right_ 1.0; contact(R,)
+ {`"contact(,R)"' at last [].s+(0,-0.2)
+ "svg_it(P)" rjust at last [].P.w
+ "svg_it(O)" ljust at last [].O
+ "svg_it(C)" ljust at last [].C }
+ move right_ 1.0; contact(P)
+ {`"contact(P)"' at last [].s+(0,-0.2)
+ "svg_it(P)" rjust at last [].P.w
+ "svg_it(O)" ljust at last [].O
+ "svg_it(C)" ljust at last [].C }
+ move right_ 1.0; contact(O,); {`"contact(O,)"' at last [].s+(0,-0.2)}
+ move right_ 1.0; contact(C,); {`"contact(C,)"' at last [].s+(0,-0.2)}
+}
+move down 0.8
+right_
+{contact(I)
+ {`"contact(I)"' at last [].s+(0,-0.2)
+ "svg_it(P)" rjust at last [].P.w
+ "svg_it(O)" ljust at last [].O.e
+ "svg_it(C)" ljust at last [].C.e }
+ move right_ 1.0; contact(RI)
+ {`"contact(RI)"' at last [].s+(0,-0.2)
+ "svg_it(P)" rjust at last [].P.w
+ "svg_it(O)" ljust at last [].O.e
+ "svg_it(C)" ljust at last [].C.e }
+ move right_ 1.0; contact(PI)
+ {`"contact(PI)"' at last [].s+(0,-0.2)
+ "svg_it(P)" rjust at last [].P.w
+ "svg_it(O)" ljust at last [].O.e
+ "svg_it(C)" ljust at last [].C.e }
+ move right_ 1.0; contact(OI); {`"contact(OI)"' at last [].s+(0,-0.2)}
+ move right_ 1.0; contact(CI); {`"contact(CI)"' at last [].s+(0,-0.2) wid 1}
+}
+move down 1.3
+right_
+{
+relay
+ {"svg_it(V1)" rjust at last [].V1
+ "svg_it(V2)" ljust at last [].V2
+ "svg_it(P1)" rjust at last [].P1.w
+ "svg_it(O1)" ljust at last [].O1
+ "svg_it(C1)" ljust at last [].C1 }
+`"relay"' at last [].s+(0,-0.2)
+relay(2) with .sw at last [].sw+(1.2,0)
+ {"svg_it(V1)" rjust at last [].V1
+ "svg_it(V2)" ljust at last [].V2
+ "svg_it(P1)" rjust at last [].P1.w
+ "svg_it(O1)" ljust at last [].O1
+ "svg_it(C1)" ljust below at last [].C1
+ "svg_it(P2)" rjust at last [].P2.w
+ "svg_it(O2)" ljust at last [].O2
+ "svg_it(C2)" ljust at last [].C2 }
+`"relay(2)"' at last [].s+(0,-0.2)
+relay(2,RPI) with .sw at last [].sw+(1.2,0)
+ {"svg_it(V1)" rjust at last [].V1
+ "svg_it(V2)" ljust at last [].V2
+ "svg_it(P1)" rjust at last [].P1.w
+ "svg_it(O1)" wid 0.2 ljust at last [].O1.e
+ "svg_it(C1)" wid 0.2 ljust at last [].C1.e+(0,2pt__)
+ "svg_it(P2)" rjust at last [].P2.w
+ "svg_it(O2)" wid 0.2 ljust at last [].O2.e+(0,-2pt__)
+ "svg_it(C2)" wid 0.2 ljust at last [].C2.e }
+`"relay(2,RIP)"' at last [].s+(0,-0.2)
+relay(2,O) with .sw at last [].sw+(1.2,0)
+`"relay(2,O)"' at last [].s+(0,-0.2)
+relay(2,CT) with .sw at last [].sw+(1.2,0)
+`"relay(2,CT)"' at last [].s+(0,-0.2)
+}
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/RelaySVG.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/RotboxSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/RotboxSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/RotboxSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,20 @@
+% Rotbox.m4
+.PS
+gen_init
+#nclude(dpictools.pic)
+
+[
+ Point_(-10)
+ rotbox(boxwid/2,,thick 2)
+ Point_(30)
+ rotbox(,,shaded "green" outlined "blue",r=0.1) at last []+vec_(boxwid,0)
+ "r=0.1" at last []
+ move to last [].ne
+ Point_(0)
+ [ for_(2,8,2, `rotbox(,,dashed,t=m4x/10) at last []+vec_(boxwid*1.1,0)
+ sprintf("t=%g",m4x/10) at last [] ') ] with .nw at last [].ne+(0.1,0)
+ [ for_(10,16,2, `rotbox(,,dashed,t=m4x/10) at last []+vec_(boxwid*1.1,0)
+ sprintf("t=%g",m4x/10) at last [] ') ] with .nw at last [].sw+(0,-0.1)
+]
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/RotboxSVG.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/SQUIDSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SQUIDSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SQUIDSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,19 @@
+.PS
+# SQUIDSVG.m4
+cct_init(svg_font(sans-serif,11bp__))
+
+down_
+S1: SQUID
+ "J1" at S1.J1 above rjust wid 15bp__
+ "J2" at S1.J2 above ljust
+
+S2: SQUID(3,dimen_*1.5,-120) at S1.e+(elen_,0)
+ "J1" at S2.J1 above rjust
+ "J2" at S2.J2 below ljust
+ "J3" at S2.J3 above ljust
+ arcrad = S2.C.rad*0.7
+ arc from S2.c+(Rect_(arcrad,-135)) to S2.c+(Rect_(arcrad,-45)) \
+ with .c at S2.C ->
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SQUIDSVG.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/SVGconfig.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SVGconfig.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SVGconfig.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,70 @@
+divert(-1)
+#nclude(svg.m4)dnl
+#ivert(-1)
+
+#Adjust scale and default lengths
+define(`scaledefaults',`
+ scale = 1/($1)
+ arcrad = arcrad*($1)
+ arrowht = arrowht*($1)
+ arrowwid = arrowwid*($1)
+ boxht = boxht*($1)
+ boxrad = boxrad*($1)
+ boxwid = boxwid*($1)
+ circlerad = circlerad*($1)
+ dashwid = dashwid*($1)
+ ellipseht = ellipseht*($1)
+ ellipsewid = ellipsewid*($1)
+ lineht = lineht*($1)
+ linewid = linewid*($1)
+ moveht = moveht*($1)
+ movewid = movewid*($1)
+ textht = textht*($1)
+ textoffset = textoffset*($1)
+ textwid = textwid*($1)
+ linethick = linethick*($1)
+ maxpsht = maxpsht*($1)
+ maxpswid = maxpswid*($1)
+')
+
+# Possible defaults for diagrams in mm
+define(`SIdefaults',`
+ scale = scale*25.4
+ arcrad = 5
+ arrowht = 2.5
+ arrowwid = arrowht/2
+ boxht = 12
+ boxrad = 0
+ boxwid = 18
+ circlerad = 5
+ dashwid = 1.5
+ ellipseht = 12
+ ellipsewid = 18
+ lineht = 12
+ linewid = 12
+ moveht = 12
+ movewid = 12
+ textht = ifsvg(4,0)
+ textoffset = 3
+ textwid = 0
+')
+
+define(`local_init',`
+ scaledefaults(1.1)
+')
+
+# If the variable dptextratio is not found you don't have
+# dpic version 2018.05.15 or later. In that case, change
+# dptextratio to 1 in the following (or delete *dptextrario ).
+define(`svg_font',`
+command "<g patsubst(ifelse(`$1',,,
+index(`$1',font),0,`$1',
+index(`$1',style),0,`$1',
+style="font-family:`$1'")
+,",\\")>"
+ ifelse(`$2',,,`textht=(`$2')*dptextratio')
+ ifelse(`$3',,,`textoffset=`$3'')
+ `$4'
+ ifelse(`$4',,,`command "</g>"')')
+
+divert(0)dnl
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SVGconfig.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/SchottkySVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SchottkySVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SchottkySVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,54 @@
+% SchottkySVG.m4
+.PS
+# 4-input positive NAND: the Schottky option for transistors (TI TTL data book)
+cct_init(svg_font(sans-serif,11bp__,1bp__))
+
+ tic = dimen_/4
+ rlen = dimen_*3/4
+
+E1: dot; line up_ tic
+Q1: bi_trans(,,dEBCBUS) with .E at Here; line left tic from Q1.B; B1: Here
+ resistor(up_ rlen from Q1.C); llabel(,3 k`'svg_ohm); B2: dot; line right_ tic
+Q2: bi_trans(up_ dimen_,,dEBCBUS) with .B at Here
+ line from Q2.E to (Q2.E,E1); dot
+Gnd: "GND" ljust at Here+(dimen_/2,0)
+ dot(at Q2.C)
+ { line to (Gnd,Here); "Y" wid 0.3 ljust }
+ line to (Q1.C,Here); dot
+ resistor(up_ rlen); llabel(,4 k`'svg_ohm); B4: dot; line right_ tic; up_
+Q4: bi_tr with .B at Here
+ line from Q4.E to Q2.C
+ line up_ tic from B4
+Q5: bi_trans(,,dEBCBUS) with .E at Here; line left_ tic from Q5.B; B5: dot
+ line from Q5.C to (Q4.C,Q5.C); dot
+ { line to Q4.C }
+ resistor(up_ rlen); llabel(,120 svg_ohm); dot
+Vcc: "Vcc" ljust at (Gnd,Here)
+ dot(at (B5,Vcc))
+ resistor(to (Here,Q5.C)); llabel(,8 k`'svg_ohm)
+ diode(from (B4,Q2.C) to (B5,Q2.C),Z)
+ line to (Here,Q5.C)
+ diode(from B4 to (Here,B4),Z); dot
+ line left_ tic; up_
+Q3: bi_trans(,,dEBCBUS) with .C at Here; line left_ tic from Q3.B; B3: Here
+ line from Q3.E to (Q3.E,B2); dot
+ dot(at (B1,Here)); resistor(down_ to (Here,Q1.C)); rlabel(,1.5 k`'svg_ohm)
+ line to B1
+ resistor(down_ from B3 to (B3,B2)); rlabel(,12 k`'svg_ohm); line to B2
+ line from Vcc to (B3,Vcc); resistor(down_ to (Here,Q5.C))
+ rlabel(,20 k`'svg_ohm)
+ line to B3
+ ground(at (Q3.C,Gnd),,F); dot
+
+ for_(0,3,1,
+ `dot(at (B3+(0,tic*m4x)))
+ line left_ tic*m4x; diode(left_ dimen_,Z); dot
+ {line down_ dimen_; reversed(`diode',down_ dimen_,Z); line to (Here,Gnd) \
+ ifelse(m4x,3,`then to Gnd',`; dot') }
+ line left_ tic*eval(4-m4x)
+ "ifelse(m4x,3,D,m4x,2,C,m4x,1,B,m4x,0,A)" wid 0.15 rjust
+ ')
+
+ command "</g>" # end font
+.PE
+
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SchottkySVG.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/ShiftRSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ShiftRSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ShiftRSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,51 @@
+.PS
+# ShiftR.m4
+log_init(svg_font(sans-serif,11*0.9bp__))
+
+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 5bp__ at 2nd last ""+(-7bp__,4bp__)))')
+
+ F0: customFF(1)
+
+ BUFFER_gate(,N) with .Out at F0.W1.end
+ line left 2*L_unit from last [].In1
+ T: dot
+ reversed(`NOT_gate',left 10*L_unit)
+ {move left textht*8}
+ Serial: "SERIAL" rjust "INPUT" rjust
+ 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" at NCLR.start rjust
+ line left textht*2.3 from last ""+(-0.3,0.6)*textht
+
+ CLK: NOT_gate(right T.x-Serial.x from NCLR.start+(0,-BUF_ht*3/2*L_unit))
+ "CLOCK" at CLK.start rjust
+
+for_(1,4,1,`
+ F`'m4x: customFF(eval(m4x!=4)) with .W3.end at F`'eval(m4x-1).E3.end
+ ')
+
+ "OUTPUT" wid 0.7 at F4.E1.end ljust
+ line from NCLR.end to F4.S1.end
+
+ down_
+for_(0,4,1,`
+ line from F`'m4x.W2.end down F0.W2.y-CLK.y
+ ifelse(eval(m4x!=4),1,`dot',`line to CLK.end')
+ N`'m4x: NAND_gate with .Out at F`'m4x.N1.end
+ line up 2*L_unit from N`'m4x.In2
+ { line up 6*L_unit from N`'m4x.In1
+ "PR`'eval(4-m4x)" rjust }
+ ifelse(eval(m4x!=4),1,
+ `dot; dot(at F`'m4x.S1.end)',
+ `line to (Serial,Here)
+ "PRESET" rjust "ENABLE" rjust ')
+ ')
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ShiftRSVG.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/SierpinskiSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SierpinskiSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SierpinskiSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,26 @@
+.PS
+# Sierpinski.m4
+gen_init
+ define Sierpinski {
+ if $1 > 0.04 then {
+ d = $1/2-lh
+ shade(1,line from $2+(d/2,d/2*s3+lw*2) right d/2 up d/2*s3 then left d*2 \
+ then right d down d*s3 then right d/2 up d/2*s3 )
+ Sierpinski($1/2,$2-($1/2,0))
+ Sierpinski($1/2,$2+($1/2,0))
+ Sierpinski($1/2,$2+(0,$1*s3/2))
+ }
+ }
+
+ r = 4
+ linethick = 0.2
+ lw = linethick pt__ /2
+ s3 = sqrt(3)
+ lh = lw*s3
+ A: 3,3
+ d = r/2-lh
+ shade(0,line from A+(0,lw) right d then up d*s3 left d then down d*s3 left d\
+ then right d )
+# psset_(linecolor=white)
+ Sierpinski(r/2,A)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SierpinskiSVG.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/SixpoleSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SixpoleSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SixpoleSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,25 @@
+.PS
+# sixpole.m4
+define(`biquad',`[
+In: Here
+ resistor(right_)
+E: dot
+ resistor
+ dot
+ {capacitor(down_,C); ground(,T)}
+ line right_ elen_/3
+ { dot
+ line up_ elen_
+ amp(to (E,Here),elen_/2)
+ capacitor(from E to Here,C) }
+ amp(right_,elen_/2)
+ Out: Here
+ ]')
+
+cct_init
+define(`elen_',linewid)
+
+ biquad
+ biquad with .In at last [].Out+(-linewid/4,0)
+ biquad with .In at last [].Out+(-linewid/4,0)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SixpoleSVG.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/SourcesSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SourcesSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SourcesSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,47 @@
+.PS
+# `SourcesSVG.m4'
+cct_init(svg_font(sans-serif,11bp__))
+textwid = 0.7
+movewid = 2pt__
+moveht = 0.275
+define(`NL',`; move down $1; right_')
+{
+ {source ; move ; "`source'" ljust} NL
+ {source(,I) ; move ; "`source(,I)'" ljust} NL
+ {source(,i) ; move ; "`source(,i)'" ljust} NL
+ {source(,V) ; move ; "`source(,V)'" ljust} NL
+ {source(,v) ; move ; "`source(,v)'" ljust} NL
+ {source(,AC); move ; "`source(,AC)'" ljust} NL
+ {source(,X) ; move ; "`source(,X)'" ljust} NL
+ {source(,F) ; move ; "`source(,F)'" ljust} NL
+ {source(,G) ; move ; "`source(,G)'" ljust} NL
+ {source(,Q) ; move ; "`source(,Q)'" ljust}
+}
+ move right_ 2.0
+{
+ {source(,,0.4) ; move ; "`source(,,0.4)'" ljust} NL(0.35)
+ {source(,P) ; move ; "`source(,P)'" ljust} NL
+ {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(,T) ; move ; "`source(,T)'" ljust} NL
+ {source(,L) ; move ; "`source(,L)'" ljust} NL
+ {source(,B) ; move ; "`source(,B)'" ljust} NL(moveht*0.8)
+ {nullator ; move ; "`nullator'" ljust} NL(moveht*0.6)
+ {norator ; move ; "`norator'" ljust}
+}
+ move right_ 2.0
+ {source(,N) ; move ; "`source(,N)'" ljust} NL
+ {source(,"svg_micro(A)"); move; "`source(,\"svg_micro(A)\")'" \
+ wid 1.7 at Here ljust}NL(0.31)
+ {consource ; move ; "`consource'" ljust } NL(0.32)
+ {consource(,I) ; move ; "`consource(,I)'" ljust} NL(0.32)
+ {consource(,i) ; move ; "`consource(,i)'" ljust} NL(0.32)
+ {consource(,V) ; move ; "`consource(,V)'" ljust} NL(0.32)
+ {consource(,v) ; move ; "`consource(,v)'" ljust} NL(0.3)
+ {battery ; move ; "`battery'" ljust} NL
+ {battery(,3,R) ; move ; "`battery(,3,R)'" ljust}
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SourcesSVG.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/SwitchesSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SwitchesSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SwitchesSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,103 @@
+.PS
+# SwitchesSVG.m4
+cct_init(svg_font(sans-serif,11bp__,2bp__))
+textoffset = 3bp__
+
+movewid = 0.25
+moveht = moveht*1.25
+ right_; {
+ lswitch; rlabel(,"``lswitch''")
+ move right_
+ lswitch(,,O); rlabel(,"`(,,O)'")
+ move right_
+ lswitch(,,C); rlabel(,"`(,,C)'")
+ move right_
+ lswitch(,,DA); rlabel(,"`(,,DA)'")
+ move right_
+ lswitch(,,DO); rlabel(,"`(,,DO)'")
+ move right_
+ lswitch(,,DC); rlabel(,"`(,,DC)'")
+ }
+ move down; right_; {
+ lswitch(,,K); rlabel(,"`(,,K)'")
+ move right_
+ lswitch(,,KD); rlabel(,"`(,,KD)'")
+ move right_
+ lswitch(,,KOD); rlabel(,"`(,,KOD)'")
+ move right_
+ lswitch(,,KCD); rlabel(,"`(,,KCD)'")
+ move right_
+ bswitch; rlabel(,"``bswitch''")
+ move right_
+ bswitch(,,C); rlabel(,"`(,,C)'")
+ }
+ move down; right_; {
+ S: dswitch(,,)
+ ifgpic(`{[line invis] at S.c+(0,-0.2)}')
+ rlabel(,"``dswitch=''")
+ { "`switch(,,,D)'" at last [].s + (0,-0.23) }
+ thinlines_
+ { spline <- from 0.25 along_(S) up 0.1 then up 0.05 left 0.1
+ "W" wid 8bp__ at Here+(-5bp__,0)
+ spline <- from S.c+(0,m4sc*2) up 0.1 then up 0.05 left 0.1
+ "B" wid 5bp__ at Here+(-5bp__,0) }
+ thicklines_
+ move right_
+ S: dswitch(,,WdBK); rlabel(,"`(,,WdBK)'")
+ thinlines_
+ { spline <- from tr_xy(0,-2) up 0.1 then up 0.10 left 0.1
+ "dB" rjust
+ spline <- from tr_xy(4,-2) right 0.1 then right 0.05 up 0.15
+ "K" above }
+ thicklines_
+ move right_
+ dswitch(,,WBuD); rlabel(,"`(,,WBuD)'")
+ move right_
+ dswitch(,,WdBKF); rlabel(,"`(,,WdBKF)'")
+ move right_
+ dswitch(,,WBL); rlabel(,"`(,,WBL)'")
+ move right_
+ dswitch(,,WdBKL); rlabel(,"`(,,WdBKL)'")
+ }
+ move down; right_; {
+ dswitch(,,WBT); rlabel(,"`(,,WBT)'")
+ move right_
+ dswitch(,,WdBKC); rlabel(,"`(,,WdBKC)'")
+ move right_
+ dswitch(,,WBM); rlabel(,"`(,,WBM)'")
+ move right_
+ dswitch(,,WBCO); rlabel(,"`(,,WBCO)'")
+ move right_
+ dswitch(,,WBMP); rlabel(,"`(,,WBMP)'")
+ move right_
+ dswitch(,,WBoKCP); rlabel(,"`(,,WBoKCP)'")
+ }
+ move down; right_; {
+ dswitch(,,WBCY); rlabel(,"`(,,WBCY)'")
+ move right_
+ dswitch(,,WBCZ); rlabel(,"`(,,WBCZ)'")
+ move right_
+ dswitch(,,WBCE); rlabel(,"`(,,WBCE)'")
+ move right_
+ dswitch(,,WBRH); rlabel(,"`(,,WBRH)'")
+ move right_
+ dswitch(,,WBRdH); rlabel(,"`(,,WBRdH)'")
+ move right_
+ dswitch(,,WBRHH); rlabel(,"`(,,WBRHH)'")
+ }
+ move down; right_; {
+ dswitch(,,WBMMR); rlabel(,"`(,,WBMMR)'")
+ move right_
+ dswitch(,,WBMM); rlabel(,"`(,,WBMM)'")
+ move right_
+ dswitch(,,WBMR); rlabel(,"`(,,WBMR)'")
+ move right_
+ dswitch(,,WBEL); rlabel(,"`(,,WBEL)'")
+ move right_
+ dswitch(,,WBLE); rlabel(,"`(,,WBLE)'")
+ move right_
+ dswitch(,,WdBKEL); rlabel(,"`(,,WdBKEL)'")
+ }
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/SwitchesSVG.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/TTLnandSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TTLnandSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TTLnandSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,55 @@
+.PS
+# TTLnand.m4
+cct_init(svg_font(sans-serif,11bp__,1bp__))
+
+ up_
+Q3: bi_tr
+ "Q3" at Q3.E above ljust
+ dot(at Q3.C); reversed(`diode',up_ dimen_/2)
+Q4: bi_tr with .E at Here
+ "Q4" at Q4.E above ljust
+ resistor(up_ dimen_ from Q4.C); rlabel(,`svg_norm(130 svg_ohm)')
+V: dot
+ line left_ dimen_*0.75 from Q4.B; dot
+ line left_ dimen_*0.75 from Q3.B; dot
+Q2: bi_tr(up_ Q4.B.y-Q3.B.y) with .E at Here
+ "Q2" at 1/2 between Q2.E and Q2.C ljust
+ resistor(from Q2.C to (Q2.C,V)); rlabel(,`svg_norm(1.6 k`'svg_ohm)'); dot
+ resistor(from Q2.E down_ dimen_); llabel(,`svg_norm(1 k`'svg_ohm)')
+ line to (Q4.E,Here)
+G: dot
+ line to Q3.E
+ line left_ dimen_/4 from Q2.B
+ right_
+Q1: bi_trans(,,BCdE2BU) with .C at Here
+ "Q1" at Q1.Bulk above rjust
+ resistor(up_ from Q1.B to (Q1.B,V)); rlabel(,svg_norm(4 k`'svg_ohm))
+ line to V
+
+ line left dimen_ from Q1.E2
+X1: dot; "X1" wid 0.2 rjust above at last [].w
+X2: dot(at (X1,Q3.C)); "X2" rjust at last [].w
+ AA: line invis right dimen_ from X2
+ line from X2 to Intersect_(AA,Q1.Em1) then to Q1.E1
+X3: dot(at 2 between X1 and X2); "X3" rjust below at last [].w
+ AA: line invis right dimen_ from X3
+ line from X3 to Intersect_(AA,Q1.Em0) then to Q1.E0
+
+W: X2+(dimen_/2,0)
+N: V+(0,dimen_/4)
+S: (N.x,N.y-2*(N.y-W.y))
+ line from V to 2 between V and N
+Vcc:dot; "+5 svg_norm(V)" ljust at last [].e
+ line from G to (G,S)
+ ground
+ line from N to (W,N) then to (W,S) then to S
+ arc rad N.y-W.y ccw to N with .c at 1/2 between N and S
+
+ 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)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TTLnandSVG.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/TgateSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TgateSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TgateSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,53 @@
+.PS
+# Tgate.m4
+cct_init(svg_font(sans-serif,11bp__))
+
+right_
+
+[ { Q: tgate
+ "A" at Q.A rjust
+ "B" at Q.B ljust
+ "G" at Q.G ljust below
+ "Gb" at Q.Gb ljust above
+ `"tgate"' wid 0.5 at Q.A-(0.25,0) rjust
+ }
+
+ move down_ linewid; right_
+ { Q: tgate(,L)
+ "A" at Q.A rjust
+ "B" at Q.B ljust
+ "G" at Q.G rjust above
+ "Gb" at Q.Gb ljust below
+ `"tgate(,L)"' at Q.A-(0.25,0) rjust
+ move left 0.75; right
+ }
+ ]
+
+[ { Q: tgate(,B)
+ "A" at Q.A rjust
+ "B" at Q.B ljust
+ "G" at Q.G ljust
+ `"tgate(,B)"' at Q.G-(0,10bp__) below
+ }
+ ] with .Q.A at last [].Q.B+(0.5,linewid/2)
+
+[ { Q: ptrans
+ "A" at Q.A rjust
+ "B" at Q.B ljust
+ "G" at Q.G rjust below
+ "Gb" at Q.Gb rjust
+ `"ptrans"' at Q.B+(0.25,0) ljust
+ }
+
+ move down_ linewid; right_
+ { Q: ptrans(,L)
+ "A" at Q.A rjust
+ "B" at Q.B ljust
+ "G" at Q.G ljust above
+ "Gb" at Q.Gb ljust below
+ `"ptrans(,L)"' wid 0.75 at Q.B+(0.25,0) ljust
+ }
+ ] with .Q.Gb at (last [].e.x+elen_/2+0.5,1st [].Q.Gb.y)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TgateSVG.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/ThreeSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ThreeSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ThreeSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,47 @@
+.PS
+# ThreeSVG.m4: three-phase oscillator
+cct_init(svg_font(sans-serif,11bp__))
+
+define(`section',`[ I: Here
+ resistor(right elen_*0.75); llabel(,R/2)
+T: dot
+ line down dimen_/2 then right_ dimen_/4
+ Amp: opamp(,,,,,{
+ rgbfill(0.9*255,0.6*255,0.1*255,line to N then to E then to S then to Here)
+ "-" at In1 ljust
+ "+" at In2 ljust }
+ ) with .In1 at Here
+ line left dimen_/4 from Amp.In2 then down dimen_/4; G: ground(,,)
+ resistor(from T to (Amp.Out,T)); llabel(,R)
+O: dot
+ { arrow up dimen_*0.5 then right dimen_/4 up dimen_/4
+ "`$1'" above }
+ line to Amp.Out
+ dot(at T+(dimen_/4,0)); line up dimen_*0.6
+ capacitor(right_ Amp.Out.x-Here.x-dimen_/4,C); llabel(,2C)
+ line to (Here,T); dot
+ ]')
+
+A: section(svg_symbol(0&`#'176;))
+B: section(svg_symbol(120&`#'176;)) with .I at A.O
+C: section(svg_symbol(-120&`#'176;)) with .I at B.O
+ move right 22pt__ from C.O
+
+ ground(at (A.I,A.G)+(dimen_/3,0),,)
+P:potentiometer(down_ dimen_/2,,0.75,dimen_/2) with .End at Here
+ line from P.Start to (A.I,P.Start); dot
+ resistor(up_ dimen_*0.75 from P.T1)
+ line to A.T
+
+ dot(at B.Amp.Out+(dimen_/3,0)); { "svg_it(V`'svg_sub(c))" at last [].n above }
+ resistor(down_ dimen_*0.75)
+ { dot; line right (C.T.x-Here.x)/2
+ reversed(`diode',up_ dimen_)
+ line to C.T }
+ resistor(down_ dimen_*0.75)
+ dot
+ line from C.O right dimen_/4 then down C.O.y-Here.y then to (A.I,Here) \
+ then to A.I
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ThreeSVG.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/TimerSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TimerSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TimerSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,51 @@
+.PS
+# TimerSVG.m4
+cct_init(svg_font(sans-serif,11bp__,1bp__))
+
+define(`ic555',`[Chip: box ht boxwid wid boxwid "555"
+ P7: "7" ljust at 1/6<Chip.sw,Chip.nw>
+ P6: "6" ljust at 1/2<Chip.sw,Chip.nw>
+ P2: "2" ljust at 5/6<Chip.sw,Chip.nw>
+ P4: "4" below at 1/3<Chip.nw,Chip.ne>
+ P8: "8" below at 2/3<Chip.nw,Chip.ne>
+ P3: "3" rjust at Chip.e
+ P1: "1" above at Chip.s
+ ]')
+
+ define(`elen_',`linewid')
+Vs: dot
+ down_
+ variable(`resistor(,E); llabel(,svg_norm(1 M`'svg_ohm))');
+ resistor(,E); llabel(,svg_norm(100 k`'svg_ohm))
+ capacitor(,E); llabel(svg_norm(220 svg_micro`'F))
+Zero: dot
+
+ dot(at Vs+(elen_*4/3,0))
+ resistor(,E); llabel(,svg_norm(33 k`'svg_ohm))
+ line to (Here,Zero) chop 0 chop elen_
+C2: capacitor; llabel(svg_norm(0.1 svg_micro`'F))
+ dot
+
+IC1: ic555 with .P7 at C2.start + (elen_,0)
+ line from IC1.P4 to (IC1.P4,Vs); dot
+ line from IC1.P8 to (IC1.P8,Vs); dot
+ line from IC1.P1 to (IC1.P1,Zero); dot
+ line from IC1.P2 to (C2,IC1.P2); dot
+ crossover(from IC1.P7 to (Zero,IC1.P7),R,C2); dot
+ line from IC1.P6 left elen_/2 then down IC1.P6.y-IC1.P7.y; dot
+ line from IC1.P3 right elen_*2/3
+R: dot
+ line right_ elen_/3
+B: buzzer(,,C) with .In3 at Here
+ line from B.In1 to (R,B.In1)
+ reversed(`diode',to (Here,Vs),LE); "red" at last line.c+(elen_/2,0)
+ resistor(down_ elen_ from R,E); llabel(,svg_norm(470 svg_ohm))
+ diode(to (Here,Zero),LE); {"green" wid 0.4 at last line.c+(elen_*2/3,0)}
+ line to Zero chop 0 chop -elen_
+ line up_ (Vs.y-Here.y)/3
+ battery(up_ (Vs.y-Here.y)/3); rlabel(,,svg_norm(9 V))
+ switch(to (Here,Vs),,D)
+ line to (R,Vs)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TimerSVG.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/TtreeSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TtreeSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TtreeSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,70 @@
+.PS
+# Ttree.m4
+# A binary tree using m4
+gen_init
+sinclude(tst.dim)
+s_init(Ttree)
+
+# `Node(no in row, head [location],
+# displacement of top of body (.n) wrt head,
+# body Node 1, body Node 2, ...) '
+define(`Node',`
+ Head`$1': `$2'
+ ifelse(`$3',,,` Body`$1': [
+ Loopover_(`v',`v; define(`m4ct',m4Lx)',shift(shift(shift($@))))
+ ] with .n at Head`$1' + `$3'
+ connect(`$1',m4ct)')')
+
+define(`connect',`Bot: move from Head$1.sw-(0,5bp__) to Head$1.se-(0,5bp__)
+for_(1,`$2',1,
+ `Top: move from Body$1.Head`'m4x.nw+(0,2bp__) \
+ to Body$1.Head`'m4x.ne+(0,2bp__)
+ Mov: move from Head$1 to Body$1.Head`'m4x
+ if Bot.len*Top.len*Mov.len > 0 then {
+ line from Intersect_(Mov,Top) to Intersect_(Mov,Bot)}')')
+
+ vsep = 0.75
+define(`txw',`wid `$1'mm__')dnl scaled by 14/12 for 14 pt type
+
+ Node(1,"svg_it(h(h(h(x`'svg_sub(1),x`'svg_sub(2))," \
+ + "h(x`'svg_sub(3),x`'svg_sub(4))),h(h(x`'svg_sub(5),x`'svg_sub(6))," \
+ + "h(x`'svg_sub(7),x`'svg_sub(8)))))" txw(70) ,
+ (0,-vsep),
+ Node(1,"svg_it(h(h(x`'svg_sub(1),x`'svg_sub(2)),h(x`'svg_sub(3)," \
+ + "x`'svg_sub(4))))" txw(32) ,
+ (0,-vsep),
+ Node(1,"svg_it(h(x`'svg_sub(1),x`'svg_sub(2)))" txw(14) ,
+ (0,-vsep),
+ Node(1,"svg_it(x`'svg_sub(1):=((A,pk`'svg_sub(A)),h`'svg_sub(1)))" \
+ txw(29) ),
+ Node(2,"svg_it(x`'svg_sub(2):=((B,pk`'svg_sub(B)),h`'svg_sub(2)))" \
+ txw(29) with .n at last "".ne+(0.2,-vsep*2/3))),
+ Node(2,"svg_it(h(x`'svg_sub(3),x`'svg_sub(4)))" txw(14) \
+ with .nw at Head1.ne+(Body1.wid/2+0.1,0),
+ (0,-vsep),
+ Node(1,"svg_it(x`'svg_sub(3):=" \
+ + "((A,pk`'svg_prime`'svg_sub(A,,,-0.5ex)),h`'svg_sub(3)))" \
+ txw(29)),
+ Node(2,"svg_it(x`'svg_sub(4):=((D,pk`'svg_sub(D)),h`'svg_sub(4)))" \
+ txw(29) with .n at last "".ne+(0.2,-vsep*2/3)))),
+ Node(2,"svg_it(h(h(x`'svg_sub(5),x`'svg_sub(6)),h(x`'svg_sub(7)," \
+ + "x`'svg_sub(8))))" txw(29) with .nw at Head1.ne+(Body1.wid/2,0),
+ (0,-vsep),
+ Node(1, "svg_it(h(x`'svg_sub(5),x`'svg_sub(6)))" txw(14) ,
+ (0,-vsep*5/4),
+ Node(1,"svg_it(x`'svg_sub(5):=((E,pk`'svg_sub(E)),h`'svg_sub(5)))" \
+ txw(29) ),
+ Node(2,"svg_it(x`'svg_sub(6):=((H,pk`'svg_sub(H)),h`'svg_sub(6)))" \
+ txw(29) with .n at last "".ne+(0.2,-vsep*2/3))),
+ Node(2,"svg_it(h(x`'svg_sub(7),x`'svg_sub(8)))" txw(14) \
+ with .nw at Head1.ne+(Body1.wid/2+0.1,0),
+ (0,-vsep*5/4),
+ Node(1,"svg_it(x`'svg_sub(7):=" \
+ + "((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))),
+ Node(3,"svg_it(h(x`'svg_sub(9)))" txw(8) \
+ at 0.5 between Head1 and Head2)))
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/TtreeSVG.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/VariableSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/VariableSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/VariableSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,36 @@
+.PS
+# `Variable.m4'
+cct_init(svg_font(sans-serif,11bp__))
+
+define(`elen_',dimen_)
+down_
+[ { variable(`capacitor') }
+ move right; down_
+ { variable(`resistor',uN) }
+ move right; down_
+ { variable(`capacitor(,C)') }
+ move right; down_
+ { variable(`inductor') }
+ move right; down_
+ { variable(`inductor(,W)') }
+ ]
+[
+ skp = 0.4
+ hskip = linewid*0.5
+ cskip = hskip
+Orig: Here
+ { move right cskip
+ move right elen_; move up 0.15 then down 0.15 then right_ hskip
+ line invis right_ elen_ "C"; move right_ hskip
+ line invis right_ elen_ "S" }
+ Loopover_(`char',
+ `move down skp ifelse(char,A,*0.5)
+ { line invis right_ cskip "char"
+ variable(`capacitor(,C)',char); move right_ hskip
+ variable(`capacitor(,C)',char`'C); move right_ hskip
+ variable(`capacitor(,C)',char`'S) }',
+ A,P,L,N)
+ ] with .w at last [].e+(0.4,0)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/VariableSVG.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/WindingsSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/WindingsSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/WindingsSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,102 @@
+.PS
+# Windings.m4
+cct_init(svg_font(sans-serif,11bp__))
+textoffset = 3bp__
+
+define(`vlight',`rgbstring(0.9,0.9,0.9)')
+define(`lightgray',`rgbstring(0.7,0.7,0.7)')
+
+[ winding ]
+ `"winding"' at last [].s below
+
+[ winding(R) ] with .n at last "".s+(0,-0.1)
+ `"winding(R)"' wid 1 at last [].s below
+
+[ sk = 0.75
+ d = 1.5*sk
+ p = 0.4*sk
+ w = 1*sk
+
+W: winding(L,d,p,4,w,vlight)
+
+thinlines_
+ dimension_(from W.nw+(p/4,0) right p,0.1,"pitch" above,0.3)
+ dimension_(from W.sw to W.nw,0.2,diam,0.3)
+ dimension_(from W.e+(-p/2,-w/2) up w,-0.3,,0.2)
+ "core wid" wid 0.75 at W.e ljust
+ arrow <- up d-w+0.1 left d/10 from W.ne+(-p/2,-(d-w))
+ "core color" at Here+(-0.2,0) ljust above
+thicklines_
+] with .sw at last [].se+(0.25,0)
+ "T1" at last [].W.T1 below
+ "T2" at last [].W.T2 below
+
+[
+#`winding(L|R, diam, pitch, nturns, core wid, core color )'
+boxwid = 0.3
+boxht = 0.4
+ down_
+B1: box
+ winding(,boxwid*1.3,boxht/5,3,boxwid) at B1
+ "Left pins" "cw" at B1.s+(0,-0.15)
+ for_(1,2,1,`"svg_small(T`'m4x)" at last [].T`'m4x rjust')
+B2: box at B1.e + (0.5,0)
+ winding(R,boxwid*1.3,boxht/5,3,boxwid) at B2
+ "Left pins" "ccw" at B2.s+(0,-0.15)
+ for_(1,2,1,`"svg_small(T`'m4x)" at last [].T`'m4x rjust')
+ up_
+B3: box at B1.s + (0,-0.55)
+ winding(,boxwid*1.3,boxht/5,3,boxwid) at B3
+ "Right pins" "cw" at B3.s+(0,-0.15)
+ for_(1,2,1,`"svg_small(T`'m4x)" at last [].T`'m4x ljust')
+B4: box at (B2,B3)
+ winding(R,boxwid*1.3,boxht/5,3,boxwid) at B4
+ "Right pins" "ccw" at B4.s+(0.07,-0.15)
+ for_(1,2,1,`"svg_small(T`'m4x)" at last [].T`'m4x ljust')
+] with .sw at last [].se+(0,-0.15)
+
+[
+ Q: box invis ht 1 wid 5/4
+ g = Q.wid/12
+ ironwid = Q.wid/4.5
+
+ line thick ironwid/(1bp__)+linethick from Q.n+(g/2-linethick/2 bp__,0) \
+ to Q.ne then to Q.se then to Q.sw then to Q.nw \
+ then to Q.n+(-g/2+linethick/2 bp__,0)
+ line thick ironwid/(1bp__)-linethick outlined lightgray \
+ from Q.n+(g/2+linethick/2 bp__,0) \
+ to Q.ne then to Q.se then to Q.sw then to Q.nw \
+ then to Q.n+(-g/2-linethick/2 bp__,0)
+
+thinlines_
+ dimension_(from Q.n+(-g/2,-ironwid/2) right g,-ironwid/4,
+ "svg_it(g)" below,1,2pt__)
+thicklines_
+
+ down_
+ P: winding(R,ironwid*5/4,ironwid/2,4,ironwid,lightgray) at Q.w
+ line left ironwid*2/3 from P.T1
+ arrow right to P.T1 "svg_it(i`'svg_sub(1))" above
+ line left ironwid*2/3 from P.T2
+ gap(up_ to 2nd last line.end)
+ llabel(-,svg_it(v`'svg_sub(1)),+)
+ "svg_it(N`'svg_sub(1))" at P.e ljust
+
+ up_
+ S: winding(L,ironwid*5/4,ironwid/2,4,ironwid,lightgray) at Q.e
+ line right ironwid*2/3 from S.T2
+ arrow left to S.T2 "svg_it(i`'svg_sub(2))" above
+ line right ironwid*2/3 from S.T1
+ gap(up_ to 2nd last line.end)
+ rlabel(-,"svg_it(v`'svg_sub(2))" wid 0.2,+)
+ "svg_it(N`'svg_sub(2))" at S.w rjust
+
+ box dashed rad ironwid/4 wid Q.wid ht Q.ht at Q
+ arrow right arrowht from 0.5 between Q.n and Q.ne
+
+ move up ironwid/2 from Q.n
+ move down ironwid/2 from Q.s
+] with .sw at last [].se+(0.25,0)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/WindingsSVG.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/XORSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/XORSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/XORSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,67 @@
+.PS
+# `XORSVG.m4'
+# Realizations of the XOR function
+log_init
+scale = 2.54
+
+define(`gatelineth',1.6) # gate line thickness
+define(`lineth',0.8) # connection thickness
+
+define(`labels',`
+ "svg_it(A)" at last [].InA above wid 0.25
+ "svg_it(B)" at last [].InB above wid 0.25
+ "svg_it(A) O`'svg_sup(+,100,0,-1.4ex) svg_it(B)" at last [].Out ljust wid 1.2
+#"svg_it(A) svg_font(Latin,,,"O")`'svg_sup(+,100,0,-1.4ex) svg_it(B)" at last [].Out ljust
+')
+
+# single gate
+ XOR: Autologix(Xor(A,B))
+ labels
+
+# canonical form
+ Autologix(Or(And(A,Not(B)),And(Not(A),B))) \
+ with .nw at last [].sw+(0,-1)
+ labels
+
+# mixed gates
+ Autologix(And(Nand(A,B),Or(A,B))) \
+ with .nw at last [].nw+(8,0)
+ labels
+
+# nand realization
+ Autologix(Nand(Nand(Nand(A,A),B),Nand(Nand(B,B),A))) \
+ with .nw at 2nd last [].sw+(0,-1)
+ labels
+
+# nor realization
+ Autologix(Nor(Nor(Nor(A,A),Nor(B,B)),Nor(A,B))) \
+ with .nw at last [].nw+(8,0)
+ labels
+
+# These functions contain topologies in common so write a macro
+define(`customAB',
+ `S: Autologix(N`$1'(N`$1'(A,B1),N`$1'(B1,B)),N) with .Out at Here
+ line thick lineth from S.In2 to S.In3; InAB: dot(at last line.c)
+ line thick lineth from InAB left 2*L_unit
+ TN: Autologix(N`$1'(A,B)) with .Out at Here
+ line thick lineth from TN.InA up 3*L_unit; InA: Here
+ line thick lineth from TN.InB up 3*L_unit; InB: Here
+ line thick lineth from S.In4 to (InB,S.In4) then to (InB,TN.In2); dot
+ line thick lineth from S.In1 to (InA,S.In1); dot')
+
+ [ customAB(and)
+ Out: S.Out
+ ] with .nw at 2nd last [].sw+(0,-1)
+ labels
+
+ [ linethick = gatelineth
+ H: NOR_gate(2); linethick = lineth
+ L:dot(at H.w-(2*L_unit,0))
+ line from H.In1 to (L,H.In1) then to (L,H.In2) then to H.In2
+ line from L left 2*L_unit
+ customAB(or)
+ Out: H.Out
+ ] with .nw at last [].nw+(8,0)
+ labels
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/XORSVG.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/XformSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/XformSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/XformSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,41 @@
+divert(-1)
+# `XformSVG.m4'
+define(`trlabels',
+ `{ thinlines_
+ ifelse(`$1',R,
+ `arrow from `$3'.P1 <- right 0.12 up 0.072 chop 1pt__ ; "P1" ljust
+ arrow from `$3'.P2 <- right 0.12 down 0.072 chop 1pt__ ; "P2" ljust
+ arrow from `$3'.TP <- right 0.12 chop 1pt__ ; "TP" ljust
+ arrow from `$3'.S1 <- left 0.12 up 0.072 chop 1pt__ ; "S1" rjust
+ arrow from `$3'.S2 <- left 0.12 down 0.072 chop 1pt__ ; "S2" rjust
+ arrow from `$3'.TS <- left 0.12 chop 1pt__ ; "TS" rjust
+ ',`
+ arrow from `$3'.P1 <- left 0.12 up 0.072 chop 1pt__ ; "P1" rjust
+ arrow from `$3'.P2 <- left 0.12 down 0.072 chop 1pt__ ; "P2" rjust
+ arrow from `$3'.TP <- left 0.12 chop 1pt__ ; "TP" rjust
+ arrow from `$3'.S1 <- right 0.12 up 0.072 chop 1pt__ ; "S1" ljust
+ arrow from `$3'.S2 <- right 0.12 down 0.072 chop 1pt__ ; "S2" ljust
+ arrow from `$3'.TS <- right 0.12 chop 1pt__ ; "TS" ljust
+ ')
+ `"'`$2'`"' at `$3'.s+(0,-(`$4'))
+ thicklines_ } ')
+divert(0)dnl
+.PS
+cct_init(svg_font(sans-serif,11bp__))
+
+move right 0.5
+ down_
+ T1: transformer
+ trlabels(,`transformer',T1,0.3)
+ T2: transformer(down_ 0.6,,2,P,8) with .w at T1.e+(1,0)
+ trlabels(,`...(down_ 0.6,,2,P,8)',T2,0.3)
+ T3: transformer(,,8,WD12,4) with .w at T2.e+(1,0)
+ trlabels(,`...(,,8,WD12,4)',T3,0.23)
+ T4: transformer(,,9,AL) with .sw at T3.se+(1,0)
+ trlabels(,`...(,,9,AL)',T4,0.3)
+ T5: transformer(,R,8,AW) with .sw at T4.se+(1,0)
+ trlabels(R,`...(,R,8,AW)',T5,0.3)
+move right 0.4 from last [].e
+
+command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/XformSVG.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/controlSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/controlSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/controlSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,97 @@
+.PS
+# control.m4
+#.PS 5i
+cct_init(svg_font(sans-serif,11bp__))
+ linewid = linewid*0.8
+ circlerad = 0.35/2
+ bw = boxwid/2
+ bh = boxht/2
+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 linewid-circlerad ; S2: circle }
+ { 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 to (S2,Here) ; arrow to S2.s }
+ arrow right from S2.e "svg_it(u(s))" above
+ box "svg_it(G(s))"
+ 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__)
+
+Obs: [ {"svg_it(r)" above ljust}
+ arrow
+S: circle
+ "-" 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
+ 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
+ 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__)
+
+NL: [boxwid = boxwid*1.8
+ 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
+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
+D: circle
+ line from Gh.e to (D,Gh.e) "svg_it(u`'svg_sub(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
+ 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)
+ 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))
+ 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__)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/controlSVG.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/cscSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/cscSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/cscSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,79 @@
+.PS 3.5
+# csc.m4
+gen_init
+
+circlerad=1.91*scale
+hubrad=0.10
+s=0.5
+
+define(`midnight',`26,26,112')
+define(`white',`255,255,255')
+define(`spokethick',0.1)
+define(`spoke',`dnl
+ {line from rvec_(0,hubrad-spokethick/2) to rvec_(circlerad-0.05,0)}
+ {line from rvec_(0,-(hubrad-spokethick/2)) to rvec_(circlerad-0.05,0)}')
+define(`lwid',1)
+define(`coord',`(s*(`$1'),s*(`$2'))')
+
+# Circle and spokes
+# [
+rgbdraw(midnight,
+ linethick=`0.'eval(lwid*15)/(1pt__)
+ {circle with .c at Here
+ circle invis diam last circle.diam + linethick pt__ at last circle }
+ linethick=spokethick/(1pt__)
+ for angle = 0 to 330 by 30 do {
+ Point_(angle)
+ {spoke}
+ }
+ )
+
+# Whiten where the hull will be
+ linethick=`0.'eval(lwid*20)/(1pt__)
+ rgbdraw(white,
+ Point_(-60){line to rvec_(circlerad*0.72,0)}
+ Point_(-90){line to rvec_(circlerad*0.72,0)}
+ Point_(-120){line to rvec_(circlerad*0.72,0)}
+
+ linethick=`0.'eval(lwid*15)/(1pt__)
+ {move to coord(1.8,-2.3)+(0,0.025)
+ spline to Here+coord(-0.8,-0.3) then to Here+coord(-1.8,-0.3) \
+ then to Here+coord(-2.18,-0.27) \
+ then to Here+coord(-3.93,-0.1)}
+ )
+
+# Sail
+ thinlines_
+ setrgb(midnight)
+ line from coord(0.44,3.38) to coord(0.44,2.6) \
+ then to coord(2.1,-1.75) \
+ then to coord(1.22,-1.53) \
+ then to coord(0.62,-1.4) \
+ then to coord(0.55,-1.6) \
+ then to coord(-2.2,-1.6) \
+ then to coord(-2.35,-1.5)
+ spline to coord(-2.14,-0.78) \
+ then to coord(-1.74,0.22) \
+ then to coord(-1.42,0.89) \
+ then to coord(-0.92,1.73) \
+ then to coord(0,2.9) \
+ then to coord(0.44,3.38)
+
+# Hull
+ spline from coord(2.1,-1.75) to coord(1.9,-2.2) \
+ then to coord(1.85,-2.3) then to coord(1.8,-2.33) \
+ then to coord(1,-2.5) then to coord(0,-2.6) then to coord(-0.38,-2.57) \
+ then to coord(-2.13,-2.4)
+ 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)
+ line to coord(2.1,-1.75)
+resetrgb
+ setrgb(white)
+ spline from coord(-2.2,-2.05) to coord(-1,-2.08) then to coord(0.55,-1.77)
+ line to coord(-2.2,-2.05)
+resetrgb
+ linethick=`0.'eval(lwid*15)/(1pt__)
+
+# ] with .sw at 1,1
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/cscSVG.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/diamondSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/diamondSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/diamondSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,34 @@
+.PS
+# diamond.m4
+# See LaTeX Graphics Companion pp 57-58
+gen_init
+dimen = 1.5*scale
+ratio = 0.9
+n = 30
+
+North: (0,dimen)
+East: (dimen,0)
+South: (0,-dimen)
+West: (-dimen,0)
+
+define(`square',
+ `shade(`$1',
+ line from North to East then to South then to West then to North)
+ ')
+
+define(`diamond',`[
+for i = 2 to n do {
+ square(`$1')
+ Tmp: North
+ North: ratio between East and North
+ East: ratio between South and East
+ South: ratio between West and South
+ West: ratio between Tmp and West
+ }]')
+
+linethick = 0
+diamond( i % 2 )
+linethick = 0.4
+diamond( (n-i)/(n-2) ) with .w at last [].e+(0.25,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/diamondSVG.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/ex00SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex00SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex00SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,94 @@
+.PS
+# ex00.m4
+gen_init(svg_font(sans-serif,11bp__))
+
+[
+thicklines_
+ewid = 2
+eht = 0.5
+E: ellipse wid ewid ht eht
+
+ [ narrows = 5
+ de = ewid/narrows
+ for i=0 to narrows do {
+ arrow down from i*de,0 }
+ ] with .s at E.n+(0,0.25)
+
+ "svg_bf(B)svg_it((t))" at last [].c
+
+thinlines_
+ arrow from E.c to E.ne
+ box invis fill_(1) ht 0.12 wid 0.12 with .c at last arrow.c "svg_it(r)"
+
+ command "</g>" # end font
+]
+[
+# ex07.m4
+#gen_init
+
+Barrel: box invis ht 0.4 wid 1.5
+ up
+Face: arc rad 2.6 from Barrel.e+(2.4,-1.7/2) to Barrel.e+(2.4,1.7/2)
+
+ eps = 0.03
+ arc ccw rad 2.6 from Face.start-(eps,0) to Face.end-(eps,0) \
+ with .c at Face.c-(eps,0)
+ line from Barrel.nw to Barrel.ne then to Face.end
+ line from Barrel.sw to Barrel.se then to Face.start
+ arc cw from Barrel.sw to Barrel.nw rad Barrel.ht*1.2
+
+Cathode: Barrel.w+(0.3,0)
+Term: Barrel.w+(-0.25,0)
+ dcath = 0.13
+ dan = 0.12
+
+ line from Cathode up dcath/2 left dcath/2 then to Term.x,Cathode.y+dcath/2
+ dot
+ line from Cathode down dcath/2 left dcath/2 then to Term.x,Cathode.y-dcath/2
+ dot
+
+ hole = 0.06
+Hole: line invis up hole from Cathode+(0.5,-hole/2)
+ line from Hole.end up dan-hole/2 then to Term.x,Cathode.y+dan; dot
+ line from Hole.start down dan-hole/2 then to Term.x,Cathode.y-dan; dot
+
+ platewid = 0.25
+ platesep = 0.15
+Plates: box invis wid platewid ht platesep at Barrel.e+(-platewid/2,0)
+ line right platewid from Plates.nw
+ line right platewid from Plates.sw
+ line up 0.3 from Plates.n
+ line down 0.3 from Plates.s
+
+linethick_(1.4)
+
+ move to Cathode+(0.03,0)
+Spot: 0.9<Face.start,Face.end>
+ arcto(Plates.c,Spot,(Plates.c.x-Cathode.x)*0.90,outlined "lightgrey" thick 2)
+ line to Spot chop 0 chop -0.02 outlined "lightgrey" thick 2
+
+thinlines_
+
+ arrow <- from Cathode+(0.2,0.06) up 0.5 left 0.3
+ "electron" above "gun" above
+
+ arrow <- from Plates.nw+(0,0.06) up 0.5 left 0.3
+ "deflection" above "plates" above
+
+ arrow <- from 0.5<Plates.e,Spot>+(0,0.06) up 0.5 left 0.3
+ "electron beam" at Here+(-0.3,0) above
+
+ spline <- from 1.015<Plates.e,Spot> right 0.1 up 0.1 then up 0.1 \
+ then up 0.1 left 0.1
+ "spot of light" rjust
+
+ "vacuum" at 0.5<Face.start,Face.end>+(-0.4,0) rjust
+
+ arrow <- from Face.start+(0.1,0.5) left 0.6*1.4 down 0.3*1.4
+ "phosphor coating" rjust
+
+ arrow <- from 0.2<Barrel.se,Face.start> left 0.6 down 0.3
+ "glass enclosure (tube)" rjust
+
+] with .sw at last [].se+(0.5,0)
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex00SVG.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/ex01SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex01SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex01SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,28 @@
+.PS
+# ex01.m4
+cct_init(svg_font(sans-serif,11bp__))
+
+linewid = linewid*1.5 # let's make the circuit elements bigger than usual
+define(`elen_',linewid) # but not longer
+
+ del = elen_/4 # a spacing parameter
+ move right 0.4
+Vin: source(up_ elen_ + 2*del, V); llabel(,v`'svg_sub(s),)
+
+ switch(right_ elen_,,C); rlabel(,t = svg_norm(0),)
+ resistor; llabel(,svg_norm(47 ohm),); b_current(i`'svg_sub(R),above rjust)
+
+ line right_ elen_/2 then down_ del
+ parallel_(`inductor(,W); llabel(,"L" wid 0.15,); b_current(i`'svg_sub(L))',
+ `capacitor(,C); rlabel(+,v`'svg_sub(C),-); llabel(,,C)')
+ line to (Here,Vin.start) then to Vin.start
+
+ define(`meshcurrent',`[arc -> cw with .c at (0,0) \
+ from (Rect_(`$1',-30)) to (Rect_(`$1',30)) "svg_it(`$2')"]')
+
+ right_
+ meshcurrent(del,i`'svg_sub(2)) at last[].C
+ meshcurrent(2*del,i`'svg_sub(1)) at Vin.start + (4*del,3*del)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex01SVG.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/ex02SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex02SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex02SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,51 @@
+.PS
+# ex02.m4
+cct_init
+
+[
+ [ for angle = 0 to 315 by 45 do { Point_(angle)
+ opamp(to rvec_(linewid*3/2,0)) with .Out at 0,0 } ]
+ resistor(down_ dimen_ from last [].s)
+ diode(down_ dimen_*2/3,LE)
+ diode(down_ dimen_*2/3,LER)
+ ground(,T)
+]
+
+[
+ define(`elen_',`dimen_*3/2') # restore defaults
+ define(`sourcerad_',`dimen_*0.25')
+ leng = elen_
+ define(`fromcentre',`move to C+(-elen_/2,-elen_*cosd(15)/(2*sind(15)))')
+ C: dot
+ { fromcentre()
+ for i = 0 to 359 by 30 do {
+ Point_(i); inductor
+ }
+ }
+ define(`elen_',leng*0.8)
+ { fromcentre()
+ for i=0 to 359 by 30 do {
+ Point_(i); inductor(,W)
+ }
+ }
+ define(`elen_',leng*0.6)
+ { fromcentre()
+ for i=0 to 359 by 30 do {
+ Point_(i); resistor
+ }
+ }
+ define(`elen_',leng*0.4)
+ { fromcentre()
+ for i=0 to 359 by 30 do {
+ Point_(i); capacitor(,C)
+ }
+ }
+ define(`elen_',leng*0.2)
+ { fromcentre()
+ for i=0 to 359 by 30 do {
+ Point_(i); diode
+ }
+ }
+ ] with .sw at last [].se+(linewid,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex02SVG.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/ex03SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex03SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex03SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,37 @@
+.PS
+# ex03.m4
+cct_init(svg_font(sans-serif,11bp__))
+
+circlerad = 0.35/2
+define(`elen_',`dimen_')
+del = linewid*0.6
+
+ "svg_it(u`'svg_sub(k))" wid 0.15 above
+ line
+{
+ arrow right_ del
+B0: circle "svg_it(b`'svg_sub(0))"
+ arrow right linewid/2
+S: circle
+ line right 2*circlerad + del + S.w.x-B0.e.x
+ {arrow ; "svg_it(y`'svg_sub(k))" wid 0.2 above }
+ down_
+ delay
+ {line left_ del
+ circle "svg_it(-a`'svg_sub(1))" ; arrow from last circle to S chop}
+ line dashed down_ del
+ delay
+ {line left_ del
+ circle "svg_it(-a`'svg_sub(n))" ; arrow from last circle to S chop}
+}
+ down_
+ delay
+ {line right_ del
+ circle "svg_it(b`'svg_sub(1))" ; arrow from last circle to S chop}
+ line dashed down_ del
+ delay
+ {line right_ del
+ circle "svg_it(b`'svg_sub(n))" ; arrow from last circle to S chop}
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex03SVG.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/ex04SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex04SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex04SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,61 @@
+.PS
+# ex04.m4
+cct_init(svg_font(sans-serif,10bp__))
+
+[
+pushdef(`elen_',`dimen_') # short elements
+pushdef(`sourcerad_',`dimen_*0.2')
+#linewid = 0.85
+linewid = 0.6
+
+Ct:dot
+ Point_(-60); capacitor(,C); dlabel(0.14,0.14,,,C`'svg_sub(3))
+Cr:dot
+ left_; capacitor(,C); dlabel(0.14,0.14,C`'svg_sub(2),,)
+Cl:dot
+ down_; capacitor(from Ct to Cl,C); dlabel(0.14,-0.10,C`'svg_sub(1),,)
+
+T:dot(at Ct+(0,elen_))
+ inductor(from T to Ct); dlabel(0.12,-0.1,,,L`'svg_sub(1))
+
+ Point_(-30); inductor(from Cr to Cr+vec_(elen_,0))
+ dlabel(0,-0.07,,L`'svg_sub(3),)
+R:dot
+L:dot( at (Cl-(Cos(30)*(elen_),0),R) )
+
+ inductor(from L to Cl); dlabel(-0.1,-0.1,L`'svg_sub(2),,,X)
+
+ right_; resistor(from L to R); rlabel(,R`'svg_sub(2),)
+ move down 0.3
+
+ resistor(from T to R); dlabel(0,0.15,,R`'svg_sub(3),)
+ b_current(y,ljust above)
+
+ 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,)
+ resistor(to 0.8 between L and T); dlabel(0,0.15,,R`'svg_sub(1),)
+ line to T
+ ]
+popdef(`elen_')
+popdef(`sourcerad_')
+
+[
+ Point_(225)
+{B1: ebox ; b_current; dlabel(dimen_*0.4,-0.1,i`'svg_sub(1))
+ dot
+ B4: ebox(to rvec_(rp_len,0)); b_current(,,,E); dlabel(dimen_*0.4,-0.1,,,i`'svg_sub(4)) }
+ Point_(-45)
+ B2: ebox ; b_current; dlabel(dimen_*0.4, 0.1,i`'svg_sub(2))
+ dot
+ B7: ebox ; b_current; dlabel(dimen_*0.4, 0.1,i`'svg_sub(7))
+ B3: ebox(from B1.end to B2.end); b_current; dlabel(dimen_*0.4,0.1,i`'svg_sub(3))
+ dot(at (B1.start,B7.end))
+{B5: ebox(to B1.end); b_current; dlabel(dimen_*0.4,-0.09,i`'svg_sub(5))}
+{B6: ebox(to B2.end); b_current; dlabel(dimen_*0.4, 0.09,i`'svg_sub(6))}
+{B8: ebox(right_ to B4.end); b_current; dlabel(dimen_*0.4, 0.1,i`'svg_sub(8))}
+ B9: ebox(left_ to B7.end); b_current; dlabel(dimen_*0.4,-0.1,i`'svg_sub(9))
+ ] with .w at last [].e+(0.5,0)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex04SVG.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/ex05SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex05SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex05SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,69 @@
+.PS
+# ex05.m4
+darrow_init
+
+ fillval = 0.8 # environmental variable
+
+ dx = boxht/5 # diagram parameters wrt scaled env variables
+ circlerad = boxht*3/8
+ extlen=4*dx
+ indel = boxht/3
+
+COb: box fill_ "CO"
+ { line right textht*0.5 from COb+(0,textht*0.5) }
+CO:box fill_ with .nw at last box.se+(dx,-dx) "CO"
+CbOb: box fill_ with .nw at last box.se+(dx,-dx) "CO"
+ { line right textht*1.0 with .c at CbOb+(-textht*0.1,textht*0.5) }
+CbO: box fill_ with .nw at last box.se+(dx,-dx) "CO"
+ { line left textht*0.5 from CbO+(-textht*0.2,textht*0.5) }
+
+ dline(from CbO.s down_ dx,,t,,!-)
+ dright
+{Sum: circle invis at (CO,Here)}
+ darrow(to Sum.e)
+
+SW: (COb.w,Sum.s)+(-3*dx-extlen/2,-dx)
+NE: (CbO.e,COb.n)+(dx,dx)
+ right_;
+SB: shadebox(box wid NE.x-SW.x ht NE.y-SW.y with .sw at SW)
+
+U: COb.w-(3*dx+extlen,0)
+ {"svg_bf(u)" wid 0.1 rjust at U}
+ dline(from U right_ extlen+dx,,t,,|-)
+TU: dtee(R)
+ {darrow(to COb.w,t)}
+ dline(to (Here,CO),t,t)
+{Dum: circle invis at (Here,Sum)}
+ dtee(L)
+ {darrow(to CO.w,t)}
+{D: box "D" wid boxwid/2 ht boxwid/2 at 0.5<Here,Dum.n>}
+ darrow(to D.n,t)
+ darrow(from D.s to Dum.n,,,,,,!-)
+
+ dline(up_ from CO.n to (CO,COb)-(0,indel),,t,,!-)
+ dleft; darrow(to (COb.e,Here))
+
+ dline(up_ from CbOb.n to (CbOb,COb),,t,,!-)
+ dleft; darrow(to COb.e)
+
+ dline(from CbO.n-(indel,0) up_ CbOb.y-CbO.n.y,,t,,!-)
+ dleft; darrow(to CbOb.e)
+
+ dline(up_ from CbO.n to (CbO,CO),,t,,!-)
+ dleft
+ dline(to (CbOb.w,Here)); darrow(to CO.e)
+
+ dline(up_ from CbO.n+(indel,0) to (CbO,COb)+(indel,indel),,t,,!-)
+ dleft; darrow(to (COb.e,Here))
+
+ darrow(from CO.s to Sum.n,,,,,,!-)
+
+ darrow(left_ from Sum.w to Dum.e)
+ dline(from Dum.w to (SB.w-(0.1,0),Dum)); darrow(to (U,Here))
+ {"svg_bf(y)" rjust}
+ move left 0.23
+
+ circle at Sum
+ circle at Dum
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex05SVG.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/ex06SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex06SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex06SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,64 @@
+.PS
+# ex06SVG.m4
+gen_init(svg_font(font-family="Times" font-style="italic",11bp__))
+
+F: box invis wid 1.6i ht 1.8i
+E: box invis wid F.wid ht F.ht
+G: box invis wid 1i ht F.ht
+
+ ell = F.ht-0.6i
+ r = 0.3i
+ offset = 8bp__
+ hatch = 0.1i
+ dhs = hatch * sqrt(2)
+ qmell = F.ht - ell
+ kwid = F.wid-qmell-r
+
+ box wid G.e.x-F.w.x ht F.ht with .sw at F.sw thick linethick*3/2
+ Loopover_(`B',
+ `line from B.ne to B.se thick linethick*3/2
+ B`'T: B.se + (-qmell,qmell)
+ line from (B.w,B`'T) to B`'T chop 0 chop -offset
+ line from B`'T up ell chop -offset chop 0
+ line from B`'T + (-r,0) up ell
+ line dashed from B`'T to B.se
+ "svg_fsize(0,110)" at B`'T + (-r/2,ell/2)
+ "svg_fsize(0,110)" at B`'T + (qmell/2,ell/2)
+ "t" at (B`'T,B.n) + (-offset/2,offset)
+ thinlines_
+ arrow <-> from B.nw+(0,offset*2/3) right B.wid-qmell-r "k" above
+ for x = hatch to B`'T.x-B.w.x-r by hatch do {line down ell from B.nw+(x,0)}
+ for y = dhs to qmell by dhs do {line up y right y from (B.w,B`'T)+(0,-y)}
+ for x = y-qmell to B.wid-qmell*2 by dhs do {
+ line up qmell right qmell from B.sw+(x,0) }
+ for x = last line.start.x-B.w.x+dhs to B.wid by dhs do {
+ line up (B.wid-x)/2 right (B.wid-x)/2 from B.sw+(x,0) }
+ thicklines_
+ ',F,E)
+
+ line from (G.w,ET) right G.wid
+ line from ET + (0,r) left ET.x-E.w.x
+
+ thinlines_
+ for y = hatch to r by hatch do { line left r from ET+(0,r-y) }
+ for x = dhs to G.wid by dhs do {
+ line left x down x from G.nw+(x,0) }
+ for y=x-G.wid to G.ht-G.wid by dhs do {
+ line left G.wid down G.wid from G.ne+(0,-y) }
+ for x = y-(G.ht-G.wid) to G.wid by dhs do {
+ line right G.wid-x up G.wid-x from G.sw+(x,0) }
+ arrow <-> up r with .c at ET+(offset*2/3,r/2) "r" ljust
+ thicklines_
+
+ "q" at F.sw + (-offset,offset/3)
+ "l" at (F.w,FT) + (-offset,offset/3)
+
+ "n+p+m" at G.ne + (0,offset)
+
+ Loopover_(`B',`"B" ht 0.12 below at B.s+(0,-2bp__)',F,E,G)
+
+# Adjust the bounding box without using s_box:
+ move from F.nw+(-12bp__,21bp__) to G.se+(20bp__,-15bp__)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex06SVG.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/ex08SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex08SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex08SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,83 @@
+.PS
+# ex08.m4
+log_init(svg_font(sans-serif,11bp__))
+
+define(`del',`L_unit*5/2')
+
+# Input labels
+C: "C" rjust at grid_(0,0)
+DE: grid_(0,AND_ht*7/4)
+A0: DE+grid_(0,BUF_ht*3/2); "A0" rjust at A0
+A1: A0+grid_(0,BUF_ht*3/2); "A1" rjust at A1
+A2: A1+grid_(0,BUF_ht*3/2); "A2" wid 0.2 rjust at A2
+ move to (-0.2,0) # Lettering within the global object
+
+# Buffer strings
+for_(1,3,1,
+ `line right 3*del from A`'eval(3-m4x)
+ B`'eval(2*m4x-1): NOT_gate; line right 2*del
+ T`'m4x: last line.c
+ B`'eval(2*m4x): BUFFER_gate(,N) ')
+
+B7: BUFFER_gate at (B1,C)
+
+G1: NOR_gate with .Out at (B1.Out,DE)
+G2: NOR_gate at (B2+grid_(N_rad,0),G1-grid_(0,AND_ht))
+G3: AND_gate(4) with .In1 at (G2.Out+(9*del,0),A2)
+G5: AND_gate(4) with .In4 at (G3.In1,G2.Out)
+G6: AND_gate at G5+grid_(AND_wd,AND_ht*3/4)+(del*2,0)
+G4: NOR_gate with .In1 at (G6.Out,G3)+(2*del,0)
+G7: NOR_gate with .In2 at (G4.In2,G5.Out)
+
+# Output to other latches
+TOL: (G2.Out,C)+(4*del,-4*L_unit)
+ move to TOL+(3*del,-del/3) ; {move down 0.15}
+ "To other latches" below
+
+# Remaining input lines
+ line from G1.In1 to (DE,G1.In1); "D" rjust
+ line from G1.In2 to (DE,G1.In2); "E" rjust
+ dot(at G1.In2-(del,0)); line to (Here,G2.In2) then to G2.In2
+ line from C to B7.In1
+
+# Connect Bi, and connect to output bus
+for_(1,3,1,
+ `dot(at T`'m4x.c) ; line down (A2.y-A1.y)/2
+ line to (TOL-(m4x*del,0),Here) ; arrow to (Here,TOL) ')
+
+# G1 to G2
+ dot(at (T1.c,G1)); line to (Here,G2.In1) then to G2.In1
+
+# Upper And inputs to output bus
+for_(1,4,1,
+ `line left eval(5-m4x)*del from G3.In`'m4x
+ arrow to (Here,TOL) ')
+
+ line from B2.Out to (G3.In1,B2)-(4*del,0) ; dot
+ line from B4.Out to (G3.In2,B4)-(3*del,0) ; dot
+ line from B6.Out to (G3.In3,B6)-(2*del,0) ; dot
+ line from G1.Out to (G3.In4,G1)-(del,0) ; dot
+
+# Lower And inputs
+ line left 4*del from G5.In1 ; dot
+ line left 3*del from G5.In2 ; dot
+ line left 2*del from G5.In3 ; dot
+ line from G2.Out to G5.In4 ; dot(at (TOL,Here)) ; arrow to (Here,TOL)
+
+# Fix up G4, G6, G7
+ line from G3.Out to G4.In1
+ line right del from G4.Out
+ {dot; line right del
+ "Q7" wid 0.2 ljust; move right 0.2 } # letters in object
+ line down 2*del then to G6.In1+(-del,del)
+ line to (Here,G6.In1) then to G6.In1
+ line from G4.In2 to (G6.In1+(-del,0),G4.In2)
+ line down del then to G7.Out+(del,2*del)
+ line to (Here,G7) then to G7.Out
+ line from G6.Out right del ; line to (Here,G7.In1) then to G7.In1
+ line from G5.Out to G7.In2
+ line left del from G6.In2 ; arrow to (Here,TOL)
+ dot(at (Here,C)) ; line to B7.Out
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex08SVG.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/ex09SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex09SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex09SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,129 @@
+.PS
+# ex09.m4
+# Illustrating the arguments of the `dimension_' and `arcdimension_' macros.
+gen_init(svg_font(sans-serif,10bp__,3bp__))
+scale = 25
+
+define(`spacer',`
+[
+linethick_(1.0)
+
+ WC: circle diameter 4.22 at 0,0
+ EC: circle same at 30.15,0
+ NC: circle diameter 2.36 at 13.28, 10.92/2
+ SC: circle same at 13.28,-10.92/2
+
+ C: 0.5<WC,EC> # spacer centre
+ h = 27.26 # spacer height
+ s = 4.22/2 # small arc radius
+ r = h/2*0.80 # large arc radius
+ Cr: C+(0,h/2-r) # upper arc centre
+ e = s # small arc centre offset from small circle
+ Cs: EC+(e,0) # right arc centre
+
+# Tangent points Tr and Ts to circles at Cr and Cs
+ dx = Cr.x-Cs.x; dy = Cr.y-Cs.y; dsq = dx*dx+dy*dy
+ Tr: (r*(r-s)/dsq)<Cr,Cs> + (vscal_(r*sqrt(dsq-(r-s)^2)/dsq,dy,-dx))
+ Ts: (s/r)<Cr,Tr>-(dx,dy)
+
+ line from Tr to Ts
+ arc cw to (Ts.x,-Ts.y) with .c at Cs
+E: last arc.e
+ line to (Tr.x,-Tr.y)
+ arc cw to (C.x-(Here.x-C.x),Here.y) with .c at (Cr.x,-Cr.y)
+S: last arc.s
+ line to (Cs.x-Ts.x-s,Cs.y-Ts.y)
+ arc cw to (Here.x,-Here.y) with .c at (-e,0)
+W: last arc.w
+ line to (C.x-(Tr.x-C.x),Tr.y)
+ arc cw to Tr with .c at Cr
+N: last arc.n
+
+thinlines_
+ dimension_(from S+(2,0) to N+(2,0),-(E.x-C.x+4),27.76, 5)
+ dimension_(from SC.n+(0,2) left SC.x-WC.x, (SC.n.y-S.y+3), 13.28, 10)
+ dimension_(from WC.n+(0,2) right EC.x-WC.x,-(WC.n.y-S.y+7), 30.15, 10)
+ dimension_(from W+(0,-1.5) to E+(0,-1.5), -(C.y-S.y+8), 41.28, 10)
+ dimension_(from SC.e+(2,0) up NC.y-SC.y, (SC.e.x-W.x+8),"10.92" wid 10, 5)
+
+ arrow <- from EC left 6 up 16 chop EC.rad chop 0
+ line left 4 "4.22 (2) PL" above
+ arrow <- from NC up last line.y-NC.y+7/8 left 8 chop NC.rad chop 0
+ {"2.36" above}
+ arrow to SC chop 0 chop SC.rad
+
+] ')
+
+define(`sk',`scale*0.7')
+
+define(`bdot',
+ `dot(`$1',,0.5)
+ "svg_it($2)" $1 $3 ')
+
+ thinlines_
+
+ move right 0.8
+
+# Upper left diagram
+ spacer
+
+# Lower left diagram
+[ define(`lwid',`29bp__')
+A: bdot(at (0,0),A,below)
+B: bdot(at (2*sk,0),B,below)
+Ctr: 0.5 between A and B
+ move up 1*sk from A
+L: move left 0.85*sk from A
+
+ linethick_(1)
+ dimension_(from A to B,0.5*sk,label,lwid,0.1*sk)
+ "`dimension_(from A to B,0.5,label,29bp__,0.1)'" wid 90 \
+ with .w at (L.end,A +(0,-9))
+
+ thinlines_
+ arrow from A to B chop 0.05*sk "linespec" below
+ dimension_(up_ 0.5*sk from A,0.2*sk,"offset" rjust,,,->)
+ dimension_(up_ 0.1*sk from B,-0.2*sk," tic offset" ljust)
+ dimension_(up_ 0.1*sk from B+(0,0.5*sk),-0.2*sk," tic offset" ljust)
+ dimension_(from Ctr+(-lwid/2,0.5*sk) right lwid,0.2*sk,
+ "blank width" above)
+] with .nw at last [].sw+(0,-0.7*sk)
+
+# Upper right diagram
+[ A: bdot(at (0,0),A, above rjust)
+ B: bdot(at (2*sk,0),B, above ljust)
+ C: bdot(at (0,-1.5*sk),C, above rjust)
+ D: bdot(at (2*sk,-1.5*sk),D, above ljust)
+
+T: C+(-1*sk,-0.5*sk)
+T: C+(-0.45*sk,-0.5*sk)
+ dimension_(from A to B,0.3*sk,svg_it(AB),20bp__)
+ dimension_(from C to B chop dotrad_,,svg_it(X),16bp__)
+ dimension_(from C to A,0.3*sk,svg_it(CA),14bp__,,->)
+ dimension_(from D to B,-0.3*sk,"svg_it(DB)" ljust)
+ dimension_(from C to D chop dotrad_,,svg_it(T`'svg_sub(15)),15bp__)
+ arcdimension_(from C to D with .c at 0.5 between A and B,12bp__,
+ svg_it(C) to svg_it(D),34bp__)
+Q: C+(-9,-9)
+
+`define' leftparagraph { [ baselineskip = textht*1.5; { move right $1 }
+ for i = 2 to $+ do {
+ move to Here+(0,-baselineskip)
+ exec sprintf("{ `\"$%g \"' ljust }; ",i) } ] }
+
+define(`svg_comma',`svg_symbol(&`#'44;)')
+leftparagraph(5.7*scale; baselineskip = 1.5*textht,
+ `dimension_(from A to B,0.3,svg_it(AB),20bp__)',
+ `dimension_(from C to B,,svg_it(X),16bp__)',
+ `dimension_(from C to A,0.3,svg_it(CA),14bp__,,->)',
+ `dimension_(from D to B,-0.3,"svg_it(DB)" ljust)',
+ `dimension_(from C to D chop dotrad_,,svg_it(T`'svg_sub(15)),15bp__)',
+ `arcdimension_'svg_symbol(&`#'40;)`from C to D with .c at 0.5 \
+ between A and B'svg_comma`12bp__'svg_comma,
+ svg_ensp `svg_it(C) to svg_it(D)'svg_comma`34bp__'svg_symbol(&`#'41;)
+ ) with .nw at Q
+
+] with .nw at 1st [].ne+(1.7*sk,0)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex09SVG.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/ex10SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex10SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex10SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,62 @@
+.PS
+# ex10.m4
+cct_init(svg_font(sans-serif,11bp__))
+
+[
+ dt = 360/5
+ r = 0.75
+
+ N0: dot(at (Rect_(r,90)))
+ N1: dot(at (Rect_(r,(90-dt))))
+ N2: dot(at (Rect_(r,(90-2*dt))))
+ N3: dot(at (Rect_(r,(90-3*dt))))
+ N4: dot(at (Rect_(r,(90-4*dt))))
+
+ line from N0 to N1 then to N2 then to N3 then to N4 then to N0
+ L14: line from N1 to N4
+ L24: line from N2 to N4
+ C02: crossover(from N0 to N2,,L14)
+ C13: crossover(from N1 to N3,,C02,L24)
+ C03: crossover(from N0 to N3,,L14,L24)
+ ]
+
+[
+move right 0.5
+ up_
+setrgb(255,0,0)
+Q1: bi_tr(,R) # Q1 upward with base to the right
+ llabel(,Q`'svg_sub(1))
+ resetrgb # Label to left of last []
+setrgb(0,0,255)
+Q2: bi_tr with .C at Q1.C+(elen_*7/4,0) # Q2 with base to left
+ rlabel(,Q`'svg_sub(2))
+ resetrgb
+ move right 0.5
+
+ ground(at Q1.E)
+ ground(at Q2.E)
+
+ line right_ dimen_/3 from Q1.B # Extend the base conductors
+B1: Here
+ line left_ dimen_/3 from Q2.B
+B2: Here
+
+ resistor(up_ elen_*0.75 from Q1.C); llabel(,R`'svg_sub(L)) # Load resistors
+ line to (Q2.C,Here) "svg_it(V`'svg_sub(svg_norm(cc)))" below
+ resistor(down_ to Q2.C); llabel(,R`'svg_sub(L))
+
+ move to Q1.C+(0,dimen_/5)
+ { resistor(right_ to (B1,Here)); llabel(,R`'svg_sub(1))
+X: line to B2 } # Label the line to be jumped
+ resistor(from (Q2.C,Here) left_ to (B2,Here)); rlabel(,R`'svg_sub(1))
+ crossover(to B1,R,X)
+
+ resistor(down_ elen_*0.75); rlabel(,R`'svg_sub(2)) # Bias resistors
+ {"svg_it(-V`'svg_sub(svg_norm(cc)))" rjust}
+ line to (B2,Here)
+ resistor(up_ to B2); rlabel(,R`'svg_sub(2))
+ ] with .sw at last [].se+(0.75,0)
+
+ command "</g>" # end font
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex10SVG.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/ex11SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex11SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex11SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,75 @@
+.PS
+# ex11.m4
+cct_init(svg_font(sans-serif,11bp__,1bp__))
+
+ "audio" ljust
+ { arrow down_ elen_/4}
+ resistor(down_ 2*elen_) ; llabel(R`'svg_sub(17))
+G: ground
+ capacitor(right_ dimen_ from last [].c) ; rlabel(,C`'svg_sub(19))
+ {arrow <- right_ arrowht from last line.start}
+ { resistor(down_ to (Here,G)); rlabel(,R`'svg_sub(19)) }
+{R18: resistor(up_ elen_*1.2); llabel(,R`'svg_sub(18)) }
+
+ line right_ elen_/4 ; up_
+Q4: bi_tr(,,,E) with .B at Here; llabel(,,Q`'svg_sub(4))
+ resistor(down_ from Q4.E to (Q4.E,G)); rlabel(,R`'svg_sub(21))
+ resistor(up_ from Q4.C to (Q4.C,R18.end)); llabel(,R`'svg_sub(20))
+ line up_ elen_/4; dot; "svg_it(V`'svg_sub(CC))" ljust
+
+T1: Q4.C+(0,elen_/8)
+
+ capacitor(right_ dimen_ from T1); llabel(,C`'svg_sub(20))
+ { capacitor(down_ 0.5*(Here.y-G.y)); rlabel(,C`'svg_sub(21))
+ resistor(right_ elen_); llabel(,R`'svg_sub(23))
+ arrow <- from last [] to (last [],G)
+ }
+ resistor(right_ elen_); llabel(,R`'svg_sub(22))
+ { resistor(down_ 0.5*(Here.y-G.y)); llabel(,R`'svg_sub(24))
+ capacitor(down_ to (Here,G)); llabel(,C`'svg_sub(22)) }
+
+ capacitor(right_ dimen_); llabel(,C`'svg_sub(23))
+ { capacitor(down_ to (Here,G)); rlabel(,C`'svg_sub(24)) }
+ line right_ elen_/2
+Q5I: Here
+ line right_ elen_/4 ; up_
+Q5: bi_tr(,,,E) with .B at Here; rlabel(,Q`'svg_sub(5))
+R27: resistor(down_ dimen_ from Q5.E); rlabel(,R`'svg_sub(27))
+ line to (Here,G)
+ resistor(from Q5I down_ Q5I.y-R27.end.y-elen_/12); rlabel(,R`'svg_sub(25))
+ { capacitor(to (Here,G)); llabel(,C`'svg_sub(25)) }
+
+ crossover(to (R27,Here)+(hoprad_,0),,R27)
+R28: resistor(right_ elen_-hoprad_); llabel(,R`'svg_sub(28))
+ resistor(down_ to (Here,G)); rlabel(,R`'svg_sub(30))
+ line to G
+
+ resistor(up_ from Q5.C to (Q5.C,R18.end)); llabel(,R`'svg_sub(26))
+ line to R18.end
+
+ up_
+Q6: bi_tr(,,,E) with .E at (R28.end.x,Q5.E.y+(T1.y-Q4.B.y)); llabel(,,Q`'svg_sub(6))
+
+ line from Q6.B to (Q5.C,Q6.B)
+ resistor(down_ from Q6.E to R28.end); rlabel(,R`'svg_sub(29))
+
+ line right_ dimen_*3/4 from Q6.C
+
+ { R31: resistor(down_ elen_); circle diam dimen_*0.8 with .c at last line.c
+ "svg_it(R`'svg_sub(31))" below at last circle.sw
+ "svg_it(V)" below at last line.c+(dimen_/4,0) }
+ line right_ dimen_
+ { capacitor(down_ elen_); rlabel(,,C`'svg_sub(26))
+ line down_ elen_/4; dot; "svg_it(V`'svg_sub(SS))" ljust }
+ line right_ dimen_/2
+T6: transformer(down_ elen_) with .P1 at Here
+ line from T6.P2 to R31.end
+ {"svg_it(T`'svg_sub(6))" at T6.n above }
+ line right_ elen_/3 from T6.S1
+ inductor(down_ elen_,W)
+ line to T6.S2
+
+ speaker(R) with .Box.w at last [].e+(dimen_/8,0)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex11SVG.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/ex12SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex12SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex12SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,136 @@
+.PS
+# ex12.m4
+cct_init(svg_font(sans-serif,11bp__))
+
+[
+ fetht = dimen_*0.9
+
+G: ground
+Q4: e_fet(up_ fetht) with .S at G
+Q3: e_fet(up_ fetht) with .S at Q4.D
+
+Q2: e_fet(down_ fetht,R,P) with .G at Q3.Channel+( dimen_*0.25,dimen_*1.8)
+Q1: e_fet(down_ fetht,R,P) with .G at Q2.G + (-dimen_*1.25,0)
+
+ line left_ dimen_ from Q3.G
+A: dot; "svg_it(A)" wid 0.15 rjust
+ line left_ dimen_ from Q4.G
+B: dot; "svg_it(B)" rjust
+
+ line from Q1.G to (Q1.G,Q3.D) then to (Q1.Channel,Q3.D) \
+ then to (Q1.Channel,B);dot
+ line from Q2.G to (Q3.Channel,Q2.G) then to (Q3.Channel,Q3.D) \
+ then to (Q3.G,Q3.D) then to Q3.G;dot
+ line from Q1.D to Q2.D
+ line from Q1.S to Q2.S
+ dot(at (G,Q1.S)) ; line up dimen_/3 ; "+5 V" rjust
+ line from Q3.D to (Q3.D,Q2.D);dot
+ dot(at Q3.D)
+ line right_ dimen_ ; dot ; "svg_it(~(AB))" above
+]
+
+[
+ del = dimen_/3
+
+define(`pair',`[
+Q1: c_fet(up_ dimen_,,P)
+ line right dimen_*2/3 from Q1.D
+ {dot(at last line.c); reversed(`source',up_ dimen_,I); Rail: Here
+ line right dimen_/2 with .c at Here}
+Q2: c_fet(up_ dimen_,R,P) with .D at Here
+ line down del*2 from Q2.S
+ resistor(down_ dimen_)
+Gnd: ground(,T,S)
+ ]')
+
+P1: pair
+Rail: P1.Rail
+Vc: dot(at P1.Q2.S+(0,-del)); "svg_it(V`'svg_sub(c))" rjust
+ line from P1.Q1.G to (P1.Q1.G,Rail)+(0,del/2); "svg_it(S+)" ljust
+
+ line right_ del from P1.Q2.G
+ {dot(at last line.c); line up del; "svg_it(V`'svg_sub(ref))" above}
+ pht = P1.Rail.y-P1.Gnd.y
+
+P2: pair with .Q1.G at Here
+Vcp: dot(at P2.Q2.S+(0,-del*2)); {"svg_it(V`'svg_sub(c'))" above rjust}
+ {line to (P1.Q1.S,Here) then to P1.Q1.S}
+ line from P2.Q2.G to (P2.Q2.G,Rail)+(0,del/2); "svg_it(S-)" rjust
+
+ line from Vc to (P2.Q1.S,Vc) then to P2.Q1.S
+
+define(`cpair',`[
+Rail: line right dimen_/2
+Q1: c_fet(up_ dimen_,,P) with .D at last line.c
+Q2: c_fet(up_ dimen_) with .S at Rail+(0,-pht)
+ ground(at Q2.S,T,S)
+ line from Q1.G to Q2.G
+ line from Q1.S to Q2.D
+ ]')
+
+S1: cpair with .Rail at P2.Rail+(P2.Q2.G.x-P2.Rail.x+P2.Q2.G.x-P2.Q2.D.x+del,0)
+S2: cpair with .Q1.G at (S1.Q1.D.x+del,S1.Q1.G.y)
+S3: cpair with .Rail at 2 between S1.Rail and S2.Rail
+
+ line from Vcp to (S2.Q2.G,Vcp); dot
+ dot(at (S2.Q2.D,Here)); line to (S3.Q2.G,Here); dot
+ dot(at (S3.Q2.D,Here)); arrow right del
+ "svg_it(e`'svg_sub(2))" ljust
+ dot(at P2.Q1.S); line to (S1.Q1.G,Here); dot
+ dot(at (S1.Q2.D,Here)); arrow to (last arrow.end,Here)
+ "svg_it(e`'svg_sub(1))" ljust
+
+
+] with .sw at last [].se+(0.25,0)
+
+[
+ elen=0.2
+
+VDD: dot; llabel(,V`'svg_sub(DD),)
+ line down_ elen/2
+P1: mosfet(up_,,ZSDFdTX,) with .D at Here
+
+MIDDLE: line from P1.S down_ elen/2
+
+N1: mosfet(up_,,ZSDFTX,) with .D at Here
+N2: mosfet(up_,,ZSDFTX,) with .D at N1.S
+ ground(at N2.S)
+
+ING: P1.G+(-elen/2,0)
+
+ line from P1.B right_ elen * 2/5 then down_ elen * 4/5
+ line to (ING, Here)
+ dot
+
+ line from N1.B right_ elen * 2/5 then up_ elen * 4/5
+ line to (ING, Here)
+ dot
+
+ line from N1.G to (ING,N1.G)
+ dot
+
+ line from N2.G to (ING,N2.G) then to ING then to P1.G
+
+ dot(at (ING,MIDDLE))
+ line left_ elen*2
+ "svg_it(V`'svg_sub(in))" above
+
+ dot(at MIDDLE)
+ line right_ elen*2
+ { "svg_it(V`'svg_sub(out))" wid 0.25 above }
+
+ line from N2.B to (Here,N2.B)
+ "svg_it(V`'svg_sub(BB))" above
+
+PUNT:dot(at 0.5 between N1.S and N2.D)
+
+ "svg_it(V`'svg_sub(x))" ljust
+
+ "svg_it(P`'svg_sub(1))" at P1.Channel.end above rjust
+ "svg_it(N`'svg_sub(1))" at N1.Channel.start below rjust
+ "svg_it(N`'svg_sub(2))" at N2.Channel.start below rjust
+
+] with .sw at last [].se
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex12SVG.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/ex15SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex15SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex15SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,40 @@
+.PS
+# ex15.m4
+gen_init
+
+[
+n = 10; r = 1
+for i = 1 to n-1 do {
+ for j = i+1 to n do {
+ line from rect_(r,i*twopi_/n) to rect_(r,j*twopi_/n)
+ }
+ }
+ ]
+[
+ linethick = 2.5
+ lt = linethick bp__
+ crad = 1.0
+ C: circle rad crad
+ g = 0.65
+ D: C+(Rect_(crad*g,110))
+ rm = crad+distance(C,D)
+ for r=lt to rm by 2*lt do {
+ if r < (1-g)*crad then { circle rad r at D thick r/rm*linethick } \
+ else { arc cw from Cintersect(D,r,C,crad) \
+ to Cintersect(D,r,C,crad,R) with .c at D thick r/rm*linethick }
+ }
+ linethick = 1.5
+ lt = linethick bp__
+ C: circle invis rad crad with .w at C.e+(0.1,0)
+ D: C+(Rect_(crad*g,110))
+ rm = crad+distance(C,D)
+ for r=lt to rm by lt do {
+ u = (1-r/rm)*255
+ if r < (1-g)*crad then { rgbdraw(u,u,u,circle rad r at D) } \
+ else { rgbdraw(u,u,u,arc cw from Cintersect(D,r,C,crad) \
+ to Cintersect(D,r,C,crad,R) with .c at D) }
+ }
+ circle rad C.rad at C
+ ] with .w at last [].e+(0.1,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex15SVG.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/ex16SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex16SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex16SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,70 @@
+.PS
+# ex16.m4
+cct_init(svg_font(sans-serif,11bp__))
+
+[
+define(`elen_',linewid*1.2)
+ circlerad = delay_rad_
+ {"input" above ljust}
+ line right_
+J: Here
+ delay
+K: Here
+ delay
+L: Here
+S1: circle "+" at (K.x,K.y+linewid)
+S2: circle "+" at (L,S1)
+ arrow up_ S1.y-J.y from J then to S1.w
+ arrow from K to S1.s
+ arrow from S1.e to S2.w
+ arrow from L to S2.s
+S3: circle "+" at (L.x,L.y-linewid)
+ arrow down_ J.y-S3.y from J then to S3.w
+ arrow from L to S3.n
+ arrow from S2.e right_ linewid/2 then down_ (S2.y-S3.y)/2-circlerad \
+ then right_ linewid/2
+ arrow from S3.e right_ linewid/2 then up_ (S2.y-S3.y)/2-circlerad \
+ then right_ linewid/2
+ "output" at 0.5<last arrow.end, 2nd last arrow.end>
+ ]
+[
+ circlerad = 0.35/2
+ d = linewid*1.75
+ S00: circle "00"
+ S10: circle "10" at S00+(d,d)
+ S01: circle "01" at S00+(d,-d)
+ S11: circle "11" at S01+(d,d)
+ dx = circlerad*cosd(60)
+ dy = circlerad*sind(60)
+ brad = circlerad*1.3
+ qrad = circlerad*6
+
+ arc -> cw from S00+(-dx,-dy) to S00+(-dx,dy) rad brad \
+ with .c at S00-(dx+sqrt(brad^2-dy^2),0)
+ "0/00" at last arc.w rjust
+ right
+ arc -> cw from S00+(dx,dy) to S10+(-dy,-dx) rad qrad
+ "1/11" at last arc.nw rjust above
+ right
+ arc -> cw from S10+(dy,-dx) to S11+(-dx,dy) rad qrad
+ "1/01" at last arc.ne ljust above
+ up_
+ arc -> cw from S11+(dx,dy) to S11+(dx,-dy) rad brad \
+ with .c at S11+(dx+sqrt(brad^2-dy^2),0)
+ "1/10" wid 0.3 at last arc.e ljust
+ down_
+ arc -> cw from S11+(-dx,-dy) to S01+(dy,dx) rad qrad
+ "0/01" at last arc.se ljust below
+ left_
+ arc -> cw from S01+(-dy,dx) to S00+(dx,-dy) rad qrad
+ "0/11" at last arc.sw rjust below
+ up_
+ arc -> cw from S01+(-dx,dy) to S10+(-dx,-dy) rad qrad*2
+ "1/00" at last arc.w rjust
+ down_
+ arc -> cw from S10+(dx,-dy) to S01+(dx,dy) rad qrad*2
+ "0/10" at last arc.e ljust
+ ] with .sw at last [].se+(0.4,0)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex16SVG.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/ex17SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex17SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex17SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,44 @@
+.PS
+# ex17SVG.m4
+cct_init(svg_font(sans-serif,11bp__,0bp__))
+
+[
+nrows = 4
+ncols = 9
+linewid = linewid*0.6 # everything smaller
+define(`elen_',linewid) # shorter default length
+
+ for j = 1 to nrows do {
+ { for i = 1 to ncols do {
+ Point_(-120) resistor
+ Point_( 0) inductor
+ Point_( 120) capacitor
+ if i < ncols then {Point_(0) diode} }
+ }
+ Point_(-120) move to rvec_(elen_,0)
+ { for i = 1 to ncols do {
+ Point_(-60) capacitor
+ Point_( 60) resistor }
+ }
+ Point_(-60) move to rvec_(elen_,0)
+ }
+ Point_(0) for i = 1 to ncols-1 do { inductor }
+]
+
+[
+ down_
+ Point_(-80)
+
+ parallel_(Sep=1.75*dimen_;
+ parallel_(`capacitor(,C); rlabel(,,C`'svg_sub(2))',
+ `resistor; llabel(,R`'svg_sub(2))' ),
+ parallel_(`resistor; rlabel(,R`'svg_sub(1)); move to rvec_(-dimen_/5,0)
+ inductor(,W); rlabel(,L`'svg_sub(1))',
+ `reversed(`source',to rvec_(elen_,0),V,sourcerad_*2.5)
+ rlabel(,v`'svg_sub(s))' )
+ )
+ move left 0.2 from last [].w
+] with .sw at last [].se+(elen_,0)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex17SVG.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/ex18SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex18SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex18SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,40 @@
+.PS
+# ex18.m4
+cct_init(svg_font(Times,11bp__))
+
+[
+ "svg_it(v`'svg_sub(i))" wid 0.1 rjust; dot
+ resistor(right_ dimen_) ; llabel(,svg_it(R`'svg_sub(i)))
+T: dot
+ line right_ linewid/4
+A: opamp with .In1 at Here
+
+ line from A.In2 to (T,A.In2)
+ resistor(down_ dimen_) ; rlabel(,svg_it(R`'svg_sub(g)))
+ ground(,T)
+
+ line right_ dimen_ from A.Out
+ diode(up_ dimen_); dot
+ {line right_ linewid/2; dot; "svg_it(v`'svg_sub(o))" wid 0.2 ljust }
+ resistor(left_ to (A.Out,Here)) ; rlabel(,svg_it(R`'svg_sub(o))); dot
+ { diode(down_ to A.Out); dot }
+ line to (T,Here) then to T
+ ]
+[
+# ex19.m4
+define(`dimen_',dimen_*1.25)
+
+B: battery(up_ dimen_*2/3); rlabel(,V)
+ move down dimen_/4
+ resistor(up_ dimen_); rlabel(,R,)
+ {move up textht*1.5 }
+ inductor(right_ elen_); b_current(i); rlabel(,L)
+ { capacitor(down_ to (Here,B.start)); rlabel(,C); llabel(+,v,-) }
+ line right_ dimen_
+ diode(down_ to (Here,B.start),T); b_current(h(v))
+ { move right 0.3}
+ line to B.start
+ ] with .nw at last [].ne+(20bp__,0)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex18SVG.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/ex21SVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex21SVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex21SVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,71 @@
+.PS
+# ex21SVG.m4
+log_init(svg_font(sans-serif,11bp__))
+
+dy = 0.2
+ddy = 1.8*dy
+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
+ `"FlipFlop(D)"' at (D.s,JK.s) below
+
+# 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')
+
+[
+right_
+ counterFF(FF0)
+ counterFF(FF1,with .Chip at FF0.Chip+(-28*L_unit,0))
+ counterFF(FF2,with .Chip at FF1.Chip+(-28*L_unit,0))
+ "1" at FF0.PinJ.end rjust
+ "1" at FF0.PinK.end rjust
+Dc: FF2.Chip.sw+(-9*L_unit,-7.5*L_unit)
+Bot: Dc+(0,-3*L_unit)
+
+left_
+GAnd: AND_gate at FF1.Chip.nw+(4*L_unit,12*L_unit)
+right_
+
+ line from FF2.PinCK.end left 3*L_unit
+ line to (Here,Dc); dot
+ line from FF1.PinCK.end left 3*L_unit
+ line to (Here,Dc); dot
+ line from FF0.PinCK.end left 3*L_unit
+ line to (Here,Dc) then to Dc
+ "svg_it(D`'svg_sub(C))" rjust
+
+ line from FF2.PinK.end to FF2.PinJ.end; dot
+ line to (Here,GAnd.Out) then to GAnd.Out
+
+ line from FF1.PinK.end to FF1.PinJ.end; dot
+ line to (Here,FF1.PinCLR.end+(0,3*L_unit))
+ line to (GAnd.In2+(6*L_unit,0),Here) then to GAnd.In2+(6*L_unit,0); dot
+
+ line from FF0.PinQ.end right 0.1; dot
+ line from GAnd.In2 to (Here,GAnd.In2) then to (Here,Bot)
+ "svg_it(D`'svg_sub(00))" below
+
+ line right 0.1 from FF1.PinQ.end; dot
+ line from GAnd.In1 to (Here,GAnd.In1) then to (Here,Bot)
+ "svg_it(D`'svg_sub(01))" below
+
+ line right 0.1 from FF2.PinQ.end
+ line to (Here,Bot); "svg_it(D`'svg_sub(02))" below
+ ] with .n at 0.5<2nd[].s,3rd[].s> - (0,0.4)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/ex21SVG.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/examplesSVG.htmx
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/examplesSVG.htmx (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/examplesSVG.htmx 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,358 @@
+<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
+<HTML>
+<HEAD>
+<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
+<meta http-equiv="Content-Style-Type" content="text/css">
+<!--meta http-equiv="Content-Script-Type" content="text/javascript"-->
+<TITLE>SVG Examples: Circuit_macros Version XXX</TITLE>
+<style type="text/css">
+.svg{display:none}
+*>.svg{display:inline}
+</style>
+<link rel="shortcut icon" href="../Circuit_macros.ico" type="image/x-icon" />
+</HEAD>
+
+<BODY>
+<H2>SVG Circuit_macros examples, Version XXX</H2>
+<hr>
+
+<p>
+ These diagrams are in .svg format.
+ <A HREF="examples.pdf">Pdf</A>
+ and
+ <A HREF="examples.html">png</A>
+ versions are also available.
+ The PDF equivalent can be found in examples.pdf of the distribution.
+</p>
+ <p>
+ Click on the link to view the source of each diagram.
+</p>
+<hr>
+
+define(`cfig',`
+<p>
+
+<!--[if lte IE 8]><embed src="$1.svg" sinclude($1.siz)><![endif]-->
+
+<!--[if gte IE 9]>
+<object dx="4" data="$1.svg" sinclude($1.siz) type="image/svg+xml" class="img">
+ </object> <![endif]-->
+
+<!--[if !IE]><!-->
+<object data="$1.svg" sinclude($1.siz) type="image/svg+xml" class="img">
+ </object> <!--<![endif]-->
+
+<br>
+<a href="$1.txt" TYPE="text/plain" TARGET="_blank" alt="$1">$1.m4</a>
+</p>
+<hr>')
+
+define(`m4tt',`<g style="font-family:monospace">')
+
+<!--
+<embed pluginspage="http://www.adobe.com/svg/viewer/install/" />
+-->
+
+<p>
+These diagrams have been adapted from the Circuit_macros examples in
+order to test the <em>experimental</em> svg output of dpic.
+Generating the line art is relatively straightforward, but
+the labeling is not created by a text processor and therefore must be
+more basic. Some of these diagrams might benefit from a little more
+tweaking of fonts and labels.
+</p>
+<p>
+These examples conform to the latest dpic, which has changed the
+treatment of text sizing. That is, "Text" ht y sets the true height
+of SVG text to y rather than the nominal height as previously.
+</p>
+<p>
+There are a number of other issues:
+<ul>
+ <li> Embedding .svg files in html documents with the <embed> or
+ <object> tag seems to be a perennial issue.
+ <li> This file has been tested mainly by using Firefox.
+ Chrome also seems to work well with two issues detected to date:
+ a difference handling color fills and text links in svg.
+ <li> The Adobe reader apparently requires a line of the form
+ <br> <embed src="figure.svg" width="x" height="y" type="image/svg+xml"
+ />
+ This means that the html file has to contain dimension
+ information for each figure, whereas Firefox can
+ determine the figure size
+ from the <svg ... object. Currently, dpic includes a comment line
+ giving reasonable dimensions in pixels but this has to be insterted into
+ the <embed or <object line. A makefile does it easily but
+ otherwise this could be tedious.
+ <li> The font face is not specified by default in these diagrams but is
+ inherited from the enclosing document. The default appearance of labels can
+ differ according to the browser.
+ <li> The <svg tag may require modification
+ from the default used for this test. Dpic might be modified to
+ allow the generation of custom headers but that has not yet been done.
+ <li> Diagrams such as these contain text labels
+ that have to be treated differently from the LaTeX-compatible versions.
+ Apparently there is no direct way to know the bounding box of arbitrary svg
+ text.
+ <!-- text, as discussed
+ <a href="http://www.aditus.nu/jpgraph/jpg_svg.php" TARGET="_blank">here,</a>
+ for example. -->
+ Consequently, text placement is approximate and may require
+ manual adjustment.
+ Rather than patch the original source files for svg production, edited copies
+ have been used. The configuration file svg.m4 read by m4
+ prior to libcct.m4 contains the following macros defined for svg.
+ Others should be defined to exercise some of the media capabilties of svg.
+ They are subject to change:
+ <ul>
+ <li>
+ m4tt`'svg_font(</g>font-face,height,textoffset,dpic commands`'m4tt)</g>:
+ Change font face, size, and dpic textoffset parameter.
+ If arg4 is blank, the font is changed and
+ requires m4tt`'command "</g>"</g> to cancel the font change.
+ Examples: <br>
+ m4tt`'svg_font(Times)</g><br>
+ m4tt`'svg_font(Times,11bp__,1bp__,"text" at A)</g><br>
+ m4tt`'svg_font(font-family="Times")</g><br>
+ m4tt`'svg_font(font-family="Times" font-style="italic")</g><br>
+ m4tt`'svg_font(style="font-family:Times; font-style:italic")</g>
+ <li>m4tt svg_tspan(</g>text attributes`'m4tt)</g>;
+ e.g. m4tt`'svg_tspan(font-style="italic" font-size="75%")</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_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>:
+ to set a smaller text size, default 66
+ <li>m4tt svg_fsize(</g>text, percent`'m4tt)</g>:
+ 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_sup(</g>text, size percent, y displ, x displ`'m4tt)</g>:
+ superscript
+ <li>m4tt svg_symbol(</g>text`'m4tt)</g>: allow quoted pound sign in text,
+ e.g., m4tt`'svg_symbol(10&`#'176;)</g> produces 10°
+ <li>m4tt svgLink(</g>URL, drawing object, m4tt[B])</g>:
+ link to external file using
+ <a xlink:href=...>...</a> (default is
+ m4tt`'target="_blank"</g> unless
+ arg 3 = B)
+ <li>m4tt svgLinkString</g> as above but for strings attached to objects
+ <li> Greek and other symbols:
+<table cellpadding="0" cellspacing="0" width="100%" >
+<tr>
+<td width="7%"> m4tt svg_alpha</g>
+ <td align="left"> changecom(,)&`#'945;changecom(`#')
+<td width="7%"> m4tt svg_beta</g>
+ <td align="left"> changecom(,)&`#'946;changecom(`#')
+<td width="7%"> m4tt svg_chi</g>
+ <td align="left"> changecom(,)&`#'967;changecom(`#')
+<td width="7%"> m4tt svg_comma</g>
+ <td align="left"> changecom(,)&`#'44;changecom(`#')
+<td width="7%"> m4tt svg_Delta</g>
+ <td align="left"> changecom(,)&`#'916;changecom(`#')
+<td width="7%"> m4tt svg_delta</g>
+ <td align="left"> changecom(,)&`#'948;changecom(`#')
+<td width="7%"> m4tt svg_epsilon</g>
+ <td align="left"> changecom(,)&`#'949;changecom(`#')
+<td width="7%"> m4tt svg_eta</g>
+ <td align="left"> changecom(,)&`#'951;changecom(`#')
+<tr>
+<td width="7%"> m4tt svg_Gamma</g>
+ <td align="left"> changecom(,)&`#'915;changecom(`#')
+<td width="7%"> m4tt svg_gamma</g>
+ <td align="left"> changecom(,)&`#'947;changecom(`#')
+<td width="7%"> m4tt svg_iota</g>
+ <td align="left"> changecom(,)&`#'953;changecom(`#')
+<td width="7%"> m4tt svg_kappa</g>
+ <td align="left"> changecom(,)&`#'954;changecom(`#')
+<td width="7%"> m4tt svg_Lambda</g>
+ <td align="left"> changecom(,)&`#'923;changecom(`#')
+<td width="7%"> m4tt svg_lambda</g>
+ <td align="left"> changecom(,)&`#'955;changecom(`#')
+<td width="7%"> m4tt svg_micro</g>
+ <td align="left"> changecom(,)&`#'956;changecom(`#')
+<td width="7%"> m4tt svg_mu</g>
+ <td align="left"> changecom(,)&`#'956;changecom(`#')
+<tr>
+<td width="7%"> m4tt svg_nu</g>
+ <td align="left"> changecom(,)&`#'957;changecom(`#')
+<td width="7%"> m4tt svg_ohm</g>
+ <td align="left"> changecom(,)&`#'937;changecom(`#')
+<td width="7%"> m4tt svg_Omega</g>
+ <td align="left"> changecom(,)&`#'937;changecom(`#')
+<td width="7%"> m4tt svg_omega</g>
+ <td align="left"> changecom(,)&`#'969;changecom(`#')
+<td width="7%"> m4tt svg_Phi</g>
+ <td align="left"> changecom(,)&`#'934;changecom(`#')
+<td width="7%"> m4tt svg_phi</g>
+ <td align="left"> changecom(,)&`#'966;changecom(`#')
+<td width="7%"> m4tt svg_Pi</g>
+ <td align="left"> changecom(,)&`#'928;changecom(`#')
+<td width="7%"> m4tt svg_pi</g>
+ <td align="left"> changecom(,)&`#'960;changecom(`#')
+<tr>
+<td width="7%"> m4tt svg_Psi</g>
+ <td align="left"> changecom(,)&`#'936;changecom(`#')
+<td width="7%"> m4tt svg_psi</g>
+ <td align="left"> changecom(,)&`#'968;changecom(`#')
+<td width="7%"> m4tt svg_rho</g>
+ <td align="left"> changecom(,)&`#'961;changecom(`#')
+<td width="7%"> m4tt svg_Sigma</g>
+ <td align="left"> changecom(,)&`#'931;changecom(`#')
+<td width="7%"> m4tt svg_sigma</g>
+ <td align="left"> changecom(,)&`#'963;changecom(`#')
+<td width="7%"> m4tt svg_tau</g>
+ <td align="left"> changecom(,)&`#'964;changecom(`#')
+<td width="7%"> m4tt svg_Theta</g>
+ <td align="left"> changecom(,)&`#'920;changecom(`#')
+<td width="7%"> m4tt svg_theta</g>
+ <td align="left"> changecom(,)&`#'952;changecom(`#')
+<tr>
+<td width="7%"> m4tt svg_upsilon</g>
+ <td align="left"> changecom(,)&`#'965;changecom(`#')
+<td width="7%"> m4tt svg_Xi</g>
+ <td align="left"> changecom(,)&`#'926;changecom(`#')
+<td width="7%"> m4tt svg_xi</g>
+ <td align="left"> changecom(,)&`#'958;changecom(`#')
+<td width="7%"> m4tt svg_zeta</g>
+ <td align="left"> changecom(,)&`#'950;changecom(`#')
+<td width="7%"> m4tt svg_lt</g>
+ <td align="left"> changecom(,)&`#'60;changecom(`#')
+<td width="7%"> m4tt svg_gt</g>
+ <td align="left"> changecom(,)&`#'62;changecom(`#')
+<td width="7%"> m4tt svg_leq</g>
+ <td align="left"> changecom(,)&`#'8804;changecom(`#')
+<td width="7%"> m4tt svg_geq</g>
+ <td align="left"> changecom(,)&`#'8805;changecom(`#')
+<tr>
+<td width="7%"> m4tt svg_prime</g>
+ <td align="left"> changecom(,)&`#'8242;changecom(`#')
+<td width="7%"> m4tt svg_ensp</g>
+ <td align="left"> |changecom(,)&`#'8194;changecom(`#')|
+<td width="7%"> m4tt svg_emsp</g>
+ <td align="left"> |changecom(,)&`#'8195;changecom(`#')|
+<td width="7%"> m4tt svg_thinsp</g>
+ <td align="left"> |changecom(,)&`#'8201;changecom(`#')|
+<td width="7%"> m4tt svg_backsl</g>
+ <td align="left"> changecom(,)&`#'92;changecom(`#')
+</table>
+
+ </ul>
+ <li> Inkscape: It may be efficient to define elements by macro and to
+ place them using a WYSIWYG graphics editor. A draft page intended
+ for Inkscape is included. A reasonable variety of elements is defined
+ but many more could be added and they should be customized for
+ particular applications.
+ <li> Link experiments: Click on the resistor or source of quickSVG
+ to go to external
+ files in new windows. Click on "n-port" in NportSVG to replace the diagram
+ and then "back" to return.
+ <li> Some of the assumptions used to create this draft may be naive. Comments
+ are welcome.
+</ul>
+<hr>
+
+cfig(quickSVG)
+cfig(CctTableSVG)
+cfig(DiodesSVG)
+cfig(EmarrowsSVG)
+cfig(SourcesSVG)
+cfig(VariableSVG)
+cfig(AmpTableSVG)
+cfig(FusesSVG)
+cfig(SwitchesSVG)
+cfig(GroundsSVG)
+cfig(AntennasSVG)
+cfig(AudioSVG)
+cfig(OpampSVG)
+cfig(XformSVG)
+cfig(RelaySVG)
+cfig(NPDTSVG)
+cfig(JackSVG)
+cfig(ConnSVG)
+cfig(PconnSVG)
+cfig(HeadersSVG)
+cfig(fetSVG)
+cfig(ujtSVG)
+cfig(thyristorSVG)
+cfig(BipSVG)
+cfig(TgateSVG)
+cfig(NportSVG)
+cfig(NLGSVG)
+cfig(WindingsSVG)
+cfig(ex01SVG)
+cfig(TimerSVG)
+cfig(OptoisoSVG)
+cfig(MixerSVG)
+cfig(PushPullSVG)
+cfig(QuantumSVG)
+cfig(SQUIDSVG)
+cfig(SixpoleSVG)
+cfig(ex18SVG)
+cfig(MCSVG)
+cfig(ex10SVG)
+cfig(ThreeSVG)
+cfig(ex17SVG)
+cfig(ex12SVG)
+cfig(pwrsupplySVG)
+cfig(TTLnandSVG)
+cfig(I2LSVG)
+cfig(SchottkySVG)
+cfig(ex11SVG)
+cfig(ex04SVG)
+cfig(CsourceSVG)
+cfig(DriveSVG)
+cfig(ex16SVG)
+cfig(ex03SVG)
+cfig(MotorControlSVG)
+cfig(ex02SVG)
+cfig(RectifiersSVG)
+cfig(HeathkitSVG)
+cfig(lcctSVG)
+cfig(sfgSVG)
+cfig(LogicSVG)
+cfig(ex08SVG)
+cfig(DecoderSVG)
+cfig(ex21SVG)
+cfig(MultiplexerSVG)
+cfig(DemultiplexerSVG)
+cfig(ShiftRSVG)
+cfig(AdderSVG)
+cfig(CanLogicSVG)
+cfig(AlogixSVG)
+cfig(ABlogixSVG)
+cfig(XORSVG)
+cfig(ex00SVG)
+cfig(CrossbarSVG)
+cfig(ByteSVG)
+cfig(RotboxSVG)
+cfig(paletteSVG)
+cfig(randomSVG)
+cfig(expSVG)
+cfig(graysurfSVG)
+cfig(CrullerSVG)
+cfig(shapesSVG)
+cfig(ex09SVG)
+cfig(ex05SVG)
+cfig(controlSVG)
+cfig(ex06SVG)
+cfig(LoglogSVG)
+cfig(cscSVG)
+cfig(roseSVG)
+cfig(diamondSVG)
+cfig(wormSVG)
+cfig(ButtonsSVG)
+cfig(SierpinskiSVG)
+cfig(recycleSVG)
+cfig(ex15SVG)
+cfig(CountingSVG)
+cfig(CrowSVG)
+cfig(FlowSVG)
+cfig(BtreeSVG)
+cfig(TtreeSVG)
+cfig(InclepsSVG)
+cfig(FontsSVG)
+
+</BODY>
+</HTML>
Added: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/expSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/expSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/expSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,303 @@
+.PS
+# expSVG.m4
+threeD_init
+NeedDpicTools
+
+# Graduated shading is probably best done using the built-in functions
+# of PSTricks or the somewhat equivalent tikz capabilities. Other
+# postprocessors do not have the same functionality so the following
+# demonstrates how it can be done in the pic language with m4 macros.
+
+# `shadedpolygon(shadedpvertseq,line attributes,
+# sweep angle (degrees),colorseq)
+# arg1 is a colon (:) separated sequence of
+# positions or position names, the vertices in
+# order (cw or ccw) of the polygon. Colored
+# shade lines are drawn perpendicular to the
+# sweep angle. A colorseq is of the form
+# 0,r0,g0,b0,
+# frac1,r1,g1,b1,
+# frac2,r2,g2,b2,
+# ...
+# 1,rn,gn,bn'
+#`e.g. shadedpolygon((0,0):(0,1):(2,1):(2,0),,0,0,1,1,1,1,0,0,0)'
+define(`shadedpolygon',`[ Origin: Here
+ shadedpverts(V,1,patsubst(patsubst(`$1',`,',|),:,`,'))
+ nverts = m4vx
+ T: (Rect_(1,`$3'))
+ p0 = 1; d[1] = T.x*V[1].x + T.y*V[1].y
+ pm = 1
+ for i=2 to nverts do { d[i] = T.x*V[i].x + T.y*V[i].y
+ if d[i] < d[p0] then { p0 = i }
+ if d[i] > d[pm] then { pm = i } }
+ d0 = d[p0]; dmx = d[pm]-d0
+ for i=1 to nverts do { d[i] = (d[i]-d0)/dmx }
+ qL = p0; pL = qL + 1; if pL > nverts then { pL = 1 }
+ qR = p0; pR = qR - 1; if pR < 1 then { pR = nverts }
+ nlines = int(1.5*dmx/lthick)
+ ShadeObject(ShadedPline,nlines,shift(shift(shift($@)))) \
+ with .Origin at Origin
+ Midpt: 0.5 between V[1] and V[nverts]
+ line `$2' \
+ from Midpt to for_(1,m4vx,1,`V[m4x] then to\') Midpt
+ Start: V[p0]; End: V[pm]
+ ]')
+define(`shadedpverts',`
+ifelse($3,,,`$1[$2]: patsubst(`$3',|,`,') define(`m4vx',$2)
+shadedpverts(`$1',incr(`$2'),shift(shift(shift($@))))')')
+define ShadedPline {
+ if $1 > d[pL] then { qL = pL; pL = qL + 1; if pL > nverts then {pL = 1} }
+ if $1 > d[pR] then { qR = pR; pR = qR - 1; if pR < 1 then {pR = nverts} }
+ M4L: ($1-d[qL])/(d[pL]-d[qL]) between V[qL] and V[pL]
+ M4R: ($1-d[qR])/(d[pR]-d[qR]) between V[qR] and V[pR]
+ line outlined rgbstring($2,$3,$4) \
+ from M4L to M4R }
+
+# Projected box object:
+[
+g = 1.2
+define(`axlen',1.2*g)
+define(`O3',`0,0,0')
+define(`X0',`axlen,0,0')
+define(`Y0',`0,axlen,0')
+define(`Z0',`0,0,axlen')
+
+# diagram viewing angle
+dazim = 54
+delev = 15
+setview(dazim,delev)
+
+# projection azimuth, elevation
+pazim = 20*dtor_
+pelev = 35*dtor_
+arad = 0.6*g
+
+# object displacement
+define(`D3',`0.3*g,0.6*g,0.9*g')
+
+# fixed coordinate frame
+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
+
+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))
+psset_(linecolor=black)
+ 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
+ "svg_theta" above
+ right_
+ 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))
+ Fector(R01(Y0),R01(Z0)) with .Origin at O ;
+ "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))
+thicklines_
+
+# box object dimension
+b = 0.6*g
+d = 0.4*g
+h = 0.20*g
+
+# 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)
+
+# 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))))
+thinlines_
+ line from PB1 to P1
+ line from PB2 to P2
+ line from PB7 to P7
+ line from PB4 to P4
+thicklines_
+
+# draw the object
+ ifdpic(`line invis fill_(1) from PB4 to PB7 to PB6 to PB5
+ line from PB4 to PB7; line to PB6; line to PB5 ; line to PB4
+ line invis fill_(0.5) from PB5 to PB6 to PB2 to PB1
+ line from PB5 to PB6; line to PB2; line to PB1 ; line to PB5
+ line invis fill_(0.85) from PB6 to PB7 to PB3 to PB2
+ line from PB6 to PB7; line to PB3; line to PB2 ; line to PB6',
+ `gshade(1,PB4,PB7,PB6,PB5,PB4,PB7)
+ gshade(0.5,PB5,PB6,PB2,PB1,PB5,PB6)
+ gshade(0.85,PB6,PB7,PB3,PB2,PB6,PB7)')
+ line from PB4 to PB5 to PB1 to PB2 to PB3 to PB7 to PB4
+ line from PB5 to PB6 to PB7
+ line from PB6 to PB2
+
+ arrow from O to PB1 chop linethick pt__; "svg_it(X)" rjust
+
+ line from P4 to P5 to P1 to P2 to P3 to P7 to P4
+ line from P5 to P6 to P7
+ line from P6 to P2
+ line dashed from P4 to P0 to P3
+ line dashed from P0 to P1
+ ]
+
+# Globe:
+[
+ # Set small text size
+ iflatex(`textoffset = 1bp__; ifpsfrag(`textht = 9.5bp__',
+ `latexcommand({\small)') ')
+
+ azimuth = 15 # View angles in degrees
+ elevation = 35
+ setview(azimuth,elevation)
+
+ rectwid = 3.5 # Basic dimensions
+ rectht = 2.4
+ 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)
+
+ shadedpolygon(NW:NE:SE:SW,,-90,
+ 0,0.25,0.25,0.25,
+ 1,1,1,1) with .Start at NW
+
+ define(`C3D',`0,0,alpha') # Centre of the sphere
+ C: project(C3D)
+
+# # Shaded sphere using PSTricks or tikz:
+# # this is black magic but PSTricks
+# # seems to give more control
+# ifpstricks(
+# `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,%"
+# command sprintf("GradientPos={(%g,%g)}]{",Highlight.x,Highlight.y)
+# circle rad alpha at C
+# command "}%"',
+#
+# `ifpgf( # A little too dark with tikz-pgf, maybe:
+# `command sprintf(\
+# "\dpicdraw[ball color=white](%g,%g) circle (%gin)\dpicstop",\
+# C.x,C.y,alpha/2.54)',
+#
+# `circle rad alpha at C fill_(1) ')')
+
+ # Shaded sphere with pic shading:
+ shadedball(alpha) at C
+
+ S: 0,0 # The sphere bottom touch point
+ "svg_it(S)" at S+(0,-2pt__) rjust
+ "svg_alpha" at 0.5<S,C> ljust
+
+ define(`N3D',`0,0,2*alpha') # North pole
+ 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
+ "svg_symbol(&`#'94;)" at last "".n ljust
+
+ 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
+ $2 = distance(Tlv,C)-alpha }
+
+`define' invisline { # name # Draw dashed invisible part of line in
+ Tmp: $1 # the plane
+ findroot(linevis, 0, 1, 1e-8, x)
+ line dashed from S to x between S and Tmp chop 0 chop 0.05 }
+
+thinlines_ # axes
+ invisline(X)
+ arrow to X chop 0.05 chop 0; "svg_it(x)" below
+ invisline(Y)
+ arrow to Y chop 0.05 chop 0; "svg_it(y)" ljust
+ line dashed from S to N chop 0 chop 0.05
+ 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))
+ "svg_phi" below at 0.5 between last arc.start and last arc.end
+
+ # vector (ratio along (N to Phat))
+define(`ray',`sum3D(N3D,sprod3D($1,diff3D(Phat3D,N3D)))')
+`define' rayvis { # ratio
+ $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
+
+thicklines_
+ line dashed from N to P chop 0 chop 0.05
+ line to Phat chop 0.05 chop 0
+
+define(`meridian',`rot3Dz(phi,rot3Dy(-($1),alpha,0,0))')
+`define' meridianvis { # angle # Visibility function on the meridian
+ $2 = dot3D(meridian($1),View3D) }
+
+thinlines_ # Draw the meridian
+ 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 }
+ 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 }
+ fitcurve(Q,n-1,dashed)
+
+define(`equator',`rot3Dz($1,alpha,0,0)')
+`define' equatorvis { # angle # Visibility function on the equator
+ $2 = dot3D(View3D,equator($1)) }
+
+ 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 }
+ 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 }
+ fitcurve(Q,n-1,dashed)
+
+ line dashed from C to P # beta
+ 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__)
+
+ iflatex(ifpsfrag(,`latexcommand(})'))
+ ] with .w at last [].e+(0.5,0)
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/expSVG.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/fetSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/fetSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/fetSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,152 @@
+.PS
+# `fetSVG.m4'
+cct_init(svg_font(Times,11bp__))
+dwn = 0.8
+rgt = 0.9
+
+dnl `IRF4905(linespec,R)'
+define(`IRF4905',
+ `[ ifelse(`$1',,,`eleminit_(`$1')')
+ Q: mosfet(,`$2',LdPzEDSQdB,) 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
+ S: last line.start; D: last line.end; line from S to D ')
+ G: Q.G
+ circle rad 5*dimen_/10 at Q.tr_xy(0,1) ]')
+
+define(`rmove',0.75)
+define(`dir_',`right_')
+
+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
+ }
+
+ {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_
+[
+ linewid = linewid*1.2
+
+ Q1: mosfet(,,dGSDF,)
+ { "`mosfet'(,,dGSDF,)" at last [].s+(0,-0.1) below wid 1.3
+ thinlines_
+ arrow <- down .05 left .15 from (Q1.G.x,Q1.G.y-0.05)
+ "dG" rjust
+ arrow <- down .10 left .30 from Q1.Channel.start+(.15,0)
+ "F" rjust
+ arrow <- down .05 left .15 from (Q1.S.x,Q1.S.y+0.05)
+ "S" rjust
+ arrow <- down .05 right .15 from (Q1.D.x,Q1.D.y+0.05)
+ "D" ljust
+ thicklines_ }
+
+ move right_ rmove
+ Q2: mosfet(,,uHSDF,)
+ {"`...'(,,uHSDF,)" at last [].s+(0,-0.15) below
+ thinlines_
+ arrow <- down .05 left .15 from (Q2.G.x,Q2.G.y-0.05)
+ "uH" rjust
+ thicklines_ }
+
+ move right_ rmove
+ Q3: mosfet(,,LEDSQuB,)
+ {"`...'(,,LEDSQuB,)" at last [].s+(0,-0.15) below
+ thinlines_
+ arrow <- down .05 left .15 from (Q3.G.x,Q3.G.y-0.05)
+ "L" rjust
+ arrow <- down .13 left .30 from Q3.Channel.start+(.12,0)
+ "E" rjust
+ arrow <- down .05 left .10 from Q3.S+(.06,0)
+ "Q" rjust
+ arrow <- down .08 right .24 from (Q3.B.x,Q3.B.y+0.175)
+ "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
+ }
+
+ move right_ rmove
+ Q5: mosfet(,,ZSDFdT,)
+ {"`...'(,,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
+ 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
+ thicklines_ }
+
+ move right_ rmove
+ 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
+ }
+ ] with .n at last [].s+(0,-.2)
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/fetSVG.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/graysurfSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/graysurfSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/graysurfSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,190 @@
+.PS
+# graysurfSVG.m4
+threeD_init
+copy "HOMELIB_/dpictools.pic"
+
+Overall: [
+
+Surface:[
+# This just draws the facets back to front
+
+ setview(20,30)
+ dimen = 1.5
+
+ xmax = 2*dimen
+ ymax = 1.5*dimen
+ zmax = 1*dimen
+
+ define(`fn',
+ `expe(-(`$1')/tt)*cos((`$2')/xmax*1.75*twopi_)*cos((`$1')/ymax*twopi_)')
+
+ nx = 24; dx = xmax/nx
+ ny = 30; dy = ymax/ny
+ tt = 1.5
+ fnmax = fn(0,0,0)
+
+ 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
+
+ linethick_(0)
+ for i = 0 to nx-1 do {
+ x = xmax*i/nx
+ for j = 0 to ny-1 do {
+ 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))
+ ) } }
+] with .w at last [].e+(-0.2,0)
+
+Torus: [
+# Calculate all the facet centres but draw
+# only a subset of them after sorting
+
+ viewazimuth = 20 # Set view angles in degrees
+ viewelevation = 30
+
+ setview(viewazimuth,viewelevation,0)
+
+ sfactor = 0.7
+ tradius = 2*sfactor
+ sradius = 0.75*sfactor
+
+define(`torus',`rot3Dz((`$1')*dtor_,
+ sum3D(tradius,0,0,rot3Dy((`$2')*dtor_,sradius,0,0)))')
+
+define(`tvisible',`dot3D(view3D1,view3D2,view3D3,
+ 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__
+
+ dt = 10 # major angle degrees per facet
+ ds = 10 # minor angle degrees per facet
+
+ # create the arrays and sort
+ n = 0
+ for t = dt to 360+dt/2 by dt do {
+ for s=ds/2 to 360.1 by ds do {
+ if tvisible(t,s) >= 0 then {
+ n +=1
+ t[n] = t
+ s[n] = s
+ d[n] = dot3D(torus(t,s),view3D1,view3D2,view3D3) # view distance
+ ix[n] = n
+ } } }
+#prval(n)
+ dpquicksort(d,1,n,ix)
+
+ # draw the facets
+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)))
+ f = ((dcosine3D(3,torus(tc,sc))/sradius+1)/2)^2
+ g = min(f,0.9)
+ setrgb(g,g,g)
+# line fill f ifpdf( invis ) \
+# from SE to SW then to NW then to NE then to SE
+ shade(f,
+ line invis fill f from SE to SW then to NW then to NE then to SE )
+
+ resetrgb
+ }
+
+thicklines_
+ 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)
+ arrow to Y.end
+
+] with .sw at last [].se+(0.2,0)
+
+Hat: [
+# Sort as for the torus but draw edges too
+
+ azimuth = 25 # View angles in degrees
+ elevation = 20
+ setview(azimuth,elevation)
+ # the 3D object: `hat(t,y)'
+ define(`hat',`cosd($1)*($2),sind($1)*($2),(($2)^2-1)^2')
+ define(`gradient',`(-4*($2)*(($2)^2-1)*cosd(`$1')),
+ (-4*($2)*(($2)^2-1)*sind(`$1')),1')
+ define edge {$2=dot3D(View3D,gradient($1,y))}
+ define(`hatvis',
+ `(($2 > 0.6) || (dot3D(View3D,gradient($1,$2)) > 0))')
+
+ # grid parameters
+ dang = 09
+ maxy = 1.25
+ 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))
+ # create the arrays and sort
+ n = 0
+ for t = dang/2 to 360.1 by dang do {
+ for y=dy/2 to maxy by dy do {
+ if hatvis(t,y) then {
+ n +=1
+ t[n] = t
+ y[n] = y
+ d[n] = dot3D(hat(t,y),View3D) #distance toward the front
+ ix[n] = n
+ } } }
+#prval(n)
+ 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)
+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)))
+ f = abs(yc^2-1)
+ line invis fill f from SE to SW then to NW then to NE then to SE
+ }
+
+ # Outline where the surface goes invisible
+mm = int(maxy/dy)
+nr = -1
+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-1-nr]: (-R[mm+nr].x,R[mm+nr].y)
+ }
+fitcurve(R,mm*2-1)
+
+ # Z axis
+thicklines_
+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
+
+ # 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)
+] scaled 1.25 with .s at 1st [].ne+(0,-0.75)
+] scaled 0.85
+
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/graysurfSVG.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/icsSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/icsSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/icsSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,122 @@
+divert(-1)
+
+ Macros defining some integrated circuits
+
+define(`lg_pinsep',3*L_unit) logic pin separation in logic units
+define(`lg_chipwd',18*L_unit) default chip width
+
+ `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])'
+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(`ic6116',`[ Chip: box wid_ lg_chipwd ht_ 15*lg_pinsep
+ "6116" at Chip.sw+(0,-2bp__) below ljust
+ 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
+ { line right last "".wid from last "".nw+(1,0)*textoffset }
+
+ 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+(2,0)*textoffset }
+
+ 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
+ { line left last "".wid from last "".ne+(-1,0)*textoffset }
+
+ 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)
+ ]')
+
+define(`ic6502',`[ Chip: box wid_ lg_chipwd ht_ 24*lg_pinsep
+ "6502" at Chip.sw_+(0,-2bp__) below_ ljust_
+ 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+(2,0)*textoffset }
+
+ 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
+ { line right last "".wid from last "".nw+(1,0)*textoffset }
+
+ 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
+ { line right last "".wid from last "".nw+(1,0)*textoffset }
+
+ 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_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
+ { line left last "".wid from last "".ne+(-1,0)*textoffset }
+
+ ]')
+
+define(`ic6522',`[ Chip: box wid_ lg_chipwd ht_ 24*lg_pinsep
+ "6522" at Chip.sw+(0,-2bp__) below ljust
+ lg_pin(Chip.sw_+(0,lg_pinsep),V`'svg_small(SS,75),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
+ { line right last "".wid from last "".nw+(1,0)*textoffset }
+
+ 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+(2,0)*textoffset }
+
+ 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
+ { line right last "".wid from last "".nw+(1,0)*textoffset }
+
+ lg_pin(Chip.sw_+(0,23*lg_pinsep),V`'svg_small(CC,75),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
+ { line left last "".wid from last "".ne+(-1,0)*textoffset }
+
+ ]')
+
+define(`ic74LS138',`[ Chip: box wid_ lg_chipwd ht_ 11*lg_pinsep
+ "74LS138" at Chip.sw+(0,-2bp__) below ljust
+ 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
+ { line right last "".wid from last "".nw+(1,0)*textoffset }
+
+ 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
+ { line right last "".wid from last "".nw+(1,0)*textoffset }
+
+ 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_pinseq(0,6,e,2,15-,Y,n)
+ lg_pin(Chip.se_+(0,9*lg_pinsep),Y7,Pin7,eN,7)
+ ]')
+
+divert(0)dnl
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/icsSVG.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/lcctSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/lcctSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/lcctSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,195 @@
+.PS
+# lcctSVG.m4
+maxpswid = 10
+log_init(svg_font(sans-serif,11bp__,1bp__))
+include(icsSVG.m4)
+
+ textht = textht * 0.9
+
+define(`dimen_',0.5)
+define(`elen_',dimen_)
+define(`Groundtype',`')
+
+define(`breakout',` for i = 1 to `$1' do {
+ {line `$2' ifelse(`$4',,del,`$4')-jog/2 then `$2' jog/2 `$3' jog \
+ then `$3' lg_pinsep}
+ move `$3' lg_pinsep }
+ move `$2' ifelse(`$4',,del,`$4')-jog/2 then `$2' jog/2 `$3' jog ')
+
+del = lg_pinsep
+jog = del*2/3
+
+ right_
+IC1: ic6502
+
+Vcc: IC1.Pin8.end.x-del-elen_,IC1.Pin4.y+lg_pinsep+3*del
+Reset: IC1.Pin8.end.x-del,Vcc.y+del
+
+ resistor(up_ Vcc.y-IC1.Pin4.y from IC1.Pin4.end)
+
+ line left 2*del from IC1.Pin6.end
+ line up_ to (Here,Vcc) chop 0 chop elen_
+ resistor
+
+ line left del from IC1.Pin40.end
+ {line to (Here,Reset)}
+ move left elen_
+ {NOT_gate(right_ elen_)}
+ {reversed(`capacitor',to (Here,Vcc),C)}
+ down_; resistor; ground(,T,Groundtype)
+
+ line from IC1.Pin2.end to (IC1.Pin2.end,Vcc)
+
+ move to IC1.Pin26.end; breakout(8,left,down)
+ line to (Here,IC1.sw+(0,-del))
+ line down jog right jog/2
+Data: Here
+
+ line from IC1.Pin1.end down_ 2*lg_pinsep; ground(,T,Groundtype)
+
+ line left 2*del from IC1.Pin34.end
+ line to (Here,Data+(0,-del))
+RWB: Here
+
+ move to IC1.Pin25.end; breakout(16,right,down)
+ line to (Here,RWB)+(0,-del+jog) then down jog left jog/2
+Addr: Here
+
+ right_
+IC5: ic74LS138 with .Chip.nw at (IC1.Chip.w.x,Addr.y-2*del)
+ line from IC5.Pin5.end down_ 3*lg_pinsep ; ground(,T,Groundtype)
+ line from IC5.Pin16.end down_ 1.5*lg_pinsep ; ground(,T,Groundtype)
+ move to IC5.Pin1.end; breakout(3,left,up)
+ line to Here.x,Addr.y-jog then up jog right jog/2 then to Addr
+
+ line right_ 2*del from IC1.Pin39.end
+ { NOT_gate(right_ 3*del)
+C1: Here }
+ capacitor(up_ elen_*0.6)
+ {resistor(right_ 3*del)}
+ line up 2*(IC1.Pin37.y-Here.y)
+ {line from IC1.Pin37.end to (Here,IC1.Pin37)}
+ right_; xtal(right_ 3*del)
+
+IC2: ic6116 with .Chip.nw at Here.x+2*del+lg_plen*L_unit,IC1.Chip.n.y
+ line from IC2.Pin24.end up to (IC2.Pin24.end,Vcc)
+ right_
+Or1: OR_gate with .Out at IC2.Pin21.end
+ line from Or1.In2 left del then down del
+ line to (C1,Here) then to C1
+ line from Or1.In1 left del
+ line to (Here,IC2.Chip.nw+(0,del))
+RW: Here
+ move to IC2.Pin17.end; breakout(8,left,down)
+ line to (Here,Data)+(0,jog) then down jog left jog/2
+ line down_ lg_pinsep from IC2.Pin12.end ; ground(,T,Groundtype)
+ move to IC2.Pin19.end; breakout(11,right,down)
+ line to (Here,Addr) chop 0 chop jog
+ line down jog left jog/2
+ line down_ lg_pinsep from IC2.Pin20.end ; ground(,T,Groundtype)
+
+ right_
+IC3: ic6116 with .Chip.nw at IC2.Chip.ne + (IC2.Chip.nw.x - IC1.Chip.ne.x-del,0)
+IC4: ic6522 with .Chip.nw at IC3.Chip.ne + (IC2.Chip.nw.x - IC1.Chip.ne.x-del,0)
+IC6: ic74LS138 with .Chip.nw at (IC3.Chip.nw,IC5.Chip.nw)
+
+ line from Vcc to (IC4.Pin34.end.x+del,Vcc.y)
+ line from Reset to (IC4.Pin34.end,Reset) then to IC4.Pin34.end
+
+ line right_ 2*del from (C1,IC4.Pin25); NOT_gate; line to IC4.Pin25.end
+ line right del from IC1.Pin4.end; line to Here.x,Vcc.y-del
+ line to (IC4.Pin21.end,Here)-(del,0) then to IC4.Pin21.end-(del,0) \
+ then to IC4.Pin21.end
+
+ line from IC3.Pin21.end to (IC3.Pin21.end,Vcc)
+ move to IC3.Pin17.end
+ breakout(8,left,down); line to (Here,Data)+(0,jog) then down jog left jog/2
+ move to IC3.Pin19.end
+ breakout(11,right,down); line to (Here,Addr)+(0,jog) then down jog left jog/2
+ move to IC4.Pin26.end
+ breakout(8,left,down,2*del);
+ line to (Here,Data)+(0,jog) then down jog left jog/2 then to Data
+ move to IC4.Pin35.end
+ breakout(4,left,down); line to (Here,Addr)+(0,jog) then down jog left jog/2 \
+ then to Addr
+ line from IC4.Pin20.end to (IC4.Pin20.end,Vcc)
+ line down_ lg_pinsep from IC4.Pin1.end; ground(,T,Groundtype)
+ line left 3*del from IC4.Pin23.end
+ line to (Here,IC6.Pin7) then to IC6.Pin7.end
+ line down_ 2*lg_pinsep from IC3.Pin18.end; ground(,T,Groundtype)
+
+ line down_ lg_pinsep from IC6.Pin8.end; ground(,T,Groundtype)
+ line up_ 2.5*lg_pinsep from IC6.Pin16.end \
+ then right_ lg_pinsep then down_ lg_pinsep/2; ground(,T,Groundtype)
+ move to IC6.Pin5.end; breakout(1,left,up); line up_ lg_pinsep
+ move to IC6.Pin1.end; breakout(3,left,up)
+ line to (Here,Addr)-(0,jog) then up jog left jog/2
+
+ line from RW to (IC3.Pin19.end+(2*del,0),RW)
+RWE: Here
+ line to (RWE,RWB) then to RWB
+ line from IC4.Pin22.end to (RWE,IC4.Pin22.end)
+
+ right_
+Or3: OR_gate with .Out at IC3.Pin20.end.x-del,IC1.Pin9.y
+ line from Or3.Out to (IC3.Pin20.end,Or3.Out) then to IC3.Pin20.end
+ left_
+Or2: OR_gate with .In2 at (IC2.Chip.se,Or3.In1)
+ line from Or2.Out to (IC2.Pin18.end-(3*del,0),Or2.Out)
+ line to (Here,IC2.Pin18) then to IC2.Pin18.end
+ line from Or2.In1 right del; line to (Here,IC1.Pin37)
+
+ line from Or3.In2 left del; line to (Here,IC1.Pin37)
+
+define(`addrlabel',`dnl
+ line invis right 4*del from IC5.Pin`$1'.end "svg_small(`$2')" above ')
+
+ addrlabel( 7,E000 - FFFF)
+ addrlabel( 9,C000 - DFFF)
+ addrlabel(10,A000 - BFFF)
+ addrlabel(11,8000 - 9FFF)
+ addrlabel(12,6000 - 7FFF)
+ addrlabel(13,4000 - 5FFF)
+ addrlabel(14,2000 - 3FFF)
+ addrlabel(15,0000 - 1FFF)
+
+ line from IC5.Pin7.end right 4*del
+K: Here; line to (K,IC5.Pin13)
+ line to (IC6.Pin4.end-(3*del,0),Here)
+ line to (Here,IC6.Pin4.end) then to IC6.Pin4.end
+
+Ands: [ right_
+ And1: AND_gate; line right del/2 then down del*3/2 \
+ then left And1.Out.x-And1.In1.x+del then down del then right_ del/2
+ And2: AND_gate with .In1 at Here
+ line from And2.Out right del/2 then down del then right_ del/2
+ And3: AND_gate with .In1 at Here
+ line right_ del/2 from And3.Out
+ NOT_gate
+ line right_ del/2
+ And4: AND_gate with .In1 at Here
+ ] with .And2.In1 at (K.x+2*del,IC5.Pin9.y)
+
+# line from Ands.And4.Out right del*3; line to (Here,Or3.In1) then to Or3.In1
+ line from Ands.And4.Out right IC6.Pin5.end.x-3*del-Ands.And4.Out.x
+ line to (Here,Or3.In1) then to Or3.In1
+ line from Ands.And4.In2 left del
+ line to (Here,IC5.Pin14) then to IC5.Pin14.end
+ line from IC5.Pin15.end to (IC2.Pin20.end.x+2*del,IC5.Pin15.y)
+ line to (Here,Or2.In2) then to Or2.In2
+ NOT_gate(right_ from (K,Ands.And3.In2) to Ands.And3.In2)
+ line from Ands.And2.In2 to (K+(del+jog/2,0),Ands.And2.In2)
+ line left jog/2 up jog; line to (Here.x,Addr.y-jog) then up jog left jog/2
+ line from Ands.And1.In1 to (K.x+del+jog/2,Ands.And1.In1.y) \
+ then left jog/2 up jog
+ line from Ands.And1.In2 to (K.x+del+jog/2,Ands.And1.In2.y) \
+ then left jog/2 up jog
+
+ line from IC6.Pin6.end left 2*del; line to (Here,IC4.Pin24)
+ line from IC4.Pin24.end to (IC2.Chip.se,IC4.Pin24)
+ move left dimen_; {NOT_gate(right_ dimen_)}
+ line left jog/2 down jog; line to (Here,Data) chop 0 chop jog
+ line down jog left jog/2
+
+ command "</g>" # end font
+.PE
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/lcctSVG.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/local_init.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/local_init.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/local_init.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,2 @@
+command "<!-- local_init has been read -->"
+define(`Inkscape')
Property changes on: trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/local_init.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/paletteSVG.m4
===================================================================
--- trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/paletteSVG.m4 (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/circuit-macros/examples/svg/paletteSVG.m4 2019-09-05 22:33:48 UTC (rev 52035)
@@ -0,0 +1,340 @@
+.PS
+# This is the source for a prototype svg library of electric circuit
+# elements. Each element is a compound svg object with corners on grid points.
+#
+# Processing svg.m4 and this file thought dpic -v gives
+# output that can be read into Inkscape.
+#
+define(`SIdefaults',`
+ scale = 25.4
+ arcrad = 5
+ arrowht = 2.5
+ arrowwid = arrowht/2
+ boxht = 12
+ boxrad = 0
+ boxwid = 20
+ circlerad = 5
+ dashwid = 1.5
+ ellipseht = 12
+ ellipsewid = 16
+ lineht = 12
+ linewid = 12
+ moveht = 12
+ movewid = 12
+ textht = ifsvg(3,0)
+ textoffset = 1
+ textwid = 0
+')
+
+log_init(svg_font(sans-serif,11bp__))
+SIdefaults
+
+ # Assume dpic scale is in mm
+gunit = 1 # Inkscape grid dimension
+divert(-1)
+define(`elen_',`(10*gunit)') # default 2-terminal element length
+define(`dimen_',`(10*gunit)')# reference dimension for element bodies
+define(`L_unit',`(2*gunit)') # logic gate grid size
+define(`N_diam',1) # L_unit size of `not' circles
+
+ # grid round and chop
+define(`g_round',`(int((`$1')/gunit+100000.5 )-100000)*gunit')
+define(`g_chop', `(int((`$1')/gunit+100000.9999)-100000)*gunit')
+ # snap to grid
+define(`g_snap',`(g_round((`$1').x),g_round((`$1').y))')
+
+# Box containing an element. The element must be in a box that is
+# intersected by a horizontal or vertical line from entry to exit.
+define(`Gridbox',`[ command "<g>"
+ S: Here; `$1'; F: Here
+ if S.y == F.y then {
+ move from (max(S.x,F.x),F.y+g_chop(last[].n.y-F.y)) \
+ to (min(S.x,F.x),F.y-g_chop(F.y-last[].s.y)) } \
+ else {
+ move from (F.x+g_chop(last[].e.x-F.x),max(S.y,F.y)) \
+ to (F.x-g_chop(F.x-last[].w.x),min(S.y,F.y)) }
+ command "</g>" ] ')
+
+# Place compound object corners at grid intersections
+define(`Below',
+ `with .n at g_snap(ifelse(`$1',,`last []',`$1').s)-(0,2*gunit)')
+define(`Right',
+ `with .w at g_snap(ifelse(`$1',,`last []',`$1').e)+(2*gunit,0)')
+
+# for debug
+define(`prpos',`print (`$1').x/gunit,(`$1').y/gunit')
+divert(0)dnl
+
+[
+
+rpoint_(down_ elen_)
+A:Gridbox( resistor )
+ Gridbox( resistor(down_ dimen_*1/2) ) Right
+ Gridbox( resistor(,,E) ) Right
+ Gridbox( resistor(,,Q) ) Right
+ Gridbox( resistor(,,H) ) Right
+ Gridbox( resistor(,,N) ) Right
+ Gridbox( inductor(,W) ) Right
+ Gridbox( inductor(,W,,M) ) Right
+ Gridbox( inductor(,L) ) Right
+ Gridbox( inductor ) Right
+ Gridbox( inductor(,,,M) ) Right
+ Gridbox( capacitor ) Right
+ Gridbox( capacitor(,C) ) Right
+ Gridbox( capacitor(,P) ) Right
+ Gridbox( capacitor(,E) ) Right
+ Gridbox( capacitor(,K) ) Right
+ Gridbox( diode ) Right
+ Gridbox( diode(,K) ) Right
+ Gridbox( diode(,Z) ) Right
+ Gridbox( diode(,S) ) Right
+ Gridbox( diode(,L) ) Right
+ Gridbox( diode(,V) ) Right
+ Gridbox( diode(,v) ) Right
+ Gridbox( diode(,T) ) Right
+ Gridbox( diode(,CR) ) Right
+ Gridbox( diode(,D) ) Right
+ Gridbox( diode(,B) ) Right
+ Gridbox( diode(,LE) ) Right
+ Gridbox( [circle diam dimen_*0.7] ) Right
+ Gridbox( xtal ) Right
+ dot(at g_snap(last [].e+(2*gunit,0)))
+
+A:Gridbox( source ) Below(A)
+ Gridbox( source(,I) ) Right
+ Gridbox( source(,i) ) Right
+ Gridbox( source(,V) ) Right
+ Gridbox( source(,v) ) Right
+ Gridbox( source(,AC) ) Right
+ Gridbox( source(,S) ) Right
+ Gridbox( source(,X) ) Right
+ Gridbox( source(,F) ) Right
+ Gridbox( source(,P) ) Right
+ Gridbox( source(,U) ) Right
+ Gridbox( source(,R) ) Right
+ Gridbox( source(,T) ) Right
+ Gridbox( source(,L) ) Right
+ Gridbox( nullator ) Right
+ Gridbox( norator ) Right
+ Gridbox( consource ) Right
+ Gridbox( consource(,I) ) Right
+ Gridbox( consource(,i) ) Right
+ Gridbox( consource(,V) ) Right
+ Gridbox( consource(,v) ) Right
+ Gridbox( source(,Q) ) Right
+ Gridbox( source(,G) ) Right
+
+A:Gridbox( battery(up_ elen_) ) Below(A)
+ Gridbox( battery(up_ elen_,3) ) Right
+ Gridbox( ttmotor ) Right
+ Gridbox( memristor ) Right
+ Gridbox( tline ) Right
+ Gridbox( fuse ) Right
+ Gridbox( fuse(,D) ) Right
+ Gridbox( fuse(,B) ) Right
+ Gridbox( fuse(,C) ) Right
+ Gridbox( fuse(,S) ) Right
+ Gridbox( fuse(,HB) ) Right
+ Gridbox( fuse(,HC) ) Right
+ Gridbox( cbreaker ) Right
+ Gridbox( cbreaker(,,D) ) Right
+ Gridbox([variable(`[]',A)]) Right
+ Gridbox([variable(`[]',P)]) Right
+ Gridbox([variable(`[]',L)]) Right
+ Gridbox([variable(`[]',N)]) Right
+ Gridbox([variable(`[]',uN)]) Right
+ Gridbox([line to Here+(Rect_(dimen_/6,45))]) Right
+ Gridbox([line up dimen_*0.06 then right dimen_*0.12 \
+ then up dimen_*0.06]) Right
+ Gridbox([em_arrows]) Right
+ Gridbox([em_arrows(N)]) Right
+ Gridbox([em_arrows(ND)]) Right
+ Gridbox([em_arrows(I)]) Right
+ Gridbox([em_arrows(ID)]) Right
+ Gridbox([em_arrows(E)]) Right
+ Gridbox([em_arrows(ED)]) Right
+
+A:Gridbox( [right_; ground] ) Below(A)
+ Gridbox( [right_; ground(,T)] ) Right
+ Gridbox( [right_; ground(,,F)] ) Right
+ Gridbox( [right_; ground(,,E)] ) Right
+ Gridbox( [right_; ground(,,S)] ) Right
+ Gridbox( [right_; ground(,,L)] ) Right
+ Gridbox( [right_; ground(,,P)] ) Right
+ Gridbox( transformer(right_ 6*gunit,L) ) Right
+ Gridbox( transformer(right_ 8*gunit,,2,8) ) Right
+ Gridbox( transformer(,,8,W,4) ) Right
+ Gridbox( transformer(,,9,AL) ) Right
+ Gridbox( transformer(,R,8,AW) ) Right
+
+ rpoint_(right_)
+A:Gridbox( switch ) Below(A)
+ Gridbox( switch(,,O) ) Right
+ Gridbox( switch(,,D) ) Right
+ Gridbox( switch(,,OD) ) Right
+ Gridbox( switch(,,C) ) Right
+ Gridbox( switch(,,B) ) Right
+ Gridbox( switch(,C,B) ) Right
+ Gridbox( dswitch ) Right
+ Gridbox( dswitch(,,WBK) ) Right
+ Gridbox( dswitch(,,WBuD) ) Right
+ Gridbox( dswitch(,,WBF) ) Right
+ Gridbox( dswitch(,,WBKF) ) Right
+ Gridbox( dswitch(,,WBL) ) Right
+ Gridbox( dswitch(,,WBKL) ) Right
+
+A:Gridbox( dswitch(,,WBT) ) Below(A)
+ Gridbox( dswitch(,,WdBKC) ) Right
+ Gridbox( dswitch(,,WBM) ) Right
+ Gridbox( dswitch(,,WBCO) ) Right
+ Gridbox( dswitch(,,WBCMP) ) Right
+ Gridbox( dswitch(,,WBCY) ) Right
+ Gridbox( dswitch(,,WBCZ) ) Right
+ Gridbox( dswitch(,,WBCE) ) Right
+ Gridbox( dswitch(,,WBRH) ) Right
+ Gridbox( dswitch(,,WBRdH) ) Right
+ Gridbox( dswitch(,,WBRHH) ) Right
+
+A:Gridbox( dswitch(,,WBMMR) ) Below(A)
+ Gridbox( dswitch(,,WBMM) ) Right
+ Gridbox( dswitch(,,WBMR) ) Right
+ Gridbox( dswitch(,,WBEL) ) Right
+ Gridbox( dswitch(,,WBLE) ) Right
+ Gridbox( dswitch(,,WBKEL) ) Right
+ Gridbox( antenna ) Right
+ Gridbox( antenna(,,L) ) Right
+ Gridbox( antenna(,,T) ) Right
+ Gridbox( antenna(,,S) ) Right
+ Gridbox( antenna(,,D) ) Right
+ Gridbox( antenna(,,P) ) Right
+ Gridbox( antenna(,,F) ) Right
+
+A:Gridbox( amp(right_ elen_*10/8) ) Below(A)
+D1:Gridbox( integrator ) Right
+ Gridbox( delay ) Right
+ Gridbox( opamp ) Right
+ Gridbox( opamp(,,,,T) ) Right
+ Gridbox( amp(,dimen_/2) ) Right
+ Gridbox( integrator(,dimen_/2) ) Right
+ Gridbox( delay(,delay_rad_) ) Right
+ Gridbox( opamp(,,,dimen_*2/3) ) Right
+ Gridbox( opamp(,,,dimen_*2/3,T) ) Right
+
+right_
+A:Gridbox( relay(2) ) Below(A)
+ Gridbox( relay(2,O) ) Right
+ Gridbox( relay(2,C) ) Right
+ Gridbox( relay ) Right
+ Gridbox( contact ) Right
+ Gridbox( contact(O) ) Right
+ Gridbox( contact(C) ) Right
+
+up_
+A:Gridbox( [circle rad 29/10*gunit] ) Below(A)
+ Gridbox( bi_tr ) Right
+ Gridbox( bi_tr(,R) ) Right
+ Gridbox( bi_tr(,,P) ) Right
+ Gridbox( bi_tr(,R,P) ) Right
+
+ Gridbox( j_fet ) Right
+ Gridbox( j_fet(,R) ) Right
+ Gridbox( j_fet(,,P,) ) Right
+ Gridbox( j_fet(,R,P,) ) Right
+ Gridbox( e_fet(,,,) ) Right
+ Gridbox( e_fet(,R,,) ) Right
+
+ Gridbox( e_fet(,,P,) ) Right
+ Gridbox( e_fet(,R,P,) ) Right
+ Gridbox( d_fet(,,,) ) Right
+ Gridbox( d_fet(,R,,) ) Right
+ Gridbox( d_fet(,,P,) ) Right
+ Gridbox( d_fet(,R,P,) ) Right
+
+A:Gridbox( igbt ) Below(A)
+ Gridbox( ujt ) Right
+ Gridbox( ujt(,,P) ) Right
+rpoint_(down_)
+ Gridbox( thyristor ) Right
+ Gridbox( thyristor(,B) ) Right
+ Gridbox( thyristor(,BG) ) Right
+ Gridbox( thyristor(,A) ) Right
+ Gridbox( thyristor(,C) ) Right
+rpoint_(up_)
+ Gridbox( j_fet ) Right
+ Gridbox( e_fet ) Right
+ Gridbox( e_fet(,,,S) ) Right
+ Gridbox( e_fet(,,P) ) Right
+ Gridbox( e_fet(,,P,S) ) Right
+ Gridbox( d_fet ) Right
+ Gridbox( d_fet(,,,S) ) Right
+ Gridbox( d_fet(,,P,) ) Right
+ Gridbox( d_fet(,,P,S) ) Right
+ Gridbox( j_fet ) Right
+ Gridbox( j_fet(,,P) ) Right
+ Gridbox( mosfet(,,uHSDF) ) Right
+
+rpoint_(right_)
+A:Gridbox( tgate ) Below(A)
+ Gridbox( tgate(,B) ) Right
+ Gridbox( ptrans ) Right
+
+A:Gridbox( AND_gate ) Below(A)
+ Gridbox( OR_gate ) Right
+ Gridbox( NAND_gate ) Right
+ Gridbox( NOR_gate ) Right
+ Gridbox( XOR_gate ) Right
+ Gridbox( NXOR_gate ) Right
@@ Diff output truncated at 1234567 characters. @@
More information about the tex-live-commits
mailing list