d = 0 (slider from -9 to 9, step 0.1)
c = 0 (slider from -9 to 9, step 0.1)
b = 1 (slider from -9 to 9, step 0.1)
a = 1 (slider from -9 to 9, step 0.1)
g(x) = (c * x) + d
f(x) = (a * x) + b
A = Intersect(g, f)
texto2 = Simplify(((c * "x + ") * d))
ta = If(a ≟ 0, "0", If[a ≟ 1, "x", If[a ≟ -1, "- x", (a * " x")]])
tc = If(c ≟ 0, "0", If[c ≟ 1, "x", If[c ≟ -1, "- x", (c * " x")]])
ff = Polynomial(f)
gg = Polynomial(g)
texto1: "\fgcolor{#006699}{a  \; x + b} = \fgcolor{#CC3300}{c \;  x +d}\\ \; \\\fgcolor{#006699}{" + (LaTeX[ff]) + " }=\fgcolor{#CC3300}{ " + (LaTeX[gg]) + "}"