OpenGL Вопросы (98 стр) / Графика / Форум / Программирование игр / GameDev.ru

Вот решение подсказали, а воспользоваться, походу, им не получится... Там для одинаковых, не смещённых текстур, а мне надо для смещённых... И желательно чтоб ещё и части текстур. :(

Есть какая-то возможность выбрать кусок текстуры и составить другую текстуру, не прибегая к каким-нибудь фреймбуферам?
... а может это и есть решение? Использовать фреймбуфер?!

MikeNew
Постоялец

#1456
13:07, 11 апр 2025

Mirrel
> Вот решение подсказали, а воспользоваться, походу, им не получится... Там для одинаковых, не смещённых текстур, а мне надо для смещённых... И желательно чтоб ещё и части текстур. :(
>
> Есть какая-то возможность выбрать кусок текстуры и составить другую текстуру, не прибегая к каким-нибудь фреймбуферам?
> ... а может это и есть решение? Использовать фреймбуфер?!
Ты же хочешь сделать средствами Opengl, а значит средствами видеокарты. А это значит использовать нужно шейдеры или фреймбуферы. Но я сомневаюсь, что только фоеймбуферами без шейдеров удастся смешать две текстуры.
Хотя может я и ошибаюсь, просто мое мнение.
Мне так кажется.

Mirrel
Постоялец

#1457
13:09, 11 апр 2025

MikeNew, выше (1456) скинул решение. Проверю, отпишусь, работает или нет.
Если будет всё работать на устаревшем OpenGL, то с шейдерами проблем будет меньше. И там просто реализовать надо будет это решение.

AMM1AK
Постоялец

#1458
14:25, 11 апр 2025

Mirrel
> прозрачны, чёрные.
> Есть такое понятие, отсутствие цвета. Люди назвали это чёрным цветом, где нет ни какого цвета.
Тогда изъясняйся понятнее. Если ты имеешь в виду черный цвет пиксела, то так и говори.
«Отсутствие пикселей в текстуре» звучит как будто в текстуру не загружены данные, но ни как пиксели чёрного цвета

Mirrel
Постоялец

#1459
18:37, 11 апр 2025

AMM1AK
> «Отсутствие пикселей в текстуре»
отсутствующие включенные пиксели - так подойдёт?

Mirrel
Постоялец

#1460
15:10, 17 апр 2025

Выше выкладывал решение по работе с текстурами.

// подготавливаем цель 1, выводим текстуру в фреймуффер 0.
  rtarget_Set(pzTarTex1);
  one_texture_Draw(0, 0, _myFrame + 2, memRect);
  rtarget_Set(RT_NO_TARGET);

// подготавливаем цель 2, выводим текстуру в фреймуффер 1.
  rtarget_Set(pzTarTex0);
  triple_texture_Draw(0, 0, _myFrame + 1, memRect, videoMem[$23c0]);
  rtarget_Set(RT_NO_TARGET);

// дальше код ломает просто всю отрисовку.

// пытаемся работу произвести с готовыми текстурами, которые переданы в текстуры выше.
  glActiveTexture(GL_TEXTURE0);
  glEnable(GL_TEXTURE_2D);
  glBindTexture(GL_TEXTURE_2D, tex_GetTextireID(rtarget_GetSurface(pzTarTex0)));
  // указываем что текстуру надо заменить
  glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
  // выираем следующую текстуру
  glActiveTexture(GL_TEXTURE1);
  glEnable(GL_TEXTURE_2D);
  glBindTexture(GL_TEXTURE_2D, tex_GetTextireID(rtarget_GetSurface(pzTarTex1)));

  glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_COMBINE);
  glTexEnvi(GL_TEXTURE_ENV, GL_COMBINE_RGB, GL_SUBTRACT);

  glTexEnvi(GL_TEXTURE_ENV, GL_SOURCE0_RGB, GL_PREVIOUS);
  glTexEnvi(GL_TEXTURE_ENV, GL_SOURCE1_RGB, GL_TEXTURE);
  glTexEnvi(GL_TEXTURE_ENV, GL_OPERAND0_RGB, GL_SRC_COLOR);
  glTexEnvi(GL_TEXTURE_ENV, GL_OPERAND1_RGB, GL_SRC_COLOR);

  glTexEnvi(GL_TEXTURE_ENV, GL_COMBINE_ALPHA, GL_SUBTRACT);  // Modulate ALPHA with ALPHA
  glTexEnvi(GL_TEXTURE_ENV, GL_SOURCE0_ALPHA, GL_PREVIOUS);
  glTexEnvi(GL_TEXTURE_ENV, GL_SOURCE1_ALPHA, GL_TEXTURE);
  glTexEnvi(GL_TEXTURE_ENV, GL_OPERAND0_ALPHA, GL_SRC_ALPHA);
  glTexEnvi(GL_TEXTURE_ENV, GL_OPERAND1_ALPHA, GL_SRC_ALPHA);

В общем данное решение, не то чтобы не работает, оно ломает всю отрисовку. Вся модуляция прицепляется ко всем текстурам. Кто-то знает решение?

P.S. мне надо после этого действия вывести текстуру которую получил и вернуть всю модуляцию в изначальное значение? Как отключить модуляцию?

Mirrel
Постоялец

#1461
15:35, 17 апр 2025

Funtik
> на решения в твоей ссылке в виде шейдеров 2.0

The equivalent with GL 2.0 shaders

у тебя всё нормально?

Но по сути... предоставленное решение всё равно не лучше, если б я вручную всё делал...

Mirrel
Постоялец

#1462
15:52, 17 апр 2025

Funtik, так и не догадался?
Ответ проще некуда. Мне просто нужно чтоб работало. А без шейдеров работать будет, значит и с шейдерами работать будет (неужели я этого уже не писал ранее?).

Mirrel
Постоялец

#1463
16:04, 17 апр 2025

Funtik
> Ты слишком негативный и склочный
возможно. Но с тем как многие подходят к вопросу, приходится таким быть. И возможно виноват в этом не ты, но если мне память не изменяет, то ты так же участвовал в "травле" меня, по поводу и без (чаще без, возможно не про тебя, а про любителей хренью страдать и показывать себя выше других).

Mirrel
Постоялец

#1464
16:25, 17 апр 2025

Funtik
> Правдоруб - Да!
правдоруб - это когда ты знаешь человека и говоришь правду ему в лицо.
Точно зная что это правда! )))

Меня ты не знаешь, ты не даже предполагать не можешь правды обо мне (только по стилю общения предполагать).

Mirrel
Постоялец

#1465
21:42, 17 апр 2025

Ну в общем я нашёл решение и проблему... Можно просто вывести текстуру и вычесть из неё входящую текстуру.

  glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_COMBINE);
  glTexEnvi(GL_TEXTURE_ENV, GL_COMBINE_RGB,  GL_SUBTRACT);
  glTexEnvi(GL_TEXTURE_ENV, GL_COMBINE_ALPHA,  GL_SUBTRACT); 
  glTexEnvi(GL_TEXTURE_ENV, GL_SOURCE0_RGB,  GL_PRIMARY_COLOR);

Теперь проблема в том, что когда я запихиваю это решение в фреймбуфер, теряется прозрачность текстуры и всё становится непрозрачным.
~~Кто-то знает, как задать фреймбуферу, что фон у текстуры должен оставаться прозрачным?~~

Всё работает. Теперь спрайты можно резать. ))) Если не задать "GL_COMBINE_ALPHA", то ни чего вы не нарежете. Накладываемая текстура должна быть RGBA=$FFFFFF00. Тогда прозрачность накладываемого спрайта добавляется.

Mirrel
Постоялец

#1466
21:22, 21 мая 2025

type
  GLESPVertex = ^GLESTVertex;
  GLESTVertex = record
    U, V    : Single;
    X, Y    : Single;
  end;

TColor = record
    R, G, B, A: Single;
  end;

var
  Vertices: array [0..17] of GLESTVertex;
  VertColor: array [0..17] of TColor;
