code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Dim b As New Bitmap(_width * 3, _height * 3)
Dim g As Graphics = Graphics.FromImage(b)
g.FillRectangle(Brushes.White, 0, 0, _width * 3, _height * 3)
For x As Integer = 0 To _width - 1
For y As Integer = 0 To _height - 1
Select Case (land(x, y).state)
Case Cell.cellstate.alive
g.FillRectangle(Brushes.Blue, x * 3, y * 3, 3, 3)
Case Cell.cellstate.dead
g.FillRectangle(Brushes.White, x * 3, y * 3, 3, 3)
Case Cell.cellstate.lonely
g.FillRectangle(Brushes.White, x * 3, y * 3, 3, 3)
Case Cell.cellstate.overcrowed
g.FillRectangle(Brushes.White, x * 3, y * 3, 3, 3)
End Select
Next
Next
Form1.PictureBox1.Image = b
g.Dispose() |
Ik heb Conways' Game Of Life gemaakt, voor een veld van 100x100 duurt een draw ongeveer 100ms
Voor 300x200 duurt dat al een 700ms ...
land(x,y) is een array van Cell objecten (moeilijke naam voor een integer die 1 2 3 4 5 kan zijn, afhankelijk van de status)
Die array moet ik toch veld per veld afgaan om te tekenen? Maar hoe maak ik dit nu sneller...