summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/Ccurve.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/Ccurve.m4
Initial commit
Diffstat (limited to 'graphics/circuit_macros/examples/Ccurve.m4')
-rw-r--r--graphics/circuit_macros/examples/Ccurve.m413
1 files changed, 13 insertions, 0 deletions
diff --git a/graphics/circuit_macros/examples/Ccurve.m4 b/graphics/circuit_macros/examples/Ccurve.m4
new file mode 100644
index 0000000000..4aed3fb1ab
--- /dev/null
+++ b/graphics/circuit_macros/examples/Ccurve.m4
@@ -0,0 +1,13 @@
+.PS
+# Ccurve.m4
+gen_init
+# Gosper C curve
+
+`define' c_curve {if $3==0 then { continue by ($1,$2) } else {
+ c_curve( ($1-$2)/2, ($1+$2)/2, $3-1)
+ c_curve( ($1+$2)/2, ($2-$1)/2, $3-1)}}
+
+line from 0,4 to 0,4
+c_curve(0,4,10)
+
+.PE