Rastro de color dinámico

P: (9, -2)
reg: {(9, -2)}
pol = PolyLine(reg)
texto1: "Longitud recorrida:  " + pol + "
Número de vértices:  " + (Length[reg]) + ""
verSeg = false
seg = Segment(reg(1), reg(2))