Beiträge von UEZ

;Coded by UEZ build 2026-04-21 beta
;It is important to run AutoIt on the same architecture as SciTE!

#pragma compile(FileVersion, 0.3.1.0)
#pragma compile(ProductVersion, 3.3.18.0)
#pragma compile(LegalCopyright, "UEZ 2026")
#pragma compile(CompanyName, "UEZ Software Development")
#pragma compile(FileDescription, "SciTETabHook - a simple tool to colorize tabs in SciTE.")
#pragma compile(Icon, "shell32dll.0252-32x32.ico")

#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Run_Au3Stripper=y
#Au3Stripper_Parameters=/so /pe ;/rm
#AutoIt3Wrapper_OutFile_X64=SciTETabHook64.exe

#include <Misc.au3>
#include <TrayConstants.au3>
#include <WinAPISysWin.au3>
#include <WinAPIProc.au3>

Global $iPID = ProcessExists(@ScriptName)
If Not _Singleton(@ScriptName, 1) Or ($iPID <> @AutoItPID And $iPID <> 0) Then Exit MsgBox(16, "ERROR", "An occurence of " & @ScriptName & " is already running!", 20)

; Load the appropriate DLL based on AutoIt's architecture
If Not FileExists(@AutoItX64 ? @ScriptDir & "\SciTETabHook_x64.dll" : @ScriptDir & "\SciTETabHook.dll") Then
	If @AutoItX64 Then
		_SciTeTabHook_x64dll(True)
	Else
		_SciTeTabHookdll(True)
	EndIf
EndIf
	
Global $hDLL = DllOpen(@AutoItX64 ? @ScriptDir & "\SciTETabHook_x64.dll" : @ScriptDir & "\SciTETabHook.dll")
If $hDLL < 1 Then Exit MsgBox($MB_ICONERROR, "ERROR", "Unable to load SciTETabHook DLL!", 10)

OnAutoItExitRegister("_CleanupSciTEHook")
AutoItSetOption("TrayMenuMode", 3)
Global Const $idTrayExit = TrayCreateItem("Exit")
Global Const $iTrayAutostart = TrayCreateItem("Autostart")
TraySetState($TRAY_ICONSTATE_SHOW)
If RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Run", "SciTETabHook") = '"' & @ScriptDir & '\SciTETabHook' & (@AutoItX64 ? '64' : '') & '.exe"' Then TrayItemSetState($iTrayAutostart, $TRAY_CHECKED)

; Message constants, matching the FreeBASIC DLL definitions
Global Const $WM_USER_HOOK_INIT 		= $WM_APP + 0x0450
Global Const $WM_USER_SET_COLORS 		= $WM_APP + 0x0451
Global Const $WM_USER_UNHOOK 			= $WM_APP + 0x0452
Global Const $WM_USER_APPLY_DARK		= $WM_APP + 0x0453

Global $bSciTE_Hooked = False, $iPID = 0, $bSciTEIsx86, $sSciTEArch, $sAutoItArch, $iTID, $hSciTE, $hSciTE_Exit, $bCheckAutostart
Global $cActiveTab	  = _RGBtoBGR(0x3030C0)
Global $cInactiveTab  = 0xF0F0F0           
Global $cText 		  = 0x000000           
Global $cTextSel	  = 0xFFFFFF          
Global $cUnsaved 	  = _RGBtoBGR(0xFFC0C0)
Global $cUFrameSel 	  = _RGBtoBGR(0x408040)
Global $cUFrame 	  = 0xE5E5E5

ConsoleWrite("Waiting for SciTE..." & @CRLF)

While True
	; 1. Check Tray Menu
	Switch TrayGetMsg()
		Case $idTrayExit
			ExitLoop
		Case $iTrayAutostart
			$bCheckAutostart = BitAND($TRAY_CHECKED, TrayItemGetState($iTrayAutostart))
			If $bCheckAutostart Then
				TrayItemSetState($iTrayAutostart, $TRAY_UNCHECKED)
				AutoStartReg(False)
			Else
				TrayItemSetState($iTrayAutostart, $TRAY_CHECKED)
				AutoStartReg(True)
			EndIf
	EndSwitch

	; 2. Check if SciTE window exists and verify architecture
	$iPID = WinGetProcess("[CLASS:SciTEWindow]")
	$bSciTEIsx86 = _WinAPI_IsWow64Process($iPID)
	$sSciTEArch = $bSciTEIsx86 ? "x86" : "x64"
	$sAutoItArch = @AutoItX64 ? "x64" : "x86"

	If $sSciTEArch = $sAutoItArch Then
		$hSciTE = WinGetHandle("[CLASS:SciTEWindow]")

		; CASE A: SciTE is present but not yet hooked
		If ($hSciTE <> 0) And (Not $bSciTE_Hooked) Then
			; Give SciTE a brief moment to initialize the tab control internally
			Sleep(100)

			$iTID = _WinAPI_GetWindowThreadProcessId($hSciTE, $iPID)
			DllCall($hDLL, "bool", "InstallHook", "dword", $iTID) 

			; Initialize subclassing within the DLL
			_SendMessage($hSciTE, $WM_USER_HOOK_INIT, 0, 0)

			; Apply desired colors (Standard RGB Hex values converted to BGR)
			_SetSciTeTabColors($hSciTE, $cActiveTab, $cInactiveTab, $cText, $cUnsaved, $cUFrame, $cTextSel, $cUFrameSel)

			$bSciTE_Hooked = True
			ConsoleWrite("SciTE detected and successfully hooked!" & @CRLF)

			; CASE B: SciTE is gone, but our status is still set to "hooked"
		ElseIf $hSciTE = 0 And $bSciTE_Hooked Then
			; Safety first: remove the hook from the system
			DllCall($hDLL, "bool", "UninstallHook")

			$bSciTE_Hooked = False
			ConsoleWrite("SciTE closed. Waiting for restart..." & @CRLF)
		EndIf
	Else
		MsgBox($MB_ICONERROR, "ERROR", "No cross-architecture DLL-loads possible!" & @CRLF & _
				"Script / SciTE architecture must match!" & @CRLF & @CRLF & _
				"SciTE: " & $sSciTEArch & @CRLF & _
				"Script: " & $sAutoItArch, 10)
		Exit
	EndIf

	Sleep(30)
WEnd

; Cleanup when exiting the AutoIt script
Func _CleanupSciTEHook()
	If $bSciTE_Hooked Then
		$hSciTE_Exit = WinGetHandle("[CLASS:SciTEWindow]")
		If $hSciTE_Exit Then
			_SendMessage($hSciTE_Exit, $WM_USER_UNHOOK, 0, 0) ; Remove subclassing
			Sleep(50)
			If $hDLL > 0 Then DllCall($hDLL, "bool", "UninstallHook") ; Remove hook
			Sleep(50)
			; Force SciTE to process the queue (triggers deferred FreeLibrary)
			_SendMessage($hSciTE_Exit, $WM_NULL, 0, 0)
			Sleep(50)
			_SendMessage($hSciTE_Exit, $WM_NULL, 0, 0)
		EndIf
	EndIf
	If $hDLL > 0 Then DllClose($hDLL)
	ConsoleWrite("SciTE hooking terminated." & @CRLF)
	ConsoleWrite("Bye." & @CRLF)
EndFunc

Func AutoStartReg($bSet)
	Switch $bSet
		Case True
			If RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Run", "SciTETabHook", "REG_SZ", '"' & @ScriptDir & '\SciTETabHook' & (@AutoItX64 ? '64' : '') & '.exe"') Then
				MsgBox($MB_ICONINFORMATION, "Information", "Autostart entry properly set to the registry", 10)
			Else
				MsgBox($MB_ICONERROR, "ERROR", "Unable to set autostart entry to the registry!", 30)
			EndIf
		Case Else
			If RegDelete("HKCU\Software\Microsoft\Windows\CurrentVersion\Run", "SciTETabHook") Then
				MsgBox($MB_ICONINFORMATION, "Information", "Autostart entry properly removed from the registry", 10)
			Else
				MsgBox($MB_ICONERROR, "ERROR", "Unable to remove autostart entry from the registry!", 30)
			EndIf
	EndSwitch
EndFunc   ;==>AutoStartReg

Func _SetSciTeTabColors($hSciTE, $iSelColor, $iBgColor, $iTextColor, $iUnsaved, $iFrameColor, $iTextSelColor, $iFrameSelColor)
	_SendMessage($hSciTE, $WM_USER_SET_COLORS, 0, $iSelColor)
	_SendMessage($hSciTE, $WM_USER_SET_COLORS, 1, $iBgColor)
	_SendMessage($hSciTE, $WM_USER_SET_COLORS, 2, $iTextColor)
	_SendMessage($hSciTE, $WM_USER_SET_COLORS, 3, $iUnsaved)
	_SendMessage($hSciTE, $WM_USER_SET_COLORS, 4, $iFrameColor)
	_SendMessage($hSciTE, $WM_USER_SET_COLORS, 5, $iTextSelColor)
	_SendMessage($hSciTE, $WM_USER_SET_COLORS, 6, $iFrameSelColor)
EndFunc   ;==>_SetSciTeTabColors

Func _RGBtoBGR($iColor)
	Return BitOR(BitShift(BitAND($iColor, 0x0000FF), -16), BitAND($iColor, 0x00FF00), BitShift(BitAND($iColor, 0xFF0000), 16))
EndFunc   ;==>_RGBtoBGR

;Code below was generated by: 'File to Base64 String' Code Generator v1.20 Build 2020-06-05

