Los bisectores interiores son:

C1 = Distancia[A, Interseca[Bisectriz[B, A, B1], Recta[B1, B]]]
E1 = Distancia[B, Interseca[Bisectriz[B1, B, A], Recta[B1, A]]]
G1 = Distancia[B1, Interseca[Bisectriz[A, B1, B], Recta[A, B]]]

y los exteriores:

D1 = Distancia[A, Interseca[Perpendicular[A, Bisectriz[B, A, B1]], Recta[B1, B]]]
F1 = Distancia[B, Interseca[Perpendicular[B, Bisectriz[B1, B, A]], Recta[B1, A]]]
H1 = Distancia[B1, Interseca[Perpendicular[B1, Bisectriz[A, B1, B]], Recta[A, B]]]

Así que, en este caso, el código de color dinámico es:

R = e^(-abs(C1 - D1))

G = e^(-abs(E1 - F1))

B = e^(-abs(G1 - H1))

Pulsa el botón de Reproducción (esquina inferior izquierda) para activar el escáner. (Dependiendo del equipo, el applet puede tardar algunos minutos en cargarse, si tarda mucho descargar el archivo.ggb)