summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/svg/GrayCodeSVG.m4
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/circuit_macros/examples/svg/GrayCodeSVG.m4')
-rw-r--r--graphics/circuit_macros/examples/svg/GrayCodeSVG.m420
1 files changed, 20 insertions, 0 deletions
diff --git a/graphics/circuit_macros/examples/svg/GrayCodeSVG.m4 b/graphics/circuit_macros/examples/svg/GrayCodeSVG.m4
new file mode 100644
index 0000000000..8d11969049
--- /dev/null
+++ b/graphics/circuit_macros/examples/svg/GrayCodeSVG.m4
@@ -0,0 +1,20 @@
+.PS
+# Gray_code.m4
+gen_init
+
+ outer = 4
+ inner = 0.75
+ nbits = 10
+
+C: circle diam outer
+ circle diam inner at C
+ sectors = 2^nbits
+ lthk = (outer-inner)/2/nbits
+ for bit = 1 to nbits do {
+ for is = 2^(bit-1) to sectors by 2^(bit+1) do {
+ startang = is/sectors*360
+ endang = min(startang+(2^bit)/sectors*360,360)
+ arcd(C,outer/2-(bit-0.5)*lthk,startang,endang) thick lthk/(1bp__)
+ }
+ }
+.PE