02-08-2003, 03:25 AM
Here are some effects:
This one would be fine with some speed. Link it with ffix..
A cheap hack..
And pure maths one..
This one would be fine with some speed. Link it with ffix..
Code:
'sinus wave by Antoni Gual
1 SCREEN 13
2 FOR i% = 0 TO 100
3 FOR j% = 0 TO 100
4 PSET (i% + 120, j% + 50), ((i% / 8 + (COS(i% / 19.6) * tt * SIN(j% / 19.6))) AND 15) XOR ((j% / 8 + (SIN(i% / 19.6) * tt * COS(j% / 19.6))) AND 15) + 16
5 NEXT j%, i%
6 t = t + 1
7 tt = COS(t)
8 IF LEN(INKEY$) = 0 THEN GOTO 1
A cheap hack..
Code:
'mind-blowing square plasma by Antoni Gual
1 SCREEN 13
3 FOR Ix% = 0 TO 319
4 FOR Iy% = 0 TO 199
5 PSET (Ix%, Iy%), (Ix% - L%) AND (Iy% + L%) AND (Ix% + L%) AND (Iy% - L%)
6 NEXT Iy%, Ix%
7 L% = (L% + 1) AND 255
9 IF LEN(INKEY$) = 0 THEN 3
And pure maths one..
Code:
'Lissajous by Antoni Gual
1 IF k# = 0 THEN SCREEN 12 ELSE CLS
2 IF k# = 0 THEN RANDOMIZE TIMER ELSE n% = (RND * 14)
3 k# = INT(RND * 20 + 1) / INT(RND * 20 + 2)
4 k1# = 1 / k#
6 FOR j# = 0 TO 500 STEP .005
7 PSET (320 + 300 * SIN(k# * j#), 240 + 200 * SIN(j# * k1#)), n% + 1
8 NEXT
9 IF LEN(INKEY$) = 0 THEN GOTO 1
[/code]
Antoni