File: quick.m4

package info (click to toggle)
texlive-base 2024.20250309-1
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 1,058,192 kB
  • sloc: perl: 44,903; sh: 5,008; makefile: 4,278; javascript: 3,034; ruby: 2,428; tcl: 2,131; xml: 1,874; python: 1,385; pascal: 1,249; cpp: 549; awk: 512; lisp: 447; ansic: 103; sed: 8
file content (14 lines) | stat: -rw-r--r-- 758 bytes parent folder | download | duplicates (10)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
.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
Vs: source(up_ elen); llabel(-,v_s,+)  # Name and label the source
   resistor(right_ elen); rlabel(,R,)  # Semicolon and line end are equivalent
   dot
   {                           # Save the current position and direction
      capacitor(down_ Vs.len); rlabel(+,v,-); llabel(,C,)
      dot
      }                        # Restore position and direction
   line right_ elen*2/3
   inductor(down_ Vs.len); rlabel(,L,); b_current(i)
   line to (Vs,Here)           # (Vs,Here) = (Vs.x,Here.y)
.PE                            # Pic input ends