Func _SciTeTabHook_x64dll($bSaveBinary = False, $sSavePath = @ScriptDir)
	Local $SciTeTabHook_x64dll
	$SciTeTabHook_x64dll &= 'GbgATVqQAAMAAACCBAAw//8AALgAOC0BAEAEOBkAgAAMDh8Aug4AtAnNIbgAAUzNIVRoaXMAIHByb2dyYW0AIGNhbm5vdCAAYmUgcnVuIGkAbiBET1MgbW+AZGUuDQ0KJASGAFBFAABkhgUAEPyA52kFV/AALoAiCwICIgAIAAz1AQMCAAMQBAMJBQAXAbctAQAFAiQAAGADzOSL4gAC1wAAIAMXAzUHCBcGDwQFAHjsAkgAAKSDAxxKAARRAADImA8gLnRleHSAA+gHDwRIgXsFbgQAIABQYMAucmRhdGGEWQFtBQF7DIsTQABQQC4oYnNzhuMwld9QwLwuZcMTwj4BC8ETDs0T8DBALmnDCcJGwEjCJvvIUMQJwH9KPwA/AD8APwADPwAhAP/KdU3HBQIKIEmI0IgAxwWk8B/gOIBAIAHiIAGo5eXlIAHkIAH/gIMYxwXeIAEBAMcFzFEgAfDw8CABtqEDwEDAAEiJDc9AAYMAyP/DRTHJTI0ABaEPAAAx0ukA+gYAAEFUV0gAiddWSInOU0wAicNIg+woSIUgyQ+IpQFAA4tAABA9UIQAAHQJBD1RwAB1b+t9g0Q9gAEND4WEAARJIItIGOiq4A9JiYDESIXAD4RvgAIlwAswIFC6/OACSIkgwUiJBWMgBuhWW2ANYAFPYAFCBURBBYkE4UGAEjHSxwUnMQMZ/+hG4ATgAum0iaAMPVKgDg+FGUAFhOmr4AFJi0AIgAcAdAhIg/gBdQ0A6xNJiwCJBeygHgAA62ZAAgJGAqrNQQJTQAIDRgLCQQKqQEACBEYCm0ECLUACqgVAAhxCApBBAhpAAqgGdRQCAnsBAglCAcJ8QAFIiw2VwQBAJIyEgiASwxfokQVCAxJ6QAPoVWAB62mDRD1YgAEAdGDAAmOBIwZ0VEyLBU9gAUpNQBhI4iPoQAMHQaugAkQJRiMCL0EJCmABGMcFDAEJAABIxwWKDUcBCkUBiw0L4QsAg8QoSYnZ'
	$SciTeTabHook_x64dll &= 'ifIAW0mJ+F5fQVwE6T2AB1VIieVBAFdBVkmJzkFVAEFUSYnUugoTIAAAV1ZMxT3k8BBIgeyQIItIx0QEJEgBCkyNfCRIA6EBQYkATYn56KMLwDliNvLCO0wkaDEIwLkK4TGJ2EyJQM9MjawkkKABuiIFQAvzq7lhz0yJAO9MiWwkePOrKEyJ8WAJaCAHAMeUhCRhA/9gAehPYAoQiw0xHSALOfN0EAaLDRpAATHAQWSAfMAWdQfADWAyLiBI/8BIPeEFdeZAMdKAvASPwAcqgA+UwjHA99rgBoAPlcD32IXCwQcUzxyACoKACkyJ+gHAR0mJwEiJRCQoOOgfQQKLIAFMiQjB6FqAAUSLBatTYAWgB3UHYAGbYAG6IYETMcnoS8IH4UiAicJJicfoFYIFCEQkVEFmieGLVGugIsACBsQCTAEC4ALoNv3AruABUIICAAKNUKj/6OloAlRkAtVgAlJIghPoukABTAAryingALoxwiXxoAxFMUDARTH26DQCBcIVAV0L0QKM8ABJicaLUgrxAHTBBRXyG0MMsAaLFeOgAIEBU2EFEeAZWA8QsBxBuP5BECZMicm6+nIATAAkOA8RRCRY6BLs0B5Mi+AATInqM2AD0BkgJXAZ8Sfo+FGwAU2F9oEH8iEFECGxCI1lyFshJUFdAEFeQV9dw4M9onwQBwB0S7Anh2EItbAtP7Atc7AAsS0zUUTF8y1g8ATHBUrhAmMrGkunAEilAKArw8NBElYRKldWUDvsOIGC+pE/dBBJicxQKgBNic2D+g91DxDrIeiBQAVFMe0E6XLAEIP6FA+FSWFCQb2hEeleUAC6GvBRBxJQBxAgqEB0YBFJg+C/QgHRDNKRMkdsJCCQMkG4MFBIADH2MAy7GmEB4ozoA4ERsSPF6NiQAhkTGboEUC1SAcbomoVXAQtTAUiJw+iRUAhI/8vAIUg53n+AFkmJ8EmJ+fQTgntQEEj/xuvl9AAKYKFMtYAHg/pOdCAV'
	$SciTeTabHook_x64dll &= 'TIs1P7AHgfoHoUQgVVAA6zdBgXmAENn9//91ExRBcjSTUuj88h/QCyALCEdgA0AMUAtBuE5hA1xQgz3nGUEZQuEbPehNifADGN9FAyIPcQZYxwW7gQIzGLynALnNpADrsB/0AonQAAawKbTo6cI+xZAaQCPoxiDJ8EM9jWEDdTYhHyAgAmjQAEGJyUiNFSCk+f//uZGI6FTl8QWF8DgFYtABMDsBH7QPtqA7wxFp0AxKcAG1QSQZUQToEDnxCDGlCQPhIYEC/yWmOgAAoJCQ/yWWdACGdACqdnQAZnQAVnQARnQAqjZ0ACZ0ABZ0AAZ0AFT2OXMA5nQA1nQAxlV0AK50AJ50AI50AH5VdABudABedABOdAA+P3MABAB2ffwADwADAFNjAGlUZVRhYkN0/HJs3wEPAA8ADwAPAA8A/w8ADwAPAA8ADwAPAA8ADwD/DwAPAA8ADwAPAA8ADwAPAH8PAA8ADwAPAA8ADwC113hX8L9BTmXXKPAASDAAaGUwAGb010MSAH9wAKMAFgAAmRQAAO5VMADnsACNMAKZMAChVTAArzAAuzAAxzAA1lUwAN5CyAGgxQNgwwUQAAYAB3YnSG9vAGtfeDY0LmRsAGwAQ2FsbFduAGRQcm9jAERsAGxNYWluAERygGF3U2luZ2zRAhAAR2V0lQMASW4Mc3QAAxEEAFJlbQBvdmVTdWJjbI5hgM/gAUIEVW5pSAL/DwAPAA8ADwAPAA8ADwAPAP8PAA8ADwAPAA8ADwAPAAMAqrEIPFAABgBQUwAAoARRAACECJiYAExWTABMEQDMBFzYBA7spQQO/AQOBlIDDhIEDloiBA4uBA4FAD4ED1BVBAdiBAduBAd6BAeKVQQHkgQHpgQHtAQHxlUEB9IEB+IEB/YEBwobAMsBACAEB83HMwRDAHJlYXRlUGVuBAA9hAVTb2xpZCBCcnVzaIAfBEQAZWxldGVPYmoAZWN0AABJBkwAaW5lVG8AAFcQBk1v'
	$SciTeTabHook_x64dll &= 'dkACRXgAkAC8BlNACWN0RQkCxMADdEJrTW9kCGUA68ECVGV4dABDb2xvcgAAH0AAQ2FsbE4ABEgob29rQQ8gQgRXaQBuZG93UHJvYwBBANgARHJhdwEBDUEADQFGaWyUbFLCFQ/AAm5kQwoARXhBAD8BR2VgdERDANbBAYMFTABvbmdQdHJBAMD3AUluZmyAM4IOwAoCSW52YcA1BQQQANkCUsAsYXNlAcAP7QJTZW5kTYBlc3NhZ2VBQK9WA8AszBNYxwRzQy5BwACFA1VuaMACigXgAJoDVXDBGUMFAXcB2wBHREkzMi5kNGxsgAMUwAP1AFVTHEVSBhI/ABYA'
	$SciTeTabHook_x64dll = _WinAPI_Base64Decode($SciTeTabHook_x64dll)
	If @error Then Return SetError(1, 0, 0)
	Local $tSource = DllStructCreate('byte[' & BinaryLen($SciTeTabHook_x64dll) & ']')
	DllStructSetData($tSource, 1, $SciTeTabHook_x64dll)
	Local $tDecompress
	_WinAPI_LZNTDecompress($tSource, $tDecompress, 5120)
	If @error Then Return SetError(3, 0, 0)
	$tSource = 0
	Local Const $bString = Binary(DllStructGetData($tDecompress, 1))
	If $bSaveBinary Then
		Local Const $hFile = FileOpen($sSavePath & "\SciTeTabHook_x64.dll", 18)
		If @error Then Return SetError(2, 0, $bString)
		FileWrite($hFile, $bString)
		FileClose($hFile)
	EndIf
	Return $bString
EndFunc   ;==>_SciTeTabHook_x64dll

