Pic x,y,z

Übersicht

BlitzBasic

Blitz3D

	Mathias-Kwiatkowski Betreff: Pic x,y,z	Fr, Mai 27, 2011 22:20 Antworten mit Zitat
wie kann ich die koordinaten von der map abfragen? ich habe eine 3DS datei als "land" eingeladen, und möchte wenn ich mit der maus über diese map fahre das er mir die koordinaten ausgibt. wie genau is sowas möglich, ich versuchte es mit CameraPick... code: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics3D 1280,1024,32,1 SetBuffer BackBuffer() camera = CreateCamera() PositionEntity camera, 0, 100,0 EntityType camera , 1 RotateEntity camera, 45, 0, 0 light = CreateLight(1) RotateEntity light, 90, 0, 0 char=CreateCube() PositionEntity char, -5,8,0 EntityType char , 1 EntityPickMode char, 2,1 terrain= LoadMesh("terrain.3ds") PositionEntity terrain, 0, 0, 0 EntityType terrain, 2 grass_tex = LoadTexture("0000.jpg") EntityTexture terrain,grass_tex Collisions 1, 2, 2, 2 For t=0 To 600 MoveEntity char, x#,-.1 , z# Next y=0 While Not KeyHit(1) x=0 z=0 If KeyDown(205) = 1 Then y=y-1 If KeyDown(203) = 1 Then y=y+1 If KeyDown(208) = 1 Then z# = - 1 If KeyDown(200) = 1 Then z# = 1 RotateEntity camera, 0,y,0 MoveEntity camera, 0,0,z RotateEntity camera, 45,y,0 UpdateWorld RenderWorld mx = MouseX() my = MouseY() entity = CameraPick(camera, mx, my) col = CountCollisions(camera ) a=GetKey() If a<>0 Then taste=a For i = 1 To col Text 000, i * 20, "Entity=" + CollisionEntity(camera , i) Text 150, i * 20, "Surface=" + CollisionSurface(camera , i) Text 300, i * 20, "Triangle=" + CollisionTriangle(camera , i) Next Text 0,i * 20,taste Text 0,i * 40,entity Oval mx - 5, my - 5, 5, 5, 1 Flip Wend End

Mathias-Kwiatkowski

Betreff: Pic x,y,z

Fr, Mai 27, 2011 22:20
Antworten mit Zitat

wie kann ich die koordinaten von der map abfragen?
ich habe eine 3DS datei als "land" eingeladen, und möchte wenn ich mit der maus über diese map fahre das er mir die koordinaten ausgibt. wie genau is sowas möglich, ich versuchte es mit CameraPick...

code:
Code: [AUSKLAPPEN]

Graphics3D 1280,1024,32,1
SetBuffer BackBuffer()

camera = CreateCamera()
PositionEntity camera, 0, 100,0
EntityType camera , 1
RotateEntity camera, 45, 0, 0

light = CreateLight(1)
RotateEntity light, 90, 0, 0

char=CreateCube()
PositionEntity char, -5,8,0
EntityType char , 1
EntityPickMode char, 2,1

terrain= LoadMesh("terrain.3ds")
PositionEntity terrain, 0, 0, 0
EntityType terrain, 2

grass_tex = LoadTexture("0000.jpg")
EntityTexture terrain,grass_tex

Collisions 1, 2, 2, 2

For t=0 To 600
MoveEntity char, x#,-.1 , z#
Next

y=0

While Not KeyHit(1)
x=0
z=0

If KeyDown(205) = 1 Then y=y-1
If KeyDown(203) = 1 Then y=y+1

If KeyDown(208) = 1 Then z# = - 1
If KeyDown(200) = 1 Then z# = 1

RotateEntity camera, 0,y,0
MoveEntity camera, 0,0,z
RotateEntity camera, 45,y,0

UpdateWorld
RenderWorld

mx = MouseX()
my = MouseY()
entity = CameraPick(camera, mx, my)

col = CountCollisions(camera )

a=GetKey()
If a<>0 Then taste=a
For i = 1 To col
   Text 000, i * 20, "Entity=" + CollisionEntity(camera , i)
   Text 150, i * 20, "Surface=" + CollisionSurface(camera , i)
   Text 300, i * 20, "Triangle=" + CollisionTriangle(camera , i)
Next
Text 0,i * 20,taste
Text 0,i * 40,entity

Oval mx - 5, my - 5, 5, 5, 1

Flip

Wend
End