Need help with 2D Shaders - GameCreators Forum

Author

Message

Arch-Ok

AGK Developer

5

Years of Service

User Offline

Joined: 11th Jul 2019

Location: Bursa/TÜRKIYE

Posted: 11th Aug 2024 22:41

Link

Hi, I was using Classic and when it came to Android SDK Update I had to move on with Studio. But the problem is, now everything messed up. I suspect the shaders I use which were ok with Classic. I set the renderer to basic but nothing changed. For example, when I try to set a variable in a shader for color, it changes to object's (sprite, text) position. I'm not into shaders that much and I hope my shaders are buggy. If this is the case can someone fix them for me? The very core of the shaders are so tiny and simple;
Vertex Shader

+ Code Snippet

attribute vec4 position;
attribute vec4 color;
attribute vec2 uv;
varying mediump vec2 uvVarying;
varying mediump vec2 posVarying;
varying mediump vec4 colorVarying;
uniform mat4 agk_Ortho;

void main()
{ 
	gl_Position = agk_Ortho * position;
	posVarying = position.xy;
	uvVarying = uv;
	colorVarying = color;

}

Pixel Shader

+ Code Snippet

uniform sampler2D texture0;
varying mediump vec2 uvVarying;
varying mediump vec2 posVarying;
varying mediump vec4 colorVarying;

uniform mediump vec4 window;

void main()
{
float x, y;
x = posVarying.x;
y = posVarying.y;

gl_FragColor = vec4(0.0, 0.0, 0.0, 0.0);

if(x >= window.x)
{
if(x <= window.z){if(y >= window.y){if(y <= window.w)
{gl_FragColor = texture2D(texture0, uvVarying) * colorVarying ;}}}
}

}

And here what I mean with messed up;

OpenGl and Vulkan are different ofcourse, so can anyone fix those tiny shader codes suitable for Studio please?

Attachments

Login to view attachments

Back to top

Profile PM

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 13th Aug 2024 21:58 Edited at: 13th Aug 2024 21:59

Link

Try adding this to the first line of your program
#renderer "Basic"

Back to top

Profile PM

Arch-Ok

AGK Developer

5

Years of Service

User Offline

Joined: 11th Jul 2019

Location: Bursa/TÜRKIYE

Posted: 13th Aug 2024 22:41

Link

@blink0k Thank you. I tried that but nothing changed. Just if someone might adjust those tiny shader codes for Studio to make them work as they expected would be great. My only hope is those shader codes of mine are wrong.

Back to top

Profile PM

smerf

19

Years of Service

User Offline

Joined: 24th Feb 2005

Location: nm usa

Posted: 14th Aug 2024 05:56

Link

i think we might need more information or a test project with a shader, Its a big difference but from a shaders perspective its small it could be a tiny difference of a .1 of a float value causing you this issue or it could be that multiply on the shader texture color. Id suggests try using a mix maybe (txt,colorVar,colorVar.a)

Back to top

Profile PM Email

Arch-Ok

AGK Developer

5

Years of Service

User Offline

Joined: 11th Jul 2019

Location: Bursa/TÜRKIYE

Posted: 16th Aug 2024 17:43

Link

Sorry for late answer, it was a busy week. For a group of sprites like 20+ sprites in it, I only load one shader and set their shader to the same shader. But when it comes to 'text group' like 20+ texts in it, I load same shader for every single of the texts and set their shaders to their own, separately. It works in Classic but maybe not in the Studio? And then the texts are still buggy but I'll give it a try anyways, hope I find some solutions and share the info here.

Back to top

Profile PM

Arch-Ok

AGK Developer

5

Years of Service

User Offline

Joined: 11th Jul 2019

Location: Bursa/TÜRKIYE

Posted: 16th Aug 2024 18:30

Link

Nope. It just got even worse.

Back to top

Profile PM

Arch-Ok

AGK Developer

5

Years of Service

User Offline

Joined: 11th Jul 2019

Location: Bursa/TÜRKIYE

Posted: 16th Aug 2024 18:35

Link

Actually using the same shader for lots of sprites in the same group is just fine. Classic proves this. Shaders are buggy in Studio, maybe setshaderconstant commands or maybe agks attributes paassed to the shaders are or maybe converting GSLS to SPIR-V Idk. I am sure not my job to find out and, I'm so done with agk...

Back to top

Profile PM

agkcoder

19

Years of Service

User Offline

Joined: 12th Dec 2004

Location: AGK Forums

Posted: 17th Aug 2024 22:13

Link

Arch-OK, as smerf said, it would be cool if you could provide a small code with a mini-shader and some simple media that produces the same bug you're describing. So we could try to figure out what is not working properly, maybe try to fix it, or if nothing else we could just avoid it by knowing about it or find workarounds.

Back to top

Profile PM

Arch-Ok

AGK Developer

5

Years of Service

User Offline

Joined: 11th Jul 2019

Location: Bursa/TÜRKIYE

Posted: 18th Aug 2024 11:37 Edited at: 18th Aug 2024 12:54

Link

Ok, just left click and move the mouse in the window.

// Project: Gui Bug 
// Created: 2024-08-18

// show all errors

#renderer "Basic"
SetRawWritePath(GetReadPath())
SetErrorMode(2)
#option_explicit

// set window properties
SetWindowTitle( "Gui Bug" )
SetWindowSize( 1080, 1920, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1080, 1920 ) // 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 ViewType
	Left			As Float
	Top				As Float
	Width			As Float
	Height			As Float
	Right			As Float
	Bottom			As Float
