diff options
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.m4 | 77 |
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 |