diff options
author | Karl Berry <karl@freefriends.org> | 2024-05-30 19:57:12 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2024-05-30 19:57:12 +0000 |
commit | 331c40fd5e3111d98316166d251fc1629235c6bc (patch) | |
tree | 959465117fea26ec7e231696481f4a134e303ad9 /Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Koch.m4 | |
parent | 63e60afe56af880c4a7793f19b7de582f889d25c (diff) |
circuit_macros (30may24)
git-svn-id: svn://tug.org/texlive/trunk@71389 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Koch.m4')
-rw-r--r-- | Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Koch.m4 | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Koch.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Koch.m4 deleted file mode 100644 index cb122c10b64..00000000000 --- a/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Koch.m4 +++ /dev/null @@ -1,33 +0,0 @@ -.PS -# Koch snowflake -gen_init - - leng = 4 - X: 3,5 - nsides = 3; rot[1] = 0; rot[2] = -120; rot[3] = -120 - depth=4 - - for i=1 to depth do { - for j=1 to nsides do { tmp[j] = rot[j] } - leng = leng/3 - k = 0 - for j=1 to nsides do { - rot[k+1] = tmp[j] - rot[k+2] = 60 - rot[k+3] = -120 - rot[k+4] = 60 - k += 4 - } - nsides = k - } - - a = 0 - line from X to X - for i=1 to nsides do { - a += rot[i] -# X: X+(Rect_(leng,a)) -# continue to X - continue by (Rect_(leng,a)) - } - -.PE |