EndType

Type GuiControlType
	Area			As ViewType
	Sprite			As Integer[128]
	Text			As Integer[128]
	Colors			As Integer[128]
	SpriteShader	As Integer
	ParentX			As Float
	ParentY			As Float
EndType

Global GuiControl As GuiControlType[128]
Global TotalControls As Integer

Global BaseWindow As Integer, ChildWindow As Integer, Label0 As Integer, Label1 As Integer, Button0 As Integer, Button1 As Integer

Global BaseImage As Integer
Global BaseSize As Float

#Constant SpriteVertexShader "sprite_window.vs"
#Constant SpritePixelShader "sprite_window.ps"
#Constant TextVertexShader "text_window.vs"
#Constant TextPixelShader "text_window.ps"
#Constant SpriteShaderWindowName "window"
#Constant TextShaderWindowName "window"
#Constant TextShaderColorName "ocolor"

Setup()
ShowGuiControl(BaseWindow)
ShowGuiControl(ChildWindow)
do
    Print( ScreenFPS() )
    If GetPointerState()
		PositionBasWindow(GetPointerX(), GetPointerY())
	EndIf
    Sync()
loop

Function ShowGuiControl(C As Integer)
	Local i As Integer, j As Float
	For i = 0 To 127
		j = GuiControl[C].Sprite[i]
		If GetSpriteExists(j) = 0 Then Exit
		SetSpriteVisible(j, 1)
	Next
EndFunction

Function PositionBasWindow(X As Float, Y As Float)
	
	PositionControl(BaseWindow, X, Y)
	PositionControl(ChildWindow, GuiControl[ChildWindow].ParentX + X, GuiControl[ChildWindow].ParentY + Y)
	
EndFunction

Function PositionControl(C As Integer, X As Float, Y As Float)
	Local Bx As Float, By As Float
	Local Dx As Float, Dy As Float
	Local i As Integer, j As Float
	Dx = X - GuiControl[C].Area.Left
	Dy = Y - GuiControl[C].Area.Top
	
	GuiControl[C].Area.Left = X
	GuiControl[C].Area.Top = Y
	GuiControl[C].Area.Right = X + GuiControl[C].Area.Width
	GuiControl[C].Area.Bottom = Y + GuiControl[C].Area.Width
	Bx = GuiControl[C].ParentX
	By = GuiControl[C].ParentY
	SetShaderConstantByName(GuiControl[C].SpriteShader, SpriteShaderWindowName, GuiControl[C].Area.Left - Bx, GuiControl[C].Area.Top - By, GuiControl[C].Area.Right - Bx, GuiControl[C].Area.Bottom - By)
	
	
	
	For i = 0 To 127
		j = GuiControl[C].Sprite[i]
		If GetSpriteExists(j) = 0 Then Exit
		SetSpritePosition(j, GetSpriteX(j) + Dx, GetSpriteY(j) + Dy)
	Next
EndFunction

Function Setup()
	Local i As Integer, j As Integer, p As Integer, q As Integer, r As Integer, k As Integer, l As Integer, m As Integer, X As Integer, Y As Integer
	Local Ax As Float, Bx As Float, Cx As Float, Dx As Float, Ex As Float, Fx As Float, Gx As Float, Hx As Float
	Local Ay As Float, By As Float, Cy As Float, Dy As Float, Ey As Float, Fy As Float, Gy As Float, Hy As Float
	Local S As String, E As String, N As String
	
	BaseSize = 32
	Drawbox(0, 0, BaseSize - 1, BaseSize - 1, -1, -1, -1, -1, 1)
	Render()
	BaseImage = GetImage(0, 0, BaseSize - 1, BaseSize - 1)
	
	
	CreateShaders()

