Particle Demo - Mit freebasic dll und farbverlauf und der QuickDraw lib von Moritz

Alizame

Ich habe die letzten Wochen, wenn ich denn mal programmiert habe ;D, viel an einem particle System gearbeitet.
Anfangs reines AutoIt, doch das wurde mir dann zu langsam, und so habe ich eine freebasic dll mit viel mühe und liebe gemacht (Man muss dazu sagen, dass das eines der ersten freebasic Programme von mir ist und sicherlich auch die dll noch Performance Steigerung bekommt).

Wenn ihr die Zeile 45 (direkt unter "While ...") auskommentiert, sieht es noch geiler aus 8).

Spoiler anzeigen

[autoit]

Global $iWidth = 1200, $iHeight = 600, $hColor = 0x88FFFFFF, $sAdd = "", $iAdd = 1
Global $iParticles = 500, $iMinVelo = -2.5, $iMaxVelo = 2.5, $iMinSize = 2, $iMaxSize = 15, $iFriction = 0.025, $iSmaller = 0.25

[/autoit] [autoit][/autoit] [autoit]

#include "QuickDraw.au3"
#include <Color.au3>
#include <GUIConstantsEx.au3>
#include <Misc.au3>
#include <Array.au3>
#include "Particles.au3"
Opt("MouseCoordMode", 0)

[/autoit] [autoit][/autoit] [autoit]

_QuickDraw_Enable("ParticleDemo using OpenGL(QuickDraw library by Moritz) by Alizame", $iWidth, $iHeight, 20, 60, False)
___DeBug(@error, "Quickdraw startup", @extended)
_QuickDraw_SetRenderTarget($Normal_Buffer)

[/autoit] [autoit][/autoit] [autoit]

;~ _Particles_ReConfig(10000, -2.5, 2.5, 9, 10, 1.25, 0.25)
;Func _Particles_Startup($iParticleCount, $iMinVelo, $iMaxVelo, $iMinSize, $iMaxSize, $iFriction, $iSmaller,$iWidth,$iHeight)
If _Particles_Startup($iParticles, $iMinVelo, $iMaxVelo, $iMinSize, $iMaxSize, $iFriction, $iSmaller,0,0) <> 0 Then Exit

[/autoit] [autoit][/autoit] [autoit]

;~ Dim $aParticle[750][5]
;~ Dim $aAdd[1][2]
;~ $aAdd[0][0] = 0
;~ $aAdd[0][1] = 0
;~ $iAddCount = 0 ;immer + eins wegen 00
;0=xPos
;1=yPos
;2=xVelocity
;3=yVelocity
;;4=StartTime
;;5=EndTime
;4=Radius (0 = False)

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To 18
_Color()
Next

[/autoit] [autoit][/autoit] [autoit]

AdlibRegister("_FPS", 1000)
;~ AdlibRegister("_Color", 250)
;~ AdlibRegister("_Update", 100)
$iFPS = 0

[/autoit] [autoit][/autoit] [autoit]

;~ $hTimer = TimerInit()

[/autoit] [autoit][/autoit] [autoit]

While ( _QuickDraw_Running() And (GUIGetMsg() <> $GUI_EVENT_CLOSE))
_QuickDraw_ClearBuffer(0xFF000000)

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("01") Then
$iMouseX = MouseGetPos(0)-10
$iMouseY = MouseGetPos(1)-10
;~ $Timer = TimerInit()
;~ _AddParticle($iMouseX, $iMouseY)
For $i = 0 To 20
_Particles_Add($iMouseX, $iMouseY)
Next
;~ ToolTip($iMouseX&" "&$iMouseY,0,0)
;~ ToolTip(TimerDiff($Timer),0,0)
EndIf

[/autoit] [autoit][/autoit] [autoit]

;~ _MoveParticle()
_Particles_Move()
For $i = 0 To $iParticles
_QuickDraw_Circle(_Particles_GetX($i), _Particles_GetY($i), _Particles_GetRadius($i), $Draw_Fill, $hColor)
Next
_QuickDraw_SwapBuffers()
Sleep(1)
$iFPS += 1
WEnd

[/autoit] [autoit][/autoit] [autoit]

_QuickDraw_Disable()
_Particles_Shutdown()

[/autoit] [autoit][/autoit] [autoit]

Func _FPS()
ToolTip($iFPS, 0, 0)
$iFPS = 0
;~ _Color()
EndFunc ;==>_FPS

[/autoit] [autoit][/autoit] [autoit]

Func ___DeBug($iError, $sAction, $iExt = 0)
Switch $iError
Case -1
ConsoleWrite(@CRLF & "-" & $sAction & @TAB & "@extended: " & $iExt & @CRLF)
Case 0
ConsoleWrite(@CRLF & "+" & $sAction & " - OK" & @CRLF)
Case Else
ConsoleWrite(@CRLF & "!" & $sAction & " - FAILED" & @TAB & "@error: " & $iError & @TAB & "@extended: " & $iExt & @CRLF)
Exit
EndSwitch
EndFunc ;==>___DeBug

[/autoit] [autoit][/autoit] [autoit]

Func _Color()
$hColor = 0x88000000 + _NewColor()
EndFunc ;==>_Color

[/autoit] [autoit][/autoit] [autoit]

