Is there a 3d objects place editor in our forums

Author

Message

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 5th Mar 2019 22:05

Link

I'm developing a level builder to place 3d objects, I need something basic maybe just an example and since I have lack of time I would like to ask if there is some similar published in our forums to extend.

Will be enough to get the coordinates, but rotation values would be awesine,

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 5th Mar 2019 22:19

Link

A bare bones 3D Placement editor EDITED
Still needs more camera movement commands like rotate around the centre but il update that later

// Project: 3D Placement Editor 
// Created: 2019-02-11

// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant KEY_LEFT         37
#constant KEY_UP           38
#constant KEY_RIGHT        39
#constant KEY_DOWN         40
#constant KEY_W            87
#constant KEY_A            65
#constant KEY_S            83
#constant KEY_Z            90
#constant KEY_L            76
#constant KEY_F1           112
#constant KEY_F2           113

#constant KEY_LESSTHAN 	   188
#constant KEY_GREATERTHAN  190
	
#constant KEY_HOME         36
#constant KEY_PLUS         107
#constant KEY_SUBTRACT     109
#constant KEY_SHIFT        16

type _object
    ID as integer
    imageID as integer
    scale as float
    name as string
    imageName as string
endtype

// set window properties
SetWindowTitle( "3D Placement Editor" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

objects as _object[]
global current as integer
current=-1:saveFlag=0
SetCameraPosition(1,0,10,-20 ) 
do
	if GetRawKeyPressed(KEY_L)
		DeleteAllObjects()
		DeleteAllImages()
		for num = objects.length to 0 step-1
			objects.remove(num)
		next num	
		current=-1:saveFlag=1
		loadObjects(objects)
		Message(left(ret$,len(ret$)-(len(objects[current].name)+1))+" test.data loaded")
	endif
	
    if GetRawKeyPressed(KEY_F1)
		object as _object 
		ret$=ChooseRawFile("*.obj;*.3ds",1)
		if ret$<>""
             object.ID=loadObject("raw:"+ret$)
             count=1
             for num = 1 to len(ret$)
				if Mid(ret$,num,1)="\" then inc count 
			 next num	 
             object.name=GetStringToken( ret$, "\", count )
			 ret$=ChooseRawFile("*.jpg;*.png",1)
		     if ret$<>""
				count=1
				for num = 1 to len(ret$)
					if Mid(ret$,num,1)="\" then inc count 
				next num	 
				object.ImageName=GetStringToken( ret$, "\", count )
				object.imageID=loadImage("raw:"+ret$)
				SetObjectImage(object.ID,object.imageID,0)
			 endif
			 object.scale=1:saveFlag=1
			 objects.insert(object)
			 inc current
        endif
	endif	
	
	if GetRawKeyPressed(KEY_F2) and saveFlag=1
		if current>=0
			saveData(objects,"raw:"+left(ret$,len(ret$)-(len(objects[current].name)+1))+"test.data")
			Message("test.data saved to "+left(ret$,len(ret$)-(len(objects[current].name)+1)))
		endif
	endif
	if current>=0
	Print(left(ret$,len(ret$)-(len(objects[current].name)+1))+"test.data")
	endif
	//camera movement commands
	if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_W) 
		SetCameraPosition(1,getCameraX(1),getCameraY(1)+1,getCameraZ(1))
	elseif GetRawKeyState(KEY_W)
		SetCameraPosition(1,getCameraX(1),getCameraY(1),getCameraZ(1)+1)
	endif
	
	if GetRawKeyState(KEY_A)
		SetCameraPosition(1,getCameraX(1)-1,getCameraY(1),getCameraZ(1))
	endif
	
	if GetRawKeyState(KEY_S)
		SetCameraPosition(1,getCameraX(1)+1,getCameraY(1),getCameraZ(1))
	endif
	
	if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_Z) 
		SetCameraPosition(1,getCameraX(1),getCameraY(1)-1,getCameraZ(1))
	elseif GetRawKeyState(KEY_Z)
		SetCameraPosition(1,getCameraX(1),getCameraY(1),getCameraZ(1)-1)
	endif
	print("cam x="+str(GetCameraX(1)))
	print("cam y="+str(GetCameraY(1)))
	print("cam z="+str(GetCameraZ(1)))
	
	if current>=0
		//object movement commands
		if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_UP) 
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID)+1,getObjectZ(objects[current].ID))
		elseif GetRawKeyState(KEY_UP)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID),getObjectZ(objects[current].ID)+1)
		endif
	
		if GetRawKeyState(KEY_LEFT)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID)-1,getObjectY(objects[current].ID),getObjectZ(objects[current].ID))
		endif
	
		if GetRawKeyState(KEY_RIGHT)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID)+1,getObjectY(objects[current].ID),getObjectZ(objects[current].ID))
		endif
	
		if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_DOWN) 
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID)-1,getObjectZ(objects[current].ID))
		elseif GetRawKeyState(KEY_DOWN)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID),getObjectZ(objects[current].ID)-1)
		endif
		
		if GetRawKeyState(KEY_GREATERTHAN)
			RotateObjectLocalY(objects[current].ID,1)
		endif
		if GetRawKeyState(KEY_LESSTHAN)
			RotateObjectLocalY(objects[current].ID,-1)	
		endif
		
		if GetRawKeyPressed(KEY_PLUS)
			objects[current].scale=objects[current].scale+.1
			SetObjectScale(objects[current].ID,objects[current].scale,objects[current].scale,objects[current].scale)
		endif
		if GetRawKeyPressed(KEY_SUBTRACT)
			objects[current].scale=objects[current].scale-.1
			SetObjectScale(objects[current].ID,objects[current].scale,objects[current].scale,objects[current].scale)
		endif

print("Name ="+(objects[current].name))
		print("Scale ="+str(objects[current].scale))
		print("Angle X#="+str(GetObjectAngleX(objects[current].ID)))
		print("Angle Y#="+str(GetObjectAngleY(objects[current].ID)))
		print("Angle Z#="+str(GetObjectAngleZ(objects[current].ID)))
		print("Pos X#="+str(GetObjectX(objects[current].ID)))
		print("Pos Y#="+str(GetObjectY(objects[current].ID)))
		print("Pos Z#="+str(GetObjectZ(objects[current].ID)))
	endif
    Print( ScreenFPS() )
    Sync()
loop

function saveData(objects as _object[],filename$ as string)
	fw = OpenToWrite(filename$)
	For num=0 to objects.length
		writeline(fw,objects[num].name+" "+objects[num].imageName+" "+str(objects[num].scale)+" "+str(GetObjectAngleX(objects[num].ID))+" "+str(GetObjectAngleY(objects[num].ID))+" "+str(GetObjectAngleZ(objects[num].ID))+" "+str(GetObjectX(objects[num].ID))+" "+str(GetObjectY(objects[num].ID))+" "+str(GetObjectZ(objects[num].ID)))
	next num
	CloseFile ( fw ) 
endfunction

function loadObjects(objects ref as _object[])
	local myObject as _object
	fr=OpenToRead("test.data")
	myString$=ReadLine(fr)
	while FileEOF(fr)=0
		temp$=GetStringToken(myString$," ",1)
		myObject.ID=LoadObject(temp$)
		myObject.name=temp$
		temp$=GetStringToken(myString$," ",2)
		myObject.imageID=LoadImage(temp$)
		myObject.imageName=temp$
		SetObjectImage(myObject.ID,myObject.imageID,0)
		//SetObjectScale(myObject.ID,ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)))
		SetObjectRotation(myObject.ID,ValFloat(GetStringToken(myString$," ",4)),ValFloat(GetStringToken(myString$," ",5)),ValFloat(GetStringToken(myString$," ",6)))
		SetObjectPosition(myObject.ID,ValFloat(GetStringToken(myString$," ",7)),ValFloat(GetStringToken(myString$," ",8)),ValFloat(GetStringToken(myString$," ",9)))
		objects.insert(myObject):inc current
		myString$=ReadLine(fr)
	endwhile
	closefile(fr)
endfunction

+ Code Snippet


// Project: 3D Placement Editor 
// Created: 2019-02-11

// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant KEY_LEFT         37
#constant KEY_UP           38
#constant KEY_RIGHT        39
#constant KEY_DOWN         40
#constant KEY_W            87
#constant KEY_A            65
#constant KEY_S            83
#constant KEY_Z            90
#constant KEY_L            76
#constant KEY_F1           112
#constant KEY_F2           113

#constant KEY_LESSTHAN 	   188
#constant KEY_GREATERTHAN  190
	
#constant KEY_HOME         36
#constant KEY_PLUS         107
#constant KEY_SUBTRACT     109
#constant KEY_SHIFT        16

type _object
    ID as integer
    imageID as integer
    scale as float
    name as string
    imageName as string
endtype