Func _SciTeTabHookdll($bSaveBinary = False, $sSavePath = @ScriptDir)
	Local $SciTeTabHookdll
	$SciTeTabHookdll &= 't7cATVqQAAMAAACCBAAw//8AALgAOC0BAEAEOBkAgAAMDh8Aug4AtAnNIbgAAUzNIVRoaXMAIHByb2dyYW0AIGNhbm5vdCAAYmUgcnVuIGkAbiBET1MgbW+AZGUuDQ0KJASGAFBFAABMAQYAEHB652kFV+AADoAjCwECIgAIAAxqCgADAgADEAQDAwAQtwILABcBtwEEvwIAcAMMiA6+AALXAAAgBDcvAAQEPwIGAODoAoAAAIbYgS8VAGAAAKyghRUNAKCAK2SYDy50ZfR4dIFOBwRIgXUGYgMAACAAMGAucmRhXHRhhFkAZYKFDIsTQIAAMEAuYnNzgQWGMAYCkdcwwC5lgyfXgn0B8sETDtATacMJwkYPwDLCJsdfxQnALnJluGxvY8RIwErCExTOCf5CsFA/AD8APwA/AD8AGAAAg3wkCAF1T8cABRgwABCI0IgAAItEJATHBQgBoAFAgEAAxwUEUSAB5eXlIAEQIAH/MWCExwUUIAGBB8cFYgwgAfDw8CABgE4QQP/AwACjIAABgwDI/8IMAIPsDAhqAGigVhBqAP9AdCQc6DcGAA7EAAzCBABXVlOLAHwkEItcJBiFEP8PiHhAeItDCAA9UIQAAHQJPQJRwAB1Zetzgz1iHCEND4VY4AOgCf8wcwzop0AQYAiFwCCJxg+EQOACoyghYARQaH8UwAz8VgDomwUAAFqFwESjJKACD4QfAARQgGr/agBWxwVhCRGAB//okEAEUFBWJOmYQBg9UmAND4US90AB6Y+AAItDBACFwHQHg/gBdUAL6xCLA6PhIuswVYP4AuQBIR7rRRiD+APkAWEh6zWDDPgE5AHhIOslg/gaBeABF+ABISnrFYOY+AZ1oQOhKesHAAFNgSmhIRegDX1SIRRQhOj4YGxRUf81wQIk6LuAAetgJCB0WhFlBVGLFSEbhdJ0AEdRUmr8UOirl+AEwQfEBrTAAVZWhAH+d4AB4x6jNSEHIwHBA8I/CMQM'
	$SciTeTabHookdll &= 'U0AzGFf/NYosIQa1IAZbXl+ANyBVMcBXuYF+VlMIgexMoHqLtCRoAcAAjVQkBInXiwicJGSAAfOrUlaIaAoTQMe0JGzgAQToJSAGhcAPhMwD4C4gBSgxwInXuSegPiAFwAFAuUHGiVQAJDCNbCQkidfA86vHRCQkwbfgAIQ0/wABVVZoBcgJUtZAuIsVQTA7IwJ0CAaLFSEwMcCAfAAEQAB1BoXAdSAK6yxAPYEHdesEMcnAAj8qD5TBEDHA99lkBg+VwHD32IXBQQeBM+BIUgToBeAUicVQUFUAjUQkHFBT6KVBAA1YWlXo5eAAoUdBNgAjxAd1BaGhNlGAUGoBagDo1AAEIlcgB1PooiABiccUWFpiWxRgAAxT6NqWYAJRQQHDAY/AASEBqWBqFEhABn/jARTlAYJv4AFQV1PoV+EAYFUx7ehmAAEgD2pqACAAMYUg0YAAID8NFFdXQAYsoQ7FWFpiUMARU+gWwRUhUFqmWacVQUtWVmAF8OABwUI4jXwkHI3gEEAfQPOlav5q+oABMAhW6JDgA19YaCVRQBlWav+QEFhAA6MjQAHxNe10C+ARU+jCu/AAWlmBxCEgkCFQXcIQAEUpQUUpOKFGKS6D7BBiKRTgAkOvJ6snEMPDVYBAg2TsHAARNIswCTBBOA0wQTxSOVE4D3UO6wgf6ItQOzHb6TlBUUD4FA+Fm+ADuwlhI+km8T1QavBWBOjLkABaqEBZdLAOg+C/wBogAZAgAcJdMA9TV2oPIDEhCILogSlWicPopLEEkMQMicWxFmgEMCdoVuhoMAFqMB0AAQuFAgFXUSxX/zH/ICsECDuQUn8UUIlEACQQV0dVVujbiPz//3ALDOvmcBIIVugzsAJYWumVgZEN+E50Dz2C0UQCLUEHdXHrL4F7AAjZ/f//dRZR2dJI6AzBLmAD1EM4UwpSTlQK60glFjdwGDN0UFWBTcLSEx8VFxVSkFJTV2hhB+sG8gSgUFZV6NwBN8MR'
	$SciTeTabHookdll &= 'BjDEHInYBhzBPgB1I9AakSoQ/zVBW2h3oVCVagToUSADowECyYA8lcCgAw+2ADRAWw1RXQTwOLIB0nQXg+DsGFLoGyII8gSiDAQYw2ACw5D/JfxQUAAQkHAA+HQA9FV0APB0AOx0AOh0AORVdADgdADcdADYdADUVXQA0HQAzHQAyHQAxFV0ALx0ALh0ALR0ALDVdACsdACodACkdAAQm/9xABFusrBzAA8ADwAPAA8A/w8ADwAPAA8ADwAPAA8ADwABBQBTY2lUZVRh4GJDdHJs3wEPAA8A/w8ADwAPAA8ADwAPAA8ADwD/DwAPAA8ADwAPAA8ADwAPAP8PAA8ADwAPAA8ADwAPAA8Aew8Atdd48MBRVaHIMQAodfAASDAAaDAAsEHyvxkQEgAAXHAA9RUAjAA0cL5glwAyFjBGVTAClTAAnTAAqzAAt1UwAMMwANIwANrC5AEFoMEDYMQFAAYABwF2J0hvb2suZGwAbABDYWxsV24IZFBy0MREbGxNAGFpbgBEcmF3IFNpbmdskQIARwRldFUDAEluc3QDAAPRAwBSZW1vdoBlU3ViY2xhQNDj4AFCBFVuaUgCDwAPAP8PAA8ADwAPAA8ADwAPAA8APw8ADwAPAA8ADwAHAIGyCDxQAAYAhFIAAKqgAHhgCJjMAEzECDxBCQAEUQAAEAAGJFUABjQABj4ABkoABlqtAAZmAAYBAHYADogABqqaAAamAAayAAbCAAaqygAG3AAG6gAD/AADqggAZxgAAyoAAz4AAwZUAANlYz0AQ3JlAGF0ZVBlbgBGAYQFU29saWRCcgB1c2gAAEwARABlbGV0ZU9iagBlY3QAAP8ATABpbmVUbwAAAhABTW92gARFeACQADIBU4ASY3SFEgI5gAd0QmtNb2QIZQBdgQVUZXh0AENvbG9yAAAeQABDYWxsTgAISChvb2uBHh+CCFdpAG5kb3dQcm9jAEEA1wBEcmF3AQEaQQAJAUZpbJRsUoIr'
	$SciTeTabHookdll &= 'C4AFbmSDFABFeEEAOAFHZWB0REMAyIEDAwtMAG9uZ0EAAOgBsEluZmwAZgIc9IAGDHZhgGoFCACvAlIRgFhhc2VAD8ECUwBlbmRNZXNzYWRnZcAOGQNALEoTJAVHBHNDLUEAWANVDG5owAKKBQBsA1U+cEEZQwUAWMGP2ABHRIBJMzIuZGxsgAOGFMAD9QBVU0VSBhIfPwA/AD8APwAdABAAAAKswAAJMBcwITAAKzA1MD8wSTAAUjBiMJ8wwzAAyTDZMOswITEAMTFBMVExYTEAbzF4MX0xlDEAoTGpMbMxyzEA2DHjMe0x9zEACjKkMrMy7jIAFDMlM8Mz0zMANjQ+NEg0XjQAaDRyNOs0YDUAkTWZNbA1ujUAxDX3NQc2DDYAGDY0Nkc2WjYAYjZqNnI2ejYAgjaKNpI2mjYAojaqNrI2ujYAwjbKNtI22jYA4jbqNvI2+jbwAjcKN18ZHwAfAB8APx8AHwAfAB8AHwAfAAAA'
	$SciTeTabHookdll = _WinAPI_Base64Decode($SciTeTabHookdll)
	If @error Then Return SetError(1, 0, 0)
	Local $tSource = DllStructCreate('byte[' & BinaryLen($SciTeTabHookdll) & ']')
	DllStructSetData($tSource, 1, $SciTeTabHookdll)
	Local $tDecompress
	_WinAPI_LZNTDecompress($tSource, $tDecompress, 5632)
	If @error Then Return SetError(3, 0, 0)
	$tSource = 0
	Local Const $bString = Binary(DllStructGetData($tDecompress, 1))
	If $bSaveBinary Then
		Local Const $hFile = FileOpen($sSavePath & "\SciTeTabHook.dll", 18)
		If @error Then Return SetError(2, 0, $bString)
		FileWrite($hFile, $bString)
		FileClose($hFile)
	EndIf
	Return $bString
EndFunc   ;==>_SciTeTabHookdll

Func _WinAPI_Base64Decode($sB64String)
	Local $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "ptr", 0, "dword*", 0, "ptr", 0, "ptr", 0)
	If @error Or Not $aCrypt[0] Then Return SetError(1, 0, "")
	Local $bBuffer = DllStructCreate("byte[" & $aCrypt[5] & "]")
	$aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "struct*", $bBuffer, "dword*", $aCrypt[5], "ptr", 0, "ptr", 0)
	If @error Or Not $aCrypt[0] Then Return SetError(2, 0, "")
	Return DllStructGetData($bBuffer, 1)
EndFunc   ;==>_WinAPI_Base64Decode

Func _WinAPI_LZNTDecompress(ByRef $tInput, ByRef $tOutput, $iBufferSize)
	$tOutput = DllStructCreate("byte[" & $iBufferSize & "]")
	If @error Then Return SetError(1, 0, 0)
	Local $aRet = DllCall("ntdll.dll", "uint", "RtlDecompressBuffer", "ushort", 0x0002, "struct*", $tOutput, "ulong", $iBufferSize, "struct*", $tInput, "ulong", DllStructGetSize($tInput), "ulong*", 0)
	If @error Then Return SetError(2, 0, 0)
	If $aRet[0] Then Return SetError(3, $aRet[0], 0)
	Return $aRet[6]
