Ramer-Douglas-Peucker line simplification: Difference between revisions

m
(Added various BASIC dialects (QBasic and QB64))
Line 1,557:
pvdot = dx * pvx + dy * pvy
 
'SubtractScale thisline fromdirection pvvector
dsx = pvdot * dx
dsy = pvdot * dy
 
'ResteSubtract estothis defrom pv
ax = pvx - dsx
ay = pvy - dsy
2,169

edits