Графический редактор Опции

[Bokul]

При нажатии левой мышки, точка с координатами курсора мыши должна закрасится определенным цветом, правой - выход.
Вот есть код:

uses vesa2,graph;
var b,x,y:word;
begin
SetVesa;
SetGraphMode(2);
initmouse;
showcursor;
repeat
GetMouseXY(b,x,y);
if b=1 then putpixel(x,y,5);
until b=2;
vesadone;
end.

.
Почему точка закрашивается не всегда там где побывала мышка? Как исправить?

Сообщение отредактировано: volvo - 3.11.2006 23:53

[Archon]

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

Рисуй не отдельные пикселы, а линию от старой точки до новой.

[Bokul]

Рисуй не отдельные пикселы, а линию от старой точки до новой.

Спасибо , помогло.
Вот, если кому надо, реализация:

Код

uses graph, vesa2;
var
   b,x,y,tempx,tempy:word; put_bol:boolean;
begin
SetVesa;
SetGraphMode(2);
initmouse;
showcursor;
put_bol:=false;
repeat
GetMouseXY(b,x,y);
if b=1 then
   begin
        if put_bol=true then
           begin
                line(tempx,tempy,x-1,y-1);
                tempx:=x;
                tempy:=y;
           end
        else
            begin
                 tempx:=x;
                 tempy:=y;
                 put_bol:=true;
            end;
  end
else
    put_bol:=false;
until b=2;
vesadone;
end.

А как регулировать толщину линии?

Сообщение отредактировано: Bokul - 1.08.2006 21:11