summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/Geometry.m4
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/circuit_macros/examples/Geometry.m4')
-rw-r--r--graphics/circuit_macros/examples/Geometry.m432
1 files changed, 28 insertions, 4 deletions
diff --git a/graphics/circuit_macros/examples/Geometry.m4 b/graphics/circuit_macros/examples/Geometry.m4
index ae0a661012..0cbf4bb499 100644
--- a/graphics/circuit_macros/examples/Geometry.m4
+++ b/graphics/circuit_macros/examples/Geometry.m4
@@ -1,11 +1,11 @@
.PS
# Geometry.m4
gen_init
- scale = 5/4
- A: Here; "A" at A above
- B: A+(-1,-3.5); "B" at B below rjust
- C: B+(4.6,0); "C" at C below ljust
+Fig1: [ ls = 2/3 # local scale
+ A: Here; "A" at A above
+ B: A+(-1*ls,-3.5*ls); "B" at B below rjust
+ C: B+(4.6*ls,0); "C" at C below ljust
AB: line from A to B
BC: line from B to C
CA: line from C to A
@@ -42,5 +42,29 @@ gen_init
line dashed from X to Y chop -linewid/2
RightAngle(A,Z,Y)
+ ]
+
+Fig2: [ ls = 3/4 # local scale
+# https://tex.stackexchange.com/questions/593272/drawing-complex-geometry
+ P: dot(at Here); "P" at P.s below
+ N: dot(at P+(3.5*ls,1.5*ls)); "N" at N.se ljust below
+ O: dot(at (N,P)); "O" at O.s below
+ R: dot(at 1/3 between O and P);"R" at R.s below
+ M: dot(at (R,N)); "M" at M.se ljust below
+ Q: dot(at (M.x,M.y+distance(M,N)/distance(N,O)*distance(P,O)));"Q" at Q.e ljust
+ line from P to Q then to N then to O
+ B: line to P chop -0.3
+ line from M to N
+ Pu: line from R to Q chop 0 chop -0.3
+ H: line from P to N chop 0 chop -0.3
+ X: dot(at Intersect_(Pu,H)); "X" at X.se ljust below
+ thinlines_
+ RightAngle(Q,M,N)
+ RightAngle(Q,N,H.end)
+ RightAngle(N,O,B.start)
+ ArcAngle(N,P,Q,0.4); "$\beta$" at last arc.ne above ljust
+ ArcAngle(O,P,N,0.5); "$\alpha$" at last arc.start+(5bp__,8bp__)
+ ArcAngle(R,Q,N,0.5); "$\alpha$" at last arc.start+(8bp__,-5bp__)
+ ] with .w at Fig1.e+(-0.4,0)
.PE