Построение картинки наиболее оптимально

[Alex Cones]

Это опять я.
Бьюсь над проблемой со вчерашнего вечера. Никак не могу понять, как построить картинку не прибегая к отрисовыванию отдельных точек.
Картинка может быть любого размера, тогда координаты будут относительными (Width - 2). В общем задача в втом, чтобы за минимальное количество кода нарисовать картинку. В голову, кроме цикла с точками, ничего не приходит.

Инструменты:
Точка, Линия, Прмяугольник, Залить_Все, Горизонтальные_Линии*, Вертикальные_Линии*.

*Работает так - указывается увет и частота (например 2 - тогда каждая вторая строка на картинке будет залита таким цветом).

P.S. Изображение на форуме увеличено в 4 раза.
P.P.S.
Изображения:
Первое - Ширина нечетна, Высота нечетна,
Второе - Четная ширина, нечетная высота
Третье - Нечетная ширина, четная высота
Четвертое - Четная ширина, четная высота

[Vikenty]

Canvas.Rectangle(20,20,120,80);
Canvas.Pixels[119,79]:=Form1.Color;
Canvas.Pixels[119,20]:=Form1.Color;
Canvas.Pixels[20,20]:=Form1.Color;
Canvas.Pixels[20,79]:=Form1.Color;

[Alex Cones]

Размер заранее неизвестен. В принципе можно через цикл, но там неувязка с четность\нечетность, когда две точки сливаются в одну в углу.

UPD-------------------------

Вот, сделал так, но мне это кажется извратом:

DrawRectangle(TexInd, '', FALSE, 0, 0, Warehouse.Button[BNum].Width - 1, Warehouse.Button[BNum].Height - 1, $000000);
DrawRectangle(TexInd, '', FALSE, 1, 1, Warehouse.Button[BNum].Width - 2, Warehouse.Button[BNum].Height - 2, COLOR_TRANS);

For X := 4 To Warehouse.Button[BNum].Width - 5 Do
 If Odd(X) Then DrawPoint(TexInd, '', FALSE, X, 4, $000000);

For X := 4 To Warehouse.Button[BNum].Width - 5 Do
 If Odd(Warehouse.Button[BNum].Width) Then
  Begin
   If Odd(X) Then DrawPoint(TexInd, '', FALSE, X, Warehouse.Button[BNum].Height - 5, $000000);
  End
 Else
  If Not(Odd(X)) Then DrawPoint(TexInd, '', FALSE, X, Warehouse.Button[BNum].Height - 5, $000000);

For Y := 4 To Warehouse.Button[BNum].Height - 5 Do
 If Odd(Y) Then DrawPoint(TexInd, '', FALSE, 4, Y, $000000);

For Y := 4 To Warehouse.Button[BNum].Height - 5 Do
 If Odd(Warehouse.Button[BNum].Height) Then
  Begin
   If Odd(Y) Then DrawPoint(TexInd, '', FALSE, Warehouse.Button[BNum].Width - 5, Y, $000000);
  End
 Else
  If Not(Odd(Y)) Then DrawPoint(TexInd, '', FALSE, Warehouse.Button[BNum].Width - 5, Y, $000000);

[Arigato]

А почему раздел свободного общения?

[Alex Cones]

Не, ну а какой? У нас есть раздел "Дизайн" или "алгоритмы"?

[evg_m]

размышления на основе рисунков пост 1.
Ш В | ВЛ ВП НЛ НП(заполнение углов)
Ч Ч | - - - -
Ч Н | - + - +
Н Ч | - - + +
Н Н | - + + -
формула заполнения углов (Ч=(-)0 Н=(+)1) 0 В Ш (Ш xor В)

[Arigato]

Перенес в Мультимедиа в Delphi, т.к. речь все же о мультимедиа, а программа нужна в Delphi.

[Levsha100]

Честно говоря я тоже не понял почему перенесли тему, ибо тут идет обсуждение по большей части алгоритма нежели конкретной реализации на делфи.