Just 6 Fractals

[bplus]

Here is slide show of b+ mod of your Henon:

Code: (Select All)

Screen _NewImage(_DesktopWidth, _DesktopHeight, 12)
_FullScreen
xc = _Width / 2
yc = _Height / 2
Do
    a = Rnd * 10 ^ (Rnd * 10)
    xmul = Rnd * 1000
    Cls
    For x = -.1 To .8 Step .05
        For y = -.1 To .8 Step .05
            x1 = x
            y1 = y
            lim = Rnd * 2000 + 200
            For i% = 1 To lim
                'If x1 > 1000 Or y1 > 1000 Or x1 < -1000 Or y1 < -1000 Then
                '    i% = 1000
                'Else
                ca = Cos(a)
                sa = Sin(a)
                yy = y1 - x1 * x1
                xx = x1 * ca - yy * sa
                y1 = x1 * sa + yy * ca
                x1 = xx
                Line (xc + (x1 * xmul), yc + (y1 * xmul))-Step(1, 1), (i% Mod 17), BF
                'End If
            Next i%
        Next y
    Next x
    Print a
    _Display
    _Limit .5
Loop Until _KeyDown(27)