[bb] 1D Cellular Automaton Explorer by zoqfotpik [ 1+ years ago ]

[BlitzBot]

Title : 1D Cellular Automaton Explorer
Author : zoqfotpik
Posted : 1+ years ago

Description : This produces images by showing the evolution of a one-dimensional cellular automaton over time (y coordinate = elapsed time.)

Hit R to randomly choose a new ruleset, C to change the color palette.

Cellular automata are computational.  There are many bizarre and interesting images possible from this, don't just run it once or twice and assume that the output is ugly or simple-- it's not.  Hit R a bunch of times.

Code :

Code (blitzbasic) Select Expand

' 2d ca

Global states[100000]
Global array[1000]
Global nextarray[1000]
Global neighborradius%=1
Global r%[50]
Global g%[50]
Global b%[50]
Global low%
Global high%
Global cellsize = 2
Global celltypes = 10
Global screenarray[1000,1000]
Global drawstripheight%=10
Global scrollwindow% = 1000
Function initcolors()
For i = 1 To 49
r[i]=Rand(255)
g[i]=Rand(255)
b[i]=Rand(255)
Next
End Function

Function initarray()
'For i = 0 To 999
'array[i]=Rand(49)
'Next

'For i = 450 To 550
'array[i]=Rand(49)
'Next

For i = 0 To 999
array[i]=Rand(celltypes)
Next

'array[500]=Rand(49)
End Function

Function initstates()
For i = 0 To 99999
states[i]=Rand(celltypes)-1
Next
states[0]=0
low = Rand(neighborradius*50)
high = low + Rand(neighborradius*50)
End Function

Function doarray()
For j = 0 To 1000/cellsize
For i = 0 To 999/cellsize
Local neighbors = 0
For x = i-neighborradius To i+neighborradius
absx = x
If absx<0 absx = absx+1000/cellsize
If absx>999/cellsize absx = absx-1000/cellsize
neighbors = neighbors + array[absx]
Next
nextcell = states[neighbors]
If neighbors < low Or neighbors > high nextcell = 0
nextarray[i]=states[neighbors]
'SetColor r[states[neighbors]],g[states[neighbors]],b[states[neighbors]]
'DrawRect i*cellsize,j*cellsize,cellsize,cellsize

Next
For i = 0 To 999/cellsize
array[i]=nextarray[i]
screenarray[i,j]=nextarray[i]
Next
'If j Mod 40 = 1 Flip
'states[Rand(celltypes)]=Rand(celltypes)
Next
'drawscreen()

End Function

Graphics 1000,1000
Cls
initcolors()
initarray()
initstates()
doarray()
Flip
While Not KeyDown(KEY_ESCAPE)
If KeyHit(KEY_SPACE)
Cls
initarray()
doarray()
Flip
EndIf

If KeyHit(KEY_R)
initstates()
initarray()
doarray()
Flip
EndIf

If KeyHit(KEY_C)
initcolors()
drawscreen()
Flip
EndIf

drawscreen
Flip
scrollwindow:+1
If scrollwindow > 999 scrollwindow = 0
Wend

Function drawscrolledscreen()
Local y = 1000/cellsize
For j = scrollwindow To 0 Step -1
drawcellline(j,y*cellsize)
y=y-1
Flip
Next
End Function


Function drawscreen()
For j = 1 To 999
'For i = 0 To 999/cellsize
' SetColor r[screenarray[i,j]],g[screenarray[i,j]],b[screenarray[i,j]]
' DrawRect i*cellsize,(j*cellsize)-cellsize,cellsize,cellsize
'Next
DrawcellLine(j,j*cellsize)
Next
End Function



Function DrawcellLine(j,screeny)
For i = 0 To 999/cellsize
SetColor r[screenarray[i,j]],g[screenarray[i,j]],b[screenarray[i,j]]
DrawRect i*cellsize,screeny,cellsize,cellsize
Next
End Function

Comments : none...