Mmove Entity Mouse?

Blitz3D Forums/Blitz3D Programming/Mmove Entity Mouse?

Yue (Posted 2016) [#1]

Thanks to all who help I managed to put buckets and manipulate their properties position by a properties window. Now I would like to know how I can change those data, its position on the scene with a mouse drag. How can I do that? In modeling programs is that if they go difentes vectors of colors and if I drag one entity moves in the direction of the axis both positive and negative. Any suggestions?

Flanker (Posted 2016) [#2]

Create meshes for axis that you position at your entity position and make them pickable. Just a test but there might be more mathematical solution for this : SeedRnd MilliSecs() Graphics3D 800,600,32,2 SetBuffer BackBuffer() camera = CreateCamera() CameraRange camera,0.1,1000 CameraClsColor camera,60,50,50 light = CreateLight() RotateEntity light,70,30,0 For i = 1 To 10 cube = CreateCube() EntityColor cube,Rand(255),Rand(255),Rand(255) PositionEntity cube,Rnd(20)-10,Rnd(20)-10,Rnd(20)-10 EntityPickMode cube,2 Next pivot = CreatePivot() Xaxis = CreateCylinder() ScaleEntity Xaxis,0.05,2,0.05 EntityColor Xaxis,255,0,0 RotateEntity Xaxis,0,0,-90 MoveEntity Xaxis,0,2,0 EntityParent Xaxis,pivot EntityPickMode Xaxis,2 EntityOrder Xaxis,-1 EntityFX Xaxis,1 Yaxis = CreateCylinder() ScaleEntity Yaxis,0.05,2,0.05 EntityColor Yaxis,0,255,0 MoveEntity Yaxis,0,2,0 EntityParent Yaxis,pivot EntityPickMode Yaxis,2 EntityOrder Yaxis,-1 EntityFX Yaxis,1 Zaxis = CreateCylinder() ScaleEntity Zaxis,0.05,2,0.05 EntityColor Zaxis,0,0,255 RotateEntity Zaxis,90,0,0 MoveEntity Zaxis,0,2,0 EntityParent Zaxis,pivot EntityPickMode Zaxis,2 EntityOrder Zaxis,-1 EntityFX Zaxis,1 HideEntity pivot While Not KeyHit(1) If MouseHit(2) temp = MouseXSpeed() temp = MouseYSpeed() temp = MouseZSpeed() mouse_X = MouseX() mouse_Y = MouseY() ElseIf MouseDown(2) msXspd# = MouseXSpeed() msYspd# = MouseYSpeed() camPitch# = camPitch + msYspd/10 camYaw# = camYaw - msXspd/10 If camPitch > 90 Then camPitch = 90 If camPitch < -90 Then camPitch = -90 RotateEntity camera,camPitch,camYaw,0 MoveMouse mouse_X,mouse_Y MoveEntity camera,0,0,MouseZSpeed() FlushMouse() ElseIf MouseHit(1) CameraPick camera,MouseX(),MouseY() If PickedEntity() If PickedEntity() = Xaxis Or PickedEntity() = Yaxis Or PickedEntity() = Zaxis temp = MouseXSpeed() temp = MouseYSpeed() temp = MouseZSpeed() Else ShowEntity pivot PositionEntity pivot,EntityX(PickedEntity()),EntityY(PickedEntity()),EntityZ(PickedEntity()) entity = PickedEntity() EndIf Else HideEntity pivot EndIf ElseIf MouseDown(1) If PickedEntity() = Xaxis distance# = EntityDistance(camera,entity)/450 If EntityZ(camera) < EntityZ(entity) MoveEntity pivot,Float(MouseXSpeed())*distance,0,0 Else MoveEntity pivot,Float(-MouseXSpeed())*distance,0,0 EndIf PositionEntity entity,EntityX(pivot),EntityY(pivot),EntityZ(pivot) ElseIf PickedEntity() = Yaxis distance# = EntityDistance(camera,entity)/450 MoveEntity pivot,0,Float(-MouseYSpeed())*distance,0 PositionEntity entity,EntityX(pivot),EntityY(pivot),EntityZ(pivot) ElseIf PickedEntity() = Zaxis distance# = EntityDistance(camera,entity)/450 If EntityX(camera) < EntityX(entity) MoveEntity pivot,0,0,Float(-MouseXSpeed())*distance Else MoveEntity pivot,0,0,Float(MouseXSpeed())*distance EndIf PositionEntity entity,EntityX(pivot),EntityY(pivot),EntityZ(pivot) EndIf EndIf ScaleEntity pivot,EntityDistance(pivot,camera)/10,EntityDistance(pivot,camera)/10,EntityDistance(pivot,camera)/10 RenderWorld() Text 10,10,"Right mouse for freelook, mousewheel to move camera, left mouse to pick object and drag" Flip Wend End

BlitzSupport (Posted 2016) [#3]

Try this: 2D-to-3D entity positioning (or something)

Yue (Posted 2016) [#4]

@Thanks You Guys.