LZScene

1
    GL_RGB, GL_RGB_INTEGER:
2
      for n := 0 to AWidth*AHeight-1 do
3
      begin
4
        ADest[n].R := GetChannel;
5
        ADest[n].G := GetChannel;
6
        ADest[n].B := GetChannel;
7
        ADest[n].A := 255.0;
8
      end;
9

10
    GL_BGR, GL_BGR_INTEGER:
11
      for n := 0 to AWidth*AHeight-1 do
12
      begin
13
        ADest[n].B := GetChannel;
14
        ADest[n].G := GetChannel;
15
        ADest[n].R := GetChannel;
16
        ADest[n].A := 255.0;
17
      end;
18

19
    GL_RGBA, GL_RGBA_INTEGER:
20
      for n := 0 to AWidth*AHeight-1 do
21
      begin
22
        ADest[n].R := GetChannel;
23
        ADest[n].G := GetChannel;
24
        ADest[n].B := GetChannel;
25
        ADest[n].A := GetChannel;
26
      end;
27

28
    GL_BGRA, GL_BGRA_INTEGER:
29
      for n := 0 to AWidth*AHeight-1 do
30
      begin
31
        ADest[n].B := GetChannel;
32
        ADest[n].G := GetChannel;
33
        ADest[n].R := GetChannel;
34
        ADest[n].A := GetChannel;
35
      end;
36

37
    GL_ALPHA, GL_ALPHA_INTEGER:
38
      for n := 0 to AWidth*AHeight-1 do
39
      begin
40
        ADest[n].R := 0;
41
        ADest[n].G := 0;
42
        ADest[n].B := 0;
43
        ADest[n].A := GetChannel;
44
      end;
45

46
    GL_LUMINANCE, GL_LUMINANCE_INTEGER_EXT:
47
      for n := 0 to AWidth*AHeight-1 do
48
      begin
49
        c0 := GetChannel;
50
        ADest[n].R := c0;
51
        ADest[n].G := c0;
52
        ADest[n].B := c0;
53
        ADest[n].A := 255.0;
54
      end;
55

56
    GL_LUMINANCE_ALPHA, GL_LUMINANCE_ALPHA_INTEGER_EXT:
57
      for n := 0 to AWidth*AHeight-1 do
58
      begin
59
        c0 := GetChannel;
60
        ADest[n].R := c0;
61
        ADest[n].G := c0;
62
        ADest[n].B := c0;
63
        ADest[n].A := GetChannel;
64
      end;
65

66
    GL_INTENSITY:
67
      for n := 0 to AWidth*AHeight-1 do
68
      begin
69
        c0 := GetChannel;
70
        ADest[n].R := c0;
71
        ADest[n].G := c0;
72
        ADest[n].B := c0;
73
        ADest[n].A := c0;
74
      end;
75

76
    GL_RED, GL_RED_INTEGER:
77
      for n := 0 to AWidth*AHeight-1 do
78
      begin
79
        ADest[n].R := GetChannel;
80
        ADest[n].G := 0;
81
        ADest[n].B := 0;
82
        ADest[n].A := 255;
83
      end;
84

85
    GL_GREEN, GL_GREEN_INTEGER:
86
      for n := 0 to AWidth*AHeight-1 do
87
      begin
88
        ADest[n].R := 0;
89
        ADest[n].G := GetChannel;
90
        ADest[n].B := 0;
91
        ADest[n].A := 255;
92
      end;
93

94
    GL_BLUE, GL_BLUE_INTEGER:
95
      for n := 0 to AWidth*AHeight-1 do
96
      begin
97
        ADest[n].R := 0;
98
        ADest[n].G := 0;
99
        ADest[n].B := GetChannel;
100
        ADest[n].A := 255;
101
      end;
102

103
    GL_RG, GL_RG_INTEGER:
104
      for n := 0 to AWidth*AHeight-1 do
105
      begin
106
        ADest[n].R := GetChannel;
107
        ADest[n].G := GetChannel;
108
        ADest[n].B := 0;
109
        ADest[n].A := 255;
110
      end;
111