TotalControls = 0
	
	Ax = 600
	Ay = 900
	Bx = 100
	By = 100
	Ex = 128
	Ey = 128
	GuiControl[TotalControls].ParentX = 0
	GuiControl[TotalControls].ParentY = 0
	GuiControl[TotalControls].Colors[0] = 0xFEFF0000
	GuiControl[TotalControls].Area.Width = Ax
	GuiControl[TotalControls].Area.Height = Ay
	GuiControl[TotalControls].Area.Left = Bx
	GuiControl[TotalControls].Area.Top = By
	GuiControl[TotalControls].Area.Right = GuiControl[TotalControls].Area.Left + GuiControl[TotalControls].Area.Width
	GuiControl[TotalControls].Area.Bottom = GuiControl[TotalControls].Area.Top + GuiControl[TotalControls].Area.Height
	GuiControl[TotalControls].Area.Bottom = GuiControl[TotalControls].Area.Top + GuiControl[TotalControls].Area.Height
	GuiControl[TotalControls].SpriteShader = LoadShader(SpriteVertexShader, SpritePixelShader)
	SetShaderConstantByName(GuiControl[TotalControls].SpriteShader, SpriteShaderWindowName, GuiControl[TotalControls].Area.Left - Bx, GuiControl[TotalControls].Area.Top - By, GuiControl[TotalControls].Area.Right - Bx, GuiControl[TotalControls].Area.Bottom - By)
	
	
	
	Cx = Floor(Ax/Ex) + 1
	Cy = Floor(Ay/Ey) + 1
	
	x = Cx
	y = Cy
	
	Cx = -((Cx * Ex) - Ax)/2
	Cy = -((Cy * Ey) - Ay)/2
	
	p = 0
	Dy = Cy
	For i = 0 To y - 1
		Dx = Cx
		For j = 0 To x - 1
			GuiControl[TotalControls].Sprite[p] = CreateSprite(BaseImage)
			SetSpriteSize(GuiControl[TotalControls].Sprite[p], Ex, Ey)
			SetSpritePosition(GuiControl[TotalControls].Sprite[p], Dx, Dy)
			SetSpriteShader(GuiControl[TotalControls].Sprite[p], GuiControl[TotalControls].SpriteShader)
			SetSpriteColor(GuiControl[TotalControls].Sprite[p], ((GuiControl[TotalControls].Colors[0] >> 16) && 255), ((GuiControl[TotalControls].Colors[0] >> 8) && 255), ((GuiControl[TotalControls].Colors[0]) && 255), ((GuiControl[TotalControls].Colors[0] >> 24) && 255))
			SetSpriteVisible(GuiControl[TotalControls].Sprite[p], 0)
			Dx = Dx + Ex
			p = P + 1
		Next
		Dy = Dy + Ey
	Next
	
	BaseWindow = TotalControls
	TotalControls = TotalControls + 1
	
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Ax = 400
	Ay = 400
	Bx = -100
	By = -100
	Ex = 128
	Ey = 128
	GuiControl[TotalControls].ParentX = Bx
	GuiControl[TotalControls].ParentY = By
	GuiControl[TotalControls].Colors[0] = 0xFE00FF00
	GuiControl[TotalControls].Area.Width = Ax
	GuiControl[TotalControls].Area.Height = Ay
	GuiControl[TotalControls].Area.Left = Bx
	GuiControl[TotalControls].Area.Top = By
	GuiControl[TotalControls].Area.Right = GuiControl[TotalControls].Area.Left + GuiControl[TotalControls].Area.Width
	GuiControl[TotalControls].Area.Bottom = GuiControl[TotalControls].Area.Top + GuiControl[TotalControls].Area.Height
	GuiControl[TotalControls].Area.Bottom = GuiControl[TotalControls].Area.Top + GuiControl[TotalControls].Area.Height
	GuiControl[TotalControls].SpriteShader = LoadShader(SpriteVertexShader, SpritePixelShader)
	SetShaderConstantByName(GuiControl[TotalControls].SpriteShader, SpriteShaderWindowName, GuiControl[TotalControls].Area.Left - Bx, GuiControl[TotalControls].Area.Top - By, GuiControl[TotalControls].Area.Right - Bx, GuiControl[TotalControls].Area.Bottom - By)
	
	
	
	Cx = Floor(Ax/Ex) + 1
	Cy = Floor(Ay/Ey) + 1
	
	x = Cx
	y = Cy
	
	Cx = -((Cx * Ex) - Ax)/2
	Cy = -((Cy * Ey) - Ay)/2
	
	p = 0
	Dy = Cy
	For i = 0 To y - 1
		Dx = Cx
		For j = 0 To x - 1
			GuiControl[TotalControls].Sprite[p] = CreateSprite(BaseImage)
			SetSpriteSize(GuiControl[TotalControls].Sprite[p], Ex, Ey)
			SetSpritePosition(GuiControl[TotalControls].Sprite[p], Dx, Dy)
			SetSpriteShader(GuiControl[TotalControls].Sprite[p], GuiControl[TotalControls].SpriteShader)
			SetSpriteColor(GuiControl[TotalControls].Sprite[p], ((GuiControl[TotalControls].Colors[0] >> 16) && 255), ((GuiControl[TotalControls].Colors[0] >> 8) && 255), ((GuiControl[TotalControls].Colors[0]) && 255), ((GuiControl[TotalControls].Colors[0] >> 24) && 255))
			SetSpriteVisible(GuiControl[TotalControls].Sprite[p], 0)
			Dx = Dx + Ex
			p = P + 1
		Next
		Dy = Dy + Ey
	Next
	
	ChildWindow = TotalControls
	TotalControls = TotalControls + 1

EndFunction