// set window properties
SetWindowTitle( "3D Placement Editor" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

objects as _object[]
global current as integer
current=-1:saveFlag=0
SetCameraPosition(1,0,10,-20 ) 
do
	if GetRawKeyPressed(KEY_L)
		DeleteAllObjects()
		DeleteAllImages()
		for num = objects.length to 0 step-1
			objects.remove(num)
		next num	
		current=-1:saveFlag=1
		loadObjects(objects)
		Message(left(ret$,len(ret$)-(len(objects[current].name)+1))+" test.data loaded")
	endif
	
    if GetRawKeyPressed(KEY_F1)
		object as _object 
		ret$=ChooseRawFile("*.obj;*.3ds",1)
		if ret$<>""
             object.ID=loadObject("raw:"+ret$)
             count=1
             for num = 1 to len(ret$)
				if Mid(ret$,num,1)="\" then inc count 
			 next num	 
             object.name=GetStringToken( ret$, "\", count )
			 ret$=ChooseRawFile("*.jpg;*.png",1)
		     if ret$<>""
				count=1
				for num = 1 to len(ret$)
					if Mid(ret$,num,1)="\" then inc count 
				next num	 
				object.ImageName=GetStringToken( ret$, "\", count )
				object.imageID=loadImage("raw:"+ret$)
				SetObjectImage(object.ID,object.imageID,0)
			 endif
			 object.scale=1:saveFlag=1
			 objects.insert(object)
			 inc current
        endif
	endif	
	
	if GetRawKeyPressed(KEY_F2) and saveFlag=1
		if current>=0
			saveData(objects,"raw:"+left(ret$,len(ret$)-(len(objects[current].name)+1))+"test.data")
			Message("test.data saved to "+left(ret$,len(ret$)-(len(objects[current].name)+1)))
		endif
	endif
	if current>=0
	Print(left(ret$,len(ret$)-(len(objects[current].name)+1))+"test.data")
	endif
	//camera movement commands
	if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_W) 
		SetCameraPosition(1,getCameraX(1),getCameraY(1)+1,getCameraZ(1))
	elseif GetRawKeyState(KEY_W)
		SetCameraPosition(1,getCameraX(1),getCameraY(1),getCameraZ(1)+1)
	endif
	
	if GetRawKeyState(KEY_A)
		SetCameraPosition(1,getCameraX(1)-1,getCameraY(1),getCameraZ(1))
	endif
	
	if GetRawKeyState(KEY_S)
		SetCameraPosition(1,getCameraX(1)+1,getCameraY(1),getCameraZ(1))
	endif
	
	if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_Z) 
		SetCameraPosition(1,getCameraX(1),getCameraY(1)-1,getCameraZ(1))
	elseif GetRawKeyState(KEY_Z)
		SetCameraPosition(1,getCameraX(1),getCameraY(1),getCameraZ(1)-1)
	endif
	print("cam x="+str(GetCameraX(1)))
	print("cam y="+str(GetCameraY(1)))
	print("cam z="+str(GetCameraZ(1)))
	
	if current>=0
		//object movement commands
		if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_UP) 
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID)+1,getObjectZ(objects[current].ID))
		elseif GetRawKeyState(KEY_UP)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID),getObjectZ(objects[current].ID)+1)
		endif
	
		if GetRawKeyState(KEY_LEFT)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID)-1,getObjectY(objects[current].ID),getObjectZ(objects[current].ID))
		endif
	
		if GetRawKeyState(KEY_RIGHT)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID)+1,getObjectY(objects[current].ID),getObjectZ(objects[current].ID))
		endif
	
		if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_DOWN) 
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID)-1,getObjectZ(objects[current].ID))
		elseif GetRawKeyState(KEY_DOWN)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID),getObjectZ(objects[current].ID)-1)
		endif
		
		if GetRawKeyState(KEY_GREATERTHAN)
			RotateObjectLocalY(objects[current].ID,1)
		endif
		if GetRawKeyState(KEY_LESSTHAN)
			RotateObjectLocalY(objects[current].ID,-1)	
		endif
		
		if GetRawKeyPressed(KEY_PLUS)
			objects[current].scale=objects[current].scale+.1
			SetObjectScale(objects[current].ID,objects[current].scale,objects[current].scale,objects[current].scale)
		endif
		if GetRawKeyPressed(KEY_SUBTRACT)
			objects[current].scale=objects[current].scale-.1
			SetObjectScale(objects[current].ID,objects[current].scale,objects[current].scale,objects[current].scale)
		endif

		
		print("Name ="+(objects[current].name))
		print("Scale ="+str(objects[current].scale))
		print("Angle X#="+str(GetObjectAngleX(objects[current].ID)))
		print("Angle Y#="+str(GetObjectAngleY(objects[current].ID)))
		print("Angle Z#="+str(GetObjectAngleZ(objects[current].ID)))
		print("Pos X#="+str(GetObjectX(objects[current].ID)))
		print("Pos Y#="+str(GetObjectY(objects[current].ID)))
		print("Pos Z#="+str(GetObjectZ(objects[current].ID)))
	endif
    Print( ScreenFPS() )
    Sync()
loop

function saveData(objects as _object[],filename$ as string)
	fw = OpenToWrite(filename$)
	For num=0 to objects.length
		writeline(fw,objects[num].name+" "+objects[num].imageName+" "+str(objects[num].scale)+" "+str(GetObjectAngleX(objects[num].ID))+" "+str(GetObjectAngleY(objects[num].ID))+" "+str(GetObjectAngleZ(objects[num].ID))+" "+str(GetObjectX(objects[num].ID))+" "+str(GetObjectY(objects[num].ID))+" "+str(GetObjectZ(objects[num].ID)))
	next num
	CloseFile ( fw ) 
endfunction	

function loadObjects(objects ref as _object[])
	local myObject as _object
	fr=OpenToRead("test.data")
	myString$=ReadLine(fr)
	while FileEOF(fr)=0
		temp$=GetStringToken(myString$," ",1)
		myObject.ID=LoadObject(temp$)
		myObject.name=temp$
		temp$=GetStringToken(myString$," ",2)
		myObject.imageID=LoadImage(temp$)
		myObject.imageName=temp$
		SetObjectImage(myObject.ID,myObject.imageID,0)
		//SetObjectScale(myObject.ID,ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)))
		SetObjectRotation(myObject.ID,ValFloat(GetStringToken(myString$," ",4)),ValFloat(GetStringToken(myString$," ",5)),ValFloat(GetStringToken(myString$," ",6)))
		SetObjectPosition(myObject.ID,ValFloat(GetStringToken(myString$," ",7)),ValFloat(GetStringToken(myString$," ",8)),ValFloat(GetStringToken(myString$," ",9)))
		objects.insert(myObject):inc current
		myString$=ReadLine(fr)
	endwhile
	closefile(fr)
endfunction

Keys
F1 load an object and then an image to assign to it
f2 save test.data
L to delete all and load objects as set in test.data
<, > rotate object
+,- scale object
w,a,s,d,shift move camera
arrow keys ,shift move current object

Function
creates a test.data file that can be later used in your program that can load a series of objects
saving there name, scale, xangle, yangle, zangle, xpos ypos, and zpos

Note: It will save the file test.data in the same directory as the last object loaded

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 5th Mar 2019 22:20

Link

to load the objects

+ Code Snippet

function loadObjects(objects ref as _object[])
	local myObject as _object
	fr=OpenToRead("test.data")
	myString$=ReadLine(fr)
	while FileEOF(fr)=0
		temp$=GetStringToken(myString$," ",1)
		myObject.ID=LoadObject(temp$)
		myObject.name=temp$
		temp$=GetStringToken(myString$," ",2)
		myObject.imageID=LoadImage(temp$)
		myObject.imageName=temp$
		SetObjectImage(myObject.ID,myObject.imageID,0)
		//SetObjectScale(myObject.ID,ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)))
		SetObjectRotation(myObject.ID,ValFloat(GetStringToken(myString$," ",4)),ValFloat(GetStringToken(myString$," ",5)),ValFloat(GetStringToken(myString$," ",6)))
		SetObjectPosition(myObject.ID,ValFloat(GetStringToken(myString$," ",7)),ValFloat(GetStringToken(myString$," ",8)),ValFloat(GetStringToken(myString$," ",9)))
		objects.insert(myObject):inc current
		myString$=ReadLine(fr)
	endwhile
	closefile(fr)
endfunction

fubar

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 6th Mar 2019 09:32

Link

Hi fubarpk!, sounds like what I was looking for, I'll give a try asap and post some feedback

Really thanks !!

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 6th Mar 2019 12:34

Link

Awesome, it will be useful for me! thanks again

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 6th Mar 2019 12:38

Link

Your Welcome

fubar

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 6th Mar 2019 13:08

Link