EndFunc   ;==>_WinAPI_LZNTDecompress

#AutoIt3Wrapper_UseX64=y
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include "..\JIT.au3"

AutoItSetOption("GUIOnEventMode", 1)

Global $hCRT = DllCall("kernel32.dll", "handle", "LoadLibraryW", "wstr", "ucrtbase.dll")[0]
Global $pSin = DllCall("kernel32.dll", "ptr", "GetProcAddress", "handle", $hCRT, "str", "sin")[0]
Global $pCos = DllCall("kernel32.dll", "ptr", "GetProcAddress", "handle", $hCRT, "str", "cos")[0]
Global $pPow = DllCall("kernel32.dll", "ptr", "GetProcAddress", "handle", $hCRT, "str", "pow")[0]
If Not $pSin Or Not $pCos Or Not $pPow Then Exit MsgBox(16, "Fehler", "Math-Pointer nicht gefunden!")

Global $sCode = _
'typedef double (*MathFn1)(double);'                                               								& @LF & _
'typedef double (*MathFn2)(double, double);'                                       								& @LF & _
'CALLCONV void RenderDwitter(unsigned int* ptr, int iW, int iH,'                   								& @LF & _
'    MathFn1 fsin, MathFn1 fcos, MathFn2 fpow, double t) {'                      								& @LF & _
'    int i, px, py;'                                                               								& @LF & _
'    double y, k, e, d, q, P;'                                                    								& @LF & _
'    int l = 840, l1 = (l >> 1), l2 = (l >> 2);'                                   								& @LF & _
'    for (i = iW * iH - 1; i--;) ptr[i] = 0xF0202020;'                	     									& @LF & _
'    for (i = 20000; i-- > 0; ) {'                                                 								& @LF & _
'        y = (double)i / l;'                                                       								& @LF & _
'        k = (4.0 + fsin(y * 2.0 - t) * 3.0) * fcos((double)i / 29.0);'		       								& @LF & _
'        e = y / 8.0 - 11.0;'                                                      								& @LF & _
'        d = fpow(k * k + e * e, 0.66);'                                           								& @LF & _
'        q = fsin(k * 2.0) + 0.3 / k + fsin(y / 25.0) * k * (9.0 + 4.0 * fsin(e * 9.0 - d * 3.0 + t * 2.0));' 	& @LF & _
'        P = d - t;'                                                        									& @LF & _
'        px = (int)(q * fsin(P) + d * 39.0 - l1);'		                  										& @LF & _
'        py = (int)(q + 30.0 * fcos(P) + l2);'            														& @LF & _
'        if (px >=0 && px < iW && py >=0 && py <iH)'                        									& @LF & _
'            ptr[py * iW + px] = 0xB0FFFFFF;'                               									& @LF & _
'    }'                                                                     									& @LF & _
'}'

Global $mCode = _JIT_Compile($sCode, (@AutoItX64 ? "-O3 -ffloat-store" : "-Ofast"))
If @error Then Exit MsgBox(16, "Fehler", "Kompilierung fehlgeschlagen")

_GDIPlus_Startup()
Global $iW = 840, $iH = Int($iW * 9 / 16)
Global $pScan0 = DllStructCreate("ulong rgba[" & $iW * $iH & "]")
Global $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH, $GDIP_PXF32ARGB, $iW * 4, $pScan0)

Global $hGUI = GUICreate("JIT Render https://dwitter.net/d/33997", $iW, $iH)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

Global $hGfx = _GDIPlus_GraphicsCreateFromHWND($hGUI)

Global $fT = 0.0, $bExit

Do
    DllCallAddress("none", $mCode.ptr + $mCode.Funcs["RenderDwitter"],  "ptr",    DllStructGetPtr($pScan0), _
																		"int",    $iW, _
																		"int",    $iH, _
																		"ptr",    $pSin, _
																		"ptr",    $pCos, _
																		"ptr",    $pPow, _
																		"double", $fT)
    _GDIPlus_GraphicsDrawImageRect($hGfx, $hBitmap, 0, 0, $iW, $iH)
    $fT += 0.05
	If $bExit Then ExitLoop
Until Not Sleep(10)

_GDIPlus_GraphicsDispose($hGfx)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_Shutdown()
_JIT_Free($mCode)

Func _Exit()
	$bExit = True
EndFunc   ;==>_Exit_About

l = c.width = 840;
for (i = 2e4; i--; )
  	y = i / l,
    k = (4 + S(y * 2 - t) * 3) * C(i / 29),
    e = y / 8 - 11,
    d = (k * k + e * e)**0.66,
    q = S(k * 2) + 0.3 / k + S(y / 25) * k * (9 + 4 * S(e * 9 - d * 3 + t * 2)),
    P = d - t,
    px = q * S(P) + d * 39 - l / 2,
    py = q + 30 * C(P) + l / 4,
    x.fillRect(px, py, 1, 1)

#AutoIt3Wrapper_UseX64=y
#include <GDIPlus.au3>
#include "..\JIT.au3"

Global $sSourceCode = _
' CALLCONV void XorTexture(unsigned int* ptr, int iW, int iH) {					' & @LF & _
'        for (int y = 0; y < iH; y++) {                                         ' & @LF & _
'            unsigned int yy = y * iW;	                                        ' & @LF & _
'            for (int x = 0; x < iW; x++) {                                     ' & @LF & _
'                unsigned int r = ( x       ^ y      ) & 0xFF;                  ' & @LF & _
'                unsigned int g = ((x >> 1) ^ (y >> 1)) & 0xFF;                 ' & @LF & _
'                unsigned int b = ((x * 1)  ^ (y * 3) ) & 0xFF;                 ' & @LF & _
'                ptr[yy + x] 	= (0xFF << 24) | (r << 16) | (g << 8) | b;      ' & @LF & _
'            }                                                                  ' & @LF & _
'        }                                                                      ' & @LF & _
'    }'                                                                          

Global $mCode = _JIT_Compile($sSourceCode, @AutoItX64 ? "-Ofast" : "-O2")
If @error Then Exit MsgBox(16, "Error", "Compilation failed")
ConsoleWrite($mCode.ReusableString & @CRLF)

_GDIPlus_Startup()
Global $iW = Int(@DesktopWidth * 0.85), $iH = Int(@DesktopHeight * 0.85)
Global $pScan0 = DllStructCreate("ulong rgba[" & $iW * $iH & "]")
Global $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH, $GDIP_PXF32ARGB, $iW * 4, $pScan0)

Global $fTimer = TimerInit()
Global $aDll = DllCallAddress("none", $mCode.ptr + $mCode.Funcs["XorTexture"], "ptr", DllStructGetPtr($pScan0), "int", $iW, "int", $iH)
ConsoleWrite("Xor erstellt in " & TimerDiff($fTimer) & " ms." & @CRLF)

Global $hGUI = GUICreate("JIT GDI+ XOR GFX Test", $iW, $iH)
GUISetState()

Global $hGfx = _GDIPlus_GraphicsCreateFromHWND($hGUI)
_GDIPlus_GraphicsDrawImageRect($hGfx, $hBitmap, 0, 0, $iW, $iH)
Do
Until GUIGetMsg() = -3
_GDIPlus_GraphicsDispose($hGfx)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_Shutdown()
_JIT_Free($mCode)

#AutoIt3Wrapper_UseX64=n
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <Math.au3>
#include <GDIPlus.au3> ; Wird benoetigt, um Bilder fuer Texturen zu laden

; --- OPENGL KONSTANTEN ---
Global Const $PFD_DOUBLEBUFFER = 0x00000001
Global Const $PFD_DRAW_TO_WINDOW = 0x00000004
Global Const $PFD_SUPPORT_OPENGL = 0x00000020
Global Const $PFD_TYPE_RGBA = 0
Global Const $PFD_MAIN_PLANE = 0

Global Const $GL_COLOR_BUFFER_BIT = 0x00004000
Global Const $GL_QUADS = 0x0007
Global Const $GL_TRIANGLE_FAN = 0x0006
Global Const $GL_TEXTURE_2D = 0x0DE1
Global Const $GL_TEXTURE_MAG_FILTER = 0x2800
Global Const $GL_TEXTURE_MIN_FILTER = 0x2801
Global Const $GL_LINEAR = 0x2601
Global Const $GL_RGBA = 0x1908
Global Const $GL_UNSIGNED_BYTE = 0x1401
Global Const $GL_MODELVIEW = 0x1700
Global Const $GL_PROJECTION = 0x1701
Global Const $GL_TEXTURE = 0x1702
Global Const $GL_BLEND = 0x0BE2
Global Const $GL_SRC_ALPHA = 0x0302
Global Const $GL_ONE_MINUS_SRC_ALPHA = 0x0303
Global Const $GL_COMPILE = 0x1300
Global Const $GL_POLYGON_SMOOTH = 0x0B42
Global Const $GL_POLYGON_SMOOTH_HINT = 0x0C53
Global Const $GL_NICEST = 0x1102
Global Const $GL_MODELVIEW_MATRIX = 0x0BA6
Global Const $GL_DEPTH_TEST = 0x0B71
Global Const $GL_DEPTH_BUFFER_BIT = 0x00000100
Global Const $GL_TEXTURE_WRAP_S = 0x2802
Global Const $GL_TEXTURE_WRAP_T = 0x2803
Global Const $GL_REPEAT = 0x2901
Global Const $GL_MIRRORED_REPEAT = 0x8370

; --- KONFIGURATION ---
Global $iWidth = 1000
Global $iHeight = 600
Global $fFriction = 0.98
Global $fBallRadius = 18
Global $iBorder = 40
Global $sFolder = @ScriptDir