Function CreateShaders()
	Local i As Integer, j As Integer, p As Integer, q As Integer, r As Integer, k As Integer, l As Integer, m As Integer
	Local Ax As Float, Bx As Float, Cx As Float, Dx As Float, Ex As Float, Fx As Float, Gx As Float, Hx As Float
	Local Ay As Float, By As Float, Cy As Float, Dy As Float, Ey As Float, Fy As Float, Gy As Float, Hy As Float
	Local S As String, E As String, N As String
	If GetFileExists(SpriteVertexShader) = 0
		S = "attribute vec4 position;" + Chr(13) + Chr(10)
		S = S + "attribute vec4 color;" + Chr(13) + Chr(10)
		S = S + "attribute vec2 uv;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec2 uvVarying;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec2 posVarying;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec4 colorVarying;" + Chr(13) + Chr(10)
		S = S + "uniform mat4 agk_Ortho;" + Chr(13) + Chr(10)
		S = S + Chr(13) + Chr(10)
		S = S + "void main()" + Chr(13) + Chr(10)
		S = S + "{ " + Chr(13) + Chr(10)
		S = S + "gl_Position = agk_Ortho * position;" + Chr(13) + Chr(10)
		S = S + "posVarying = position.xy;" + Chr(13) + Chr(10)
		S = S + "uvVarying = uv;" + Chr(13) + Chr(10)
		S = S + "colorVarying = color;" + Chr(13) + Chr(10)
		S = S + "}	" + Chr(13) + Chr(10)
		i = OpenToWrite(SpriteVertexShader)
		WriteString(i, S)
		CloseFile(i)
	EndIf
	
	If GetFileExists(SpritePixelShader) = 0
		S = "uniform sampler2D texture0;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec2 uvVarying;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec2 posVarying;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec4 colorVarying;" + Chr(13) + Chr(10)
		S = S + "uniform mediump vec4 " + SpriteShaderWindowName + ";" + Chr(13) + Chr(10)
		S = S + "void main()" + Chr(13) + Chr(10)
		S = S + "{" + Chr(13) + Chr(10)
		S = S + "float x, y;" + Chr(13) + Chr(10)
		S = S + "x = posVarying.x;" + Chr(13) + Chr(10)
		S = S + "y = posVarying.y;" + Chr(13) + Chr(10)
		S = S + "gl_FragColor = vec4(0.0, 0.0, 0.0, 0.0);" + Chr(13) + Chr(10)
		S = S + "if(x >= " + SpriteShaderWindowName + ".x)" + Chr(13) + Chr(10)
		S = S + "{" + Chr(13) + Chr(10)
		S = S + "if(x <= " + SpriteShaderWindowName + ".z){if(y >= " + SpriteShaderWindowName +".y){if(y <= " + SpriteShaderWindowName + ".w)" + Chr(13) + Chr(10)
		S = S + "{gl_FragColor = texture2D(texture0, uvVarying) * colorVarying ;}}}" + Chr(13) + Chr(10)
		S = S + "}" + Chr(13) + Chr(10)
		S = S + "}	" + Chr(13) + Chr(10)
		i = OpenToWrite(SpritePixelShader)
		WriteString(i, S)
		CloseFile(i)
	EndIf
	
	If GetFileExists(TextVertexShader) = 0
		S = "attribute vec4 position;" + Chr(13) + Chr(10)
		S = S + "attribute vec4 color;" + Chr(13) + Chr(10)
		S = S + "attribute vec2 uv;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec2 uvVarying;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec2 posVarying;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec4 colorVarying;" + Chr(13) + Chr(10)
		S = S + "uniform mat4 agk_Ortho;" + Chr(13) + Chr(10)
		S = S + "void main()" + Chr(13) + Chr(10)
		S = S + "{ " + Chr(13) + Chr(10)
		S = S + "gl_Position = agk_Ortho * position;" + Chr(13) + Chr(10)
		S = S + "posVarying = position.xy;" + Chr(13) + Chr(10)
		S = S + "uvVarying = uv;" + Chr(13) + Chr(10)
		S = S + "colorVarying = color;" + Chr(13) + Chr(10)
		S = S + "}" + Chr(13) + Chr(10)
		i = OpenToWrite(TextVertexShader)
		WriteString(i, S)
		CloseFile(i)
	EndIf

If GetFileExists(TextPixelShader) = 0
		S = "uniform sampler2D texture0;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec2 uvVarying;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec2 posVarying;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec4 colorVarying;" + Chr(13) + Chr(10)
		S = S + "uniform mediump vec4 " + TextShaderWindowName + ";" + Chr(13) + Chr(10)
		S = S + "uniform mediump vec4 " + TextShaderColorName + ";" + Chr(13) + Chr(10)
		S = S + "void main()" + Chr(13) + Chr(10)
		S = S + "{" + Chr(13) + Chr(10)
		S = S + "float x, y;" + Chr(13) + Chr(10)
		S = S + "vec4 v_0;" + Chr(13) + Chr(10)
		S = S + "x = posVarying.x;" + Chr(13) + Chr(10)
		S = S + "y = posVarying.y;" + Chr(13) + Chr(10)
		S = S + "gl_FragColor = vec4(0, 0, 0, 0);" + Chr(13) + Chr(10)
		S = S + "if(x >= " + TextShaderWindowName + ".x){" + Chr(13) + Chr(10)
		S = S + "if(x <= " + TextShaderWindowName + ".z){" + Chr(13) + Chr(10)
		S = S + "if(y >= " + TextShaderWindowName + ".y){" + Chr(13) + Chr(10)
		S = S + "if(y <= " + TextShaderWindowName + ".w){" + Chr(13) + Chr(10)
		S = S + "v_0 = texture2D(texture0, uvVarying) * colorVarying;" + Chr(13) + Chr(10)
		S = S + "v_0.x = " + TextShaderColorName + ".x;" + Chr(13) + Chr(10)
		S = S + "v_0.y = " + TextShaderColorName + ".y;" + Chr(13) + Chr(10)
		S = S + "v_0.z = " + TextShaderColorName + ".z;" + Chr(13) + Chr(10)
		S = S + "gl_FragColor = v_0;" + Chr(13) + Chr(10)
		S = S + "}" + Chr(13) + Chr(10)
		S = S + "}" + Chr(13) + Chr(10)
		S = S + "}" + Chr(13) + Chr(10)
		S = S + "}" + Chr(13) + Chr(10)
		S = S + "}" + Chr(13) + Chr(10)
		i = OpenToWrite(TextPixelShader)
		WriteString(i, S)
		CloseFile(i)
	EndIf
EndFunction

+ Code Snippet


// Project: Gui Bug 
// Created: 2024-08-18

// show all errors

#renderer "Basic"
SetRawWritePath(GetReadPath())
SetErrorMode(2)
#option_explicit


