weird white line on 3D objects - GameCreators Forum

Author

Message

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 29th Mar 2018 14:27 Edited at: 29th Mar 2018 14:45

Link

Cant seem to get rid of these lines that are pretty noticeable,even if I actually place the object on top of another..any ideas what causes this?

here is the code,it is early days or a restarted editor:

// Project: Crafter 
// Created: 2018-03-27

// set display properties
#include "keys.agc"
// Show all errors
SetErrorMode(2) 
SetWindowSize( 1024, 768, 1 )
// Set some display properties
SetVirtualResolution( 1024, 768 )
SetClearColor( 101, 120, 154 )
SetScissor( 0,0,0,0 )
//SetGenerateMipmaps( 1 )
//SetResolutionMode(1)
//SetImmersiveMode(1)
SetCameraRange( 1, 0.1, 2000 )
SetWindowAllowResize( 1 )

UseNewDefaultFonts( 1 )
SetPrintSize( 20 )
SetPrintColor( 255,0,0 )
setsunactive(1)
SetSkyBoxVisible(1)
//shadowMode = 3 // start with cascade shadow mapping which gives the best quality
//SetShadowMappingMode( shadowMode )
//SetShadowSmoothing( 2 ) // random sampling
//SetShadowMapSize( 512, 512)
//SetShadowRange( -1 ) // use the full camera range
//SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts

// show the sun, not necessary but improves the experience

#constant maxobjects=5000
dx# = -0.3714
dy# = -0.7428
dz# = 0.5571
//SetSunDirection( dx#, dy#, dz# )
//SetAmbientColor( 30,30,30 )
type Tobjects
	x as integer
	y as integer
	z as integer
	i as integer
	id as integer
	sx as integer
	sy as integer
	sz as integer
	shadow as integer
	clone as integer
	rotx as integer
	roty as integer
	rotz as integer
	group as integer
	pb as integer
	ps as integer
endtype
dim object[maxobjects] as Tobjects
global sx=60
global sy=60
global sz=60
global scx#=1
global scy#=1
global scz#=1
global cx=0
global cy=0
global cz=0
global CameraDistance#=-100
global cursor=6000
global shadowtype=1
global offset=0
global smooth#=0.01
global wall=1
global level=1
global gametype=0
global objectcounter=0
global currenttexture=12
global clone=1
global rotx=0
global roty=0
global rotz=0
global groupeditbox=1
global rxeditbox=2
global ryeditbox=3
global rzeditbox=4
global pbeditbox=5
global pseditbox=6
global basex#=1
global basey#=10
global xgap#=110
global ygap#=30
global group=0
global pb=1
global ps=2
load_images()
init()