...
  glEnableClientState(GL_TEXTURE_COORD_ARRAY);
  glTexCoordPointer(2, GL_FLOAT, 16, @Vertices[0].U);
  glEnableClientState(GL_COLOR_ARRAY);
  glColorPointer(4, GL_FLOAT, 0, @VertColor[0]);

  glEnableClientState(GL_VERTEX_ARRAY);
  glVertexPointer(2, GL_FLOAT, 16, @Vertices[0].X);

  glDrawArrays(GL_TRIANGLES, 0, 18);

  glDisableClientState(GL_VERTEX_ARRAY);
  glDisableClientState(GL_COLOR_ARRAY);
  glDisableClientState(GL_TEXTURE_COORD_ARRAY);
...

Что вообще может быть не так с этим кодом? В данном варианте, пропадает цвет.
Тут выводятся три текстуры с разным цветом, в одно место.

Мне что, обязательно надо вывести каждую текстуру отдельно? Чтоб можно было наложить вторую/третью не теряя цвет?

Отбой, сам же себе ответ написал... я текстуру менял когда данные передавал на прорисовку.

skalogryz
Участник

#1467
22:15, 21 мая 2025

Mirrel

+ chatgpt

− Скрыть

Цвет, заданный через `glColorPointer`, действительно может **не учитываться**, если:

1. **Текущая активная текстура использует шейдер (или fixed-function pipeline игнорирует цвет)** — например, если текстура полностью перекрывает цвет вершины.
2. **Текстура с альфа-каналом и блэндингом**: цвет может быть визуально "съеден" непрозрачной текстурой.
3. **glTexEnv неправильно настроен** — если используется фиксированный pipeline (без шейдеров), то поведение смешивания текстуры и цвета задаётся через `glTexEnv`.

---

### ✅ Возможные причины, почему цвет пропадает

#### 1. **glTexEnv неправильно настроен**

По умолчанию `GL_MODULATE` должен использоваться, чтобы цвет из `glColorPointer` умножался на текстуру.

Проверь, что перед отрисовкой ты делаешь:

```pascal

glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);

```

Если стоит `GL_REPLACE`, то цвет из `glColorPointer` будет полностью игнорироваться.

---

#### 2. **Включён альфа-блэндинг, но цвет у текстуры непрозрачный**

Если ты рисуешь несколько наложенных текстур в одно и то же место, и они полностью непрозрачные (`alpha = 1.0`), то следующая текстура просто закрасит предыдущую.

Используй `glEnable(GL_BLEND)` и правильную функцию смешивания, например:

```pascal

glEnable(GL_BLEND);
glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

```

А в `TColor.A` используй значения меньше 1.0, если хочешь, чтобы текстуры "накладывались".

---

#### 3. **Все текстуры выводятся в одно и то же место**

Если ты рисуешь **одни и те же вершины (с одинаковыми координатами)** три раза — просто с разными текстурами и цветами — то:

**последняя текстура просто закрасит всё**.

Цвета действительно будут "теряться", если предыдущие полигоны закрываются полностью.

Чтобы они "накладывались", нужно:

либо **использовать альфа-прозрачность**,

либо **рисовать в разное время / в разные буферы**, потом комбинировать.

---

### ❓ Ответ на главный вопрос: «Надо ли выводить каждую текстуру отдельно?»

**Да.**
Если ты хочешь:

три разных текстуры,

наложенные в одно место,

каждая — со своим цветом,

то тебе **нужно**:

1. `glBindTexture` — каждый раз перед `glDrawArrays`.
2. `glColorPointer` — если нужно менять цвет.
3. Можно использовать `glDrawArrays` несколько раз подряд.

---

### 🔧 Рекомендуемое поведение:

```pascal

glEnable(GL_TEXTURE_2D);
glEnable(GL_BLEND);
glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

for i := 0 to 2 do
begin
  glBindTexture(GL_TEXTURE_2D, TextureIds[i]);
  // Подставь нужный цвет
  FillChar(VertColor, SizeOf(VertColor), 0);
  for v := 0 to 17 do
  begin
    VertColor[v].R := 1.0; // или свой цвет
    VertColor[v].G := 1.0;
    VertColor[v].B := 1.0;
    VertColor[v].A := 0.5; // для наложения
  end;

glColorPointer(4, GL_FLOAT, 0, @VertColor[0]);
  glDrawArrays(GL_TRIANGLES, 0, 18);
end;

glDisable(GL_BLEND);
glDisable(GL_TEXTURE_2D);

```

