Some usefull 2D and 3D tools effects and snippets

Author

Message

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 10th Feb 2019 21:16 Edited at: 7th Mar 2019 23:58

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

//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

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
Right Clicking an Object moves camera to concentrate on that object (ie so it would rotate around that object)
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

fubar

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 11th Feb 2019 12:43 Edited at: 11th Feb 2019 12:49

Link

Hi fubarpk

Nice programm . I tested loading and placing two objects pressing f1 and f2 ...then I try to load and couldn't fine file ...I just checked every thing in media folder and realize that the file created was "tetest.data" ....it should be "test.data" instead of tetest.data so it was easy to find where was the error ...in line 96 , instead of :

Quote: "saveData(objects,"raw:"+left(ret$,len(ret$)-(len(objects[current].name)+1))+"test.data")"

... I had to write

saveData(objects,"raw:"+left(ret$,len(ret$)-(len(objects[current].name)+3))+"test.data")

with this change, I can now save both objects and load them again pressing L key
When I load a third object and save it again it just is not there...

I realize aswell that when we scale object and save, ....when load it, the object doesn't keep the scaling... I think that should be easy to mend just setting object pivot ...and setting object permanent scale.
I could with object pivot but couldn't with setobjectscalepermanent

.

It is not a criticism but rather an observation any way with some adjustements is a good snippet

Edit.
When I place the object and try to save again I have a path error .

I'm not a grumpy grandpa

Attachments

Login to view attachments

Back to top

Profile PM Email

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 11th Feb 2019 13:07 Edited at: 11th Feb 2019 13:49

Link

Thanks Chafari
just something I threw together out of necessity

Quote: "saveData(objects,"raw:"+left(ret$,len(ret$)-(len(objects[current].name)+3))+"test.data")"

strange cos 1 works well for me the idea it just determines the raw path by subtracting the length of the last object name as the lengths begin at zero I needed to add one
I seem to recall you saying something about using Vista or something that may be the issue not really sure

Quote: "When I load a third object and save it again it just is not there..."

not sure it may be the array objects will look later I thought if I deleted everything in the array and if I set current to -1 it would work

Quote: "I realize aswell that when we scale object and save, ....when load it, the object doesn't keep the scaling"

the command is there in loadobjects just commented out

+ Code Snippet

//SetObjectScale(myObject.ID,ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)),ValFloat(GetStringToken(myString$," ",3)))

Quote: "When I place the object and try to save again I have a path error ."

I think that's because you have loaded with test.data and not loaded another object to get a new path to save to and test.data having a different extension
I should have a variable that sets it so as the file wont save again unless there is changes and perhaps a message displaying if saved or not

Hahahah its bound to have a few bugs I just whipped it up hoping it could be of help to me but thought ide share, it was painstaking trying to place the billboards in KrazyGrandPrix otherwise

EDITED the above code to only allow saves when there is changes and some message boxes so as can see whats happening

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: 13th Feb 2019 01:21 Edited at: 13th Feb 2019 07:33

Link

A Shatter-Sprite Routine
was experimenting with a shatter routine for 2D like I have used for 3D in the Past
could be used when you don't have an exploding sprite animation I guess. The 3D
version is much more effective

// Project: ShatterSprite 
// Created: 2019-02-13

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "ShatterSprite" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

type _SprBlock
    OldID as integer
    ID as integer       //the id of the object
    imgID as integer
    xPos as integer
    yPos as integer
    xDirection as float 
    yDirection as float 
    timer as float
endtype

castleImg=loadImage("castle.png")
castleSpr=CreateSprite(castleImg)
SetSpritePosition(castleSpr,((GetDeviceWidth()/2)-(getImageWidth(castleImg)/2)),(getDeviceHeight()/2)-(GetImageHeight(castleImg)/2))

SprBlocks as _SprBlock[]
ShatterInit(castleSpr,CastleImg,SprBlocks)
flag=0
do
    print("Press space to shatter")
    if getRawKeyPressed(32) then flag=1
    if flag=1 then ShatterSprite(castleSpr,SprBlocks)
    if SprBlocks.length<=0 then  SetSpriteVisible(castleSpr,1) 
    Print( ScreenFPS() )
    Sync()
loop

function ShatterInit(spr as integer,img as integer,SprBlocks ref as _SprBlock[])
	tempBlock as _SprBlock
	x#=GetSpriteX(spr):y#=getSpriteY(spr)
	maxX=GetImageWidth(img):maxY=GetImageHeight(img)
	ClearScreen()
	DrawSprite(spr)	
	render()
	for y=0 to maxY step MaxY/16
		for x=0 to maxX step maxX/16

tempBlock.imgID=GetImage(x,y,x+(maxX/16),y+(maxY/16))
			SetImageTransparentColor(tempBlock.imgID,0,0,0)
			tempBlock.OldID=Spr
			tempBlock.ID=createSprite(tempBlock.imgID)
			SetSpriteVisible(tempBlock.ID,0)
			tempBlock.xPos=x
			tempBlock.yPos=y
			tempBlock.xDirection=random2(-2,2)
			tempBlock.yDirection=random2(-2,2)
			tempBlock.timer=timer()
			SprBlocks.insert(tempBlock)
		next x
	next y
endfunction

function ShatterSprite(spr as integer,SprBlocks ref as _SprBlock[])
	SetSpriteVisible(spr,0)
	for num=0 to SprBlocks.length
		if SprBlocks[num].OldID=spr
			SprBlocks[num].xPos=SprBlocks[num].xPos+SprBlocks[num].xDirection
			SprBlocks[num].yPos=SprBlocks[num].yPos+SprBlocks[num].yDirection
			SetSpritePosition(SprBlocks[num].ID,SprBlocks[num].xPos,SprBlocks[num].yPos)	
			SetSpriteVisible(SprBlocks[num].ID,1)
		endif 
	next num
	
	for num=SprBlocks.length to 0 step -1
		if SprBlocks[num].OldID=spr
			if SprBlocks[num].timer+5<timer()
				DeleteSprite(SprBlocks[num].ID)
				DeleteImage(SprBlocks[num].imgID)
				SprBlocks.remove(num)
			endif	 
		endif	
	next num
	
endfunction

+ Code Snippet

// Project: ShatterSprite 
// Created: 2019-02-13

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "ShatterSprite" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

type _SprBlock
    OldID as integer
    ID as integer       //the id of the object
    imgID as integer
    xPos as integer
    yPos as integer
    xDirection as float 
    yDirection as float 
    timer as float
endtype

castleImg=loadImage("castle.png")
castleSpr=CreateSprite(castleImg)
SetSpritePosition(castleSpr,((GetDeviceWidth()/2)-(getImageWidth(castleImg)/2)),(getDeviceHeight()/2)-(GetImageHeight(castleImg)/2))

SprBlocks as _SprBlock[]
ShatterInit(castleSpr,CastleImg,SprBlocks)
flag=0
do
    print("Press space to shatter")
    if getRawKeyPressed(32) then flag=1
    if flag=1 then ShatterSprite(castleSpr,SprBlocks)
    if SprBlocks.length<=0 then  SetSpriteVisible(castleSpr,1) 
    Print( ScreenFPS() )
    Sync()
loop

function ShatterInit(spr as integer,img as integer,SprBlocks ref as _SprBlock[])
	tempBlock as _SprBlock
	x#=GetSpriteX(spr):y#=getSpriteY(spr)
	maxX=GetImageWidth(img):maxY=GetImageHeight(img)
	ClearScreen()
	DrawSprite(spr)	
	render()
	for y=0 to maxY step MaxY/16
		for x=0 to maxX step maxX/16


			tempBlock.imgID=GetImage(x,y,x+(maxX/16),y+(maxY/16))
			SetImageTransparentColor(tempBlock.imgID,0,0,0)
			tempBlock.OldID=Spr
			tempBlock.ID=createSprite(tempBlock.imgID)
			SetSpriteVisible(tempBlock.ID,0)
			tempBlock.xPos=x
			tempBlock.yPos=y
			tempBlock.xDirection=random2(-2,2)
			tempBlock.yDirection=random2(-2,2)
			tempBlock.timer=timer()
			SprBlocks.insert(tempBlock)
		next x
	next y
endfunction	

function ShatterSprite(spr as integer,SprBlocks ref as _SprBlock[])
	SetSpriteVisible(spr,0)
	for num=0 to SprBlocks.length
		if SprBlocks[num].OldID=spr
			SprBlocks[num].xPos=SprBlocks[num].xPos+SprBlocks[num].xDirection
			SprBlocks[num].yPos=SprBlocks[num].yPos+SprBlocks[num].yDirection
			SetSpritePosition(SprBlocks[num].ID,SprBlocks[num].xPos,SprBlocks[num].yPos)	
			SetSpriteVisible(SprBlocks[num].ID,1)
		endif 
	next num
	
	for num=SprBlocks.length to 0 step -1
		if SprBlocks[num].OldID=spr
			if SprBlocks[num].timer+5<timer()
				DeleteSprite(SprBlocks[num].ID)
				DeleteImage(SprBlocks[num].imgID)
				SprBlocks.remove(num)
			endif	 
		endif	
	next num
	
endfunction

for this one I used the below image

PS: I think a shader could do the same effect nicer as what really needs to be done is have all pixels move outward in a circular way and could just have a larger
image than shown with allot of transparency to compensate and move each pixel outwards

Could possibly be improved with a memblock by reading each colour of an image from left to right top to bottom and writing that colour on the image one to the left and one above
for all pixels in the left quarter zone of the image. then repeated for all other quarters as needed. Curious how that will work may or may not try later as I think it may be slow

Experimenting with just two sprites and scaling them doesn't work anywhere near as well I prefer the top snippet ohwell lol

// Project: ShatterSprite 
// Created: 2019-02-13

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "ShatterSprite" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

castleImg=loadImage("castle.png")
castleSpr=CreateSprite(castleImg)
blackSpr=CreateSprite(0)
SetSpriteColor(blackSpr,0,0,0,255)
SetSpriteSize(blackSpr,2,2)
SetSpritePositionByOffset(castleSpr,(GetDeviceWidth()/2),(getDeviceHeight()/2))
SetSpritePositionByOffset(blackSpr,(GetDeviceWidth()/2),(getDeviceHeight()/2))
flag=0

SetSpriteDepth(castleSpr,10)
SetSpriteDepth(blackSpr,9)

do
    print("Press space to shatter")
    if getRawKeyPressed(32) 
		flag=1
		time#=timer()
	endif
    if flag=1 
		SetSpriteSize(castleSpr,GetSpriteWidth(castleSpr)+4,GetSpriteHeight(castleSpr)+4)
		SetSpriteSize(blackSpr,GetSpriteWidth(blackSpr)+8,GetSpriteHeight(blackSpr)+8)
		if time#+4<timer()
			SetSpriteSize(castleSpr,GetimageWidth(castleImg),GetImageHeight(castleImg))
			SetSpriteSize(blackSpr,2,2):flag=0
		endif	
	endif	
    Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet



// Project: ShatterSprite 
// Created: 2019-02-13

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "ShatterSprite" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

castleImg=loadImage("castle.png")
castleSpr=CreateSprite(castleImg)
blackSpr=CreateSprite(0)
SetSpriteColor(blackSpr,0,0,0,255)
SetSpriteSize(blackSpr,2,2)
SetSpritePositionByOffset(castleSpr,(GetDeviceWidth()/2),(getDeviceHeight()/2))
SetSpritePositionByOffset(blackSpr,(GetDeviceWidth()/2),(getDeviceHeight()/2))
flag=0

SetSpriteDepth(castleSpr,10)
SetSpriteDepth(blackSpr,9)

do
    print("Press space to shatter")
    if getRawKeyPressed(32) 
		flag=1
		time#=timer()
	endif
    if flag=1 
		SetSpriteSize(castleSpr,GetSpriteWidth(castleSpr)+4,GetSpriteHeight(castleSpr)+4)
		SetSpriteSize(blackSpr,GetSpriteWidth(blackSpr)+8,GetSpriteHeight(blackSpr)+8)
		if time#+4<timer()
			SetSpriteSize(castleSpr,GetimageWidth(castleImg),GetImageHeight(castleImg))
			SetSpriteSize(blackSpr,2,2):flag=0
		endif	
	endif	
    Print( ScreenFPS() )
    Sync()
loop

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 13th Feb 2019 07:11

Link

Wow - this looks interesting.

Cannot wait to test it out later on after work.

On Lemmings - I had the similar premise on shattering the follower in similar manner.

Cool

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: 13th Feb 2019 07:44

Link

Quote: "Wow - this looks interesting."

Ide also like to try as a memblock

where an image is though of as quarters
1,2
3,4
zone 1 pixels would move one to the left and one upward
zone 2 pixels would move one to the right and one upward
zone 3 pixels would move one to the left and one down
zone 4 pixels would move one to the right and one down

I think that could give a nice effect still not like it works in 3d as parts lol but might look good

then return the new image
replace old image with new one
maybe delete old image for code housekeeping

just will have to have a think about memblocks first as a slight incorrect placement will cause program crashes

fubar

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 14th Feb 2019 22:03

Link

Nice work fubarpk

I try to press spacebar twice but couldn't get it repit

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 17th Feb 2019 19:11

Link

So just that we dont loose touch with this - may come in handy with lots of things

Object Mesh Building

// Project: heights 
// Created: 2019-01-01
  
// show all errors
SetErrorMode(2)
  
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
  
// set window properties
SetWindowTitle( "heights" )
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
  
#constant sizex=20 // change this to extend the map
#constant sizez=20 // change this to exeend the map
global angx#, angy#,startx#,starty#
startx#=screenwidth/2
starty#=screenheight/2

size=5
 
type _map
    id
    x#
    height#
    z#
    colorred
    colorgreen
    colorblue
    texture
endtype
 
global map as _map[sizex,sizez]

global vertexnumber

land = CreateObjectBox(.01,.01,.01)
for x=1 to sizex
    for z=1 to sizez
        map[x,z].id = CreateObjectBox(9,9,9)
        map[x,z].x# = x * GetObjectSizeMaxX(map[x,z].id)*2 // Remove the * 2 to join the cubes together
        map[x,z].height#=random(0,0)
        map[x,z].z# = z * GetObjectSizeMaxZ(map[x,z].id)*2 // Remove the * 2 to join the cubes together
		map[x,z].colorgreen = random(150,200)
		
        SetObjectColor(map[x,z].id,0,map[x,z].colorgreen,0,255)
        SetObjectPosition(map[x,z].id,map[x,z].x#,0,map[x,z].z#)
        FixObjectToObject(map[x,z].id,land)
        
    next
next

RotateObjectLocalY(land,-30)
prepareheights()
 
camerax#=20
cameray#=30
cameraz#=0

// frameImg=LoadImage("\media\frame2.png")
//FrameSpr=createSprite(frameImg) 
collisioner=CreateObjectBox(10,10,10)
do
 
  //  SetSpriteDepth(frameSpr,100) //set the frame to behind all tiles to allow clicking to work

unit_x#=Get3DVectorXFromScreen(getpointerx(),getpointery())
	unit_y#=Get3DVectorYFromScreen(getpointerx(),getpointery())
	unit_z#=Get3DVectorZFromScreen(getpointerx(),getpointery())	
	// calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + camerax#
        start_y# = unit_y# + cameray#
        start_z# = unit_z# - cameraz#

// 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# + camerax#
        end_y# = 800*unit_y# + cameray#
        end_z# = 800*unit_z# - cameraz#

// determine which object has been hit
        object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)

// if an object has been hit then turn it red
        if object_hit <> 0

x=getobjectx(object_hit)/9
			z=getobjectz(object_hit)/9
			
		else
        endif

if GetRawKeyState(13)
		RotateObjectLocalY(land,.05)
	endif
    if GetRawMouseLeftPressed()
        inc map[x,z].height#,2
        SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
        changeverts(x,z,2)
		
    endif

if GetRawMouseRightPressed()
        dec map[x,z].height#,2
        SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
        changeverts(x,z,-2)
		
    endif

if GetRawKeyState(68) then inc camerax#,.1
    if GetRawKeyState(65) then dec camerax#,.1
    if GetRawKeyState(83) then inc cameray#,.1
    if GetRawKeyState(87) then dec cameray#,.1
     
         movecamera()

SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    Sync()
loop

function movecamera()
    if GetRawKeyState(32)
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
    endif
endfunction
  
