Master/texmf-dist/doc/latex/latex-graphics-companion/6-7-4.m4


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

\documentclass{ppex}
\nonstopmode

\pagestyle{empty}

\begin{document}
\ResetPreambleCommands
\ReadyForTheFray

.PS
cct_init

define(`loop',`[
  source(left_ elen_); llabel(,V,)
  resistor(up_ dimen_); llabel(,R,)
  inductor(right_ elen_); llabel(,L,)
  capacitor(down_ dimen_); llabel(,C,)
  ]')

for linewid = 0.5 to 1 by  *1.3 do { loop; move right }
.PE
\usebox{\graph}
\end{document}