' Bubble Universe
'
'2 nested loops 52 each = 2704 points calculated.
'Pico 2040 @ 378MHz VGA normal 336mS VGA Framebuffer 418mS
'Pico 2350 @ 378MHz VGA normal 193mS VGA Framebuffer 194mS
'
'If modified to 2 Nested loops each 68 =4761 points calculated
'Pico 2350 @ 378MHz VGA normal 361mS VGA Framebuff 361mS
'
MODE 2
FRAMEBUFFER create
FRAMEBUFFER write f

Dim Float u(51),w(51),p,q,t,v=0,x=0,b
Dim Integer a,g,i,j,c(51),d(51),e(51),n(51),nn,dd,xc,yc,xs,ys
Dim Integer f(13,51),l(13,51),m(26,51),y,z,cc,tt
Const r=(2*Pi)/235,k=255,s=50
CLS RGB(black)
t=Rnd*10:Math set 2,e()
't=1
nn=Peek(varaddr n())
dd=Peek(varaddr d())
cc=Peek(varaddr c())
'calculate centre and scale factor
xc=MM.HRes\2:yc=MM.VRes\2
xs=MM.HRes/4.5:ys=MM.VRes/4.5  'Oval
'xs=MM.HRes/6:ys=MM.VRes/4      'Circular

For g=0 To 51
For a=0 To 51
 If g<26 And a<13 Then
  n(a)=RGB(0,255,0)
 Else
  n(a)=RGB(g*5,a*5,128*(g+a<51))
 EndIf
Next 'a
Memory pack nn, Peek(varaddr m(0,g)),52,32
Next 'g
Do
Inc t,0.015:g=0':Print Timer:Timer =0
For i=50To 255Step 4
 z=Peek(varaddr f(0,g)):Memory unpack z,cc,52,16
 y=Peek(varaddr l(0,g)):Memory unpack y,dd,52,16
 Pixel c(),d(),0'Box c(),d(),e(),e(),0,,0
 b=r*i+t
 For j=0To 51:u(j)=Sin(i+v)+Sin(x):v=Cos(i+v)+Cos(x):x=u(j)+b:w(j)=v:Next
 Math Scale u(),xs,c():Math Scale w(),ys,d():Math add c(),xc,c():Math Add d(),yc,d()
 Memory unpack Peek(varaddr m(0,g)),nn,52,32
 Pixel c(),d(),n()'Box c(),d(),e(),e(),0,,n()
 Memory pack cc,z,52,16:Memory pack dd,y,52,16
 Inc g
Next 'i
FRAMEBUFFER copy f,n
Loop

' Bubble Universe
mode 2

option autorun on
Dim Float u,a,p,q,t,v=0, x=0
Dim Integer g,b,i,j,c(41),d(41),e(41),n(41)
Dim Integer f(41,41),l(41,41),m(41,41)
Const w=MM.HRes/2, h=MM.VRes/2
Const r=(2*Pi)/235, o=h/2
FRAMEBUFFER CREATE F
FRAMEBUFFER WRITE f

CLS RGB(black)':Backlight 95
t=Rnd*10:math set 2,e()'Math set 3,e()

For g=0 to 41
for b=0 to 41
  m(g,b)=rgb(g*6,b*6,128*(g+b>30)*(g+b<60))
Next:Next

Do
Inc t,0.025:g=0:Timer =0
For i=50 To 255 Step 5
b=0
a=r*i
Math Slice f(),g,,c()
Math Slice l(),g,,d()
Box c(),d(),e(),e(),0,,0
For j=50 To 255 Step 5
p=i+v:q=a+x
u=Sin(p)+Sin(q):v=Cos(p)+Cos(q)
x=u+t:c(b)=w+u*o:d(b)=h+v*o
Inc b
Next
Math Slice m(),g,,n()
'Box c(),d(),e(),e(),0,,n()
pixel c(),d(),n()
Math Insert f(),g,,c()
Math Insert l(),g,,d()
Inc g
Next i

FRAMEBUFFER COPY f,N
'Print Timer
Loop