---

Если у тебя будут дополнительные ограничения (например, только один вызов `glDrawArrays` или только один массив вершин), скажи — найду решение.

Mirrel
Постоялец

#1468
22:47, 21 мая 2025

skalogryz
> chatgpt
он бы за меня рендер написал, который не будет тормозить на мобилках. )))

skalogryz
Участник

#1469
1:20, 22 мая 2025

Mirrel

+ chatgpt

− Скрыть

Чтобы на Pascal (например, Delphi или Free Pascal + OpenGL ES) отрисовка работала **плавно на мобильных устройствах (Android/iOS)**, нужно учесть следующее:

---

## 🔧 Рекомендации:

1. **Использовать OpenGL ES 2.0+ (или WebGL при портировании)**.
2. **Избегать immediate mode (`glBegin`/`glEnd`) — использовать VBO/VAO.**
3. **Минимизировать вызовы `glDrawArrays`, `glBindTexture`, `glUniform*`.**
4. **Рендерить батчами**.
5. **Предзагружать текстуры и буферы**.

---

## ✅ Простой пример на Pascal с OpenGL ES 2.0

Вот базовая структура кода, использующего VBO и один `glDrawArrays` для всего:

```pascal

uses
  ..., GLES20; // OpenGL ES 2.0

type
  TVertex = record
    x, y: GLfloat;
    u, v: GLfloat;
  end;

const
  Vertices: array[0..5] of TVertex = (
    (x: -0.5; y: -0.5; u: 0; v: 0),
    (x:  0.5; y: -0.5; u: 1; v: 0),
    (x:  0.0; y:  0.5; u: 0.5; v: 1),
    // ещё один треугольник — для пары
    (x:  0.5; y: -0.5; u: 1; v: 0),
    (x:  0.5; y:  0.5; u: 1; v: 1),
    (x:  0.0; y:  0.5; u: 0.5; v: 1)
  );

var
  VBO: GLuint;
  ShaderProgram: GLuint;

procedure InitResources;
begin
  // 1. Создание VBO
  glGenBuffers(1, @VBO);
  glBindBuffer(GL_ARRAY_BUFFER, VBO);
  glBufferData(GL_ARRAY_BUFFER, SizeOf(Vertices), @Vertices, GL_STATIC_DRAW);

  // 2. Компиляция шейдеров
  ShaderProgram := CompileAndLinkShaders(VertexShaderSrc, FragmentShaderSrc);

  glUseProgram(ShaderProgram);

  // 3. Настройка атрибутов
  glBindBuffer(GL_ARRAY_BUFFER, VBO);
  glVertexAttribPointer(0, 2, GL_FLOAT, GL_FALSE, SizeOf(TVertex), Pointer(0)); // position
  glEnableVertexAttribArray(0);

  glVertexAttribPointer(1, 2, GL_FLOAT, GL_FALSE, SizeOf(TVertex), Pointer(8)); // texcoord
  glEnableVertexAttribArray(1);
end;

procedure RenderFrame;
begin
  glClear(GL_COLOR_BUFFER_BIT);

  glUseProgram(ShaderProgram);
  glBindBuffer(GL_ARRAY_BUFFER, VBO);
  glDrawArrays(GL_TRIANGLES, 0, Length(Vertices));

  SwapBuffers; // в зависимости от платформы
end;

```

---

## 🎨 Пример простейших шейдеров:

```pascal

const
  VertexShaderSrc =
    'attribute vec2 aPosition;'#10 +
    'attribute vec2 aTexCoord;'#10 +
    'varying vec2 vTexCoord;'#10 +
    'void main() {'#10 +
    '  gl_Position = vec4(aPosition, 0.0, 1.0);'#10 +
    '  vTexCoord = aTexCoord;'#10 +
    '}';

  FragmentShaderSrc =
    'precision mediump float;'#10 +
    'varying vec2 vTexCoord;'#10 +
    'uniform sampler2D uTexture;'#10 +
    'void main() {'#10 +
    '  gl_FragColor = texture2D(uTexture, vTexCoord);'#10 +
    '}';

```

