Hüpfer – Fraktale

; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +

#include <GDIPlus.au3>
#include <GUIConstants.au3>

Opt('GUIOnEventMode', 1)

_GDIPlus_Startup()

; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +

; > Hier kannst du herumspielen!

Global Const $iWidth = 1024
Global Const $iHeight = 768

Global Const $fA = -70
Global Const $fB = 100
Global Const $fC = -100
Global Const $iNum = 100000

Func Term($fA, $fB, $fC, $fX, $fY)
Return $fY - SIGN($fX) * Abs($fB * $fX - $fC) ^ 0.5
EndFunc

; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +

Global Const $fU = $iWidth / 2
Global Const $fV = $iHeight / 2

Global $hGUI, $hGraphics, $i, $fX, $fY, $fX2, $fY2, $iR, $iG, $iB

; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +

$hGUI = GUICreate('Hüpfer [Make-Grafik]', $iWidth, $iHeight)
GUISetOnEvent($GUI_EVENT_CLOSE, GUI_EVENT_CLOSE)
GUISetState()

$hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGUI)
$hBrush = _GDIPlus_BrushCreateSolid(0)

_GDIPlus_GraphicsClear($hGraphics, 0xFF181818)

; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +

For $i = 1 To $iNum
_GDIPlus_GraphicsFillRect($hGraphics, $fU + $fX, $fV + $fY, 1, 1, $hBrush)
$fX2 = Term($fA, $fB, $fC, $fX, $fY)
$fY2 = $fA - $fX
$fX = $fX2
$fY = $fY2
$iR = 0x10000 * Int(Abs($fY) > 0xFF ? 0xFF : Abs($fY))
$iG = 0x100 * Int(Abs($fY2) > 0xFF ? 0xFF : Abs($fY2))
$iB = Int(Abs($fX) > 0xFF ? 0xFF : Abs($fX))
_GDIPlus_BrushSetSolidColor($hBrush, 0x80000000 + $iR + $iG + $iB)
Next

ConsoleWrite('! Finish' & @CRLF)

While Sleep(1000)
WEnd

; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +

Func SIGN($fValue)
Return ($fValue < 0 ? -1 : ($fValue > 0) ? 1 : 0)
EndFunc

Func GUI_EVENT_CLOSE()
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_Shutdown()
Exit
EndFunc

; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +