Как заполнить многомерный массив разными данными цвета? D3DCOLOR_XRGB

[Катя93]

Я создала многомерный массив. Мне нужно заполнить его вещественными числами и еще добавить функцию D3DCOLOR_XRGB. Какой тип массива указать при создании?

Если воспользоваться extended выдает ошибку.

[Error] primer.pas(142): Constant expression expected

Если вместо D3DCOLOR_XRGB добавить число с точкой например 1.0, то все работает, но мне нужно конкретно добавить D3DCOLOR_XRGB. Пример:

 vertices: array[0..7, 0..3] of extended = (
    (-1.0, -1.0, -1.0,  D3DCOLOR_XRGB( 255,   0,   0)),
    (-1.0, 1.0, -1.0, D3DCOLOR_XRGB(   0, 255,   0)),
     (1.0, -1.0, -1.0, D3DCOLOR_XRGB(   0,   0, 255)),
     (1.0, 1.0, -1.0, D3DCOLOR_XRGB( 255, 255,   0)),
     (1.0, -1.0, 1.0, D3DCOLOR_XRGB( 255,   0, 255)),
     (1.0, 1.0, 1.0,  D3DCOLOR_XRGB(   0, 255, 255)),
     (-1.0, -1.0, 1.0, D3DCOLOR_XRGB(   0,   0,   0)),
     (-1.0, 1.0, 1.0, D3DCOLOR_XRGB( 255, 255, 255))
   );

[digitalis]

Так и должно быть. Макрос D3DCOLOR_XRGB (а не функция) определяет 3 целочисленных значения, которые не могут быть впихнуты в вещественный массив, и компилятор лается на несоответствие типов. Видимо, нужно создать массив записей (RECORDS) и его инициализировать. Или отдельно - массив вещественный и целочисленный цветовой.
https://firststeps.ru/mfc/directx/dxhelp/r.php?14

[Катя93]

Этот пример взят с MicroSoft Visual C++ 6.0. Пытаюсь сделать это на delphi. На C++ это выглядит вот так. Как сделать это на delphi я не знаю.

MyVertex v[] =
	{
		{ -1.0f, -1.0f, -1.0f, D3DCOLOR_XRGB( 255,   0,   0), }, 
		{ -1.0f,  1.0f, -1.0f, D3DCOLOR_XRGB(   0, 255,   0), }, 
		{  1.0f, -1.0f, -1.0f, D3DCOLOR_XRGB(   0,   0, 255), }, 
		{  1.0f,  1.0f, -1.0f, D3DCOLOR_XRGB( 255, 255,   0), }, 
		{  1.0f, -1.0f,  1.0f, D3DCOLOR_XRGB( 255,   0, 255), }, 
		{  1.0f,  1.0f,  1.0f, D3DCOLOR_XRGB(   0, 255, 255), },
		{ -1.0f, -1.0f,  1.0f, D3DCOLOR_XRGB(   0,   0,   0), }, 
		{ -1.0f,  1.0f,  1.0f, D3DCOLOR_XRGB( 255, 255, 255), }
	};

[digitalis]

А если так:

type anything = record
     flt:array[0..2] of Extended;
     colr:array[0..2] of integer;
end;
 
const nifiga:array[0..7] of anything = (
      (flt:-1.0,-2.0,-3.0; colr:D3DCOLOR_XRGB( 255, 255, 255)),
       ...............................
      (flt:-2.0,-1.0,0.0; colr:D3DCOLOR_XRGB( 2, 5, 0))
      );

см. https://delphisources.ru/forum/showthread.php?t=25926
Попробовал - не скомпилилось, не знает он этого макроса D3DCOLOR_XRGB . Выбросил имя, толку от него никакого - всё стало ОК. Только цвета - байтовый массив.

type anything = record
     flt:array[0..2] of Extended;
     colr:array[0..2] of byte;
end;

const nifiga:array[0..7] of anything = (
      (flt:(-1.0,-2.0,-3.0); colr:( 255, 255, 255)),
       ...............................
      (flt:(-2.0,-1.0,0.0); colr:( 2, 5, 0))
      );

[digitalis]

Ну всё, похоже, массив цветов заполнился сам собой. Так что я зря старался.

[FrosyaZZ]

Сообщение от Катя93

На C++ это выглядит вот так.

Не совсем. Вы забыли про:

struct MyVertex
{
    D3DXVECTOR3 position;
    D3DCOLOR    color;
};

А это не массив флоатов или интеджеров.

[Катя93]

Спасибо всем за помощь, я изучаю книгу по Delphi Фленова, по этому не могу часто отвечать. Вот что у меня получилось.
box.png