Не могу разобраться с цветом

@Serenberg · Регистрация: 05.11.2013

Author24 — интернет-сервис помощи студентам

Ранее никогда не сталкивался с графикой, поэтому прошу простить, что вопрос наверняка глупый.
Есть массив данных размерностью 2048*1200
где первый индекс - это азимут, второй - дальность. Значение каждого элемента массива это амплитуда сигнала.
Необходимо сделать так, чтобы чем меньше амплитуда тем было более прозрачной линии ( При максимальном значении (2048) непрозрачно).

Delphi

procedure TRadarScope.DrawBuffer(id : integer; bufar: TMatrix);
var
i,j,k : integer;
dnagle, ddist, angle, dist : double;
alf : Single;
x,y : single;
p1, p2 : TGlPoint;
begin
dnagle := 360/2048;
ddist  := RLSDistance/1200;
glNewList(5, GL_COMPILE);
  if id = 2 then // bi buffer
    begin
    ...
    end
  else // si  или sn buffer
    begin
//    glEnable(GL_BLEND);
 
    glBegin(GL_LINES);
      for i := 0 to 2047 do       // по углам
        begin
          angle := i * dnagle;   //  по дальности
          for j := 0 to 1199 do
            begin
              k := bufar[i,j];
              if (k>10) then
               begin
                if (k > 2048) then
                  k := 2048;
                alf := 0;
                if ((k > 10) and (k < 50)) then
                  alf := (k-10)/40*25/255;
                if k >= 50 then
                  alf := ((k-50)/1998)*235/255+25/255;
                glColor4f(1.0, 1.0, 0.0, alf);
 
                dist := j*ddist;
                gladtoxy(angle, dist, x, y);
                glVertex2f(x, y);
                dist := (j + 1) * ddist;
                gladtoxy(angle, dist, x, y);
//                p2[0] := x;  p1[1] := y;
                glVertex2f(x, y);
 
              end;
            end;
        end;
        glEnd;
 
    end;
glEndList;
end;

Прорисовывается, следующим образом:

Delphi

procedure TRadarScope.Paint;
var
  nom, i : integer;
  nray : integer;
  errcode: cardinal;
begin
...
  glLineWidth(0.2);
  glBegin(GL_LINES);
  glCallList(5);
  glEnd;
...
end;

Так у меня получается, что всегда цвет ярко-желтый, независимо от значения амплитуды

@SEvg · 05.11.2013, 11:56

А значение переменной alf, точно находиться в диапазоне от 0 до 1 ?

@Serenberg · 05.11.2013, 12:15 **[ТС]**

Да. Может необходимо где-то что-то подключить.

Добавлено через 14 минут
Нашел, нужно при прорисовке было добавить
glEnable(GL_BLend);
и
glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

Delphi

  glLineWidth(0.2);
  glEnable(GL_BLEND);
  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
  glBegin(GL_LINES);
  glCallList(5);
  glEnd;
  glDisable(GL_BLEND);

@SEvg 85 / 85 / 1 Регистрация: 16.10.2012 Сообщений: 304
	05.11.2013, 11:56	2
	А значение переменной alf, точно находиться в диапазоне от 0 до 1 ? 1

	05.11.2013, 12:15