; Globale Arrays fuer die Kugeln
Global $iMaxBalls = 16
Global $aBalls[$iMaxBalls][8]
Global $aTextures[$iMaxBalls] ; OpenGL Textur-IDs
Global $aBallMatrices[$iMaxBalls] ; Strukturen fuer 4x4 Rotations-Matrizen

; Display Listen (Optimierung: Speichert Zeichenbefehle auf der Grafikkarte)
Global $g_iListTable = 0
Global $g_iListSphere = 0
Global $g_bMSAA = False ; Status fuer Multisampling Anti-Aliasing

; DLL Handles
Global $hOpenGL32 = DllOpen(@ScriptDir & "\opengl32.dll")
Global $hGDI32 = DllOpen("gdi32.dll")
Global $hUser32 = DllOpen("user32.dll")

_Main()

Func _Main()
    _GDIPlus_Startup()

    Local $hGui = GUICreate("AutoIt Billard Simulation (OpenGL)", $iWidth, $iHeight)

    ; --- OPENGL EINRICHTUNG ---
    Local $hDC = _WinAPI_GetDC($hGui)
    Local $hRC = _SetupOpenGL($hGui, $hDC)

    GUISetState(@SW_SHOW)

    ; OpenGL Status initialisieren
    _glEnable($GL_TEXTURE_2D) ; Texturierung aktivieren
    _glEnable($GL_BLEND) ; Transparenz aktivieren
    _glBlendFunc($GL_SRC_ALPHA, $GL_ONE_MINUS_SRC_ALPHA)
    _glEnable($GL_POLYGON_SMOOTH) ; Kantenglättung für Polygone
    _glHint($GL_POLYGON_SMOOTH_HINT, $GL_NICEST) ; Beste Qualität anfordern

    _glClearColor(0.0, 0.25, 0.0, 1.0) ; Dunkelgrüner Hintergrund (Clear Color)

    ; Ansichtsbereich & Orthogonale Projektion (2D-Koordinatensystem für 3D-Welt)
    _glViewport(0, 0, $iWidth, $iHeight)
    _glMatrixMode($GL_PROJECTION)
    _glLoadIdentity()
    ; Wir setzen den Z-Bereich auf -100 bis 100, damit die Kugeln (Radius 18) nicht abgeschnitten werden.
    _glOrtho(0, $iWidth, $iHeight, 0, -100, 100) ; Ursprung oben-links
    _glMatrixMode($GL_MODELVIEW)

    ; Texturen laden
    _LoadBallTextures()

    ; Rotations-Matrizen initialisieren
    _InitBallMatrices()

    ; Display Listen erstellen (Vorkompilierte Geometrie für Performance)
    _InitDisplayLists()

    ; Simulation starten (Kugeln aufbauen)
    _ResetTable()

    Local $hTimer = TimerInit()
    Local $hFpsTimer = TimerInit()
    Local $iFrames = 0
    Local $iFPS = 0
    Local $iIdleCounter = 0

    While 1
        Local $iMsg = GUIGetMsg()
        If $iMsg = $GUI_EVENT_CLOSE Then ExitLoop

        ; Framerate Begrenzung entfernt für maximale Flüssigkeit
        $hTimer = TimerInit()

        ; FPS Berechnung (Anzeige im Fenstertitel)
        $iFrames += 1
        If TimerDiff($hFpsTimer) >= 1000 Then
            $iFPS = $iFrames
            Local $sStatus = " [MSAA: " & ($g_bMSAA ? "An" : "Aus") & " | Smooth: An]"
            WinSetTitle($hGui, "", "AutoIt Billard Simulation (OpenGL)" & $sStatus & " - FPS: " & $iFPS)
            $iFrames = 0
            $hFpsTimer = TimerInit()
        EndIf

        ; --- 1. PHYSIK BERECHNUNG ---
        Local $bMovement = _UpdatePhysics()

        ; --- 1b. 3D ROTATION BERECHNUNG ---
        _UpdateRotations()

        ; --- 2. AUTO-RESET (Wenn alles stillsteht) ---
        If Not $bMovement Then
            $iIdleCounter += 1
            If $iIdleCounter > 120 Then
                _ResetTable()
                $iIdleCounter = 0
            EndIf
        Else
            $iIdleCounter = 0
        EndIf

        ; --- 3. ZEICHNEN (RENDERING) ---
        _Render()
        _SwapBuffers($hDC) ; Puffer tauschen (Double Buffering)
    WEnd

    ; Aufräumen
    _wglMakeCurrent(0, 0)
    _wglDeleteContext($hRC)
    _WinAPI_ReleaseDC($hGui, $hDC)
    DllClose($hOpenGL32)
    DllClose($hGDI32)
    DllClose($hUser32)
    _GDIPlus_Shutdown()
EndFunc

Func _Render()
    ; Bildschirm und Tiefenpuffer loeschen
    _glClear(BitOR($GL_COLOR_BUFFER_BIT, $GL_DEPTH_BUFFER_BIT))
    _glLoadIdentity()

    ; --- TISCH ZEICHNEN (Display List) ---
    ; Wir schalten den Tiefentest fuer den Hintergrund aus,
    ; damit er immer "ganz hinten" ist und nicht mit den Kugeln z-fightet.
    _glDisable($GL_DEPTH_TEST)
    _glDisable($GL_TEXTURE_2D)
    _glCallList($g_iListTable)
    _glEnable($GL_DEPTH_TEST)

    ; --- KUGELN ZEICHNEN ---
    _glEnable($GL_TEXTURE_2D)
    _glColor3f(1.0, 1.0, 1.0) ; Farbe zuruecksetzen (Weiss = Originaltextur)

    For $i = 0 To $iMaxBalls - 1
        If Not $aBalls[$i][5] Then ContinueLoop

        Local $fX = $aBalls[$i][0]
        Local $fY = $aBalls[$i][1]
        Local $iTexID = $aTextures[$i]

        _glPushMatrix()
        ; Kugel an ihre 2D-Position verschieben
        _glTranslatef($fX, $fY, 0.0)

        If $iTexID <> 0 Then
            _glBindTexture($GL_TEXTURE_2D, $iTexID)

            ; 3D ROTATION ANWENDEN
            ; Wir laden die gespeicherte Rotationsmatrix der Kugel.
            ; Diese Matrix enthaelt die akkumulierte Rotation aller vergangenen Frames.
            Local $pMatrix = DllStructGetPtr($aBallMatrices[$i])
            _glMultMatrixf($pMatrix)

            ; Kugel zeichnen (3D Sphaere aus der Display List)
            _glCallList($g_iListSphere)
        Else
            ; Fallback fuer fehlende Textur (Weisse Kugel ohne Bild)
            _glDisable($GL_TEXTURE_2D)
            _glColor3f(1.0, 1.0, 1.0)
            _glCallList($g_iListSphere)
            _glEnable($GL_TEXTURE_2D)
        EndIf

        _glPopMatrix()
    Next
EndFunc

Func _InitDisplayLists()
    ; --- LISTE 1: TISCH ---
    $g_iListTable = _glGenLists(1)
    _glNewList($g_iListTable, $GL_COMPILE)
        _glColor3f(0.545, 0.27, 0.075)
        _DrawRect(0, 0, $iWidth, $iHeight)
        _glColor3f(0.0, 0.39, 0.0)
        _DrawRect($iBorder, $iBorder, $iWidth - 2*$iBorder, $iHeight - 2*$iBorder)
        _glColor3f(0.0, 0.0, 0.0)
        Local $iHoleR = 22
        _DrawCircle($iBorder - $iHoleR, $iBorder - $iHoleR, $iHoleR)
        _DrawCircle($iWidth - $iBorder - $iHoleR, $iBorder - $iHoleR, $iHoleR)
        _DrawCircle($iBorder - $iHoleR, $iHeight - $iBorder - $iHoleR, $iHoleR)
        _DrawCircle($iWidth - $iBorder - $iHoleR, $iHeight - $iBorder - $iHoleR, $iHoleR)
        _DrawCircle($iWidth/2 - $iHoleR, $iBorder - $iHoleR, $iHoleR)
        _DrawCircle($iWidth/2 - $iHoleR, $iHeight - $iBorder - $iHoleR, $iHoleR)
    _glEndList()

    ; --- LISTE 2: KUGEL (3D Sphäre) ---
$g_iListSphere = _glGenLists(1)
_glNewList($g_iListSphere, $GL_COMPILE)
    Local $iStacks = 48
    Local $iSlices = 48
    Local $r = $fBallRadius
    Local $PI = 3.1415926535897932

    For $i = 0 To $iStacks - 1
        Local $lat0 = $PI * (-0.5 + $i / $iStacks)
        Local $z0 = Sin($lat0) * $r
        Local $zr0 = Cos($lat0) * $r

        Local $lat1 = $PI * (-0.5 + ($i + 1) / $iStacks)
        Local $z1 = Sin($lat1) * $r
        Local $zr1 = Cos($lat1) * $r

        ; Zeichne jeden Ring als separate Quads (nicht als Strip)
        For $j = 0 To $iSlices - 1  ; WICHTIG: Bis iSlices-1, nicht iSlices!
            Local $lng0 = 2 * $PI * $j / $iSlices
            Local $lng1 = 2 * $PI * ($j + 1) / $iSlices

            Local $x0 = Cos($lng0)
            Local $y0 = Sin($lng0)
            Local $x1 = Cos($lng1)
            Local $y1 = Sin($lng1)

            Local $s0 = $j / $iSlices
            Local $s1 = ($j + 1) / $iSlices
            Local $t0 = $i / $iStacks
            Local $t1 = ($i + 1) / $iStacks

            ; Zeichne ein Quad (4 Vertices)
            _glBegin($GL_QUADS)
                _glTexCoord2f($s0, $t0)
                _glVertex3f($x0 * $zr0, $y0 * $zr0, $z0)

                _glTexCoord2f($s1, $t0)
                _glVertex3f($x1 * $zr0, $y1 * $zr0, $z0)

                _glTexCoord2f($s1, $t1)
                _glVertex3f($x1 * $zr1, $y1 * $zr1, $z1)

                _glTexCoord2f($s0, $t1)
                _glVertex3f($x0 * $zr1, $y0 * $zr1, $z1)
            _glEnd()
        Next
    Next