I would like to extend this code, credits are going to you.

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 6th Mar 2019 21:40 Edited at: 8th Mar 2019 01:13

Link

A bare bones 3D Placement editor EDITED

// Project: 3D Placement Editor 
// Created: 2019-02-11

// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant KEY_LEFT         37
#constant KEY_UP           38
#constant KEY_RIGHT        39
#constant KEY_DOWN         40
#constant KEY_W            87
#constant KEY_A            65
#constant KEY_S            83
#constant KEY_Z            90
#constant KEY_L            76
#constant KEY_F1           112
#constant KEY_F2           113

#constant KEY_LESSTHAN 	   188
#constant KEY_GREATERTHAN  190
	
#constant KEY_HOME         36
#constant KEY_PLUS         107
#constant KEY_SUBTRACT     109
#constant KEY_SHIFT        16

type _object
    ID as integer
    imageID as integer
    scale as float
    name as string
    imageName as string
endtype

type point
	x	as float
	y	as float
	z	as float
endtype

type camera
	dolly	as integer
	camera	as integer
	last	as point
	angle	as point
endtype

camera 		as camera

// set window properties
SetWindowTitle( "3D Placement Editor" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

camera.dolly = CreateObjectBox(1, 1, 1)
SetObjectVisible(camera.dolly, 0)
camera.camera = CreateObjectBox(1, 1, 1)
SetObjectVisible(camera.camera, 0)
camera.angle.x = 0

FixObjectToObject(camera.camera, camera.dolly)
MoveObjectLocalZ(camera.camera, -20)
RotateObjectLocalX(camera.dolly, camera.angle.x)

objects as _object[]
global current as integer
current=-1:saveFlag=0
SetCameraPosition(1,0,10,-20 ) 
do
	if GetRawKeyPressed(KEY_L)
		DeleteAllObjects()
		DeleteAllImages()
		for num = objects.length to 0 step-1
			objects.remove(num)
		next num	
		current=-1:saveFlag=1
		loadObjects(objects)
		Message(left(ret$,len(ret$)-(len(objects[current].name)+1))+" test.data loaded")
	endif
	
    if GetRawKeyPressed(KEY_F1)
		object as _object 
		ret$=ChooseRawFile("*.obj;*.3ds",1)
		if ret$<>""
             object.ID=loadObject("raw:"+ret$)
             count=1
             for num = 1 to len(ret$)
				if Mid(ret$,num,1)="\" then inc count 
			 next num	 
             object.name=GetStringToken( ret$, "\", count )
			 ret$=ChooseRawFile("*.jpg;*.png",1)
		     if ret$<>""
				count=1
				for num = 1 to len(ret$)
					if Mid(ret$,num,1)="\" then inc count 
				next num	 
				object.ImageName=GetStringToken( ret$, "\", count )
				object.imageID=loadImage("raw:"+ret$)
				SetObjectImage(object.ID,object.imageID,0)
			 endif
			 object.scale=1:saveFlag=1
			 objects.insert(object)
			 inc current
        endif
	endif	
	
	if GetRawKeyPressed(KEY_F2) and saveFlag=1
		if current>=0
			saveData(objects,"raw:"+left(ret$,len(ret$)-(len(objects[current].name)+1))+"test.data")
			Message("test.data saved to "+left(ret$,len(ret$)-(len(objects[current].name)+1)))
		endif
	endif
	if current>=0
	Print(left(ret$,len(ret$)-(len(objects[current].name)+1))+"test.data")
	endif
	//camera movement commands
	if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_W) 
		MoveObjectLocalY(camera.camera,1)
		//SetCameraPosition(1,getCameraX(1),getCameraY(1)+1,getCameraZ(1))
	elseif GetRawKeyState(KEY_W)
		MoveObjectLocalZ(camera.camera,1)
		//SetCameraPosition(1,getCameraX(1),getCameraY(1),getCameraZ(1)+1)
	endif
	
	if GetRawKeyState(KEY_A)
		MoveObjectLocalX(camera.camera,-1)
		//SetCameraPosition(1,getCameraX(1)-1,getCameraY(1),getCameraZ(1))
	endif
	
	if GetRawKeyState(KEY_S)
		MoveObjectLocalX(camera.camera,1)
		//SetCameraPosition(1,getCameraX(1)+1,getCameraY(1),getCameraZ(1))
	endif
	
	if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_Z) 
		MoveObjectLocalY(camera.camera,-1)
		//SetCameraPosition(1,getCameraX(1),getCameraY(1)-1,getCameraZ(1))
	elseif GetRawKeyState(KEY_Z)
		MoveObjectLocalZ(camera.camera, -1)
		//SetCameraPosition(1,getCameraX(1),getCameraY(1),getCameraZ(1)-1)
	endif

if current>=0
		//object movement commands
		if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_UP) 
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID)+1,getObjectZ(objects[current].ID))
		elseif GetRawKeyState(KEY_UP)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID),getObjectZ(objects[current].ID)+1)
		endif
	
		if GetRawKeyState(KEY_LEFT)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID)-1,getObjectY(objects[current].ID),getObjectZ(objects[current].ID))
		endif
	
		if GetRawKeyState(KEY_RIGHT)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID)+1,getObjectY(objects[current].ID),getObjectZ(objects[current].ID))
		endif
	
		if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_DOWN) 
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID)-1,getObjectZ(objects[current].ID))
		elseif GetRawKeyState(KEY_DOWN)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID),getObjectZ(objects[current].ID)-1)
		endif
		
		if GetRawKeyState(KEY_GREATERTHAN)
			RotateObjectLocalY(objects[current].ID,1)
		endif
		if GetRawKeyState(KEY_LESSTHAN)
			RotateObjectLocalY(objects[current].ID,-1)	
		endif
		
		if GetRawKeyPressed(KEY_PLUS)
			objects[current].scale=objects[current].scale+.1
			SetObjectScale(objects[current].ID,objects[current].scale,objects[current].scale,objects[current].scale)
		endif
		if GetRawKeyPressed(KEY_SUBTRACT)
			objects[current].scale=objects[current].scale-.1
			SetObjectScale(objects[current].ID,objects[current].scale,objects[current].scale,objects[current].scale)
		endif

print("Name ="+(objects[current].name))
		print("Scale ="+str(objects[current].scale))
		print("Angle X#="+str(GetObjectAngleX(objects[current].ID)))
		print("Angle Y#="+str(GetObjectAngleY(objects[current].ID)))
		print("Angle Z#="+str(GetObjectAngleZ(objects[current].ID)))
		print("Pos X#="+str(GetObjectX(objects[current].ID)))
		print("Pos Y#="+str(GetObjectY(objects[current].ID)))
		print("Pos Z#="+str(GetObjectZ(objects[current].ID)))
	endif
	Gimbal(camera)
	print("Camera Values")
	print("cam x="+str(GetCameraX(1)))
	print("cam y="+str(GetCameraY(1)))
	print("cam z="+str(GetCameraZ(1)))
   	print("Dolly ("+str(Round(GetObjectAngleX(camera.dolly)))+","+str(Round(GetObjectAngleY(camera.dolly)))+","+str(Round(GetObjectAngleZ(camera.dolly)))+")")
    print("Camera ("+str(Round(GetObjectWorldAngleX(camera.camera)))+","+str(Round(GetObjectWorldAngleY(camera.camera)))+","+str(Round(GetObjectWorldAngleZ(camera.camera)))+")")	
    print("Internal ("+str(Round(camera.angle.x))+","+str(Round(camera.angle.y))+","+str(Round(camera.angle.z))+")")	
    Print( ScreenFPS() )
    Sync()
loop

function saveData(objects as _object[],filename$ as string)
	fw = OpenToWrite(filename$)
	For num=0 to objects.length
		writeline(fw,objects[num].name+" "+objects[num].imageName+" "+str(objects[num].scale)+" "+str(GetObjectAngleX(objects[num].ID))+" "+str(GetObjectAngleY(objects[num].ID))+" "+str(GetObjectAngleZ(objects[num].ID))+" "+str(GetObjectX(objects[num].ID))+" "+str(GetObjectY(objects[num].ID))+" "+str(GetObjectZ(objects[num].ID)))
	next num
	CloseFile ( fw ) 
endfunction

function loadObjects(objects ref as _object[])
	local myObject as _object
	fr=OpenToRead("test.data")
	myString$=ReadLine(fr)
	while FileEOF(fr)=0
		temp$=GetStringToken(myString$," ",1)
		myObject.ID=LoadObject(temp$)
		myObject.name=temp$
		temp$=GetStringToken(myString$," ",2)
		myObject.imageID=LoadImage(temp$)
		myObject.imageName=temp$
		SetObjectImage(myObject.ID,myObject.imageID,0)
		//SetObjectScale(myObject.ID,ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)))
		SetObjectRotation(myObject.ID,ValFloat(GetStringToken(myString$," ",4)),ValFloat(GetStringToken(myString$," ",5)),ValFloat(GetStringToken(myString$," ",6)))
		SetObjectPosition(myObject.ID,ValFloat(GetStringToken(myString$," ",7)),ValFloat(GetStringToken(myString$," ",8)),ValFloat(GetStringToken(myString$," ",9)))
		objects.insert(myObject):inc current
		myString$=ReadLine(fr)
	endwhile
	closefile(fr)
