OpenGL .NET Examples: Shader_Texture3D_Painters(id) - File Exchange

Code covered by the BSD License

Highlights from
OpenGL .NET Examples

OpenGL_Matlab_Figure(varargin) OPENGL_MATLAB_FIGURE M-file for OpenGL_Matlab_Figure.fig
dotnet_control_example(vararg... DOTNET_CONTROL_EXAMPLE M-file for dotnet_control_example.fig
CamLight_Cube_Painters(id) Function is written by D.Kroon University of Twente (April 2009)
I=texture2matlab(TextureID,Wi... This function texture2matlab reads a RGBA UINT8 texture in the OpenGL video memory
LoadTaoOpenGl.m Add OpenGL TAO Assemblies
OpenGL_Window(action,hObject,... OpenGL_Window, this function creates a window for rendering
Painters(id) Function is written by D.Kroon University of Twente (April 2009)
Painters(id) Allow to use GL functions without prefixing with Tao.Opengl.
Polygon_Mesh_Painters(id) Function is written by D.Kroon University of Twente (April 2009)
Shader_Code_Painters(id) Function is written by D.Kroon University of Twente (April 2009)
Shader_Texture3D_Painters(id) Function is written by D.Kroon University of Twente (April 2009)
Simple_Cube_Painters(id) Function is written by D.Kroon University of Twente (April 2009)
TextureID=loadOpenGLTexture(I... Load Matlab Image data 2D or 3D into a texture
[TextureID, FrameBufferID]=ma... makeRender2Texture, this function generates an extern framebuffer which
dotnet_control(HandlePanel,up... DOTNET_CONTROL, This function starts a .NET Form, which will float
program_id=loadOpenGLShader(f... loadOpenGLShader will load a vertex and fragment shader in to a GLSL
example_CamLight_Cube.m
example_DotNet_Control.m
example_Matlab_Figure.m
example_Polygon_Mesh.m
example_Shader_Code.m
example_Shader_Texture3D.m
example_Simple_Cube.m
example_Textured_Cube.m
View all files

from OpenGL .NET Examples by Dirk-Jan Kroon
Matlab OpenGL .NET code and examples for R2009a and above

Shader_Texture3D_Painters(id)

function Shader_Texture3D_Painters(id)
% Function is written by D.Kroon University of Twente (April 2009)

% From id get the render data
StoreName=['OpenGL' num2str(id)];
data=getappdata(0,[StoreName '_data']);

% Allow to use GL functions without prefixing with Tao.Opengl.
import Tao.OpenGl.*

if(data.FirstRender)
   % Load the Vessel Volume data
   load('ExampleData/Vessel_Scan.mat');
   % Scale data to fit 0...1
   %[x,y,z]=ndgrid(-31:32,-31:32,-31:32);
   %V=sqrt(x.^2+y.^2+z.^2); V=max(V(:))-V;
   %V=V.*single(V>25);
   V=single(V); V=V./max(V(:));
   V=uint8(V*255);
   
   % Load texture
   data.TextureID=loadOpenGLTexture(V,Gl.GL_ALPHA,Gl.GL_ALPHA8,'linear');
   % Load shaders
   %'vertex_multi.glsl';
   data.program_mip_id=loadOpenGLShader('fragment_mip_render.glsl',[]);
   data.program_depth_id=loadOpenGLShader('fragment_depth_texture.glsl',[]);
   setappdata(0,[StoreName '_data'],data);
end
% Matlab crashes if not pause the first time for a few seconds, probably to
% load the shadercode and textures.
if(data.FirstRender), pause(3), end

% Set depth testing enabled
Gl.glEnable(Gl.GL_DEPTH_TEST)  

data=makeDepthTexture(data);

% Set background clear color to black
Gl.glClearColor(0.0, 0.0, 0.0, 0.0);  

% Clear the color and depth buffer
Gl.glClear(int32(bitor(uint32(Gl.GL_COLOR_BUFFER_BIT),uint32(Gl.GL_DEPTH_BUFFER_BIT)))); 


% Sent variables to shader, in this case Window size
uniform_WindowSize = Gl.glGetUniformLocation(data.program_mip_id,char2string('WindowSize'));

% Enable shader program
Gl.glUseProgramObjectARB(data.program_mip_id);

% Set window size
Gl.glUniform2f(uniform_WindowSize, data.RenderWidth, data.RenderHeight);

% Enable culling
Gl.glEnable(Gl.GL_CULL_FACE);
Gl.glCullFace(Gl.GL_FRONT);

% Select an texture unit
Gl.glActiveTexture(Gl.GL_TEXTURE0);
Gl.glBindTexture(Gl.GL_TEXTURE_3D, data.TextureID);
texture_3d= Gl.glGetUniformLocationARB(data.program_mip_id, 'texture_3d');
Gl.glUniform1iARB( texture_3d,0);

% Select an texture unit
Gl.glActiveTexture(Gl.GL_TEXTURE1);
Gl.glBindTexture(Gl.GL_TEXTURE_2D, data.FrameBufferTextureID);
texture_depth = Gl.glGetUniformLocationARB(data.program_mip_id, 'texture_depth');
Gl.glUniform1iARB(texture_depth,1);

DrawCube();

Gl.glDisable(Gl.GL_CULL_FACE);

% Flush the pipeline, update the graphics buffer
Gl.glFlush();

% Disable shaderprogram
Gl.glUseProgram(0);

% Store the render data
setappdata(0,[StoreName '_data'],data);
if(data.FirstRender), pause(3), end

function data=makeDepthTexture(data)
% Allow to use GL functions without prefixing with Tao.Opengl.
import Tao.OpenGl.*

% Make a new external framebuffer every call, because windows size can
% change
if(isfield(data,'FrameBufferTextureID'))
    % Delete the framebuffer texture
    Gl.glDeleteTextures(1, data.FrameBufferTextureID);
    % Delete the external framebuffer
    Gl.glDeleteFramebuffersEXT(1, data.FrameBufferID);
end

[data.FrameBufferTextureID, data.FrameBufferID]=makeRender2Texture(data.RenderWidth ,data.RenderHeight);


% Bind frame buffer id to extern
Gl.glBindFramebufferEXT(Gl.GL_FRAMEBUFFER_EXT, data.FrameBufferID);

% Enable shader program
Gl.glUseProgram(data.program_depth_id);

% Enable culling
Gl.glEnable(Gl.GL_CULL_FACE);
Gl.glCullFace(Gl.GL_BACK);

% Set background clear color to black
Gl.glClearColor(1.0, 0.0, 0.0, 0.0);  

% Clear the color and depth buffer
Gl.glClear(int32(bitor(uint32(Gl.GL_COLOR_BUFFER_BIT),uint32(Gl.GL_DEPTH_BUFFER_BIT)))); 

% Enable texture rendering
Gl.glEnable(Gl.GL_TEXTURE_2D);

% Also bind texture of frame buffer
Gl.glBindTexture(Gl.GL_TEXTURE_2D, data.FrameBufferTextureID);

DrawCube();

% Flush the pipeline, update the graphics buffer
Gl.glFlush();
    
% Disable texture rendering
Gl.glDisable(Gl.GL_TEXTURE_2D);

% Unbind the FBO for now
Gl.glBindFramebufferEXT(Gl.GL_FRAMEBUFFER_EXT, 0); 

% Disable shaderprogram
Gl.glUseProgram(0);


% I=texture2matlab(data.FrameBufferTextureID,data.RenderWidth,data.RenderHeight);
% I=im2uint8(I);
% V(:,:,:,1)=I;
% V(:,:,:,2)=I;
% 
% % Load texture
% i
% data.FrameBufferTextureID2=loadOpenGLTexture(V,Gl.GL_RGB,Gl.GL_RGB8,'linear');

function DrawCube()
% Allow to use GL functions without prefixing with Tao.Opengl.
import Tao.OpenGl.*

cornersx=[-1  1 -1  1 -1  1 -1  1];
cornersy=[-1 -1  1  1 -1 -1  1  1];
cornersz=[-1 -1  -1 -1  1  1  1  1];

cornersxt=[0 1 0 1 0 1 0 1];
cornersyt=[0 0 1 1 0 0 1 1];
cornerszt=[0 0 0 0 1 1 1 1];

Gl.glBegin(Gl.GL_QUADS);
    % 1e Face
    Gl.glTexCoord3f(cornersxt(1), cornersyt(1), cornerszt(1));
    Gl.glVertex3f(cornersx(1), cornersy(1), cornersz(1));
    Gl.glTexCoord3f(cornersxt(2), cornersyt(2), cornerszt(2));
    Gl.glVertex3f(cornersx(2), cornersy(2), cornersz(2));				
    Gl.glTexCoord3f(cornersxt(4), cornersyt(4), cornerszt(4));
    Gl.glVertex3f(cornersx(4), cornersy(4), cornersz(4));				
    Gl.glTexCoord3f(cornersxt(3), cornersyt(3), cornerszt(3));
    Gl.glVertex3f(cornersx(3), cornersy(3), cornersz(3));		
    % 2e Face
    Gl.glTexCoord3f(cornersxt(7), cornersyt(7), cornerszt(7));
    Gl.glVertex3f(cornersx(7), cornersy(7), cornersz(7));				
    Gl.glTexCoord3f(cornersxt(8), cornersyt(8), cornerszt(8));
    Gl.glVertex3f(cornersx(8), cornersy(8), cornersz(8));				
    Gl.glTexCoord3f(cornersxt(6), cornersyt(6), cornerszt(6));
    Gl.glVertex3f(cornersx(6), cornersy(6), cornersz(6));				
    Gl.glTexCoord3f(cornersxt(5), cornersyt(5), cornerszt(5));
    Gl.glVertex3f(cornersx(5), cornersy(5), cornersz(5));
    % 3e Face
    Gl.glTexCoord3f(cornersxt(1), cornersyt(1), cornerszt(1));
    Gl.glVertex3f(cornersx(1), cornersy(1), cornersz(1));				
    Gl.glTexCoord3f(cornersxt(5), cornersyt(5), cornerszt(5));
    Gl.glVertex3f(cornersx(5), cornersy(5), cornersz(5));				
    Gl.glTexCoord3f(cornersxt(6), cornersyt(6), cornerszt(6));
    Gl.glVertex3f(cornersx(6), cornersy(6), cornersz(6));				
    Gl.glTexCoord3f(cornersxt(2), cornersyt(2), cornerszt(2));
    Gl.glVertex3f(cornersx(2), cornersy(2), cornersz(2));
    % 4e Face
    Gl.glTexCoord3f(cornersxt(3), cornersyt(3), cornerszt(3));
    Gl.glVertex3f(cornersx(3), cornersy(3), cornersz(3));				
    Gl.glTexCoord3f(cornersxt(4), cornersyt(4), cornerszt(4));
    Gl.glVertex3f(cornersx(4), cornersy(4), cornersz(4));				
    Gl.glTexCoord3f(cornersxt(8), cornersyt(8), cornerszt(8));
    Gl.glVertex3f(cornersx(8), cornersy(8), cornersz(8));				
    Gl.glTexCoord3f(cornersxt(7), cornersyt(7), cornerszt(7));
    Gl.glVertex3f(cornersx(7), cornersy(7), cornersz(7));
    % 5e Face
    Gl.glTexCoord3f(cornersxt(4), cornersyt(4), cornerszt(4));
    Gl.glVertex3f(cornersx(4), cornersy(4), cornersz(4));				
    Gl.glTexCoord3f(cornersxt(2), cornersyt(2), cornerszt(2));
    Gl.glVertex3f(cornersx(2), cornersy(2), cornersz(2));				
    Gl.glTexCoord3f(cornersxt(6), cornersyt(6), cornerszt(6));
    Gl.glVertex3f(cornersx(6), cornersy(6), cornersz(6));				
    Gl.glTexCoord3f(cornersxt(8), cornersyt(8), cornerszt(8));
    Gl.glVertex3f(cornersx(8), cornersy(8), cornersz(8));
    % 6e Face
    Gl.glTexCoord3f(cornersxt(7), cornersyt(7), cornerszt(7));
    Gl.glVertex3f(cornersx(7), cornersy(7), cornersz(7));
    Gl.glTexCoord3f(cornersxt(5), cornersyt(5), cornerszt(5));
    Gl.glVertex3f(cornersx(5), cornersy(5), cornersz(5));				
    Gl.glTexCoord3f(cornersxt(1), cornersyt(1), cornerszt(1));
    Gl.glVertex3f(cornersx(1), cornersy(1), cornersz(1));				
    Gl.glTexCoord3f(cornersxt(3), cornersyt(3), cornerszt(3));
    Gl.glVertex3f(cornersx(3), cornersy(3), cornersz(3));				
Gl.glEnd(); 

function str=char2string(tline)
str = NET.createArray('System.String',1); 
str.Set(0,tline); 
str=str.Get(0);

Highlights from OpenGL .NET Examples

Highlights from
OpenGL .NET Examples