_glEndList()
EndFunc

Func _DrawRect($x, $y, $w, $h)
    _glBegin($GL_QUADS)
    _glVertex2f($x, $y)
    _glVertex2f($x + $w, $y)
    _glVertex2f($x + $w, $y + $h)
    _glVertex2f($x, $y + $h)
    _glEnd()
EndFunc

Func _DrawCircle($x, $y, $r)
    Local $iSegments = 32
    _glBegin($GL_TRIANGLE_FAN)
    _glVertex2f($x + $r, $y + $r) ; Center
    For $i = 0 To $iSegments
        Local $fAngle = $i * 2.0 * 3.14159 / $iSegments
        _glVertex2f($x + $r + Cos($fAngle) * $r, $y + $r + Sin($fAngle) * $r)
    Next
    _glEnd()
EndFunc

Func _DrawCircleTextured($x, $y, $r)
    Local $iSegments = 32
    _glBegin($GL_TRIANGLE_FAN)
    _glTexCoord2f(0.5, 0.5)
    _glVertex2f($x + $r, $y + $r) ; Center

    For $i = 0 To $iSegments
        Local $fAngle = $i * 2.0 * 3.14159 / $iSegments
        Local $tx = 0.5 + 0.5 * Cos($fAngle)
        Local $ty = 0.5 + 0.5 * Sin($fAngle)
        _glTexCoord2f($tx, $ty)
        _glVertex2f($x + $r + Cos($fAngle) * $r, $y + $r + Sin($fAngle) * $r)
    Next
    _glEnd()
EndFunc

Func _LoadBallTextures()
    For $i = 0 To 15
        Local $sPath = $sFolder & "\" & $i & ".png"

        If FileExists($sPath) Then
            $aTextures[$i] = _LoadTexture($sPath)
        Else
            $aTextures[$i] = 0
        EndIf
    Next
EndFunc

Func _MakeSeamlessTexture($hBitmap, $iW, $iH)
    ; Erstelle eine Graphics-Oberfläche
    Local $hGraphics = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsSetInterpolationMode($hGraphics, 7)

    ; Kopiere die linken 5% der Textur an den rechten Rand (verwischt)
    Local $iEdgeWidth = Int($iW * 0.05)

    ; Zeichne die linke Kante an die rechte Position (überlappend)
    _GDIPlus_GraphicsDrawImageRectRect($hGraphics, $hBitmap, _
        0, 0, $iEdgeWidth, $iH, _  ; Source: linke Kante
        $iW - $iEdgeWidth, 0, $iEdgeWidth, $iH) ; Dest: rechte Kante

    _GDIPlus_GraphicsDispose($hGraphics)
EndFunc

Func _LoadTexture($sFile)
    Local $hImage = _GDIPlus_ImageLoadFromFile($sFile)
    If $hImage = 0 Then
        Return 0
    EndIf

    Local $iW = _GDIPlus_ImageGetWidth($hImage)
    Local $iH = _GDIPlus_ImageGetHeight($hImage)
    ConsoleWrite("  Original: " & $iW & "x" & $iH & @CRLF)

    Local $iTexW = _NextPowerOfTwo($iW)
    Local $iTexH = _NextPowerOfTwo($iH)

    ; SCHRITT 1: Erstelle temporäre Bitmap in Original-Größe
    Local $hTempBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH, $GDIP_PXF32ARGB)
    Local $hTempGraphics = _GDIPlus_ImageGetGraphicsContext($hTempBitmap)
    _GDIPlus_GraphicsDrawImageRect($hTempGraphics, $hImage, 0, 0, $iW, $iH)
    _GDIPlus_GraphicsDispose($hTempGraphics)
    _GDIPlus_ImageDispose($hImage)

    ; SCHRITT 2: Mache die Textur nahtlos (Wrap die linke Kante zur rechten)
    Local $hGraphics2 = _GDIPlus_ImageGetGraphicsContext($hTempBitmap)
    Local $iWrapWidth = Int($iW * 0.1) ; 10% der Breite

    ; Verwende einen Brush mit Transparenz-Verlauf wäre ideal, aber wir machen es einfacher:
    ; Kopiere die linke Kante zur rechten Seite
    _GDIPlus_GraphicsDrawImageRectRect($hGraphics2, $hTempBitmap, 0, 0, $iWrapWidth, $iH, $iW - $iWrapWidth, 0, $iWrapWidth, $iH)
    _GDIPlus_GraphicsDispose($hGraphics2)

    ; SCHRITT 3: Skaliere auf Zweierpotenz-Größe
    Local $hBitmap = _GDIPlus_BitmapCreateFromScan0($iTexW, $iTexH, $GDIP_PXF32ARGB)
    Local $hGraphics = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsSetInterpolationMode($hGraphics, 7)

    ; Skaliere die jetzt nahtlose Textur
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hTempBitmap, 0, 0, $iTexW, $iTexH)
    _GDIPlus_GraphicsDispose($hGraphics)
    _GDIPlus_ImageDispose($hTempBitmap)

    Local $tBitmapData = _GDIPlus_BitmapLockBits($hBitmap, 0, 0, $iTexW, $iTexH, $GDIP_ILMREAD, $GDIP_PXF32ARGB)
    Local $pScan0 = DllStructGetData($tBitmapData, "Scan0")
    Local $iStride = DllStructGetData($tBitmapData, "Stride")

    Local $iDataSize = Abs($iStride) * $iTexH
    Local $tPixelData = DllStructCreate("byte[" & $iDataSize & "]")
    DllCall("msvcrt.dll", "ptr:cdecl", "memcpy", "ptr", DllStructGetPtr($tPixelData), "ptr", $pScan0, "ulong_ptr", $iDataSize)

    _GDIPlus_BitmapUnlockBits($hBitmap, $tBitmapData)
    _GDIPlus_ImageDispose($hBitmap)

    Local $tTexID = DllStructCreate("uint")
    DllCall($hOpenGL32, "none", "glGenTextures", "int", 1, "struct*", $tTexID)
    Local $iTexID = DllStructGetData($tTexID, 1)

    DllCall($hOpenGL32, "none", "glBindTexture", "uint", $GL_TEXTURE_2D, "uint", $iTexID)
    DllCall($hOpenGL32, "none", "glTexParameteri", "uint", $GL_TEXTURE_2D, "uint", $GL_TEXTURE_WRAP_S, "int", $GL_REPEAT)
    DllCall($hOpenGL32, "none", "glTexParameteri", "uint", $GL_TEXTURE_2D, "uint", $GL_TEXTURE_WRAP_T, "int", $GL_REPEAT)
    DllCall($hOpenGL32, "none", "glTexParameteri", "uint", $GL_TEXTURE_2D, "uint", $GL_TEXTURE_MAG_FILTER, "int", $GL_LINEAR)
    DllCall($hOpenGL32, "none", "glTexParameteri", "uint", $GL_TEXTURE_2D, "uint", $GL_TEXTURE_MIN_FILTER, "int", $GL_LINEAR)

    DllCall($hOpenGL32, "none", "glTexImage2D", "uint", $GL_TEXTURE_2D, "int", 0, "int", 4, "int", $iTexW, "int", $iTexH, "int", 0, "uint", 0x80E1, "uint", $GL_UNSIGNED_BYTE, "ptr", DllStructGetPtr($tPixelData))

    Local $iError = DllCall($hOpenGL32, "uint", "glGetError")[0]
    If $iError <> 0 Then
        ConsoleWrite("  OpenGL ERROR: " & $iError & @CRLF)
        Return 0
    Else
        ConsoleWrite("  Erfolgreich! Textur-ID: " & $iTexID & @CRLF)
    EndIf

    Return $iTexID
EndFunc

Func _NextPowerOfTwo($n)
    Local $power = 1
    While $power < $n
        $power *= 2
    WEnd
    Return $power
EndFunc

; --- OPENGL WRAPPERS ---

Func _SetupOpenGL($hWnd, $hDC)
    ; 1. Versuchen, MSAA (Multisampling Anti-Aliasing) zu aktivieren
    ; Dies sorgt fuer glatte Kanten an den Kugeln.
    Local $iPixelFormat = 0 ;_GetMultisamplePixelFormat()

    If $iPixelFormat <> 0 Then
        $g_bMSAA = True
    EndIf

    Local $tPFD = DllStructCreate("ushort Size;ushort Version;dword Flags;byte PixelType;byte ColorBits;byte RedBits;byte RedShift;byte GreenBits;byte GreenShift;byte BlueBits;byte BlueShift;byte AlphaBits;byte AlphaShift;byte AccumBits;byte AccumRedBits;byte AccumGreenBits;byte AccumBlueBits;byte AccumAlphaBits;byte DepthBits;byte StencilBits;byte AuxBuffers;byte LayerType;byte Reserved;dword LayerMask;dword VisibleMask;dword DamageMask")
    DllStructSetData($tPFD, "Size", DllStructGetSize($tPFD))
    DllStructSetData($tPFD, "Version", 1)
    DllStructSetData($tPFD, "Flags", BitOR($PFD_DRAW_TO_WINDOW, $PFD_SUPPORT_OPENGL, $PFD_DOUBLEBUFFER))
    DllStructSetData($tPFD, "PixelType", $PFD_TYPE_RGBA)
    DllStructSetData($tPFD, "ColorBits", 32)
    DllStructSetData($tPFD, "DepthBits", 24)
    DllStructSetData($tPFD, "LayerType", $PFD_MAIN_PLANE)

    If $iPixelFormat = 0 Then
        ; Fallback auf Standard-Format, falls MSAA nicht verfuegbar ist
        $iPixelFormat = DllCall($hGDI32, "int", "ChoosePixelFormat", "handle", $hDC, "struct*", $tPFD)[0]
    EndIf

    DllCall($hGDI32, "int", "SetPixelFormat", "handle", $hDC, "int", $iPixelFormat, "struct*", $tPFD)

    Local $hRC = DllCall($hOpenGL32, "handle", "wglCreateContext", "handle", $hDC)[0]
    _wglMakeCurrent($hDC, $hRC)

    Return $hRC
