EXPLORATEUR FRACTALE MANDELBROT HAUTE DEFINITION

'Voir le ZIP, le code est complexe mais commenté au maximum.
'Le module principale : G_Fract.bas
'Le module d'interface image : MatrixBuffer.bas
'Le module de rendu AVI : myAVI.bas
'Le module pour multithreadé le rendu AVI : GF_Thread.bas
'Autres modules importés pour le rendu AVI : mdAVI.bas, CDib.cls


'Algorithme utilisé pour le rendu Mandelbrot. Des variantes optimisés pour les divers rendus sont ailleur dans le code.

Function PurMandelCalc(ByRef ro As Double, ByRef io As Double, ByVal mx_iter As Long) As Long
'boucle de calcul de la suite pur
'ro, io ont les coordonnées de départ
'mx_iter le nombre d'itération maximale de la suite (pour éviter l'overflow)
Dim r As Double, rt As Double, i As Double, r2 As Double, i2 as Double
    
    r = ro
    i = io
    r2 = r * r
    i2 = i * i

    Do

        rt = r2 - i2 + ro
        i = 2 * r * i + io
        r = rt
        r2 = r * r
        i2 = i * i
        
    PurMandelCalc = PurMandelCalc + 1
    Loop While ((r2 + i2 < 4) And (PurMandelCalc < mx_iter)
    
End Function

Télécharger le zip

11 mars 2007 01:25:07 :

Zip débuggé. La capture est moche, faute au Jpeg, pas au programme :)

12 mars 2007 13:27:29 :

Debug de G_Fract.ReScale() et G_Fract.RenderToDisk(), ainsi qu'optimisation de cette dernière (économie d'une boucle imbriqué). Debug de la remarque de Neamar :). Test d'une image 12000x12000 : pas de plantage :D

15 avril 2007 19:31:56 :

- Réécriture de la routine de rendu vidéo AVI : suppression du bug de caméra et de palette, rajout d'une Form pour choisir la résolution. A la place de 4 subs éparpillés, il n'y en a plus qu'un, souple et évolutif. - Révision de l'interface : deux-trois boutons repositionnés. - Application du tweak de Renfield : calcul jusque 8% plus rapide.

15 mai 2007 12:23:02 :

- Revue de l'interface. - Revue du code d'export AVI, la synchro entre threads provoquait une erreur fatale. Une fenêtre spéciale propose les différentes résolutions possibles. - Séparation de la fenêtre de prévisu de la form de contrôle. Pratique pour des démos en bi-écran. - Ajout de la fonction rotation de palette (la fenêtre de prévisu dois avoir le focus). - Ajout de la "Zone ultime noire", souvent utilisé pour représenter le M-Set. - Légère optimisation de la vitesse de calcul pur. Il reste des traces de l'appel d'une DLL externe, avec un code optimisé fpu asm, mais les performances n'étaient pas significative par rapport au vb compilé. - Ajout de tooltiptext sur certains boutons pour aider l'utilisateur. - Revue du code de benchmark. comptez 30 millions d'itérations par seconde sur un cpu intel centrino ou core 2 à 2GHz.

03 juin 2007 00:45:13 :

- Recodage intégrale du rendu Buddhabrot, avec son interface revu. Il est possible de l'explorer : quand vous zoomez dans la fractale normale, les coordonnées du zoom sont conservé pour le rendu buddhabrot. Le rendu "standard" calcule les points aléatoires, le rendu "linéaire" utilise une grille de points défini. Il faut quitter le mode Buddhabrot pour l'exploration... - Ajout du "zoom arrière" : maintenez la touche Ctrl quand vous faite un clique gauche. - Ajout du "palette shifting" : dans la fenêtre de visu, maintenez la barre espace (spacebar) ou retour arrière (backspace) pour décaler l'ordre des couleurs de la palette. - Revu du calcul de la palette de couleur "logarithmique". - Revu de la mesure du benchmark. Si votre PC est trop puissant, le résultat se bloquait à 42 millions, limite dû à l'imprécision de la fonction Timer : bug corrigé.