XProfan

 {$cleq}
Titre de la fenêtre "Mandelbrot-Menge"
' dans starker Anlehnung à cela Programme de Julian Schmid et Paul Glatz
' Reine (D) Demo 2013-09 by P. Specht, vienne. Use solely at your own risk!
Windowstyle 24
Fenêtre 400,300
' Fenêtre (%maxx-640)/2,(%maxy-480)/2 - 640,480
' Fenêtre 0,0-%maxx,%maxy-42
declare cxmin!,cxmax!,cymin!,cymax!,iter&,tm&,ans&,zoom!,i&
zoom!=0.7

whileloop 10:i&=&loop

    zoom!=zoom!*1.3333
    CXMin!=-2.2 /zoom!
    CXMax!= 1.2 /zoom!
    CYMin!=-1.5 /zoom!
    CYMax!= 1.5 /zoom!
    iter&=128
    tm&=&gettickcount
    ans&=Mandel(cxmin!,cxmax!,cymin!,cymax!,iter&)
    tm&=&gettickcount-tm&
    locate 1,1:imprimer format$("#0.0000 sec ",tm&/1000);
    waitinput 10
    cas (%clé=27) or (%clé=2):end

Endwhile

waitinput 60000
end

nProc Mandel

    parameters cxmin!,cxmax!,cymin!,cymax!,iter&
    Déclarer CX!,CY!,x!,x2!,y!,tmp!,LX&
    Déclarer LY&,IC&,col&,w&,hddc&,xd!,yd!
    w&=width(hwnd)
    hddc& = ~GetWindowDC( %hWnd )
    xd! = CXMax! - CXMin!
    yd! = CYMax! - CYMin!

    whileloop 0,w&

        LX&=&loop
        CX! = CXMin!
        ' f!=float(l&), Float2Long simple l&=long(f!)
        tmp!= float(LX&) / float(w&)
        cx!=cx! + tmp! * xd!
        LY&=0

        whileloop 0,height(%hwnd)

            LY&=&loop
            CY!=CYMax!-(float(LY&)/float(height(%hwnd)))*yd!
            IC&=0
            x!=0
            x2!=0
            y!=0

            whileloop Iter&,0,-1

                IC& = &loop
                x2! = sqr(x!) - sqr(y!) + cx!
                y! = 2.0 * x! * y!
                y! = y! + cy!
                x! = x2!

                Si (sqr(x!)+sqr(y!)) > 4.0

                    Pause

                EndIf

            Endwhile

            col&=IC&*ic&*ic&*ic&*ic&
            'col&=RGB( long((float(LX&)/float(width(%hwnd))) )*256, long(float(LX&)/float(width(%hwnd)))*256, IC& | (IC& << 8))
            'col& = RGB(IC&,IC&,IC& | (IC& << 8) ) 'sw
            SetPixel(%hdc,LX&,LY&,col&)

        Endwhile

    Endwhile

    return w&

endproc