// set window properties
SetWindowTitle( "Gui Bug" )
SetWindowSize( 1080, 1920, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1080, 1920 ) // 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 ViewType
	Left			As Float
	Top				As Float
	Width			As Float
	Height			As Float
	Right			As Float
	Bottom			As Float
EndType

Type GuiControlType
	Area			As ViewType
	Sprite			As Integer[128]
	Text			As Integer[128]
	Colors			As Integer[128]
	SpriteShader	As Integer
	ParentX			As Float
	ParentY			As Float
EndType

Global GuiControl As GuiControlType[128]
Global TotalControls As Integer

Global BaseWindow As Integer, ChildWindow As Integer, Label0 As Integer, Label1 As Integer, Button0 As Integer, Button1 As Integer


Global BaseImage As Integer
Global BaseSize As Float


#Constant SpriteVertexShader "sprite_window.vs"
#Constant SpritePixelShader "sprite_window.ps"
#Constant TextVertexShader "text_window.vs"
#Constant TextPixelShader "text_window.ps"
#Constant SpriteShaderWindowName "window"
#Constant TextShaderWindowName "window"
#Constant TextShaderColorName "ocolor"



Setup()
ShowGuiControl(BaseWindow)
ShowGuiControl(ChildWindow)
do
    Print( ScreenFPS() )
    If GetPointerState()
		PositionBasWindow(GetPointerX(), GetPointerY())
	EndIf
    Sync()
loop



Function ShowGuiControl(C As Integer)
	Local i As Integer, j As Float
	For i = 0 To 127
		j = GuiControl[C].Sprite[i]
		If GetSpriteExists(j) = 0 Then Exit
		SetSpriteVisible(j, 1)
	Next
EndFunction




Function PositionBasWindow(X As Float, Y As Float)
	
	PositionControl(BaseWindow, X, Y)
	PositionControl(ChildWindow, GuiControl[ChildWindow].ParentX + X, GuiControl[ChildWindow].ParentY + Y)
	
EndFunction


Function PositionControl(C As Integer, X As Float, Y As Float)
	Local Bx As Float, By As Float
	Local Dx As Float, Dy As Float
	Local i As Integer, j As Float
	Dx = X - GuiControl[C].Area.Left
	Dy = Y - GuiControl[C].Area.Top
	
	GuiControl[C].Area.Left = X
	GuiControl[C].Area.Top = Y
	GuiControl[C].Area.Right = X + GuiControl[C].Area.Width
	GuiControl[C].Area.Bottom = Y + GuiControl[C].Area.Width
	Bx = GuiControl[C].ParentX
	By = GuiControl[C].ParentY
	SetShaderConstantByName(GuiControl[C].SpriteShader, SpriteShaderWindowName, GuiControl[C].Area.Left - Bx, GuiControl[C].Area.Top - By, GuiControl[C].Area.Right - Bx, GuiControl[C].Area.Bottom - By)
	
	
	
	For i = 0 To 127
		j = GuiControl[C].Sprite[i]
		If GetSpriteExists(j) = 0 Then Exit
		SetSpritePosition(j, GetSpriteX(j) + Dx, GetSpriteY(j) + Dy)
	Next
EndFunction

Function Setup()
	Local i As Integer, j As Integer, p As Integer, q As Integer, r As Integer, k As Integer, l As Integer, m As Integer, X As Integer, Y As Integer
	Local Ax As Float, Bx As Float, Cx As Float, Dx As Float, Ex As Float, Fx As Float, Gx As Float, Hx As Float
	Local Ay As Float, By As Float, Cy As Float, Dy As Float, Ey As Float, Fy As Float, Gy As Float, Hy As Float
	Local S As String, E As String, N As String
	
	BaseSize = 32
	Drawbox(0, 0, BaseSize - 1, BaseSize - 1, -1, -1, -1, -1, 1)
	Render()
	BaseImage = GetImage(0, 0, BaseSize - 1, BaseSize - 1)
	
	
	CreateShaders()

	
	
	
	TotalControls = 0
	
	Ax = 600
	Ay = 900
	Bx = 100
	By = 100
	Ex = 128
	Ey = 128
	GuiControl[TotalControls].ParentX = 0
	GuiControl[TotalControls].ParentY = 0
	GuiControl[TotalControls].Colors[0] = 0xFEFF0000
	GuiControl[TotalControls].Area.Width = Ax
	GuiControl[TotalControls].Area.Height = Ay
	GuiControl[TotalControls].Area.Left = Bx
	GuiControl[TotalControls].Area.Top = By
	GuiControl[TotalControls].Area.Right = GuiControl[TotalControls].Area.Left + GuiControl[TotalControls].Area.Width
	GuiControl[TotalControls].Area.Bottom = GuiControl[TotalControls].Area.Top + GuiControl[TotalControls].Area.Height
	GuiControl[TotalControls].Area.Bottom = GuiControl[TotalControls].Area.Top + GuiControl[TotalControls].Area.Height
	GuiControl[TotalControls].SpriteShader = LoadShader(SpriteVertexShader, SpritePixelShader)
	SetShaderConstantByName(GuiControl[TotalControls].SpriteShader, SpriteShaderWindowName, GuiControl[TotalControls].Area.Left - Bx, GuiControl[TotalControls].Area.Top - By, GuiControl[TotalControls].Area.Right - Bx, GuiControl[TotalControls].Area.Bottom - By)
	
	
	
	Cx = Floor(Ax/Ex) + 1
	Cy = Floor(Ay/Ey) + 1
	
	x = Cx
	y = Cy
	
	Cx = -((Cx * Ex) - Ax)/2
	Cy = -((Cy * Ey) - Ay)/2
	
	p = 0
	Dy = Cy
	For i = 0 To y - 1
		Dx = Cx
		For j = 0 To x - 1
			GuiControl[TotalControls].Sprite[p] = CreateSprite(BaseImage)
			SetSpriteSize(GuiControl[TotalControls].Sprite[p], Ex, Ey)
			SetSpritePosition(GuiControl[TotalControls].Sprite[p], Dx, Dy)
			SetSpriteShader(GuiControl[TotalControls].Sprite[p], GuiControl[TotalControls].SpriteShader)
			SetSpriteColor(GuiControl[TotalControls].Sprite[p], ((GuiControl[TotalControls].Colors[0] >> 16) && 255), ((GuiControl[TotalControls].Colors[0] >> 8) && 255), ((GuiControl[TotalControls].Colors[0]) && 255), ((GuiControl[TotalControls].Colors[0] >> 24) && 255))
			SetSpriteVisible(GuiControl[TotalControls].Sprite[p], 0)
			Dx = Dx + Ex
			p = P + 1
		Next
		Dy = Dy + Ey
	Next
	
	BaseWindow = TotalControls
	TotalControls = TotalControls + 1
	
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////



	





	Ax = 400
	Ay = 400
	Bx = -100
	By = -100
	Ex = 128
	Ey = 128
	GuiControl[TotalControls].ParentX = Bx
	GuiControl[TotalControls].ParentY = By
	GuiControl[TotalControls].Colors[0] = 0xFE00FF00
	GuiControl[TotalControls].Area.Width = Ax
	GuiControl[TotalControls].Area.Height = Ay
	GuiControl[TotalControls].Area.Left = Bx
	GuiControl[TotalControls].Area.Top = By
	GuiControl[TotalControls].Area.Right = GuiControl[TotalControls].Area.Left + GuiControl[TotalControls].Area.Width
	GuiControl[TotalControls].Area.Bottom = GuiControl[TotalControls].Area.Top + GuiControl[TotalControls].Area.Height
	GuiControl[TotalControls].Area.Bottom = GuiControl[TotalControls].Area.Top + GuiControl[TotalControls].Area.Height
	GuiControl[TotalControls].SpriteShader = LoadShader(SpriteVertexShader, SpritePixelShader)
	SetShaderConstantByName(GuiControl[TotalControls].SpriteShader, SpriteShaderWindowName, GuiControl[TotalControls].Area.Left - Bx, GuiControl[TotalControls].Area.Top - By, GuiControl[TotalControls].Area.Right - Bx, GuiControl[TotalControls].Area.Bottom - By)
	
	
	
	Cx = Floor(Ax/Ex) + 1
	Cy = Floor(Ay/Ey) + 1
	
	x = Cx
	y = Cy
	
	Cx = -((Cx * Ex) - Ax)/2
	Cy = -((Cy * Ey) - Ay)/2
	
	p = 0
	Dy = Cy
	For i = 0 To y - 1
		Dx = Cx
		For j = 0 To x - 1
			GuiControl[TotalControls].Sprite[p] = CreateSprite(BaseImage)
			SetSpriteSize(GuiControl[TotalControls].Sprite[p], Ex, Ey)
			SetSpritePosition(GuiControl[TotalControls].Sprite[p], Dx, Dy)
			SetSpriteShader(GuiControl[TotalControls].Sprite[p], GuiControl[TotalControls].SpriteShader)
			SetSpriteColor(GuiControl[TotalControls].Sprite[p], ((GuiControl[TotalControls].Colors[0] >> 16) && 255), ((GuiControl[TotalControls].Colors[0] >> 8) && 255), ((GuiControl[TotalControls].Colors[0]) && 255), ((GuiControl[TotalControls].Colors[0] >> 24) && 255))
			SetSpriteVisible(GuiControl[TotalControls].Sprite[p], 0)
			Dx = Dx + Ex
			p = P + 1
		Next
		Dy = Dy + Ey
	Next
	
	ChildWindow = TotalControls
	TotalControls = TotalControls + 1



	
	
	
EndFunction



