another variation of "10 PRINT"

[bplus]

Code: (Select All)

_Title "Ten Print Infinity" ' b+ 2025-01-13

Randomize Timer

Do

    __TenPrint Int(Rnd * 800 + 200), Int(Rnd * 400 + 200), Int(Rnd * 20 + 8)

    _Delay .5

Loop Until _KeyDown(27)



Sub __TenPrint (w, h, sq)

    Screen _NewImage(w, h, 32)

    For y = 0 To h Step sq: For x = 0 To w Step sq

            If Rnd < .5 Then Line (x, y)-Step(sq, sq) Else Line (x + sq, y)-Step(-sq, sq)

    Next: Next

End Sub

Can someone beat Infinity?