function prepareheights()
	for x=2 to sizex-1
		for z=2 to sizez-1
			changeverts(x,z,map[x,z].height#)
		next
	next
endfunction
  
function changeverts(x,z,slope#)
     
            CreateMemblockFromObjectMesh(2,map[x+1,z-1].id,1) // bottom right corner
            CreateMemblockFromObjectMesh(4,map[x+1,z+1].id,1) // top right corner
            CreateMemblockFromObjectMesh(5,map[x-1,z+1].id,1) // top left corner
            CreateMemblockFromObjectMesh(6,map[x-1,z-1].id,1) // bottom left corner
   
            CreateMemblockFromObjectMesh(3,map[x+1,z].id,1) // right edges
 
            CreateMemblockFromObjectMesh(7,map[x-1,z].id,1) // left cube edges
           CreateMemblockFromObjectMesh(8,map[x,z-1].id,1) // bottom cube edges
           CreateMemblockFromObjectMesh(9,map[x,z+1].id,1) // top cube edges
 
             
    for i=0 to 23
         
// bottom rightcorner
        if i=8 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=16 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=14 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
 
// top rightcorner
        if i=9 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=0 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=18 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
 
// top leftcorner
        if i=11 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
        if i=2 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
       if i=4 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
  
 
// tbottom leftcorner
        if i=10 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=6 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=12 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
 
 
// right cube
        if i=8 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=9 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=16 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=18 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=0 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=14 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
 
// left cube
        if i=10 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=11 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=4 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=6 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=2 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=12 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        
// bottom cube
        if i=8 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=10 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=6 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=12 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=14 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=16 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
 
// top cube
        if i=9 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=11 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=0 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=2 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=4 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=18 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
 
    next
     
    SetObjectMeshFromMemblock(map[x+1,z-1].id,1,2)   
    SetObjectMeshFromMemblock(map[x+1,z].id,1,3)   
    SetObjectMeshFromMemblock(map[x+1,z+1].id,1,4)   
    SetObjectMeshFromMemblock(map[x-1,z+1].id,1,5)   
    SetObjectMeshFromMemblock(map[x-1,z-1].id,1,6)   
    SetObjectMeshFromMemblock(map[x-1,z].id,1,7)   
    SetObjectMeshFromMemblock(map[x,z-1].id,1,8)   
    SetObjectMeshFromMemblock(map[x,z+1].id,1,9)   
 
 
 
    DeleteMemblock(2)
    DeleteMemblock(3)
    DeleteMemblock(4)
    DeleteMemblock(5)
    DeleteMemblock(6)
    DeleteMemblock(7)
    DeleteMemblock(8)
    DeleteMemblock(9)
  
  
endfunction

+ Code Snippet

// Project: heights 
// Created: 2019-01-01
  
// show all errors
SetErrorMode(2)
  
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
  
// set window properties
SetWindowTitle( "heights" )
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
  
#constant sizex=20 // change this to extend the map
#constant sizez=20 // change this to exeend the map
global angx#, angy#,startx#,starty#
startx#=screenwidth/2
starty#=screenheight/2

size=5
 
type _map
    id
    x#
    height#
    z#
    colorred
    colorgreen
    colorblue
    texture
endtype
 
global map as _map[sizex,sizez]

global vertexnumber

land = CreateObjectBox(.01,.01,.01)
for x=1 to sizex
    for z=1 to sizez
        map[x,z].id = CreateObjectBox(9,9,9)
        map[x,z].x# = x * GetObjectSizeMaxX(map[x,z].id)*2 // Remove the * 2 to join the cubes together
        map[x,z].height#=random(0,0)
        map[x,z].z# = z * GetObjectSizeMaxZ(map[x,z].id)*2 // Remove the * 2 to join the cubes together
		map[x,z].colorgreen = random(150,200)
		
        SetObjectColor(map[x,z].id,0,map[x,z].colorgreen,0,255)
        SetObjectPosition(map[x,z].id,map[x,z].x#,0,map[x,z].z#)
        FixObjectToObject(map[x,z].id,land)
        
    next
next

RotateObjectLocalY(land,-30)
prepareheights()
 
camerax#=20
cameray#=30
cameraz#=0

 
// frameImg=LoadImage("\media\frame2.png")
//FrameSpr=createSprite(frameImg) 
collisioner=CreateObjectBox(10,10,10)
do
 
  //  SetSpriteDepth(frameSpr,100) //set the frame to behind all tiles to allow clicking to work

	unit_x#=Get3DVectorXFromScreen(getpointerx(),getpointery())
	unit_y#=Get3DVectorYFromScreen(getpointerx(),getpointery())
	unit_z#=Get3DVectorZFromScreen(getpointerx(),getpointery())	
	// calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + camerax#
        start_y# = unit_y# + cameray#
        start_z# = unit_z# - cameraz#

        // 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# + camerax#
        end_y# = 800*unit_y# + cameray#
        end_z# = 800*unit_z# - cameraz#

        // determine which object has been hit
        object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)

        // if an object has been hit then turn it red
        if object_hit <> 0

			x=getobjectx(object_hit)/9
			z=getobjectz(object_hit)/9
			
		else
        endif


	
    if GetRawKeyState(13)
		RotateObjectLocalY(land,.05)
	endif
    if GetRawMouseLeftPressed()
        inc map[x,z].height#,2
        SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
        changeverts(x,z,2)
		
    endif


    if GetRawMouseRightPressed()
        dec map[x,z].height#,2
        SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
        changeverts(x,z,-2)
		
    endif

    if GetRawKeyState(68) then inc camerax#,.1
    if GetRawKeyState(65) then dec camerax#,.1
    if GetRawKeyState(83) then inc cameray#,.1
    if GetRawKeyState(87) then dec cameray#,.1
     
         movecamera()

    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    Sync()
loop

function movecamera()
    if GetRawKeyState(32)
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
    endif
endfunction
  
function prepareheights()
	for x=2 to sizex-1
		for z=2 to sizez-1
			changeverts(x,z,map[x,z].height#)
		next
	next
endfunction
  
function changeverts(x,z,slope#)
     
            CreateMemblockFromObjectMesh(2,map[x+1,z-1].id,1) // bottom right corner
            CreateMemblockFromObjectMesh(4,map[x+1,z+1].id,1) // top right corner
            CreateMemblockFromObjectMesh(5,map[x-1,z+1].id,1) // top left corner
            CreateMemblockFromObjectMesh(6,map[x-1,z-1].id,1) // bottom left corner
   
            CreateMemblockFromObjectMesh(3,map[x+1,z].id,1) // right edges
 
            CreateMemblockFromObjectMesh(7,map[x-1,z].id,1) // left cube edges
           CreateMemblockFromObjectMesh(8,map[x,z-1].id,1) // bottom cube edges
           CreateMemblockFromObjectMesh(9,map[x,z+1].id,1) // top cube edges
 
             
    for i=0 to 23
         
// bottom rightcorner
        if i=8 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=16 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=14 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
 
// top rightcorner
        if i=9 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=0 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=18 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
 
// top leftcorner
        if i=11 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
        if i=2 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
       if i=4 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
  
 
// tbottom leftcorner
        if i=10 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=6 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=12 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
 
 
// right cube
        if i=8 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=9 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=16 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=18 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=0 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=14 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
 
// left cube
        if i=10 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=11 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=4 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=6 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=2 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=12 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        
// bottom cube
        if i=8 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=10 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=6 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=12 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=14 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=16 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
 
// top cube
        if i=9 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=11 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=0 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=2 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=4 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=18 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
 
    next
     
    SetObjectMeshFromMemblock(map[x+1,z-1].id,1,2)   
    SetObjectMeshFromMemblock(map[x+1,z].id,1,3)   
    SetObjectMeshFromMemblock(map[x+1,z+1].id,1,4)   
    SetObjectMeshFromMemblock(map[x-1,z+1].id,1,5)   
    SetObjectMeshFromMemblock(map[x-1,z-1].id,1,6)   
    SetObjectMeshFromMemblock(map[x-1,z].id,1,7)   
    SetObjectMeshFromMemblock(map[x,z-1].id,1,8)   
    SetObjectMeshFromMemblock(map[x,z+1].id,1,9)   
 
 
 
    DeleteMemblock(2)
    DeleteMemblock(3)
    DeleteMemblock(4)
    DeleteMemblock(5)
    DeleteMemblock(6)
    DeleteMemblock(7)
    DeleteMemblock(8)
    DeleteMemblock(9)
  
  
endfunction

Left click block to raise
Right click block to lower

Space and mouse move changes camera

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: 17th Feb 2019 19:16 Edited at: 18th Feb 2019 05:55

Link

Thanks puzzler ive spent ages going through threads in the past
to find code that's buried deep in some other code in one of the pages
Object Mesh Building
Changed to the following this way it don't ever error and a few other things like crater creation etc

// Project: heights 
// Created: 2019-01-01
   
// show all errors
SetErrorMode(2)
   
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
   
// set window properties
SetWindowTitle( "heights" )
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
Create3DPhysicsWorld()  
#constant sizex=21 // change this to extend the map
#constant sizez=21 // change this to exeend the map
global angx#, angy#,startx#,starty#
startx#=screenwidth/2
starty#=screenheight/2
 
size=5
 
type _map
    id
    x#
    height#
    z#
    colorred
    colorgreen
    colorblue
    texture
endtype
  
global map as _map[sizex,sizez]
 
global vertexnumber

//textimages as integer[10]
//for loops=0 to 10
//   textimages[loops]= createtexture(64,64,MakeColor(0,255,0),255)
//next
textimages as integer[10]
textimages[0]= createtexture(64,64,MakeColor(0,255,0),255)
textimages[1]= createtexture(64,64,MakeColor(255,255,255),255)

land = CreateObjectBox(.01,.01,.01)
colorgreen=150
for x=1 to sizex
    for z=1 to sizez
        map[x,z].id = CreateObjectBox(9,9,9)
        map[x,z].x# = x * GetObjectSizeMaxX(map[x,z].id)*2 // Remove the * 2 to join the cubes together
        map[x,z].height#=random(0,0)
        map[x,z].z# = z * GetObjectSizeMaxZ(map[x,z].id)*2 // Remove the * 2 to join the cubes together

//map[x,z].colorgreen = random(150,200)
		//SetObjectImage(map[x,z].id,textimages[0],0)
		if colorgreen=150
			colorgreen=200
		else
			colorgreen=150
		endif
				
		map[x,z].colorgreen =colorGreen	
		SetObjectImage(map[x,z].id,textimages[0],0)
		
        Create3DPhysicsStaticBody(map[x,z].id)   
        SetObjectColor(map[x,z].id,0,map[x,z].colorgreen,0,255)
        SetObjectPosition(map[x,z].id,map[x,z].x#,0,map[x,z].z#)
        FixObjectToObject(map[x,z].id,land)
        		
    next
next
 
RotateObjectLocalY(land,-30)
prepareheights()
  
camerax#=20
cameray#=30
cameraz#=0
 
  
// frameImg=LoadImage("\media\frame2.png")
//FrameSpr=createSprite(frameImg) 
collisioner=CreateObjectBox(10,10,10)
do
  
  //  SetSpriteDepth(frameSpr,100) //set the frame to behind all tiles to allow clicking to work
 
    unit_x#=Get3DVectorXFromScreen(getpointerx(),getpointery())
    unit_y#=Get3DVectorYFromScreen(getpointerx(),getpointery())
    unit_z#=Get3DVectorZFromScreen(getpointerx(),getpointery()) 
    // calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + camerax#
        start_y# = unit_y# + cameray#
        start_z# = unit_z# - cameraz#
 
        // 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# + camerax#
        end_y# = 800*unit_y# + cameray#
        end_z# = 800*unit_z# - cameraz#
 
        // determine which object has been hit
        object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
 
        // if an object has been hit then turn it red
        if object_hit <> 0
 
            x=getobjectx(object_hit)/9
            z=getobjectz(object_hit)/9
             
        else
        endif
 
 
     
    if GetRawKeyState(13)
        RotateObjectLocalY(land,.05)
    endif
    if GetRawMouseLeftState()
        flag=1
        if x<2 or x>sizex-1 then flag=0
        if z<2 or z>sizez-1 then flag=0
        if flag=1
            inc map[x,z].height#,.01
            SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
            changeverts(x,z,.01)
            Delete3DPhysicsBody(map[x,z].id) 
            Create3DPhysicsStaticBody(map[x,z].id)   
        endif
    endif
 
 
    if GetRawMouseRightState()
        flag=1
        if x<2 or x>sizex-1 then flag=0
        if z<2 or z>sizez-1 then flag=0
        if flag=1 and map[x,z].height#>0
            dec map[x,z].height#,.01
            SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
            changeverts(x,z,-.01)
            Delete3DPhysicsBody(map[x,z].id) 
            Create3DPhysicsStaticBody(map[x,z].id)   
        endif
    endif
     
    if GetRawMouseMiddlePressed() 
        flag=1
        if x<2 or x>sizex-1 then flag=0
        if z<2 or z>sizez-1 then flag=0
        if flag=1 
			//if map[x,z].height#>0
				dec map[x,z].height#,10
				SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
				changeverts(x,z,-10.01)
				Delete3DPhysicsBody(map[x,z].id) 
				Create3DPhysicsStaticBody(map[x,z].id)
            //endif   
			//SetObjectColor(map[x,z].id,GetObjectColorRed(map[x,z].id)-50,GetObjectColorGreen(map[x,z].id)-50,GetObjectColorBlue(map[x,z].id)-50,255)  
			//SetObjectColor(map[x+1,z+1].id,GetObjectColorRed(map[x+1,z+1].id)-50,GetObjectColorGreen(map[x+1,z+1].id)-50,GetObjectColorBlue(map[x+1,z+1].id)-50,255)  
			//SetObjectColor(map[x-1,z+1].id,GetObjectColorRed(map[x-1,z+1].id)-50,GetObjectColorGreen(map[x-1,z+1].id)-50,GetObjectColorBlue(map[x-1,z+1].id)-50,255)  
			//SetObjectColor(map[x-1,z-1].id,GetObjectColorRed(map[x-1,z-1].id)-50,GetObjectColorGreen(map[x-1,z-1].id)-50,GetObjectColorBlue(map[x-1,z-1].id)-50,255)  
			//SetObjectColor(map[x+1,z].id,GetObjectColorRed(map[x+1,z].id)-50,GetObjectColorGreen(map[x+1,z].id)-50,GetObjectColorBlue(map[x+1,z].id)-50,255)  
			//SetObjectColor(map[x-1,z].id,GetObjectColorRed(map[x-1,z].id)-50,GetObjectColorGreen(map[x-1,z].id)-50,GetObjectColorBlue(map[x-1,z].id)-50,255)  
			//SetObjectColor(map[x,z+1].id,GetObjectColorRed(map[x,z+1].id)-50,GetObjectColorGreen(map[x,z+1].id)-50,GetObjectColorBlue(map[x,z+1].id)-50,255)  
			//SetObjectColor(map[x,z-1].id,GetObjectColorRed(map[x,z-1].id)-50,GetObjectColorGreen(map[x,z-1].id)-50,GetObjectColorBlue(map[x,z-1].id)-50,255)  
			SetObjectColor(map[x,z].id,100,100,100,255):SetObjectImage(map[x,z].id,textImages[1],0)  
			SetObjectColor(map[x+1,z+1].id,100,100,100,255):SetObjectImage(map[x+1,z+1].id,textImages[1],0) 
			SetObjectColor(map[x-1,z+1].id,100,100,100,255):SetObjectImage(map[x-1,z+1].id,textImages[1],0) 
			SetObjectColor(map[x-1,z-1].id,100,100,100,255):SetObjectImage(map[x-1,z-1].id,textImages[1],0) 
			SetObjectColor(map[x+1,z].id,100,100,100,255):SetObjectImage(map[x+1,z].id,textImages[1],0) 
			SetObjectColor(map[x-1,z].id,100,100,100,255):SetObjectImage(map[x-1,z].id,textImages[1],0) 
			SetObjectColor(map[x,z+1].id,100,100,100,255):SetObjectImage(map[x,z+1].id,textImages[1],0) 
			SetObjectColor(map[x,z-1].id,100,100,100,255):SetObjectImage(map[x,z-1].id,textImages[1],0) 
			
		endif
        
    endif  
 
    if GetRawKeyState(68) then inc camerax#,.1
    if GetRawKeyState(65) then dec camerax#,.1
    if GetRawKeyState(83) then inc cameray#,.1
    if GetRawKeyState(87) then dec cameray#,.1
      
         movecamera()
 
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    Sync()
loop
 
function movecamera()
    if GetRawKeyState(32)
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
    endif
endfunction
   
function prepareheights()
    for x=2 to sizex-1
        for z=2 to sizez-1
            changeverts(x,z,map[x,z].height#)
        next
    next
endfunction
   
function changeverts(x,z,slope#)
      
            CreateMemblockFromObjectMesh(2,map[x+1,z-1].id,1) // bottom right corner
            CreateMemblockFromObjectMesh(4,map[x+1,z+1].id,1) // top right corner
            CreateMemblockFromObjectMesh(5,map[x-1,z+1].id,1) // top left corner
            CreateMemblockFromObjectMesh(6,map[x-1,z-1].id,1) // bottom left corner
    
            CreateMemblockFromObjectMesh(3,map[x+1,z].id,1) // right edges
  
            CreateMemblockFromObjectMesh(7,map[x-1,z].id,1) // left cube edges
           CreateMemblockFromObjectMesh(8,map[x,z-1].id,1) // bottom cube edges
           CreateMemblockFromObjectMesh(9,map[x,z+1].id,1) // top cube edges
  
              
    for i=0 to 23
          
// bottom rightcorner
        if i=8 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=16 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=14 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
  
// top rightcorner
        if i=9 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=0 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=18 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
  
// top leftcorner
        if i=11 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
        if i=2 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
       if i=4 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
   
  
// tbottom leftcorner
        if i=10 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=6 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=12 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
  
  
// right cube
        if i=8 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=9 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=16 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=18 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=0 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=14 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
  
// left cube
        if i=10 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=11 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=4 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=6 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=2 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=12 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
         
// bottom cube
        if i=8 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=10 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=6 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=12 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=14 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=16 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
  
// top cube
        if i=9 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=11 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=0 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=2 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=4 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=18 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
  
    next
      
    SetObjectMeshFromMemblock(map[x+1,z-1].id,1,2)   
    SetObjectMeshFromMemblock(map[x+1,z].id,1,3)   
    SetObjectMeshFromMemblock(map[x+1,z+1].id,1,4)   
    SetObjectMeshFromMemblock(map[x-1,z+1].id,1,5)   
    SetObjectMeshFromMemblock(map[x-1,z-1].id,1,6)   
    SetObjectMeshFromMemblock(map[x-1,z].id,1,7)   
    SetObjectMeshFromMemblock(map[x,z-1].id,1,8)   
    SetObjectMeshFromMemblock(map[x,z+1].id,1,9)   
  
  
  
  
  
  
    DeleteMemblock(2)
    DeleteMemblock(3)
    DeleteMemblock(4)
    DeleteMemblock(5)
    DeleteMemblock(6)
    DeleteMemblock(7)
    DeleteMemblock(8)
    DeleteMemblock(9)
   
   
endfunction

// Function to create a texture
//
// Inputs - Sizex - size of the texture to create - width
//          Sizey - size of the texture to create - height
//          Color - is the main color of the image
//          Denisity - is a the depth of the texture - the lower the value, the more detail. higher value = no detail
// 
// Returns the image for the resulting texture
//
// EG. CreateTexture ( 100, 100,  makecolor(0,0,255), 100)
//          This could create a DEEP water effect texture?
  
function createtexture(sizex# as float, sizey# as float, color, density as integer)
  
      
    swap()
    drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    render()
    img = getimage(0,0,sizex#, sizey#)
      
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
      
      
        size=GetMemblockSize(memblockid)
  
        for offset=12 to size-4 step 4
        
            r=GetMemblockByte(memblockid, offset)
            g=GetMemblockByte(memblockid, offset+1)
            b=GetMemblockByte(memblockid, offset+2)
            a=GetMemblockByte(memblockid, offset+3)
              
          
            strength=random(1,density)
  
            SetMemblockByte (memblockid, offset, r-strength)
            SetMemblockByte (memblockid, offset+1, g-strength)
            SetMemblockByte (memblockid, offset+2, b-strength )
            SetMemblockByte (memblockid, offset+3, a-strength)
               
          
    next
      
    deleteimage (img)
      
    img = CreateImageFromMemblock(memblockid)
    DeleteMemblock(memblockid)
  
  
endfunction img

+ Code Snippet

// Project: heights 
// Created: 2019-01-01
   
// show all errors
SetErrorMode(2)
   
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
   
// set window properties
SetWindowTitle( "heights" )
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
Create3DPhysicsWorld()  
#constant sizex=21 // change this to extend the map
#constant sizez=21 // change this to exeend the map
global angx#, angy#,startx#,starty#
startx#=screenwidth/2
starty#=screenheight/2
 
size=5
 
type _map
    id
    x#
    height#
    z#
    colorred
    colorgreen
    colorblue
    texture
endtype
  
global map as _map[sizex,sizez]
 
global vertexnumber

//textimages as integer[10]
//for loops=0 to 10
//   textimages[loops]= createtexture(64,64,MakeColor(0,255,0),255)
//next
textimages as integer[10]
textimages[0]= createtexture(64,64,MakeColor(0,255,0),255)
textimages[1]= createtexture(64,64,MakeColor(255,255,255),255)

land = CreateObjectBox(.01,.01,.01)
colorgreen=150
for x=1 to sizex
    for z=1 to sizez
        map[x,z].id = CreateObjectBox(9,9,9)
        map[x,z].x# = x * GetObjectSizeMaxX(map[x,z].id)*2 // Remove the * 2 to join the cubes together
        map[x,z].height#=random(0,0)
        map[x,z].z# = z * GetObjectSizeMaxZ(map[x,z].id)*2 // Remove the * 2 to join the cubes together

        //map[x,z].colorgreen = random(150,200)
		//SetObjectImage(map[x,z].id,textimages[0],0)
		if colorgreen=150
			colorgreen=200
		else
			colorgreen=150
		endif
				
		map[x,z].colorgreen =colorGreen	
		SetObjectImage(map[x,z].id,textimages[0],0)
		
        Create3DPhysicsStaticBody(map[x,z].id)   
        SetObjectColor(map[x,z].id,0,map[x,z].colorgreen,0,255)
        SetObjectPosition(map[x,z].id,map[x,z].x#,0,map[x,z].z#)
        FixObjectToObject(map[x,z].id,land)
        		
    next
next
 
RotateObjectLocalY(land,-30)
prepareheights()
  
camerax#=20
cameray#=30
cameraz#=0
 
  
// frameImg=LoadImage("\media\frame2.png")
//FrameSpr=createSprite(frameImg) 
collisioner=CreateObjectBox(10,10,10)
do
  
  //  SetSpriteDepth(frameSpr,100) //set the frame to behind all tiles to allow clicking to work
 
    unit_x#=Get3DVectorXFromScreen(getpointerx(),getpointery())
    unit_y#=Get3DVectorYFromScreen(getpointerx(),getpointery())
    unit_z#=Get3DVectorZFromScreen(getpointerx(),getpointery()) 
    // calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + camerax#
        start_y# = unit_y# + cameray#
        start_z# = unit_z# - cameraz#
 
        // 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# + camerax#
        end_y# = 800*unit_y# + cameray#
        end_z# = 800*unit_z# - cameraz#
 
        // determine which object has been hit
        object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
 
        // if an object has been hit then turn it red
        if object_hit <> 0
 
            x=getobjectx(object_hit)/9
            z=getobjectz(object_hit)/9
             
        else
        endif
 
 
     
    if GetRawKeyState(13)
        RotateObjectLocalY(land,.05)
    endif
    if GetRawMouseLeftState()
        flag=1
        if x<2 or x>sizex-1 then flag=0
        if z<2 or z>sizez-1 then flag=0
        if flag=1
            inc map[x,z].height#,.01
            SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
            changeverts(x,z,.01)
            Delete3DPhysicsBody(map[x,z].id) 
            Create3DPhysicsStaticBody(map[x,z].id)   
        endif
    endif
 
 
    if GetRawMouseRightState()
        flag=1
        if x<2 or x>sizex-1 then flag=0
        if z<2 or z>sizez-1 then flag=0
        if flag=1 and map[x,z].height#>0
            dec map[x,z].height#,.01
            SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
            changeverts(x,z,-.01)
            Delete3DPhysicsBody(map[x,z].id) 
            Create3DPhysicsStaticBody(map[x,z].id)   
        endif
    endif
     
    if GetRawMouseMiddlePressed() 
        flag=1
        if x<2 or x>sizex-1 then flag=0
        if z<2 or z>sizez-1 then flag=0
        if flag=1 
			//if map[x,z].height#>0
				dec map[x,z].height#,10
				SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
				changeverts(x,z,-10.01)
				Delete3DPhysicsBody(map[x,z].id) 
				Create3DPhysicsStaticBody(map[x,z].id)
            //endif   
			//SetObjectColor(map[x,z].id,GetObjectColorRed(map[x,z].id)-50,GetObjectColorGreen(map[x,z].id)-50,GetObjectColorBlue(map[x,z].id)-50,255)  
			//SetObjectColor(map[x+1,z+1].id,GetObjectColorRed(map[x+1,z+1].id)-50,GetObjectColorGreen(map[x+1,z+1].id)-50,GetObjectColorBlue(map[x+1,z+1].id)-50,255)  
			//SetObjectColor(map[x-1,z+1].id,GetObjectColorRed(map[x-1,z+1].id)-50,GetObjectColorGreen(map[x-1,z+1].id)-50,GetObjectColorBlue(map[x-1,z+1].id)-50,255)  
			//SetObjectColor(map[x-1,z-1].id,GetObjectColorRed(map[x-1,z-1].id)-50,GetObjectColorGreen(map[x-1,z-1].id)-50,GetObjectColorBlue(map[x-1,z-1].id)-50,255)  
			//SetObjectColor(map[x+1,z].id,GetObjectColorRed(map[x+1,z].id)-50,GetObjectColorGreen(map[x+1,z].id)-50,GetObjectColorBlue(map[x+1,z].id)-50,255)  
			//SetObjectColor(map[x-1,z].id,GetObjectColorRed(map[x-1,z].id)-50,GetObjectColorGreen(map[x-1,z].id)-50,GetObjectColorBlue(map[x-1,z].id)-50,255)  
			//SetObjectColor(map[x,z+1].id,GetObjectColorRed(map[x,z+1].id)-50,GetObjectColorGreen(map[x,z+1].id)-50,GetObjectColorBlue(map[x,z+1].id)-50,255)  
			//SetObjectColor(map[x,z-1].id,GetObjectColorRed(map[x,z-1].id)-50,GetObjectColorGreen(map[x,z-1].id)-50,GetObjectColorBlue(map[x,z-1].id)-50,255)  
			SetObjectColor(map[x,z].id,100,100,100,255):SetObjectImage(map[x,z].id,textImages[1],0)  
			SetObjectColor(map[x+1,z+1].id,100,100,100,255):SetObjectImage(map[x+1,z+1].id,textImages[1],0) 
			SetObjectColor(map[x-1,z+1].id,100,100,100,255):SetObjectImage(map[x-1,z+1].id,textImages[1],0) 
			SetObjectColor(map[x-1,z-1].id,100,100,100,255):SetObjectImage(map[x-1,z-1].id,textImages[1],0) 
			SetObjectColor(map[x+1,z].id,100,100,100,255):SetObjectImage(map[x+1,z].id,textImages[1],0) 
			SetObjectColor(map[x-1,z].id,100,100,100,255):SetObjectImage(map[x-1,z].id,textImages[1],0) 
			SetObjectColor(map[x,z+1].id,100,100,100,255):SetObjectImage(map[x,z+1].id,textImages[1],0) 
			SetObjectColor(map[x,z-1].id,100,100,100,255):SetObjectImage(map[x,z-1].id,textImages[1],0) 
			
		endif
        
    endif  
 
    if GetRawKeyState(68) then inc camerax#,.1
    if GetRawKeyState(65) then dec camerax#,.1
    if GetRawKeyState(83) then inc cameray#,.1
    if GetRawKeyState(87) then dec cameray#,.1
      
         movecamera()
 
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    Sync()
loop
 
function movecamera()
    if GetRawKeyState(32)
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
    endif
endfunction
   
function prepareheights()
    for x=2 to sizex-1
        for z=2 to sizez-1
            changeverts(x,z,map[x,z].height#)
        next
    next
endfunction
   
function changeverts(x,z,slope#)
      
            CreateMemblockFromObjectMesh(2,map[x+1,z-1].id,1) // bottom right corner
            CreateMemblockFromObjectMesh(4,map[x+1,z+1].id,1) // top right corner
            CreateMemblockFromObjectMesh(5,map[x-1,z+1].id,1) // top left corner
            CreateMemblockFromObjectMesh(6,map[x-1,z-1].id,1) // bottom left corner
    
            CreateMemblockFromObjectMesh(3,map[x+1,z].id,1) // right edges
  
            CreateMemblockFromObjectMesh(7,map[x-1,z].id,1) // left cube edges
           CreateMemblockFromObjectMesh(8,map[x,z-1].id,1) // bottom cube edges
           CreateMemblockFromObjectMesh(9,map[x,z+1].id,1) // top cube edges
  
              
    for i=0 to 23
          
// bottom rightcorner
        if i=8 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=16 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=14 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
  
// top rightcorner
        if i=9 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=0 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=18 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
  
// top leftcorner
        if i=11 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
        if i=2 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
       if i=4 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
   
  
// tbottom leftcorner
        if i=10 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=6 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=12 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
  
  
// right cube
        if i=8 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=9 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=16 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=18 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=0 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=14 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
  
// left cube
        if i=10 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=11 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=4 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=6 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=2 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=12 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
         
// bottom cube
        if i=8 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=10 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=6 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=12 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=14 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=16 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
  
// top cube
        if i=9 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=11 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=0 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=2 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=4 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=18 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
  
    next
      
    SetObjectMeshFromMemblock(map[x+1,z-1].id,1,2)   
    SetObjectMeshFromMemblock(map[x+1,z].id,1,3)   
    SetObjectMeshFromMemblock(map[x+1,z+1].id,1,4)   
    SetObjectMeshFromMemblock(map[x-1,z+1].id,1,5)   
    SetObjectMeshFromMemblock(map[x-1,z-1].id,1,6)   
    SetObjectMeshFromMemblock(map[x-1,z].id,1,7)   
    SetObjectMeshFromMemblock(map[x,z-1].id,1,8)   
    SetObjectMeshFromMemblock(map[x,z+1].id,1,9)   
  
  
  
  
  
  
    DeleteMemblock(2)
    DeleteMemblock(3)
    DeleteMemblock(4)
    DeleteMemblock(5)
    DeleteMemblock(6)
    DeleteMemblock(7)
    DeleteMemblock(8)
    DeleteMemblock(9)
   
   
endfunction

// Function to create a texture
//
// Inputs - Sizex - size of the texture to create - width
//          Sizey - size of the texture to create - height
//          Color - is the main color of the image
//          Denisity - is a the depth of the texture - the lower the value, the more detail. higher value = no detail
// 
// Returns the image for the resulting texture
//
// EG. CreateTexture ( 100, 100,  makecolor(0,0,255), 100)
//          This could create a DEEP water effect texture?
  
function createtexture(sizex# as float, sizey# as float, color, density as integer)
  
      
    swap()
    drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    render()
    img = getimage(0,0,sizex#, sizey#)
      
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
      
      
        size=GetMemblockSize(memblockid)
  
        for offset=12 to size-4 step 4
        
            r=GetMemblockByte(memblockid, offset)
            g=GetMemblockByte(memblockid, offset+1)
            b=GetMemblockByte(memblockid, offset+2)
            a=GetMemblockByte(memblockid, offset+3)
              
          
            strength=random(1,density)
  
            SetMemblockByte (memblockid, offset, r-strength)
            SetMemblockByte (memblockid, offset+1, g-strength)
            SetMemblockByte (memblockid, offset+2, b-strength )
            SetMemblockByte (memblockid, offset+3, a-strength)
               
          
    next
      
    deleteimage (img)
      
    img = CreateImageFromMemblock(memblockid)
    DeleteMemblock(memblockid)
  
  
endfunction img

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 Apr 2019 01:00 Edited at: 5th Apr 2019 01:01

Link

2D Clouds Sprite Shader

#constant width = 1024
#constant height= 768

SetWindowSize( width, height, 0 )
SetVirtualResolution( width, height )
   
createShader()
CreateSprite(1,0)
SetSpriteSize(1,width,height)
cloudsShader=LoadSpriteShader("clouds.ps")
SetSpriteShader( 1,cloudsShader )

SetShaderConstantByName(cloudsShader,"resolution",width,height,0,0) 
SetShaderConstantByName(cloudsShader,"colorA",0.23, 0.4, 0.6,0) //the blue sky colour (values between 0 an 1)
SetShaderConstantByName(cloudsShader,"colorB",0.8, 0.8, 0.8,0) //the clouds colour

do
    time#=Timer()
    SetShaderConstantByName(cloudsShader,"time",time#,0,0,0) 
    print(ScreenFPS())
    sync()  
 
loop
 
function createTexture ()
    r=random(50,255): g=random(50,255):b=random(50,255)
    DrawBox(0,0,32,32,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
    render()
    img=GetImage(0,0,32,32)    
endfunction img 
  
function createShader()
file = OpenToWrite("clouds.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}") 
CloseFile(file)	
	
	
 
file = OpenToWrite("clouds.ps")
WriteLine(file,"precision highp float;")
WriteLine(file,"#define OCTAVES  8.0")

//needed for 3D
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying mediump vec2 uvVarying;")

WriteLine(file,"uniform float time;")
WriteLine(file,"uniform vec3 colorA;")
WriteLine(file,"uniform vec3 colorB;")
WriteLine(file,"uniform vec2 resolution;")
WriteLine(file,"float rand2(vec2 co){")
WriteLine(file,"   return fract(cos(dot(co.xy ,vec2(12.9898,78.233))) * 4.5453);")
WriteLine(file,"}")
WriteLine(file,"float valueNoiseSimple(vec2 vl) {")
WriteLine(file,"   float minStep = 1.0 ;")
WriteLine(file,"   vec2 grid = floor(vl);")
WriteLine(file,"   vec2 gridPnt1 = grid;")
WriteLine(file,"   vec2 gridPnt2 = vec2(grid.x, grid.y + minStep);")
WriteLine(file,"   vec2 gridPnt3 = vec2(grid.x + minStep, grid.y);")
WriteLine(file,"   vec2 gridPnt4 = vec2(gridPnt3.x, gridPnt2.y);")
WriteLine(file,"    float s = rand2(gridPnt1);")
WriteLine(file,"    float t = rand2(gridPnt3);")
WriteLine(file,"    float u = rand2(gridPnt2);")
WriteLine(file,"    float v = rand2(gridPnt4);")
WriteLine(file,"    float x1 = smoothstep(0., 1., fract(vl.x));")
WriteLine(file,"    float interpX1 = mix(s, t, x1);")
WriteLine(file,"    float interpX2 = mix(u, v, x1);")
WriteLine(file,"    float y = smoothstep(0., 1., fract(vl.y));")
WriteLine(file,"    float interpY = mix(interpX1, interpX2, y);")
WriteLine(file,"    return interpY;")
WriteLine(file,"}")
WriteLine(file,"float fractalNoise(vec2 vl) {")
WriteLine(file,"    float persistance = 2.0;")
WriteLine(file,"    float amplitude = 0.5;")
WriteLine(file,"    float rez = 0.0;")
WriteLine(file,"    vec2 p = vl;")
WriteLine(file,"    for (float i = 0.0; i < OCTAVES; i++) {")
WriteLine(file,"        rez += amplitude * valueNoiseSimple(p);")
WriteLine(file,"        amplitude /= persistance;")
WriteLine(file,"        p *= persistance;")
WriteLine(file,"    }")
WriteLine(file,"    return rez;")
WriteLine(file,"}")
WriteLine(file,"float complexFBM(vec2 p) {")
WriteLine(file,"    const float NUM_FREQS = 32.0;")
WriteLine(file,"    float slow = time / 16.;")
WriteLine(file,"    float fast = time / 2.;")
WriteLine(file,"    vec2 offset1 = vec2(slow  , 0.);")
WriteLine(file,"    vec2 offset2 = vec2(sin(fast)* 0.1, 0.);")
WriteLine(file,"    return")
WriteLine(file,"        (1. + 0.35) *")
WriteLine(file,"        fractalNoise( p + offset1 + fractalNoise(")
WriteLine(file,"            p + fractalNoise(")
WriteLine(file,"                p + 2. * fractalNoise(p - offset2)")
WriteLine(file,"            )")
WriteLine(file,"        )")
WriteLine(file,"        );")
WriteLine(file,"}")
WriteLine(file,"void main() {")
WriteLine(file,"    vec2 uv = gl_FragCoord.xy / resolution.xy;")
WriteLine(file,"    uv.x *= resolution.x / resolution.y;")
WriteLine(file,"    vec3 rez = mix(colorA, colorB, complexFBM(uv) * 1.5 + uv.y * 0.8 - sin(time * 0.1) * 0.5 - 0.7);")
WriteLine(file,"	gl_FragColor = vec4(rez, 1.0);")

WriteLine(file,"}")
CloseFile(file)
endfunction

+ Code Snippet


#constant width = 1024
#constant height= 768

SetWindowSize( width, height, 0 )
SetVirtualResolution( width, height )
   
createShader()
CreateSprite(1,0)
SetSpriteSize(1,width,height)
cloudsShader=LoadSpriteShader("clouds.ps")
SetSpriteShader( 1,cloudsShader )


SetShaderConstantByName(cloudsShader,"resolution",width,height,0,0) 
SetShaderConstantByName(cloudsShader,"colorA",0.23, 0.4, 0.6,0) //the blue sky colour (values between 0 an 1)
SetShaderConstantByName(cloudsShader,"colorB",0.8, 0.8, 0.8,0) //the clouds colour

do
    time#=Timer()
    SetShaderConstantByName(cloudsShader,"time",time#,0,0,0) 
    print(ScreenFPS())
    sync()  
 
loop
 
function createTexture ()
    r=random(50,255): g=random(50,255):b=random(50,255)
    DrawBox(0,0,32,32,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
    render()
    img=GetImage(0,0,32,32)    
endfunction img 
  
function createShader()
file = OpenToWrite("clouds.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}") 
CloseFile(file)	
	
	
 
file = OpenToWrite("clouds.ps")
WriteLine(file,"precision highp float;")
WriteLine(file,"#define OCTAVES  8.0")

//needed for 3D
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying mediump vec2 uvVarying;")

WriteLine(file,"uniform float time;")
WriteLine(file,"uniform vec3 colorA;")
WriteLine(file,"uniform vec3 colorB;")
WriteLine(file,"uniform vec2 resolution;")
WriteLine(file,"float rand2(vec2 co){")
WriteLine(file,"   return fract(cos(dot(co.xy ,vec2(12.9898,78.233))) * 4.5453);")
WriteLine(file,"}")
WriteLine(file,"float valueNoiseSimple(vec2 vl) {")
WriteLine(file,"   float minStep = 1.0 ;")
WriteLine(file,"   vec2 grid = floor(vl);")
WriteLine(file,"   vec2 gridPnt1 = grid;")
WriteLine(file,"   vec2 gridPnt2 = vec2(grid.x, grid.y + minStep);")
WriteLine(file,"   vec2 gridPnt3 = vec2(grid.x + minStep, grid.y);")
WriteLine(file,"   vec2 gridPnt4 = vec2(gridPnt3.x, gridPnt2.y);")
WriteLine(file,"    float s = rand2(gridPnt1);")
WriteLine(file,"    float t = rand2(gridPnt3);")
WriteLine(file,"    float u = rand2(gridPnt2);")
WriteLine(file,"    float v = rand2(gridPnt4);")
WriteLine(file,"    float x1 = smoothstep(0., 1., fract(vl.x));")
WriteLine(file,"    float interpX1 = mix(s, t, x1);")
WriteLine(file,"    float interpX2 = mix(u, v, x1);")
WriteLine(file,"    float y = smoothstep(0., 1., fract(vl.y));")
WriteLine(file,"    float interpY = mix(interpX1, interpX2, y);")
WriteLine(file,"    return interpY;")
WriteLine(file,"}")
WriteLine(file,"float fractalNoise(vec2 vl) {")
WriteLine(file,"    float persistance = 2.0;")
WriteLine(file,"    float amplitude = 0.5;")
WriteLine(file,"    float rez = 0.0;")
WriteLine(file,"    vec2 p = vl;")
WriteLine(file,"    for (float i = 0.0; i < OCTAVES; i++) {")
WriteLine(file,"        rez += amplitude * valueNoiseSimple(p);")
WriteLine(file,"        amplitude /= persistance;")
WriteLine(file,"        p *= persistance;")
WriteLine(file,"    }")
WriteLine(file,"    return rez;")
WriteLine(file,"}")
WriteLine(file,"float complexFBM(vec2 p) {")
WriteLine(file,"    const float NUM_FREQS = 32.0;")
WriteLine(file,"    float slow = time / 16.;")
WriteLine(file,"    float fast = time / 2.;")
WriteLine(file,"    vec2 offset1 = vec2(slow  , 0.);")
WriteLine(file,"    vec2 offset2 = vec2(sin(fast)* 0.1, 0.);")
WriteLine(file,"    return")
WriteLine(file,"        (1. + 0.35) *")
WriteLine(file,"        fractalNoise( p + offset1 + fractalNoise(")
WriteLine(file,"            p + fractalNoise(")
WriteLine(file,"                p + 2. * fractalNoise(p - offset2)")
WriteLine(file,"            )")
WriteLine(file,"        )")
WriteLine(file,"        );")
WriteLine(file,"}")
WriteLine(file,"void main() {")
WriteLine(file,"    vec2 uv = gl_FragCoord.xy / resolution.xy;")
WriteLine(file,"    uv.x *= resolution.x / resolution.y;")
WriteLine(file,"    vec3 rez = mix(colorA, colorB, complexFBM(uv) * 1.5 + uv.y * 0.8 - sin(time * 0.1) * 0.5 - 0.7);")
WriteLine(file,"	gl_FragColor = vec4(rez, 1.0);")

WriteLine(file,"}")
CloseFile(file)
endfunction

3D Clouds Shader Same as above but 3D version

#constant width = 1024
#constant height= 768

SetWindowSize( width, height, 0 )
SetVirtualResolution( width, height )
   
createShader()
backObj=CreateObjectPlane(45,40)
SetObjectImage(backObj,createTexture(),0)
cloudsShader=LoadShader("clouds.vs", "clouds.ps")
SetObjectShader(backObj,cloudsShader)

SetShaderConstantByName(cloudsShader,"resolution",width,height,0,0) 
SetShaderConstantByName(cloudsShader,"colorA",0.23, 0.4, 0.6,0) //the blue sky colour (values between 0 an 1)
SetShaderConstantByName(cloudsShader,"colorB",0.8, 0.8, 0.8,0) //the clouds colour

do
    time#=Timer()
    SetShaderConstantByName(cloudsShader,"time",time#,0,0,0) 
    print(ScreenFPS())
    sync()  
 
loop
 
function createTexture ()
    r=random(50,255): g=random(50,255):b=random(50,255)
    DrawBox(0,0,32,32,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
    render()
    img=GetImage(0,0,32,32)    
endfunction img 
  
function createShader()
file = OpenToWrite("clouds.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}") 
CloseFile(file)	
	 
file = OpenToWrite("clouds.ps")
WriteLine(file,"precision highp float;")
WriteLine(file,"#define OCTAVES  8.0")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"uniform float time;")
WriteLine(file,"uniform vec3 colorA;")
WriteLine(file,"uniform vec3 colorB;")
WriteLine(file,"uniform vec2 resolution;")
WriteLine(file,"float rand2(vec2 co){")
WriteLine(file,"   return fract(cos(dot(co.xy ,vec2(12.9898,78.233))) * 4.5453);")
WriteLine(file,"}")
WriteLine(file,"float valueNoiseSimple(vec2 vl) {")
WriteLine(file,"   float minStep = 1.0 ;")
WriteLine(file,"   vec2 grid = floor(vl);")
WriteLine(file,"   vec2 gridPnt1 = grid;")
WriteLine(file,"   vec2 gridPnt2 = vec2(grid.x, grid.y + minStep);")
WriteLine(file,"   vec2 gridPnt3 = vec2(grid.x + minStep, grid.y);")
WriteLine(file,"   vec2 gridPnt4 = vec2(gridPnt3.x, gridPnt2.y);")
WriteLine(file,"    float s = rand2(gridPnt1);")
WriteLine(file,"    float t = rand2(gridPnt3);")
WriteLine(file,"    float u = rand2(gridPnt2);")
WriteLine(file,"    float v = rand2(gridPnt4);")
WriteLine(file,"    float x1 = smoothstep(0., 1., fract(vl.x));")
WriteLine(file,"    float interpX1 = mix(s, t, x1);")
WriteLine(file,"    float interpX2 = mix(u, v, x1);")
WriteLine(file,"    float y = smoothstep(0., 1., fract(vl.y));")
WriteLine(file,"    float interpY = mix(interpX1, interpX2, y);")
WriteLine(file,"    return interpY;")
WriteLine(file,"}")
WriteLine(file,"float fractalNoise(vec2 vl) {")
WriteLine(file,"    float persistance = 2.0;")
WriteLine(file,"    float amplitude = 0.5;")
WriteLine(file,"    float rez = 0.0;")
WriteLine(file,"    vec2 p = vl;")
WriteLine(file,"    for (float i = 0.0; i < OCTAVES; i++) {")
WriteLine(file,"        rez += amplitude * valueNoiseSimple(p);")
WriteLine(file,"        amplitude /= persistance;")
WriteLine(file,"        p *= persistance;")
WriteLine(file,"    }")
WriteLine(file,"    return rez;")
WriteLine(file,"}")
WriteLine(file,"float complexFBM(vec2 p) {")
WriteLine(file,"    const float NUM_FREQS = 32.0;")
WriteLine(file,"    float slow = time / 16.;")
WriteLine(file,"    float fast = time / 2.;")
WriteLine(file,"    vec2 offset1 = vec2(slow  , 0.);")
WriteLine(file,"    vec2 offset2 = vec2(sin(fast)* 0.1, 0.);")
WriteLine(file,"    return")
WriteLine(file,"        (1. + 0.35) *")
WriteLine(file,"        fractalNoise( p + offset1 + fractalNoise(")
WriteLine(file,"            p + fractalNoise(")
WriteLine(file,"                p + 2. * fractalNoise(p - offset2)")
WriteLine(file,"            )")
WriteLine(file,"        )")
WriteLine(file,"        );")
WriteLine(file,"}")
WriteLine(file,"void main() {")
WriteLine(file,"    vec2 uv = gl_FragCoord.xy / resolution.xy;")
WriteLine(file,"    uv.x *= resolution.x / resolution.y;")
WriteLine(file,"    vec3 rez = mix(colorA, colorB, complexFBM(uv) * 1.5 + uv.y * 0.8 - sin(time * 0.1) * 0.5 - 0.7);")
WriteLine(file,"vec3 color = texture2D(texture0, uvVarying).rgb;")
WriteLine(file,"color.r=rez.r;")
WriteLine(file,"color.g=rez.g;")
WriteLine(file,"color.b=rez.g;")
WriteLine(file,"color = clamp(color,0.0,1.0);") //restricts color range
WriteLine(file,"gl_FragColor = vec4(color,1.0);")

WriteLine(file,"}")
CloseFile(file)
endfunction

+ Code Snippet


#constant width = 1024
#constant height= 768

SetWindowSize( width, height, 0 )
SetVirtualResolution( width, height )
   
createShader()
backObj=CreateObjectPlane(45,40)
SetObjectImage(backObj,createTexture(),0)
cloudsShader=LoadShader("clouds.vs", "clouds.ps")
SetObjectShader(backObj,cloudsShader)

SetShaderConstantByName(cloudsShader,"resolution",width,height,0,0) 
SetShaderConstantByName(cloudsShader,"colorA",0.23, 0.4, 0.6,0) //the blue sky colour (values between 0 an 1)
SetShaderConstantByName(cloudsShader,"colorB",0.8, 0.8, 0.8,0) //the clouds colour

do
    time#=Timer()
    SetShaderConstantByName(cloudsShader,"time",time#,0,0,0) 
    print(ScreenFPS())
    sync()  
 
loop
 
function createTexture ()
    r=random(50,255): g=random(50,255):b=random(50,255)
    DrawBox(0,0,32,32,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
    render()
    img=GetImage(0,0,32,32)    
endfunction img 
  
function createShader()
file = OpenToWrite("clouds.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}") 
CloseFile(file)	
	 
file = OpenToWrite("clouds.ps")
WriteLine(file,"precision highp float;")
WriteLine(file,"#define OCTAVES  8.0")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"uniform float time;")
WriteLine(file,"uniform vec3 colorA;")
WriteLine(file,"uniform vec3 colorB;")
WriteLine(file,"uniform vec2 resolution;")
WriteLine(file,"float rand2(vec2 co){")
WriteLine(file,"   return fract(cos(dot(co.xy ,vec2(12.9898,78.233))) * 4.5453);")
WriteLine(file,"}")
WriteLine(file,"float valueNoiseSimple(vec2 vl) {")
WriteLine(file,"   float minStep = 1.0 ;")
WriteLine(file,"   vec2 grid = floor(vl);")
WriteLine(file,"   vec2 gridPnt1 = grid;")
WriteLine(file,"   vec2 gridPnt2 = vec2(grid.x, grid.y + minStep);")
WriteLine(file,"   vec2 gridPnt3 = vec2(grid.x + minStep, grid.y);")
WriteLine(file,"   vec2 gridPnt4 = vec2(gridPnt3.x, gridPnt2.y);")
WriteLine(file,"    float s = rand2(gridPnt1);")
WriteLine(file,"    float t = rand2(gridPnt3);")
WriteLine(file,"    float u = rand2(gridPnt2);")
WriteLine(file,"    float v = rand2(gridPnt4);")
WriteLine(file,"    float x1 = smoothstep(0., 1., fract(vl.x));")
WriteLine(file,"    float interpX1 = mix(s, t, x1);")
WriteLine(file,"    float interpX2 = mix(u, v, x1);")
WriteLine(file,"    float y = smoothstep(0., 1., fract(vl.y));")
WriteLine(file,"    float interpY = mix(interpX1, interpX2, y);")
WriteLine(file,"    return interpY;")
WriteLine(file,"}")
WriteLine(file,"float fractalNoise(vec2 vl) {")
WriteLine(file,"    float persistance = 2.0;")
WriteLine(file,"    float amplitude = 0.5;")
WriteLine(file,"    float rez = 0.0;")
WriteLine(file,"    vec2 p = vl;")
WriteLine(file,"    for (float i = 0.0; i < OCTAVES; i++) {")
WriteLine(file,"        rez += amplitude * valueNoiseSimple(p);")
WriteLine(file,"        amplitude /= persistance;")
WriteLine(file,"        p *= persistance;")
WriteLine(file,"    }")
WriteLine(file,"    return rez;")
WriteLine(file,"}")
WriteLine(file,"float complexFBM(vec2 p) {")
WriteLine(file,"    const float NUM_FREQS = 32.0;")
WriteLine(file,"    float slow = time / 16.;")
WriteLine(file,"    float fast = time / 2.;")
WriteLine(file,"    vec2 offset1 = vec2(slow  , 0.);")
WriteLine(file,"    vec2 offset2 = vec2(sin(fast)* 0.1, 0.);")
WriteLine(file,"    return")
WriteLine(file,"        (1. + 0.35) *")
WriteLine(file,"        fractalNoise( p + offset1 + fractalNoise(")
WriteLine(file,"            p + fractalNoise(")
WriteLine(file,"                p + 2. * fractalNoise(p - offset2)")
WriteLine(file,"            )")
WriteLine(file,"        )")
WriteLine(file,"        );")
WriteLine(file,"}")
WriteLine(file,"void main() {")
WriteLine(file,"    vec2 uv = gl_FragCoord.xy / resolution.xy;")
WriteLine(file,"    uv.x *= resolution.x / resolution.y;")
WriteLine(file,"    vec3 rez = mix(colorA, colorB, complexFBM(uv) * 1.5 + uv.y * 0.8 - sin(time * 0.1) * 0.5 - 0.7);")
WriteLine(file,"vec3 color = texture2D(texture0, uvVarying).rgb;")
WriteLine(file,"color.r=rez.r;")
WriteLine(file,"color.g=rez.g;")
WriteLine(file,"color.b=rez.g;")
WriteLine(file,"color = clamp(color,0.0,1.0);") //restricts color range
WriteLine(file,"gl_FragColor = vec4(color,1.0);")

WriteLine(file,"}")
CloseFile(file)
endfunction

fubarpk
fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

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: 24th May 2019 00:12

Link

factorial function

+ Code Snippet

function fact(n as integer) 
    /* n=0 indicates a terminating condition */    
if n <= 0 
	exitfunction (1)
else 
  exitfunction (n * fact(n - 1))
endif
endfunction 0

fubarpk
fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

shiku316

7

Years of Service

User Offline

Joined: 6th Nov 2017

Location:

Posted: 24th May 2019 08:11

Link

Hi! didn't know where to post my question, but since its 3d related and need a little snippet i thought about posting here.
Does anyone know how to get multiplayer with game guru loader? Any orientation will be greatly appreciated.

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 24th May 2019 09:11

Link

@shiku316 you would do best to start your own thread as more people would see it
and your more likely to find a solution to your problem

fubarpk
fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

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: 2nd Jul 2019 01:02

Link

not sure how useful people will find this
but if you want to pixelate the texture of a 3D object using a shader

SetErrorMode(2)

// set window properties
SetWindowTitle( "Pixelate" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

createShaderFile()
imgId=createRandomBgImage()
//CreateSprite(1,imgId)
CreateObjectBox(1,5,5,5)
SetObjectImage(1,imgId,0)
//LoadSpriteShader(2, "pixelate.ps")
//SetSpriteShader( 1,2 )
LoadShader(2,"pixelate.vs","pixelate.ps")
SetObjectShader(1,2)
do
	if GetRawKeyPressed(32) then SetCameraPosition(1,GetCameraX(1),GetCameraY(1),GetCameraZ(1)+.5)
    SetShaderConstantByName(2,"pixels",15,10,0,0) //the bigger the numbers the more pixels
    sync()   
loop

function createShaderFile()
fw = OpenToWrite("pixelate.vs")
WriteLine(fw,"attribute highp vec3 position;")
WriteLine(fw,"attribute mediump vec3 normal;")
WriteLine(fw,"attribute mediump vec2 uv;")
WriteLine(fw,"varying highp vec3 posVarying;")
WriteLine(fw,"varying mediump vec3 normalVarying;")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"varying mediump vec3 lightVarying;")
WriteLine(fw,"uniform highp mat3 agk_WorldNormal;")
WriteLine(fw,"uniform highp mat4 agk_World;")
WriteLine(fw,"uniform highp mat4 agk_ViewProj;")

WriteLine(fw,"uniform vec2 pixels; ")
WriteLine(fw,"uniform sampler2D texture0; // input channel")

WriteLine(fw,"uniform mediump vec4 uvBounds0;")
WriteLine(fw,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(fw,"void main()")
WriteLine(fw,"{") 
WriteLine(fw,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(fw,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(fw,"    gl_Position = agk_ViewProj * pos;")
WriteLine(fw,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(fw,"    posVarying = pos.xyz;")
WriteLine(fw,"    normalVarying = norm;")
WriteLine(fw,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(fw,"}") 
CloseFile(fw)

fw=OpenToWrite("pixelate.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"precision mediump int;")
WriteLine(fw,"#endif")
WriteLine(fw,"#define PROCESSING_TEXTURE_SHADER")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"uniform sampler2D texture0;")
WriteLine(fw,"uniform vec2 pixels;")
WriteLine(fw,"void main(void)")
WriteLine(fw,"{")
WriteLine(fw,"  vec2 p = uvVarying;")
WriteLine(fw,"	p.x -= mod(p.x, 1.0 / pixels.x);")
WriteLine(fw,"	p.y -= mod(p.y, 1.0 / pixels.y);")
WriteLine(fw,"	vec3 col = texture2D(texture0, p).rgb;")
WriteLine(fw,"	gl_FragColor = vec4(col, 1.0);")
WriteLine(fw,"}")
CloseFile(fw)
endfunction

function createRandomBgImage()
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    For num = 1 to 500
		DrawEllipse(Random(1,1023),Random(1,787),random(10,30),random(10,30),makecolor(random(1,255),random(1,255),random(1,255)),makecolor(random(1,255),random(1,255),random(1,255)),1)
    next num
    swap()
    img = getimage(0,0,1024,768)
    //SetImageTransparentColor(img,0,0,0)
endfunction img

+ Code Snippet


SetErrorMode(2)

// set window properties
SetWindowTitle( "Pixelate" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

createShaderFile()
imgId=createRandomBgImage()
//CreateSprite(1,imgId)
CreateObjectBox(1,5,5,5)
SetObjectImage(1,imgId,0)
//LoadSpriteShader(2, "pixelate.ps")
//SetSpriteShader( 1,2 )
LoadShader(2,"pixelate.vs","pixelate.ps")
SetObjectShader(1,2)
do
	if GetRawKeyPressed(32) then SetCameraPosition(1,GetCameraX(1),GetCameraY(1),GetCameraZ(1)+.5)
    SetShaderConstantByName(2,"pixels",15,10,0,0) //the bigger the numbers the more pixels
    sync()   
loop

function createShaderFile()
fw = OpenToWrite("pixelate.vs")
WriteLine(fw,"attribute highp vec3 position;")
WriteLine(fw,"attribute mediump vec3 normal;")
WriteLine(fw,"attribute mediump vec2 uv;")
WriteLine(fw,"varying highp vec3 posVarying;")
WriteLine(fw,"varying mediump vec3 normalVarying;")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"varying mediump vec3 lightVarying;")
WriteLine(fw,"uniform highp mat3 agk_WorldNormal;")
WriteLine(fw,"uniform highp mat4 agk_World;")
WriteLine(fw,"uniform highp mat4 agk_ViewProj;")

WriteLine(fw,"uniform vec2 pixels; ")
WriteLine(fw,"uniform sampler2D texture0; // input channel")

WriteLine(fw,"uniform mediump vec4 uvBounds0;")
WriteLine(fw,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(fw,"void main()")
WriteLine(fw,"{") 
WriteLine(fw,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(fw,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(fw,"    gl_Position = agk_ViewProj * pos;")
WriteLine(fw,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(fw,"    posVarying = pos.xyz;")
WriteLine(fw,"    normalVarying = norm;")
WriteLine(fw,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(fw,"}") 
CloseFile(fw)

fw=OpenToWrite("pixelate.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"precision mediump int;")
WriteLine(fw,"#endif")
WriteLine(fw,"#define PROCESSING_TEXTURE_SHADER")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"uniform sampler2D texture0;")
WriteLine(fw,"uniform vec2 pixels;")
WriteLine(fw,"void main(void)")
WriteLine(fw,"{")
WriteLine(fw,"  vec2 p = uvVarying;")
WriteLine(fw,"	p.x -= mod(p.x, 1.0 / pixels.x);")
WriteLine(fw,"	p.y -= mod(p.y, 1.0 / pixels.y);")
WriteLine(fw,"	vec3 col = texture2D(texture0, p).rgb;")
WriteLine(fw,"	gl_FragColor = vec4(col, 1.0);")
WriteLine(fw,"}")
CloseFile(fw)
endfunction

function createRandomBgImage()
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    For num = 1 to 500
		DrawEllipse(Random(1,1023),Random(1,787),random(10,30),random(10,30),makecolor(random(1,255),random(1,255),random(1,255)),makecolor(random(1,255),random(1,255),random(1,255)),1)
    next num
    swap()
    img = getimage(0,0,1024,768)
    //SetImageTransparentColor(img,0,0,0)
endfunction img

fubarpk
fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 2nd Jul 2019 10:05

Link

@ fubarpk This will come very handy for my retro game . Thanks for sharing

I'm not a grumpy grandpa

Back to top

Profile PM Email

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 2nd Jul 2019 15:15 Edited at: 2nd Jul 2019 15:56

Link

thanks glad you like it Chafari
I was thinking it could be used to bring things in and out of resolution like (use arrow keys)

SetErrorMode(2)

// set window properties
SetWindowTitle( "Pixelate" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

createShaderFile()
imgId=createRandomBgImage()
//CreateSprite(1,imgId)
CreateObjectBox(1,5,5,5)
SetObjectImage(1,imgId,0)
//LoadSpriteShader(2, "pixelate.ps")
//SetSpriteShader( 1,2 )
LoadShader(2,"pixelate.vs","pixelate.ps")
SetObjectShader(1,2)
x=10.0:y=10.0
do
	if GetRawKeyState(38) 
		if x<1024 then x=x+1:if y < 768 then y=y+1
    endif
    if GetRawKeyState(40) 
		if x>2 then x=x-1:if y>2 then y=y-1
    endif
    SetShaderConstantByName(2,"pixels",x,y,0,0) //the bigger the numbers the more pixels
    print("x "+str(x))
    print("y "+str(y))
    print (ScreenFPS())
    sync()   
loop

function createShaderFile()
fw = OpenToWrite("pixelate.vs")
WriteLine(fw,"attribute highp vec3 position;")
WriteLine(fw,"attribute mediump vec3 normal;")
WriteLine(fw,"attribute mediump vec2 uv;")
WriteLine(fw,"varying highp vec3 posVarying;")
WriteLine(fw,"varying mediump vec3 normalVarying;")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"varying mediump vec3 lightVarying;")
WriteLine(fw,"uniform highp mat3 agk_WorldNormal;")
WriteLine(fw,"uniform highp mat4 agk_World;")
WriteLine(fw,"uniform highp mat4 agk_ViewProj;")

WriteLine(fw,"uniform vec2 pixels; ")
WriteLine(fw,"uniform sampler2D texture0; // input channel")

WriteLine(fw,"uniform mediump vec4 uvBounds0;")
WriteLine(fw,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(fw,"void main()")
WriteLine(fw,"{") 
WriteLine(fw,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(fw,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(fw,"    gl_Position = agk_ViewProj * pos;")
WriteLine(fw,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(fw,"    posVarying = pos.xyz;")
WriteLine(fw,"    normalVarying = norm;")
WriteLine(fw,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(fw,"}") 
CloseFile(fw)

fw=OpenToWrite("pixelate.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"precision mediump int;")
WriteLine(fw,"#endif")
WriteLine(fw,"#define PROCESSING_TEXTURE_SHADER")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"uniform sampler2D texture0;")
WriteLine(fw,"uniform vec2 pixels;")
WriteLine(fw,"void main(void)")
WriteLine(fw,"{")
WriteLine(fw,"  vec2 p = uvVarying;")
WriteLine(fw,"	p.x -= mod(p.x, 1.0 / pixels.x);")
WriteLine(fw,"	p.y -= mod(p.y, 1.0 / pixels.y);")
WriteLine(fw,"	vec3 col = texture2D(texture0, p).rgb;")
WriteLine(fw,"	gl_FragColor = vec4(col, 1.0);")
WriteLine(fw,"}")
CloseFile(fw)
endfunction

function createRandomBgImage()
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    For num = 1 to 500
		DrawEllipse(Random(1,1023),Random(1,787),random(10,30),random(10,30),makecolor(random(1,255),random(1,255),random(1,255)),makecolor(random(1,255),random(1,255),random(1,255)),1)
    next num
    swap()
    img = getimage(0,0,1024,768)
    //SetImageTransparentColor(img,0,0,0)
endfunction img

+ Code Snippet


SetErrorMode(2)

// set window properties
SetWindowTitle( "Pixelate" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

createShaderFile()
imgId=createRandomBgImage()
//CreateSprite(1,imgId)
CreateObjectBox(1,5,5,5)
SetObjectImage(1,imgId,0)
//LoadSpriteShader(2, "pixelate.ps")
//SetSpriteShader( 1,2 )
LoadShader(2,"pixelate.vs","pixelate.ps")
SetObjectShader(1,2)
x=10.0:y=10.0
do
	if GetRawKeyState(38) 
		if x<1024 then x=x+1:if y < 768 then y=y+1
    endif
    if GetRawKeyState(40) 
		if x>2 then x=x-1:if y>2 then y=y-1
    endif
    SetShaderConstantByName(2,"pixels",x,y,0,0) //the bigger the numbers the more pixels
    print("x "+str(x))
    print("y "+str(y))
    print (ScreenFPS())
    sync()   
loop

function createShaderFile()
fw = OpenToWrite("pixelate.vs")
WriteLine(fw,"attribute highp vec3 position;")
WriteLine(fw,"attribute mediump vec3 normal;")
WriteLine(fw,"attribute mediump vec2 uv;")
WriteLine(fw,"varying highp vec3 posVarying;")
WriteLine(fw,"varying mediump vec3 normalVarying;")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"varying mediump vec3 lightVarying;")
WriteLine(fw,"uniform highp mat3 agk_WorldNormal;")
WriteLine(fw,"uniform highp mat4 agk_World;")
WriteLine(fw,"uniform highp mat4 agk_ViewProj;")

WriteLine(fw,"uniform vec2 pixels; ")
WriteLine(fw,"uniform sampler2D texture0; // input channel")

WriteLine(fw,"uniform mediump vec4 uvBounds0;")
WriteLine(fw,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(fw,"void main()")
WriteLine(fw,"{") 
WriteLine(fw,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(fw,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(fw,"    gl_Position = agk_ViewProj * pos;")
WriteLine(fw,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(fw,"    posVarying = pos.xyz;")
WriteLine(fw,"    normalVarying = norm;")
WriteLine(fw,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(fw,"}") 
CloseFile(fw)

fw=OpenToWrite("pixelate.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"precision mediump int;")
WriteLine(fw,"#endif")
WriteLine(fw,"#define PROCESSING_TEXTURE_SHADER")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"uniform sampler2D texture0;")
WriteLine(fw,"uniform vec2 pixels;")
WriteLine(fw,"void main(void)")
WriteLine(fw,"{")
WriteLine(fw,"  vec2 p = uvVarying;")
WriteLine(fw,"	p.x -= mod(p.x, 1.0 / pixels.x);")
WriteLine(fw,"	p.y -= mod(p.y, 1.0 / pixels.y);")
WriteLine(fw,"	vec3 col = texture2D(texture0, p).rgb;")
WriteLine(fw,"	gl_FragColor = vec4(col, 1.0);")
WriteLine(fw,"}")
CloseFile(fw)
endfunction

function createRandomBgImage()
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    For num = 1 to 500
		DrawEllipse(Random(1,1023),Random(1,787),random(10,30),random(10,30),makecolor(random(1,255),random(1,255),random(1,255)),makecolor(random(1,255),random(1,255),random(1,255)),1)
    next num
    swap()
    img = getimage(0,0,1024,768)
    //SetImageTransparentColor(img,0,0,0)
endfunction img

or to imitate digital tv reception problems

fubarpk
fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 2nd Jul 2019 16:32

Link

Yeah !! You are a genius !! this could be useful for camera depth making object more blured in the distance ...I will make some test later on .

I'm not a grumpy grandpa

Back to top

Profile PM Email

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 2nd Jul 2019 17:12

Link

Thanks
Ive been playing with the scanline shader

SetErrorMode(2)

// set window properties
SetWindowTitle( "3D scanlines" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

createShaderFile()
imgId=createRandomBgImage()
//imgId=LoadImage("zombie.png")
//CreateSprite(1,imgId)
CreateObjectBox(1,5,5,5)
//loadObject(1,"zombie.3ds")
SetObjectPosition(1,getObjectX(1),getObjectY(1)-5,getObjectZ(1))
SetObjectImage(1,imgId,0)
//LoadSpriteShader(2, "pixelate.ps")
//SetSpriteShader( 1,2 )
LoadShader(2,"scanlines.vs","scanlines.ps")
SetObjectShader(1,2)
SetShaderConstantByName(2,"iResolution",1024,768,0,0 )
x=10.0:y=10.0
do
	if GetRawKeyState(38) 
		if x<1024 then x=x+1:if y < 768 then y=y+1
    endif
    if GetRawKeyState(40) 
		if x>2 then x=x-1:if y>2 then y=y-1
    endif
    rotateObjectLocalY(1,1)
    //SetShaderConstantByName(2,"pixels",x,y,0,0) //the bigger the numbers the more pixels
    SetShaderConstantByName(2,"time",Timer(),0,0,0 )
    print("x "+str(x))
    print("y "+str(y))
    print (ScreenFPS())
    sync()   
loop

function createRandomBgImage()
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    For num = 1 to 500
		DrawEllipse(Random(1,1023),Random(1,787),random(10,30),random(10,30),makecolor(random(1,255),random(1,255),random(1,255)),makecolor(random(1,255),random(1,255),random(1,255)),1)
    next num
    swap()
    img = getimage(0,0,1024,768)
    //SetImageTransparentColor(img,0,0,0)
endfunction img

+ Code Snippet

SetErrorMode(2)

// set window properties
SetWindowTitle( "3D scanlines" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

createShaderFile()
imgId=createRandomBgImage()
//imgId=LoadImage("zombie.png")
//CreateSprite(1,imgId)
CreateObjectBox(1,5,5,5)
//loadObject(1,"zombie.3ds")
SetObjectPosition(1,getObjectX(1),getObjectY(1)-5,getObjectZ(1))
SetObjectImage(1,imgId,0)
//LoadSpriteShader(2, "pixelate.ps")
//SetSpriteShader( 1,2 )
LoadShader(2,"scanlines.vs","scanlines.ps")
SetObjectShader(1,2)
SetShaderConstantByName(2,"iResolution",1024,768,0,0 )
x=10.0:y=10.0
do
	if GetRawKeyState(38) 
		if x<1024 then x=x+1:if y < 768 then y=y+1
    endif
    if GetRawKeyState(40) 
		if x>2 then x=x-1:if y>2 then y=y-1
    endif
    rotateObjectLocalY(1,1)
    //SetShaderConstantByName(2,"pixels",x,y,0,0) //the bigger the numbers the more pixels
    SetShaderConstantByName(2,"time",Timer(),0,0,0 )
    print("x "+str(x))
    print("y "+str(y))
    print (ScreenFPS())
    sync()   
loop

function createShaderFile()
     
    fw = OpenToWrite("scanlines.vs")
    WriteLine(fw,"attribute highp vec3 position;")
    WriteLine(fw,"attribute mediump vec3 normal;")
    WriteLine(fw,"varying highp vec3 posVarying;")
    WriteLine(fw,"varying mediump vec3 normalVarying;")
    WriteLine(fw,"varying mediump vec3 lightVarying;")
    WriteLine(fw,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
    WriteLine(fw,"uniform highp mat3 agk_WorldNormal;")
    WriteLine(fw,"uniform highp mat4 agk_World;")
    WriteLine(fw,"uniform highp mat4 agk_ViewProj;")
    WriteLine(fw,"attribute highp vec2 uv;")
    WriteLine(fw,"varying highp vec2 uvVarying;")
    WriteLine(fw,"uniform highp vec4 uvBounds0;")
    WriteLine(fw,"uniform sampler2D texture0; // input channel")  
    WriteLine(fw,"void main()")
    WriteLine(fw,"{ ")
    WriteLine(fw,"uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
    WriteLine(fw,"highp vec4 pos = agk_World * vec4(position,1.0);")
    WriteLine(fw,"mediump vec3 norm = normalize(agk_WorldNormal * normal);")
    WriteLine(fw,"gl_Position = agk_ViewProj * pos;")
    WriteLine(fw,"posVarying = pos.xyz;")
    WriteLine(fw,"normalVarying = norm;")
    WriteLine(fw,"lightVarying = GetVSLighting( norm, posVarying );")
    WriteLine(fw,"}")
    CloseFile(fw)   
 
	fw=OpenToWrite("scanlines.ps")
	WriteLine(fw,"#ifdef GL_ES")
	WriteLine(fw,"precision mediump float;")
	WriteLine(fw,"#endif")
	WriteLine(fw,"varying mediump vec2 uvVarying;")
	WriteLine(fw,"uniform vec2 iResolution;")
	WriteLine(fw,"uniform float time;")
	WriteLine(fw,"uniform sampler2D texture0; // input channel")
	WriteLine(fw,"#define num 60.0")
	WriteLine(fw,"float random(vec2 p){")
	WriteLine(fw,"  return fract(sin(dot(p, vec2(12.9898,78.233))) * 43758.5453+time*4.0);  ")
	WriteLine(fw,"}")
	WriteLine(fw,"void main() {")
	WriteLine(fw,"      vec2 p = ( gl_FragCoord.xy / (iResolution.xy) );")
	WriteLine(fw,"  //- vec2(0.5, 0.5);")
	WriteLine(fw,"  //vec2 p = (gl_FragCoord.xy * 2.0 - iResolution.xy) / min(iResolution.x, iResolution.y) - vec2(.5 , .5);")
	WriteLine(fw,"      float top, bottom, linewidth;")
	WriteLine(fw,"  float offSet = 0.5;")
	WriteLine(fw,"  float span = 0.01;")
	WriteLine(fw,"  linewidth = 0.01;")
	WriteLine(fw,"      top = fract(time);")
	WriteLine(fw,"  bottom = fract(time) + linewidth;")
	WriteLine(fw,"  vec4 border = vec4(0.0, 0.0, 0.0, 1.0);")
	WriteLine(fw,"  for(float i = 1.0; i < num; i++){")
	WriteLine(fw,"      top += i * span; ")
	WriteLine(fw,"      top = fract(top);")
	WriteLine(fw,"      bottom += i *span;")
	WriteLine(fw,"      bottom = fract(bottom);")
	WriteLine(fw,"      if(p.y > top && p.y < bottom){")
	WriteLine(fw,"      border = vec4(abs(1.0 * sin(time)), 0.0, 0.0, 1.0);")
	WriteLine(fw,"      }")
	WriteLine(fw,"  }")
	WriteLine(fw,"  float c = random(p);")
	WriteLine(fw,"  vec2 pp = uvVarying;")
	WriteLine(fw,"  vec3 col = mix(vec3(c, c, c), border.xyz, 0.6);")
	WriteLine(fw,"	vec3 col0 = mix(vec3 (texture2D(texture0, pp).rgb),col.xyz,0.6);")
	WriteLine(fw,"	//comment out line above and uncomment line below to remove the staticky look")
	WriteLine(fw,"	//vec3 col0 = mix(vec3 (texture2D(texture0, pp).rgb),border.xyz,0.6);")
	WriteLine(fw,"	gl_FragColor = vec4(col0, 1.0);")
	WriteLine(fw,"  }")
CloseFile(fw)
endfunction

function createRandomBgImage()
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    For num = 1 to 500
		DrawEllipse(Random(1,1023),Random(1,787),random(10,30),random(10,30),makecolor(random(1,255),random(1,255),random(1,255)),makecolor(random(1,255),random(1,255),random(1,255)),1)
    next num
    swap()
    img = getimage(0,0,1024,768)
    //SetImageTransparentColor(img,0,0,0)
endfunction img

works better if you use a proper model
if you look at the ps file there is a line that can be commented un commented to remove the staticky look

fubarpk
fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 2nd Jul 2019 23:16 Edited at: 2nd Jul 2019 23:17

Link

That is nice ...could be used for some kinda hologram .

I made some test based on your first pixelate shader . I think could be done the camera depth with it ...this snipet needs some adjustements but here's what I have so far.

SetErrorMode(2)

// set window properties
SetWindowTitle( "Pixelate" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

createShaderFile()
imgId=createRandomBgImage()
loadimage(2,"muros.png")
//CreateSprite(1,imgId)
for k= 1 to 10
LoadShader(k,"pixelate.vs","pixelate.ps")
next

for i= 1 to 10
	CreateObjectBox(i,5,5,5)
	SetObjectImage(i,2,0)
	SetObjectShader(i,i)
	setobjectposition(i,random(0,50),0,random(0,50))
next
//LoadSpriteShader(2, "pixelate.ps")
//SetSpriteShader( 1,2 )

x=10.0:y=10.0
do
for i= 1 to 10
		dx#=getobjectx(i)-getcamerax(1)
		dz#=getobjectz(i)-getcameraz(1)
		dist#=sqrt((dx#*dx#)+(dz#*dz#))
		kak=100-dist#*1.8
		if kak<2 then kak=2
		SetShaderConstantByName(i,"pixels",kak,kak,0,0) //the bigger the numbers the more pixels
next
	   
    
    gosub camara
    
    print (ScreenFPS())
    sync()   
loop
camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )  // cursor derecha

if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
return

function createShaderFile()
fw = OpenToWrite("pixelate.vs")
WriteLine(fw,"attribute highp vec3 position;")
WriteLine(fw,"attribute mediump vec3 normal;")
WriteLine(fw,"attribute mediump vec2 uv;")
WriteLine(fw,"varying highp vec3 posVarying;")
WriteLine(fw,"varying mediump vec3 normalVarying;")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"varying mediump vec3 lightVarying;")
WriteLine(fw,"uniform highp mat3 agk_WorldNormal;")
WriteLine(fw,"uniform highp mat4 agk_World;")
WriteLine(fw,"uniform highp mat4 agk_ViewProj;")

WriteLine(fw,"uniform vec2 pixels; ")
WriteLine(fw,"uniform sampler2D texture0; // input channel")

WriteLine(fw,"uniform mediump vec4 uvBounds0;")
WriteLine(fw,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(fw,"void main()")
WriteLine(fw,"{") 
WriteLine(fw,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(fw,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(fw,"    gl_Position = agk_ViewProj * pos;")
WriteLine(fw,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(fw,"    posVarying = pos.xyz;")
WriteLine(fw,"    normalVarying = norm;")
WriteLine(fw,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(fw,"}") 
CloseFile(fw)

fw=OpenToWrite("pixelate.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"precision mediump int;")
WriteLine(fw,"#endif")
WriteLine(fw,"#define PROCESSING_TEXTURE_SHADER")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"uniform sampler2D texture0;")
WriteLine(fw,"uniform vec2 pixels;")
WriteLine(fw,"void main(void)")
WriteLine(fw,"{")
WriteLine(fw,"  vec2 p = uvVarying;")
WriteLine(fw,"	p.x -= mod(p.x, 1.0 / pixels.x);")
WriteLine(fw,"	p.y -= mod(p.y, 1.0 / pixels.y);")
WriteLine(fw,"	vec3 col = texture2D(texture0, p).rgb;")
WriteLine(fw,"	gl_FragColor = vec4(col, 1.0);")
WriteLine(fw,"}")
CloseFile(fw)
endfunction

function createRandomBgImage()
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    For num = 1 to 500
		DrawEllipse(Random(1,1023),Random(1,787),random(10,30),random(10,30),makecolor(random(1,255),random(1,255),random(1,255)),makecolor(random(1,255),random(1,255),random(1,255)),1)
    next num
    swap()
    img = getimage(0,0,1024,768)
    //SetImageTransparentColor(img,0,0,0)
endfunction img

+ Code Snippet

SetErrorMode(2)

// set window properties
SetWindowTitle( "Pixelate" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

createShaderFile()
imgId=createRandomBgImage()
loadimage(2,"muros.png")
//CreateSprite(1,imgId)
for k= 1 to 10
LoadShader(k,"pixelate.vs","pixelate.ps")
next

for i= 1 to 10
	CreateObjectBox(i,5,5,5)
	SetObjectImage(i,2,0)
	SetObjectShader(i,i)
	setobjectposition(i,random(0,50),0,random(0,50))
next
//LoadSpriteShader(2, "pixelate.ps")
//SetSpriteShader( 1,2 )


x=10.0:y=10.0
do
for i= 1 to 10
		dx#=getobjectx(i)-getcamerax(1)
		dz#=getobjectz(i)-getcameraz(1)
		dist#=sqrt((dx#*dx#)+(dz#*dz#))
		kak=100-dist#*1.8
		if kak<2 then kak=2
		SetShaderConstantByName(i,"pixels",kak,kak,0,0) //the bigger the numbers the more pixels
next
	   
    
    gosub camara
    
    print (ScreenFPS())
    sync()   
loop
camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )  // cursor derecha 

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
return

function createShaderFile()
fw = OpenToWrite("pixelate.vs")
WriteLine(fw,"attribute highp vec3 position;")
WriteLine(fw,"attribute mediump vec3 normal;")
WriteLine(fw,"attribute mediump vec2 uv;")
WriteLine(fw,"varying highp vec3 posVarying;")
WriteLine(fw,"varying mediump vec3 normalVarying;")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"varying mediump vec3 lightVarying;")
WriteLine(fw,"uniform highp mat3 agk_WorldNormal;")
WriteLine(fw,"uniform highp mat4 agk_World;")
WriteLine(fw,"uniform highp mat4 agk_ViewProj;")

WriteLine(fw,"uniform vec2 pixels; ")
WriteLine(fw,"uniform sampler2D texture0; // input channel")

WriteLine(fw,"uniform mediump vec4 uvBounds0;")
WriteLine(fw,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(fw,"void main()")
WriteLine(fw,"{") 
WriteLine(fw,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(fw,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(fw,"    gl_Position = agk_ViewProj * pos;")
WriteLine(fw,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(fw,"    posVarying = pos.xyz;")
WriteLine(fw,"    normalVarying = norm;")
WriteLine(fw,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(fw,"}") 
CloseFile(fw)

fw=OpenToWrite("pixelate.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"precision mediump int;")
WriteLine(fw,"#endif")
WriteLine(fw,"#define PROCESSING_TEXTURE_SHADER")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"uniform sampler2D texture0;")
WriteLine(fw,"uniform vec2 pixels;")
WriteLine(fw,"void main(void)")
WriteLine(fw,"{")
WriteLine(fw,"  vec2 p = uvVarying;")
WriteLine(fw,"	p.x -= mod(p.x, 1.0 / pixels.x);")
WriteLine(fw,"	p.y -= mod(p.y, 1.0 / pixels.y);")
WriteLine(fw,"	vec3 col = texture2D(texture0, p).rgb;")
WriteLine(fw,"	gl_FragColor = vec4(col, 1.0);")
WriteLine(fw,"}")
CloseFile(fw)
endfunction

function createRandomBgImage()
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    For num = 1 to 500
		DrawEllipse(Random(1,1023),Random(1,787),random(10,30),random(10,30),makecolor(random(1,255),random(1,255),random(1,255)),makecolor(random(1,255),random(1,255),random(1,255)),1)
    next num
    swap()
    img = getimage(0,0,1024,768)
    //SetImageTransparentColor(img,0,0,0)
endfunction img

I'm not a grumpy grandpa

Attachments

Login to view attachments

Back to top

Profile PM Email

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 2nd Jul 2019 23:32

Link

That's quite interesting chafari
i didnt have muros.png so i used my own brick texture which might be different dimmensions
but i see the effect your creating. Could be good for an old retro game remake and using it
real time. I was originally thinking it might be good for an intro sequence where the objects
started off pixelated and slowly come into view at the beginning of the game. Then they could be
set to no shader so they revert back to default and no speed loss. Which could also be acheived
with a sprite shader but you couldnt have camera panning into the scene. Combined with your
effect could make for a great intro. VERY INTERESTING

fubarpk
fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

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: 14th Jul 2019 03:46 Edited at: 14th Jul 2019 04:07

Link

Been playing with Character Controllers and I figured basic car physics can be achieved
Basic Car Physics Its nowhere as sophisticated as blinks bullet car physics but it
may be usefull for a retro remake, the demo also shows that jumps are achievable

SetErrorMode(2)
#constant acceleration#=.05 //used to calclate the carSpeed#
#constant maxCarSpeed#=20.0 //The Maximum speed the carBlock will move 
#constant minCarSpeed#=0.0   //The Minimum speed the carBlock will move 
#constant AccelerationFactor#=.25 //the speed your car accelerates at
#constant DecelerationFactor#=.05 //the braking factor
#constant KEY_LEFT         37
#constant KEY_UP           38
#constant KEY_RIGHT        39
#constant KEY_DOWN         40
screenWidth As Float
screenHeight As Float
screenAspect As Float

screenWidth = GetDeviceWidth()
screenHeight = GetDeviceHeight()

// set window properties
SetWindowTitle("Vehicle physics with playercontrollers")
SetOrientationAllowed(0, 0, 1, 1) // allow both portrait and landscape on mobile devices
SetWindowSize(screenWidth, screenHeight, 0, 0)
SetWindowAllowResize(1) // allow the user to resize the window

// set display properties
SetVirtualResolution(screenWidth, screenHeight) // doesn't have to match the window
SetSyncRate(25, 0) // 30fps instead of 60 to save battery
SetScissor(0, 0, 0, 0) // use the maximum available screen space, no black borders
UseNewDefaultFonts(1)

create3DPhysicsWorld()
box=CreateObjectSphere(2, 16, 16)
SetObjectColor(box,200,200,200,255)
SetObjectPosition(box,0,2,0)
//RotateObjectLocalz(box,90)
//SetCameraPosition(1, 0, 0, -3)
///SetCameraLookAt(1, 0, 0, 0, 0)
createCharacterController(box)

ground=CreateObjectPlane(200,200)
SetObjectImage(ground,CreateGrid(screenWidth,screenHeight), 0)
RotateObjectLocalX(ground,90)
Create3DPhysicsStaticBody(ground)

ramp=CreateObjectPlane(10,40)
SetObjectColor(ramp,200,0,0,255)
SetObjectPosition(ramp,0,-.025,10)
RotateObjectLocalX(ramp,65)
Create3DPhysicsStaticBody(ramp)

global velocity as float

do
		print (velocity)
		updatePlayerMovement(box)
		SetCameraPosition(1,GetObjectWorldX(box),GetObjectWorldY(box)+5,GetObjectWorldZ(box)-5)
        Sync()
loop

function createCharacterController(objID as integer)
	//This vector is the offset of the model center from origin.
    //For example a model 72 units tall standing at origin is 36 units offset on the y axis.
    //This allows for models of different sizes.
     characterOffsetVec = CreateVector3( 0.0, 0.0, 0.50 )
    //This vector indicates the axis your model faces forward.
    //For example if your model faces down the - Z axis use this vector.
    objectOrientationVec = CreateVector3( 0.0, 0.0, 0.0 )
    //The crouchScale parameter is 0.0 to 1.0, for examle 0.75 is 75% of the models standing height.
    Create3DPhysicsCharacterController( objID, 1, characterOffsetVec, objectOrientationVec, 0.90 )
    DeleteVector3( characterOffsetVec )
    DeleteVector3( objectOrientationVec )
endfunction

function updatePlayerMovement(player as integer)
     
    if GetRawKeyState(KEY_LEFT)  //strafe left
   		Rotate3DPhysicsCharacterController(player,GetObjectAngleY(player)-2) 		
    endif
    if GetRawKeyState(KEY_RIGHT)  //strafe right
   		Rotate3DPhysicsCharacterController(player,GetObjectAngleY(player)+2) 		
    endif
     
    if GetRawKeyState(KEY_UP) //move forward
		//velocity=velocity+1.0
		velocity=velocity+((maxCarSpeed#-velocity)*AccelerationFactor#) 
        if velocity>maxCarSpeed# then velocity=maxCarSpeed#
	 else
		velocity=velocity-((maxCarSpeed#-velocity)*DecelerationFactor#+0.1) 
        if velocity<minCarSpeed# then velocity=minCarSpeed#
	 endif
 
     Move3DPhysicsCharacterController(player,1,velocity)
    Step3DPhysicsWorld() //needs to be called prior to below and any camera adjustments 
endfunction

function	CreateGrid(screenWidth,screenHeight)

SetClearColor(0x70, 0x70, 0x70)
	ClearScreen()
	size = screenWidth/ 32
    green=MakeColor(0,200,0)
	DrawBox(0, 0, screenWidth, screenHeight, green,green,green,green, 1)
		
	for i=0 to screenWidth step size
		DrawLine(i, 0, i, screenHeight, 200,0,0)	
	next
	
	for i=screenHeight to 0 step -size
		DrawLine(0, i, screenWidth, i, 200,0,0)
	next
	
	render()
	
	img = GetImage(0, 0, screenWidth, screenHeight)
	ClearScreen()	
endfunction img

+ Code Snippet

SetErrorMode(2)
#constant acceleration#=.05 //used to calclate the carSpeed#
#constant maxCarSpeed#=20.0 //The Maximum speed the carBlock will move 
#constant minCarSpeed#=0.0   //The Minimum speed the carBlock will move 
#constant AccelerationFactor#=.25 //the speed your car accelerates at
#constant DecelerationFactor#=.05 //the braking factor
#constant KEY_LEFT         37
#constant KEY_UP           38
#constant KEY_RIGHT        39
#constant KEY_DOWN         40
screenWidth As Float
screenHeight As Float
screenAspect As Float

screenWidth = GetDeviceWidth()
screenHeight = GetDeviceHeight()

// set window properties
SetWindowTitle("Vehicle physics with playercontrollers")
SetOrientationAllowed(0, 0, 1, 1) // allow both portrait and landscape on mobile devices
SetWindowSize(screenWidth, screenHeight, 0, 0)
SetWindowAllowResize(1) // allow the user to resize the window

// set display properties
SetVirtualResolution(screenWidth, screenHeight) // doesn't have to match the window
SetSyncRate(25, 0) // 30fps instead of 60 to save battery
SetScissor(0, 0, 0, 0) // use the maximum available screen space, no black borders
UseNewDefaultFonts(1)

create3DPhysicsWorld()
box=CreateObjectSphere(2, 16, 16)
SetObjectColor(box,200,200,200,255)
SetObjectPosition(box,0,2,0)
//RotateObjectLocalz(box,90)
//SetCameraPosition(1, 0, 0, -3)
///SetCameraLookAt(1, 0, 0, 0, 0)
createCharacterController(box)

ground=CreateObjectPlane(200,200)
SetObjectImage(ground,CreateGrid(screenWidth,screenHeight), 0)
RotateObjectLocalX(ground,90)
Create3DPhysicsStaticBody(ground)

ramp=CreateObjectPlane(10,40)
SetObjectColor(ramp,200,0,0,255)
SetObjectPosition(ramp,0,-.025,10)
RotateObjectLocalX(ramp,65)
Create3DPhysicsStaticBody(ramp)


global velocity as float

do
		print (velocity)
		updatePlayerMovement(box)
		SetCameraPosition(1,GetObjectWorldX(box),GetObjectWorldY(box)+5,GetObjectWorldZ(box)-5)
        Sync()
loop

function createCharacterController(objID as integer)
	//This vector is the offset of the model center from origin.
    //For example a model 72 units tall standing at origin is 36 units offset on the y axis.
    //This allows for models of different sizes.
     characterOffsetVec = CreateVector3( 0.0, 0.0, 0.50 )
    //This vector indicates the axis your model faces forward.
    //For example if your model faces down the - Z axis use this vector.
    objectOrientationVec = CreateVector3( 0.0, 0.0, 0.0 )
    //The crouchScale parameter is 0.0 to 1.0, for examle 0.75 is 75% of the models standing height.
    Create3DPhysicsCharacterController( objID, 1, characterOffsetVec, objectOrientationVec, 0.90 )
    DeleteVector3( characterOffsetVec )
    DeleteVector3( objectOrientationVec )
endfunction	

function updatePlayerMovement(player as integer)
     
    if GetRawKeyState(KEY_LEFT)  //strafe left
   		Rotate3DPhysicsCharacterController(player,GetObjectAngleY(player)-2) 		
    endif
    if GetRawKeyState(KEY_RIGHT)  //strafe right
   		Rotate3DPhysicsCharacterController(player,GetObjectAngleY(player)+2) 		
    endif
     
    if GetRawKeyState(KEY_UP) //move forward
		//velocity=velocity+1.0
		velocity=velocity+((maxCarSpeed#-velocity)*AccelerationFactor#) 
        if velocity>maxCarSpeed# then velocity=maxCarSpeed#
	 else
		velocity=velocity-((maxCarSpeed#-velocity)*DecelerationFactor#+0.1) 
        if velocity<minCarSpeed# then velocity=minCarSpeed#
	 endif
 
     Move3DPhysicsCharacterController(player,1,velocity)
    Step3DPhysicsWorld() //needs to be called prior to below and any camera adjustments 
endfunction

function	CreateGrid(screenWidth,screenHeight)

	SetClearColor(0x70, 0x70, 0x70)
	ClearScreen()
	size = screenWidth/ 32
    green=MakeColor(0,200,0)
	DrawBox(0, 0, screenWidth, screenHeight, green,green,green,green, 1)
		
	for i=0 to screenWidth step size
		DrawLine(i, 0, i, screenHeight, 200,0,0)	
	next
	
	for i=screenHeight to 0 step -size
		DrawLine(0, i, screenWidth, i, 200,0,0)
	next
	
	render()
	
	img = GetImage(0, 0, screenWidth, screenHeight)
	ClearScreen()	
endfunction img

PS: the camera angles are bad but easily fixable
the main thing I find is the steering isn't correct but im sure there is a formula out there that calculates a steering
amount based on present velocity and strafe movements could be used for a sliding algorithm

fubarpk
fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 14th Jul 2019 04:41

Link

Nice work

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 26th Jul 2019 20:37 Edited at: 26th Jul 2019 20:37

Link

A Sprite Shader effect needs a texture assigned to the sprite

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
 
LoadImage(1,"mytexture.png")

createShader()
CreateSprite(1,1)
SetSpriteSize(1,1024,768)
LoadSpriteShader(1, "shader.ps")
SetSpriteShader( 1,1 )

SetShaderConstantByName(1,"resolution",1024,768,0.0,0.0)

resetTimer()
do
	time#=Timer()
	SetShaderConstantByName(1,"time",time#,0.0,0.0,0.0) 
	sync()

loop
 
function createShader()

file = OpenToWrite("shader.ps")
WriteLine(file,"#ifdef GL_ES")
WriteLine(file,"precision mediump float;")
WriteLine(file,"#endif")
WriteLine(file,"#extension GL_OES_standard_derivatives : enable")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"uniform float time;")
WriteLine(file,"uniform vec2 resolution;")
WriteLine(file,"// function to return a random number")
WriteLine(file,"float random (vec2 p) {")
WriteLine(file,"		p = fract(p*vec2(123.45, 678.91));")
WriteLine(file,"    p += dot(p, p+23.45);")
WriteLine(file,"    return fract (p.x * p.y);")
WriteLine(file,"}")
WriteLine(file,"void main( void )")
WriteLine(file,"{")
WriteLine(file,"		vec2 uv = (gl_FragCoord.xy-.5*resolution.xy)/resolution.y;")
WriteLine(file,"    vec3 pattern = vec3(0);")
WriteLine(file,"    float units = 30.;")
WriteLine(file,"    vec2 gv = fract(uv * units) - .5;")
WriteLine(file,"    vec2 id = floor(uv * units) + .5; // add .5 here to center")
WriteLine(file,"    float d = length(gv);")
WriteLine(file,"    float minRadius = .2;")
WriteLine(file,"    float maxRadius = .5;")
WriteLine(file,"    float speed = 10.2;")
WriteLine(file,"    float pulseAmount = 1.;")
WriteLine(file,"    float radius = mix(")
WriteLine(file,"        minRadius, ")
WriteLine(file,"        maxRadius,")
WriteLine(file,"        //sin(random(id) * time * speed) * .5 + .5);")
WriteLine(file,"        sin(length(pulseAmount*gv - id) - time * speed)*.5+.5); // how to offset sine based on id")
WriteLine(file,"    float m = smoothstep(radius, radius*.9,d);")
WriteLine(file,"    pattern += m;")
WriteLine(file,"    vec3 colorA = vec3(random(id));")
WriteLine(file,"		vec3 colorB = texture2D(texture0, uvVarying).rgb;")
WriteLine(file,"		vec3 finalColor = colorB*colorA;")
WriteLine(file," 	finalColor=clamp(finalColor,0.0,1.0);")
WriteLine(file,"    gl_FragColor = vec4(finalColor * pattern,1.);")
WriteLine(file,"}")
CloseFile(file)
endfunction

+ Code Snippet

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
 
LoadImage(1,"mytexture.png") 

createShader()
CreateSprite(1,1)
SetSpriteSize(1,1024,768)
LoadSpriteShader(1, "shader.ps")
SetSpriteShader( 1,1 )

SetShaderConstantByName(1,"resolution",1024,768,0.0,0.0) 

resetTimer()
do
	time#=Timer()
	SetShaderConstantByName(1,"time",time#,0.0,0.0,0.0) 
	sync()	

loop
 
function createShader()

file = OpenToWrite("shader.ps")
WriteLine(file,"#ifdef GL_ES")
WriteLine(file,"precision mediump float;")
WriteLine(file,"#endif")
WriteLine(file,"#extension GL_OES_standard_derivatives : enable")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"uniform float time;")
WriteLine(file,"uniform vec2 resolution;")
WriteLine(file,"// function to return a random number")
WriteLine(file,"float random (vec2 p) {")
WriteLine(file,"		p = fract(p*vec2(123.45, 678.91));")
WriteLine(file,"    p += dot(p, p+23.45);")
WriteLine(file,"    return fract (p.x * p.y);")
WriteLine(file,"}")
WriteLine(file,"void main( void )")
WriteLine(file,"{")
WriteLine(file,"		vec2 uv = (gl_FragCoord.xy-.5*resolution.xy)/resolution.y;")
WriteLine(file,"    vec3 pattern = vec3(0);")
WriteLine(file,"    float units = 30.;")
WriteLine(file,"    vec2 gv = fract(uv * units) - .5;")
WriteLine(file,"    vec2 id = floor(uv * units) + .5; // add .5 here to center")
WriteLine(file,"    float d = length(gv);")
WriteLine(file,"    float minRadius = .2;")
WriteLine(file,"    float maxRadius = .5;")
WriteLine(file,"    float speed = 10.2;")
WriteLine(file,"    float pulseAmount = 1.;")
WriteLine(file,"    float radius = mix(")
WriteLine(file,"        minRadius, ")
WriteLine(file,"        maxRadius,")
WriteLine(file,"        //sin(random(id) * time * speed) * .5 + .5);")
WriteLine(file,"        sin(length(pulseAmount*gv - id) - time * speed)*.5+.5); // how to offset sine based on id")
WriteLine(file,"    float m = smoothstep(radius, radius*.9,d);")
WriteLine(file,"    pattern += m;")
WriteLine(file,"    vec3 colorA = vec3(random(id));")
WriteLine(file,"		vec3 colorB = texture2D(texture0, uvVarying).rgb;")
WriteLine(file,"		vec3 finalColor = colorB*colorA;")
WriteLine(file," 	finalColor=clamp(finalColor,0.0,1.0);")
WriteLine(file,"    gl_FragColor = vec4(finalColor * pattern,1.);")
WriteLine(file,"}")
CloseFile(file)
endfunction

fubarpk
fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

Qugurun

Valued Member

9

Years of Service

User Offline

Joined: 8th Dec 2014

Playing: AppGameKit

Posted: 27th Jul 2019 11:22 Edited at: 30th Jul 2019 15:38

Link

https://www.instagram.com/qugurun/

Back to top

Profile PM

Rick Nasher

7

Years of Service

User Offline

Joined: 25th Jul 2017

Location: Amsterdam

Posted: 3rd Aug 2019 23:12

Link

I find the Basic Car Physics thingy rather interesting. Is their a specific reason you didn't use box=CreateObjectBox ( 2, 2, 4)? For it appears to be working just as well.

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: 4th Aug 2019 09:36

Link

Thanks Rick I was playing with the angle of the ramp hoping I could make it work at a greater angle
i found Get3DPhysicsCharacterControllerMaxSlope( objID ) helps but changing it to much really
created some unusual behaviour

fubarpk
fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

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: 18th Aug 2019 07:55

Link

I have here a shader that I am using in macroaction which basically turns any object above a set point transparent
and any point below a set point transparent
fade.vs

+ Code Snippet


attribute highp vec3 position;
attribute mediump vec3 normal;
attribute mediump vec2 uv;
varying highp vec3 posVarying;
varying mediump vec3 normalVarying;
varying mediump vec2 uvVarying;
varying mediump vec3 lightVarying;
uniform highp mat3 agk_WorldNormal;
uniform highp mat4 agk_World;
uniform highp mat4 agk_ViewProj;
uniform mediump vec4 uvBounds0;
mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );
void main()
{
    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;
    highp vec4 pos = agk_World * vec4(position,1.0);
    gl_Position = agk_ViewProj * pos;
    mediump vec3 norm = normalize(agk_WorldNormal * normal);
    posVarying = pos.xyz;
    normalVarying = norm;
    lightVarying = GetVSLighting( norm, posVarying );
}

fade.ps

uniform sampler2D texture0;
varying highp vec3 posVarying;
varying mediump vec3 normalVarying;
varying mediump vec2 uvVarying;
varying mediump vec3 lightVarying;
mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );
mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );
uniform mediump vec3 agk_MeshDiffuse;
uniform mediump vec3 myCoord;
uniform vec3 lowp alpha;
varying vec4 verpos;
void main()
{
mediump vec3 norm = normalize(normalVarying);
mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );
vec3 colorA = texture2D(texture0, uvVarying).rgb*light *agk_MeshDiffuse;
if (posVarying.y>myCoord.y)
{
    colorA = clamp(colorA,0.0,1.0);
	mediump vec3 color = ApplyFog( colorA, posVarying );
	gl_FragColor = vec4(color,alpha.r);
}else{
	if (posVarying.y<myCoord.x)
	{
		mediump vec3 color = ApplyFog( colorA, posVarying );
		gl_FragColor = vec4(color,alpha.r);
	}else{
		mediump vec3 color = ApplyFog( colorA, posVarying );
		gl_FragColor = vec4(color,1.0);
	}
}
}

+ Code Snippet

uniform sampler2D texture0;
varying highp vec3 posVarying;
varying mediump vec3 normalVarying;
varying mediump vec2 uvVarying;
varying mediump vec3 lightVarying;
mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );
mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );
uniform mediump vec3 agk_MeshDiffuse;
uniform mediump vec3 myCoord;
uniform vec3 lowp alpha;
varying vec4 verpos;
void main()
{
mediump vec3 norm = normalize(normalVarying);
mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );
vec3 colorA = texture2D(texture0, uvVarying).rgb*light *agk_MeshDiffuse;
if (posVarying.y>myCoord.y)
{
    colorA = clamp(colorA,0.0,1.0);
	mediump vec3 color = ApplyFog( colorA, posVarying );
	gl_FragColor = vec4(color,alpha.r);
}else{
	if (posVarying.y<myCoord.x)
	{
		mediump vec3 color = ApplyFog( colorA, posVarying );
		gl_FragColor = vec4(color,alpha.r);
	}else{
		mediump vec3 color = ApplyFog( colorA, posVarying );
		gl_FragColor = vec4(color,1.0);
	}
}
}

to use the shader I set all objects I want to transparency ie in part etc like the following

+ Code Snippet

SetObjectColor(models[num].ID,255,255,255,255)
SetObjectTransparency(models[num].ID,1)
SetObjectDepthWrite(models[num].ID,1)  
SetObjectShader(models[num].ID, fadeShader)

i set it up to its alpha value like the following and set the players position for the shader as follows

+ Code Snippet

SetShaderConstantByName(fadeShader,"alpha",0.2,0,0,0)
do 
	SetShaderConstantByName(fadeShader,"myCoord",getObjectY(player.ID)-5,(getObjectY(player.ID)+12),1,1)
        rem sets 5 below or less of the players position transparent and 12 above the players position 
	sync()
loop

fubarpk
fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

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 Sep 2019 01:29

Link

Image 3D file loader
Im not sure how useful people will find this, but it basically loads an image and depending on the colour of the pixels of the image
loads a 3D object into the world at that pixel location in the 3D world. It requires a text file like the following that maps the colour to
an object and texture for that object
test.map

+ Code Snippet

#object red green blue image
tree.3ds 0 200 0 tree.png
rockwall.3ds 100 100 100 rockwall.png
grass1.3ds 0 100 0 grass1.png

main.agc

// Project: imgFileLoader 
// Created: 2019-09-04

// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
 
// set window properties
SetWindowTitle( "image loader" )
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
 
#constant tileWidth 16
#constant tileDepth 16
#constant tileHeight 16

type _object
	objID as integer
	imgID as integer
endtype	
 
global objects as _object[]

type _map
	objName as String
	r as integer
	g as integer
	b as integer
	imgName as String
	imgID as integer
endtype

maps as _map[]	
loadmap("test.map",maps)		
img1=loadImage("layer1.png")
img2=loadImage("layer2.png") 
grabinfo(img1,0,maps,objects)
grabinfo(img2,1,maps,objects)
 
camerax#=100
cameray#=100
cameraz#=-190
 
do
    if GetRawKeyState(38) then inc cameraz#
    if GetRawKeyState(40) then dec cameraz#
    if GetRawKeyState(37) then inc camerax#
    if GetRawKeyState(39) then dec camerax#
     
     
    if GetRawKeyState(87) then inc cameray#
    if GetRawKeyState(83) then dec cameray#
     
     
     
    print(GetRawLastKey())
     
     
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
    Print( ScreenFPS() )
    Sync()
loop
 
function grabinfo(img,layer as integer,maps as _map[],objects ref as _object[])
    imgmemblock = CreateMemblockFromImage(img)
     
    width = GetMemblockInt(imgmemblock,0)
    height = GetMemblockInt(imgmemblock,4)
    objnumber=0
    myObject as _object
    for x=width-1 to 0 step -1
		for y=height-1 to 0 step -1
            offset = (12+((y * width) + x) * 4) - 4
            r=GetMemblockByte(imgmemblock,offset)
            g=GetMemblockByte(imgmemblock,offset+1)
            b=GetMemblockByte(imgmemblock,offset+2)
            a=GetMemblockByte(imgmemblock,offset+3)
			color=r+g+b+a
			for check=maps.length to 0 step-1
				if r=maps[check].r and g=maps[check].g and b=maps[check].b
					myObject.objID=LoadObject(maps[check].objName)
					myObject.imgID=maps[check].imgID
					objects.insert(myObject)
					SetObjectPosition(objects[objnumber].objID,x*tileWidth,layer*tileHeight, -y*tileDepth  )
					SetObjectImage(objects[objnumber].objID,objects[objnumber].imgID,0)
					inc objnumber
				endif
            next check
        next
    next
endfunction

function loadMap(filename as string,maps ref as _map[])	
file = OpenToRead(filename)
myMap as _map
line		as string
do
	line = ReadLine(file)		
	if FileEOF(file) = 1
		exit
	endif
	if mid(line, 1, 1) = "#"
		continue
	endif
		
	myMap.objName = GetStringToken2( line, " ", 1 )
	myMap.r = val(GetStringToken2( line, " ", 2 ))
	myMap.g = val(GetStringToken2( line, " ", 3 ))
	myMap.b = val(GetStringToken2( line, " ", 4 ))
	myMap.imgName = GetStringToken2( line, " ", 5 )
	a=imageExists(myMap.imgName,maps)
	if a>0 
		myMap.imgID=a
	else
		myMap.imgID=LoadImage(myMap.imgName)
	endif			
	maps.insert(myMap)
loop
CloseFile(file)
endfunction

function imageExists(imgName as string,maps as _map[])
	val=0
	for check=maps.length to 0 step -1
		if imgName=maps[check].imgName
			exitfunction maps[check].imgID
		endif
	next Check 
endfunction val

+ Code Snippet


// Project: imgFileLoader 
// Created: 2019-09-04

// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
 
// set window properties
SetWindowTitle( "image loader" )
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
 
#constant tileWidth 16
#constant tileDepth 16
#constant tileHeight 16

type _object
	objID as integer
	imgID as integer
endtype	
 
global objects as _object[]

type _map
	objName as String
	r as integer
	g as integer
	b as integer
	imgName as String
	imgID as integer
endtype

maps as _map[]	
loadmap("test.map",maps)		
img1=loadImage("layer1.png")
img2=loadImage("layer2.png") 
grabinfo(img1,0,maps,objects)
grabinfo(img2,1,maps,objects)
 
camerax#=100
cameray#=100
cameraz#=-190
 
do
    if GetRawKeyState(38) then inc cameraz#
    if GetRawKeyState(40) then dec cameraz#
    if GetRawKeyState(37) then inc camerax#
    if GetRawKeyState(39) then dec camerax#
     
     
    if GetRawKeyState(87) then inc cameray#
    if GetRawKeyState(83) then dec cameray#
     
     
     
    print(GetRawLastKey())
     
     
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
    Print( ScreenFPS() )
    Sync()
loop
 
function grabinfo(img,layer as integer,maps as _map[],objects ref as _object[])
    imgmemblock = CreateMemblockFromImage(img)
     
    width = GetMemblockInt(imgmemblock,0)
    height = GetMemblockInt(imgmemblock,4)
    objnumber=0
    myObject as _object
    for x=width-1 to 0 step -1
		for y=height-1 to 0 step -1
            offset = (12+((y * width) + x) * 4) - 4
            r=GetMemblockByte(imgmemblock,offset)
            g=GetMemblockByte(imgmemblock,offset+1)
            b=GetMemblockByte(imgmemblock,offset+2)
            a=GetMemblockByte(imgmemblock,offset+3)
			color=r+g+b+a
			for check=maps.length to 0 step-1
				if r=maps[check].r and g=maps[check].g and b=maps[check].b
					myObject.objID=LoadObject(maps[check].objName)
					myObject.imgID=maps[check].imgID
					objects.insert(myObject)
					SetObjectPosition(objects[objnumber].objID,x*tileWidth,layer*tileHeight, -y*tileDepth  )
					SetObjectImage(objects[objnumber].objID,objects[objnumber].imgID,0)
					inc objnumber
				endif
            next check
        next
    next
endfunction

function loadMap(filename as string,maps ref as _map[])	
file = OpenToRead(filename)
myMap as _map
line		as string
do
	line = ReadLine(file)		
	if FileEOF(file) = 1
		exit
	endif
	if mid(line, 1, 1) = "#"
		continue
	endif
		
	myMap.objName = GetStringToken2( line, " ", 1 )
	myMap.r = val(GetStringToken2( line, " ", 2 ))
	myMap.g = val(GetStringToken2( line, " ", 3 ))
	myMap.b = val(GetStringToken2( line, " ", 4 ))
	myMap.imgName = GetStringToken2( line, " ", 5 )
	a=imageExists(myMap.imgName,maps)
	if a>0 
		myMap.imgID=a
	else
		myMap.imgID=LoadImage(myMap.imgName)
	endif			
	maps.insert(myMap)
loop
CloseFile(file)
endfunction

function imageExists(imgName as string,maps as _map[])
	val=0
	for check=maps.length to 0 step -1
		if imgName=maps[check].imgName
			exitfunction maps[check].imgID
		endif
	next Check 
endfunction val

It was originally designed to convert 2D games to 3D and uses constants that can be changed for the tile width,height depth etc
it requires two png images in the above example to get it to work but the code is just an example of how it could be used and allows
for several different layers to be saved.

PSAs the original idea was to convert 2D games to 3D for best results it is assumed that all 3D objects are the same size as
each other.

fubarpk
fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

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: 23rd Sep 2019 05:16 Edited at: 23rd Sep 2019 13:31

Link

Kinda work in progress but its meant to give the effect of melting the object
Note works best if pivot is at the bottom

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
#constant Shader =1

createShader()
LoadShader(Shader,"melt.vs", "melt.ps")
b=CreateObjectBox(5,5,5)
setObjectImage(b,CreateTexture(),0)
//b=LoadObjectWithChildren("zombie.fbx")

//SetObjectImage(b,loadImage("zombie.png"),0)
//RotateObjectLocaly(b,180)
//FixObjectPivot(b)
//SetObjectAnimationSpeed(b, 30)
//PlayObjectAnimation(b, GetObjectAnimationName(b, 1), 1, -1, 1, 0)
SetObjectShader(b,Shader)

x#=.1:y#=.1:z#=.1
	
do
    
    SetShaderConstantByName(Shader,"scalevalue",x#,y#,z#,1)
	dec y#,.0001
	if GetRawKeyState(32) then RotateObjectLocalY(b,1)
	print(ScreenFPS())
	sync()

loop

function createShader()
file = OpenToWrite("melt.vs")
 
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
  
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
  
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
 
//WriteLine(file,"uniform highp mat4 agk_View;")
//WriteLine(file,"uniform highp mat4 agk_Proj;")
//WriteLine(file,"uniform highp mat4 modelMat;")
 
 
WriteLine(file,"uniform mediump vec4 uvBounds0;")
  
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"uniform vec4 pointPos;") 
WriteLine(file,"uniform vec3 scalevalue;") 
writeline(file,"vec4 a = gl_Vertex;")
WriteLine(file,"void main()")
WriteLine(file,"{ ")
WriteLine(file,"    a.x+= scalevalue.x;")
WriteLine(file,"    a.y+= scalevalue.y;")
WriteLine(file,"    a.z+= scalevalue.z;")
 
WriteLine(file,"    a=clamp(a,0.0,1.0);//stops negative values")
WriteLine(file,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0)*a;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    gl_Position = pos;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}")
CloseFile(file)
 
//pixel shader
file = OpenToWrite("melt.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );")
WriteLine(file,"uniform vec4 myColor;")
WriteLine(file,"uniform mediump vec3 agk_MeshDiffuse;")
WriteLine(file,"uniform vec3 pointPos;") 
 
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"mediump vec3 norm = normalize(normalVarying);")
WriteLine(file,"mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );")
WriteLine(file,"mediump vec3 color = texture2D(texture0, uvVarying).rgb * light;")
WriteLine(file,"color = ApplyFog( color, posVarying );")
 
WriteLine(file,"gl_FragColor = vec4(color,1.0);")
WriteLine(file,"}")

CloseFile(file)
endfunction

function CreateTexture()
	blue=MakeColor(0,0,200)
    SetClearColor(0,0,0)
    ClearScreen()
    //draw craft
    DrawBox(0,0,18,16,blue,blue,blue,blue,1)
    render()
    img = getImage(0,0,18,16)
    SetImageTransparentColor(img,0,0,0)
endfunction img

+ Code Snippet

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
#constant Shader =1


createShader()
LoadShader(Shader,"melt.vs", "melt.ps")
b=CreateObjectBox(5,5,5)
setObjectImage(b,CreateTexture(),0)
//b=LoadObjectWithChildren("zombie.fbx")

//SetObjectImage(b,loadImage("zombie.png"),0)
//RotateObjectLocaly(b,180)
//FixObjectPivot(b)
//SetObjectAnimationSpeed(b, 30)
//PlayObjectAnimation(b, GetObjectAnimationName(b, 1), 1, -1, 1, 0)
SetObjectShader(b,Shader)


x#=.1:y#=.1:z#=.1
	
do
    
    SetShaderConstantByName(Shader,"scalevalue",x#,y#,z#,1)
	dec y#,.0001
	if GetRawKeyState(32) then RotateObjectLocalY(b,1)
	print(ScreenFPS())
	sync()	

loop


function createShader()
file = OpenToWrite("melt.vs")
 
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
  
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
  
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
 
//WriteLine(file,"uniform highp mat4 agk_View;")
//WriteLine(file,"uniform highp mat4 agk_Proj;")
//WriteLine(file,"uniform highp mat4 modelMat;")
 
 
WriteLine(file,"uniform mediump vec4 uvBounds0;")
  
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"uniform vec4 pointPos;") 
WriteLine(file,"uniform vec3 scalevalue;") 
writeline(file,"vec4 a = gl_Vertex;")
WriteLine(file,"void main()")
WriteLine(file,"{ ")
WriteLine(file,"    a.x+= scalevalue.x;")
WriteLine(file,"    a.y+= scalevalue.y;")
WriteLine(file,"    a.z+= scalevalue.z;")
 
WriteLine(file,"    a=clamp(a,0.0,1.0);//stops negative values")
WriteLine(file,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0)*a;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    gl_Position = pos;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}")
CloseFile(file)
 
//pixel shader
file = OpenToWrite("melt.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );")
WriteLine(file,"uniform vec4 myColor;")
WriteLine(file,"uniform mediump vec3 agk_MeshDiffuse;")
WriteLine(file,"uniform vec3 pointPos;") 
 
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"mediump vec3 norm = normalize(normalVarying);")
WriteLine(file,"mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );")
WriteLine(file,"mediump vec3 color = texture2D(texture0, uvVarying).rgb * light;")
WriteLine(file,"color = ApplyFog( color, posVarying );")
 
WriteLine(file,"gl_FragColor = vec4(color,1.0);")
WriteLine(file,"}")

CloseFile(file)
endfunction

function CreateTexture()
	blue=MakeColor(0,0,200)
    SetClearColor(0,0,0)
    ClearScreen()
    //draw craft
    DrawBox(0,0,18,16,blue,blue,blue,blue,1)
    render()
    img = getImage(0,0,18,16)
    SetImageTransparentColor(img,0,0,0)
endfunction img

PS if you uncomment this //a=clamp(a,0.0,1.0);
it wont go below the bottom. The scaling is kinda wrong and currently wont play animations

why not use setobjectscale you may ask because then you would have to set the object position
each time for the same effect

fubarpk
fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

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: 28th Oct 2019 00:42 Edited at: 28th Oct 2019 00:45

Link

Another 2D snow example this time using a shader.
you will see that the house sprite appears to have snow going behind and infront of it at same time
this can be changed by setting the house sprites depth
no media required

// set window properties
SetWindowTitle( "snow" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

createShaderFile()

houseSpr=createSprite(createHouse())
SetSpriteScale(houseSpr,25,25)
SetSpriteColor(houseSpr,200,0,0,255)
SetSpritePosition(houseSpr,200,500)

snowShader=1
snowSpr=CreateSprite(0)
SetSpriteSize(snowSpr,1024,768)
LoadSpriteShader(snowShader,"snow.ps")
SetSpriteShader( snowSpr,snowShader )
SetSpriteTransparency(snowSpr,2)
SetShaderConstantByName(snowShader,"resolution",1024,768 ,0,0)
do 
	SetShaderConstantByName(snowShader,"time",timer(),0,0,0)
	
    sync()   
loop
function createShaderFile()
fw=OpenToWrite("snow.ps")

WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")

WriteLine(fw,"#extension GL_OES_standard_derivatives : enable")

WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 resolution;")
//WriteLine(fw,"uniform sampler2D texture0;")

WriteLine(fw,"float snow(vec2 uv,float scale)")
WriteLine(fw,"{")
WriteLine(fw,"	float w=smoothstep(1.,0.,-uv.y*(scale/100.));if(w<.1)return 0.;")
WriteLine(fw,"	uv+=time/scale;uv.y+=time*2./scale;uv.x+=sin(uv.y+time*.5)/scale;")
WriteLine(fw,"	uv*=scale;vec2 s=floor(uv),f=fract(uv),p;float k=1.,d;")
WriteLine(fw,"	p=.5+.7*sin(11.*fract(sin((s+p+scale)*mat2(7,3,6,5))*5.))-f;d=length(p);k=min(d,k);")
WriteLine(fw,"	k=smoothstep(0.,k,sin(f.x+f.y)*0.01);")
WriteLine(fw,"    	return k*w;")
WriteLine(fw,"}")

WriteLine(fw,"void main(void){")
WriteLine(fw,"	vec2 uv=(gl_FragCoord.xy*2.-resolution.xy)/min(resolution.x,resolution.y); ")
WriteLine(fw,"	vec3 finalColor=vec3(0);")
WriteLine(fw,"	float c=smoothstep(1.0,0.3,clamp(uv.y*.0+.8,0.0,.75));")
WriteLine(fw,"	c+=snow(uv,20.)*.3;")
WriteLine(fw,"	c+=snow(uv,10.)*.5;")
WriteLine(fw,"	c+=snow(uv,7.5)*.8;")
WriteLine(fw,"	c+=snow(uv,5.);")
WriteLine(fw,"	c+=snow(uv,4.);")
WriteLine(fw,"	c+=snow(uv,3.);")
WriteLine(fw,"	c+=snow(uv,2.5);")
WriteLine(fw,"	if (c>=.5) { finalColor=(vec3(c));}")
WriteLine(fw,"	gl_FragColor = vec4(finalColor,1);")
WriteLine(fw,"}")
CloseFile(fw)
endfunction

function createHouse()
    local data as integer [215] = [
           0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,
           0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,
           0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,
           0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,
           0,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,
           0,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,
           0,0,0,0,0,0,0,0,1,0,0,1,1,0,1,0,0,0,0,0,0,0,0,0,
           0,0,0,0,0,0,0,0,1,0,0,1,1,0,1,0,0,0,0,0,0,0,0,0,
           0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0]
            
    dataCount=0
     ClearScreen()
     for y = 0 to 8
        for x = 0 to 23
            if data[datacount]=1 then DrawLine(x,y,x,y,255,255,255)
            inc dataCount,1
        next x
    next y  
     
    render()
    img = getImage(0,0,24,10)
    SetImageTransparentColor(img,0,0,0)
endfunction img

+ Code Snippet

// set window properties
SetWindowTitle( "snow" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

createShaderFile()


houseSpr=createSprite(createHouse())
SetSpriteScale(houseSpr,25,25)
SetSpriteColor(houseSpr,200,0,0,255)
SetSpritePosition(houseSpr,200,500)

snowShader=1
snowSpr=CreateSprite(0)
SetSpriteSize(snowSpr,1024,768)
LoadSpriteShader(snowShader,"snow.ps")
SetSpriteShader( snowSpr,snowShader )
SetSpriteTransparency(snowSpr,2)
SetShaderConstantByName(snowShader,"resolution",1024,768 ,0,0)
do 
	SetShaderConstantByName(snowShader,"time",timer(),0,0,0)
	
    sync()   
loop
function createShaderFile()
fw=OpenToWrite("snow.ps")

WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")

WriteLine(fw,"#extension GL_OES_standard_derivatives : enable")

WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 resolution;")
//WriteLine(fw,"uniform sampler2D texture0;")

WriteLine(fw,"float snow(vec2 uv,float scale)")
WriteLine(fw,"{")
WriteLine(fw,"	float w=smoothstep(1.,0.,-uv.y*(scale/100.));if(w<.1)return 0.;")
WriteLine(fw,"	uv+=time/scale;uv.y+=time*2./scale;uv.x+=sin(uv.y+time*.5)/scale;")
WriteLine(fw,"	uv*=scale;vec2 s=floor(uv),f=fract(uv),p;float k=1.,d;")
WriteLine(fw,"	p=.5+.7*sin(11.*fract(sin((s+p+scale)*mat2(7,3,6,5))*5.))-f;d=length(p);k=min(d,k);")
WriteLine(fw,"	k=smoothstep(0.,k,sin(f.x+f.y)*0.01);")
WriteLine(fw,"    	return k*w;")
WriteLine(fw,"}")

WriteLine(fw,"void main(void){")
WriteLine(fw,"	vec2 uv=(gl_FragCoord.xy*2.-resolution.xy)/min(resolution.x,resolution.y); ")
WriteLine(fw,"	vec3 finalColor=vec3(0);")
WriteLine(fw,"	float c=smoothstep(1.0,0.3,clamp(uv.y*.0+.8,0.0,.75));")
WriteLine(fw,"	c+=snow(uv,20.)*.3;")
WriteLine(fw,"	c+=snow(uv,10.)*.5;")
WriteLine(fw,"	c+=snow(uv,7.5)*.8;")
WriteLine(fw,"	c+=snow(uv,5.);")
WriteLine(fw,"	c+=snow(uv,4.);")
WriteLine(fw,"	c+=snow(uv,3.);")
WriteLine(fw,"	c+=snow(uv,2.5);")
WriteLine(fw,"	if (c>=.5) { finalColor=(vec3(c));}")
WriteLine(fw,"	gl_FragColor = vec4(finalColor,1);")
WriteLine(fw,"}")
CloseFile(fw)
endfunction

function createHouse()
    local data as integer [215] = [
           0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,
           0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,
           0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,
           0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,
           0,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,
           0,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,
           0,0,0,0,0,0,0,0,1,0,0,1,1,0,1,0,0,0,0,0,0,0,0,0,
           0,0,0,0,0,0,0,0,1,0,0,1,1,0,1,0,0,0,0,0,0,0,0,0,
           0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0]
            
    dataCount=0
     ClearScreen()
     for y = 0 to 8
        for x = 0 to 23
            if data[datacount]=1 then DrawLine(x,y,x,y,255,255,255)
            inc dataCount,1
        next x
    next y  
     
    render()
    img = getImage(0,0,24,10)
    SetImageTransparentColor(img,0,0,0)
endfunction img

fubarpk
fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

DannyD

7

Years of Service

User Offline

Joined: 29th Aug 2017

Location:

Posted: 28th Oct 2019 01:42 Edited at: 28th Oct 2019 01:42

Link

@fubarpk
Thanks for all the help full examples

Unfortunate, I don't see any snow with the latest 2d Snow example. Only the red house

Thanks Mate!

EDITED: Works 100% in Classic, but not in Studio...

Back to top

Profile PM Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 30th Nov 2019 02:34 Edited at: 30th Nov 2019 03:29

Link

Some functions that should make accessing mesh memblocks easier (Does not support quads unfortunately)

integer GetPolysFromMemBlock(id as integer)
id = memblock id
integer = The number of polys in this mesh

tPoly = GetPolyFromMemblock(id as integer, n as integer)
id = memblock id
n = poly (from 0 through (GetPolysFromMemBlock() - 1))
tPoly = tPoly.vertex is a table containing information for the 3 vertex that make up the poly
tPoly.vertex.pos - Position of vertex x, y, z
tPoly.vertex.normal - Vertex normal x, y, z
tPoly.vertex.uv - Vertex uv u, v
tPoly.vertex.color - Color of vertex (if supplied)

I'm thinking it would be entirely possible to make a SaveObject() function using this code

NOTE : The GetPolyFromMemblock() will SetErrorMode(2) on exit. It needs to SetErrorMode(0) because if some of the vertex data is missing it will crash

To demonstrate this code will draw an objects wire mesh

SetErrorMode(2)

// set window properties
SetWindowTitle( "GetPolyFromMemblock()" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 )

cam = CreateObjectBox(1,1,1) : SetObjectVisible(cam, 0)
dolly = CreateObjectBox(1,1,1) : SetObjectVisible(dolly, 0)

SetObjectPosition(cam, 0, 0, -50)
FixObjectToObject(cam, dolly)

start as tPoint
move as tPoint

model = CreateObjectBox(10, 10, 10)
SetObjectColor(model, 0, 0xff, 0, 0xff)

do	
	print("B-Box, S-Sphere, P-Capsule, C-Cylinder, N-Cone")
	
	if GetRawKeyPressed(asc("S"))
		DeleteObjectMemblock(model)
		model = CreateObjectSphere(16, 8, 8)
		SetObjectColor(model, 0, 0xff, 0, 0xff)
	endif
	
	if GetRawKeyPressed(asc("P"))
		DeleteObjectMemblock(model)
		model = CreateObjectCapsule(8, 16, 1)
		SetObjectColor(model, 0, 0xff, 0, 0xff)
	endif

if GetRawKeyPressed(asc("B"))
		DeleteObjectMemblock(model)
		model = CreateObjectBox(10, 10, 10)
		SetObjectColor(model, 0, 0xff, 0, 0xff)		
	endif
	
	if GetRawKeyPressed(asc("C"))
		DeleteObjectMemblock(model)
		model = CreateObjectCylinder(16, 8, 8)
		SetObjectColor(model, 0, 0xff, 0, 0xff)		
	endif

if GetRawKeyPressed(asc("N"))
		DeleteObjectMemblock(model)
		model = CreateObjectCone(16, 8, 8)
		SetObjectColor(model, 0, 0xff, 0, 0xff)		
	endif

if GetPointerPressed()
		start.x = GetPointerX()
		start.y = GetPointerY()
	endif	
	
	if GetPointerState()
		move.x = GetPointerX() - start.x
		move.y = GetPointerY() - start.y
		RotateObjectLocalX(dolly, move.y)		
		RotateObjectLocalY(dolly, move.x)		
		start.x = GetPointerX()
		start.y = GetPointerY()		
	endif
	
	SetCameraPosition(1, GetObjectWorldX(cam), GetObjectWorldY(cam), GetObjectWorldZ(cam))
	SetCameraLookAt(1,  GetObjectWorldX(dolly), GetObjectWorldY(dolly), GetObjectWorldZ(dolly), 0)

DrawPolys(model)
			
    Sync()
loop

function	DrawPolys(id as integer)
	poly 		as tPoly
	polys		as integer
	i			as integer
	
	if GetMemblockExists(id) = 0
		CreateMemblockFromObjectMesh(id, id, 1)
	endif

polys = GetPolysFromMemBlock(id)
	
	for i=0 to polys - 1
		poly = GetPolyFromMemblock(id, i)
		DrawWireLine(poly.vertex[0], poly.vertex[1])
		DrawWireLine(poly.vertex[1], poly.vertex[2])
		DrawWireLine(poly.vertex[2], poly.vertex[0])
	next
	
endfunction
	
function	DrawWireLine(f as tVertex, t as tVertex)	
	sf	as tPoint
	st	as tPoint
	
	sf.x = GetScreenXFrom3D(f.pos.x, f.pos.y, f.pos.z)			
	sf.y = GetScreenYFrom3D(f.pos.x, f.pos.y, f.pos.z)					
	
	st.x = GetScreenXFrom3D(t.pos.x, t.pos.y, t.pos.z)			
	st.y = GetScreenYFrom3D(t.pos.x, t.pos.y, t.pos.z)		
	
	DrawLine(sf.x, sf.y, st.x, st.y, 0xff, 0xff, 0xff)			
	
endfunction

/**************************************************************************************************
	3D memblock functions
	
	integer GetPolysFromMemBlock(id as integer)
	id = memblock id
	integer = The number of polys in this mesh
	
	tPoly = GetPolyFromMemblock(id as integer, n as integer)
	id = memblock id
	n = poly (from 0 through (GetPolysFromMemBlock() - 1))
	tPoly = tPoly.vertex is table containing information for the 3 vertex that make up the poly
		    pos - Position of vertex x, y, z
		    normal - Vertex normal x, y, z
		    uv - Vertex uv u, v
		    color - Color of vertex (if supplied)
		    
 **************************************************************************************************/
 
type tUV
	u as float
	v as float
endtype

type tPoint
	x as float
	y as float
	z as float
endtype

type tVertex
	pos 	as tPoint
	normal 	as tPoint
	uv		as tUV
	color	as integer
endtype

type tPoly
	vertex	as tVertex[]
endtype

function	GetPolysFromMemBlock(id as integer)
	polys 	as integer
	indicies as integer
	
	indicies = GetMemblockInt(id, 4)
	
	if indicies = 0
		polys = GetMemblockInt(id, 0) / 3
	else
		polys = indicies / 3		
	endif
	
endfunction polys

function	GetPolyFromMemblock(id as integer, n as integer)
	poly 		as tPoly
	point		as tPoint
	vertex		as tVertex
	verts		as integer
	indicies	as integer
	i			as integer
	v			as integer
	ioffset		as integer
	
	verts = GetMemblockInt(id, 0)	 
	indicies = GetMemblockInt(id, 4)	 	
	
	SetErrorMode(0)	
	
	if indicies = 0
		for i=(n * 3) to (n * 3)+2	
			vertex.pos.x = GetMeshMemblockVertexX(id, i)
			vertex.pos.y = GetMeshMemblockVertexY(id, i)
			vertex.pos.z = GetMeshMemblockVertexZ(id, i)
			vertex.normal.x = GetMeshMemblockVertexNormalX(id, i)
			vertex.normal.y = GetMeshMemblockVertexNormalY(id, i)
			vertex.normal.z = GetMeshMemblockVertexNormalZ(id, i)			
			vertex.uv.u = GetMeshMemblockVertexU(id, i)
			vertex.uv.v = GetMeshMemblockVertexV(id, i)
			vertex.color = MakeColor(GetMeshMemblockVertexRed(id, i), GetMeshMemblockVertexGreen(id, i), GetMeshMemblockVertexBlue(id, i), GetMeshMemblockVertexAlpha(id, i))
			poly.vertex.insert(vertex)
		next
	else
		ioffset = GetMemblockInt(id, 20) + (n * 12)
		for i=0 to 8 step 4
			v = GetMemblockInt(id, ioffset + i)
			vertex.pos.x = GetMeshMemblockVertexX(id, v)
			vertex.pos.y = GetMeshMemblockVertexY(id, v)
			vertex.pos.z = GetMeshMemblockVertexZ(id, v)
			vertex.normal.x = GetMeshMemblockVertexNormalX(id, v)
			vertex.normal.y = GetMeshMemblockVertexNormalY(id, v)
			vertex.normal.z = GetMeshMemblockVertexNormalZ(id, v)			
			vertex.uv.u = GetMeshMemblockVertexU(id, v)
			vertex.uv.v = GetMeshMemblockVertexV(id, v)
			vertex.color = MakeColor(GetMeshMemblockVertexRed(id, v), GetMeshMemblockVertexGreen(id, v), GetMeshMemblockVertexBlue(id, v), GetMeshMemblockVertexAlpha(id, v))			
			poly.vertex.insert(vertex)			
		next
	endif
	
	SetErrorMode(2)
	
endfunction poly

function DeleteObjectMemblock(id as integer)
	if GetMemblockExists(id)
		DeleteMemblock(id)
	endif
	DeleteObject(id)
endfunction

+ Code Snippet


SetErrorMode(2)

// set window properties
SetWindowTitle( "GetPolyFromMemblock()" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 )

cam = CreateObjectBox(1,1,1) : SetObjectVisible(cam, 0)
dolly = CreateObjectBox(1,1,1) : SetObjectVisible(dolly, 0)

SetObjectPosition(cam, 0, 0, -50)
FixObjectToObject(cam, dolly)

start as tPoint
move as tPoint

model = CreateObjectBox(10, 10, 10)
SetObjectColor(model, 0, 0xff, 0, 0xff)

do	
	print("B-Box, S-Sphere, P-Capsule, C-Cylinder, N-Cone")
	
	if GetRawKeyPressed(asc("S"))
		DeleteObjectMemblock(model)
		model = CreateObjectSphere(16, 8, 8)
		SetObjectColor(model, 0, 0xff, 0, 0xff)
	endif
	
	if GetRawKeyPressed(asc("P"))
		DeleteObjectMemblock(model)
		model = CreateObjectCapsule(8, 16, 1)
		SetObjectColor(model, 0, 0xff, 0, 0xff)
	endif

	if GetRawKeyPressed(asc("B"))
		DeleteObjectMemblock(model)
		model = CreateObjectBox(10, 10, 10)
		SetObjectColor(model, 0, 0xff, 0, 0xff)		
	endif
	
	if GetRawKeyPressed(asc("C"))
		DeleteObjectMemblock(model)
		model = CreateObjectCylinder(16, 8, 8)
		SetObjectColor(model, 0, 0xff, 0, 0xff)		
	endif

	if GetRawKeyPressed(asc("N"))
		DeleteObjectMemblock(model)
		model = CreateObjectCone(16, 8, 8)
		SetObjectColor(model, 0, 0xff, 0, 0xff)		
	endif

	if GetPointerPressed()
		start.x = GetPointerX()
		start.y = GetPointerY()
	endif	
	
	if GetPointerState()
		move.x = GetPointerX() - start.x
		move.y = GetPointerY() - start.y
		RotateObjectLocalX(dolly, move.y)		
		RotateObjectLocalY(dolly, move.x)		
		start.x = GetPointerX()
		start.y = GetPointerY()		
	endif
	
	SetCameraPosition(1, GetObjectWorldX(cam), GetObjectWorldY(cam), GetObjectWorldZ(cam))
	SetCameraLookAt(1,  GetObjectWorldX(dolly), GetObjectWorldY(dolly), GetObjectWorldZ(dolly), 0)

	DrawPolys(model)
			
    Sync()
loop


function	DrawPolys(id as integer)
	poly 		as tPoly
	polys		as integer
	i			as integer
	
	if GetMemblockExists(id) = 0
		CreateMemblockFromObjectMesh(id, id, 1)
	endif

	polys = GetPolysFromMemBlock(id)
	
	for i=0 to polys - 1
		poly = GetPolyFromMemblock(id, i)
		DrawWireLine(poly.vertex[0], poly.vertex[1])
		DrawWireLine(poly.vertex[1], poly.vertex[2])
		DrawWireLine(poly.vertex[2], poly.vertex[0])
	next
	
endfunction
	
function	DrawWireLine(f as tVertex, t as tVertex)	
	sf	as tPoint
	st	as tPoint
	
	sf.x = GetScreenXFrom3D(f.pos.x, f.pos.y, f.pos.z)			
	sf.y = GetScreenYFrom3D(f.pos.x, f.pos.y, f.pos.z)					
	
	st.x = GetScreenXFrom3D(t.pos.x, t.pos.y, t.pos.z)			
	st.y = GetScreenYFrom3D(t.pos.x, t.pos.y, t.pos.z)		
	
	DrawLine(sf.x, sf.y, st.x, st.y, 0xff, 0xff, 0xff)			
	
endfunction


/**************************************************************************************************
	3D memblock functions
	
	integer GetPolysFromMemBlock(id as integer)
	id = memblock id
	integer = The number of polys in this mesh
	
	tPoly = GetPolyFromMemblock(id as integer, n as integer)
	id = memblock id
	n = poly (from 0 through (GetPolysFromMemBlock() - 1))
	tPoly = tPoly.vertex is table containing information for the 3 vertex that make up the poly
		    pos - Position of vertex x, y, z
		    normal - Vertex normal x, y, z
		    uv - Vertex uv u, v
		    color - Color of vertex (if supplied)
		    
 **************************************************************************************************/
 
type tUV
	u as float
	v as float
endtype

type tPoint
	x as float
	y as float
	z as float
endtype

type tVertex
	pos 	as tPoint
	normal 	as tPoint
	uv		as tUV
	color	as integer
endtype

type tPoly
	vertex	as tVertex[]
endtype

function	GetPolysFromMemBlock(id as integer)
	polys 	as integer
	indicies as integer
	
	indicies = GetMemblockInt(id, 4)
	
	if indicies = 0
		polys = GetMemblockInt(id, 0) / 3
	else
		polys = indicies / 3		
	endif
	
endfunction polys

function	GetPolyFromMemblock(id as integer, n as integer)
	poly 		as tPoly
	point		as tPoint
	vertex		as tVertex
	verts		as integer
	indicies	as integer
	i			as integer
	v			as integer
	ioffset		as integer
	
	verts = GetMemblockInt(id, 0)	 
	indicies = GetMemblockInt(id, 4)	 	
	
	SetErrorMode(0)	
	
	if indicies = 0
		for i=(n * 3) to (n * 3)+2	
			vertex.pos.x = GetMeshMemblockVertexX(id, i)
			vertex.pos.y = GetMeshMemblockVertexY(id, i)
			vertex.pos.z = GetMeshMemblockVertexZ(id, i)
			vertex.normal.x = GetMeshMemblockVertexNormalX(id, i)
			vertex.normal.y = GetMeshMemblockVertexNormalY(id, i)
			vertex.normal.z = GetMeshMemblockVertexNormalZ(id, i)			
			vertex.uv.u = GetMeshMemblockVertexU(id, i)
			vertex.uv.v = GetMeshMemblockVertexV(id, i)
			vertex.color = MakeColor(GetMeshMemblockVertexRed(id, i), GetMeshMemblockVertexGreen(id, i), GetMeshMemblockVertexBlue(id, i), GetMeshMemblockVertexAlpha(id, i))
			poly.vertex.insert(vertex)
		next
	else
		ioffset = GetMemblockInt(id, 20) + (n * 12)
		for i=0 to 8 step 4
			v = GetMemblockInt(id, ioffset + i)
			vertex.pos.x = GetMeshMemblockVertexX(id, v)
			vertex.pos.y = GetMeshMemblockVertexY(id, v)
			vertex.pos.z = GetMeshMemblockVertexZ(id, v)
			vertex.normal.x = GetMeshMemblockVertexNormalX(id, v)
			vertex.normal.y = GetMeshMemblockVertexNormalY(id, v)
			vertex.normal.z = GetMeshMemblockVertexNormalZ(id, v)			
			vertex.uv.u = GetMeshMemblockVertexU(id, v)
			vertex.uv.v = GetMeshMemblockVertexV(id, v)
			vertex.color = MakeColor(GetMeshMemblockVertexRed(id, v), GetMeshMemblockVertexGreen(id, v), GetMeshMemblockVertexBlue(id, v), GetMeshMemblockVertexAlpha(id, v))			
			poly.vertex.insert(vertex)			
		next
	endif
	
	SetErrorMode(2)
	
endfunction poly


function DeleteObjectMemblock(id as integer)
	if GetMemblockExists(id)
		DeleteMemblock(id)
	endif
	DeleteObject(id)
endfunction

Haven't given given it a super dooper test but it seems to work for primitives and i tried it on one of my models

Attachments

Login to view attachments

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 30th Nov 2019 02:39

Link

Thanks Blink that could come in very handy

fubarpk
fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 30th Nov 2019 02:47

Link

No worries matey.
Just remember it draws the wire mesh using the vertex information so if you move or rotate the object the wire frame stays at 0,0,0
If you want the wireframe to accurately reflect the objects state then you would need to CloneObject(), FixObjectPivot(clone) and then use the clone to create your Mesh MemBlock

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 12th Dec 2019 06:53 Edited at: 12th Dec 2019 07:02

Link

not sure if anyone will find this useful but a timer countdown shader

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
  
 
createShader()
loadimage(1,"timer.png")
CreateSprite(1,1)
SetSpriteSize(1,766,766)
SetSpritePosition(1,0,1)
LoadSpriteShader(1, "timer.ps")
SetSpriteShader( 1,1 )
//resetTimer()
SetShaderConstantByName(1,"iresolution",GetSpriteWidth(1),GetSpriteHeight(1),0,0)
do
    time#=Timer()
    SetShaderConstantByName(1,"itime",time#,0,0,0) 
    print (time#)
    sync()  
 
loop
  
function createShader()
 
file = OpenToWrite("timer.ps")

WriteLine(file,"#ifdef GL_ES")
WriteLine(file,"precision mediump float;")
WriteLine(file,"#endif")

WriteLine(file,"#extension GL_OES_standard_derivatives : enable")

WriteLine(file,"uniform float itime;")
WriteLine(file,"uniform vec2 iresolution;")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying mediump vec2 uvVarying;")

WriteLine(file,"float angle(vec2 p0,vec2 p1) {")
WriteLine(file,"	if (p1.x < p0.x )")
WriteLine(file,"		return radians(180.0) + acos(dot(normalize(p0-p1),vec2(0.0,1.0)));")
WriteLine(file,"	return acos(dot(normalize(p1-p0),vec2(0.0,1.0)));")
WriteLine(file,"}")

WriteLine(file,"void main( void ) {")
WriteLine(file,"	vec2 mid = iresolution.xy / 2.0;")
WriteLine(file,"	float scale = mod(itime / 20.0 ,1.0);")
WriteLine(file,"	float thickness = mid.x;") //try uncommenting and commenting line below 
//WriteLine(file,"	float thickness = 100.0;")

WriteLine(file,"	if (distance(mid,gl_FragCoord.xy)>min(iresolution.x,iresolution.y)/2.0 - thickness && distance(mid,gl_FragCoord.xy)<min(iresolution.x,iresolution.y)/2.0) {")
WriteLine(file,"		if (angle(mid,gl_FragCoord.xy)<=radians(360.0 * scale) )")
WriteLine(file,"			gl_FragColor = vec4(1.0,0.0,0.0,1.0)+texture2D(texture0, uvVarying).rgba;	// Circle Fill Color")
WriteLine(file,"		else")
//WriteLine(file,"			gl_FragColor = vec4(0.0,1.0,0.0,1.0);	// Cirlce Background Color")
WriteLine(file,"			gl_FragColor = vec4(0.0,1.0,0.0,1.0)+texture2D(texture0, uvVarying).rgba;")
WriteLine(file,"	}")
WriteLine(file,"	else")
//WriteLine(file,"		gl_FragColor = vec4(0.0,0.0,0.0,1.0);	// Background Color")
WriteLine(file,"		gl_FragColor = texture2D(texture0, uvVarying).rgba;")
WriteLine(file,"}")
CloseFile(file)
endfunction

+ Code Snippet

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
  
 
createShader()
loadimage(1,"timer.png")
CreateSprite(1,1)
SetSpriteSize(1,766,766)
SetSpritePosition(1,0,1)
LoadSpriteShader(1, "timer.ps")
SetSpriteShader( 1,1 )
//resetTimer()
SetShaderConstantByName(1,"iresolution",GetSpriteWidth(1),GetSpriteHeight(1),0,0)
do
    time#=Timer()
    SetShaderConstantByName(1,"itime",time#,0,0,0) 
    print (time#)
    sync()  
 
loop
  
function createShader()
 
file = OpenToWrite("timer.ps")

WriteLine(file,"#ifdef GL_ES")
WriteLine(file,"precision mediump float;")
WriteLine(file,"#endif")

WriteLine(file,"#extension GL_OES_standard_derivatives : enable")

WriteLine(file,"uniform float itime;")
WriteLine(file,"uniform vec2 iresolution;")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying mediump vec2 uvVarying;")

WriteLine(file,"float angle(vec2 p0,vec2 p1) {")
WriteLine(file,"	if (p1.x < p0.x )")
WriteLine(file,"		return radians(180.0) + acos(dot(normalize(p0-p1),vec2(0.0,1.0)));")
WriteLine(file,"	return acos(dot(normalize(p1-p0),vec2(0.0,1.0)));")
WriteLine(file,"}")

WriteLine(file,"void main( void ) {")
WriteLine(file,"	vec2 mid = iresolution.xy / 2.0;")
WriteLine(file,"	float scale = mod(itime / 20.0 ,1.0);")
WriteLine(file,"	float thickness = mid.x;") //try uncommenting and commenting line below 
//WriteLine(file,"	float thickness = 100.0;") 

	
WriteLine(file,"	if (distance(mid,gl_FragCoord.xy)>min(iresolution.x,iresolution.y)/2.0 - thickness && distance(mid,gl_FragCoord.xy)<min(iresolution.x,iresolution.y)/2.0) {")
WriteLine(file,"		if (angle(mid,gl_FragCoord.xy)<=radians(360.0 * scale) )")
WriteLine(file,"			gl_FragColor = vec4(1.0,0.0,0.0,1.0)+texture2D(texture0, uvVarying).rgba;	// Circle Fill Color")
WriteLine(file,"		else")
//WriteLine(file,"			gl_FragColor = vec4(0.0,1.0,0.0,1.0);	// Cirlce Background Color")
WriteLine(file,"			gl_FragColor = vec4(0.0,1.0,0.0,1.0)+texture2D(texture0, uvVarying).rgba;")
WriteLine(file,"	}")
WriteLine(file,"	else")
//WriteLine(file,"		gl_FragColor = vec4(0.0,0.0,0.0,1.0);	// Background Color")
WriteLine(file,"		gl_FragColor = texture2D(texture0, uvVarying).rgba;")
WriteLine(file,"}")
CloseFile(file)
endfunction

if your after healthbar shaders there is much better ones on the shader thread I just thought ide have a play

ps you need the attached png and your good to go
HAHAHAHA think I need one of those gui shader creators to really grasp them

fubarpk
fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Attachments

Login to view attachments

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: 1st Mar 2020 01:47 Edited at: 1st Mar 2020 04:37

Link

here is kinda a matrix shader
I don't really like the way it turned out but thought ide share

SetWindowSize(800, 800,0)
SetVirtualResolution(800, 800)
spr=createSprite(0)
SetSpriteSize(spr,800,800)
SetSpriteColor(spr,0,0,0,255)
SetSpriteDepth(spr,0)
SetSpriteTransparency( spr,1 )

text=CreateText("Matrix")
SetTextPosition(text,200,300)
SetTextSize(text,100)
SetTextDepth(text,10)
createShader()
shader=LoadSpriteShader("matrix.ps")
SetSpriteShader(spr,shader)
SetShaderConstantByName(shader,"resolution",800,800,0.0,0.0)
do
	time#=Timer()
	SetShaderConstantByName(shader,"time",time#,time#,time#,0.2)
	sync()
loop

function createShader()
file = OpenToWrite("matrix.ps")
WriteLine(file,"#ifdef GL_ES")
WriteLine(file,"precision mediump float;")
WriteLine(file,"#endif")

WriteLine(file,"uniform float time;")
//WriteLine(file,"uniform vec2 mouse;")
WriteLine(file,"uniform vec2 resolution;")

WriteLine(file,"void main( void ) ")
WriteLine(file,"{")

WriteLine(file,"	vec2 uv = ( gl_FragCoord.xy / resolution.xy ) * 2.0 - 1.0;")
WriteLine(file,"	uv.x *= resolution.x/resolution.y;")
	
WriteLine(file,"	vec2 px = vec2(gl_FragCoord.x, gl_FragCoord.y);")
WriteLine(file,"	px.x+=sin(time+px.y*0.01)*0.07;")
	///px *= 4.;
	
	
WriteLine(file,"	vec3 finalColor = vec3( 0.1, 0.2, 0.3 );")

WriteLine(file,"	float a = 0.;//atan( uv.y / uv.x );")
WriteLine(file,"	float r = -1.5 + length( uv );")

WriteLine(file,"	float timeT = .1;//sin(time) * 0.5 + 0.5;")
WriteLine(file,"	float move = .6 + time;")
	
WriteLine(file,"     	float t = .7 + .1 * sin(move * 1.);")
    
WriteLine(file,"     	finalColor += vec3( 8.0 * t, 4.0 * t, 2.0 * t );")
    
WriteLine(file,"     	finalColor *= .5 * (1.-r);")
	
WriteLine(file,"	float g = -mod( px.y + time, cos( px.x ) + 0.004 ) * .5;")
WriteLine(file,"	finalColor *= vec3( (g/2.)*(resolution.y-gl_FragCoord.y)/resolution.y, g/2., g );")
WriteLine(file,"	gl_FragColor = vec4( 0.0,0.0,0.0,0.0);")
WriteLine(file,"	if (finalColor.x > .1 || finalColor.y > .1 || finalColor.z > .1 ){")	
WriteLine(file,"		gl_FragColor = vec4( finalColor, 1.0 );")

WriteLine(file,"	}")
WriteLine(file,"}")
CloseFile(file)
endfunction

+ Code Snippet

SetWindowSize(800, 800,0)
SetVirtualResolution(800, 800)
spr=createSprite(0)
SetSpriteSize(spr,800,800)
SetSpriteColor(spr,0,0,0,255)
SetSpriteDepth(spr,0)
SetSpriteTransparency( spr,1 ) 

text=CreateText("Matrix")
SetTextPosition(text,200,300)
SetTextSize(text,100)
SetTextDepth(text,10)
createShader()
shader=LoadSpriteShader("matrix.ps")
SetSpriteShader(spr,shader)
SetShaderConstantByName(shader,"resolution",800,800,0.0,0.0)
do
	time#=Timer()
	SetShaderConstantByName(shader,"time",time#,time#,time#,0.2)
	sync()
loop

function createShader()
file = OpenToWrite("matrix.ps")
WriteLine(file,"#ifdef GL_ES")
WriteLine(file,"precision mediump float;")
WriteLine(file,"#endif")

WriteLine(file,"uniform float time;")
//WriteLine(file,"uniform vec2 mouse;")
WriteLine(file,"uniform vec2 resolution;")


WriteLine(file,"void main( void ) ")
WriteLine(file,"{")

WriteLine(file,"	vec2 uv = ( gl_FragCoord.xy / resolution.xy ) * 2.0 - 1.0;")
WriteLine(file,"	uv.x *= resolution.x/resolution.y;")
	
WriteLine(file,"	vec2 px = vec2(gl_FragCoord.x, gl_FragCoord.y);")
WriteLine(file,"	px.x+=sin(time+px.y*0.01)*0.07;")
	///px *= 4.;
	
	
WriteLine(file,"	vec3 finalColor = vec3( 0.1, 0.2, 0.3 );")

WriteLine(file,"	float a = 0.;//atan( uv.y / uv.x );")
WriteLine(file,"	float r = -1.5 + length( uv );")
	

WriteLine(file,"	float timeT = .1;//sin(time) * 0.5 + 0.5;")
WriteLine(file,"	float move = .6 + time;")
	
WriteLine(file,"     	float t = .7 + .1 * sin(move * 1.);")
    
WriteLine(file,"     	finalColor += vec3( 8.0 * t, 4.0 * t, 2.0 * t );")
    
WriteLine(file,"     	finalColor *= .5 * (1.-r);")
	
WriteLine(file,"	float g = -mod( px.y + time, cos( px.x ) + 0.004 ) * .5;")
WriteLine(file,"	finalColor *= vec3( (g/2.)*(resolution.y-gl_FragCoord.y)/resolution.y, g/2., g );")
WriteLine(file,"	gl_FragColor = vec4( 0.0,0.0,0.0,0.0);")
WriteLine(file,"	if (finalColor.x > .1 || finalColor.y > .1 || finalColor.z > .1 ){")	
WriteLine(file,"		gl_FragColor = vec4( finalColor, 1.0 );")

WriteLine(file,"	}")
WriteLine(file,"}")
CloseFile(file)
endfunction

you could change this
WriteLine(file," finalColor *= vec3( (g/2.)*(resolution.y-gl_FragCoord.y)/resolution.y, g/2., g );")
to this if you just want green
WriteLine(file," finalColor *= vec3( 0, g/2., 0);")

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 1st Mar 2020 03:12

Link

Nice!

Back to top

Profile PM

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 19th Mar 2020 21:04

Link

I think it might be a good idea to pin this thread. I've been in here for help quite a few times

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 19th Mar 2020 22:02

Link

Thanks blink not so sure I want to pin my own threads tho hahahahahah
hope you are well

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 19th Mar 2020 23:28

Link

Here, use mine

. lol

Back to top

Profile PM

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 18th Jun 2020 06:47

Link

GlobalToLocal3D()
This function will take a world point and convert it to the co-ordinate space of an object. (A bit like GetSpriteXFromWorld() only for objects)
It is very handy to determine a point relative to an object.
So if the returned x value is positive then the point is on the right hand side
If the returned z value is negative then the point is behind the object
If the returned y value is positive then the point is above the object

For this to work you need to fix an object to the center/pivot of your object and pass that id to the function.

// Project: test562 
// Created: 20-06-18

// show all errors

SetErrorMode(2)

// set window properties
SetWindowTitle( "test562" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 )

global object as integer
object = CreateObjectCone(24, 12, 16)
RotateObjectLocalX(object, 90)
SetObjectPosition(object, 0, 0, 12)
FixObjectPivot(object)

global center as integer
center = CreateObjectSphere(2,16,16)
SetObjectColor(center, 0, 0xff, 0, 0xff)

FixObjectToObject(center, object)

type tPoint
	x as float
	y as float
	z as float
endtype

point  as tPoint
time as float

SetCameraPosition(1, 0, 250, -100)

global pos as integer
pos = CreateObjectPlane(4,4)
SetObjectColor(pos, 0xff, 0, 0, 0xff)

time = timer() + 1

do
	if timer() > time
		localPoint(point)
		time = time + 5
	endif
			
	SetCameraLookAt(1, GetObjectX(object),  GetObjectY(object),  GetObjectZ(object), 0)	
	print("Local=("+str(point.x,2)+","+str(point.y,2)+","+str(point.z,2)+")")
	print("Global=("+str(GetObjectX(pos),2)+","+str(GetObjectY(pos),2)+","+str(GetObjectZ(pos),2)+")")	
	
	if point.x > 0
		print("Right")
	elseif point.x < 0
		print("Left")		
	else
		print("aligned")		
	endif
	
	if point.z > 0
		print("Front")
	elseif point.z < 0
		print("Behind")		
	else
		print("aligned")		
	endif
	
	if point.y > 0
		print("Above")
	elseif point.y < 0
		print("Below")		
	else
		print("aligned")		
	endif
	
    Sync()
loop

function LocalPoint(r ref as tPoint)
	dist as float
	t as tPoint
	f as tPoint
			
	t.x = random(0, 100) - 50
	t.y = random(0, 100) - 50
	t.z = random(0, 100) - 50

SetObjectPosition(pos, t.x, t.y, t.z)

SetObjectPosition(object, random(0, 100) - 50,  random(0, 100) - 50,  random(0, 100) - 50)
	SetObjectRotation(object, 0,  random(0, 360),  0)

r = GlobalToLocal3D(center, t)

endfunction

function GlobalToLocal3D(obj as integer, point as tPoint)
	r as tpoint
	f as tPoint
	
	SetObjectPosition(obj, 0, 0, 0)
	SetObjectLookAt(obj, point.x, point.y, point.z, 0)
	
	f.x = GetObjectWorldX(obj)
	f.y = GetObjectWorldY(obj)	
	f.z = GetObjectWorldZ(obj)		
	
	dist = Distance3D(f, point)
	
	MoveObjectLocalZ(obj, dist)
	
	r.x = GetObjectX(center)
	r.y = GetObjectY(center)	
	r.z = GetObjectZ(center)

endfunction r

function Distance3D(fp as tPoint, tp as tPoint)
	dist as float
	dist = sqrt((tp.x - fp.x)^2 + (tp.y - fp.y)^2 + (tp.z - fp.z)^2 )				
endfunction dist

+ Code Snippet


// Project: test562 
// Created: 20-06-18

// show all errors

SetErrorMode(2)

// set window properties
SetWindowTitle( "test562" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 )

global object as integer
object = CreateObjectCone(24, 12, 16)
RotateObjectLocalX(object, 90)
SetObjectPosition(object, 0, 0, 12)
FixObjectPivot(object)

global center as integer
center = CreateObjectSphere(2,16,16)
SetObjectColor(center, 0, 0xff, 0, 0xff)

FixObjectToObject(center, object)

type tPoint
	x as float
	y as float
	z as float
endtype

point  as tPoint
time as float

SetCameraPosition(1, 0, 250, -100)

global pos as integer
pos = CreateObjectPlane(4,4)
SetObjectColor(pos, 0xff, 0, 0, 0xff)

time = timer() + 1

do
	if timer() > time
		localPoint(point)
		time = time + 5
	endif
			
	SetCameraLookAt(1, GetObjectX(object),  GetObjectY(object),  GetObjectZ(object), 0)	
	print("Local=("+str(point.x,2)+","+str(point.y,2)+","+str(point.z,2)+")")
	print("Global=("+str(GetObjectX(pos),2)+","+str(GetObjectY(pos),2)+","+str(GetObjectZ(pos),2)+")")	
	
	if point.x > 0
		print("Right")
	elseif point.x < 0
		print("Left")		
	else
		print("aligned")		
	endif
	
	if point.z > 0
		print("Front")
	elseif point.z < 0
		print("Behind")		
	else
		print("aligned")		
	endif
	
	if point.y > 0
		print("Above")
	elseif point.y < 0
		print("Below")		
	else
		print("aligned")		
	endif
	
    Sync()
loop


function LocalPoint(r ref as tPoint)
	dist as float
	t as tPoint
	f as tPoint
			
	t.x = random(0, 100) - 50
	t.y = random(0, 100) - 50
	t.z = random(0, 100) - 50	

	SetObjectPosition(pos, t.x, t.y, t.z)

	SetObjectPosition(object, random(0, 100) - 50,  random(0, 100) - 50,  random(0, 100) - 50)
	SetObjectRotation(object, 0,  random(0, 360),  0)

	r = GlobalToLocal3D(center, t)

endfunction


function GlobalToLocal3D(obj as integer, point as tPoint)
	r as tpoint
	f as tPoint
	
	SetObjectPosition(obj, 0, 0, 0)
	SetObjectLookAt(obj, point.x, point.y, point.z, 0)
	
	f.x = GetObjectWorldX(obj)
	f.y = GetObjectWorldY(obj)	
	f.z = GetObjectWorldZ(obj)		
	
	dist = Distance3D(f, point)
	
	MoveObjectLocalZ(obj, dist)
	
	r.x = GetObjectX(center)
	r.y = GetObjectY(center)	
	r.z = GetObjectZ(center)

endfunction r

function Distance3D(fp as tPoint, tp as tPoint)
	dist as float
	dist = sqrt((tp.x - fp.x)^2 + (tp.y - fp.y)^2 + (tp.z - fp.z)^2 )				
endfunction dist

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 18th Jun 2020 10:23

Link

thanks blink you always have such great things to contribute to the community

anyone else feel free to add stuff

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

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: 10th Jul 2020 03:55 Edited at: 12th Jul 2020 16:39

Link

For those that didnt follow my Macroaction Thread, here is shader that turns all objects above a given range transparent
and all objects below a given range. This may help when people are recreating a 2.5d game with several floor levels as you
really only want to have the floor the player is on in full visibility

#constant KEY_LEFT  =  37 //the left arrow key scancode
#constant KEY_UP =  38    //the up arrow key scancode
#constant KEY_RIGHT = 39  //the right arrow key scancode
#constant KEY_DOWN  =  40 //the down arrow key scancode
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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 font
x#=0:y#=0:z#=0
createShader()
obj=CreateObjectBox(2,15,2)
SetObjectImage(obj,createTexture(makecolor(255,255,255)),0)
SetObjectPosition(obj,x#,y#,z#)
SetObjectTransparency(obj,1)
SetObjectDepthWrite(obj,1)
fadeShader=LoadShader("fade.vs","fade.ps")
SetObjectShader(obj,fadeShader)
SetShaderConstantByName(fadeShader,"alpha",0.2,0,0,0)
//SetShaderConstantByName(fadeShader,"myColor",3,3,3,3)

do
	if GetRawKeyState(KEY_UP)
		y#=y#+.2
		SetObjectPosition(obj,x#,y#,z#)
	endif
	
	if GetRawKeyState(KEY_DOWN)
		y#=y#-.2
		SetObjectPosition(obj,x#,y#,z#)
	endif
	//The idea this should be calculated from the player position
	SetShaderConstantByName(fadeShader,"myCoord",-5,5,1,1)	//the y coords you want it to go transparent notice there are two
	sync()
loop

function createTexture(color)
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    drawbox(0,0,10, 10, color, color,color,color, 1)
    Render()
    //img = getimage(0,0,sizex, sizey)
    ImgId=getimage(0,0,10, 10)
    Swap()
 endfunction imgId

function createShader()
file = OpenToWrite("fade.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")

//added this sectio for bone animations to work proper
WriteLine(file,"attribute highp vec4 boneweights;")
WriteLine(file,"attribute mediump vec4 boneindices;")
WriteLine(file,"uniform highp vec4 agk_bonequats1[30];")
WriteLine(file,"uniform highp vec4 agk_bonequats2[30];")
WriteLine(file,"highp vec3 transformDQ( highp vec3 p, highp vec4 q1, highp vec4 q2 )")
WriteLine(file,"{")
WriteLine(file,"    p += 2.0 * cross( q1.xyz, cross(q1.xyz, p) + q1.w*p );")
WriteLine(file,"    p += 2.0 * (q1.w*q2.xyz - q2.w*q1.xyz + cross(q1.xyz,q2.xyz));")
WriteLine(file,"    return p;")
WriteLine(file,"}")

WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")

//added this section for bone animation to animate properly aswell
WriteLine(file,"    highp vec4 q1 = agk_bonequats1[ int(boneindices.x) ] * boneweights.x;")
WriteLine(file,"    q1 += agk_bonequats1[ int(boneindices.y) ] * boneweights.y;")
WriteLine(file,"    q1 += agk_bonequats1[ int(boneindices.z) ] * boneweights.z;")
WriteLine(file,"    q1 += agk_bonequats1[ int(boneindices.w) ] * boneweights.w;")
WriteLine(file,"    highp vec4 q2 = agk_bonequats2[ int(boneindices.x) ] * boneweights.x;")
WriteLine(file,"    q2 += agk_bonequats2[ int(boneindices.y) ] * boneweights.y;")
WriteLine(file,"    q2 += agk_bonequats2[ int(boneindices.z) ] * boneweights.z;")
WriteLine(file,"    q2 += agk_bonequats2[ int(boneindices.w) ] * boneweights.w;")
WriteLine(file,"    highp float len = 1.0/length(q1);")
WriteLine(file,"    q1 *= len;")
WriteLine(file,"    q2 = (q2 - q1*dot(q1,q2)) * len;")
WriteLine(file,"//    highp vec4 pos = vec4( transformDQ(position,q1,q2), 1.0 );")

WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}") 
CloseFile(file)

//pixel shader
file = OpenToWrite("fade.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );")
WriteLine(file,"uniform mediump vec3 agk_MeshDiffuse;")
WriteLine(file,"uniform mediump vec3 myCoord;")
WriteLine(file,"varying vec4 verpos;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"mediump vec3 norm = normalize(normalVarying);")
WriteLine(file,"mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );")
WriteLine(file,"vec3 colorA = texture2D(texture0, uvVarying).rgb*light *agk_MeshDiffuse;")
WriteLine(file,"if (posVarying.y>myCoord.y)")
WriteLine(file,"{")
WriteLine(file,"    colorA = clamp(colorA,0.0,1.0);") //restricts color range
WriteLine(file,"	mediump vec3 color = ApplyFog( colorA, posVarying );")
WriteLine(file,"	gl_FragColor = vec4(color,0.1);")
WriteLine(file,"}else{")
WriteLine(file,"	if (posVarying.y<myCoord.x)")
WriteLine(file,"	{")
WriteLine(file,"		mediump vec3 color = ApplyFog( colorA, posVarying );")
WriteLine(file,"		gl_FragColor = vec4(color,0.1);")
WriteLine(file,"	}else{")
WriteLine(file,"		mediump vec3 color = ApplyFog( colorA, posVarying );")
WriteLine(file,"		gl_FragColor = vec4(color,1.0);")
WriteLine(file,"	}")
WriteLine(file,"}")
WriteLine(file,"}")

CloseFile(file)
endfunction

+ Code Snippet

#constant KEY_LEFT  =  37 //the left arrow key scancode
#constant KEY_UP =  38    //the up arrow key scancode
#constant KEY_RIGHT = 39  //the right arrow key scancode
#constant KEY_DOWN  =  40 //the down arrow key scancode
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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 font
x#=0:y#=0:z#=0
createShader()
obj=CreateObjectBox(2,15,2)
SetObjectImage(obj,createTexture(makecolor(255,255,255)),0)
SetObjectPosition(obj,x#,y#,z#)
SetObjectTransparency(obj,1)
SetObjectDepthWrite(obj,1)
fadeShader=LoadShader("fade.vs","fade.ps")
SetObjectShader(obj,fadeShader)
SetShaderConstantByName(fadeShader,"alpha",0.2,0,0,0)
//SetShaderConstantByName(fadeShader,"myColor",3,3,3,3)

do
	if GetRawKeyState(KEY_UP)
		y#=y#+.2
		SetObjectPosition(obj,x#,y#,z#)
	endif
	
	if GetRawKeyState(KEY_DOWN)
		y#=y#-.2
		SetObjectPosition(obj,x#,y#,z#)
	endif
	//The idea this should be calculated from the player position
	SetShaderConstantByName(fadeShader,"myCoord",-5,5,1,1)	//the y coords you want it to go transparent notice there are two
	sync()
loop	

function createTexture(color)
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    drawbox(0,0,10, 10, color, color,color,color, 1)
    Render()
    //img = getimage(0,0,sizex, sizey)
    ImgId=getimage(0,0,10, 10)
    Swap()
 endfunction imgId

function createShader()
file = OpenToWrite("fade.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")

//added this sectio for bone animations to work proper
WriteLine(file,"attribute highp vec4 boneweights;")
WriteLine(file,"attribute mediump vec4 boneindices;")
WriteLine(file,"uniform highp vec4 agk_bonequats1[30];")
WriteLine(file,"uniform highp vec4 agk_bonequats2[30];")
WriteLine(file,"highp vec3 transformDQ( highp vec3 p, highp vec4 q1, highp vec4 q2 )")
WriteLine(file,"{")
WriteLine(file,"    p += 2.0 * cross( q1.xyz, cross(q1.xyz, p) + q1.w*p );")
WriteLine(file,"    p += 2.0 * (q1.w*q2.xyz - q2.w*q1.xyz + cross(q1.xyz,q2.xyz));")
WriteLine(file,"    return p;")
WriteLine(file,"}")

WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")

//added this section for bone animation to animate properly aswell
WriteLine(file,"    highp vec4 q1 = agk_bonequats1[ int(boneindices.x) ] * boneweights.x;")
WriteLine(file,"    q1 += agk_bonequats1[ int(boneindices.y) ] * boneweights.y;")
WriteLine(file,"    q1 += agk_bonequats1[ int(boneindices.z) ] * boneweights.z;")
WriteLine(file,"    q1 += agk_bonequats1[ int(boneindices.w) ] * boneweights.w;")
WriteLine(file,"    highp vec4 q2 = agk_bonequats2[ int(boneindices.x) ] * boneweights.x;")
WriteLine(file,"    q2 += agk_bonequats2[ int(boneindices.y) ] * boneweights.y;")
WriteLine(file,"    q2 += agk_bonequats2[ int(boneindices.z) ] * boneweights.z;")
WriteLine(file,"    q2 += agk_bonequats2[ int(boneindices.w) ] * boneweights.w;")
WriteLine(file,"    highp float len = 1.0/length(q1);")
WriteLine(file,"    q1 *= len;")
WriteLine(file,"    q2 = (q2 - q1*dot(q1,q2)) * len;")
WriteLine(file,"//    highp vec4 pos = vec4( transformDQ(position,q1,q2), 1.0 );")


WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}") 
CloseFile(file)

//pixel shader
file = OpenToWrite("fade.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );")
WriteLine(file,"uniform mediump vec3 agk_MeshDiffuse;")
WriteLine(file,"uniform mediump vec3 myCoord;")
WriteLine(file,"varying vec4 verpos;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"mediump vec3 norm = normalize(normalVarying);")
WriteLine(file,"mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );")
WriteLine(file,"vec3 colorA = texture2D(texture0, uvVarying).rgb*light *agk_MeshDiffuse;")
WriteLine(file,"if (posVarying.y>myCoord.y)")
WriteLine(file,"{")
WriteLine(file,"    colorA = clamp(colorA,0.0,1.0);") //restricts color range
WriteLine(file,"	mediump vec3 color = ApplyFog( colorA, posVarying );")
WriteLine(file,"	gl_FragColor = vec4(color,0.1);")
WriteLine(file,"}else{")
WriteLine(file,"	if (posVarying.y<myCoord.x)")
WriteLine(file,"	{")
WriteLine(file,"		mediump vec3 color = ApplyFog( colorA, posVarying );")
WriteLine(file,"		gl_FragColor = vec4(color,0.1);")
WriteLine(file,"	}else{")
WriteLine(file,"		mediump vec3 color = ApplyFog( colorA, posVarying );")
WriteLine(file,"		gl_FragColor = vec4(color,1.0);")
WriteLine(file,"	}")
WriteLine(file,"}")
WriteLine(file,"}")

CloseFile(file)
endfunction

this line SetShaderConstantByName(fadeShader,"myCoord",-5,5,1,1) //should be used with a calculation from the players y coords
eg SetShaderConstantByName(fadeShader,"myCoord",getObjectY(player.collisionID)-5,(getObjectY(player.collisionID)+12),1,1)

the above version of the shader makes it transparent above and below given ranges the following variation restricts the transparency between the height parameters
note it now has x coords and y coords to pass (myCoordX and myCoordY)

function createShader()
file = OpenToWrite("fade.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")

//added this sectio for bone animations to work proper
WriteLine(file,"attribute highp vec4 boneweights;")
WriteLine(file,"attribute mediump vec4 boneindices;")
WriteLine(file,"uniform highp vec4 agk_bonequats1[30];")
WriteLine(file,"uniform highp vec4 agk_bonequats2[30];")
WriteLine(file,"highp vec3 transformDQ( highp vec3 p, highp vec4 q1, highp vec4 q2 )")
WriteLine(file,"{")
WriteLine(file,"    p += 2.0 * cross( q1.xyz, cross(q1.xyz, p) + q1.w*p );")
WriteLine(file,"    p += 2.0 * (q1.w*q2.xyz - q2.w*q1.xyz + cross(q1.xyz,q2.xyz));")
WriteLine(file,"    return p;")
WriteLine(file,"}")

WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")

//added this section for bone animation to animate properly aswell
WriteLine(file,"    highp vec4 q1 = agk_bonequats1[ int(boneindices.x) ] * boneweights.x;")
WriteLine(file,"    q1 += agk_bonequats1[ int(boneindices.y) ] * boneweights.y;")
WriteLine(file,"    q1 += agk_bonequats1[ int(boneindices.z) ] * boneweights.z;")
WriteLine(file,"    q1 += agk_bonequats1[ int(boneindices.w) ] * boneweights.w;")
WriteLine(file,"    highp vec4 q2 = agk_bonequats2[ int(boneindices.x) ] * boneweights.x;")
WriteLine(file,"    q2 += agk_bonequats2[ int(boneindices.y) ] * boneweights.y;")
WriteLine(file,"    q2 += agk_bonequats2[ int(boneindices.z) ] * boneweights.z;")
WriteLine(file,"    q2 += agk_bonequats2[ int(boneindices.w) ] * boneweights.w;")
WriteLine(file,"    highp float len = 1.0/length(q1);")
WriteLine(file,"    q1 *= len;")
WriteLine(file,"    q2 = (q2 - q1*dot(q1,q2)) * len;")
WriteLine(file,"//    highp vec4 pos = vec4( transformDQ(position,q1,q2), 1.0 );")

WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}") 
CloseFile(file)

//pixel shader
file = OpenToWrite("fade.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );")
WriteLine(file,"uniform mediump vec3 agk_MeshDiffuse;")
WriteLine(file,"uniform mediump vec3 myCoordX;")
WriteLine(file,"uniform mediump vec3 myCoordY;")
WriteLine(file,"varying vec4 verpos;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"mediump vec3 norm = normalize(normalVarying);")
WriteLine(file,"mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );")
WriteLine(file,"vec3 colorA = texture2D(texture0, uvVarying).rgb*light *agk_MeshDiffuse;")
WriteLine(file,"mediump vec3 color = ApplyFog( colorA, posVarying );")
WriteLine(file,"gl_FragColor = vec4(color,1.0);")
WriteLine(file,"if (posVarying.y<myCoordY.y)")
WriteLine(file,"{")
WriteLine(file,"	if (posVarying.y>myCoordY.x)")
WriteLine(file,"	{")
WriteLine(file,"		if (posVarying.x<myCoordX.y)")
WriteLine(file,"		{")
WriteLine(file,"			if (posVarying.x>myCoordX.x)")
WriteLine(file,"			{")

WriteLine(file,"    			colorA = clamp(colorA,0.0,1.0);") //restricts color range
WriteLine(file,"				mediump vec3 color = ApplyFog( colorA, posVarying );")
WriteLine(file,"				gl_FragColor = vec4(color,0.1);")
WriteLine(file,"		}")
WriteLine(file,"	}")
WriteLine(file,"}")
WriteLine(file,"}")
WriteLine(file,"}")

CloseFile(file)
endfunction

+ Code Snippet

function createShader()
file = OpenToWrite("fade.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")

//added this sectio for bone animations to work proper
WriteLine(file,"attribute highp vec4 boneweights;")
WriteLine(file,"attribute mediump vec4 boneindices;")
WriteLine(file,"uniform highp vec4 agk_bonequats1[30];")
WriteLine(file,"uniform highp vec4 agk_bonequats2[30];")
WriteLine(file,"highp vec3 transformDQ( highp vec3 p, highp vec4 q1, highp vec4 q2 )")
WriteLine(file,"{")
WriteLine(file,"    p += 2.0 * cross( q1.xyz, cross(q1.xyz, p) + q1.w*p );")
WriteLine(file,"    p += 2.0 * (q1.w*q2.xyz - q2.w*q1.xyz + cross(q1.xyz,q2.xyz));")
WriteLine(file,"    return p;")
WriteLine(file,"}")

WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")

//added this section for bone animation to animate properly aswell
WriteLine(file,"    highp vec4 q1 = agk_bonequats1[ int(boneindices.x) ] * boneweights.x;")
WriteLine(file,"    q1 += agk_bonequats1[ int(boneindices.y) ] * boneweights.y;")
WriteLine(file,"    q1 += agk_bonequats1[ int(boneindices.z) ] * boneweights.z;")
WriteLine(file,"    q1 += agk_bonequats1[ int(boneindices.w) ] * boneweights.w;")
WriteLine(file,"    highp vec4 q2 = agk_bonequats2[ int(boneindices.x) ] * boneweights.x;")
WriteLine(file,"    q2 += agk_bonequats2[ int(boneindices.y) ] * boneweights.y;")
WriteLine(file,"    q2 += agk_bonequats2[ int(boneindices.z) ] * boneweights.z;")
WriteLine(file,"    q2 += agk_bonequats2[ int(boneindices.w) ] * boneweights.w;")
WriteLine(file,"    highp float len = 1.0/length(q1);")
WriteLine(file,"    q1 *= len;")
WriteLine(file,"    q2 = (q2 - q1*dot(q1,q2)) * len;")
WriteLine(file,"//    highp vec4 pos = vec4( transformDQ(position,q1,q2), 1.0 );")


WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}") 
CloseFile(file)

//pixel shader
file = OpenToWrite("fade.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );")
WriteLine(file,"uniform mediump vec3 agk_MeshDiffuse;")
WriteLine(file,"uniform mediump vec3 myCoordX;")
WriteLine(file,"uniform mediump vec3 myCoordY;")
WriteLine(file,"varying vec4 verpos;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"mediump vec3 norm = normalize(normalVarying);")
WriteLine(file,"mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );")
WriteLine(file,"vec3 colorA = texture2D(texture0, uvVarying).rgb*light *agk_MeshDiffuse;")
WriteLine(file,"mediump vec3 color = ApplyFog( colorA, posVarying );")
WriteLine(file,"gl_FragColor = vec4(color,1.0);")
WriteLine(file,"if (posVarying.y<myCoordY.y)")
WriteLine(file,"{")
WriteLine(file,"	if (posVarying.y>myCoordY.x)")
WriteLine(file,"	{")
WriteLine(file,"		if (posVarying.x<myCoordX.y)")
WriteLine(file,"		{")
WriteLine(file,"			if (posVarying.x>myCoordX.x)")
WriteLine(file,"			{")

WriteLine(file,"    			colorA = clamp(colorA,0.0,1.0);") //restricts color range
WriteLine(file,"				mediump vec3 color = ApplyFog( colorA, posVarying );")
WriteLine(file,"				gl_FragColor = vec4(color,0.1);")
WriteLine(file,"		}")
WriteLine(file,"	}")
WriteLine(file,"}")
WriteLine(file,"}")
WriteLine(file,"}")

CloseFile(file)
endfunction

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

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: 14th Jul 2020 02:42 Edited at: 6th Aug 2020 06:01

Link

Ive attached the source code to the following video
i couldnt get the bones perfectly in side the model but i worked around that
by creating a second shader which is an inverse effect of the first
The animations created in Mixamo

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Attachments

Login to view attachments

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 14th Nov 2020 01:16 Edited at: 14th Nov 2020 01:16

Link

Handy function to help debug sprites. Just add a call to DumpDebug() where you want to examine where sprites are

// File: debug.agc
// Created: 20-10-03

type tDebug
	sprite as integer
	image as string
	text as integer
	x as float
	y as float
	z as float
endtype

function DumpDebug()
	i as integer
	n as string
	t as integer
	c as integer
	id as integer
	d as tDebug
	sprites as tDebug[]
	
	for i=1 to 1000000
		d.sprite = i
		
		if GetSpriteExists(d.sprite) <> 1
			continue
		endif
		
		d.x = GetSpriteX(d.sprite)
		d.y = GetSpriteY(d.sprite)
		
		if GetImageExists(GetSpriteImageID(d.sprite))
			n = GetImageFilename(GetSpriteImageID(i))
			c = CountStringTokens(n, "/")
			if c > 1
				n = GetStringToken(n,"/",c)
			endif	
			d.image = n		
		else
			d.image = "No image"
		endif
		
		d.text = CreateText(d.image)
		SetTextSize(d.text, 12)
		SetTextPosition(d.text, d.x, d.y)
		SetTextDepth(d.text,2)
		sprites.insert(d)
	next

repeat	
		for i=0 to sprites.length
			d = sprites[i]
			DrawBox(d.x, d.y, d.x + GetSpriteWidth(d.sprite), d.y + GetSpriteHeight(d.sprite), 0xffffffff,  0xffffffff,  0xffffffff,  0xffffffff,0)
			DrawText(d.text)
		next
		sync()
	until GetRawKeyPressed(27)
	
	
	for i=0 to sprites.length
		d = sprites[i]
		DeleteText(d.text)
	next
endfunction

+ Code Snippet

// File: debug.agc
// Created: 20-10-03


type tDebug
	sprite as integer
	image as string
	text as integer
	x as float
	y as float
	z as float
endtype

function DumpDebug()
	i as integer
	n as string
	t as integer
	c as integer
	id as integer
	d as tDebug
	sprites as tDebug[]
	
	for i=1 to 1000000
		d.sprite = i
		
		if GetSpriteExists(d.sprite) <> 1
			continue
		endif
		
		d.x = GetSpriteX(d.sprite)
		d.y = GetSpriteY(d.sprite)
		
		if GetImageExists(GetSpriteImageID(d.sprite))
			n = GetImageFilename(GetSpriteImageID(i))
			c = CountStringTokens(n, "/")
			if c > 1
				n = GetStringToken(n,"/",c)
			endif	
			d.image = n		
		else
			d.image = "No image"
		endif
		
		d.text = CreateText(d.image)
		SetTextSize(d.text, 12)
		SetTextPosition(d.text, d.x, d.y)
		SetTextDepth(d.text,2)
		sprites.insert(d)
	next

	repeat	
		for i=0 to sprites.length
			d = sprites[i]
			DrawBox(d.x, d.y, d.x + GetSpriteWidth(d.sprite), d.y + GetSpriteHeight(d.sprite), 0xffffffff,  0xffffffff,  0xffffffff,  0xffffffff,0)
			DrawText(d.text)
		next
		sync()
	until GetRawKeyPressed(27)
	
	
	for i=0 to sprites.length
		d = sprites[i]
		DeleteText(d.text)
	next
endfunction

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 14th Nov 2020 18:16

Link

getting the location of a sprite and angle so as a bullet can be positioned correctly can be a little tricky sometimes
usually its as simple as

+ Code Snippet

    SetSpritePositionbyoffset(launch,GetSpriteXByOffset(cannon),GetSpriteYByOffset(cannon))
    SetSpriteAngle(launch, GetSpriteAngle(cannon))

but sometimes you need to use more advanced methods
1>

+ Code Snippet

// Courtesy of Bengismo
// Thread: https://forum.thegamecreators.com/thread/222633
// Positions and rotates a sprite relative to its parent sprite
// spr is the sprite to be positioned relative to its parent
// x,y are the relative offset of spr1 to the parent 
// parent is the sprite toposition relative to
function SetSpritePositionRelative(spr as integer, x as float, y as float, parent as integer)
 
    // First copy the rotation
    angle# = GetSpriteAngle(parent)
    SetSpriteAngle(spr,angle#)
 
    // translate the relative position
    xn#= x*cos(angle#) - y*sin(angle#) +GetSpriteXByOffset(parent)
    yn#= y*cos(angle#) + x*sin(angle#) +GetSpriteYByOffset(parent)
 
    // set sprite position
    SetSpritePositionByOffset(spr,xn#,yn#)
 
endfunction

2>courtesy of virtual nomad

// show all errors
SetErrorMode(2)

// set window properties
SetWindowSize( 1080, 720, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1080, 720 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

Ship = CreateSprite(0)            :    SetSpriteSize(Ship,32,64)    :    SetSpritePositionByOffset(Ship, GetWindowWidth()/2.0, GetWindowHeight()/2.0)
Cannon1 = CreateSprite(0)        :    SetSpriteSize(Cannon1,4,4)    :    SetSpriteColor(Cannon1,255,0,0,255)

do
    ShipAngle# = GetSpriteAngle(Ship) + GetRawKeyState(39) - GetRawKeyState(37) 
    
    SetSpriteAngle(Ship, ShipAngle#)
    
    Move# = GetRawKeyState(38) - GetRawKeyState(40)
    
    If Move# <> 0.0 then SetSpritePositionByOffset(Ship, GetSpriteXByOffset(Ship) + SIN (ShipAngle#)* Move#, GetSpriteYByOffset(Ship) - COS(ShipAngle#)*Move# )
    
    //Position Cannon1 @ 0, -30, relative to ship center
    CX# = GetWorldXFromSprite(Ship,0.0,-30.0)        :    CY# = GetWorldYFromSprite(Ship,0.0,-30.0)
    SetSpritePositionByOffset(Cannon1,CX#, CY#)    :    SetSpriteAngle(Cannon1,ShipAngle#)

Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

// show all errors
SetErrorMode(2)

// set window properties
SetWindowSize( 1080, 720, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1080, 720 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

Ship = CreateSprite(0)            :    SetSpriteSize(Ship,32,64)    :    SetSpritePositionByOffset(Ship, GetWindowWidth()/2.0, GetWindowHeight()/2.0)
Cannon1 = CreateSprite(0)        :    SetSpriteSize(Cannon1,4,4)    :    SetSpriteColor(Cannon1,255,0,0,255)

do
    ShipAngle# = GetSpriteAngle(Ship) + GetRawKeyState(39) - GetRawKeyState(37) 
    
    SetSpriteAngle(Ship, ShipAngle#)
    
    Move# = GetRawKeyState(38) - GetRawKeyState(40)
    
    If Move# <> 0.0 then SetSpritePositionByOffset(Ship, GetSpriteXByOffset(Ship) + SIN (ShipAngle#)* Move#, GetSpriteYByOffset(Ship) - COS(ShipAngle#)*Move# )
    
    //Position Cannon1 @ 0, -30, relative to ship center
    CX# = GetWorldXFromSprite(Ship,0.0,-30.0)        :    CY# = GetWorldYFromSprite(Ship,0.0,-30.0)
    SetSpritePositionByOffset(Cannon1,CX#, CY#)    :    SetSpriteAngle(Cannon1,ShipAngle#)

    Print( ScreenFPS() )
    Sync()
loop

code copied from discord

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

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: 1st Jan 2021 05:23 Edited at: 1st Jan 2021 21:28

Link

using a memblock to grayscale

+ Code Snippet

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
 LoadImage(1,"youimage.png") 

createShader()
CreateSprite(1,1)
MakeGreyscale(1)
do
    sync()  
loop

function MakeGreyscale(spr)
//Gray = 0.2126×Red + 0.7152×Green + 0.0722×Blue
    img = GetSpriteImageID(spr)
    mb = CreateMemblockFromImage(img)
    size = GetMemblockSize(mb)
    for k = 12 to size-4 step 4
        r = GetMemblockByte(mb, k)
        g = GetMemblockByte(mb, k+1)
        b = GetMemblockByte(mb, k+2)
        Gray = 0.2126*r + 0.7152*g + 0.0722*b
        SetMemblockByte(mb, k, Gray)
        SetMemblockByte(mb, k+1, Gray)
        SetMemblockByte(mb, k+2, Gray)
    next k
    CreateImageFromMemblock(img, mb)
    DeleteMemblock(mb)
endfunction

the same using a shader

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
LoadImage(1,"yourspriteimge.png")

createShader()
CreateSprite(1, 1)
SetSpriteTransparency(1,1)
LoadSpriteShader(1, "bw.ps")
SetSpriteShader(1, 1)

//the next line is only there to show transparency with a background
bg=createsprite(LoadImage("anybackgroundimage.png")):SetSpriteDepth(bg,100)

SetSpritePosition(2, 100.0, 100.0)

resetTimer()
SetShaderConstantByName(1, "factor", 0, 0, 0, 0) //factor red blue green alpha

do

SetShaderConstantByName(1, "factor", 1, 1, 1, 1) //red green blue alpha set rgn to 1 like this for gray
//SetShaderConstantByName(1, "factor", 0.5, 0.6, 1.0, 1) //red green blue alpha
sync()

loop

function createShader()
file = OpenToWrite("bw.ps")
WriteLine(file,"uniform sampler2D texture0;")
//WriteLine(file,"uniform float agk_time;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"uniform vec3 factor;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"vec4 color = texture2D(texture0, uvVarying).rgba;")
WriteLine(file,"float grey = 0.21 * color.r + 0.71 * color.g + 0.07 * color.b;")
WriteLine(file,"vec4 color2 = vec4(color.rgb * (1.0 - factor) + (grey * factor), 1.0);")
WriteLine(file,"gl_FragColor = vec4(color2.r,color2.g,color2.b,color.a);")

WriteLine(file,"}")
CloseFile(file)
endfunction

+ Code Snippet


SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
LoadImage(1,"yourspriteimge.png")

createShader()
CreateSprite(1, 1)
SetSpriteTransparency(1,1)
LoadSpriteShader(1, "bw.ps")
SetSpriteShader(1, 1)

//the next line is only there to show transparency with a background
bg=createsprite(LoadImage("anybackgroundimage.png")):SetSpriteDepth(bg,100)

SetSpritePosition(2, 100.0, 100.0)

resetTimer()
SetShaderConstantByName(1, "factor", 0, 0, 0, 0) //factor red blue green alpha

do

SetShaderConstantByName(1, "factor", 1, 1, 1, 1) //red green blue alpha set rgn to 1 like this for gray
//SetShaderConstantByName(1, "factor", 0.5, 0.6, 1.0, 1) //red green blue alpha
sync()

loop


function createShader()
file = OpenToWrite("bw.ps")
WriteLine(file,"uniform sampler2D texture0;")
//WriteLine(file,"uniform float agk_time;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"uniform vec3 factor;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"vec4 color = texture2D(texture0, uvVarying).rgba;")
WriteLine(file,"float grey = 0.21 * color.r + 0.71 * color.g + 0.07 * color.b;")
WriteLine(file,"vec4 color2 = vec4(color.rgb * (1.0 - factor) + (grey * factor), 1.0);")
WriteLine(file,"gl_FragColor = vec4(color2.r,color2.g,color2.b,color.a);")

WriteLine(file,"}")
CloseFile(file)
endfunction

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

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: 14th Jan 2021 00:44 Edited at: 16th Jan 2021 19:13

Link

Map generator using the Random Walk Algorithm
1>Makes a two dimensional map of walls
2>Chooses a random starting point on the map
3>While the number of tunnels is not zero
3>Chooses a random length from maximum allowed length
4>Chooses a random direction to turn to (right, left, up, down)
5>Draws a tunnel in that direction while avoiding the edges of the map
6>Decrements the number of tunnels and repeats the while loop
7>Returns the map with the changes

Note: the larger the maxTurn is compared to the dimensions, the denser the map will be.
The larger the maxLength is compared to the dimensions, the more “tunnel-y” it will look.
Its a commonly known and used algorithym and has known issues that are commonly known
try it copy paste (run repeat) give it a go. There is also a simple character/monster movement in documented
source below.

// Project: Walking procedural map generator  
// Created: 2021-01-13

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "map generator" )
SetWindowSize( 769, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

//Map generator using the Random Walk Algorithm
//1>Makes a two dimensional map of walls
//2>Chooses a random starting point on the map
//3>While the number of tunnels is not zero
//3>Chooses a random length from maximum allowed length
//4>Chooses a random direction to turn to (right, left, up, down)
//5>Draws a tunnel in that direction while avoiding the edges of the map
//6>Decrements the number of tunnels and repeats the while loop
//7>Returns the map with the changes

//Note: the larger the maxTurn is compared to the dimensions, the denser the map will be. 
//The larger the maxLength is compared to the dimensions, the more “tunnel-y” it will look.

#constant maxlength 512
#constant maxY 48 ///multiplied by tileY for pixels
#constant maxX 48
#constant tileX 16
#constant tileY 16
#constant maxItems 5
#constant maxMonsters 2

type _character
	ID as integer
	x as integer //the x position in relation to the grid
	y as integer //the y position in relation to the grid
	items as integer //the number of items picked up
	realX as integer //the actual x location of the sprite 
	realY as integer //the actual y location of the sprite
	diagFlag as integer //a state if true a monster may move diagonally
endtype
monster as _character[maxMonsters] 
player as _character

imgBG=1
CreateRenderImage(imgBG,1024,768,0,0)
sprBG=createSprite(imgBG) //the background renering image note its set to the furthest depth
SetSpriteDepth(sprBG,100)

sprWhite=createSprite(0)    //white tile used for areaes that are both dug and can walk
SetSpriteColor(sprWhite,255,255,255,255)
SetSpriteSize(sprWhite,tileX,tileY)

sprBlack=createSprite(0)   //black tiles cannot be moved on
SetSpriteColor(sprBlack,0,0,0,255)
SetSpriteSize(sprBlack,tileX,tileY)
global levelArray 	as integer [maxX,maxY]

x=random(0,maxX):y=random(0,maxY)
SetrenderToImage(imgBG,0)
for y = 0 to maxY
    for x = 0 to maxX
        SetSpritePosition(sprBlack,x*tileX,y*tileY)
        levelArray[x,y]=1
        drawSprite(sprBlack)
    next x
next y
//SetRenderToScreen()

//tunnel starting point1
SetSpriteVisible(sprBlack,0)
//SetRenderToImage(imgBG,0)
x=random(0,maxX):y=random(0,maxY)
SetSpritePosition(sprWhite,x,y):levelArray[x,y]=0
drawSprite(sprWhite)

//BELOW IS THE BEGININNING OF PROCEDURAL WALK THROUGH DUNGEON CREATION ALGORiTHYM
///first digging pass
//random length less than max length
length=random(0,maxlength)
for num=0 to length //repeat process of digging algorithym lenghth set
	//random direction
	direction=random(1,4)
	//SetRenderToImage(imgBG,0)
	Select direction
		case 1:
			//north
			if y >0 then y = y -1
		endcase
		case 2:
			//south
			if y<maxY-1 then y = y +1
		endcase
		case 3:
			//west
			if x>0 then x=x-1
		endcase
		case 4:
			if x<maxX-1 then x=x+1
		endcase
	endselect
	SetSpritePosition(sprWhite,x*tileX,y*tileY):levelArray[x,y]=0
	drawSprite(sprWhite)
next num
SetSpriteVisible(sprWhite,0)
//SetRenderToScreen()

//second pass tunnels
//create more tunnels these have to be dug through in game
sprRed=createSprite(0)
SetSpriteColor(sprRed,255,0,0,255)
SetSpriteSize(sprRed,tileX,tileY)

for num=1 to length
	//random direction
	direction=random(1,4)
	//SetRenderToImage(imgBG,0)
	if random(1,2)=1
		Select direction
			case 1:
				//north
				if y > 1 then y = y -1
			endcase
			case 2:

//south
				if y<maxY-1 then y = y +1
			endcase
			case 3:
				//west
				if x>1 then x=x-1
			endcase
			case 4:
				//east
				if x<maxX-1 then x=x+1
			endcase
		endselect

if levelArray[x,y]=1
			SetSpritePosition(sprRed,x*tileX,y*tiley):levelArray[x,y]=2
			drawSprite(sprRed) //only draw and update for valid valid tiles
			endif
		endif
next num
deleteSprite(sprRed) //red prite is no longer needed delete it
//SetRenderToScreen()

//third pass place items
sprYellow=createSprite(0)
SetSpriteColor(sprYellow,255,255,0,255)
SetSpriteSize(sprYellow,tileX,tileY)
SetSpriteDepth(sprYellow,0)
//SetRenderToImage(imgBG,0)
num=1
repeat

x=random(1,maxX):y=random(1,maxY)
	if levelArray[x,y]=0 //check if can place here
		levelArray[x,y]=3:SetSpritePosition(sprYellow,x*tileX,y*tileY):num=num+1:DrawSprite(sprYellow)
	endif		
until num>maxItems
deleteSprite(sprYellow) //yellow sprite(items) no longer needed

sprPlayer=createSprite(0) //create a green playing sprite
SetSpriteColor(sprPlayer,0,255,0,255)
SetSpriteSize(sprPlayer,tileX,tileY)
SetSpriteDepth(sprPlayer,0)
repeat
	x=random(1,maxX):y=random(1,maxY) //randomly position on map within the array area
until levelArray[x,y]<>1 //repeat until a valid location has been chosen which is not black repeat implies it must be done once
player.x=x*tileX:player.y=y*tileY //multipley but the tile size to display correctly on screen
SetSpritePosition(sprPlayer,player.x,player.y)

//fourth pass place monsters
DeleteSprite(sprYellow)
for num =0 to monster.length-1
	monster[num].ID=createSprite(0)
		SetSpriteColor(monster[num].ID,0,0,255,255)
		SetSpriteSize(monster[num].ID,tileX,tileY)
		SetSpriteDepth(monster[num].ID,0)
		repeat
		x=random(1,maxX):y=random(1,maxY) //placing a monnster is same as player process
	until levelArray[x,y]<>1 //repeat until a valid placement
	SetSpritePosition(monster[num].ID,x*tileX,y*tileY) ///:DrawSprite(monster.ID)	
	//DeleteSprite(monster.ID)
	monster[num].x=x:monster[num].y=y //monster variables updated
	monster[num].realX=monster[num].x*tileX:monster[num].realY=monster[num].y*tileY //multiply by tile dimension for correct positioning
	if num <=1
		monster[num].diagFlag=num
	endif	
next num
SetRenderToScreen()

do
	
	player.x = GetPointerX() / tileX //calculate the x array/grid location
	player.y = GetPointerY() / tileY //calculate the y array/grid location
	
	player.realX=player.x*tileX:player.realY=player.y*tileY //update actual sprite location variable this is only need to do the following calculations
	if player.x>=0 and player.x<=maxX and player.y>=0 and player.y<=maxY //ensure player is within grid
	arrayLoc=levelArray[player.x,player.y]                               //store the array variable of the player location for calculations
	if arrayLoc<>1                                                       //check if player sprite is on a valid grid  
	SetSpritePosition(sprPlayer,player.realX,Player.realY)               //position player sprite
	if arrayLoc=2 or arrayLoc=3 
		if arrayLoc=3 then player.items = player.items +1
		levelArray[player.x,player.y]=0 								 //an item has been picked up draw a white tile there
		SetSpriteVisible(sprWhite,1)
		SetRenderToImage(imgBG,0)										 //set rendering to the image so white/mapped tile can be drawn	
		SetSpritePosition(sprWhite,player.realX,player.realY)            //position player sprite  
		drawSprite(sprWhite)
		SetRenderToScreen()
		SetSpriteVisible(sprWhite,0)
	endif
	endif 
	endif
	Print("Player has "+str(player.items)+ " items")
	Print(" ")

for num = 0 to monster.length-1
		moveMonster(levelArray,monster[num], player)                                              //pass the level array and allow diagonal movement
		monster[num].realX=monster[num].x*tileX:monster[num].realY=monster[num].Y*tileY
		SetSpritePosition(monster[num].ID,monster[num].realX,monster[num].realY)             //position the sprite on grid
		arrayLoc=levelArray[monster[num].x,monster[num].y]
		if arrayLoc>1                                                         //check if tile either needs to be mapped/2 or an item/yellow             
			if arrayLoc=3 then monster[num].items = monster[num].items +1
			levelArray[monster[num].x,monster[num].y]=0
			SetSpriteVisible(sprWhite,1)                                 //the location now has been mapped and has no other items 
			SetRenderToImage(imgBG,0)
			SetSpritePosition(sprWhite,monster[num].realX,monster[num].realY) //the white tile needs to be drawn to the background and then rendering set to normal/screen
			drawSprite(sprWhite)
			SetRenderToScreen()
			setSpriteVisible(sprWhite,0)
		endif
		Print("Monster "+str(num)+" diagonalMovement="+str(monster[num].diagFlag)+" has "+str(monster[num].items)+" items")
	next num
	sync()
loop

function moveMonster(levelArray as integer[][],monster ref as _character,player ref as _character)
// diag flag is true if that creature may move diagonally

x as integer
	y as integer

x = (player.x - monster.x)
    
    if x <> 0
    	x = x / abs(x)
    endif
    
    y = (player.y - monster.y)
    
    if y <> 0
    	y = y / abs(y)
    endif

if monster.x<1 or monster.x>maxX-1 then exitfunction
	if monster.y<1 or monster.y>maxY-1 then exitfunction
	
	//add some more realism to movement without diagonal
	realism=random(0,1) //when 1 is given it is more likely to move horizontally 0=vertically
	
    if levelArray[ monster.x + x,monster.y + y] <> 1 and monster.diagFlag=1
        inc monster.x, x
        inc monster.y, y
    elseif levelArray[monster.x,monster.y + y] <> 1 and realism=0
        inc monster.y, y
    elseif levelArray[monster.x + x,monster.y] <> 1 and realism=0
        inc monster.x, x
	elseif levelArray[monster.x + x,monster.y] <> 1 
        inc monster.x, x
    elseif levelArray[monster.x,monster.y + y] <> 1
        inc monster.y, y
    endif
    
endfunction

+ Code Snippet

// Project: Walking procedural map generator  
// Created: 2021-01-13

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "map generator" )
SetWindowSize( 769, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

//Map generator using the Random Walk Algorithm
//1>Makes a two dimensional map of walls
//2>Chooses a random starting point on the map
//3>While the number of tunnels is not zero
//3>Chooses a random length from maximum allowed length
//4>Chooses a random direction to turn to (right, left, up, down)
//5>Draws a tunnel in that direction while avoiding the edges of the map
//6>Decrements the number of tunnels and repeats the while loop
//7>Returns the map with the changes

//Note: the larger the maxTurn is compared to the dimensions, the denser the map will be. 
//The larger the maxLength is compared to the dimensions, the more “tunnel-y” it will look.


#constant maxlength 512
#constant maxY 48 ///multiplied by tileY for pixels
#constant maxX 48
#constant tileX 16
#constant tileY 16
#constant maxItems 5
#constant maxMonsters 2


type _character
	ID as integer
	x as integer //the x position in relation to the grid
	y as integer //the y position in relation to the grid
	items as integer //the number of items picked up
	realX as integer //the actual x location of the sprite 
	realY as integer //the actual y location of the sprite
	diagFlag as integer //a state if true a monster may move diagonally
endtype
monster as _character[maxMonsters] 
player as _character

imgBG=1
CreateRenderImage(imgBG,1024,768,0,0)
sprBG=createSprite(imgBG) //the background renering image note its set to the furthest depth
SetSpriteDepth(sprBG,100)

sprWhite=createSprite(0)    //white tile used for areaes that are both dug and can walk
SetSpriteColor(sprWhite,255,255,255,255)
SetSpriteSize(sprWhite,tileX,tileY)

sprBlack=createSprite(0)   //black tiles cannot be moved on
SetSpriteColor(sprBlack,0,0,0,255)
SetSpriteSize(sprBlack,tileX,tileY)
global levelArray 	as integer [maxX,maxY]

x=random(0,maxX):y=random(0,maxY)
SetrenderToImage(imgBG,0)
for y = 0 to maxY
    for x = 0 to maxX
        SetSpritePosition(sprBlack,x*tileX,y*tileY)
        levelArray[x,y]=1
        drawSprite(sprBlack)
    next x
next y
//SetRenderToScreen()

//tunnel starting point1
SetSpriteVisible(sprBlack,0)
//SetRenderToImage(imgBG,0)
x=random(0,maxX):y=random(0,maxY)
SetSpritePosition(sprWhite,x,y):levelArray[x,y]=0
drawSprite(sprWhite)

//BELOW IS THE BEGININNING OF PROCEDURAL WALK THROUGH DUNGEON CREATION ALGORiTHYM
///first digging pass
//random length less than max length
length=random(0,maxlength)
for num=0 to length //repeat process of digging algorithym lenghth set
	//random direction
	direction=random(1,4)
	//SetRenderToImage(imgBG,0)
	Select direction
		case 1:
			//north
			if y >0 then y = y -1
		endcase
		case 2:
			//south
			if y<maxY-1 then y = y +1
		endcase
		case 3:
			//west
			if x>0 then x=x-1
		endcase
		case 4:
			if x<maxX-1 then x=x+1
		endcase
	endselect
	SetSpritePosition(sprWhite,x*tileX,y*tileY):levelArray[x,y]=0
	drawSprite(sprWhite)
next num
SetSpriteVisible(sprWhite,0)
//SetRenderToScreen()

//second pass tunnels
//create more tunnels these have to be dug through in game
sprRed=createSprite(0)
SetSpriteColor(sprRed,255,0,0,255)
SetSpriteSize(sprRed,tileX,tileY)

for num=1 to length
	//random direction
	direction=random(1,4)
	//SetRenderToImage(imgBG,0)
	if random(1,2)=1
		Select direction
			case 1:
				//north
				if y > 1 then y = y -1
			endcase
			case 2:

				//south
				if y<maxY-1 then y = y +1
			endcase
			case 3:
				//west
				if x>1 then x=x-1
			endcase
			case 4:
				//east
				if x<maxX-1 then x=x+1
			endcase
		endselect

		if levelArray[x,y]=1
			SetSpritePosition(sprRed,x*tileX,y*tiley):levelArray[x,y]=2
			drawSprite(sprRed) //only draw and update for valid valid tiles
			endif
		endif
next num
deleteSprite(sprRed) //red prite is no longer needed delete it
//SetRenderToScreen()

//third pass place items
sprYellow=createSprite(0)
SetSpriteColor(sprYellow,255,255,0,255)
SetSpriteSize(sprYellow,tileX,tileY)
SetSpriteDepth(sprYellow,0)
//SetRenderToImage(imgBG,0)
num=1
repeat

	x=random(1,maxX):y=random(1,maxY)
	if levelArray[x,y]=0 //check if can place here
		levelArray[x,y]=3:SetSpritePosition(sprYellow,x*tileX,y*tileY):num=num+1:DrawSprite(sprYellow)
	endif		
until num>maxItems
deleteSprite(sprYellow) //yellow sprite(items) no longer needed

sprPlayer=createSprite(0) //create a green playing sprite
SetSpriteColor(sprPlayer,0,255,0,255)
SetSpriteSize(sprPlayer,tileX,tileY)
SetSpriteDepth(sprPlayer,0)
repeat
	x=random(1,maxX):y=random(1,maxY) //randomly position on map within the array area
until levelArray[x,y]<>1 //repeat until a valid location has been chosen which is not black repeat implies it must be done once
player.x=x*tileX:player.y=y*tileY //multipley but the tile size to display correctly on screen
SetSpritePosition(sprPlayer,player.x,player.y)	

//fourth pass place monsters
DeleteSprite(sprYellow)
for num =0 to monster.length-1
	monster[num].ID=createSprite(0)
		SetSpriteColor(monster[num].ID,0,0,255,255)
		SetSpriteSize(monster[num].ID,tileX,tileY)
		SetSpriteDepth(monster[num].ID,0)
		repeat
		x=random(1,maxX):y=random(1,maxY) //placing a monnster is same as player process
	until levelArray[x,y]<>1 //repeat until a valid placement
	SetSpritePosition(monster[num].ID,x*tileX,y*tileY) ///:DrawSprite(monster.ID)	
	//DeleteSprite(monster.ID)
	monster[num].x=x:monster[num].y=y //monster variables updated
	monster[num].realX=monster[num].x*tileX:monster[num].realY=monster[num].y*tileY //multiply by tile dimension for correct positioning
	if num <=1
		monster[num].diagFlag=num
	endif	
next num
SetRenderToScreen()

do
	
	player.x = GetPointerX() / tileX //calculate the x array/grid location
	player.y = GetPointerY() / tileY //calculate the y array/grid location
	
	player.realX=player.x*tileX:player.realY=player.y*tileY //update actual sprite location variable this is only need to do the following calculations
	if player.x>=0 and player.x<=maxX and player.y>=0 and player.y<=maxY //ensure player is within grid
	arrayLoc=levelArray[player.x,player.y]                               //store the array variable of the player location for calculations
	if arrayLoc<>1                                                       //check if player sprite is on a valid grid  
	SetSpritePosition(sprPlayer,player.realX,Player.realY)               //position player sprite
	if arrayLoc=2 or arrayLoc=3 
		if arrayLoc=3 then player.items = player.items +1
		levelArray[player.x,player.y]=0 								 //an item has been picked up draw a white tile there
		SetSpriteVisible(sprWhite,1)
		SetRenderToImage(imgBG,0)										 //set rendering to the image so white/mapped tile can be drawn	
		SetSpritePosition(sprWhite,player.realX,player.realY)            //position player sprite  
		drawSprite(sprWhite)
		SetRenderToScreen()
		SetSpriteVisible(sprWhite,0)
	endif
	endif 
	endif
	Print("Player has "+str(player.items)+ " items")
	Print(" ")	

	for num = 0 to monster.length-1
		moveMonster(levelArray,monster[num], player)                                              //pass the level array and allow diagonal movement
		monster[num].realX=monster[num].x*tileX:monster[num].realY=monster[num].Y*tileY
		SetSpritePosition(monster[num].ID,monster[num].realX,monster[num].realY)             //position the sprite on grid
		arrayLoc=levelArray[monster[num].x,monster[num].y]
		if arrayLoc>1                                                         //check if tile either needs to be mapped/2 or an item/yellow             
			if arrayLoc=3 then monster[num].items = monster[num].items +1
			levelArray[monster[num].x,monster[num].y]=0
			SetSpriteVisible(sprWhite,1)                                 //the location now has been mapped and has no other items 
			SetRenderToImage(imgBG,0)
			SetSpritePosition(sprWhite,monster[num].realX,monster[num].realY) //the white tile needs to be drawn to the background and then rendering set to normal/screen
			drawSprite(sprWhite)
			SetRenderToScreen()
			setSpriteVisible(sprWhite,0)
		endif
		Print("Monster "+str(num)+" diagonalMovement="+str(monster[num].diagFlag)+" has "+str(monster[num].items)+" items")
	next num
	sync()
loop

function moveMonster(levelArray as integer[][],monster ref as _character,player ref as _character)
// diag flag is true if that creature may move diagonally

	x as integer
	y as integer

    x = (player.x - monster.x)
    
    if x <> 0
    	x = x / abs(x)
    endif
    
    y = (player.y - monster.y)
    
    if y <> 0
    	y = y / abs(y)
    endif

	if monster.x<1 or monster.x>maxX-1 then exitfunction
	if monster.y<1 or monster.y>maxY-1 then exitfunction
	
	//add some more realism to movement without diagonal
	realism=random(0,1) //when 1 is given it is more likely to move horizontally 0=vertically
	
    if levelArray[ monster.x + x,monster.y + y] <> 1 and monster.diagFlag=1
        inc monster.x, x
        inc monster.y, y
    elseif levelArray[monster.x,monster.y + y] <> 1 and realism=0
        inc monster.y, y
    elseif levelArray[monster.x + x,monster.y] <> 1 and realism=0
        inc monster.x, x
	elseif levelArray[monster.x + x,monster.y] <> 1 
        inc monster.x, x
    elseif levelArray[monster.x,monster.y + y] <> 1
        inc monster.y, y
    endif
    
endfunction

Map integration
1>black tiles cant do anything here
0>white tiles area to move
2>red tiles area to discover
3>yellow tiles items
4>green tile you as player
4>blue tiles monsters

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

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: 26th Jan 2021 18:17 Edited at: 26th Jan 2021 18:31

Link

SOME MATH FUNCTIONS (without using built in vector commands)

2D distance calculation function

+ Code Snippet

function getDistance2D(x1 as integer,y1 as integer,x2 as integer,y2 as integer)
	d as integer
	rem using the formula d=sqrt((x2-x1)2 +(y2-y1)2)
	d=ABS(SQRT(POW((x2-x1),2) + POW((y2-y1),2)))
endfunction d

3D distance calculation

+ Code Snippet

function getDistance3D(x1 as integer,y1 as integer,z1 as integer ,x2 as integer,y2 as integer ,z2 as integer)
	d as integer
    d=ABS(SQRT(POW((x2-x1),2) + POW((y2-y1),2)+POW((z2-z1),2)))
endfunction	d

4D distance calculation a time derivative (but i use for in/out)[/b]

+ Code Snippet

function getDistance4D(x1 as integer,y1 as integer,z1 as integer ,t1 as integer,x2 as integer,y2 as integer ,z2 as integer, t2 as integer)
	d as integer
    d=ABS(SQRT(POW((x2-x1),2) + POW((y2-y1),2)+POW((z2-z1),2)+POW((t2-t1),2)))
endfunction d

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 27th Jan 2021 10:11 Edited at: 27th Jan 2021 10:17

Link

For such a small amount of code, there are quite a few things wrong with (or could be improved within) your distance function.

Firstly: you shouldn't restrict the input/output to integers. Even if you're working with a fixed 2D grid that can only have integer inputs, the output should be a float.
For example, take the inputs 0, 0, and 1, 2. The distance between those two coordinates is 2.36. Which is definitely not the same as 2 even in a fixed grid system.
Restricting the output to an integer means that the values (0, 0, 1, 2) and (0, 0, 0, 2) would both return 2 and therefore give the same resulting distance, which is clearly not the case.

Secondly: the POW() function is a recursive function and therefore slower than calling the multiplication twice.
2*2 is faster than POW(2, 2)

Thirdly: calling ABS() is a wasted function call. ABS() removes the negation of a value (eg, -2.36 becomes 2.36). However, the calculation of the distance function will always return a positive value, so you can eliminate that step entirely.

A faster and more accurate distance function would be:

+ Code Snippet

function GetDistance2( x1#, y1#, x2#, y2# )
	x# = x2# - x1#
	y# = y2# - y1#
	d# = sqrt( (x#*x#) + (y#*y#) )
endfunction d#

You can even improve that further by removing the sqrt() function and instead check for distance squared.

+ Code Snippet

function GetDistance2Squared( x1#, y1#, x2#, y2# )
	x# = x2# - x1#
	y# = y2# - y1#
	d# = (x#*x#) + (y#*y#) 
endfunction d#

If you use the second variant, then instead of searching for a distance of say 5, you would search for 5 squared or (5 * 5) or 25. Which is a lot quicker than square rooting the distance.
In a one-off call you might think "so what?". But if you are checking the distance of 1000's of items every frame it soon adds up and every little helps.

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / [STICKY] Some usefull 2D and 3D tools effects and snippets

Attachments

Attachments

Attachments

Attachments

Attachments