'===========================================================================
' Subject: NEW PLASMA EFFECT 2               Date: 08-09-98 (03:32)       
' Author:  Daniel Davies                     Code: QB, QBasic, PDS        
' Origin:  ia53@rapid.co.uk                Packet: GRAPHICS.ABC
'===========================================================================
'New Plasma Effect 2
'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 between points as the offset for the sine
'lookup, as opposed to using the X,Y co-ordinates

SCREEN 13

OUT 968, pal%
FOR pal% = 0 TO 127
OUT 968, pal%: OUT 969, pal%: OUT 969, pal%: OUT 969, pal%
OUT 968, 255 - pal%: OUT 969, pal%: OUT 969, pal%: OUT 969, pal%
NEXT pal%

FOR y% = 0 TO 181
y2& = ABS((y%) * (y%))
y3& = ABS(INT((y% - 50) * (y% - 50)))
FOR x% = 0 TO 181
x2& = ABS(((x%) * (x%)))
x3& = ABS(((x% - 80) * (x% - 80)))
z% = (SIN(SQR(x3& + y3&) / 10) + SIN(SQR(x2& + y2&) / 10)) * 128
PSET (x%, y%), z%
NEXT x%
NEXT y%