;[user='202743']SEuBo[/user]
Func _NewColor()
Local $iStep = 5
Local Static $aRGB[3] = [255, 45, 45], $iIndex = 0, $fDown = False
If $fDown Then
$aRGB[$iIndex] -= $iStep
If $aRGB[$iIndex] <= 45 Then
$aRGB[$iIndex] = 45
$iIndex = Mod($iIndex + 1, 3)
$fDown = False
EndIf
Else
Local $iHoch = Mod($iIndex + 1, 3)
$aRGB[$iHoch] += $iStep
If $aRGB[$iHoch] >= 255 Then
$aRGB[$iHoch] = 255
$fDown = True
EndIf
EndIf
;~ ConsoleWrite($aRGB[0] & @TAB & $aRGB[1] & @TAB & $aRGB[2] & @TAB & @CRLF)
Return _ColorSetRGB($aRGB)
EndFunc ;==>_NewColor

[/autoit]

Das Ganze drum herum mit der Dll wird vielleicht später noch eine UDF.

H&U : Kann man irgendwie mit freebasic und dllcall machen, dass man ein struct/Array zurück bekommt? Ich denke das wäre nämlich stark Performance steigernd!
PS.: Kritik und Lob ausdrücklich erwünscht!
PSS.: Im Bild mit Zeile 45 auskommentiert.

lg Ali

name22

Kann ich grad nicht ausprobieren, aber zu deiner Frage:
Ich weiß nicht, ob es möglich ist per DLLCall ein Array oder Struct zu empfangen (zumindest wüsste ich nicht wie das geht). Aber du kannst einen Pointer zu einem in AutoIt erstellten Struct an deine DLL übergeben und darin Daten eintragen. Wie das geht kann ich dir aber nicht sagen (zumindest nicht für den DLL Part ^^).

**eukalyptus**

Wie name22 schon sagte:

DllStructCreate und den Pointer übergeben:

Spoiler anzeigen

[autoit]

$hDll = DllOpen(@ScriptDir & "\Test.dll")

[/autoit] [autoit][/autoit] [autoit]

$tTestStruct = DllStructCreate("int iInteger; char sString[64]; float fFloat; double fDouble;")

[/autoit] [autoit][/autoit] [autoit]

DllCall($hDll, "none", "_Test", "ptr", DllStructGetPtr($tTestStruct))
DllClose($hDll)

[/autoit] [autoit][/autoit] [autoit]

ConsoleWrite("! Integer: " & DllStructGetData($tTestStruct, "iInteger") & @CRLF)
ConsoleWrite("! String: " & DllStructGetData($tTestStruct, "sString") & @CRLF)
ConsoleWrite("! Single: " & DllStructGetData($tTestStruct, "fFloat") & @CRLF)
ConsoleWrite("! Double: " & DllStructGetData($tTestStruct, "fDouble") & @CRLF)

[/autoit]

Die Dll sieht dann so aus:

Spoiler anzeigen

Code

Type t_TestStruct
	iInteger As Integer
	sString As ZString * 64
	fFloat As Single
	fDouble As Double
End Type


Extern "Windows-MS"


Sub _Test(ByVal pTest As t_TestStruct Ptr) Export
	pTest->iInteger = 1234
	pTest->sString = "1234"
	pTest->fFloat = 1234.1234
	pTest->fDouble = 1234.1234
End Sub


End Extern

Alles anzeigen

Übrigens: Extern "Windows-MS" erleichtert das Aufrufen der Funktionen sehr.

E

Alizame

Okay dann werde ich das in der nächsten version so benutzen, danke!

Commander21

Sehr schönes Teil
Kann man sicher später noch gebrauchen

Gute Arbeit

letsgo

Ich kann es komischerweisse nicht starten

Spoiler anzeigen

+Quickdraw startup - OK
>> _Particles_Startup
+> ParticleDebug: Startup Successful

Error ARB Extension
+>20:38:01 AutoIT3.exe ended.rc:0
>Exit code: 0 Time: 2.075

Windows 7 64Bit

Alizame

Also ich gebe nirgenswo dieses "Error ARB Extension" aus, muss irgendwie mit AutoIt zutun haben, kann dir aber auch nicht genau helfen.

name22

Das hat, glaube ich, nichts mit AutoIt zu tun... Das hört sich eher nach einem OpenGL Error an, aber wo der herkommt weiß ich leider nicht...

Alizame

Dann kommt das bestimmt von der Dll von Moritz.

Techmix

Ist da irgendein Pixelshader für Notwendig??
Habe zwei XP Maschienen - bei einer läufts und beim anderen passiert gar nichts, nichtmals ne Fehlermeldung ?!

SciTE Output

>"F:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "E:\Downloads\Particles\Particles.au3" /UserParams
+>09:06:26 Starting AutoIt3Wrapper v.2.1.0.8 Environment(Language:0407 Keyboard:00000407 OS:WIN_XP/Service Pack 3 CPU:X64 OS:X86)
>Running AU3Check (1.54.22.0) from:F:\Programme\AutoIt3
+>09:06:26 AU3Check ended.rc:0
>Running: (3.3.8.1):F:\Programme\AutoIt3\autoit3.exe "E:\Downloads\Particles\Particles.au3"
+>09:06:26 AutoIT3.exe ended.rc:0
>Exit code: 0 Time: 1.218

Grüsse!

Alizame

Das kann ich dir leider nicht sagen, da musst du Moritz fragen.