Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Prog] Fractale colorié
Auteur Message
Répondre en citant
Message [Prog] Fractale colorié 
Hello,

Je regardais les fractales sur wikipédia et je me suis amuser à en faire en Autoit. Celui là donne assez bien je trouve alors je le poste :
L'affichage est lent mais car je dois afficher pixel par pixel. Il ne nécessite pas d'UDF particulier.

Code:

#include <GUIConstants.au3>

Global $gdi32 = DllOpen("gdi32.dll")
Global $user32 = DllOpen("user32.dll")

Opt("GUIOnEventMode", 1)
$Fractale = GUICreate("Fractale by Sablier94", 500, 500)
Global $Gdi = GetDC($Fractale)
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
GUISetState(@SW_SHOW)
CreerAfficherFractale()

Func CreerAfficherFractale()
   For $x = 0 To 500
      For $y = 0 To 750
         If Random(0,1, 1) = 1 Then
            WritePixel($Gdi,$y-250,$x,0xFFFFFF*$y-$y*$x)
         Else
            WritePixel($Gdi,$y-250,$x,0x000001*($y/3))
         EndIf
      Next
      WinSetTitle ("Fractale by Sablier94" , "", "Fractale by Sablier94 : "&$x/500*100&"%" )
   Next
EndFunc

While 1
    Sleep(1000)
WEnd

Func WritePixel($dc,$x,$y,$color)
    DllCall ($gdi32, "long", "SetPixel", "long", $dc, "long", $x, "long", $y, "long", $color)
EndFunc

Func GetDC($handle)
    $dc = DllCall ($user32, "int", "GetDC", "hwnd", $handle)
    Return $dc[0]
EndFunc

Func Close()
    DllCall ($user32,"int","ReleaseDC","int",$Gdi,"hwnd",$Fractale)
    DllClose($user32)
    DllClose($gdi32)
    Exit
EndFunc




Dernière édition par sablier94 le Lun 15 Aoû 2011 - 13:19; édité 1 fois

______________________________________________________
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Prog] Fractale colorié 
hello!

il ya un truc que je ne comprends pas: la fractale est toujours la même ou non car il y a random dedans...




______________________________________________________
--
> Que pensez vous de l'ajout du repertoire point dans $PATH ?
Ma version de troll 18.0.32 beta 3 vient de me faire un core dump.
-+- SE in Guide du Linuxien Pervers : Bien développer son troll -+-

[Dos9]
Visiter le site web du posteur Skype
Répondre en citant
Message [Prog] Fractale colorié 
Oui c'est toujours la même, j'ai juste mis un random pour le dégradé de couleur (on pourrait l'enlever, mais c'est plus beau avec Very Happy )




______________________________________________________
Message [Prog] Fractale colorié 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch