Proggies

[bplus]

Whoa! wasn't expecting that, OK

I see your mod and raise you a mod:

Code: (Select All)

_Title "Simple Patterns mod vince mod bplus" '  B+ 2024-07-17
Screen _NewImage(700, 700, 256)
_ScreenMove 300, 0
m = 2
restart:
For i = 0 To _Width - 1
    For j = 0 To _Height - 1
        x = i * .25: y = j * .25
        c = (x Mod m) Xor (y Mod m)
        PSet (i, j), c
    Next
Next
_Display
_Limit 1
m = m * 1.25
If m > 100 Then m = 2
GoTo restart