Function CreateShaders()
	Local i As Integer, j As Integer, p As Integer, q As Integer, r As Integer, k As Integer, l As Integer, m As Integer
	Local Ax As Float, Bx As Float, Cx As Float, Dx As Float, Ex As Float, Fx As Float, Gx As Float, Hx As Float
	Local Ay As Float, By As Float, Cy As Float, Dy As Float, Ey As Float, Fy As Float, Gy As Float, Hy As Float
	Local S As String, E As String, N As String
	If GetFileExists(SpriteVertexShader) = 0
		S = "attribute vec4 position;" + Chr(13) + Chr(10)
		S = S + "attribute vec4 color;" + Chr(13) + Chr(10)
		S = S + "attribute vec2 uv;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec2 uvVarying;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec2 posVarying;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec4 colorVarying;" + Chr(13) + Chr(10)
		S = S + "uniform mat4 agk_Ortho;" + Chr(13) + Chr(10)
		S = S + Chr(13) + Chr(10)
		S = S + "void main()" + Chr(13) + Chr(10)
		S = S + "{ " + Chr(13) + Chr(10)
		S = S + "gl_Position = agk_Ortho * position;" + Chr(13) + Chr(10)
		S = S + "posVarying = position.xy;" + Chr(13) + Chr(10)
		S = S + "uvVarying = uv;" + Chr(13) + Chr(10)
		S = S + "colorVarying = color;" + Chr(13) + Chr(10)
		S = S + "}	" + Chr(13) + Chr(10)
		i = OpenToWrite(SpriteVertexShader)
		WriteString(i, S)
		CloseFile(i)
	EndIf
	
	If GetFileExists(SpritePixelShader) = 0
		S = "uniform sampler2D texture0;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec2 uvVarying;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec2 posVarying;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec4 colorVarying;" + Chr(13) + Chr(10)
		S = S + "uniform mediump vec4 " + SpriteShaderWindowName + ";" + Chr(13) + Chr(10)
		S = S + "void main()" + Chr(13) + Chr(10)
		S = S + "{" + Chr(13) + Chr(10)
		S = S + "float x, y;" + Chr(13) + Chr(10)
		S = S + "x = posVarying.x;" + Chr(13) + Chr(10)
		S = S + "y = posVarying.y;" + Chr(13) + Chr(10)
		S = S + "gl_FragColor = vec4(0.0, 0.0, 0.0, 0.0);" + Chr(13) + Chr(10)
		S = S + "if(x >= " + SpriteShaderWindowName + ".x)" + Chr(13) + Chr(10)
		S = S + "{" + Chr(13) + Chr(10)
		S = S + "if(x <= " + SpriteShaderWindowName + ".z){if(y >= " + SpriteShaderWindowName +".y){if(y <= " + SpriteShaderWindowName + ".w)" + Chr(13) + Chr(10)
		S = S + "{gl_FragColor = texture2D(texture0, uvVarying) * colorVarying ;}}}" + Chr(13) + Chr(10)
		S = S + "}" + Chr(13) + Chr(10)
		S = S + "}	" + Chr(13) + Chr(10)
		i = OpenToWrite(SpritePixelShader)
		WriteString(i, S)
		CloseFile(i)
	EndIf
	
	If GetFileExists(TextVertexShader) = 0
		S = "attribute vec4 position;" + Chr(13) + Chr(10)
		S = S + "attribute vec4 color;" + Chr(13) + Chr(10)
		S = S + "attribute vec2 uv;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec2 uvVarying;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec2 posVarying;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec4 colorVarying;" + Chr(13) + Chr(10)
		S = S + "uniform mat4 agk_Ortho;" + Chr(13) + Chr(10)
		S = S + "void main()" + Chr(13) + Chr(10)
		S = S + "{ " + Chr(13) + Chr(10)
		S = S + "gl_Position = agk_Ortho * position;" + Chr(13) + Chr(10)
		S = S + "posVarying = position.xy;" + Chr(13) + Chr(10)
		S = S + "uvVarying = uv;" + Chr(13) + Chr(10)
		S = S + "colorVarying = color;" + Chr(13) + Chr(10)
		S = S + "}" + Chr(13) + Chr(10)
		i = OpenToWrite(TextVertexShader)
		WriteString(i, S)
		CloseFile(i)
	EndIf
	
	

	If GetFileExists(TextPixelShader) = 0
		S = "uniform sampler2D texture0;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec2 uvVarying;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec2 posVarying;" + Chr(13) + Chr(10)
		S = S + "varying mediump vec4 colorVarying;" + Chr(13) + Chr(10)
		S = S + "uniform mediump vec4 " + TextShaderWindowName + ";" + Chr(13) + Chr(10)
		S = S + "uniform mediump vec4 " + TextShaderColorName + ";" + Chr(13) + Chr(10)
		S = S + "void main()" + Chr(13) + Chr(10)
		S = S + "{" + Chr(13) + Chr(10)
		S = S + "float x, y;" + Chr(13) + Chr(10)
		S = S + "vec4 v_0;" + Chr(13) + Chr(10)
		S = S + "x = posVarying.x;" + Chr(13) + Chr(10)
		S = S + "y = posVarying.y;" + Chr(13) + Chr(10)
		S = S + "gl_FragColor = vec4(0, 0, 0, 0);" + Chr(13) + Chr(10)
		S = S + "if(x >= " + TextShaderWindowName + ".x){" + Chr(13) + Chr(10)
		S = S + "if(x <= " + TextShaderWindowName + ".z){" + Chr(13) + Chr(10)
		S = S + "if(y >= " + TextShaderWindowName + ".y){" + Chr(13) + Chr(10)
		S = S + "if(y <= " + TextShaderWindowName + ".w){" + Chr(13) + Chr(10)
		S = S + "v_0 = texture2D(texture0, uvVarying) * colorVarying;" + Chr(13) + Chr(10)
		S = S + "v_0.x = " + TextShaderColorName + ".x;" + Chr(13) + Chr(10)
		S = S + "v_0.y = " + TextShaderColorName + ".y;" + Chr(13) + Chr(10)
		S = S + "v_0.z = " + TextShaderColorName + ".z;" + Chr(13) + Chr(10)
		S = S + "gl_FragColor = v_0;" + Chr(13) + Chr(10)
		S = S + "}" + Chr(13) + Chr(10)
		S = S + "}" + Chr(13) + Chr(10)
		S = S + "}" + Chr(13) + Chr(10)
		S = S + "}" + Chr(13) + Chr(10)
		S = S + "}" + Chr(13) + Chr(10)
		i = OpenToWrite(TextPixelShader)
		WriteString(i, S)
		CloseFile(i)
	EndIf
EndFunction