endfunction

function    Gimbal(camera ref as camera)
    d       as point
    v       as float
    a       as float
    p		as point
    dist	as float
              
    if GetPointerPressed() = 1
        camera.last.x = GetPointerX()
        camera.last.y = GetPointerY()        
    endif   
 
    if GetPointerState() = 1

p.y = GetPointerY() - camera.last.y
        inc camera.angle.x, p.y 
        
        p.x = GetPointerX() - camera.last.x
        inc camera.angle.y, p.x
    
	camera.last.x = GetPointerX()
        camera.last.y = GetPointerY()        
    endif
 
 
   SetObjectRotation(camera.dolly, camera.angle.x, camera.angle.y, 0)
   SetCameraPosition(1, GetObjectWorldX(camera.camera), GetObjectWorldY(camera.camera), GetObjectWorldZ(camera.camera))
   SetCameraRotation(1, camera.angle.x, camera.angle.y, 0)
	
		
endfunction

+ Code Snippet


// Project: 3D Placement Editor 
// Created: 2019-02-11

// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant KEY_LEFT         37
#constant KEY_UP           38
#constant KEY_RIGHT        39
#constant KEY_DOWN         40
#constant KEY_W            87
#constant KEY_A            65
#constant KEY_S            83
#constant KEY_Z            90
#constant KEY_L            76
#constant KEY_F1           112
#constant KEY_F2           113

#constant KEY_LESSTHAN 	   188
#constant KEY_GREATERTHAN  190
	
#constant KEY_HOME         36
#constant KEY_PLUS         107
#constant KEY_SUBTRACT     109
#constant KEY_SHIFT        16

type _object
    ID as integer
    imageID as integer
    scale as float
    name as string
    imageName as string
endtype

type point
	x	as float
	y	as float
	z	as float
endtype

type camera
	dolly	as integer
	camera	as integer
	last	as point
	angle	as point
endtype


camera 		as camera


// set window properties
SetWindowTitle( "3D Placement Editor" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

camera.dolly = CreateObjectBox(1, 1, 1)
SetObjectVisible(camera.dolly, 0)
camera.camera = CreateObjectBox(1, 1, 1)
SetObjectVisible(camera.camera, 0)
camera.angle.x = 0

FixObjectToObject(camera.camera, camera.dolly)
MoveObjectLocalZ(camera.camera, -20)
RotateObjectLocalX(camera.dolly, camera.angle.x)


objects as _object[]
global current as integer
current=-1:saveFlag=0
SetCameraPosition(1,0,10,-20 ) 
do
	if GetRawKeyPressed(KEY_L)
		DeleteAllObjects()
		DeleteAllImages()
		for num = objects.length to 0 step-1
			objects.remove(num)
		next num	
		current=-1:saveFlag=1
		loadObjects(objects)
		Message(left(ret$,len(ret$)-(len(objects[current].name)+1))+" test.data loaded")
	endif
	
    if GetRawKeyPressed(KEY_F1)
		object as _object 
		ret$=ChooseRawFile("*.obj;*.3ds",1)
		if ret$<>""
             object.ID=loadObject("raw:"+ret$)
             count=1
             for num = 1 to len(ret$)
				if Mid(ret$,num,1)="\" then inc count 
			 next num	 
             object.name=GetStringToken( ret$, "\", count )
			 ret$=ChooseRawFile("*.jpg;*.png",1)
		     if ret$<>""
				count=1
				for num = 1 to len(ret$)
					if Mid(ret$,num,1)="\" then inc count 
				next num	 
				object.ImageName=GetStringToken( ret$, "\", count )
				object.imageID=loadImage("raw:"+ret$)
				SetObjectImage(object.ID,object.imageID,0)
			 endif
			 object.scale=1:saveFlag=1
			 objects.insert(object)
			 inc current
        endif
	endif	
	
	if GetRawKeyPressed(KEY_F2) and saveFlag=1
		if current>=0
			saveData(objects,"raw:"+left(ret$,len(ret$)-(len(objects[current].name)+1))+"test.data")
			Message("test.data saved to "+left(ret$,len(ret$)-(len(objects[current].name)+1)))
		endif
	endif
	if current>=0
	Print(left(ret$,len(ret$)-(len(objects[current].name)+1))+"test.data")
	endif
	//camera movement commands
	if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_W) 
		MoveObjectLocalY(camera.camera,1)
		//SetCameraPosition(1,getCameraX(1),getCameraY(1)+1,getCameraZ(1))
	elseif GetRawKeyState(KEY_W)
		MoveObjectLocalZ(camera.camera,1)
		//SetCameraPosition(1,getCameraX(1),getCameraY(1),getCameraZ(1)+1)
	endif
	
	if GetRawKeyState(KEY_A)
		MoveObjectLocalX(camera.camera,-1)
		//SetCameraPosition(1,getCameraX(1)-1,getCameraY(1),getCameraZ(1))
	endif
	
	if GetRawKeyState(KEY_S)
		MoveObjectLocalX(camera.camera,1)
		//SetCameraPosition(1,getCameraX(1)+1,getCameraY(1),getCameraZ(1))
	endif
	
	if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_Z) 
		MoveObjectLocalY(camera.camera,-1)
		//SetCameraPosition(1,getCameraX(1),getCameraY(1)-1,getCameraZ(1))
	elseif GetRawKeyState(KEY_Z)
		MoveObjectLocalZ(camera.camera, -1)
		//SetCameraPosition(1,getCameraX(1),getCameraY(1),getCameraZ(1)-1)
	endif

	
	if current>=0
		//object movement commands
		if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_UP) 
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID)+1,getObjectZ(objects[current].ID))
		elseif GetRawKeyState(KEY_UP)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID),getObjectZ(objects[current].ID)+1)
		endif
	
		if GetRawKeyState(KEY_LEFT)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID)-1,getObjectY(objects[current].ID),getObjectZ(objects[current].ID))
		endif
	
		if GetRawKeyState(KEY_RIGHT)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID)+1,getObjectY(objects[current].ID),getObjectZ(objects[current].ID))
		endif
	
		if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_DOWN) 
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID)-1,getObjectZ(objects[current].ID))
		elseif GetRawKeyState(KEY_DOWN)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID),getObjectZ(objects[current].ID)-1)
		endif
		
		if GetRawKeyState(KEY_GREATERTHAN)
			RotateObjectLocalY(objects[current].ID,1)
		endif
		if GetRawKeyState(KEY_LESSTHAN)
			RotateObjectLocalY(objects[current].ID,-1)	
		endif
		
		if GetRawKeyPressed(KEY_PLUS)
			objects[current].scale=objects[current].scale+.1
			SetObjectScale(objects[current].ID,objects[current].scale,objects[current].scale,objects[current].scale)
		endif
		if GetRawKeyPressed(KEY_SUBTRACT)
			objects[current].scale=objects[current].scale-.1
			SetObjectScale(objects[current].ID,objects[current].scale,objects[current].scale,objects[current].scale)
		endif

		print("Name ="+(objects[current].name))
		print("Scale ="+str(objects[current].scale))
		print("Angle X#="+str(GetObjectAngleX(objects[current].ID)))
		print("Angle Y#="+str(GetObjectAngleY(objects[current].ID)))
		print("Angle Z#="+str(GetObjectAngleZ(objects[current].ID)))
		print("Pos X#="+str(GetObjectX(objects[current].ID)))
		print("Pos Y#="+str(GetObjectY(objects[current].ID)))
		print("Pos Z#="+str(GetObjectZ(objects[current].ID)))
	endif
	Gimbal(camera)
	print("Camera Values")
	print("cam x="+str(GetCameraX(1)))
	print("cam y="+str(GetCameraY(1)))
	print("cam z="+str(GetCameraZ(1)))
   	print("Dolly ("+str(Round(GetObjectAngleX(camera.dolly)))+","+str(Round(GetObjectAngleY(camera.dolly)))+","+str(Round(GetObjectAngleZ(camera.dolly)))+")")
    print("Camera ("+str(Round(GetObjectWorldAngleX(camera.camera)))+","+str(Round(GetObjectWorldAngleY(camera.camera)))+","+str(Round(GetObjectWorldAngleZ(camera.camera)))+")")	
    print("Internal ("+str(Round(camera.angle.x))+","+str(Round(camera.angle.y))+","+str(Round(camera.angle.z))+")")	
    Print( ScreenFPS() )
    Sync()