---

## 🧠 Ускорение на мобильных:

Убедитесь, что **текстуры сжатые (ETC1, ASTC, PVRTC)**.

Не используйте `glEnableClientState` — только VBO/VAO.

Используйте **один шейдер и один `glDrawArrays` для многих объектов**, меняя `uniform` или `instance` индекс, если надо.

Убедитесь, что **рендер идёт в `double-buffered` контекст**.

---

## ❓ Хочешь пример под конкретный движок?

Я могу:

Выдать код под **Delphi FMX Android**,

Или под **Lazarus + GLES2 + Android NDK**,

Или адаптировать под **SDL2 с GLES2**.

Напиши, какую платформу и компилятор ты используешь — тогда дам готовый шаблон.

− Скрыть

Отлично! Раз ты используешь **ZenGL**, вот конкретные советы и пример, как **рендерить эффективно и без тормозов на мобильных устройствах (Android)** в рамках ZenGL (который использует OpenGL ES 1.1/2.0):

---

## 🧠 Принципы оптимизации рендера в ZenGL:

1. **Используй `zgl_BeginBatch2D` / `zgl_EndBatch2D`** — это снижает число `glDrawArrays`.
2. **Старайся не менять текстуру между вызовами**: **одна текстура — один батч**.
3. Не вызывай `zgl_Draw`-аналогов по одной вершине — группируй в массив.
4. **Текстуры — power-of-two (POT)**, желательно сжатые (ETC1 на Android).
5. Не создавай и не уничтожай текстуры или объекты каждый кадр.

---

## ✅ Пример: отрисовка треугольников с цветом и текстурой через батчинг

```pascal

uses
  zgl_main, zgl_screen, zgl_timers, zgl_primitives_2d, zgl_fx, zgl_render_2d,
  zgl_textures;

var
  tex1, tex2: zglPTexture;

procedure Draw;
begin
  // Очистка экрана
  zgl_Clear(0);

  // Включаем альфа-блэндинг
  fx2d_SetBlendMode(FX_BLEND_NORMAL);

  // Первая текстура + красный цвет
  fx2d_SetColor($FF0000FF); // RGBA
  zgl_BeginBatch2D(tex1);
    zgl_DrawSprite(tex1, 100, 100, 128, 128);
  zgl_EndBatch2D;

  // Вторая текстура + зелёный цвет
  fx2d_SetColor($00FF00A0); // зелёный с прозрачностью
  zgl_BeginBatch2D(tex2);
    zgl_DrawSprite(tex2, 100, 100, 128, 128); // наложится поверх первой
  zgl_EndBatch2D;

  // Возврат цвета по умолчанию
  fx2d_SetColor($FFFFFFFF);
end;

procedure Init;
begin
  // Загрузка текстур
  tex1 := tex_LoadFromFile('texture1.png');
  tex2 := tex_LoadFromFile('texture2.png');
end;

BEGIN
  zgl_Enable(ZENGL_USE_AUTOSTART);
  zgl_Reg( SYS_LOAD, @Init );
  zgl_Reg( SYS_DRAW, @Draw );
  zgl_Init();
END.

```

---

## 🚀 Для Android:

В `project.cfg`:

```ini

[SETTINGS]
TARGET = android
USE_ES = 2

```

---

## ❗Важно:

**Если тормозит — это почти всегда из-за частой смены текстур или шейдера.**

Используй **одну текстуру-атлас**, чтобы отрисовать сразу несколько спрайтов в один `Batch2D`.

Не делай **слишком много `zgl_BeginBatch2D` и `zgl_EndBatch2D`** — объединяй отрисовку с одинаковыми параметрами.

---

Хочешь пример с **отрисовкой сразу 1000 спрайтов с наложением**? Или автоматический **текстурный атлас + батчинг**? Напиши — сделаю.