Pixel life

[James D Jarvis]

slapped this after updatgen in the main loop and it has an interesting effect. 

Code: (Select All)

    mutation = Int(Rnd * 100)

    Select Case mutation

        Case Is < 10

            PSet (xmax \ 2, ymax \ 2), klr

        Case 10, 11

            Circle (xmax \ 2, ymax \ 2), Int(2 + Rnd * 10), klr

        Case 12

            dx = (1 + Rnd * 12)

            Line (xmax \ 2 - dx, ymax \ 2 - dx)-(xmax \ 2 + dx, ymax \ 2 + dx), klr, B

    End Select