Нужны любые идеи как создать фильтр Color blindness для bitmap!

[SkAndrew]

Добрый день!

Нужны любые идеи как создать фильтр Color blindness для bitmap наподобие приложенного рисунка. Ниже приведен тестовый вариант подобного решения, но он не работает корректно и нет действительного рисунка Color blindness:

procedure TMainForm.ColorBlind(SrcBmp, DestBmp: TBitmap; Size: Integer);
const BackColors: array [0..4] of TColor =
  ($001954B1, $006692D1, $0094ACEE, $0096B3E6, $00BDDBFF);
const FrontColors: array [0..4] of TColor =
  ($005C815F, $0094AD91, $00ABD5BC, $00DDFFCA, $00C3E9E9);
var SrcRow: pByteArray;
    X, Y, Z, S: Integer;
begin
  DestBmp.Width := SrcBmp.Width;
  DestBmp.Height := SrcBmp.Height;
  SrcBmp.PixelFormat := pf24Bit;
  DestBmp.PixelFormat := pf24Bit;
  Inc(Size);
  DestBmp.Canvas.Pen.Style := psClear;
  DestBmp.Canvas.Brush.Style := bsSolid;
  ProgressBar1.Max := SrcBmp.Height;
  for Y := 0 to SrcBmp.Height - 1 do begin
    SrcRow := SrcBmp.ScanLine[Y];
    for X := 0 to SrcBmp.Width - 1 do begin
      Z := Random(5);
      S := Random(Size);
      if (SrcRow[X*3] <> 0) and (Random < 0.77)
        then DestBmp.Canvas.Brush.Color := BackColors[Z]
        else DestBmp.Canvas.Brush.Color := FrontColors[Z];
      DestBmp.Canvas.Ellipse(X - S, Y - S, X + S, Y + S);
    end;
    ProgressBar1.Position := Y;
  end;
end;

Спасибо за любую помощь!

[Ntlegend]

я чот не пойму.. вам нада определить пару наиболее часто встречающихся цветов и на итоговый рисунок вывести тока их, а остальные просто удалить.. или что?? можна вопрос немного по конкретнее сделать?? или у вас есть какойто текст и нада на него чтото наложить..

[SkAndrew]

Спасибо за дискуссию, мне необходимо например число любое или слово вывести на битмап так как это показано в прилагаемом к этому сообщению рисунку. смотрите аттач, пожалуйста. спасибо.

[Ntlegend]

в прилагаемом вами коде оно рисует круг заданого радиуса С КАЖДОЙ точки исходного битмапа.. от того код работает не корректно.. тут нужно в корне менять алгоритм.. я вижу его приблизительно таким:
1) определить какую нибуть точку надписи (назовем ее первой точкой.. потому что с нее будем отталкиваться дальше..)
2) оприделить растояние от єтой точки до ближайшей гриницы надписи (это будет радиус круга) и проверить чтобы в даной зоне небыло других кружков..
3) нарисовать кржок
3) определить следующюю точку на тексте.. и дальше п1 - 3..

и тоже самое нада проделать и для фона..

[SkAndrew]

Спасибо за дискуссию. Может кто-то может более конкретнее подсказать решение задачи - небольшим примером. Спасибо.

[Levsha100]

Есть идея!
Вообразим сетку с шагом, например, 30 пикселей. Теперь в цикле пробегаем по этой сетки и рандомно выбираем радиус окружности с центром в узле сетки, но он(радиус) не больше шага сетки, не меньше константы, и не врезается в другие круги!Заносим данный в массив.Пробегаемся по этому массиву и определяем средний цвет! Очищаем изображение и отрисовываем круги с заданными радиусами и цветом!

[SkAndrew]

полседняя идея по-моему очень интересная, могу попросить Вас привести пример, пусть не совсем рабочий. я врач и мне необходим этот алгоритм для работы. на примере мне будет проще доработать его. Спасибо.

[BOBAH13]

На подобии придыдущего поста. Черным по белому большими буквами пишите то что надо через любые api, тот же примитивный TextOutW. Потом сканируите с нужным шагом (сетки) и создаете соотвественно двумерный массив типа 0 до 1. Т.е. интенсивность цвета (если надо именно так как на картинке). Далее чистите этот HDC (ну или в простонародии TCanvas) и прогоняя ваш полученный массив относительно интенсивности, т.е. как бы коэфицеента, выводите нужный цвет то что надо, к примеру кружки.
Уточнил просто. Писать пример, слижком уж трудоемко, время терять, может кто-то и напишет.

[SkAndrew]

Спасибо за идею, может у кого-то найдется небольшой пример, хотя бы схематично. спасибо.

[SkAndrew]

Спасибо за идеи, но мне совершенно непонятна фраза из предыдущего сообщения "потом сканируите с нужным шагом (сетки) и создаете соотвественно двумерный массив типа 0 до 1.". может все же приведете пусть даже неработающий, но "живой" пример о чем идет речь. Спасибо.