loop

function saveData(objects as _object[],filename$ as string)
	fw = OpenToWrite(filename$)
	For num=0 to objects.length
		writeline(fw,objects[num].name+" "+objects[num].imageName+" "+str(objects[num].scale)+" "+str(GetObjectAngleX(objects[num].ID))+" "+str(GetObjectAngleY(objects[num].ID))+" "+str(GetObjectAngleZ(objects[num].ID))+" "+str(GetObjectX(objects[num].ID))+" "+str(GetObjectY(objects[num].ID))+" "+str(GetObjectZ(objects[num].ID)))
	next num
	CloseFile ( fw ) 
endfunction	

function loadObjects(objects ref as _object[])
	local myObject as _object
	fr=OpenToRead("test.data")
	myString$=ReadLine(fr)
	while FileEOF(fr)=0
		temp$=GetStringToken(myString$," ",1)
		myObject.ID=LoadObject(temp$)
		myObject.name=temp$
		temp$=GetStringToken(myString$," ",2)
		myObject.imageID=LoadImage(temp$)
		myObject.imageName=temp$
		SetObjectImage(myObject.ID,myObject.imageID,0)
		//SetObjectScale(myObject.ID,ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)))
		SetObjectRotation(myObject.ID,ValFloat(GetStringToken(myString$," ",4)),ValFloat(GetStringToken(myString$," ",5)),ValFloat(GetStringToken(myString$," ",6)))
		SetObjectPosition(myObject.ID,ValFloat(GetStringToken(myString$," ",7)),ValFloat(GetStringToken(myString$," ",8)),ValFloat(GetStringToken(myString$," ",9)))
		objects.insert(myObject):inc current
		myString$=ReadLine(fr)
	endwhile
	closefile(fr)
endfunction	  

function    Gimbal(camera ref as camera)
    d       as point
    v       as float
    a       as float
    p		as point
    dist	as float
              
    if GetPointerPressed() = 1
        camera.last.x = GetPointerX()
        camera.last.y = GetPointerY()        
    endif   
 
    if GetPointerState() = 1 

	p.y = GetPointerY() - camera.last.y
        inc camera.angle.x, p.y 
        
        p.x = GetPointerX() - camera.last.x
        inc camera.angle.y, p.x
    
	camera.last.x = GetPointerX()
        camera.last.y = GetPointerY()        
    endif
 
 
   SetObjectRotation(camera.dolly, camera.angle.x, camera.angle.y, 0)
   SetCameraPosition(1, GetObjectWorldX(camera.camera), GetObjectWorldY(camera.camera), GetObjectWorldZ(camera.camera))
   SetCameraRotation(1, camera.angle.x, camera.angle.y, 0)
	
		
endfunction

Keys
F1 load an object and then an image to assign to it
f2 save test.data
L to delete all and load objects as set in test.data
<, > rotate object
+,- scale object
w,a,s,d,shift move camera
Clicking and holding mouse rotates mouse around its position
arrow keys ,shift move current object

Function
creates a test.data file that can be later used in your program that can load a series of objects
saving there name, scale, xangle, yangle, zangle, xpos ypos, and zpos

Note: It will save the file test.data in the same directory as the last object loaded

Using the data You could then use this function in your program to load position rotate etc your objects

+ Code Snippet

function loadObjects(objects ref as _object[])
	local myObject as _object
	fr=OpenToRead("test.data")
	myString$=ReadLine(fr)
	while FileEOF(fr)=0
		temp$=GetStringToken(myString$," ",1)
		myObject.ID=LoadObject(temp$)
		myObject.name=temp$
		temp$=GetStringToken(myString$," ",2)
		myObject.imageID=LoadImage(temp$)
		myObject.imageName=temp$
		SetObjectImage(myObject.ID,myObject.imageID,0)
		//SetObjectScale(myObject.ID,ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)))
		SetObjectRotation(myObject.ID,ValFloat(GetStringToken(myString$," ",4)),ValFloat(GetStringToken(myString$," ",5)),ValFloat(GetStringToken(myString$," ",6)))
		SetObjectPosition(myObject.ID,ValFloat(GetStringToken(myString$," ",7)),ValFloat(GetStringToken(myString$," ",8)),ValFloat(GetStringToken(myString$," ",9)))
		objects.insert(myObject):inc current
		myString$=ReadLine(fr)
	endwhile
	closefile(fr)
endfunction

ADDED GIMBALL CAMERA MOVEMENT with the mouse courtesy of blinks code from this thread https://forum.thegamecreators.com/thread/223916

fubar

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 7th Mar 2019 13:16 Edited at: 7th Mar 2019 13:44

Link

I will use it, thanks again. Nice mouse snippet.

Edit: Screenshot added

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 7th Mar 2019 17:24

Link

Well done bud.. Keep at it..

Tier 1 Developer

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 8th Mar 2019 00:39 Edited at: 8th Mar 2019 00:45

Link

great ship btw you may wish to follow this thread https://forum.thegamecreators.com/thread/223922
as were discussing methods of having an animated ocean. By the way there is already one if your lucky enough
to own the shader pack

and added another update to the barebones placement editor no need to thank me I needed to be motivated to work on it

the addition includes the ability to right click an object. That sets an offset to the way the gimball camera works. So when you
use the mouse to rotate the camera it rotates around the objects pivot point ie not necessarily centre. right clicking nothing
sets offsets back to zero

// Project: 3D Placement Editor 
// Created: 2019-02-11

// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant KEY_LEFT         37
#constant KEY_UP           38
#constant KEY_RIGHT        39
#constant KEY_DOWN         40
#constant KEY_W            87
#constant KEY_A            65
#constant KEY_S            83
#constant KEY_Z            90
#constant KEY_L            76
#constant KEY_F1           112
#constant KEY_F2           113

#constant KEY_LESSTHAN 	   188
#constant KEY_GREATERTHAN  190
	
#constant KEY_HOME         36
#constant KEY_PLUS         107
#constant KEY_SUBTRACT     109
#constant KEY_SHIFT        16

//change these values to ammounts you find useful
#constant moveAmmount      0.05
#constant rotateAmmount    0.05
#constant scaleAmmount     0.1

type _object
    ID as integer
    imageID as integer
    scale as float
    name as string
    imageName as string
endtype

type point
	x	as float
	y	as float
	z	as float
endtype

type camera
	dolly	as integer
	camera	as integer
	offset  as point 
	last	as point
	angle	as point
endtype

camera 		as camera

