summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/Eye.m4
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/Eye.m4')
-rw-r--r--Master/texmf-dist/doc/latex/circuit-macros/examples/Eye.m414
1 files changed, 10 insertions, 4 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/Eye.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/Eye.m4
index 50a62c389ef..1251afca095 100644
--- a/Master/texmf-dist/doc/latex/circuit-macros/examples/Eye.m4
+++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/Eye.m4
@@ -1,11 +1,15 @@
.PS
# Eye.m4
+# https://getpocket.com/explore/item/pillars-of-fire-truly-adventurous?utm_source=pocket-newtab
gen_init
define(`eye',`[ u = `$1'; v = 0.47*u; w = 0.25*u
+# for pdf, linethick in shade must be environment
+ lth = linethick; linethick = 0
shade(1,
- arc thick 0 from (u/2,0) to (-u/2,0) with .c at (0,-u/3)
- arc thick 0 to (u/2,0) with .c at (0,u/3) )
+ arc outlined "red" from (u/2,0) to (-u/2,0) with .c at (0,-u/3)
+ arc to (u/2,0) with .c at (0,u/3) )
+ linethick = lth
circle diam v fill_(0.25) at (0,0)
circle diam w fill_(0) at (0,0)
circle thick 0 diam last circle.diam/2 fill_(1) at last circle.nw
@@ -35,12 +39,14 @@ define(`eye',`[ u = `$1'; v = 0.47*u; w = 0.25*u
for a=0 to 359 by dax do {
T1: (Rect_(d[i]/2,a))
T2: (Rect_(d[i]/2,a-da*2))
+ lth = linethick; linethick = 0
shade(1,
- arc cw thick 0 from T1 to T2 with .c at Bx
+ arc cw from T1 to T2 with .c at Bx
spline 0.55 thick 0 to 0.8 between Bx and T2 \
then to (Rect_(d[i]/4,a+30))
- arc cw thick 0 to (Rect_(d[i]/4,a+32)) with .c at Bx
+ arc cw to (Rect_(d[i]/4,a+32)) with .c at Bx
spline 0.55 thick 0 to 0.8 between Bx and T1 then to T1 )
+ linethick = lth
}
}
C[1]: circle thick 2 diam d[1] at Bx fill_(0.1)