new version. you can now set uniform and dynamic variables in glsl programs from within blitz at runtime.
Type ShaderControl
Method New()
pObj = glCreateProgramObjectArb()
If Not pObj Throw "Unable to find asscoitable gl context for shader instance"
End Method
Function Load(VertFile:String,PixFile:String )
' Local out:shaderCotrol = New ShaderControl
' out.loadFile
End Function
Method loadFile(vertFile:String,pixFile:String)
If vertFile<>""
Vert = VertexShader.Create()
Vert.LoadFile( vertFile )
EndIf
If pixFile<>""
Frag = PixelShader.Create()
Frag.LoadFile( pixFile )
EndIf
End Method
Method Register( VertShader:Shader,PixShader:Shader )
Vert=VertShader
Frag=PixShader
Self.Compile()
End Method
'Function Create:ShaderControl(VertShader:Shader,PixShader:Shader)
' Local out:ShaderControl = New shadercontrol
' out.vert = vertShader
' out.frag = pixShader
' Return out
'End Function
Method Compile()
If vert<>Null vert.compile()
If frag<>Null frag.compile()
isAttached = False
attachShaders()
glLinkProgramArb(pobj)
End Method
Method bind()
If Not isAttached
self.attachShaders()
EndIf
If frag<>Null
glEnable(GL_FRAGMENT_PROGRAM_ARB)
EndIf
If vert<>Null
glenable(GL_VERTEX_PROGRAM_ARB)
EndIf
glUseProgramObjectArb(pobj)
End Method
Method unbind()
glUseProgramObjectArb(0)
If frag<>Null gldisable(GL_FRAGMENT_PROGRAM_ARB)
If vert<>Null gldisable(GL_VERTEX_PROGRAM_ARB)
End Method
Method detachShaders()
If vert<>Null
gldetachobjectarb( pObj,vert.objId )
EndIf
If frag<>Null
gldetachobjectarb( pobj,frag.objId )
EndIf
End Method
Method attachShaders()
If vert<>Null
glAttachObjectArb( pObj,vert.objid )
EndIf
If frag<>Null
glattachobjectArb( pobj,frag.objId)
End If
isAttached = True
End Method
Method reload()
If vert<>Null vert.reload()
If frag<>Null frag.reload()
isAttached=False
End Method
Method GetStaticFloat:shaderVar(name:String,size:Int=1)
Local out:ShaderVar = New shaderFloatStatic
out.setup( pObj,name )
Return out
End Method
Method GetDynamicFloat:ShaderVar(name:String,size:Int=1)
Local out:ShaderVar = New shaderFloatDynamic
out.setup( pObj,name )
Return out
End Method
Field Vert:Shader,Frag:Shader
Field pObj
Field isAttached:Byte
End Type
Type ShaderVar
Method Set( Val:Float ) Abstract
Method Setup( programObject,VariableName:String ) Abstract
Field vId
End Type
Type ShaderFloatStatic Extends ShaderVar
Method Set( Val:Float)
glUniform1farb(vid,val)
End Method
Method Setup( programObject,VariableName:String )
vid = glGetUniformlocationArb( programObject,variableName )
End Method
End Type
Type ShaderFloatDynamic Extends ShaderVar
Method Set( Val:Float)
glVertexAttrib1fARB(vid,val)
End Method
Method Setup( programObject,VariableName:String )
vid = glGetAttribLocationARB( programObject,variableName )
End Method
End Method
Type Shader
'Function create:shader() Abstract
Method Delete()
glDeleteObjectArb( objId )
End Method
Method LoadFile( File:String,andCompile = True)
Local fileIn=ReadFile( file )
If Not fileIn Throw "Shader "+File+" Not found"
Local siz=FileSize( file )
source = New Byte[siz+1]
lastFile = fileIn
Local j
While Not Eof( fileIn )
source[j] = ReadByte( fileIn )
j:+1
If j>siz j=siz
Wend
CloseFile fileIn
source[j]=0
Local shaderPtr:Byte Ptr[1]
shaderPtr[0] = Varptr(source[0])
glShaderSourceArb( objId,1,shaderPtr,Null)
isCompiled=False
If andCompile self.compile()
End Method
Method Compile()
' If Not isCompiled
glCompileShaderArb(objId)
isCompiled=True
' EndIf
End Method
Method Reload()
loadFile( lastFile )
If isCompiled
isCompiled=False
compile()
End If
End Method
Field lastFile:String
Field objID,isCompiled:Byte
Field source:Byte[]
End Type
Type PixelShader Extends Shader
Method New()
objId = glCreateShaderObjectArb( GL_FRAGMENT_SHADER )
End Method
Function create:Shader()
Return New PixelShader
End Function
End Type
Type VertexShader Extends Shader
Method New()
objid = glCreateShaderObjectARB( GL_VERTEX_SHADER )
End Method
Function create:Shader()
Return New vertexshader
End Function
End Type
Local VS:Shader = New vertexShader
Local PS:Shader = New pixelshader
vs.loadfile("shader\lightvert.glsl")
ps.LoadFile("shader\lightfrag.glsl")
Global SC:ShaderControl = New ShaderControl
Sc.Register( vs,Ps )
Sc.Bind()
Global Scale:ShaderVar = Sc.GetStaticFloat( "Scale" )
Scale.Set( 5 )
| 