// set window properties
SetWindowTitle( "3D Placement Editor" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

camera.dolly = CreateObjectBox(1, 1, 1)
SetObjectVisible(camera.dolly, 0)
camera.camera = CreateObjectBox(1, 1, 1)
SetObjectVisible(camera.camera, 0)
camera.angle.x = 0

FixObjectToObject(camera.camera, camera.dolly)
MoveObjectLocalZ(camera.camera, -20)
RotateObjectLocalX(camera.dolly, camera.angle.x)

objects as _object[]
global current as integer
current=-1:saveFlag=0
SetCameraPosition(1,0,10,-20 ) 
do
	if GetRawKeyPressed(KEY_L)
		DeleteAllObjects()
		DeleteAllImages()
		for num = objects.length to 0 step-1
			objects.remove(num)
		next num	
		current=-1:saveFlag=1
		loadObjects(objects)
		Message(left(ret$,len(ret$)-(len(objects[current].name)+1))+" test.data loaded")
	endif
	
    if GetRawKeyPressed(KEY_F1)
		object as _object 
		ret$=ChooseRawFile("*.obj;*.3ds",1)
		if ret$<>""
             object.ID=loadObject("raw:"+ret$)
             count=1
             for num = 1 to len(ret$)
				if Mid(ret$,num,1)="\" then inc count 
			 next num	 
             object.name=GetStringToken( ret$, "\", count )
			 ret$=ChooseRawFile("*.jpg;*.png",1)
		     if ret$<>""
				count=1
				for num = 1 to len(ret$)
					if Mid(ret$,num,1)="\" then inc count 
				next num	 
				object.ImageName=GetStringToken( ret$, "\", count )
				object.imageID=loadImage("raw:"+ret$)
				SetObjectImage(object.ID,object.imageID,0)
			 endif
			 object.scale=1:saveFlag=1
			 objects.insert(object)
			 inc current
        endif
	endif	
	
	if GetRawKeyPressed(KEY_F2) and saveFlag=1
		if current>=0
			saveData(objects,"raw:"+left(ret$,len(ret$)-(len(objects[current].name)+1))+"test.data")
			Message("test.data saved to "+left(ret$,len(ret$)-(len(objects[current].name)+1)))
		endif
	endif
	if current>=0
	Print(left(ret$,len(ret$)-(len(objects[current].name)+1))+"test.data")
	endif
	//camera movement commands
	if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_W) 
		MoveObjectLocalY(camera.camera,moveAmmount)
		//SetCameraPosition(1,getCameraX(1),getCameraY(1)+1,getCameraZ(1))
	elseif GetRawKeyState(KEY_W)
		MoveObjectLocalZ(camera.camera,moveAmmount)
		//SetCameraPosition(1,getCameraX(1),getCameraY(1),getCameraZ(1)+1)
	endif
	
	if GetRawKeyState(KEY_A)
		MoveObjectLocalX(camera.camera,-moveAmmount)
		//SetCameraPosition(1,getCameraX(1)-1,getCameraY(1),getCameraZ(1))
	endif
	
	if GetRawKeyState(KEY_S)
		MoveObjectLocalX(camera.camera,moveAmmount)
		//SetCameraPosition(1,getCameraX(1)+1,getCameraY(1),getCameraZ(1))
	endif
	
	if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_Z) 
		MoveObjectLocalY(camera.camera,-moveAmmount)
		//SetCameraPosition(1,getCameraX(1),getCameraY(1)-1,getCameraZ(1))
	elseif GetRawKeyState(KEY_Z)
		MoveObjectLocalZ(camera.camera, -moveAmmount)
		//SetCameraPosition(1,getCameraX(1),getCameraY(1),getCameraZ(1)-1)
	endif

if current>=0
		//object movement commands
		if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_UP) 
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID)+moveAmmount,getObjectZ(objects[current].ID))
		elseif GetRawKeyState(KEY_UP)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID),getObjectZ(objects[current].ID)+moveAmmount)
		endif
	
		if GetRawKeyState(KEY_LEFT)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID)-moveAmmount,getObjectY(objects[current].ID),getObjectZ(objects[current].ID))
		endif
	
		if GetRawKeyState(KEY_RIGHT)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID)+moveAmmount,getObjectY(objects[current].ID),getObjectZ(objects[current].ID))
		endif
	
		if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_DOWN) 
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID)-moveAmmount,getObjectZ(objects[current].ID))
		elseif GetRawKeyState(KEY_DOWN)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID),getObjectZ(objects[current].ID)-moveAmmount)
		endif
		
		if GetRawKeyState(KEY_GREATERTHAN)
			RotateObjectLocalY(objects[current].ID,rotateAmmount)
		endif
		if GetRawKeyState(KEY_LESSTHAN)
			RotateObjectLocalY(objects[current].ID,-rotateAmmount)	
		endif
		
		if GetRawKeyPressed(KEY_PLUS)
			objects[current].scale=objects[current].scale+scaleAmmount
			SetObjectScale(objects[current].ID,objects[current].scale,objects[current].scale,objects[current].scale)
		endif
		if GetRawKeyPressed(KEY_SUBTRACT)
			objects[current].scale=objects[current].scale-scaleAmmount
			SetObjectScale(objects[current].ID,objects[current].scale,objects[current].scale,objects[current].scale)
		endif

print("Name ="+(objects[current].name))
		print("Scale ="+str(objects[current].scale))
		print("Angle X#="+str(GetObjectAngleX(objects[current].ID)))
		print("Angle Y#="+str(GetObjectAngleY(objects[current].ID)))
		print("Angle Z#="+str(GetObjectAngleZ(objects[current].ID)))
		print("Pos X#="+str(GetObjectX(objects[current].ID)))
		print("Pos Y#="+str(GetObjectY(objects[current].ID)))
		print("Pos Z#="+str(GetObjectZ(objects[current].ID)))
	endif
	Gimbal(camera)
	print("CAMERA VALUES")
	print("cam x="+str(GetCameraX(1)))
	print("cam y="+str(GetCameraY(1)))
	print("cam z="+str(GetCameraZ(1)))
	print("CAMERA ANGLES")
	print("Dolly ("+str(Round(GetObjectAngleX(camera.dolly)))+","+str(Round(GetObjectAngleY(camera.dolly)))+","+str(Round(GetObjectAngleZ(camera.dolly)))+")")
    print("Camera ("+str(Round(GetObjectWorldAngleX(camera.camera)))+","+str(Round(GetObjectWorldAngleY(camera.camera)))+","+str(Round(GetObjectWorldAngleZ(camera.camera)))+")")	
    print("Internal ("+str(Round(camera.angle.x))+","+str(Round(camera.angle.y))+","+str(Round(camera.angle.z))+")")	
    Print( ScreenFPS() )
    Sync()
loop

function saveData(objects as _object[],filename$ as string)
	fw = OpenToWrite(filename$)
	For num=0 to objects.length
		writeline(fw,objects[num].name+" "+objects[num].imageName+" "+str(objects[num].scale)+" "+str(GetObjectAngleX(objects[num].ID))+" "+str(GetObjectAngleY(objects[num].ID))+" "+str(GetObjectAngleZ(objects[num].ID))+" "+str(GetObjectX(objects[num].ID))+" "+str(GetObjectY(objects[num].ID))+" "+str(GetObjectZ(objects[num].ID)))
	next num
	CloseFile ( fw ) 
endfunction

function loadObjects(objects ref as _object[])
	local myObject as _object
	fr=OpenToRead("test.data")
	myString$=ReadLine(fr)
	while FileEOF(fr)=0
		temp$=GetStringToken(myString$," ",1)
		myObject.ID=LoadObject(temp$)
		myObject.name=temp$
		temp$=GetStringToken(myString$," ",2)
		myObject.imageID=LoadImage(temp$)
		myObject.imageName=temp$
		SetObjectImage(myObject.ID,myObject.imageID,0)
		//SetObjectScale(myObject.ID,ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)))
		SetObjectRotation(myObject.ID,ValFloat(GetStringToken(myString$," ",4)),ValFloat(GetStringToken(myString$," ",5)),ValFloat(GetStringToken(myString$," ",6)))
		SetObjectPosition(myObject.ID,ValFloat(GetStringToken(myString$," ",7)),ValFloat(GetStringToken(myString$," ",8)),ValFloat(GetStringToken(myString$," ",9)))
		objects.insert(myObject):inc current
		myString$=ReadLine(fr)
	endwhile
	closefile(fr)
endfunction

function    Gimbal(camera ref as camera)
    d       as point
    v       as float
    a       as float
    p		as point
    dist	as float
              
    if GetPointerPressed() = 1
        camera.last.x = GetPointerX()
        camera.last.y = GetPointerY()        
    endif   
	
	if GetRawMouseRightPressed()
		hit=checkCollision()
		if hit<>0 
			camera.offset.x=GetObjectWorldX(hit)
			camera.offset.y=GetObjectworldY(hit)
			camera.offset.z=GetObjectWorldZ(hit)
		else
			camera.offset.x=0
			camera.offset.y=0
			camera.offset.z=0	
		endif
	endif
	
    if GetPointerState() = 1

p.y = GetPointerY() - camera.last.y
        inc camera.angle.x, p.y 
        
        p.x = GetPointerX() - camera.last.x
        inc camera.angle.y, p.x
    
	camera.last.x = GetPointerX()
        camera.last.y = GetPointerY()        
    endif
 
 
   SetObjectRotation(camera.dolly, camera.angle.x, camera.angle.y, 0)
   SetCameraPosition(1, GetObjectWorldX(camera.camera)+camera.offset.x, GetObjectWorldY(camera.camera)+camera.offset.y, GetObjectWorldZ(camera.camera)+camera.offset.z)
   SetCameraRotation(1, camera.angle.x, camera.angle.y, 0)
	
		
endfunction

function checkCollision()
     // get the position of the pointer (mouse)
     pointer_x = GetPointerX()
     pointer_y = GetPointerY()
 
     // get the x, y and z unit vectors based on the pointer position
     unit_x# = Get3DVectorXFromScreen(pointer_x,pointer_y)
     unit_y# = Get3DVectorYFromScreen(pointer_x,pointer_y)
     unit_z# = Get3DVectorZFromScreen(pointer_x,pointer_y)
 
     // calculate the start of the ray cast, which is the unit vector + the camera position
     start_x# = unit_x# + 0
     start_y# = unit_y# + 10
     start_z# = unit_z# - 20
 
     // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
     end_x# = 800*unit_x# + 0
     end_y# = 800*unit_y# + 10
     end_z# = 800*unit_z# - 20
 
     // determine which object has been hit
     object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
endfunction object_hit

+ Code Snippet



// Project: 3D Placement Editor 
// Created: 2019-02-11

// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant KEY_LEFT         37
#constant KEY_UP           38
#constant KEY_RIGHT        39
#constant KEY_DOWN         40
#constant KEY_W            87
#constant KEY_A            65
#constant KEY_S            83
#constant KEY_Z            90
#constant KEY_L            76
#constant KEY_F1           112
#constant KEY_F2           113

