a = 1 (slider from -3 to 3, step 0.1)
t = 0 (slider from 0 to 1, step 0.1)
f_{1}: y = (sqrt(3) * x)
D: (a, a)
C: ((2 * a), (3 * a / 2))
B: ((3 * a), a)
A: ((3 * a), 0)
h = PolyLine(A, B, C, D)
b0(t) = (1 - t)^(3)
b1(t) = ((3 * (1 - t)^(2)) * t)
b2(t) = ((3 * (1 - t)) * t^(2))
b3(t) = t^(3)
m: tan(60°)
E: (3, 0)
F: (3, 2)
G: (1.5, 3)
H: (0, 3)
gl1:=((a + x) * y^(2)) = (((3 * a) - x) * x^(2))
trisec = CurveCartesian((x(A) * b0(t) / (1 + t^(2))) + (x(B) * b1(t) / (1 + t^(2))) + ((x(C) * 4 / 3) * b2(t) / (1 + t^(2))) + ((x(D) * 2) * b3(t) / (1 + t^(2))), (y(A) * b0(t) / (1 + t^(2))) + (y(B) * b1(t) / (1 + t^(2))) + ((y(C) * 4 / 3) * b2(t) / (1 + t^(2))) + ((y(D) * 2) * b3(t) / (1 + t^(2))), t, -13, 20)
i = Segment(A, E)
j = Segment(B, F)
u: (t * Vector[A, E])
v: (t * Vector[B, F])
A' = Translate(A, u)
c = Vector(A, A')
B' = Translate(B, v)
d = Vector(B, B')
w: (t * Vector[C, G])
C' = Translate(C, w)
e = Vector(C, C')
k = Segment(C, G)
l = Segment(D, H)
w_1: (t * Vector[D, H])
D' = Translate(D, w_1)
f = Vector(D, D')
g = PolyLine({E, F, G, H})
n = PolyLine(A', B', C', D')
morpho = CurveCartesian((x(A') * b0(t) / (1 + t^(2))) + (x(B') * b1(t) / (1 + t^(2))) + ((x(C') * 4 / 3) * b2(t) / (1 + t^(2))) + ((x(D') * 2) * b3(t) / (1 + t^(2))), (y(A') * b0(t) / (1 + t^(2))) + (y(B') * b1(t) / (1 + t^(2))) + ((y(C') * 4 / 3) * b2(t) / (1 + t^(2))) + ((y(D') * 2) * b3(t) / (1 + t^(2))), t, -12, 12)
meta = CurveCartesian((x(E) * b0(t) / (1 + t^(2))) + (x(F) * b1(t) / (1 + t^(2))) + ((x(G) * 4 / 3) * b2(t) / (1 + t^(2))) + ((x(H) * 2) * b3(t) / (1 + t^(2))), (y(E) * b0(t) / (1 + t^(2))) + (y(F) * b1(t) / (1 + t^(2))) + ((y(G) * 4 / 3) * b2(t) / (1 + t^(2))) + ((y(H) * 2) * b3(t) / (1 + t^(2))), t, -20, 20)