dim c%,x%,samples!(360)
SETPIN (31), AIn
adc open 500000,1 'samples per second

FRAMEBUFFER CREATE F
FRAMEBUFFER LAYER L
FRAMEBUFFER WRITE L
line 79,0,79,79,,rgb(red)
line 0,39,159,39,,rgb(red)
FRAMEBUFFER WRITE F

do
adc start samples!() 'get new samples

'trigger
c%=0
do:If samples!(c%) > 0.1 then if samples!(c%+1)<0.2 then exit do
inc c%:loop while c%<160

math scale samples!(),79,samples!()'scale to 80 pixel height
'cls

FRAMEBUFFER COPY L,F
for x%=0 to 158 'screen width
line x%,samples!(x%+c%),x%+1,samples!(x%+1+c%),,rgb(white) 'draw new sample
next x%
FRAMEBUFFER COPY F,N
loop

Const WIDTH = mm.hres
Const HEIGHT =mm.vres
Const CELL = 10
Gens = 0
CLS

FRAMEBUFFER CREATE


createSprites()
'Create some sprites to copy for the cells


'set up inital screen
FRAMEBUFFER WRITE F

For x = 10 To WIDTH Step CELL
For y = 10 To HEIGHT Step CELL
  alive = Int(Rnd*2)
  If alive = 1 Then
    Sprite WRITE 1,x, y
  EndIf
Next
Next

FRAMEBUFFER COPY f,n

'main loop
Do
gens = gens + 1
If gens = 101 Then Run
'clear out the next screen
FRAMEBUFFER write f
CLS

Colour RGB(white)
Text 0,260, "Generation " +Str$(gens)
Colour RGB(black)

For x = 10 To WIDTH Step CELL
For y = 10 To HEIGHT Step CELL
  FRAMEBUFFER write n  'count neighbours on current
  aliveNeighbours = countNeighbours(x,y)
  pixCol = Pixel(x+5,y+5) 'move to cell centre

  FRAMEBUFFER write f  'move back to new screen for all updates
  If pixCol = 16777215 Then

    If aliveNeighbours <2 Or aliveNeighbours > 3 Then
      Sprite write 2,x,y
    Else

      Sprite write 1,x,y
    EndIf
  Else
    If aliveNeighbours = 3 Then

      Sprite write 1,x,y
    EndIf
  EndIf
  'spontaneous creation and dying - added to allow sim to run longer

  mutate =Rnd()
  If mutate < 0.01 Then
    Sprite write 2,x,y  'spontaneous death
  ElseIf mutate > 0.999 Then
    Sprite write 1,x,y  'spontaneous life
  EndIf

Next y
Next x


FRAMEBUFFER copy f,n

Loop



Function countNeighbours(x,y)
count = 0
For dx = -10 To 10 Step CELL
  For dy = -10 To 10 Step CELL
    If (dx= 0 And dy=0) Then
    ' dont count yourself
    Else
        nx = (x+dx+WIDTH) Mod WIDTH
        ny = (y+dy+HEIGHT) Mod HEIGHT
        pixCol = Pixel(nx+5,ny+5)
        If pixCol = 16777215 Then
          count = count + 1
        EndIf
    EndIf
  Next dy
Next dx
countNeighbours = count
End Function



Sub createSprites()
Colour RGB(black)
Circle 10,10,5,,,,RGB(white)
Sprite read 1, 5,5,15,15' ****************** Error!

Colour RGB(black)
Circle 10,10,5,,,,RGB(black)
Sprite read 2, 5,5,15,15
End Sub

' Matrix code rain
' turn off default typing and force explicit typing
Option EXPLICIT
Option DEFAULT NONE
'SetPin GP25, DOUT
'SetPin GP25,dout:Pin(GP25)=0

Dim Integer horiz=MM.HRes/10-1, vert=MM.VRes/10-1
' Set up the rotation strings
Dim String orientate(3) Length 3 =("CMN","CMD","CMU","CMI")
Dim Integer shade(horiz),i,k=&hA00,l=2,LCD=0,c,r,x,n,m,y
Font 7

If MM.Device$="PicoMite" Or MM.Device$="PicoMiteUSB" Then
 FRAMEBUFFER create
 FRAMEBUFFER Write f
 LCD=1
Else
 MODE 2
EndIf

 CLS
' Draw 'Matrix' code rain display
 Do            
  If l=0 Then
' Move the 'code' down one line, gradually decreasing Green brightness
' If white change to Green
   If shade(m)=&hF0FFFF Then shade(m)=&hff00+k:shade(n)=&hff00+k
' Reduce Green brightness
   For y=0To horiz:shade(y)=Choice(shade(y)<&h1000,0,shade(y)-k):Next
  EndIf
' Move whole screen down 4 pixies
'   Blit 0,0,0,4,MM.HRes,MM.VRes-4
   Blit Read 1,0,0,MM.HRes,MM.VRes-4
   Blit Write 1,0,4
   Blit Close 1
' Blank out the top 4 lines of pixies
  Line 0,0,MM.HRes,0,4,0
  Inc l
  If l>1 Then
   l=0
' Output to display
   m=Rnd*horiz:n=Rnd*horiz
' Set to white initially
   shade(m)=&hF0FFFF : shade(n)=&hF0FFFF
' Draw the top line of randomised characters, rotating randomly    
   For x=0To horiz
    Text x*10+4,4,Chr$(Rnd*75+48),orientate(Rnd*3),,,shade(x)
   Next
  EndIf
  If LCD Then
'     FRAMEBUFFER Wait
    FRAMEBUFFER copy f,n
    Pause 40
  Else
    Pause 80
  EndIf
'   Error
'   Print Timer:Timer =0
 Loop
End