_Title "Ansii Plasma - press spacebar for new set of points, be sure to swirl your mouse in the stuff!" ' b+ 2021-11-11
nP = 6
restart:
f(n) = n * .015
p(i).x = p(i).x + p(i).dx
p(i).y = p(i).y + p(i).dy
d = 0
dx = x - p(n).x: dy = y - p(n).y
k
= Sqr(dx
* dx
+ dy
* dy
) d
= d
+ (Sin(k
* f
(n
)) + 1) / 2 'Locate y, x: Print Chr$(Int(d * 20));