summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/diamond.m4
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /graphics/circuit_macros/examples/diamond.m4
Initial commit
Diffstat (limited to 'graphics/circuit_macros/examples/diamond.m4')
-rw-r--r--graphics/circuit_macros/examples/diamond.m438
1 files changed, 38 insertions, 0 deletions
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