Trying to make a 3d map editor editor

Blitz3D Forums/Blitz3D Programming/Trying to make a 3d map editor editor

Caton

(Posted March) [#1]

Global LineX,LineY,LineZ,AxlX,AxlY,AxlZ
Const AXLOFFSET# = 5.0
Const MOVE_COEF# = 0.12
Const MOVE_COEF2# = 1.0
Global cam,light,ismoving,selected,mode
AppTitle("3D Map Editor")
Graphics3D 800,600,32,2
SetBuffer BackBuffer()
AntiAlias True
Global CubeMesh=CreateCube()
HideEntity Cube
SetupEditor()
While Not KeyDown( 1 )
Cls
UpdateEditor()
RenderEditor()
Flip
Wend
EndGraphics()
ClearWorld(True,True,True)
End

Function CreateMotherShip(x#,y#,z#)
mms.mapmothership = new mapmothership
mms\mesh=CopyEntity(CubeMesh)
If mms\mesh Then
ScaleEntity mms\mesh,0.5,0.5,0.5
PositionEntity mms\mesh,x#,y#,z#
EntityPickMode mms\mesh,2
EndIf
End Function

Type Mothership
Field mesh,x#,y#,z#
End Type

Function SetupEditor()
CreateMotherShip(0,0,0)
SetupCamera()
CreateAxl()
End Function

Function SetupCamera()
cam=CreateCamera()
PositionEntity cam,0,20,0
RotateEntity cam,90,0,0
End Function

Function SetupLighting()
light=CreateLight()
End Function

Function UpdateEditor()
ControlAxl()
UpdateWorld()
End Function

Function RenderEditor()
RenderWorld()
Text 0,0,"selected:"+selected
End Function

Function CreateAxl()	
	AxlY = CreateCone()
	ScaleEntity AxlY, 0.5, 0.7, 0.5
	EntityColor AxlY, 255,0,0
	EntityPickMode AxlY, 3
	EntityType AxlY, 1
	HideEntity AxlY
	
	LineY = CreateCylinder()
	PositionEntity LineY,0,-2,0
	ScaleEntity LineY, 0.1, 1.5, 0.1
	EntityColor LineY, 255,0,0
	EntityPickMode LineY, 3
	EntityType LineY, 2
	EntityParent LineY,AxlY
		
	AxlX = CreateCone()
	ScaleEntity AxlX, 0.5, 0.7, 0.5
	RotateEntity AxlX,-90,90,0
	EntityColor AxlX, 0,255,0
	EntityPickMode AxlX, 3
	EntityType AxlX, 2
	HideEntity AxlX
	
	LineX = CreateCylinder()
	PositionEntity LineX,-2,0,0
	ScaleEntity LineX, 0.1, 1.5, 0.1
	RotateEntity LineX,90,90,0
	EntityColor LineX, 0,255,0
	EntityPickMode LineX, 3
	EntityType LineX, 2
	EntityParent LineX,AxlX
		
	AxlZ = CreateCone()
	ScaleEntity AxlZ, 0.5, 0.7, 0.5
	EntityColor AxlZ, 0,0,255
	RotateEntity AxlZ,90,180,0
	EntityPickMode AxlZ, 3
	EntityType AxlZ, 3
	HideEntity AxlZ
	
	LineZ = CreateCylinder()
	PositionEntity LineZ,0,0,2
	ScaleEntity LineZ, 0.1, 1.5, 0.1
	RotateEntity LineZ,90,0,0
	EntityColor LineZ, 0,0,255
	EntityPickMode LineZ, 3
	EntityType LineZ, 2
	EntityParent LineZ,AxlZ
	
	ObjBox = CreateCube()
	PositionEntity ObjBox,0,0,5
	ScaleEntity ObjBox,0.7,0.7,0.7
	EntityColor ObjBox,111,55,38
	EntityAlpha ObjBox,0.5
	EntityPickMode ObjBox, 3
	EntityType ObjBox, 2
	EntityParent ObjBox,AxlZ
End Function

Function ControlAxl()
For mms.mapmothership = Each mapmothership
If MouseHit(1) Then If PickedEntity() = mms\mesh Then selected=True
Next
	If MouseDown(1) Then
		If Not ismoving Then
			If CameraPick(cam, MouseX(), MouseY()) Then
				Local e = PickedEntity()
				Local t = GetEntityType(e)
				If t >= 1 And t <= 3 Then
					ismoving = t
					MouseXSpeed()
					MouseYSpeed()
					EndIf
				If e=AxlX Then ismoving=2
				If e=AxlZ Then ismoving=3
		For mms.mapmothership = Each mapmothership
		Select ismoving
			Case 1	
		 If mms\mesh Then MoveEntity mms\mesh, 0, -MouseYSpeed() * MOVE_COEF, 0
			Case 2
		 If mms\mesh Then MoveEntity mms\mesh, MouseXSpeed() * MOVE_COEF , 0, 0
			Case 3
		 If mms\mesh Then MoveEntity mms\mesh, 0, 0, -MouseYSpeed() * MOVE_COEF
		End Select
		Next
	ElseIf ismoving Then
		ismoving = 0
	EndIf
	EndIf
	EndIf

	Select selected
		Case 0
			PositionEntity AxlX,0,0,0
			PositionEntity AxlY,0,0,0
			PositionEntity AxlZ,0,0,0
			HideEntity AxlX
			HideEntity AxlY
			HideEntity AxlZ
		Case 1
			ShowEntity AxlX
			ShowEntity AxlY
			ShowEntity AxlZ
			For mms.mapmothership = Each mapmothership
			If mms\mesh Then PositionEntity AxlX,AXLOFFSET#+EntityX(mms\mesh),EntityY(mms\mesh),EntityZ(mms\mesh)
			If mms\mesh Then PositionEntity AxlY,EntityX(mms\mesh),AXLOFFSET#+EntityY(mms\mesh),EntityZ(mms\mesh)
			If mms\mesh Then PositionEntity AxlZ,EntityX(mms\mesh),EntityY(mms\mesh),-AXLOFFSET#+EntityZ(mms\mesh)
			Next
	End Select
End Function

Matty

(Posted March) [#2]

What a number of editors do - which you may find handy is this:

Have a grid parented to the camera which is perpendicular to the camera viewing angle.

Place the grid a number of units away from the camera and allow it to be semi transparent and adjustable in its depth away from the camera with say the scroll wheel.

When a mesh is selected and you click, do a camera pick against the screen and use the grid to be picked to get the location in space that you wish to place the object.

Hope that is clear.