Ramer-Douglas-Peucker line simplification: Difference between revisions

Content added Content deleted
(Added various BASIC dialects (QBasic and QB64))
Line 1,557: Line 1,557:
pvdot = dx * pvx + dy * pvy
pvdot = dx * pvx + dy * pvy


'Subtract this from pv
'Scale line direction vector
dsx = pvdot * dx
dsx = pvdot * dx
dsy = pvdot * dy
dsy = pvdot * dy


'Reste esto de pv
'Subtract this from pv
ax = pvx - dsx
ax = pvx - dsx
ay = pvy - dsy
ay = pvy - dsy