Option explicit
Option default none
Framebuffer create
Framebuffer write f
CLS
'brownian motion demo using sprites
Dim integer x(64),y(64),c(64)
Dim float direction(64)
Dim integer i,j,k, collision=0
Dim string q$
For i=1 To 64
direction(i)=Rnd*360 'establish the starting direction for each atom
c(i)=RGB(Rnd*255,Rnd*255,Rnd*255) 'give each atom a colour
Circle 10,10,4,1,,RGB(white),c(i) 'draw the atom
SPRITE read i,6,6,9,9 'read it in as a sprite
Next i
CLS RGB(blue)
Box 0,0,MM.HRes,MM.VRes
k=1
For i=MM.HRes\9 To MM.HRes\9*8 Step MM.HRes\9
For j=MM.VRes\9 To MM.VRes\9*8 Step MM.VRes\9
  SPRITE show k,i,j,1
  x(k)=i
  y(k)=j
  vector k,direction(k), 0, x(k), y(k) 'load up the vector move
  k=k+1
Next j
Next i
'
Do
For i=1 To 64
  vector i, direction(i), 1, x(i), y(i)
  SPRITE show i,x(i),y(i),1
  If sprite(S,i)<>-1 Then
    break_collision i
  EndIf
Next i
Framebuffer copy f,n
Loop
'
Sub vector(myobj As integer, angle As float, distance As float, x_new As intege
r, y_new As integer)
Static float y_move(64), x_move(64)
Static float x_last(69), y_last(64)
Static float last_angle(64)
If distance=0 Then
  x_last(myobj)=x_new
  y_last(myobj)=y_new
EndIf
If angle<>last_angle(myobj) Then
  y_move(myobj)=-Cos(Rad(angle))
  x_move(myobj)=Sin(Rad(angle))
  last_angle(myobj)=angle
EndIf
x_last(myobj) = x_last(myobj) + distance * x_move(myobj)
y_last(myobj) = y_last(myobj) + distance * y_move(myobj)
x_new=Cint(x_last(myobj))
y_new=Cint(y_last(myobj))
Return

' keep doing stuff until we break the collisions
Sub break_collision(atom As integer)
Local integer j=1
Local float current_angle=direction(atom)
'start by a simple bounce to break the collision
If sprite(e,atom)=1 Then
  'collision with left of screen
  current_angle=360-current_angle
ElseIf sprite(e,atom)=2 Then
  'collision with top of screen
    current_angle=((540-current_angle) Mod 360)
ElseIf sprite(e,atom)=4 Then
  'collision with right of screen
  current_angle=360-current_angle
ElseIf sprite(e,atom)=8 Then
  'collision with bottom of screen
  current_angle=((540-current_angle) Mod 360)
Else
  'collision with another sprite or with a corner
  current_angle = current_angle+180
EndIf
direction(atom)=current_angle
vector atom,direction(atom),j,x(atom),y(atom) 'break the collision
SPRITE show atom,x(atom),y(atom),1
'if the simple bounce didn't work try a random bounce
Do While (sprite(t,atom) Or sprite(e,atom)) And j<10
  Do
    direction(atom)= Rnd*360
    vector atom,direction(atom),j,x(atom),y(atom) 'break the collision
    j=j+1
  Loop Until x(atom)>=0 And x(atom)<=MM.HRes-sprite(w,atom) And y(atom)>=0 And
y(atom)<=MM.VRes-sprite(h,atom)
  SPRITE show atom,x(atom),y(atom),1
Loop
' if that didn't work then place the atom randomly
Do While (sprite(t,atom) Or sprite(e,atom))
  direction(atom)= Rnd*360
  x(atom)=Rnd*(MM.HRes-sprite(w,atom))
  y(atom)=Rnd*(MM.VRes-sprite(h,atom))
  vector atom,direction(atom),0,x(atom),y(atom) 'break the collision
  SPRITE show atom,x(atom),y(atom),1
Loop
End Sub

 If y(i) > -9 And y(i) < 321) Then
   If x(i) > -9 And x(i) < 481 Then
     Blit write i,x(i),y(i),1
   EndIf
 EndIf

>print mm.device$Micromite eXtreme, Microchip ID 0x17227053
> print mm.ver 5.070103
> memoryFlash:
  1K ( 1%) Program (3 lines)
543K (99%) Free
RAM:
  0K ( 0%) 0 Variables
  1K ( 0%) General
380K (100%) Free
> list
Dim xarr%(3) = (100,140,130,110)
Dim yarr%(3) = (100,100,200,200)
Polygon 4,xarr%(),yarr%(),RGB(red),RGB(white)
> run
[3] Polygon 4,xarr%(),yarr%(),RGB(red),RGB(white)
Error : Syntax
>