summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/circuit/mfpic.m4
blob: e1889efd0fd71f261076c975ce8ae24a114d210c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
divert(-1)
   mfpic.m4                     Initialize macros for mfpic.

* Circuit_macros Version 5.86, copyright (c) 2006 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.                                             *

                                Installation directory.  You can set this to
                                the null string if you use an environment
                                variable to tell m4 where to search:
ifdef(`HOMELIB_',,
 `define(`HOMELIB_',`./circuit/')')
#`define(`HOMELIB_',`C:\Dwight\lib\')')

define(`m4picprocessor',dpic)
define(`m4postprocessor',mfpic)

ifdef(`up_',,`include(HOMELIB_`'libgen.m4)divert(-1)')dnl

define(`thinlines_',`linethick = 0.4
   \pen{0.4pt}
   arrowwid = 0.04*scale; arrowht = 0.2/3*scale;')
define(`thicklines_',`linethick = 0.8
   \pen{0.9pt} % for the same width as pstricks, gpic at 0.8pt on my printer
   arrowwid = 0.05*scale; arrowht = 0.1*scale;')
define(`linethick_',`linethick = ifelse(`$1',,`0.8',`$1')
   \pen{ifelse(`$1',,`0.9',`$1')pt}
   arrowwid = ifelse(`$1',,`0.05',(`$1')/16)*scale; dnl
   arrowht = ifelse(`$1',,`0.1',(`$1')/8)*scale;')
divert(0)dnl