Mausposition in 3D Raum umberechnen

[autoit]

#include "GlPluginUtils.au3"
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <Misc.au3>
dim $x=0
dim $y=10
dim $z=0
dim $eyex=100
dim $eyey=100
dim $eyez=100
dim $rotation=0
dim $speed=5
dim $pi = 3.14159265358979

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

HotKeySet( "{ESC}", "End" )

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

$WinTitle = "Meine OpenGL Beispiel Box"
$hGUI = GUICreate($WinTitle, 800, 600)
GUISetState(@SW_SHOW)
EmbedGlWindow($hGUI, 818, 640, 0, 0)
SetClearColor( 0.5, 0.5, 0.5 )

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

CreateLight( 0, 300, 300, 300 )
SetLightAmbient( 0, 0.2, 0.2, 0.2 )
SetLightDiffuse( 0, 0.7, 0.7, 0.7 )
SetLightSpecular( 0, 1.0, 1.0, 1.0 )

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

$Cube1 = ObjectCreate( )
AddCube( $Cube1, 60, 60, 60, 1, 0, 0, 1 )

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

$Plane = ObjectCreate( )
AddCube( $Plane, 300, 300, 10, 0,0,1, 1.0 )

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

SetCameraUp( 0, 0, 1 )
SetPrint( $Cube1 )
SetPrint( $Plane )

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$mouse = GUIGetCursorInfo($hGUI)
ObjectTranslate($Cube1, $mouse[0], $mouse[1], 30)
SceneDraw()
_movecam(300)
SetCamera($x + $eyex, $y + $eyey, $z + 400, $x, $y, $z)
If WinActive($WinTitle) Then
If _IsPressed("57") Then _move(-$speed);W
If _IsPressed("53") Then _move($speed);s
If _IsPressed("41") Then $rotation += 2;a
If _IsPressed("44") Then $rotation -= 2;D
If _IsPressed("11") Then $z = -10;Ctrl
EndIf
_CheckExit()
WEnd
Func _move($speedgo)
$movex = -Cos((2 * $pi / 360) * ($rotation + 90)) * $speedgo
$movey = -Sin((2 * $pi / 360) * ($rotation + 90)) * $speedgo
$x += $movex
$y += $movey
EndFunc ;==>_move

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

Func _movecam($distance)
$movex = -Cos((2 * $pi / 360) * ($rotation + 90)) * $distance
$movey = -Sin((2 * $pi / 360) * ($rotation + 90)) * $distance
$eyex = $movex
$eyey = $movey
EndFunc ;==>_movecam

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

Func _CheckExit()
If Not WinExists($WinTitle) Then Exit
EndFunc ;==>_CheckExit

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

Func End()
Exit
EndFunc ;==>End

[/autoit]