#constant KEY_LESSTHAN 	   188
#constant KEY_GREATERTHAN  190
	
#constant KEY_HOME         36
#constant KEY_PLUS         107
#constant KEY_SUBTRACT     109
#constant KEY_SHIFT        16

//change these values to ammounts you find useful
#constant moveAmmount      0.05
#constant rotateAmmount    0.05
#constant scaleAmmount     0.1

type _object
    ID as integer
    imageID as integer
    scale as float
    name as string
    imageName as string
endtype

type point
	x	as float
	y	as float
	z	as float
endtype

type camera
	dolly	as integer
	camera	as integer
	offset  as point 
	last	as point
	angle	as point
endtype


camera 		as camera


// set window properties
SetWindowTitle( "3D Placement Editor" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

camera.dolly = CreateObjectBox(1, 1, 1)
SetObjectVisible(camera.dolly, 0)
camera.camera = CreateObjectBox(1, 1, 1)
SetObjectVisible(camera.camera, 0)
camera.angle.x = 0

FixObjectToObject(camera.camera, camera.dolly)
MoveObjectLocalZ(camera.camera, -20)
RotateObjectLocalX(camera.dolly, camera.angle.x)


objects as _object[]
global current as integer
current=-1:saveFlag=0
SetCameraPosition(1,0,10,-20 ) 
do
	if GetRawKeyPressed(KEY_L)
		DeleteAllObjects()
		DeleteAllImages()
		for num = objects.length to 0 step-1
			objects.remove(num)
		next num	
		current=-1:saveFlag=1
		loadObjects(objects)
		Message(left(ret$,len(ret$)-(len(objects[current].name)+1))+" test.data loaded")
	endif
	
    if GetRawKeyPressed(KEY_F1)
		object as _object 
		ret$=ChooseRawFile("*.obj;*.3ds",1)
		if ret$<>""
             object.ID=loadObject("raw:"+ret$)
             count=1
             for num = 1 to len(ret$)
				if Mid(ret$,num,1)="\" then inc count 
			 next num	 
             object.name=GetStringToken( ret$, "\", count )
			 ret$=ChooseRawFile("*.jpg;*.png",1)
		     if ret$<>""
				count=1
				for num = 1 to len(ret$)
					if Mid(ret$,num,1)="\" then inc count 
				next num	 
				object.ImageName=GetStringToken( ret$, "\", count )
				object.imageID=loadImage("raw:"+ret$)
				SetObjectImage(object.ID,object.imageID,0)
			 endif
			 object.scale=1:saveFlag=1
			 objects.insert(object)
			 inc current
        endif
	endif	
	
	if GetRawKeyPressed(KEY_F2) and saveFlag=1
		if current>=0
			saveData(objects,"raw:"+left(ret$,len(ret$)-(len(objects[current].name)+1))+"test.data")
			Message("test.data saved to "+left(ret$,len(ret$)-(len(objects[current].name)+1)))
		endif
	endif
	if current>=0
	Print(left(ret$,len(ret$)-(len(objects[current].name)+1))+"test.data")
	endif
	//camera movement commands
	if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_W) 
		MoveObjectLocalY(camera.camera,moveAmmount)
		//SetCameraPosition(1,getCameraX(1),getCameraY(1)+1,getCameraZ(1))
	elseif GetRawKeyState(KEY_W)
		MoveObjectLocalZ(camera.camera,moveAmmount)
		//SetCameraPosition(1,getCameraX(1),getCameraY(1),getCameraZ(1)+1)
	endif
	
	if GetRawKeyState(KEY_A)
		MoveObjectLocalX(camera.camera,-moveAmmount)
		//SetCameraPosition(1,getCameraX(1)-1,getCameraY(1),getCameraZ(1))
	endif
	
	if GetRawKeyState(KEY_S)
		MoveObjectLocalX(camera.camera,moveAmmount)
		//SetCameraPosition(1,getCameraX(1)+1,getCameraY(1),getCameraZ(1))
	endif
	
	if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_Z) 
		MoveObjectLocalY(camera.camera,-moveAmmount)
		//SetCameraPosition(1,getCameraX(1),getCameraY(1)-1,getCameraZ(1))
	elseif GetRawKeyState(KEY_Z)
		MoveObjectLocalZ(camera.camera, -moveAmmount)
		//SetCameraPosition(1,getCameraX(1),getCameraY(1),getCameraZ(1)-1)
	endif

	
	if current>=0
		//object movement commands
		if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_UP) 
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID)+moveAmmount,getObjectZ(objects[current].ID))
		elseif GetRawKeyState(KEY_UP)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID),getObjectZ(objects[current].ID)+moveAmmount)
		endif
	
		if GetRawKeyState(KEY_LEFT)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID)-moveAmmount,getObjectY(objects[current].ID),getObjectZ(objects[current].ID))
		endif
	
		if GetRawKeyState(KEY_RIGHT)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID)+moveAmmount,getObjectY(objects[current].ID),getObjectZ(objects[current].ID))
		endif
	
		if GetRawKeyState(KEY_SHIFT) and GetRawKeyState(KEY_DOWN) 
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID)-moveAmmount,getObjectZ(objects[current].ID))
		elseif GetRawKeyState(KEY_DOWN)
			SetObjectPosition(objects[current].ID,getObjectX(objects[current].ID),getObjectY(objects[current].ID),getObjectZ(objects[current].ID)-moveAmmount)
		endif
		
		if GetRawKeyState(KEY_GREATERTHAN)
			RotateObjectLocalY(objects[current].ID,rotateAmmount)
		endif
		if GetRawKeyState(KEY_LESSTHAN)
			RotateObjectLocalY(objects[current].ID,-rotateAmmount)	
		endif
		
		if GetRawKeyPressed(KEY_PLUS)
			objects[current].scale=objects[current].scale+scaleAmmount
			SetObjectScale(objects[current].ID,objects[current].scale,objects[current].scale,objects[current].scale)
		endif
		if GetRawKeyPressed(KEY_SUBTRACT)
			objects[current].scale=objects[current].scale-scaleAmmount
			SetObjectScale(objects[current].ID,objects[current].scale,objects[current].scale,objects[current].scale)
		endif

		print("Name ="+(objects[current].name))
		print("Scale ="+str(objects[current].scale))
		print("Angle X#="+str(GetObjectAngleX(objects[current].ID)))
		print("Angle Y#="+str(GetObjectAngleY(objects[current].ID)))
		print("Angle Z#="+str(GetObjectAngleZ(objects[current].ID)))
		print("Pos X#="+str(GetObjectX(objects[current].ID)))
		print("Pos Y#="+str(GetObjectY(objects[current].ID)))
		print("Pos Z#="+str(GetObjectZ(objects[current].ID)))
	endif
	Gimbal(camera)
	print("CAMERA VALUES")
	print("cam x="+str(GetCameraX(1)))
	print("cam y="+str(GetCameraY(1)))
	print("cam z="+str(GetCameraZ(1)))
	print("CAMERA ANGLES")
	print("Dolly ("+str(Round(GetObjectAngleX(camera.dolly)))+","+str(Round(GetObjectAngleY(camera.dolly)))+","+str(Round(GetObjectAngleZ(camera.dolly)))+")")
    print("Camera ("+str(Round(GetObjectWorldAngleX(camera.camera)))+","+str(Round(GetObjectWorldAngleY(camera.camera)))+","+str(Round(GetObjectWorldAngleZ(camera.camera)))+")")	
    print("Internal ("+str(Round(camera.angle.x))+","+str(Round(camera.angle.y))+","+str(Round(camera.angle.z))+")")	
    Print( ScreenFPS() )
    Sync()
loop

function saveData(objects as _object[],filename$ as string)
	fw = OpenToWrite(filename$)
	For num=0 to objects.length
		writeline(fw,objects[num].name+" "+objects[num].imageName+" "+str(objects[num].scale)+" "+str(GetObjectAngleX(objects[num].ID))+" "+str(GetObjectAngleY(objects[num].ID))+" "+str(GetObjectAngleZ(objects[num].ID))+" "+str(GetObjectX(objects[num].ID))+" "+str(GetObjectY(objects[num].ID))+" "+str(GetObjectZ(objects[num].ID)))
	next num
	CloseFile ( fw ) 
endfunction	

