Vertical Scale Factor=

A = (-1.96, 3.96)
B = (-0.66, 3.14)
f = Segment(A, B)
C = (0.82, 4.1)
g = Segment(B, C)
D = (2.52, 4)
h = Segment(C, D)
E = (3.72, 2.98)
i = Segment(D, E)
F = (3.733755073333347, 2.470173509523811)
j = Segment(E, F)
G = (2.443088406666678, 1.5252211285714294)
k = Segment(F, G)
H = (0.54, 1.54)
l = Segment(G, H)
I = (-0.68, 2.34)
m = Segment(H, I)
J = (-1.92, 1.76)
n = Segment(I, J)
K = (-1.42, 2.7)
p = Segment(J, K)
q = Segment(K, A)
L = (2.14, 3.34)
M = (2.5, 3.1)
r = Segment(L, M)
N = (2.12, 2.98)
s = Segment(M, N)
t = Segment(N, L)
poly1, a, b, c, d, e, f_1, g_1, h_1, i_1, j_1, k_1 = Polygon(A, B, C, D, E, F, G, H, I, J, K)
O = (-3.116, 0.452)
m_1 = Ray(O, O + (5, 0))
sch = 2 (slider from 0.1 to 4, step 0.05)
scv = 2 (slider from 0.1 to 4, step 0.1)
VA: A - O
DA = Distance(D, A)
o: x(VA)
MA: O + (sch * (x(VA), 0)) + (scv * (0, y(VA)))
VB: B - O
VC: C - O
VD: D - O
VE: E - O
VF: F - O
VG: G - O
VH: H - O
VI: I - O
VK: K - O
VL: L - O
VM: M - O
VN: N - O
MB: O + (sch * (x(VB), 0)) + (scv * (0, y(VB)))
MC: O + (sch * (x(VC), 0)) + (scv * (0, y(VC)))
MD: O + (sch * (x(VD), 0)) + (scv * (0, y(VD)))
ME: O + (sch * (x(VE), 0)) + (scv * (0, y(VE)))
MF: O + (sch * (x(VF), 0)) + (scv * (0, y(VF)))
MG: O + (sch * (x(VG), 0)) + (scv * (0, y(VG)))
MH: O + (sch * (x(VH), 0)) + (scv * (0, y(VH)))
MI: O + (sch * (x(VI), 0)) + (scv * (0, y(VI)))
VJ: J - O
MJ: O + (sch * (x(VJ), 0)) + (scv * (0, y(VJ)))
MK: O + (sch * (x(VK), 0)) + (scv * (0, y(VK)))
ML: O + (sch * (x(VL), 0)) + (scv * (0, y(VL)))
MM: O + (sch * (x(VM), 0)) + (scv * (0, y(VM)))
MN: O + (sch * (x(VN), 0)) + (scv * (0, y(VN)))
poly2, ma, mb, mc, md, me, mf, mg, mh, mi, mj, mk = Polygon(MA, MB, MC, MD, ME, MF, MG, MH, MI, MJ, MK)
t1, mn, ml, mm = Polygon(ML, MM, MN)
text2: "" + scv + ""
text3: "Horizontal Scale Factor = " + sch + ""
α = Angle(F, G, H)
β = Angle(MF, MG, MH)
P = (4.508085930476205, 0.4158700809523801)
l_1 = Segment(G, P)
Q = (6.0725813590476365, 1.64292531904762)
n_1 = Segment(MG, Q)
ay: round((α * 2)) / 2
text4: "Angle in yellow fish is " + ay + ""
ab: round((β * 2)) / 2
text5: "Angle in blue fish is " + ab + ""
areay: round((poly1 * 10)) / 10
areab: round((poly2 * 10)) / 10
text6: "Area of blue fish = " + (LaTeX[areab]) + " cm$^2$"
text7: "Area of yellow fish = " + (LaTeX[areay]) + " cm$^2$"
areaRatio: areab / areay
text8: "Ratio of areas 
(factor area changes by) = " + areaRatio + ""