diff options
author | Norbert Preining <norbert@preining.info> | 2023-03-12 03:01:58 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2023-03-12 03:01:58 +0000 |
commit | b3d8df92a44aa1df24a0869d728b45b0baeaa54c (patch) | |
tree | e29b1629fe0120f4d75acc0c72e9470ba7587b88 /graphics/circuit_macros/pdf.m4 | |
parent | 6d29701d91e7deb368e3829e1ff11dcf483cd2fb (diff) |
CTAN sync 202303120301
Diffstat (limited to 'graphics/circuit_macros/pdf.m4')
-rw-r--r-- | graphics/circuit_macros/pdf.m4 | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/graphics/circuit_macros/pdf.m4 b/graphics/circuit_macros/pdf.m4 new file mode 100644 index 0000000000..a9f2da0997 --- /dev/null +++ b/graphics/circuit_macros/pdf.m4 @@ -0,0 +1,59 @@ +divert(-1) + pdf.m4 Initialization for pdf output. + +* Circuit_macros Version 10.2, copyright (c) 2023 J. D. Aplevich under * +* the LaTeX Project Public Licence in file Licence.txt. 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. * + +define(`m4picprocessor',dpic) +define(`m4postprocessor',pdf) + +ifdef(`libgen_',,`include(libgen.m4)divert(-1)')dnl + + Color utilities +define(`setrgb',`pushdef(`r_',`$1')pushdef(`g_',`$2')pushdef(`b_',`$3')dnl +pushdef(`m4cl_',ifelse(`$4',,lcspec,`$4'))dnl + command sprintf(" %7.5f %7.5f %7.5f rg",r_,g_,b_)') + +define(`resetrgb',`popdef(`m4cl_')popdef(`r_')popdef(`g_')popdef(`b_')dnl + ifdef(`r_', + `command sprintf(" %7.5f %7.5f %7.5f rg",r_,g_,b_)', + `command " 0 g"') ') + + `rgbdraw(color triple, drawing commands)' +define(`rgbdraw',`setrgb(`$1',`$2',`$3') + shift(shift(shift($@))) + resetrgb') + + Define some primary colors +define(`defineRGBprimaries',` +define(`white',`1 1 1')dnl +define(`lightgrey',`0.75 0.75 0.75')dnl +define(`lightgray',`0.75 0.75 0.75')dnl +define(`grey',`0.5 0.5 0.5')dnl +define(`gray',`0.5 0.5 0.5')dnl +define(`darkgrey',`0.25 0.25 0.25')dnl +define(`darkgray',`0.25 0.25 0.25')dnl +define(`black',`0 0 0')dnl +define(`red',`1 0 0')dnl +define(`green',`0 1 0')dnl +define(`blue',`0 0 1')dnl +define(`cyan',`0 1 1')dnl +define(`magenta',`1 0 1')dnl +define(`yellow',`1 1 0') ') + +define(`thinlines_',`linethick = 0.4 + arrowwid = 0.04*scale; arrowht = 0.2/3*scale;') +define(`thicklines_',`linethick = 0.8 + arrowwid = 0.05*scale; arrowht = 0.1*scale;') + `linethick_(x) + set line width to x pt (default 0.8) + and scale arrowhead parameters' +define(`linethick_',`linethick = ifelse(`$1',,`0.8',`$1'); dnl + arrowwid = ifelse(`$1',,`0.05',linethick/16)*scale; dnl + arrowht = ifelse(`$1',,`0.1',linethick/8)*scale;') + +divert(0)dnl |