function loadObjects(objects ref as _object[])
	local myObject as _object
	fr=OpenToRead("test.data")
	myString$=ReadLine(fr)
	while FileEOF(fr)=0
		temp$=GetStringToken(myString$," ",1)
		myObject.ID=LoadObject(temp$)
		myObject.name=temp$
		temp$=GetStringToken(myString$," ",2)
		myObject.imageID=LoadImage(temp$)
		myObject.imageName=temp$
		SetObjectImage(myObject.ID,myObject.imageID,0)
		//SetObjectScale(myObject.ID,ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)))
		SetObjectRotation(myObject.ID,ValFloat(GetStringToken(myString$," ",4)),ValFloat(GetStringToken(myString$," ",5)),ValFloat(GetStringToken(myString$," ",6)))
		SetObjectPosition(myObject.ID,ValFloat(GetStringToken(myString$," ",7)),ValFloat(GetStringToken(myString$," ",8)),ValFloat(GetStringToken(myString$," ",9)))
		objects.insert(myObject):inc current
		myString$=ReadLine(fr)
	endwhile
	closefile(fr)
endfunction	  

function    Gimbal(camera ref as camera)
    d       as point
    v       as float
    a       as float
    p		as point
    dist	as float
              
    if GetPointerPressed() = 1
        camera.last.x = GetPointerX()
        camera.last.y = GetPointerY()        
    endif   
	
	if GetRawMouseRightPressed()
		hit=checkCollision()
		if hit<>0 
			camera.offset.x=GetObjectWorldX(hit)
			camera.offset.y=GetObjectworldY(hit)
			camera.offset.z=GetObjectWorldZ(hit)
		else
			camera.offset.x=0
			camera.offset.y=0
			camera.offset.z=0	
		endif
	endif
	
    if GetPointerState() = 1 
	

	p.y = GetPointerY() - camera.last.y
        inc camera.angle.x, p.y 
        
        p.x = GetPointerX() - camera.last.x
        inc camera.angle.y, p.x
    
	camera.last.x = GetPointerX()
        camera.last.y = GetPointerY()        
    endif
 
 
   SetObjectRotation(camera.dolly, camera.angle.x, camera.angle.y, 0)
   SetCameraPosition(1, GetObjectWorldX(camera.camera)+camera.offset.x, GetObjectWorldY(camera.camera)+camera.offset.y, GetObjectWorldZ(camera.camera)+camera.offset.z)
   SetCameraRotation(1, camera.angle.x, camera.angle.y, 0)
	
		
endfunction

function checkCollision()
     // get the position of the pointer (mouse)
     pointer_x = GetPointerX()
     pointer_y = GetPointerY()
 
     // get the x, y and z unit vectors based on the pointer position
     unit_x# = Get3DVectorXFromScreen(pointer_x,pointer_y)
     unit_y# = Get3DVectorYFromScreen(pointer_x,pointer_y)
     unit_z# = Get3DVectorZFromScreen(pointer_x,pointer_y)
 
     // calculate the start of the ray cast, which is the unit vector + the camera position
     start_x# = unit_x# + 0
     start_y# = unit_y# + 10
     start_z# = unit_z# - 20
 
     // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
     end_x# = 800*unit_x# + 0
     end_y# = 800*unit_y# + 10
     end_z# = 800*unit_z# - 20
 
     // determine which object has been hit
     object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
endfunction object_hit

fubar

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 8th Mar 2019 13:44 Edited at: 8th Mar 2019 13:45

Link

Ok, i will not say Thanks!

What about my raft

You and george++ saved my weekend
https://forum.thegamecreators.com/thread/223957

The best gamecoders community ever.

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 8th Mar 2019 13:55

Link

Quote: "great ship btw you may wish to follow this thread https://forum.thegamecreators.com/thread/223922
as were discussing methods of having an animated ocean. By the way there is already one if your lucky enough
to own the shader pack"

I'm using the ocean shader from janbo and generating clouds to change the weather and the wind position. I love the foam effect from the shader, also using a particles trail and rotating the ship I should get a nice sailing effect. The clouds movement makes the ship get slow if not is going in the right direction.

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 8th Mar 2019 13:56

Link

Nice snippets , I'm adding this to my favourites https://forum.thegamecreators.com/thread/223922

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 8th Mar 2019 14:51

Link

Since the janbo ocean effect waves are configurable, I'm using this option to make them higher in the town view, depending the weather

but clouds in sailing mode are required to make it more real; I don't need waves at this point, just the foam.

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 8th Mar 2019 14:55

Link

You raft is super ace - well done again.

I would like to mention though - on few threads back you qutoed

Quote: "Ok, i will not say Thanks!"

Could you please elaborate..

Tier 1 Developer

Back to top

Profile

puzzler2018

User Banned

Posted: 8th Mar 2019 20:37

Link

you will be remembered im sure...

Tier 1 Developer

Back to top

Profile

puzzler2018

User Banned

Posted: 8th Mar 2019 21:28 Edited at: 8th Mar 2019 21:29

Link

Can you please elaborate what you mean please - we are here to help you and every one. Spelling mistake perhaps?

Tier 1 Developer

Back to top

Profile

puzzler2018

User Banned

Posted: 8th Mar 2019 21:33

Link

You got what you wanted - please dont help this guy again - i find it inconsiderate and rude

Tier 1 Developer

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 8th Mar 2019 21:36

Link

@puzzler I said he did not have to say thanks for the latest update that's what that was about

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 8th Mar 2019 21:39

Link

still - we make the effort to support everyone. it was just rude - could have said in a more nicer way

Tier 1 Developer

Back to top

Profile

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 9th Mar 2019 12:39

Link

@puzzler2018 I wasn't being rude, just kidding. Apologies for the inconvenience anyways.

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 9th Mar 2019 13:00 Edited at: 9th Mar 2019 13:07

Link

Quote: "You got what you wanted - please dont help this guy again - i find it inconsiderate and rude"

Shared code is public not just for me, about "I got what I want" I didn't any code request to fubar, just asked in forums about some links and he answered publishing some code. I was not much logged yesterday in forums and tho you was kidding too.

FInally please check my threads , they are "full of spelling mistakes". My english is terrible.

Sorry fubarpk thanks again and it's quite enough for me since the first post.

I love you all.

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 9th Mar 2019 16:19 Edited at: 9th Mar 2019 16:22

Link

This guy still connected but haven't any hurry now.

Edit: Should I rage then

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 9th Mar 2019 16:28

Link

What you on about - all i asked was why you quoted a

Quote: ""Ok, i will not say Thanks!""

Its was just a shock after all we trying to help you out - not to get something back like "i will NOT say Thanks"

We both must have misunderstood and you all have explained

Move on chap otherwise you will get a hernia...

Tier 1 Developer

Back to top

Profile

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 9th Mar 2019 16:33

Link

Stop answering any of my posts, you aren't a valuable person, I had an rude error nominating you

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 9th Mar 2019 16:34

Link

On this thread you adding nothing, only raging waves.

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 9th Mar 2019 16:38

Link

Did you remember when you was raging about your minecraft thread, did you felt ignored? Did I open my mouth? I sent some free code to you by mail and didn't get an answer. You remember me an old l2jserver mate, not contributing but blaming.

You are much different that the person you claims. Get a life instead a hernia.

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 9th Mar 2019 16:40

Link

Just acting like you, need four posts to say something. We aren't stupid.

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 9th Mar 2019 16:43 Edited at: 11th Mar 2019 17:50

Link

I sent you another pm, but I didn't receive any response.

Edit2: Removed myself my personal. I'm sorry.

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 9th Mar 2019 17:01 Edited at: 9th Mar 2019 20:02

Link

I got this answer

puzzler2018 wrote: "Look - what do you want - firstly you asked PMed me abuot getting some idea on 3D building.... Why you ask me directly for if you thought i wasnt professional programmer - i have been games programming since I was 8... Now go away.
Sent 2019-03-09 16:55:"

He has lacks of memory or isn't enough brave to still posting in forums.
I wrote him to collaborate months ago.

puzzler2018 wrote: "I can only collaborate away to join you in makin an app away from the forms - by all means you can email me on [MOD EDIT: Removed personal info]

Take care

Damo"

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 9th Mar 2019 17:17

Link

Sorry c0d4r9 :_( got demotived again

I hope do not disturb more

Back to top

Profile PM Email Website

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 9th Mar 2019 17:20

Link

I will share my advances, used to do a modular programming so with the idea to share any part by separate. Thanks for trusting in me.

Back to top

Profile PM Email Website

The Next

Web Engineer

16

Years of Service

User Offline

Joined: 3rd Dec 2007

Location: United Kingdom

Posted: 9th Mar 2019 17:32 Edited at: 9th Mar 2019 20:07

Link

nonom you have been banned for 48 hours. I don't even know where to begin with this one. Upon your return I suggest you calm yourself and avoid having arguments with other forum members in threads or via PMs. Thread locked.

EDIT: Also creating duplicate accounts isn't allowed, especially to moan about a ban

@puzzler2018
Please don't spam the report system, it takes a while to check everything over we don't need 10+ reports of the same thread.

Windows 10, Intel i7 4.2 GHz, 16GB DDR4, NVIDIA RTX 2060

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / [LOCKED] Is there a 3d objects place editor in our forums