summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/quick.pic
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/quick.pic')
-rw-r--r--Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/quick.pic124
1 files changed, 0 insertions, 124 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/quick.pic b/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/quick.pic
deleted file mode 100644
index 1f06d07e487..00000000000
--- a/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/quick.pic
+++ /dev/null
@@ -1,124 +0,0 @@
-.PS # Pic input begins with .PS
-# cct_init Version 10.1: TikZ PGF m4 macro settings.
-
- # gen_init Version 10.1: TikZ PGF m4 macro settings.
-
-
- define rpoint__ {
- rp_wid = last line.end.x-last line.start.x
- rp_ht = last line.end.y-last line.start.y
- rp_len = sqrt(abs((rp_wid)^2+(rp_ht)^2)); move to last line.start
- rp_ang = atan2(rp_ht,rp_wid) }
-
- rtod_ = 57.295779513082323; dtor_ = 0.017453292519943295
- twopi_ = 6.2831853071795862; pi_ = (twopi_/2)
- rp_ang = 0; right
-
-
- linethick = 0.8
- arrowwid = 0.05*scale; arrowht = 0.1*scale
-
-
- # gen_init end
-
-
-
-# cct_init end
- # Read in macro definitions and set defaults
-elen = 0.75 # Variables are allowed; default units are inches
-Origin: Here # Position names are capitalized
- line invis up elen
- rpoint__
-
-
- { line to Here+(((rp_len/2-(0.25*linewid))*(cos(rp_ang))),((rp_len/2-(0.25*linewid))*(sin(rp_ang))))
- move to Here+((((0.25*linewid))*(cos(rp_ang))),(((0.25*linewid))*(sin(rp_ang))))
- { Src_C: circle rad (0.25*linewid) at Here }
-
- line from Here+((((0.25*linewid))*(cos(rp_ang))),(((0.25*linewid))*(sin(rp_ang)))) \
- to Here+(((rp_len/2)*(cos(rp_ang))),((rp_len/2)*(sin(rp_ang))))}
- {[box invis wid (0.25*linewid)*2 ht (0.25*linewid)*2] at Here+(((rp_len/2)*(cos(rp_ang))),((rp_len/2)*(sin(rp_ang))))}
- line to Here+(((rp_len)*(cos(rp_ang))),((rp_len)*(sin(rp_ang)))) invis ; {"$ -$" \
- at last [].s rjust below }; {"$ v_s$" \
- at last [].w rjust }; {"$ +$" \
- at last [].n rjust above };
- line invis right elen
- rpoint__
-
-
- if linewid/6/4*6*2 > rp_len then { line invis to Here+(((linewid/6/4*6*2)*(cos(rp_ang))),((linewid/6/4*6*2)*(sin(rp_ang))))
- rpoint__
-
- }
- M4_xyO: last line.c
- { line from last line.start to M4_xyO+(((((linewid/6/4)*(-6)))*(cos(rp_ang))),((((linewid/6/4)*(-6)))*(sin(rp_ang))))\
- then to M4_xyO+((((((linewid/6/4)*(-5)))*(cos(rp_ang)))+((((linewid/6/4)*((2))))*((-sin(rp_ang))))),(((((linewid/6/4)*(-5)))*(sin(rp_ang)))+((((linewid/6/4)*((2))))*(cos(rp_ang))))) \
- then to M4_xyO+((((((linewid/6/4)*(-3)))*(cos(rp_ang)))+((((linewid/6/4)*((-2))))*((-sin(rp_ang))))),(((((linewid/6/4)*(-3)))*(sin(rp_ang)))+((((linewid/6/4)*((-2))))*(cos(rp_ang))))) \
-then to M4_xyO+(((((-(linewid/6/4)))*(cos(rp_ang)))+((((linewid/6/4)*((2))))*((-sin(rp_ang))))),((((-(linewid/6/4)))*(sin(rp_ang)))+((((linewid/6/4)*((2))))*(cos(rp_ang))))) \
- then to M4_xyO+((((linewid/6/4)*(cos(rp_ang)))+((((linewid/6/4)*((-2))))*((-sin(rp_ang))))),(((linewid/6/4)*(sin(rp_ang)))+((((linewid/6/4)*((-2))))*(cos(rp_ang))))) \
-then to M4_xyO+((((((linewid/6/4)*(3)))*(cos(rp_ang)))+((((linewid/6/4)*((2))))*((-sin(rp_ang))))),(((((linewid/6/4)*(3)))*(sin(rp_ang)))+((((linewid/6/4)*((2))))*(cos(rp_ang))))) \
- then to M4_xyO+((((((linewid/6/4)*(5)))*(cos(rp_ang)))+((((linewid/6/4)*((-2))))*((-sin(rp_ang))))),(((((linewid/6/4)*(5)))*(sin(rp_ang)))+((((linewid/6/4)*((-2))))*(cos(rp_ang))))) \
- then to M4_xyO+(((((linewid/6/4)*(6)))*(cos(rp_ang))),((((linewid/6/4)*(6)))*(sin(rp_ang)))) \
- then to last line.end
- [box invis ht linewid/6/4*2*2 wid linewid/6/4*6*2] at 2nd last line.c
- }
-
-
-
-#
- line invis from 2nd last line.start to 2nd last line.end ; {"$ R$" \
- at last [].s below };
- [ circle rad (0.04*linewid) fill 0 ] at Here
- move to last []
- { # Save the current position and direction
- line invis down to (Here,Origin)
- rpoint__
-
-
- { line to Here+(((rp_len/2-linewid/3*0.3/2)*(cos(rp_ang))),((rp_len/2-linewid/3*0.3/2)*(sin(rp_ang))))
- {line from Here+(((-linewid/3/2)*((-sin(rp_ang)))),((-linewid/3/2)*(cos(rp_ang)))) \
- to Here+(((linewid/3/2)*((-sin(rp_ang)))),((linewid/3/2)*(cos(rp_ang))))}
-
- move to Here+(((linewid/3*0.3)*(cos(rp_ang))),((linewid/3*0.3)*(sin(rp_ang))))
- {line from Here+(((-linewid/3/2)*((-sin(rp_ang)))),((-linewid/3/2)*(cos(rp_ang)))) \
- to Here+(((linewid/3/2)*((-sin(rp_ang)))),((linewid/3/2)*(cos(rp_ang))))}
- line to Here+(((rp_len/2-linewid/3*0.3/2)*(cos(rp_ang))),((rp_len/2-linewid/3*0.3/2)*(sin(rp_ang))))
-
-
-
-
-
-
-
- }
-
- {[box invis wid linewid/3 ht linewid/3*0.3 ] at Here+(((rp_len/2)*(cos(rp_ang))),((rp_len/2)*(sin(rp_ang))))}
- line to Here+(((rp_len)*(cos(rp_ang))),((rp_len)*(sin(rp_ang)))) invis #(Here,Origin) = (Here.x,Origin.y)
- {"$ +$" \
- at last [].n rjust above }; {"$ v$" \
- at last [].l rjust }; {"$ -$" \
- at last [].s rjust below }; ; {"$ C$" \
- at last [].e ljust };
- [ circle rad (0.04*linewid) fill 0 ] at Here
- move to last []
- } # Restore position and direction
- line right elen*2/3
- line invis down Here.y-Origin.y
- rpoint__
-
-
- { line to Here+((((rp_len-4*linewid/16*2)/2)*(cos(rp_ang))),(((rp_len-4*linewid/16*2)/2)*(sin(rp_ang))))
- {M4coil: [ S: Here;
- {line to Here+(((-(linethick *(scale/72)/2))*((-sin(rp_ang)))),((-(linethick *(scale/72)/2))*(cos(rp_ang))))};
- for m4i=1 to 4 do {
- arc cw from Here to Here+(((linewid/16*2)*(cos(rp_ang))),((linewid/16*2)*(sin(rp_ang)))) with .c at Here+(((linewid/16)*(cos(rp_ang))),((linewid/16)*(sin(rp_ang))))
- {line to Here+(((-(linethick *(scale/72)/2))*((-sin(rp_ang)))),((-(linethick *(scale/72)/2))*(cos(rp_ang))))} } ] with .S at Here }
-
- line from Here+(((4*linewid/16*2)*(cos(rp_ang))),((4*linewid/16*2)*(sin(rp_ang)))) to Here+((((rp_len+4*linewid/16*2)/2)*(cos(rp_ang))),(((rp_len+4*linewid/16*2)/2)*(sin(rp_ang)))) }
- line to Here+(((rp_len)*(cos(rp_ang))),((rp_len)*(sin(rp_ang)))) invis ; {"$ L$" \
- at last [].l rjust }; ;
- { move to last line.start+(((((rp_len-last [].ht)/2*2/3+arrowht/3))*(cos(rp_ang))),((((rp_len-last [].ht)/2*2/3+arrowht/3))*(sin(rp_ang))))
- arrow <- to Here+(((-arrowht)*(cos(rp_ang))),((-arrowht)*(sin(rp_ang)))) "$ i$" \
- ljust}
- line to Origin
-.PE # Pic input ends