WrittenLights-Projekt

[mipez]

Das mit nur 1 For...Next resultiert aus meinem vorherigen Script... kA was mich da geritten hat xD

[| Moep |]

Hier, scannt einen Desktopausschnitt und zeichnet dann 1:1 Pixel für Pixel nach. Zwar irgendwie nicht ganz farbecht, aber egal.

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiConstantsEx.au3>
#include <WinAPI.au3>
#include <GuiImageList.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

_Main()

Func _Main()
	Local $hImage, $hGUI, $hDC, $a, $i, $k
	
	$hGUI = GUICreate("Imagelist: Bilder zeichnen", 100, 100, 100, 100,$WS_POPUP)
	GUISetState(@SW_HIDE)
	MsgBox("", "", "scan start")
	$hImage = _GUIImageList_Create(1, 1, "", "", "")
	For $i = 100 to 200
		For $k = 100 to 200
			_GUIImageList_Add($hImage, _WinAPI_CreateSolidBitmap($hGUI, PixelGetColor($i, $k), 1, 1))
		Next
	Next
	MsgBox("", "", "scan complete")
	
	GUISetState(@SW_SHOW)
	$hDC = _WinAPI_GetDC($hGUI)

	$a = 0
	For $i = 0 to 100 step 1
		For $k = 0 to 100 step 1
			_GUIImageList_Draw($hImage, $a, $hDC, $i, $k)
			$a = $a + 1
		Next
	Next

	_WinAPI_ReleaseDC($hGUI, $hDC)

	Do
	Until GUIGetMsg() = $GUI_EVENT_CLOSE
	GUIDelete()
EndFunc   ;==>_Main

Falls du es vergrößert haben willst, hier is die pixelgröße 2x2.

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiConstantsEx.au3>
#include <WinAPI.au3>
#include <GuiImageList.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

_Main()

Func _Main()
	Local $hImage, $hGUI, $hDC, $a, $i, $k
	
	$hGUI = GUICreate("Imagelist: Bilder zeichnen", 200, 200, 50, 50,$WS_POPUP)
	GUISetState(@SW_HIDE)
	MsgBox("", "", "scan start")
	$hImage = _GUIImageList_Create(2, 2, "", "", "")
	For $i = 100 to 200
		For $k = 100 to 200
			_GUIImageList_Add($hImage, _WinAPI_CreateSolidBitmap($hGUI, PixelGetColor($i, $k), 2, 2))
		Next
	Next
	MsgBox("", "", "scan complete")
	
	GUISetState(@SW_SHOW)
	$hDC = _WinAPI_GetDC($hGUI)

	$a = 0
	For $i = 0 to 200 step 2
		For $k = 0 to 200 step 2
			_GUIImageList_Draw($hImage, $a, $hDC, $i, $k)
			$a = $a + 1
		Next
	Next

	_WinAPI_ReleaseDC($hGUI, $hDC)

	Do
	Until GUIGetMsg() = $GUI_EVENT_CLOSE
	GUIDelete()
EndFunc   ;==>_Main

__________________
Edit:
Lol, hier hab ich noch was gefunden, ist aber diesmal nicht von mir, vielleicht kannsts ja gebrauchen.

#include <WindowsConstants.au3>
#include <WinAPI.au3>
#Include <GDIPlus.au3>

_GDIPlus_Startup ()

$hDC = _WinAPI_GetWindowDC(0)

$hGraphic = _GDIPlus_GraphicsCreateFromHDC($hDC)
$Color = 0xFF000000
$hPen = _GDIPlus_PenCreate($Color,2)


For $y = 0 to 300
    For $x = 0 to @DesktopWidth Step 5
        _GDIPlus_GraphicsDrawLine($hGraphic, @DesktopWidth/2, 0, $x, @DesktopHeight, $hPen)
        $Color += Hex(2)
        _GDIPlus_PenSetColor($hPen, $Color)
    Next
Next
Sleep(5000)

_WinAPI_RedrawWindow(_WinAPI_GetDesktopWindow(), 0, 0, $RDW_INVALIDATE+$RDW_ALLCHILDREN)
_WinAPI_ReleaseDC(0, $hDC)
_GDIPlus_Shutdown()

[mipez]

Mich würde mal interessieren ob man DirectX in AutoIt einbinden kann... zusammen mit den obigen Funktionen könnte man die Geschwindigkeit enorm steigern...
Mal sehen was sich machen lässt, wird ne Weile dauern.

[| Moep |]

Von ner 2d engine like directx hab ich schoma irgendwo was gelesen, qber heut kein bock mehr danach zu suchen.

Btw. Klemmt dein thx button? So nen par usefull post zu deinem problem sind ja schon gekommen...

[mipez]

Originally Posted by | Moep |

Von ner 2d engine like directx hab ich schoma irgendwo was gelesen, qber heut kein bock mehr danach zu suchen.

Btw. Klemmt dein thx button? So nen par usefull post zu deinem problem sind ja schon gekommen...

Muss sich erst noch zeigen wie nützlich ;D
Posts vergammeln ja nich xD

Ich kenn n paar, aber bei denen haberts auch wieder an der Geschwindigkeit...

[| Moep |]

Originally Posted by mipez

Muss sich erst noch zeigen wie nützlich ;D
Posts vergammeln ja nich xD

Ich kenn n paar, aber bei denen haberts auch wieder an der Geschwindigkeit...

pfff, schau dir mal DEINE ersten Versuche an und guck was jetzt durch MEINE Arbeit daraus geworden ist, alleine hättest du das in Monaten nicht geschafft...

[mipez]

Originally Posted by | Moep |

pfff, schau dir mal DEINE ersten Versuche an und guck was jetzt durch MEINE Arbeit daraus geworden ist, alleine hättest du das in Monaten nicht geschafft...

Das Einzige was du speziell dazu beigetragen hast, is die For...Next Schleife bei meinem 2. Script.

Bei deinem Desktop-Script bin ich noch am auseinander klamüsern, deswegen auch: "Muss sich erst noch zeigen wie nützlich"...

Wenn es dir soviel bedeutet, hau ich auf deinen Draw-Funktion-Post n Thanks drauf >_>

[.nAno]

als kleiner Tipp:
Wenn du etwas wie das hier für größere Auflösungen planst bist du bei AutoIT + GUI falsch.
Selbst wenn du die Sache durch einen Algo beschleunigst wird der User sehen können, dass da etwas dargestellt wird. Probiere stattdessen mal AutoIT + GDI, was meiner Meinung nach die beste Grafikimplementierung für AutoIT ist, solange es ums Renderen geht.
Für etwas ganz gescheites solltest du dir aber mal C oder C++ und OpenGL (da anfängerfreundlicher als DirectX) reinziehen. Mit nem gescheiten Algo kannst du damit auf ziemlich gute Darstellungsgeschwindigkeiten kommen

[mipez]

Hm ich versuchs mal über Delphi...

Btw. Moep dein Script hat mir anderweitig geholfen ;D

[| Moep |]

Auch gut. Sprich, was hast du daraus gezaubert?

[mipez]

Originally Posted by | Moep |

Auch gut. Sprich, was hast du daraus gezaubert?

Noch garnichts, aber hat mich auf ne Idee für ein Paint.Net Plugin gebracht xD