summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/svg/GeometrySVG.m4
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/circuit_macros/examples/svg/GeometrySVG.m4')
-rw-r--r--graphics/circuit_macros/examples/svg/GeometrySVG.m435
1 files changed, 29 insertions, 6 deletions
diff --git a/graphics/circuit_macros/examples/svg/GeometrySVG.m4 b/graphics/circuit_macros/examples/svg/GeometrySVG.m4
index bb6ff0bd2a..5dc1284d08 100644
--- a/graphics/circuit_macros/examples/svg/GeometrySVG.m4
+++ b/graphics/circuit_macros/examples/svg/GeometrySVG.m4
@@ -1,9 +1,10 @@
.PS
# Geometry.m4
gen_init
+ maxpswid = 10
scale = 5/4
-G: [
+Fig1: [
A: Here; "A" at A above
B: A+(-1,-3.5); "B" at B below rjust
@@ -12,7 +13,7 @@ G: [
BC: line from B to C
CA: line from C to A
- PerpTo(A,BC,L); "L" at L below
+ perpto(A,BC,L); "L" at L below
AL: line from A to L; RightAngle(A,L,C)
angleLAC = atan2(C.x-L.x,A.y-L.y)
@@ -20,10 +21,10 @@ G: [
AW: line from A to Intersect_(S,BC)
W: Here; "W" at W below rjust
- PerpTo(C,AB,N); "N" at N above rjust
+ perpto(C,AB,N); "N" at N above rjust
CN: line from C to N; RightAngle(C,N,B)
- PerpTo(B,CA,M); "M" at M above
+ perpto(B,CA,M); "M" at M above
CM: line from B to M; RightAngle(B,M,C)
H: Intersect_(CN,AL); "H" at H +(4bp__,10bp__)
@@ -45,7 +46,8 @@ G: [
line dashed from X to Y chop -linewid/2
RightAngle(A,Z,Y)
] scaled 0.8
-Lyap: [
+
+Fig2: [
#.PS
# Lyap.m4
threeD_init
@@ -205,6 +207,27 @@ arrow from F[n/2] to Project(0,0,2)
"svg_it(v(X) = c)" at (Project(vp(100*dtor_,c)))+(2bp__,0) above ljust
#.PE
- ] scaled 1.5 with .sw at last [].se+(0.5,0)
+ ] scaled 1.5 with .w at last [].e+(0.5,0)
+
+Fig3: [
+# https://tex.stackexchange.com/questions/609452/help-drawing-a-more-sophisticated-right-triangle-with-tikz-or-something-else
+gen_init
+
+ unit = 0.8
+ C: Here; { "C" at C rjust below }
+ B: C+(4*unit,0); { "B" at B ljust below }
+ A: C+(0,3*unit); { "A" at A rjust above }
+ H: PerpTo(C,A,B); { "H" at H ljust above }
+ line from C to H then to B then to C shaded rgbstring(0.5,0.8,0.9)
+ line from C to H then to A then to C shaded rgbstring(0.8,0.9,0.7)
+ ArcAngle(C,A,B,unit*0.4)
+ ArcAngle(C,A,B,unit*0.5)
+ ArcAngle(A,B,C,unit*0.5,,"svg_theta" rjust)
+ ArcAngle(B,C,H,unit*0.5); {"svg_theta" at C+(unit*0.3,unit*0.17) }
+ ArcAngle(B,C,A,unit*0.6)
+ RightAngle(B,C,A,unit*0.17)
+ RightAngle(C,H,A,unit*0.17)
+
+ ] with .sw at Fig2.se+(0.2,0)
.PE