Spring Banner Contest! (2023)

[bplus]

@dbox 

replace:

Code: (Select All)

'tryAgain:
        xoff = Rnd * XMAX
        yoff = YMAX - (Rnd * sq) ^ .25
        size = 15 * (yoff - 140) / 116
        If size < 1 Then size = 1
        For j = 1 To i - 1 '                                space out flowers less overlap!
            If _Hypot(xoff - fx(j), yoff - fy(j)) < size + fs(j) + 1 Then
                'GoTo tryAgain
                _Continue
            End If
        Next

with

Code: (Select All)

dim ok
    Do
        ok = 1
        xoff = Rnd * XMAX
        yoff = YMAX - (Rnd * sq) ^ .25
        size = 15 * (yoff - 140) / 116
        If size < 1 Then size = 1
        For j = 1 To i - 1 '                                space out flowers less overlap!
            If _Hypot(xoff - fx(j), yoff - fy(j)) < size + fs(j) + 1 Then ok = 0: Exit For
        Next
    Loop Until ok

PS reset number of flowers to 1900, 2000 max!!!