EndFunc

Func _GetMultisamplePixelFormat()
    ; Erstellt ein Dummy-Fenster & Kontext, um Zugriff auf erweiterte OpenGL-Funktionen (Extensions) zu erhalten.
    ; Dies ist notwendig, da wglChoosePixelFormatARB eine Extension-Funktion ist.
    Local $hDummyGui = GUICreate("Dummy", 10, 10, -1000, -1000)
    Local $hDummyDC = _WinAPI_GetDC($hDummyGui)

    Local $tPFD = DllStructCreate("ushort Size;ushort Version;dword Flags;byte PixelType;byte ColorBits;byte RedBits;byte RedShift;byte GreenBits;byte GreenShift;byte BlueBits;byte BlueShift;byte AlphaBits;byte AlphaShift;byte AccumBits;byte AccumRedBits;byte AccumGreenBits;byte AccumBlueBits;byte AccumAlphaBits;byte DepthBits;byte StencilBits;byte AuxBuffers;byte LayerType;byte Reserved;dword LayerMask;dword VisibleMask;dword DamageMask")
    DllStructSetData($tPFD, "Size", DllStructGetSize($tPFD))
    DllStructSetData($tPFD, "Version", 1)
    DllStructSetData($tPFD, "Flags", BitOR($PFD_DRAW_TO_WINDOW, $PFD_SUPPORT_OPENGL, $PFD_DOUBLEBUFFER))
    DllStructSetData($tPFD, "PixelType", $PFD_TYPE_RGBA)
    DllStructSetData($tPFD, "ColorBits", 32)
    DllStructSetData($tPFD, "DepthBits", 24)
    DllStructSetData($tPFD, "LayerType", $PFD_MAIN_PLANE)

    Local $iPF = DllCall($hGDI32, "int", "ChoosePixelFormat", "handle", $hDummyDC, "struct*", $tPFD)[0]
    DllCall($hGDI32, "int", "SetPixelFormat", "handle", $hDummyDC, "int", $iPF, "struct*", $tPFD)
    Local $hDummyRC = DllCall($hOpenGL32, "handle", "wglCreateContext", "handle", $hDummyDC)[0]
    _wglMakeCurrent($hDummyDC, $hDummyRC)

    ; Pruefen, ob wglChoosePixelFormatARB verfuegbar ist
    Local $pChoosePixelFormatARB = _wglGetProcAddress("wglChoosePixelFormatARB")

    Local $iRetFormat = 0

    If $pChoosePixelFormatARB Then
        ; Attribute fuer 4x MSAA definieren
        Local $tIntAttribs = DllStructCreate("int[20]")
        Local $pIntAttribs = DllStructGetPtr($tIntAttribs)

        ; Attribute fuellen
        Local $i = 1
        DllStructSetData($tIntAttribs, 1, 0x2001, $i) ; WGL_DRAW_TO_WINDOW_ARB
        DllStructSetData($tIntAttribs, 1, 1, $i+1)      ; GL_TRUE
        $i+=2
        DllStructSetData($tIntAttribs, 1, 0x2010, $i) ; WGL_SUPPORT_OPENGL_ARB
        DllStructSetData($tIntAttribs, 1, 1, $i+1)
        $i+=2
        DllStructSetData($tIntAttribs, 1, 0x2011, $i) ; WGL_DOUBLE_BUFFER_ARB
        DllStructSetData($tIntAttribs, 1, 1, $i+1)
        $i+=2
        DllStructSetData($tIntAttribs, 1, 0x2013, $i) ; WGL_PIXEL_TYPE_ARB
        DllStructSetData($tIntAttribs, 1, 0x202B, $i+1) ; WGL_TYPE_RGBA_ARB
        $i+=2
        DllStructSetData($tIntAttribs, 1, 0x2014, $i) ; WGL_COLOR_BITS_ARB
        DllStructSetData($tIntAttribs, 1, 32, $i+1)
        $i+=2
        DllStructSetData($tIntAttribs, 1, 0x2022, $i) ; WGL_DEPTH_BITS_ARB
        DllStructSetData($tIntAttribs, 1, 24, $i+1)
        $i+=2
        DllStructSetData($tIntAttribs, 1, 0x2041, $i) ; WGL_SAMPLE_BUFFERS_ARB
        DllStructSetData($tIntAttribs, 1, 1, $i+1)
        $i+=2
        DllStructSetData($tIntAttribs, 1, 0x2042, $i) ; WGL_SAMPLES_ARB
        DllStructSetData($tIntAttribs, 1, 4, $i+1)    ; 4x MSAA (4 Samples pro Pixel)
        $i+=2
        DllStructSetData($tIntAttribs, 1, 0, $i)      ; Ende

        Local $tFloatAttribs = DllStructCreate("float[2]") ; Leer
        DllStructSetData($tFloatAttribs, 1, 0, 1)
        DllStructSetData($tFloatAttribs, 1, 0, 2)

        Local $tPixelFormats = DllStructCreate("int[1]")
        Local $tNumFormats = DllStructCreate("uint")

        ; wglChoosePixelFormatARB aufrufen
        Local $aRet = DllCallAddress("int", $pChoosePixelFormatARB, "handle", $hDummyDC, "ptr", $pIntAttribs, "ptr", DllStructGetPtr($tFloatAttribs), "uint", 1, "ptr", DllStructGetPtr($tPixelFormats), "ptr", DllStructGetPtr($tNumFormats))

        If $aRet[0] And DllStructGetData($tNumFormats, 1) > 0 Then
            $iRetFormat = DllStructGetData($tPixelFormats, 1)
        EndIf
    EndIf

    ; Dummy aufraeumen
    _wglMakeCurrent(0, 0)
    _wglDeleteContext($hDummyRC)
    _WinAPI_ReleaseDC($hDummyGui, $hDummyDC)
    GUIDelete($hDummyGui)

    Return $iRetFormat
EndFunc

Func _wglGetProcAddress($proc)
    Local $aRet = DllCall($hOpenGL32, "ptr", "wglGetProcAddress", "str", $proc)
    Return $aRet[0]
EndFunc

Func _wglMakeCurrent($hDC, $hRC)
    DllCall($hOpenGL32, "int", "wglMakeCurrent", "handle", $hDC, "handle", $hRC)
EndFunc

Func _wglDeleteContext($hRC)
    DllCall($hOpenGL32, "int", "wglDeleteContext", "handle", $hRC)
EndFunc

Func _SwapBuffers($hDC)
    DllCall($hGDI32, "int", "SwapBuffers", "handle", $hDC)
EndFunc

Func _glClearColor($r, $g, $b, $a)
    DllCall($hOpenGL32, "none", "glClearColor", "float", $r, "float", $g, "float", $b, "float", $a)
EndFunc

Func _glClear($mask)
    DllCall($hOpenGL32, "none", "glClear", "uint", $mask)
EndFunc

Func _glViewport($x, $y, $w, $h)
    DllCall($hOpenGL32, "none", "glViewport", "int", $x, "int", $y, "int", $w, "int", $h)
EndFunc

Func _glMatrixMode($mode)
    DllCall($hOpenGL32, "none", "glMatrixMode", "uint", $mode)
EndFunc

Func _glLoadIdentity()
    DllCall($hOpenGL32, "none", "glLoadIdentity")
EndFunc

Func _glOrtho($l, $r, $b, $t, $n, $f)
    DllCall($hOpenGL32, "none", "glOrtho", "double", $l, "double", $r, "double", $b, "double", $t, "double", $n, "double", $f)
EndFunc

Func _glEnable($cap)
    DllCall($hOpenGL32, "none", "glEnable", "uint", $cap)
EndFunc

Func _glDisable($cap)
    DllCall($hOpenGL32, "none", "glDisable", "uint", $cap)
EndFunc

Func _glBlendFunc($s, $d)
    DllCall($hOpenGL32, "none", "glBlendFunc", "uint", $s, "uint", $d)
EndFunc

Func _glColor3f($r, $g, $b)
    DllCall($hOpenGL32, "none", "glColor3f", "float", $r, "float", $g, "float", $b)
EndFunc

Func _glBegin($mode)
    DllCall($hOpenGL32, "none", "glBegin", "uint", $mode)
EndFunc

Func _glEnd()
    DllCall($hOpenGL32, "none", "glEnd")
EndFunc

Func _glVertex2f($x, $y)
    DllCall($hOpenGL32, "none", "glVertex2f", "float", $x, "float", $y)
EndFunc

Func _glTexCoord2f($s, $t)
    DllCall($hOpenGL32, "none", "glTexCoord2f", "float", $s, "float", $t)
EndFunc

Func _glGenTextures()
    Local $tTextures = DllStructCreate("uint")
    DllCall($hOpenGL32, "none", "glGenTextures", "int", 1, "struct*", $tTextures)
    Return DllStructGetData($tTextures, 1)
EndFunc

Func _glBindTexture($target, $texture)
    DllCall($hOpenGL32, "none", "glBindTexture", "uint", $target, "uint", $texture)
EndFunc

Func _glTexParameteri($target, $pname, $param)
    DllCall($hOpenGL32, "none", "glTexParameteri", "uint", $target, "uint", $pname, "int", $param)
EndFunc