repeat
		FrameTime#=GetFrameTime()
	//Print( ScreenFPS() )
	if GetPointerPressed()=1
		PointerStartX#=GetPointerX()
		PointerStartY#=GetPointerY()
	endif
	if GetPointerState()=1
		PointerX#=GetPointerX()
		PointerY#=GetPointerY()
		//calculate the distance the pointer traveled while pressing
		PointerDistX#=PointerX#-PointerStartX#
		PointerDistY#=PointerY#-PointerStartY#
		// here we calculate if we swipe vertically or horizontally
		if abs(PointerDistX#)>abs(PointerDistY#)
		// change the camera angle in dependence of the frametime
			CameraAngleY#=CameraAngleY#-PointerDistX#*1.5*FrameTime#
			else
				// change the camera distance in dependence of the frametime
				CameraDistance#=CameraDistance#-PointerDistY#*1.1*FrameTime#
		endif
	endif
	Sin#=sin(CameraAngleY#)
	Cos#=cos(CameraAngleY#)
	// calculate the camera position, with curvevalue for the smooth movement
	CameraX#=curvevalue(sin(CameraAngleY#),CameraX#,3)
	CameraZ#=curvevalue(cos(CameraAngleY#),CameraZ#,3)	
    control()
	if GetRawKeyPressed( key_q )
		quit=1
	endif
	SetObjectPosition(cursor,cx,cy,cz)
	setcameraposition(1,cx+CameraDistance#*0.6*CameraX#,cy-CameraDistance#-offset*20,cz-CameraDistance#*0.6*CameraZ#)
	SetCameraLookAt(1,cx,cy,cz,0)
    Print( ScreenFPS() )
     Print( Str(objectcounter) )
    Sync()
until quit
function init()
	create_my_editbox(groupeditbox,basex#+xgap#,basey#,2,255,0,0,0,40,20,255,str(group))
	create_my_editbox(rxeditbox,basex#+xgap#,basey#+ygap#,2,255,0,0,0,40,20,255,"0")
	create_my_editbox(ryeditbox,basex#+xgap#,basey#+ygap#*2,2,255,0,0,0,40,20,255,"0")
	create_my_editbox(rzeditbox,basex#+xgap#,basey#+ygap#*3,2,255,0,0,0,40,20,255,"0")
	create_my_text(groupeditbox,basex#,basey#,25,255,0,0,"Group",0)
	create_my_text(rxeditbox,basex#,basey#+ygap#,25,255,0,0,"Rotate X",0)
	create_my_text(ryeditbox,basex#,basey#+ygap#*2,25,255,0,0,"Rotate Y",0)
	create_my_text(rzeditbox,basex#,basey#+ygap#*3,25,255,0,0,"Rotate Z",0)	
create_my_editbox(pbeditbox,basex#+xgap#*2.5,basey#,2,255,0,0,0,40,20,255,"1")
	create_my_editbox(pseditbox,basex#+xgap#*2.5,basey#+ygap#,2,255,0,0,0,40,20,255,"2")	
	//wall=loadobject("stonewall2.obj")
	//SetObjectposition(wall,1000000,1000000,1000000)
	cursor=CreateObjectBox(sx,sy,sz)
	
	//SetObjectScale(cursor,10,10,10)
	//SetObjectImage(cursor,1,0)
	SetObjectTransparency(cursor,1)
	SetObjectPosition(cursor,cx,cy,cz)

endfunction
function control()
	read_boxes()
	if GetRawKeyreleased (key_F1)
		load_level(level)
	endif
	if GetRawKeyreleased (key_F2)
		save_level(level)
	endif
	if GetRawKeyreleased (key_c)
		clear_level()
	endif
	if getrawkeystate(KEY_CONTROL)
		div=4
		else
		div=0
	endif
	if GetRawKeyPressed( key_left)
		if div=0
			cx=cx+sx
			else
				cx=cx+smooth#
		endif
	endif
	if GetRawKeyPressed( key_right)
		if div=0
			cx=cx-sx
			else
				cx=cx-smooth#
		endif
	endif
	if GetRawKeyPressed( key_up)
		cz=cz-sz
	endif
	if GetRawKeyPressed( key_down)
		cz=cz+sz
	endif
	if GetRawKeyPressed( key_a)
		cy=cy+sy
	endif
	if GetRawKeyPressed( key_z)
		cy=cy-sy
	endif								
	if GetRawKeyreleased (key_space)
		//obj=cloneobject(wall)
		obj=CreateObjectBox(sx,sy,sz)
		//SetObjectScale(obj,10,10,10)
		SetObjectPosition(obj,cx,cy,cz)
		SetObjectRotation(obj,rotx,roty,rotz)
					setobjectcolor(obj,255,0,0,255)
		//SetObjectImage(obj,currenttexture,0)
		//SetObjectNormalMap(obj,11)
			select shadowtype
			case 1
				//SetObjectreceiveShadow(obj,1)
			endcase
			
		endselect
		inc objectcounter
		set_object_value(objectcounter,obj,currenttexture)
		sync()
	endif
	if GetRawKeyPressed( key_r)
		if div=0
			rotx=rotx+45
			
			else
				rotx=rotx-45
		endif
		if rotx>270
			rotx=0
		endif
		SetObjectRotation(cursor,rotx,roty,rotz)
	endif
endfunction
function load_images()
	for n=1 to 200
		f$=str(n) + ".png"
		if getfileexists(f$)
			loadimage (n,f$)
			//SetImageWrapU(n,1)
			//SetImageWrapV(n,1)
		endif
	next
endfunction
function curvevalue(Destination#,Current#,Smooth#)
	Current#=Current#+((Destination#-Current#)/Smooth#)
endfunction Current#
function PI()
endfunction 3.14159265
function set_object_value(index,id,image)
	object[index].id=id
	object[index].i=image
	object[index].clone=clone
	object[index].x=cx
	object[index].y=cy
	object[index].z=cz
	object[index].sx=sx
	object[index].sy=sy
	object[index].sz=sz
	object[index].shadow=shadowtype
	object[index].rotx=rotx
	object[index].roty=roty
	object[index].rotz=rotz
	object[index].pb=pb
	object[index].ps=ps
	object[index].group=group
endfunction
function save_level(level)
	select gametype
		case 0
			f$="fps"
		endcase
		case 1
			f$="roller"
		endcase
		case 2
			f$="pool"
		endcase
		case 3
			f$="advent"
		endcase
	endselect
	f$=f$+str(level)
	f$=f$+".lev"
	if GetFileExists(f$)
		deletefile(f$)
	endif
	myfile=opentowrite(f$)
	writeinteger(myfile,objectcounter)
	for n=1 to maxobjects
		writeinteger(myfile,object[n].x)
		writeinteger(myfile,object[n].y)
		writeinteger(myfile,object[n].z)
		writeinteger(myfile,object[n].sx)
		writeinteger(myfile,object[n].sy)
		writeinteger(myfile,object[n].sz)
		writeinteger(myfile,object[n].id)
		writeinteger(myfile,object[n].i)
		writeinteger(myfile,object[n].clone)
		writeinteger(myfile,object[n].shadow)
		writeinteger(myfile,object[n].rotx)
		writeinteger(myfile,object[n].roty)
		writeinteger(myfile,object[n].rotz)
		writeinteger(myfile,object[n].pb)
		writeinteger(myfile,object[n].ps)
		writeinteger(myfile,object[n].group)
	next n
	closefile(myfile)

endfunction
function load_level(level)
	clear_level()
	select gametype
		case 0
			f$="fps"
		endcase
		case 1
			f$="roller"
		endcase
		case 2
			f$="pool"
		endcase
		case 3
			f$="advent"
		endcase
	endselect
	f$=f$+str(level)
	f$=f$+".lev"
	if getfileexists(f$)=1
		myfile=opentoread(f$)
		objectcounter=readinteger(myfile)

for n=1 to maxobjects

object[n].x =readinteger(myfile)
			object[n].y =readinteger(myfile)
			object[n].z =readinteger(myfile)
			object[n].sx=readfloat(myfile)
			object[n].sy=readfloat(myfile)
			object[n].sz=readfloat(myfile)
			object[n].id=readinteger(myfile)
			object[n].i=readinteger(myfile)
			object[n].clone=readinteger(myfile)
			object[n].shadow=readinteger(myfile)
			object[n].rotx=readinteger(myfile)
			object[n].roty=readinteger(myfile)
			object[n].rotz=readinteger(myfile)
			object[n].pb=readinteger(myfile)
			object[n].ps=readinteger(myfile)	
			object[n].group=readinteger(myfile)			
		next n
		closefile(myfile)
	endif
	for n=1 to maxobjects
		if object[n].id>0
			select object[n].Clone
				case 0
					//object[n].id=cloneobject(wall)
					object[n].id=CreateObjectBox(sx,sy,sz)
					//SetObjectNormalMap(object[n].id,11)
				endcase
			endselect
			//setobjectscale(object[n].id,object[n].sx#,object[n].sy#,object[n].sz#)
			setobjectposition(object[n].id,object[n].x,object[n].y,object[n].z)
			SetObjectRotation(object[n].id,object[n].rotx,object[n].roty,object[n].rotz)
			setobjectcolor(object[n].id,255,0,0,255)
			//setobjectimage(object[n].id,object[n].i,0)
			select object[n].shadow
				case 1
					//SetObjectreceiveShadow(object[n].id,1)
				endcase
			endselect

endif
	next n
endfunction
function clear_level()
	for n=1 to maxobjects
		if getobjectexists(object[n].ID)
			deleteobject(object[n].ID)		
			object[n].x =0	
			object[n].y =0	
			object[n].z=0	
			object[n].sx=0	
			object[n].sy=0	
			object[n].sz =0
			object[n].id=0
			object[n].i=0
			object[n].clone=0
			object[n].pb=0
			object[n].ps=0
			object[n].group=0
		endif
	next n
	objectcounter=0
endfunction	
function create_my_text(number,x#,y#,size,r,g,b,mystring$,depth)
	createtext(number,mystring$)
	settextsize(number,size)
	settextcolor(number,r,g,b,255)
	SetTextPosition(number,x#,y#)
	FixTextToScreen(number,1)
	settextdepth(number,depth)
	//SetTextFontImage ( number, 2 )
endfunction
function create_my_editbox(number,x#,y#,bordersize#,r,g,b,backcolor,bsizex#,bsizey#,alpha,box$)
	createeditbox(number)
	SetEditBoxTextSize( number, 20) 
	SetEditBoxBorderSize(number,bordersize#)
	SetEditBoxTextColor(number,r,g,b)
	SetEditBoxBorderColor(number,r,g,b,alpha)
	SetEditBoxBackgroundColor( number, 0, 0, 0, alpha )
	seteditboxsize(number,bsizex#,bsizey#)
	SetEditBoxPosition(number,x#,y#)
	FixEditBoxToScreen(number,1)
	seteditboxdepth(number,0)
	SetEditBoxText(number,box$)
endfunction
function read_boxes()
	if getrawkeypressed(KEY_ENTER)
		repeat
			focus=GetCurrentEditBox()
			select focus
				case groupeditbox
					t$=geteditboxtext(groupeditbox)
					group=val(t$)
				endcase	
			case rxeditbox
				t$=geteditboxtext(rxeditbox)
				rotx=val(t$)
				setobjectrotation(cursor,rotx,roty,rotz)					
			endcase
			case ryeditbox
				t$=geteditboxtext(ryeditbox)
				roty=val(t$)
				setobjectrotation(cursor,rotx,roty,rotz)					
			endcase
			case rzeditbox
				t$=geteditboxtext(rzeditbox)
				rotz=val(t$)
				setobjectrotation(cursor,rotx,roty,rotz)					
			endcase
			case pseditbox
				t$=geteditboxtext(pseditbox)
				ps=val(t$)
				//setobjectrotation(curs,rx,ry,rz)					
			endcase
			case pbeditbox
				t$=geteditboxtext(pbeditbox)
				pb=val(t$)
				//setobjectrotation(curs,rx,ry,rz)					
			endcase								
			endselect
			sync()
		until GetRawKeyReleased(KEY_ENTER)
	endif
endfunction

+ Code Snippet


// Project: Crafter 
// Created: 2018-03-27

// set display properties
#include "keys.agc"
// Show all errors
SetErrorMode(2) 
SetWindowSize( 1024, 768, 1 )
// Set some display properties
SetVirtualResolution( 1024, 768 )
SetClearColor( 101, 120, 154 )
SetScissor( 0,0,0,0 )
//SetGenerateMipmaps( 1 )
//SetResolutionMode(1)
//SetImmersiveMode(1)
SetCameraRange( 1, 0.1, 2000 )
SetWindowAllowResize( 1 )

UseNewDefaultFonts( 1 )
SetPrintSize( 20 )
SetPrintColor( 255,0,0 )
setsunactive(1)
SetSkyBoxVisible(1)
//shadowMode = 3 // start with cascade shadow mapping which gives the best quality
//SetShadowMappingMode( shadowMode )
//SetShadowSmoothing( 2 ) // random sampling
//SetShadowMapSize( 512, 512)
//SetShadowRange( -1 ) // use the full camera range
//SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts

// show the sun, not necessary but improves the experience

#constant maxobjects=5000
dx# = -0.3714
dy# = -0.7428
dz# = 0.5571
//SetSunDirection( dx#, dy#, dz# )
//SetAmbientColor( 30,30,30 )
type Tobjects
	x as integer
	y as integer
	z as integer
	i as integer
	id as integer
	sx as integer
	sy as integer
	sz as integer
	shadow as integer
	clone as integer
	rotx as integer
	roty as integer
	rotz as integer
	group as integer
	pb as integer
	ps as integer
endtype
dim object[maxobjects] as Tobjects
global sx=60
global sy=60
global sz=60
global scx#=1
global scy#=1
global scz#=1
global cx=0
global cy=0
global cz=0
global CameraDistance#=-100
global cursor=6000
global shadowtype=1
global offset=0
global smooth#=0.01
global wall=1
global level=1
global gametype=0
global objectcounter=0
global currenttexture=12
global clone=1
global rotx=0
global roty=0
global rotz=0
global groupeditbox=1
global rxeditbox=2
global ryeditbox=3
global rzeditbox=4
global pbeditbox=5
global pseditbox=6
global basex#=1
global basey#=10
global xgap#=110
global ygap#=30
global group=0
global pb=1
global ps=2
load_images()
init()

repeat
		FrameTime#=GetFrameTime()
	//Print( ScreenFPS() )
	if GetPointerPressed()=1
		PointerStartX#=GetPointerX()
		PointerStartY#=GetPointerY()
	endif
	if GetPointerState()=1
		PointerX#=GetPointerX()
		PointerY#=GetPointerY()
		//calculate the distance the pointer traveled while pressing
		PointerDistX#=PointerX#-PointerStartX#
		PointerDistY#=PointerY#-PointerStartY#
		// here we calculate if we swipe vertically or horizontally
		if abs(PointerDistX#)>abs(PointerDistY#)
		// change the camera angle in dependence of the frametime
			CameraAngleY#=CameraAngleY#-PointerDistX#*1.5*FrameTime#
			else
				// change the camera distance in dependence of the frametime
				CameraDistance#=CameraDistance#-PointerDistY#*1.1*FrameTime#
		endif
	endif
	Sin#=sin(CameraAngleY#)
	Cos#=cos(CameraAngleY#)
	// calculate the camera position, with curvevalue for the smooth movement
	CameraX#=curvevalue(sin(CameraAngleY#),CameraX#,3)
	CameraZ#=curvevalue(cos(CameraAngleY#),CameraZ#,3)	
    control()
	if GetRawKeyPressed( key_q )
		quit=1
	endif
	SetObjectPosition(cursor,cx,cy,cz)
	setcameraposition(1,cx+CameraDistance#*0.6*CameraX#,cy-CameraDistance#-offset*20,cz-CameraDistance#*0.6*CameraZ#)
	SetCameraLookAt(1,cx,cy,cz,0)
    Print( ScreenFPS() )
     Print( Str(objectcounter) )
    Sync()
until quit
function init()
	create_my_editbox(groupeditbox,basex#+xgap#,basey#,2,255,0,0,0,40,20,255,str(group))
	create_my_editbox(rxeditbox,basex#+xgap#,basey#+ygap#,2,255,0,0,0,40,20,255,"0")
	create_my_editbox(ryeditbox,basex#+xgap#,basey#+ygap#*2,2,255,0,0,0,40,20,255,"0")
	create_my_editbox(rzeditbox,basex#+xgap#,basey#+ygap#*3,2,255,0,0,0,40,20,255,"0")
	create_my_text(groupeditbox,basex#,basey#,25,255,0,0,"Group",0)
	create_my_text(rxeditbox,basex#,basey#+ygap#,25,255,0,0,"Rotate X",0)
	create_my_text(ryeditbox,basex#,basey#+ygap#*2,25,255,0,0,"Rotate Y",0)
	create_my_text(rzeditbox,basex#,basey#+ygap#*3,25,255,0,0,"Rotate Z",0)	
create_my_editbox(pbeditbox,basex#+xgap#*2.5,basey#,2,255,0,0,0,40,20,255,"1")
	create_my_editbox(pseditbox,basex#+xgap#*2.5,basey#+ygap#,2,255,0,0,0,40,20,255,"2")	
	//wall=loadobject("stonewall2.obj")
	//SetObjectposition(wall,1000000,1000000,1000000)
	cursor=CreateObjectBox(sx,sy,sz)
	
	//SetObjectScale(cursor,10,10,10)
	//SetObjectImage(cursor,1,0)
	SetObjectTransparency(cursor,1)
	SetObjectPosition(cursor,cx,cy,cz)

endfunction
function control()
	read_boxes()
	if GetRawKeyreleased (key_F1)
		load_level(level)
	endif
	if GetRawKeyreleased (key_F2)
		save_level(level)
	endif
	if GetRawKeyreleased (key_c)
		clear_level()
	endif
	if getrawkeystate(KEY_CONTROL)
		div=4
		else
		div=0
	endif
	if GetRawKeyPressed( key_left)
		if div=0
			cx=cx+sx
			else
				cx=cx+smooth#
		endif
	endif
	if GetRawKeyPressed( key_right)
		if div=0
			cx=cx-sx
			else
				cx=cx-smooth#
		endif
	endif
	if GetRawKeyPressed( key_up)
		cz=cz-sz
	endif
	if GetRawKeyPressed( key_down)
		cz=cz+sz
	endif
	if GetRawKeyPressed( key_a)
		cy=cy+sy
	endif
	if GetRawKeyPressed( key_z)
		cy=cy-sy
	endif								
	if GetRawKeyreleased (key_space)
		//obj=cloneobject(wall)
		obj=CreateObjectBox(sx,sy,sz)
		//SetObjectScale(obj,10,10,10)
		SetObjectPosition(obj,cx,cy,cz)
		SetObjectRotation(obj,rotx,roty,rotz)
					setobjectcolor(obj,255,0,0,255)
		//SetObjectImage(obj,currenttexture,0)
		//SetObjectNormalMap(obj,11)
			select shadowtype
			case 1
				//SetObjectreceiveShadow(obj,1)
			endcase
			
		endselect
		inc objectcounter
		set_object_value(objectcounter,obj,currenttexture)
		sync()
	endif
	if GetRawKeyPressed( key_r)
		if div=0
			rotx=rotx+45
			
			else
				rotx=rotx-45
		endif
		if rotx>270
			rotx=0
		endif
		SetObjectRotation(cursor,rotx,roty,rotz)
	endif
endfunction
function load_images()
	for n=1 to 200
		f$=str(n) + ".png"
		if getfileexists(f$)
			loadimage (n,f$)
			//SetImageWrapU(n,1)
			//SetImageWrapV(n,1)
		endif
	next
endfunction
function curvevalue(Destination#,Current#,Smooth#)
	Current#=Current#+((Destination#-Current#)/Smooth#)
endfunction Current#
function PI()
endfunction 3.14159265
function set_object_value(index,id,image)
	object[index].id=id
	object[index].i=image
	object[index].clone=clone
	object[index].x=cx
	object[index].y=cy
	object[index].z=cz
	object[index].sx=sx
	object[index].sy=sy
	object[index].sz=sz
	object[index].shadow=shadowtype
	object[index].rotx=rotx
	object[index].roty=roty
	object[index].rotz=rotz
	object[index].pb=pb
	object[index].ps=ps
	object[index].group=group
endfunction
function save_level(level)
	select gametype
		case 0
			f$="fps"
		endcase
		case 1
			f$="roller"
		endcase
		case 2
			f$="pool"
		endcase
		case 3
			f$="advent"
		endcase
	endselect
	f$=f$+str(level)
	f$=f$+".lev"
	if GetFileExists(f$)
		deletefile(f$)
	endif
	myfile=opentowrite(f$)
	writeinteger(myfile,objectcounter)
	for n=1 to maxobjects
		writeinteger(myfile,object[n].x)
		writeinteger(myfile,object[n].y)
		writeinteger(myfile,object[n].z)
		writeinteger(myfile,object[n].sx)
		writeinteger(myfile,object[n].sy)
		writeinteger(myfile,object[n].sz)
		writeinteger(myfile,object[n].id)
		writeinteger(myfile,object[n].i)
		writeinteger(myfile,object[n].clone)
		writeinteger(myfile,object[n].shadow)
		writeinteger(myfile,object[n].rotx)
		writeinteger(myfile,object[n].roty)
		writeinteger(myfile,object[n].rotz)
		writeinteger(myfile,object[n].pb)
		writeinteger(myfile,object[n].ps)
		writeinteger(myfile,object[n].group)
	next n
	closefile(myfile)

endfunction
function load_level(level)
	clear_level()
	select gametype
		case 0
			f$="fps"
		endcase
		case 1
			f$="roller"
		endcase
		case 2
			f$="pool"
		endcase
		case 3
			f$="advent"
		endcase
	endselect
	f$=f$+str(level)
	f$=f$+".lev"
	if getfileexists(f$)=1
		myfile=opentoread(f$)
		objectcounter=readinteger(myfile)

		for n=1 to maxobjects

			object[n].x =readinteger(myfile)
			object[n].y =readinteger(myfile)
			object[n].z =readinteger(myfile)
			object[n].sx=readfloat(myfile)
			object[n].sy=readfloat(myfile)
			object[n].sz=readfloat(myfile)
			object[n].id=readinteger(myfile)
			object[n].i=readinteger(myfile)
			object[n].clone=readinteger(myfile)
			object[n].shadow=readinteger(myfile)
			object[n].rotx=readinteger(myfile)
			object[n].roty=readinteger(myfile)
			object[n].rotz=readinteger(myfile)
			object[n].pb=readinteger(myfile)
			object[n].ps=readinteger(myfile)	
			object[n].group=readinteger(myfile)			
		next n
		closefile(myfile)
	endif
	for n=1 to maxobjects
		if object[n].id>0
			select object[n].Clone
				case 0
					//object[n].id=cloneobject(wall)
					object[n].id=CreateObjectBox(sx,sy,sz)
					//SetObjectNormalMap(object[n].id,11)
				endcase
			endselect
			//setobjectscale(object[n].id,object[n].sx#,object[n].sy#,object[n].sz#)
			setobjectposition(object[n].id,object[n].x,object[n].y,object[n].z)
			SetObjectRotation(object[n].id,object[n].rotx,object[n].roty,object[n].rotz)
			setobjectcolor(object[n].id,255,0,0,255)
			//setobjectimage(object[n].id,object[n].i,0)
			select object[n].shadow
				case 1
					//SetObjectreceiveShadow(object[n].id,1)
				endcase
			endselect

		endif
	next n
endfunction
function clear_level()
	for n=1 to maxobjects
		if getobjectexists(object[n].ID)
			deleteobject(object[n].ID)		
			object[n].x =0	
			object[n].y =0	
			object[n].z=0	
			object[n].sx=0	
			object[n].sy=0	
			object[n].sz =0
			object[n].id=0
			object[n].i=0
			object[n].clone=0
			object[n].pb=0
			object[n].ps=0
			object[n].group=0
		endif
	next n
	objectcounter=0
endfunction	
function create_my_text(number,x#,y#,size,r,g,b,mystring$,depth)
	createtext(number,mystring$)
	settextsize(number,size)
	settextcolor(number,r,g,b,255)
	SetTextPosition(number,x#,y#)
	FixTextToScreen(number,1)
	settextdepth(number,depth)
	//SetTextFontImage ( number, 2 )
endfunction
function create_my_editbox(number,x#,y#,bordersize#,r,g,b,backcolor,bsizex#,bsizey#,alpha,box$)
	createeditbox(number)
	SetEditBoxTextSize( number, 20) 
	SetEditBoxBorderSize(number,bordersize#)
	SetEditBoxTextColor(number,r,g,b)
	SetEditBoxBorderColor(number,r,g,b,alpha)
	SetEditBoxBackgroundColor( number, 0, 0, 0, alpha )
	seteditboxsize(number,bsizex#,bsizey#)
	SetEditBoxPosition(number,x#,y#)
	FixEditBoxToScreen(number,1)
	seteditboxdepth(number,0)
	SetEditBoxText(number,box$)
endfunction
function read_boxes()
	if getrawkeypressed(KEY_ENTER)
		repeat
			focus=GetCurrentEditBox()
			select focus
				case groupeditbox
					t$=geteditboxtext(groupeditbox)
					group=val(t$)
				endcase	
			case rxeditbox
				t$=geteditboxtext(rxeditbox)
				rotx=val(t$)
				setobjectrotation(cursor,rotx,roty,rotz)					
			endcase
			case ryeditbox
				t$=geteditboxtext(ryeditbox)
				roty=val(t$)
				setobjectrotation(cursor,rotx,roty,rotz)					
			endcase
			case rzeditbox
				t$=geteditboxtext(rzeditbox)
				rotz=val(t$)
				setobjectrotation(cursor,rotx,roty,rotz)					
			endcase
			case pseditbox
				t$=geteditboxtext(pseditbox)
				ps=val(t$)
				//setobjectrotation(curs,rx,ry,rz)					
			endcase
			case pbeditbox
				t$=geteditboxtext(pbeditbox)
				pb=val(t$)
				//setobjectrotation(curs,rx,ry,rz)					
			endcase								
			endselect
			sync()
		until GetRawKeyReleased(KEY_ENTER)
	endif
endfunction

I've remmed out a few things like textures and model loading and just simply making coloured boxes here..

Use mouse plus cursor keys and space-bar to place an object.. a+z raises/lowers 3d cursor .. F2 saves the level, c clears the level and f1 loads.. I would make one first then save it coz there is no error checking yet

it need "keys.agc" which looks like this

#constant	KEY_BACK		=	8
#constant	KEY_TAB			=	9
#constant	KEY_ENTER		=	13
#constant	KEY_SHIFT		=	16
#constant	KEY_CONTROL		=	17
#constant	KEY_ESCAPE		=	27
#constant	KEY_SPACE		=	32
#constant	KEY_PAGEUP		=	33
#constant	KEY_PAGEDOWN	=	34
#constant	KEY_END			=	35
#constant	KEY_HOME		=	36
#constant	KEY_LEFT		=	37
#constant	KEY_UP			=	38
#constant	KEY_RIGHT		=	39
#constant	KEY_DOWN		=	40
#constant	KEY_INSERT		=	45
#constant	KEY_DELETE		=	46
#constant	KEY_0			=	48
#constant	KEY_1			=	49
#constant	KEY_2			=	50
#constant	KEY_3			=	51
#constant	KEY_4			=	52
#constant	KEY_5			=	53
#constant	KEY_6			=	54
#constant	KEY_7			=	55
#constant	KEY_8			=	56 
#constant	KEY_9			=	57
#constant	KEY_A			=	65
#constant	KEY_B			=	66
#constant	KEY_C			=	67
#constant	KEY_D			=	68
#constant	KEY_E			=	69
#constant	KEY_F			=	70
#constant	KEY_G			=	71
#constant	KEY_H			=	72
#constant	KEY_I			=	73
#constant	KEY_J			=	74
#constant	KEY_K			=	75
#constant	KEY_L			=	76
#constant	KEY_M			=	77
#constant	KEY_N			=	78
#constant	KEY_O			=	79
#constant	KEY_P			=	80
#constant	KEY_Q			=	81
#constant	KEY_R			=	82
#constant	KEY_S			=	83
#constant	KEY_T			=	84
#constant	KEY_U			=	85
#constant	KEY_V			=	86
#constant	KEY_W			=	87
#constant	KEY_X			=	88
#constant	KEY_Y			=	89
#constant	KEY_Z			=	90
#constant	KEY_F1			=	112
#constant	KEY_F2			=	113
#constant	KEY_F3			=	114
#constant	KEY_F4			=	115
#constant	KEY_F5			=	116
#constant	KEY_F6			=	117
#constant	KEY_F7			=	118
#constant	KEY_F8			=	119
#constant	KEY_COMMA		=	188
#constant	KEY_PERIOD		=	190
#constant	KEY_SLASH		=   191
#constant	KEY_LBRACKET	=	219
#constant	KEY_RBRACKET	=	221

+ Code Snippet

#constant	KEY_BACK		=	8
#constant	KEY_TAB			=	9
#constant	KEY_ENTER		=	13
#constant	KEY_SHIFT		=	16
#constant	KEY_CONTROL		=	17
#constant	KEY_ESCAPE		=	27
#constant	KEY_SPACE		=	32
#constant	KEY_PAGEUP		=	33
#constant	KEY_PAGEDOWN	=	34
#constant	KEY_END			=	35
#constant	KEY_HOME		=	36
#constant	KEY_LEFT		=	37
#constant	KEY_UP			=	38
#constant	KEY_RIGHT		=	39
#constant	KEY_DOWN		=	40
#constant	KEY_INSERT		=	45
#constant	KEY_DELETE		=	46
#constant	KEY_0			=	48
#constant	KEY_1			=	49
#constant	KEY_2			=	50
#constant	KEY_3			=	51
#constant	KEY_4			=	52
#constant	KEY_5			=	53
#constant	KEY_6			=	54
#constant	KEY_7			=	55
#constant	KEY_8			=	56 
#constant	KEY_9			=	57
#constant	KEY_A			=	65
#constant	KEY_B			=	66
#constant	KEY_C			=	67
#constant	KEY_D			=	68
#constant	KEY_E			=	69
#constant	KEY_F			=	70
#constant	KEY_G			=	71
#constant	KEY_H			=	72
#constant	KEY_I			=	73
#constant	KEY_J			=	74
#constant	KEY_K			=	75
#constant	KEY_L			=	76
#constant	KEY_M			=	77
#constant	KEY_N			=	78
#constant	KEY_O			=	79
#constant	KEY_P			=	80
#constant	KEY_Q			=	81
#constant	KEY_R			=	82
#constant	KEY_S			=	83
#constant	KEY_T			=	84
#constant	KEY_U			=	85
#constant	KEY_V			=	86
#constant	KEY_W			=	87
#constant	KEY_X			=	88
#constant	KEY_Y			=	89
#constant	KEY_Z			=	90
#constant	KEY_F1			=	112
#constant	KEY_F2			=	113
#constant	KEY_F3			=	114
#constant	KEY_F4			=	115
#constant	KEY_F5			=	116
#constant	KEY_F6			=	117
#constant	KEY_F7			=	118
#constant	KEY_F8			=	119
#constant	KEY_COMMA		=	188
#constant	KEY_PERIOD		=	190
#constant	KEY_SLASH		=   191
#constant	KEY_LBRACKET	=	219
#constant	KEY_RBRACKET	=	221

I just want to know how to get rid of these lines,or what I am doing wrong, though reviewing the video they arent as noticeable on there, but a lot more in the program

Hail to the king, baby!

Back to top

Profile PM Website

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 29th Mar 2018 16:07

Link

I can't even see any white lines at all watching the video on my phone.

I will test the code to tonight. Off the top of my head I'd guess the lines are where two objects join? In that case maybe try fixing the joined object to the object it is being joined to. I haven't looked at the code so maybe you already are doing that.

TI/994a (BASIC) -> C64 (BASIC/PASCAL/ASM/Others) -> Amiga (AMOS/BLITZ/ASM/C/Gamesmith) -> DOS (C/C++/Allegro) -> Windows (C++/C#/Monkey X/GL Basic/Unity/Others)

Back to top

Profile PM

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 29th Mar 2018 18:53 Edited at: 29th Mar 2018 21:18

Link

I don't see any lines either aside from what looks like just part of the texture, nothing that stands out as unusual.

I guess I'm not sure what it is we are supposed to be seeing

http://games.joshkirklin.com/sulium

A single player RPG featuring a branching, player driven storyline of meaningful choices and multiple endings alongside challenging active combat and intelligent AI.

Back to top

Profile PM Email Website

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 29th Mar 2018 19:00

Link

Yeh I know right,it didnt look that way whilst editing, run the code and see yourself, best thing to do is view from the bottom drag zooming with mouse+lmb

Hail to the king, baby!

Back to top

Profile PM Website

janbo

15

Years of Service

User Offline

Joined: 10th Nov 2008

Location: Germany

Posted: 29th Mar 2018 19:16

Link

I think this is caused by the faces between the cubes.
The best you can do is to remove them.

Back to top

Profile PM Email Website

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 29th Mar 2018 20:37 Edited at: 29th Mar 2018 20:39

Link

yeh you was right,ended up deleting the face of the model I was using, hmmm, makes things awkward does that.
probably best to just scale plus texture repeat, and plan out first

Hail to the king, baby!

Back to top

Profile PM Website

PHeMoX

6

Years of Service

User Offline

Joined: 9th Jan 2018

Location:

Posted: 29th Mar 2018 21:10

Link

Did you check whether the texture has some transparency to it in it's alpha channel? It might be a case of the texture and not the placement of the cube models.

Back to top

Profile PM

puzzler2018

User Banned

Posted: 29th Mar 2018 21:19

Link

We got a few lines in minecraft, so will be fixing those face issues soon

Back to top

Profile

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 29th Mar 2018 22:57 Edited at: 30th Mar 2018 01:06

Link

weirdly if I add smooth to the object within blender , under tools/shading,with all faces intact, the lines disappear, without smooth, or in other words choosing flat,they reappear, would never have guessed that 1, I added it accidently, the code is back to its normal self using cloning of objects:

// Project: Crafter 
// Created: 2018-03-27

// set display properties
//#include ".\..\Templates\ShaderPack\Includes\ShaderPack.agc"
#include "keys.agc"
// Show all errors
SetErrorMode(2) 
SetWindowSize( 1024, 768, 1 )
// Set some display properties
SetVirtualResolution( 1024, 768 )
SetClearColor( 101, 120, 154 )
SetScissor( 0,0,0,0 )
//SetGenerateMipmaps( 1 )
//SetResolutionMode(1)
//SetImmersiveMode(1)
SetCameraRange( 1, 0.1, 2000 )
SetWindowAllowResize( 1 )

UseNewDefaultFonts( 1 )
SetPrintSize( 20 )
SetPrintColor( 255,0,0 )
setsunactive(1)
SetSkyBoxVisible(1)
//shadowMode = 3 // start with cascade shadow mapping which gives the best quality
//SetShadowMappingMode( shadowMode )
//SetShadowSmoothing( 2 ) // random sampling
//SetShadowMapSize( 512, 512)
//SetShadowRange( -1 ) // use the full camera range
//SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts

// show the sun, not necessary but improves the experience

#constant maxobjects=5000
dx# = -0.3714
dy# = -0.7428
dz# = 0.5571
//SetSunDirection( dx#, dy#, dz# )
//SetAmbientColor( 30,30,30 )
type Tobjects
	x as integer
	y as integer
	z as integer
	i as integer
	id as integer
	sx as integer
	sy as integer
	sz as integer
	shadow as integer
	clone as integer
	rotx as integer
	roty as integer
	rotz as integer
	group as integer
	pb as integer
	ps as integer
endtype
dim object[maxobjects] as Tobjects
global sx=60
global sy=60
global sz=60
global scx#=1
global scy#=1
global scz#=1
global cx=0
global cy=0
global cz=0
global CameraDistance#=-100
global cursor=6000
global shadowtype=1
global offset=0
global smooth#=0.01
global wall=1
global level=1
global gametype=0
global objectcounter=0
global currenttexture=12
global clone=1
global rotx=0
global roty=0
global rotz=0
global groupeditbox=1
global rxeditbox=2
global ryeditbox=3
global rzeditbox=4
global pbeditbox=5
global pseditbox=6
global basex#=1
global basey#=10
global xgap#=110
global ygap#=30
global group=0
global pb=1
global ps=2
load_images()
init()

repeat
		FrameTime#=GetFrameTime()
	//Print( ScreenFPS() )
	if GetPointerPressed()=1
		PointerStartX#=GetPointerX()
		PointerStartY#=GetPointerY()
	endif
	if GetPointerState()=1
		PointerX#=GetPointerX()
		PointerY#=GetPointerY()
		//calculate the distance the pointer traveled while pressing
		PointerDistX#=PointerX#-PointerStartX#
		PointerDistY#=PointerY#-PointerStartY#
		// here we calculate if we swipe vertically or horizontally
		if abs(PointerDistX#)>abs(PointerDistY#)
		// change the camera angle in dependence of the frametime
			CameraAngleY#=CameraAngleY#-PointerDistX#*1.5*FrameTime#
			else
				// change the camera distance in dependence of the frametime
				CameraDistance#=CameraDistance#-PointerDistY#*1.1*FrameTime#
		endif
	endif
	Sin#=sin(CameraAngleY#)
	Cos#=cos(CameraAngleY#)
	// calculate the camera position, with curvevalue for the smooth movement
	CameraX#=curvevalue(sin(CameraAngleY#),CameraX#,3)
	CameraZ#=curvevalue(cos(CameraAngleY#),CameraZ#,3)	
    control()
	if GetRawKeyPressed( key_q )
		quit=1
	endif
	SetObjectPosition(cursor,cx,cy,cz)
	setcameraposition(1,cx+CameraDistance#*0.6*CameraX#,cy-CameraDistance#-offset*20,cz-CameraDistance#*0.6*CameraZ#)
	SetCameraLookAt(1,cx,cy,cz,0)
    Print( ScreenFPS() )
     Print( Str(objectcounter) )
    Sync()
until quit
function init()
	create_my_editbox(groupeditbox,basex#+xgap#,basey#,2,255,0,0,0,40,20,255,str(group))
	create_my_editbox(rxeditbox,basex#+xgap#,basey#+ygap#,2,255,0,0,0,40,20,255,"0")
	create_my_editbox(ryeditbox,basex#+xgap#,basey#+ygap#*2,2,255,0,0,0,40,20,255,"0")
	create_my_editbox(rzeditbox,basex#+xgap#,basey#+ygap#*3,2,255,0,0,0,40,20,255,"0")
	create_my_text(groupeditbox,basex#,basey#,25,255,0,0,"Group",0)
	create_my_text(rxeditbox,basex#,basey#+ygap#,25,255,0,0,"Rotate X",0)
	create_my_text(ryeditbox,basex#,basey#+ygap#*2,25,255,0,0,"Rotate Y",0)
	create_my_text(rzeditbox,basex#,basey#+ygap#*3,25,255,0,0,"Rotate Z",0)	
create_my_editbox(pbeditbox,basex#+xgap#*2.5,basey#,2,255,0,0,0,40,20,255,"1")
	create_my_editbox(pseditbox,basex#+xgap#*2.5,basey#+ygap#,2,255,0,0,0,40,20,255,"2")	
	wall=loadobject("stonewall2.obj")
	SetObjectposition(wall,1000000,1000000,1000000)
	//cursor=CreateObjectBox(sx,sy,sz)
	cursor=cloneobject(wall)
	SetObjectScale(cursor,scx#,scy#,scz#)
	SetObjectcolor(cursor,200,0,0,255)
	//SetObjectImage(cursor,1,0)
	SetObjectTransparency(cursor,1)
	SetObjectPosition(cursor,cx,cy,cz)

endfunction
function control()
	read_boxes()
	if GetRawKeyreleased (key_F1)
		load_level(level)
	endif
	if GetRawKeyreleased (key_F2)
		save_level(level)
	endif
	if GetRawKeyreleased (key_c)
		clear_level()
	endif
	if getrawkeystate(KEY_CONTROL)
		div=4
		else
		div=0
	endif
	if GetRawKeyPressed( key_left)
		if div=0
			cx=cx-GetObjectSizeMinX(cursor)
			else
				cx=cx+smooth#
		endif
	endif
	if GetRawKeyPressed( key_right)
		if div=0
			cx=cx+GetObjectSizeMinX(cursor)
			else
				cx=cx-smooth#
		endif
	endif
	if GetRawKeyPressed( key_up)
		cz=cz+GetObjectSizeMinz(cursor)
	endif
	if GetRawKeyPressed( key_down)
		cz=cz-GetObjectSizeMinz(cursor)
	endif
	if GetRawKeyPressed( key_a)
		cy=cy-GetObjectSizeMiny(cursor)
	endif
	if GetRawKeyPressed( key_z)
		cy=cy+GetObjectSizeMiny(cursor)
	endif								
	if GetRawKeyreleased (key_space)
		obj=cloneobject(wall)
		//obj=CreateObjectBox(sx,sy,sz)
		SetObjectScale(obj,scx#,scy#,scz#)
		SetObjectPosition(obj,cx,cy,cz)
		SetObjectRotation(obj,rotx,roty,rotz)
		//SetObjectImage(obj,currenttexture,0)
		SetObjectcolor(obj,200,0,0,255)
		//SetObjectNormalMap(obj,11)
			select shadowtype
			case 1
				//SetObjectreceiveShadow(obj,1)
			endcase
			
		endselect
		inc objectcounter
		set_object_value(objectcounter,obj,currenttexture)
		sync()
	endif
	if GetRawKeyPressed( key_r)
		if div=0
			rotx=rotx+45
			
			else
				rotx=rotx-45
		endif
		if rotx>270
			rotx=0
		endif
		SetObjectRotation(cursor,rotx,roty,rotz)
	endif
endfunction
function load_images()
	for n=1 to 200
		f$=str(n) + ".png"
		if getfileexists(f$)
			loadimage (n,f$)
			//SetImageWrapU(n,1)
			//SetImageWrapV(n,1)
		endif
	next
endfunction
function curvevalue(Destination#,Current#,Smooth#)
	Current#=Current#+((Destination#-Current#)/Smooth#)
endfunction Current#
function PI()
endfunction 3.14159265
function set_object_value(index,id,image)
	object[index].id=id
	object[index].i=image
	object[index].clone=clone
	object[index].x=cx
	object[index].y=cy
	object[index].z=cz
	object[index].sx=sx
	object[index].sy=sy
	object[index].sz=sz
	object[index].shadow=shadowtype
	object[index].rotx=rotx
	object[index].roty=roty
	object[index].rotz=rotz
	object[index].pb=pb
	object[index].ps=ps
	object[index].group=group
endfunction
function save_level(level)
	select gametype
		case 0
			f$="fps"
		endcase
		case 1
			f$="roller"
		endcase
		case 2
			f$="pool"
		endcase
		case 3
			f$="advent"
		endcase
	endselect
	f$=f$+str(level)
	f$=f$+".lev"
	if GetFileExists(f$)
		deletefile(f$)
	endif
	myfile=opentowrite(f$)
	writeinteger(myfile,objectcounter)
	for n=1 to maxobjects
		writeinteger(myfile,object[n].x)
		writeinteger(myfile,object[n].y)
		writeinteger(myfile,object[n].z)
		writeinteger(myfile,object[n].sx)
		writeinteger(myfile,object[n].sy)
		writeinteger(myfile,object[n].sz)
		writeinteger(myfile,object[n].id)
		writeinteger(myfile,object[n].i)
		writeinteger(myfile,object[n].clone)
		writeinteger(myfile,object[n].shadow)
		writeinteger(myfile,object[n].rotx)
		writeinteger(myfile,object[n].roty)
		writeinteger(myfile,object[n].rotz)
		writeinteger(myfile,object[n].pb)
		writeinteger(myfile,object[n].ps)
		writeinteger(myfile,object[n].group)
	next n
	closefile(myfile)

endfunction
function load_level(level)
	clear_level()
	select gametype
		case 0
			f$="fps"
		endcase
		case 1
			f$="roller"
		endcase
		case 2
			f$="pool"
		endcase
		case 3
			f$="advent"
		endcase
	endselect
	f$=f$+str(level)
	f$=f$+".lev"
	if getfileexists(f$)=1
		myfile=opentoread(f$)
		objectcounter=readinteger(myfile)

for n=1 to maxobjects

object[n].x =readinteger(myfile)
			object[n].y =readinteger(myfile)
			object[n].z =readinteger(myfile)
			object[n].sx=readfloat(myfile)
			object[n].sy=readfloat(myfile)
			object[n].sz=readfloat(myfile)
			object[n].id=readinteger(myfile)
			object[n].i=readinteger(myfile)
			object[n].clone=readinteger(myfile)
			object[n].shadow=readinteger(myfile)
			object[n].rotx=readinteger(myfile)
			object[n].roty=readinteger(myfile)
			object[n].rotz=readinteger(myfile)
			object[n].pb=readinteger(myfile)
			object[n].ps=readinteger(myfile)	
			object[n].group=readinteger(myfile)			
		next n
		closefile(myfile)
	endif
	for n=1 to maxobjects
		if object[n].id>0
			//select object[n].Clone
				//case 0
					object[n].id=cloneobject(wall)
					//object[n].id=CreateObjectBox(sx,sy,sz)
					//SetObjectNormalMap(object[n].id,11)
				//endcase
			//endselect
			//setobjectscale(object[n].id,object[n].sx#,object[n].sy#,object[n].sz#)
			setobjectposition(object[n].id,object[n].x,object[n].y,object[n].z)
			SetObjectRotation(object[n].id,object[n].rotx,object[n].roty,object[n].rotz)
			//setobjectimage(object[n].id,object[n].i,0)
			SetObjectcolor(object[n].id,200,0,0,255)
			select object[n].shadow
				case 1
					//SetObjectreceiveShadow(object[n].id,1)
				endcase
			endselect

endif
	next n
endfunction
function clear_level()
	for n=1 to maxobjects
		if getobjectexists(object[n].ID)
			deleteobject(object[n].ID)		
			object[n].x =0	
			object[n].y =0	
			object[n].z=0	
			object[n].sx=0	
			object[n].sy=0	
			object[n].sz =0
			object[n].id=0
			object[n].i=0
			object[n].clone=0
			object[n].pb=0
			object[n].ps=0
			object[n].group=0
		endif
	next n
	objectcounter=0
endfunction	
function create_my_text(number,x#,y#,size,r,g,b,mystring$,depth)
	createtext(number,mystring$)
	settextsize(number,size)
	settextcolor(number,r,g,b,255)
	SetTextPosition(number,x#,y#)
	FixTextToScreen(number,1)
	settextdepth(number,depth)
	//SetTextFontImage ( number, 2 )
endfunction
function create_my_editbox(number,x#,y#,bordersize#,r,g,b,backcolor,bsizex#,bsizey#,alpha,box$)
	createeditbox(number)
	SetEditBoxTextSize( number, 20) 
	SetEditBoxBorderSize(number,bordersize#)
	SetEditBoxTextColor(number,r,g,b)
	SetEditBoxBorderColor(number,r,g,b,alpha)
	SetEditBoxBackgroundColor( number, 0, 0, 0, alpha )
	seteditboxsize(number,bsizex#,bsizey#)
	SetEditBoxPosition(number,x#,y#)
	FixEditBoxToScreen(number,1)
	seteditboxdepth(number,0)
	SetEditBoxText(number,box$)
endfunction
function read_boxes()
	if getrawkeypressed(KEY_ENTER)
		repeat
			focus=GetCurrentEditBox()
			select focus
				case groupeditbox
					t$=geteditboxtext(groupeditbox)
					group=val(t$)
				endcase	
			case rxeditbox
				t$=geteditboxtext(rxeditbox)
				rotx=val(t$)
				setobjectrotation(cursor,rotx,roty,rotz)					
			endcase
			case ryeditbox
				t$=geteditboxtext(ryeditbox)
				roty=val(t$)
				setobjectrotation(cursor,rotx,roty,rotz)					
			endcase
			case rzeditbox
				t$=geteditboxtext(rzeditbox)
				rotz=val(t$)
				setobjectrotation(cursor,rotx,roty,rotz)					
			endcase
			case pseditbox
				t$=geteditboxtext(pseditbox)
				ps=val(t$)
				//setobjectrotation(curs,rx,ry,rz)					
			endcase
			case pbeditbox
				t$=geteditboxtext(pbeditbox)
				pb=val(t$)
				//setobjectrotation(curs,rx,ry,rz)					
			endcase								
			endselect
			sync()
		until GetRawKeyReleased(KEY_ENTER)
	endif
endfunction

+ Code Snippet


// Project: Crafter 
// Created: 2018-03-27

// set display properties
//#include ".\..\Templates\ShaderPack\Includes\ShaderPack.agc"
#include "keys.agc"
// Show all errors
SetErrorMode(2) 
SetWindowSize( 1024, 768, 1 )
// Set some display properties
SetVirtualResolution( 1024, 768 )
SetClearColor( 101, 120, 154 )
SetScissor( 0,0,0,0 )
//SetGenerateMipmaps( 1 )
//SetResolutionMode(1)
//SetImmersiveMode(1)
SetCameraRange( 1, 0.1, 2000 )
SetWindowAllowResize( 1 )

UseNewDefaultFonts( 1 )
SetPrintSize( 20 )
SetPrintColor( 255,0,0 )
setsunactive(1)
SetSkyBoxVisible(1)
//shadowMode = 3 // start with cascade shadow mapping which gives the best quality
//SetShadowMappingMode( shadowMode )
//SetShadowSmoothing( 2 ) // random sampling
//SetShadowMapSize( 512, 512)
//SetShadowRange( -1 ) // use the full camera range
//SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts

// show the sun, not necessary but improves the experience

#constant maxobjects=5000
dx# = -0.3714
dy# = -0.7428
dz# = 0.5571
//SetSunDirection( dx#, dy#, dz# )
//SetAmbientColor( 30,30,30 )
type Tobjects
	x as integer
	y as integer
	z as integer
	i as integer
	id as integer
	sx as integer
	sy as integer
	sz as integer
	shadow as integer
	clone as integer
	rotx as integer
	roty as integer
	rotz as integer
	group as integer
	pb as integer
	ps as integer
endtype
dim object[maxobjects] as Tobjects
global sx=60
global sy=60
global sz=60
global scx#=1
global scy#=1
global scz#=1
global cx=0
global cy=0
global cz=0
global CameraDistance#=-100
global cursor=6000
global shadowtype=1
global offset=0
global smooth#=0.01
global wall=1
global level=1
global gametype=0
global objectcounter=0
global currenttexture=12
global clone=1
global rotx=0
global roty=0
global rotz=0
global groupeditbox=1
global rxeditbox=2
global ryeditbox=3
global rzeditbox=4
global pbeditbox=5
global pseditbox=6
global basex#=1
global basey#=10
global xgap#=110
global ygap#=30
global group=0
global pb=1
global ps=2
load_images()
init()

repeat
		FrameTime#=GetFrameTime()
	//Print( ScreenFPS() )
	if GetPointerPressed()=1
		PointerStartX#=GetPointerX()
		PointerStartY#=GetPointerY()
	endif
	if GetPointerState()=1
		PointerX#=GetPointerX()
		PointerY#=GetPointerY()
		//calculate the distance the pointer traveled while pressing
		PointerDistX#=PointerX#-PointerStartX#
		PointerDistY#=PointerY#-PointerStartY#
		// here we calculate if we swipe vertically or horizontally
		if abs(PointerDistX#)>abs(PointerDistY#)
		// change the camera angle in dependence of the frametime
			CameraAngleY#=CameraAngleY#-PointerDistX#*1.5*FrameTime#
			else
				// change the camera distance in dependence of the frametime
				CameraDistance#=CameraDistance#-PointerDistY#*1.1*FrameTime#
		endif
	endif
	Sin#=sin(CameraAngleY#)
	Cos#=cos(CameraAngleY#)
	// calculate the camera position, with curvevalue for the smooth movement
	CameraX#=curvevalue(sin(CameraAngleY#),CameraX#,3)
	CameraZ#=curvevalue(cos(CameraAngleY#),CameraZ#,3)	
    control()
	if GetRawKeyPressed( key_q )
		quit=1
	endif
	SetObjectPosition(cursor,cx,cy,cz)
	setcameraposition(1,cx+CameraDistance#*0.6*CameraX#,cy-CameraDistance#-offset*20,cz-CameraDistance#*0.6*CameraZ#)
	SetCameraLookAt(1,cx,cy,cz,0)
    Print( ScreenFPS() )
     Print( Str(objectcounter) )
    Sync()
until quit
function init()
	create_my_editbox(groupeditbox,basex#+xgap#,basey#,2,255,0,0,0,40,20,255,str(group))
	create_my_editbox(rxeditbox,basex#+xgap#,basey#+ygap#,2,255,0,0,0,40,20,255,"0")
	create_my_editbox(ryeditbox,basex#+xgap#,basey#+ygap#*2,2,255,0,0,0,40,20,255,"0")
	create_my_editbox(rzeditbox,basex#+xgap#,basey#+ygap#*3,2,255,0,0,0,40,20,255,"0")
	create_my_text(groupeditbox,basex#,basey#,25,255,0,0,"Group",0)
	create_my_text(rxeditbox,basex#,basey#+ygap#,25,255,0,0,"Rotate X",0)
	create_my_text(ryeditbox,basex#,basey#+ygap#*2,25,255,0,0,"Rotate Y",0)
	create_my_text(rzeditbox,basex#,basey#+ygap#*3,25,255,0,0,"Rotate Z",0)	
create_my_editbox(pbeditbox,basex#+xgap#*2.5,basey#,2,255,0,0,0,40,20,255,"1")
	create_my_editbox(pseditbox,basex#+xgap#*2.5,basey#+ygap#,2,255,0,0,0,40,20,255,"2")	
	wall=loadobject("stonewall2.obj")
	SetObjectposition(wall,1000000,1000000,1000000)
	//cursor=CreateObjectBox(sx,sy,sz)
	cursor=cloneobject(wall)
	SetObjectScale(cursor,scx#,scy#,scz#)
	SetObjectcolor(cursor,200,0,0,255)
	//SetObjectImage(cursor,1,0)
	SetObjectTransparency(cursor,1)
	SetObjectPosition(cursor,cx,cy,cz)

endfunction
function control()
	read_boxes()
	if GetRawKeyreleased (key_F1)
		load_level(level)
	endif
	if GetRawKeyreleased (key_F2)
		save_level(level)
	endif
	if GetRawKeyreleased (key_c)
		clear_level()
	endif
	if getrawkeystate(KEY_CONTROL)
		div=4
		else
		div=0
	endif
	if GetRawKeyPressed( key_left)
		if div=0
			cx=cx-GetObjectSizeMinX(cursor)
			else
				cx=cx+smooth#
		endif
	endif
	if GetRawKeyPressed( key_right)
		if div=0
			cx=cx+GetObjectSizeMinX(cursor)
			else
				cx=cx-smooth#
		endif
	endif
	if GetRawKeyPressed( key_up)
		cz=cz+GetObjectSizeMinz(cursor)
	endif
	if GetRawKeyPressed( key_down)
		cz=cz-GetObjectSizeMinz(cursor)
	endif
	if GetRawKeyPressed( key_a)
		cy=cy-GetObjectSizeMiny(cursor)
	endif
	if GetRawKeyPressed( key_z)
		cy=cy+GetObjectSizeMiny(cursor)
	endif								
	if GetRawKeyreleased (key_space)
		obj=cloneobject(wall)
		//obj=CreateObjectBox(sx,sy,sz)
		SetObjectScale(obj,scx#,scy#,scz#)
		SetObjectPosition(obj,cx,cy,cz)
		SetObjectRotation(obj,rotx,roty,rotz)
		//SetObjectImage(obj,currenttexture,0)
		SetObjectcolor(obj,200,0,0,255)
		//SetObjectNormalMap(obj,11)
			select shadowtype
			case 1
				//SetObjectreceiveShadow(obj,1)
			endcase
			
		endselect
		inc objectcounter
		set_object_value(objectcounter,obj,currenttexture)
		sync()
	endif
	if GetRawKeyPressed( key_r)
		if div=0
			rotx=rotx+45
			
			else
				rotx=rotx-45
		endif
		if rotx>270
			rotx=0
		endif
		SetObjectRotation(cursor,rotx,roty,rotz)
	endif
endfunction
function load_images()
	for n=1 to 200
		f$=str(n) + ".png"
		if getfileexists(f$)
			loadimage (n,f$)
			//SetImageWrapU(n,1)
			//SetImageWrapV(n,1)
		endif
	next
endfunction
function curvevalue(Destination#,Current#,Smooth#)
	Current#=Current#+((Destination#-Current#)/Smooth#)
endfunction Current#
function PI()
endfunction 3.14159265
function set_object_value(index,id,image)
	object[index].id=id
	object[index].i=image
	object[index].clone=clone
	object[index].x=cx
	object[index].y=cy
	object[index].z=cz
	object[index].sx=sx
	object[index].sy=sy
	object[index].sz=sz
	object[index].shadow=shadowtype
	object[index].rotx=rotx
	object[index].roty=roty
	object[index].rotz=rotz
	object[index].pb=pb
	object[index].ps=ps
	object[index].group=group
endfunction
function save_level(level)
	select gametype
		case 0
			f$="fps"
		endcase
		case 1
			f$="roller"
		endcase
		case 2
			f$="pool"
		endcase
		case 3
			f$="advent"
		endcase
	endselect
	f$=f$+str(level)
	f$=f$+".lev"
	if GetFileExists(f$)
		deletefile(f$)
	endif
	myfile=opentowrite(f$)
	writeinteger(myfile,objectcounter)
	for n=1 to maxobjects
		writeinteger(myfile,object[n].x)
		writeinteger(myfile,object[n].y)
		writeinteger(myfile,object[n].z)
		writeinteger(myfile,object[n].sx)
		writeinteger(myfile,object[n].sy)
		writeinteger(myfile,object[n].sz)
		writeinteger(myfile,object[n].id)
		writeinteger(myfile,object[n].i)
		writeinteger(myfile,object[n].clone)
		writeinteger(myfile,object[n].shadow)
		writeinteger(myfile,object[n].rotx)
		writeinteger(myfile,object[n].roty)
		writeinteger(myfile,object[n].rotz)
		writeinteger(myfile,object[n].pb)
		writeinteger(myfile,object[n].ps)
		writeinteger(myfile,object[n].group)
	next n
	closefile(myfile)

endfunction
function load_level(level)
	clear_level()
	select gametype
		case 0
			f$="fps"
		endcase
		case 1
			f$="roller"
		endcase
		case 2
			f$="pool"
		endcase
		case 3
			f$="advent"
		endcase
	endselect
	f$=f$+str(level)
	f$=f$+".lev"
	if getfileexists(f$)=1
		myfile=opentoread(f$)
		objectcounter=readinteger(myfile)

		for n=1 to maxobjects

			object[n].x =readinteger(myfile)
			object[n].y =readinteger(myfile)
			object[n].z =readinteger(myfile)
			object[n].sx=readfloat(myfile)
			object[n].sy=readfloat(myfile)
			object[n].sz=readfloat(myfile)
			object[n].id=readinteger(myfile)
			object[n].i=readinteger(myfile)
			object[n].clone=readinteger(myfile)
			object[n].shadow=readinteger(myfile)
			object[n].rotx=readinteger(myfile)
			object[n].roty=readinteger(myfile)
			object[n].rotz=readinteger(myfile)
			object[n].pb=readinteger(myfile)
			object[n].ps=readinteger(myfile)	
			object[n].group=readinteger(myfile)			
		next n
		closefile(myfile)
	endif
	for n=1 to maxobjects
		if object[n].id>0
			//select object[n].Clone
				//case 0
					object[n].id=cloneobject(wall)
					//object[n].id=CreateObjectBox(sx,sy,sz)
					//SetObjectNormalMap(object[n].id,11)
				//endcase
			//endselect
			//setobjectscale(object[n].id,object[n].sx#,object[n].sy#,object[n].sz#)
			setobjectposition(object[n].id,object[n].x,object[n].y,object[n].z)
			SetObjectRotation(object[n].id,object[n].rotx,object[n].roty,object[n].rotz)
			//setobjectimage(object[n].id,object[n].i,0)
			SetObjectcolor(object[n].id,200,0,0,255)
			select object[n].shadow
				case 1
					//SetObjectreceiveShadow(object[n].id,1)
				endcase
			endselect

		endif
	next n
endfunction
function clear_level()
	for n=1 to maxobjects
		if getobjectexists(object[n].ID)
			deleteobject(object[n].ID)		
			object[n].x =0	
			object[n].y =0	
			object[n].z=0	
			object[n].sx=0	
			object[n].sy=0	
			object[n].sz =0
			object[n].id=0
			object[n].i=0
			object[n].clone=0
			object[n].pb=0
			object[n].ps=0
			object[n].group=0
		endif
	next n
	objectcounter=0
endfunction	
function create_my_text(number,x#,y#,size,r,g,b,mystring$,depth)
	createtext(number,mystring$)
	settextsize(number,size)
	settextcolor(number,r,g,b,255)
	SetTextPosition(number,x#,y#)
	FixTextToScreen(number,1)
	settextdepth(number,depth)
	//SetTextFontImage ( number, 2 )
endfunction
function create_my_editbox(number,x#,y#,bordersize#,r,g,b,backcolor,bsizex#,bsizey#,alpha,box$)
	createeditbox(number)
	SetEditBoxTextSize( number, 20) 
	SetEditBoxBorderSize(number,bordersize#)
	SetEditBoxTextColor(number,r,g,b)
	SetEditBoxBorderColor(number,r,g,b,alpha)
	SetEditBoxBackgroundColor( number, 0, 0, 0, alpha )
	seteditboxsize(number,bsizex#,bsizey#)
	SetEditBoxPosition(number,x#,y#)
	FixEditBoxToScreen(number,1)
	seteditboxdepth(number,0)
	SetEditBoxText(number,box$)
endfunction
function read_boxes()
	if getrawkeypressed(KEY_ENTER)
		repeat
			focus=GetCurrentEditBox()
			select focus
				case groupeditbox
					t$=geteditboxtext(groupeditbox)
					group=val(t$)
				endcase	
			case rxeditbox
				t$=geteditboxtext(rxeditbox)
				rotx=val(t$)
				setobjectrotation(cursor,rotx,roty,rotz)					
			endcase
			case ryeditbox
				t$=geteditboxtext(ryeditbox)
				roty=val(t$)
				setobjectrotation(cursor,rotx,roty,rotz)					
			endcase
			case rzeditbox
				t$=geteditboxtext(rzeditbox)
				rotz=val(t$)
				setobjectrotation(cursor,rotx,roty,rotz)					
			endcase
			case pseditbox
				t$=geteditboxtext(pseditbox)
				ps=val(t$)
				//setobjectrotation(curs,rx,ry,rz)					
			endcase
			case pbeditbox
				t$=geteditboxtext(pbeditbox)
				pb=val(t$)
				//setobjectrotation(curs,rx,ry,rz)					
			endcase								
			endselect
			sync()
		until GetRawKeyReleased(KEY_ENTER)
	endif
endfunction

I attached the model so you can see this..atm it has smoothing, so no lines, but if you import it into blender, make it flat..export--test .. you will see the lines come back
So for me this is a fix,of course you cannot do such actions as smooth object with the built in primitive commands of AppGameKit, so no use for your minecraft. I had a look at that code once btw for the MineCraft..looked very nice. Wouldn't be that hard to change it into using object cloning like I am doing. But of course using an external model like the one attached with smooth. It just needs the UV's fixing now...

Hail to the king, baby!

Attachments

Login to view attachments

Back to top

Profile PM Website

Golelorn

7

Years of Service

User Offline

Joined: 20th Nov 2016

Location:

Posted: 30th Mar 2018 03:43

Link

Looks like maybe there is a bit of white showing due to untextured mesh. The smoothing might just change the view enough where you can't see the untextured part.

Back to top

Profile PM

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 30th Mar 2018 07:34 Edited at: 30th Mar 2018 15:10

Link

bah,this is getting odd, apparently as soon as the shadows are added the lines seem to go, you can see it happen if you create a few blocks stacked up, press F2 to save, press c to clear then f1 to load, thanks to the short delay I put in you see it happen...not sure yet though,will have to add lights and such

Hail to the king, baby!

Attachments

Login to view attachments

Back to top

Profile PM Website

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 30th Mar 2018 12:53 Edited at: 30th Mar 2018 15:04

Link

just mess around with it

Hail to the king, baby!

Attachments

Login to view attachments

Back to top

Profile PM Website

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 31st Mar 2018 08:21

Link

nope ,cant get rid of the lines,I give up, this ruins everything

Hail to the king, baby!

Back to top

Profile PM Website

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 1st Apr 2018 02:59

Link

I downloaded the project and tested but I cannot see any lines at all. Everything is rock solid and flawlessly displayed.

Is there a certain thing I can do to try to get the lines to show up?

Here is what I did to test it...

Just an FYI... I uploaded that as Unlisted so it won't show up unless a person knows the direct link to it.

TI/994a (BASIC) -> C64 (BASIC/PASCAL/ASM/Others) -> Amiga (AMOS/BLITZ/ASM/C/Gamesmith) -> DOS (C/C++/Allegro) -> Windows (C++/C#/Monkey X/GL Basic/Unity/Others)

Back to top

Profile PM

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 1st Apr 2018 07:41 Edited at: 2nd Apr 2018 09:18

Link

weird innit, I defo dont imagine them..anyhow..went back to my old code which has non..lol

It did have problems in other departments and was acting up on mobiles,it got messy after introducing cloning on top of using built in primitives which is what it was originally built on, now I have stripped out these and just clone external objects for the better UV-íng

this is how far I got:

I spent yesterday simply debugging and sorting it out, it is way more complete than that other, rather annoying,one..
It has a few more game modes like adventure,pool/golf ..
Just messing with settings on the normal map, seeing the difference,some have normal,some dont, in the vid

Try stacking with the one you have.. A+Z to move up/down

Hail to the king, baby!

Back to top

Profile PM Website

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 2nd Apr 2018 12:33 Edited at: 2nd Apr 2018 12:36

Link

Ok,woke up this morning with a thought,went to my nvidia settings,and changed the 3D settings to quality, sure enough..no more lines.. lol

Ah well, on the plus side I gave away some code.

Hail to the king, baby!

Back to top

Profile PM Website

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 2nd Apr 2018 14:25 Edited at: 2nd Apr 2018 14:26

Link

LOL! I was going to mention updating your vc drivers but figured you had done that.

Well that makes sense. You hit on something... how many people out there may have their settings on performance. Many of them with older machines. Makes you wonder how many times when someone complains about artifacts and glitches in display / graphics on a Steam (or other) game it is something like this.

Glad you sorted it out!

TI/994a (BASIC) -> C64 (BASIC/PASCAL/ASM/Others) -> Amiga (AMOS/BLITZ/ASM/C/Gamesmith) -> DOS (C/C++/Allegro) -> Windows (C++/C#/Monkey X/GL Basic/Unity/Others)

Back to top

Profile PM

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 2nd Apr 2018 19:00 Edited at: 2nd Apr 2018 19:02

Link

Yeh,forgot I had changed them months ago for bitcoin mining, gotta love old age and memory (lack of)
But there is a plus side to everything, I will forget about this stupidity soon.

Hail to the king, baby!

Back to top

Profile PM Website

Mobiius

Valued Member

21

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 3rd Apr 2018 08:30

Link

You could try increase the size of objects by 0.001 pixels so they overlap very slightly.

Click here for VR Legend of Zelda stuff

Back to top

Profile PM Email Website

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 3rd Apr 2018 10:27 Edited at: 3rd Apr 2018 10:42

Link

it was just the nvidia setting,it didnt even matter if I overlapped,they still showed through, funnily it shows the effect on the nvidia logo when you change from quality > performance setting, the white lines!! or it looks that way, I think basically performance makes these edges jagged, this jaggedness show through and above the face slightly. Probably around 0.001 pixels yeh...

Hail to the king, baby!

Back to top

Profile PM Website

Sorry your browser is not supported!

AppGameKit Classic Chat / weird white line on 3D objects

Attachments

Attachments

Attachments