Rastro de cor dinâmica

P: (5, 3)
reg: {(5, 3)}
pol = PolyLine(reg)
verSeg = false
seg = Segment(reg(1), reg(2))
texto1: "Distância percorrida:  " + pol + "
Número de vértices:  " + (Length[reg]) + ""