diff options
Diffstat (limited to 'graphics/circuit_macros/examples/Ccurve.m4')
-rw-r--r-- | graphics/circuit_macros/examples/Ccurve.m4 | 13 |
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 |