summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/GrayCode.m4
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-10-16 03:01:51 +0000
committerNorbert Preining <norbert@preining.info>2019-10-16 03:01:51 +0000
commitd2f68b646eb0ca42dcb488171a6e36ea3da68a5d (patch)
tree4d1ede7b2936deb3d69e7e09fd85bb9fb2d57a16 /graphics/circuit_macros/examples/GrayCode.m4
parent14402f2e3de4ea4c565660dffad35276662c05ac (diff)
CTAN sync 201910160301
Diffstat (limited to 'graphics/circuit_macros/examples/GrayCode.m4')
-rw-r--r--graphics/circuit_macros/examples/GrayCode.m420
1 files changed, 20 insertions, 0 deletions
diff --git a/graphics/circuit_macros/examples/GrayCode.m4 b/graphics/circuit_macros/examples/GrayCode.m4
new file mode 100644
index 0000000000..4fc4815cf1
--- /dev/null
+++ b/graphics/circuit_macros/examples/GrayCode.m4
@@ -0,0 +1,20 @@
+.PS
+# GrayCode.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