Func _glTexImage2D($target, $level, $internalformat, $width, $height, $border, $format, $type, $pixels)
    DllCall($hOpenGL32, "none", "glTexImage2D", "uint", $target, "int", $level, "int", $internalformat, "int", $width, "int", $height, "int", $border, "uint", $format, "uint", $type, "ptr", $pixels)
EndFunc

Func _glTranslatef($x, $y, $z)
    DllCall($hOpenGL32, "none", "glTranslatef", "float", $x, "float", $y, "float", $z)
EndFunc

Func _glScalef($x, $y, $z)
    DllCall($hOpenGL32, "none", "glScalef", "float", $x, "float", $y, "float", $z)
EndFunc

Func _glMultMatrixf($m)
    DllCall($hOpenGL32, "none", "glMultMatrixf", "ptr", $m)
EndFunc

Func _glVertex3f($x, $y, $z)
    DllCall($hOpenGL32, "none", "glVertex3f", "float", $x, "float", $y, "float", $z)
EndFunc

Func _glGetFloatv($pname, $params)
    DllCall($hOpenGL32, "none", "glGetFloatv", "uint", $pname, "ptr", $params)
EndFunc

Func _glLoadMatrixf($m)
    DllCall($hOpenGL32, "none", "glLoadMatrixf", "ptr", $m)
EndFunc

Func _glRotatef($angle, $x, $y, $z)
    DllCall($hOpenGL32, "none", "glRotatef", "float", $angle, "float", $x, "float", $y, "float", $z)
EndFunc

Func _glGenLists($range)
    Local $aRet = DllCall($hOpenGL32, "uint", "glGenLists", "int", $range)
    Return $aRet[0]
EndFunc

Func _glNewList($list, $mode)
    DllCall($hOpenGL32, "none", "glNewList", "uint", $list, "uint", $mode)
EndFunc

Func _glEndList()
    DllCall($hOpenGL32, "none", "glEndList")
EndFunc

Func _glCallList($list)
    DllCall($hOpenGL32, "none", "glCallList", "uint", $list)
EndFunc

Func _glPushMatrix()
    DllCall($hOpenGL32, "none", "glPushMatrix")
EndFunc

Func _glPopMatrix()
    DllCall($hOpenGL32, "none", "glPopMatrix")
EndFunc

Func _glHint($target, $mode)
    DllCall($hOpenGL32, "none", "glHint", "uint", $target, "uint", $mode)
EndFunc

; --- PHYSIK  ---
Func _ResetTable()
    $aBalls[0][0] = $iWidth * 0.25
    $aBalls[0][1] = $iHeight / 2
    Local $fChaos = Random(-0.5, 0.5)
    $aBalls[0][2] = 35
    $aBalls[0][3] = $fChaos
    $aBalls[0][5] = True
    $aBalls[0][6] = 0
    $aBalls[0][7] = 0

    Local $fStartX = $iWidth * 0.75
    Local $fStartY = $iHeight / 2
    Local $fD = $fBallRadius * 2 + 1

    Local $iBallIdx = 1
    For $col = 0 To 4
        For $row = 0 To $col
            If $iBallIdx >= $iMaxBalls Then ExitLoop
            Local $fX = $fStartX + ($col * ($fD * 0.866))
            Local $fY = ($fStartY - ($col * $fD / 2)) + ($row * $fD)
            $aBalls[$iBallIdx][0] = $fX
            $aBalls[$iBallIdx][1] = $fY
            $aBalls[$iBallIdx][2] = 0
            $aBalls[$iBallIdx][3] = 0
            $aBalls[$iBallIdx][5] = True
            $aBalls[$iBallIdx][6] = 0
            $aBalls[$iBallIdx][7] = 0
            $iBallIdx += 1
        Next
    Next
EndFunc

Func _InitBallMatrices()
    For $i = 0 To $iMaxBalls - 1
        $aBallMatrices[$i] = DllStructCreate("float[16]")
        ; Identitaetsmatrix setzen (Keine Rotation)
        Local $pMatrix = DllStructGetPtr($aBallMatrices[$i])
        _glLoadIdentity()
        _glGetFloatv($GL_MODELVIEW_MATRIX, $pMatrix)
    Next
EndFunc

Func _UpdateRotations()
    For $i = 0 To $iMaxBalls - 1
        If Not $aBalls[$i][5] Then ContinueLoop

        Local $vx = $aBalls[$i][2]
        Local $vy = $aBalls[$i][3]
        Local $fSpeed = Sqrt($vx*$vx + $vy*$vy)

        If $fSpeed > 0.01 Then
            ; Rotationsachse berechnen:
            ; Die Achse steht senkrecht zur Bewegungsrichtung.
            ; Bei Bewegung (vx, vy) ist die Senkrechte (-vy, vx).
            Local $rx = -$vy
            Local $ry = $vx

            ; Rotationswinkel berechnen:
            ; Winkel = Zurueckgelegter Weg / Radius (in Radiant)
            ; Weg pro Frame entspricht der Geschwindigkeit ($fSpeed).
            ; Umrechnung in Grad: * (180 / PI)
            Local $fAngle = ($fSpeed / $fBallRadius) * (180.0 / 3.1415926)

            ; Matrix Update (Die Magie der 3D-Rotation)
            _glMatrixMode($GL_MODELVIEW)
            _glLoadIdentity()

            ; 1. Neue Rotation anwenden (um die Welt-Achsen)
            ; Wir rotieren zuerst um die berechnete Achse.
            _glRotatef($fAngle, $rx, $ry, 0.0)

            ; 2. Alte Rotation anwenden
            ; Dann multiplizieren wir die bestehende Rotation der Kugel dazu.
            ; Dies akkumuliert die Drehungen korrekt, sodass die Kugel "weiterrollt"
            ; anstatt sich nur lokal zu drehen.
            Local $pMatrix = DllStructGetPtr($aBallMatrices[$i])
            _glMultMatrixf($pMatrix)

            ; 3. Ergebnis speichern
            ; Die kombinierte Matrix wird fuer den naechsten Frame gespeichert.
            _glGetFloatv($GL_MODELVIEW_MATRIX, $pMatrix)
        EndIf
    Next
EndFunc

Func _UpdatePhysics()
    Local $bAnyMovement = False
    Local $fSpeedThreshold = 0.08

    For $i = 0 To $iMaxBalls - 1
        If Not $aBalls[$i][5] Then ContinueLoop
        Local $vx = $aBalls[$i][2]
        Local $vy = $aBalls[$i][3]
        $aBalls[$i][0] += $vx
        $aBalls[$i][1] += $vy
        $vx *= $fFriction
        $vy *= $fFriction
        Local $fSpeed = Sqrt($vx*$vx + $vy*$vy)
        If $fSpeed > $fSpeedThreshold Then
            $bAnyMovement = True
            $aBalls[$i][6] += $vx
            $aBalls[$i][7] += $vy
        Else
            $vx = 0
            $vy = 0
        EndIf
        $aBalls[$i][2] = $vx
        $aBalls[$i][3] = $vy

        If $aBalls[$i][0] - $fBallRadius < $iBorder Then
            $aBalls[$i][0] = $iBorder + $fBallRadius
            $aBalls[$i][2] *= -1
        ElseIf $aBalls[$i][0] + $fBallRadius > $iWidth - $iBorder Then
            $aBalls[$i][0] = $iWidth - $iBorder - $fBallRadius
            $aBalls[$i][2] *= -1
        EndIf
        If $aBalls[$i][1] - $fBallRadius < $iBorder Then
            $aBalls[$i][1] = $iBorder + $fBallRadius
            $aBalls[$i][3] *= -1
        ElseIf $aBalls[$i][1] + $fBallRadius > $iHeight - $iBorder Then
            $aBalls[$i][1] = $iHeight - $iBorder - $fBallRadius
            $aBalls[$i][3] *= -1
        EndIf

        For $j = $i + 1 To $iMaxBalls - 1
             If $aBalls[$j][5] Then _CheckCollision($i, $j)
        Next
    Next
    Return $bAnyMovement
EndFunc

Func _CheckCollision($i1, $i2)
    Local $dx = $aBalls[$i2][0] - $aBalls[$i1][0]
    Local $dy = $aBalls[$i2][1] - $aBalls[$i1][1]
    Local $distSq = $dx*$dx + $dy*$dy
    Local $minDist = $fBallRadius * 2
    If $distSq < ($minDist * $minDist) Then
        Local $dist = Sqrt($distSq)
        If $dist = 0 Then $dist = 0.01
        Local $overlap = ($minDist - $dist) / 2
        Local $nx = $dx / $dist
        Local $ny = $dy / $dist
        $aBalls[$i1][0] -= $nx * $overlap
        $aBalls[$i1][1] -= $ny * $overlap
        $aBalls[$i2][0] += $nx * $overlap
        $aBalls[$i2][1] += $ny * $overlap
        Local $tx = -$ny
        Local $ty = $nx
        Local $dpTan1 = $aBalls[$i1][2] * $tx + $aBalls[$i1][3] * $ty
        Local $dpTan2 = $aBalls[$i2][2] * $tx + $aBalls[$i2][3] * $ty
        Local $dpNorm1 = $aBalls[$i1][2] * $nx + $aBalls[$i1][3] * $ny
        Local $dpNorm2 = $aBalls[$i2][2] * $nx + $aBalls[$i2][3] * $ny
        Local $v1n = $dpNorm2
        Local $v2n = $dpNorm1
        $aBalls[$i1][2] = $tx * $dpTan1 + $nx * $v1n
        $aBalls[$i1][3] = $ty * $dpTan1 + $ny * $v1n
        $aBalls[$i2][2] = $tx * $dpTan2 + $nx * $v2n
        $aBalls[$i2][3] = $ty * $dpTan2 + $ny * $v2n
    EndIf
EndFunc