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 |
||
' |
'Scale line direction vector |
||
dsx = pvdot * dx |
dsx = pvdot * dx |
||
dsy = pvdot * dy |
dsy = pvdot * dy |
||
' |
'Subtract this from pv |
||
ax = pvx - dsx |
ax = pvx - dsx |
||
ay = pvy - dsy |
ay = pvy - dsy |