3D drehender Würfel, OpenGL

Hi,

ich habe mir heute mal ein OpenGL Plugin für Autoit angeschaut und zu anfang mal einen drehenden Würfel gemacht.

Hoffe ich habe meine Arbeit einigermaßen gut gemacht.

Die benötigten dll's sind im .zip ordner vorhanden und müssten ggf. nur in den Windows Ordner kopiert werden. (Ausser:"Au3GlPlugin.dll" )

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Habe mich grade nochmal ein wenig rangesetzt und noch eine bewegende Kugel hinzugefügt.

Desweiteren haben die Objekte nun auch Texturen ;).

Werde die Tage wohl mal ein größeres Projekt mit diesen Thema anfangen, und dieses natürlich auch hier im Forum vorstellen =).

Hier der Code:

[autoit]

#include "GlPluginUtils.au3"
$x = 40
$y = -50
$z = 5
HotKeySet("{ESC}", "End")

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

;~ Texture
TextureSetBuffer(1)
TextureAdd("Texture", @ScriptDir & "\autoit9.bmp")
TextureSetMode(1)

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

;~ GL GUI
$Title = "Erste GL"
DefineGlWindow($Title, 800, 600)
SetClearColor(0.2, 0.0, 0.0)

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

;~ Licht und Schatten
CreateLight(0, 150, 150, 68)
SetLightAmbient(0, 0.0, 0.1, 0.1)
SetLightDiffuse(0, 0.8, 0.8, 0.8)
SetLightSpecular(0.5, 5.1, 2.0, 1.0)

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

;~ Objekt
$Wurfel = ObjectCreate()
$Cube = AddCube($Wurfel, 60, 60, 60, 0.3, 0.3, 0.2, 1.0)
ObjectTranslate($Wurfel, $x, $y, $z)
ObjectRotate($Wurfel, 0, 0, -23)
$Kugel = ObjectCreate()
$Sphere = AddSphere($Kugel, 10, 60, 80, 40, 20, 20, 0.3, 0.3, 0.2, 1.0)
ObjectTranslate($Kugel, -20, -10, -10)
ObjectRotate($Kugel, 0, 0, +32)

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

;~ Texturieren
TextureBind($Wurfel, $Cube, "Texture")
TextureBind($Kugel, $Sphere, "Texture")

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

;~ Kamera
SetCamera(100, 60, 250, 0, 0, 0)
setPrint($Wurfel)
setPrint($Kugel)
$CheckWindowTimer = TimerInit()
$Y_Axis = 0
$Y_Axis2 = 0
While 1
SceneDraw()
Sleep(15)

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

;~ Rotieren Lassen
ObjectRotate($Wurfel, $Y_Axis, $Y_Axis, 0)
$Y_Axis += 0.8
ObjectRotate($Kugel, $Y_Axis2, $Y_Axis2, 0)
$Y_Axis2 -= 0.8

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

;~ prüft ob GUI offen ist
If TimerDiff($CheckWindowTimer) > 1000 Then
If WinExists($Title) = 0 Then Exit
$CheckWindowTimer = TimerInit()
EndIf
WEnd

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

Func End()
Exit
EndFunc ;==>End

[/autoit]