LZScene

1
    GL_RGB:
2
      for n := 0 to AWidth*AHeight-1 do
3
      begin
4
        SetChannel(ASource[n].R);
5
        SetChannel(ASource[n].G);
6
        SetChannel(ASource[n].B);
7
      end;
8

9
    GL_RGB_INTEGER:
10
      for n := 0 to AWidth*AHeight-1 do
11
      begin
12
        SetChannelI(ASource[n].R);
13
        SetChannelI(ASource[n].G);
14
        SetChannelI(ASource[n].B);
15
      end;
16

17
    GL_BGR:
18
      for n := 0 to AWidth*AHeight-1 do
19
      begin
20
        SetChannel(ASource[n].B);
21
        SetChannel(ASource[n].G);
22
        SetChannel(ASource[n].R);
23
      end;
24

25
    GL_BGR_INTEGER:
26
      for n := 0 to AWidth*AHeight-1 do
27
      begin
28
        SetChannelI(ASource[n].B);
29
        SetChannelI(ASource[n].G);
30
        SetChannelI(ASource[n].R);
31
      end;
32

33
    GL_RGBA:
34
      for n := 0 to AWidth*AHeight-1 do
35
      begin
36
        SetChannel(ASource[n].R);
37
        SetChannel(ASource[n].G);
38
        SetChannel(ASource[n].B);
39
        SetChannel(ASource[n].A);
40
      end;
41

42
    GL_RGBA_INTEGER:
43
      for n := 0 to AWidth*AHeight-1 do
44
      begin
45
        SetChannelI(ASource[n].R);
46
        SetChannelI(ASource[n].G);
47
        SetChannelI(ASource[n].B);
48
        SetChannelI(ASource[n].A);
49
      end;
50

51
    GL_BGRA:
52
      for n := 0 to AWidth*AHeight-1 do
53
      begin
54
        SetChannel(ASource[n].B);
55
        SetChannel(ASource[n].G);
56
        SetChannel(ASource[n].R);
57
        SetChannel(ASource[n].A);
58
      end;
59

60
    GL_BGRA_INTEGER:
61
      for n := 0 to AWidth*AHeight-1 do
62
      begin
63
        SetChannelI(ASource[n].B);
64
        SetChannelI(ASource[n].G);
65
        SetChannelI(ASource[n].R);
66
        SetChannelI(ASource[n].A);
67
      end;
68

69
    GL_ALPHA:
70
      for n := 0 to AWidth*AHeight-1 do
71
      begin
72
        SetChannel(ASource[n].A);
73
      end;
74

75
    GL_ALPHA_INTEGER:
76
      for n := 0 to AWidth*AHeight-1 do
77
      begin
78
        SetChannelI(ASource[n].A);
79
      end;
80

81
    GL_LUMINANCE:
82
      for n := 0 to AWidth*AHeight-1 do
83
      begin
84
        SetChannel(ASource[n].R + ASource[n].G + ASource[n].B / 3.0);
85
      end;
86

87
    GL_LUMINANCE_INTEGER_EXT:
88
      for n := 0 to AWidth*AHeight-1 do
89
      begin
90
        SetChannelI(ASource[n].R + ASource[n].G + ASource[n].B / 3.0);
91
      end;
92

93
    GL_LUMINANCE_ALPHA:
94
      for n := 0 to AWidth*AHeight-1 do
95
      begin
96
        SetChannel(ASource[n].R + ASource[n].G + ASource[n].B / 3.0);
97
        SetChannel(ASource[n].A);
98
      end;
99

100
    GL_LUMINANCE_ALPHA_INTEGER_EXT:
101
      for n := 0 to AWidth*AHeight-1 do
102
      begin
103
        SetChannelI(ASource[n].R + ASource[n].G + ASource[n].B / 3.0);
104
        SetChannelI(ASource[n].A);
105
      end;
106

107
    GL_INTENSITY:
108
      for n := 0 to AWidth*AHeight-1 do
109
      begin
110
        SetChannel(ASource[n].R + ASource[n].G + ASource[n].B / 3.0);
111
      end;
112

113
    GL_RED:
114
      for n := 0 to AWidth*AHeight-1 do
115
      begin
116
        SetChannel(ASource[n].R);
117
      end;
118

119
    GL_RED_INTEGER:
120
      for n := 0 to AWidth*AHeight-1 do
121
      begin
122
        SetChannelI(ASource[n].R);
123
      end;
124

125
    GL_GREEN:
126
      for n := 0 to AWidth*AHeight-1 do
127
      begin
128
        SetChannel(ASource[n].G);
129
      end;
130

131
    GL_GREEN_INTEGER:
132
      for n := 0 to AWidth*AHeight-1 do
133
      begin
134
        SetChannelI(ASource[n].G);
135
      end;
136

137
    GL_BLUE:
138
      for n := 0 to AWidth*AHeight-1 do
139
      begin
140
        SetChannel(ASource[n].B);
141
      end;
142

143
    GL_BLUE_INTEGER:
144
      for n := 0 to AWidth*AHeight-1 do
145
      begin
146
        SetChannelI(ASource[n].B);
147
      end;
148

149
    GL_RG:
150
      for n := 0 to AWidth*AHeight-1 do
151
      begin
152
        SetChannel(ASource[n].R);
153
        SetChannel(ASource[n].G);
154
      end;
155

156
    GL_RG_INTEGER:
157
      for n := 0 to AWidth*AHeight-1 do
158
      begin
159
        SetChannelI(ASource[n].R);
160
        SetChannelI(ASource[n].G);
161
      end;
162