'=========================================================================== ' Subject: NEW PLASMA EFFECT Date: 08-09-98 (03:32) ' Author: Daniel Davies Code: QB, QBasic, PDS ' Origin: ia53@rapid.co.uk Packet: GRAPHICS.ABC '=========================================================================== 'New Plasma Effect 'Daniel Davies 'E-Mail :- ia53@rapid.co.uk 'web :- www.users.rapid.net.uk/ia53/ 'Different method of generating a plasma, by using 'the distance to a point as the offset for the sine 'lookup, as opposed to using the X,Y co-ordinates SCREEN 13 FOR y% = 0 TO 181 y2& = y% * y% y3& = ABS(INT((y% - 50) * (y% - 50) * SIN(y% / 15)) + 1) FOR x% = 0 TO 181 x2% = x% * x% x3% = ABS(INT((x% - 80) * (x% - 80) * SIN((x% + y%) / 10)) + 1) z% = SQR(x3% + y3&) + SQR(x2% + y2&) PSET (x%, y%), z% NEXT x% NEXT y%