Please be informed that my library is way more complex and has tons of attributes and abilities but this testing just matches positioning ability and even at this point, Studio fails. (Thank god for early fail)

Setting object depths and setting their shader constants are buggy. Bonus, opentoread & write is also buggy, it corrupts string space eventually, you may test it if you know what I mean. There are more bugs, to find way arounds but I stopped informing them years ago cuz nobody seems to check them.

Thanks for trying mates, I do appreciate very much...

Edit: Tested on Windows 11

Back to top

Profile PM

agkcoder

19

Years of Service

User Offline

Joined: 12th Dec 2004

Location: AGK Forums

Posted: 19th Aug 2024 00:34 Edited at: 19th Aug 2024 08:16

Link

...processing...

Back to top

Profile PM

smerf

19

Years of Service

User Offline

Joined: 24th Feb 2005

Location: nm usa

Posted: 20th Aug 2024 05:03

Link

I took a look at your project and I'm not really sure what you want it to do. I'm guessing make a little green square on a Redbox? there may be a few issues with it. I overrode the color and saw that is is clipping then i realized your attempting bit shifting with operators that don't work in agk >> && don't function. .Left and .right are also reserved keywords. Might start with combing through your code. the shaders look fine and passing vars seems correct

Back to top

Profile PM Email

Arch-Ok

AGK Developer

5

Years of Service

User Offline

Joined: 11th Jul 2019

Location: Bursa/TÜRKIYE

Posted: 20th Aug 2024 05:57

Link

Thanks for trying.

Back to top

Profile PM

Arch-Ok

AGK Developer

5

Years of Service

User Offline

Joined: 11th Jul 2019

Location: Bursa/TÜRKIYE

Posted: 21st Aug 2024 18:25 Edited at: 21st Aug 2024 18:26

Link

Reported this as an issu at git hub. Hope this time they find a solution.

Oh and the link;
https://github.com/TheGameCreators/AGK-Studio/issues/1129

Back to top

Profile PM

Arch-Ok

AGK Developer

5

Years of Service

User Offline

Joined: 11th Jul 2019

Location: Bursa/TÜRKIYE

Posted: 30th Aug 2024 12:51 Edited at: 30th Aug 2024 12:53

Link

even this does not work in Studio. it affects just nothing.
any ideas?

+ Code Snippet

uniform sampler2D texture0;
uniform mediump vec4 window;
varying mediump vec2 uvVarying;
varying mediump vec2 posVarying;
varying mediump vec4 colorVarying;

void main()
{
gl_FragColor = vec4(0.0, 0.0, 1.0, 0.5);
}

edit: ofcourse it works as expected in Classic.

Back to top

Profile PM

Arch-Ok

AGK Developer

5

Years of Service

User Offline

Joined: 11th Jul 2019

Location: Bursa/TÜRKIYE

Posted: 30th Aug 2024 21:08

Link

Since I'm making mobile apps I don't need Vulkan so I updated shader codes to this and set renderer to "Basic";

vertex shader;

+ Code Snippet

#version 420
in highp vec4 position;
in highp vec4 color;
in highp vec2 uv;
out highp vec2 uvVarying;
out highp vec2 posVarying;
out highp vec4 colorVarying;
uniform mat4 agk_Ortho;
void main()
{ 
	gl_Position = agk_Ortho * position;
	posVarying = position.xy;
	uvVarying = uv;
	colorVarying = color;
}

pixel shader;

+ Code Snippet

#version 420
in highp vec2 uvVarying;
in highp vec2 posVarying;
in highp vec4 colorVarying;
out highp vec4 myOutputColor;
uniform sampler2D texture0;
uniform highp vec4 window;
void main()
{
	myOutputColor = texture2D(texture0, uvVarying) * colorVarying;
	if(posVarying.x < window.x){myOutputColor = vec4(0.0, 0.0, 0.0, 0.0);}
	if(posVarying.x > window.z){myOutputColor = vec4(0.0, 0.0, 0.0, 0.0);}
	if(posVarying.y < window.y){myOutputColor = vec4(0.0, 0.0, 0.0, 0.0);}
	if(posVarying.y > window.w){myOutputColor = vec4(0.0, 0.0, 0.0, 0.0);}
}

the interesting part starts here, when you change the pixel shader code to this;

+ Code Snippet

#version 420
in highp vec2 uvVarying;
in highp vec2 posVarying;
in highp vec4 colorVarying;
out highp vec4 myOutputColor;
uniform sampler2D texture0;
uniform highp vec4 window;
void main()
{
	myOutputColor = texture2D(texture0, uvVarying) * colorVarying;
}

still the green sprites are gone. That is a bug.

Even;
myOutputColor = vec4(0.0, 0.0, 1.0, 0.1);
shows only the red sprites but in Classic the alpha blending shows all.

Back to top

Profile PM

Arch-Ok

AGK Developer

5

Years of Service

User Offline

Joined: 11th Jul 2019

Location: Bursa/TÜRKIYE

Posted: 30th Aug 2024 23:04 Edited at: 14th Sep 2024 08:07

Link

It's definetely a bug to be fixed.

Back to top

Profile PM

Arch-Ok

AGK Developer

5

Years of Service

User Offline

Joined: 11th Jul 2019

Location: Bursa/TÜRKIYE

Posted: 31st Aug 2024 15:06 Edited at: 14th Sep 2024 08:09

Link

It seems like Studio sends wrong datas for color and/or position attributes.

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Studio Chat / Need help with 2D Shaders

Attachments