Вывод оттенков зеленого

[alik98]

Нужно сделать программу на Паскаль, которая рандомно выводит на экран оттенки зеленого. Пытался сделать через RGB. Пробовал задавать цвет таким образом:

setcolor(RGB(red,green,blue))

Но получаю "Ошибку прверки диапазона", хотя цвета точно заданы в пределах 0<color<256. Вобще я даже не уверен в том, что делает функция RGB и ссылался на найденное в интернете только на одном сайте (гугл и справка паскаля гордо молчали). В общем-то, проблема с выводом RGB цвета и является моей главной проблемой, потому что нужно сделать именно через RGB.

Насчет функции RGB: Я так понял. что она принимает значения красного, зеленого и синего, и выдаёт номер соответствующего цвета в стандартной палитре.

P.S. Выставлен режим SVGA600X800X32768.
P.P.S. Прошу прощения, за то, что немного неграматно описал проблему. Головная боль после четырех часов поисков дала о себе знать.

[BDA]

Хм...

SetColor(5) делает пятый цвет в палитре цветом текущего рисунка. Цвет может быть задан числом от 0 до 15 (для стандартных драйверов), в зависимости от текущего графического драйвера и текущего графического режима.

GetMaxColor возвращает самый высокий допустимый цвет для текущего драйвера и режима.

ПС http://pascal.sources.ru/graph/svgafscr.htm
Не отвечать после 12, не отвечать после 12... (уже тоже плохо соображаю)

[alik98]

И как мне это поможет с RGB? Я знаю, как работает Setcolor, но мне нужно задавать цвет через RGB, а не через стандартную палитру. А Getmaxcolor вообще какое имеет отношение к моей проблеме?

[Serge_Bliznykov]

И как мне это поможет с RGB? Я знаю, как работает Setcolor, но мне нужно задавать цвет через RGB, а не через стандартную палитру. А Getmaxcolor вообще какое имеет отношение к моей проблеме?

давайте начнём с другого. У Вас какой Паскаль (IDE/компилятор) ? Без знания того, под что Вы пишете трудно Вам подсказать...


p.s. Turbo Pascal, например, понятия не имеет, что это за функция RGB

[Poma][a]

хм... ничего не понимаю

uses Graph, Crt;

var
  grDriver : Integer;
  grMode   : Integer;
  ErrCode  : Integer;
  i : Integer;

begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, 'X:\BP');
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin
    { Графика}
    for i := 0 to 255 do begin
        SetRGBPalette (23, 0, i, 0);
        SetColor (23);
        Line(1, i, GetMaxX, i);
        {Delay(1000);}
    end;
    ReadLn;
    CloseGraph;
  end
  else
    WriteLn('Ошибка инициализации графики', GraphErrorMsg(ErrCode));
end.

По логике программа дожна выводить 256 строк, с оттенками зеленого, НО почему при смене аргумента в SetColor'e (разумеется и в SetRGBPalette), все меняется и выводится только 1 цвет. (с графикой работал очень давно => не понмю...)

[alik98]

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

[alik98]

А, кое-чего не заметил в вашей программе. Всё так как мне и было нужно, но у меня по той же причине ничерта не работало. Это не ошибка и не глюк. Дело в том, что вы меняете цвет по его id в палитре, а точкам на экране присваевается id цвета, сам он уже берется из палитры через id. Что б работало, нужно пол палитры перелапатить, присвоив номерам цветов setcolor и setrgbpalette i.