Posted: 04:56pm 18 Oct 2025 Copy link to clipboard
javavi Guru
Landscape
MODE 2 CLS Map(1) r=Rad(35):m%=4 For y%=0 To MM.VRES For x%=0 To MM.HRES h=0 For i%=1 To 4 x0=x%/i%:y0=y%/i% a=r*i% Co=Cos(a):Si=Sin(a) s=x0*Co-y0*Si t=x0*Si+y0*Co h=h+Sin(s/5)*4+Sin(t/7)*5 Next If h>-2 Then Color Map(4+Abs(h) Mod 7) Pixel x0*m%,y0*m% EndIf Next : Next
Posted: 07:11pm 31 Oct 2025 Copy link to clipboard
javavi Guru
Plasma
MODE 2 Map Reset Dim integer cm(15)=(0,15,7,1,0,0,0,0,0,0,0,0,0,0,0,0) Colour Map cm(),cm()
r=Rad(35) For Y0%=0 To MM.VRES For X0%=0 To MM.HRES h=0 For i%=1 To 3 x=(X0%-10)/i%:y=Y0%/i%:a=r*i% C0=Cos(a):S0=Sin(a) s=x*C0-y*S0:t=x*S0+y*C0 h=h+Sin(s/5)*4+Sin(t/7)*5 Next Pixel X0%,Y0%,Map((h+24)Mod 16) Next :Next
Do T=cm(0) For i%=0 To 14:cm(i%)=cm(i%+1):Next cm(15)=T For i%=0 To 15:Map(i%)=cm(i%):Next Map Set Pause 50 Loop
Posted: 03:37pm 01 Nov 2025 Copy link to clipboard
AlbertR Regular Member
I love demos like this and can watch them over and over again. I think a plasma demo is a must, great work!
Albert Edited 2025-11-02 01:38 by AlbertR
Posted: 05:45pm 01 Nov 2025 Copy link to clipboard
stanleyella Guru
nice
Posted: 09:25pm 01 Nov 2025 Copy link to clipboard
Pluto Guru
Cannot resist to immediately run and enjoy these interesting artworks. Pluto
Plasma 
