summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/Escher.m4
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/Escher.m4')
-rw-r--r--Master/texmf-dist/doc/latex/circuit-macros/examples/Escher.m477
1 files changed, 77 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/Escher.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/Escher.m4
new file mode 100644
index 00000000000..675fa2c00d5
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/Escher.m4
@@ -0,0 +1,77 @@
+.PS
+threeD_init
+ setview(-45,20)
+ bwid = 2.8
+ bh = 1.5
+ bdp = 1.8
+ bth = 0.3
+ A: project(0,0,0)
+ AA: A+(project(bth,bth,-bth))
+ B: project(0,bwid,0)
+ BB: B+(project(bth,-bth,-bth))
+ C: project(bdp,bwid,0)
+ D: project(bdp,0,0)
+ E: project(0,0,-bh)
+ F: project(bdp,0,-bh)
+ G: project(bdp,bwid,-bh)
+ H: B + (project(0,0,-bh))
+
+ line from A to B then to C then to D then to A then to E then to F \
+ then to G then to H then to E
+ line from C to G
+ line from A+(project(bth,bth,0)) to B+(project(bth,-bth,0)) \
+ then to C+(project(-bth,-bth,0))
+ L1: line to D+(project(-bth,bth,0))
+ L2: line to A+(project(bth,bth,0))
+ L4: line from E+(project(bth,bth,0)) to H+(project(bth,-bth,0))
+ L3: line to C+(project(-bth,-bth,-bh))
+ line to F+(project(-bth,bth,0)) then to A+(project(bth,bth,-bh))
+
+ L5: line from D+(project(-bth,0,-bth)) to A+(project(bth,0,-bth))
+ line to E+(project(bth,0,bth))
+ L6: line to Here+(project(0,bwid-2*bth,0))
+ L7: line from D+(project(0,bth,-bth)) to C+(project(0,-bth,-bth))
+ line to G+(project(0,-bth,bth))
+ L8: line to Here+(project(-bdp+2*bth,0,0))
+ Tmp: line invis from L8.start+(project(-bth,0,0)) up bh
+ line from Tmp.start to Intersect_(Tmp,L7)
+ Tmp: line invis from L8.end up bh
+ line from L8.end to Intersect_(Tmp,L7)
+ line from Intersect_(Tmp,L1) to BB+(project(bth,0,0))
+ Tmp: line invis to Here+(project(bdp,0,0))
+ line from Tmp.start to Intersect_(Tmp,L1)
+
+ Tmp: line invis from H up bh
+ line from H to Intersect_(Tmp,L7)
+ line from Intersect_(Tmp,L1) to B+(project(bth,-bth,0))
+
+ Tmp: line invis from AA to AA+(project(0,bwid,0))
+ Tmp2: line invis up bh from L6.end
+ line from Intersect_(Tmp,L2) to Intersect_(Tmp2,Tmp) \
+ then to Intersect_(Tmp2,L1)
+ line from L6.end to Intersect_(Tmp2,L7)
+
+ Tmp: line invis down bh from AA
+ line from Intersect_(Tmp,L6) to Intersect_(Tmp,L5)
+
+ Tmp: line invis down bh from D
+ line from D to Intersect_(Tmp,L6)
+ line from Intersect_(Tmp,L4) to F+(project(-bth,bth,0))
+
+ Tmp: line invis from L5.start to L5.start+(project(0,0,-bh))
+ move to E+(project(0,2*bth,0))
+ Tmp2: line invis to Here+(project(bdp,0,0))
+ line from L5.start to Intersect_(Tmp,L6)
+ line from Intersect_(Tmp,L4) to Intersect_(Tmp,Tmp2) \
+ then to Intersect_(Tmp2,L4)
+
+ Tmp: line invis from L7.start to L7.start+(project(0,0,-(bh-bth)))
+ line from L7.start to Intersect_(Tmp,L6)
+
+ move to G+(project(-2*bth,0,0))
+ Tmp2: line invis to Here+(project(0,-bwid,0))
+ line from Intersect_(Tmp2,L3) to Intersect_(Tmp,Tmp2)
+ line from Intersect_(Tmp,L4) to Intersect_(Tmp2,Tmp)
+
+
+.PE