1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
function pixels = glGetTexImage( target, level, format, type, bufSize )
% glGetTexImage Interface to OpenGL function glGetTexImage
%
% usage: pixels = glGetTexImage( target, level, format, type )
%
% C function: void glGetTexImage(GLenum target, GLint level, GLenum format, GLenum type, GLvoid* pixels)
% 05-Mar-2006 -- created (generated automatically from header files)
% 05-Sep-2006 -- Made functional by implementing buffer allocation code. (MK)
% ---allocate---
% ---protected---
% ---skip---
if nargin~=4 && nargin~=5,
error('invalid number of arguments');
end
% check format and type
global GL
switch(format)
case {GL.RED, GL.GREEN, GL.BLUE, GL.ALPHA, GL.LUMINANCE, GL.INTENSITY, GL.DEPTH_COMPONENT, GL.STENCIL_INDEX }
numperpixel = 1;
case {GL.LUMINANCE_ALPHA }
numperpixel = 2;
case {GL.RGB , GL.BGR }
numperpixel = 3;
case {GL.RGBA , GL.BGRA }
numperpixel = 4;
otherwise
error('Invalid format passed to glGetTexImage.');
end;
switch(type)
case {GL.UNSIGNED_BYTE , GL.BYTE }
numsize = 1;
case { GL.UNSIGNED_SHORT , GL.SHORT }
numsize = 2;
case { GL.UNSIGNED_INT , GL.INT , GL.FLOAT }
numsize = 4;
otherwise
error('Invalid type passed to glGetTexImage.');
end;
% Query size of currently bound texture object:
width = glGetTexLevelParameteriv(target, level, GL.TEXTURE_WIDTH);
height = glGetTexLevelParameteriv(target, level, GL.TEXTURE_HEIGHT);
if width <=0 || height<=0
error('Invalid (negative or zero) size of texture image object.');
end
% Allocate memory:
pixels=zeros(numperpixel, width, height, 2);
% Tell OpenGL that we accept byte-aligned aka unaligned data.
glPixelStorei(GL.PACK_ALIGNMENT, 1);
% Perform proper type-cast:
switch(type)
case GL.UNSIGNED_BYTE
pixels = uint8(pixels);
case GL.BYTE
pixels = int8(pixels);
case GL.UNSIGNED_SHORT
pixels = uint16(pixels);
case GL.SHORT
pixels = int16(pixels);
case GL.UNSIGNED_INT
pixels = uint32(pixels);
case GL.INT
pixels = int32(pixels);
case GL.FLOAT
pixels = single(pixels);
end;
if exist('bufSize', 'var')
% This is actually a call to glGetnTexImageARB:
moglcore( 'glGetnTexImageARB', target, level, format, type, bufSize, pixels );
else
% Execute actual call to moglcore:
moglcore( 'glGetTexImage', target, level, format, type, pixels );
end
% Hack around Matlab R2015b+ bug: Needs > 1 component to be passed into
% moglcore as prhs argument for data return to work, so we extend pixels
% by a 4th dimension with one useless 2nd layer, which we strip away here
% again before returning data to usercode. The 2nd layer guarantees that
% prhs pixels has at least 2 components if width=height=numperpixel==1
pixels = pixels(:,:,:,1);
return
|
