From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- graphics/circuit_macros/examples/diamond.m4 | 38 +++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 graphics/circuit_macros/examples/diamond.m4 (limited to 'graphics/circuit_macros/examples/diamond.m4') diff --git a/graphics/circuit_macros/examples/diamond.m4 b/graphics/circuit_macros/examples/diamond.m4 new file mode 100644 index 0000000000..d16cfc91aa --- /dev/null +++ b/graphics/circuit_macros/examples/diamond.m4 @@ -0,0 +1,38 @@ +.PS +# diamond.m4 +gen_init +# See LaTeX Graphics Companion pp 57-58 +ifdpic(` +dimen = 1.5 +ratio = 0.9 +n = 30 + +North: (0,dimen) +East: (dimen,0) +South: (0,-dimen) +West: (-dimen,0) + +define(`square', + `shade(`$1', + line from North to East then to South then to West then to North) + ') + +define(`diamond',`[ +for i = 2 to n do { + square(`$1') + Tmp: North + North: ratio between East and North + East: ratio between South and East + South: ratio between West and South + West: ratio between Tmp and West + }]') + +linethick = 0 +diamond( i % 2 ) +linethick = 0.4 +diamond( (n-i)/(n-2) ) with .w at last [].e+(0.25,0) + +', +`box "diamond.m4" "requires" "dpic"') + +.PE -- cgit v1.2.3