.
Автор:
Оценка:
Опубликованно: 29.08.2005.
Язык: Латышский
Уровень: Средняя школа
Литературный список: Нет
Ссылки: Не использованы
  • Конспект 'Ģeometrisko figūru zīmēšana pa pikseļiem', 1.
  • Конспект 'Ģeometrisko figūru zīmēšana pa pikseļiem', 2.
  • Конспект 'Ģeometrisko figūru zīmēšana pa pikseļiem', 3.
  • Конспект 'Ģeometrisko figūru zīmēšana pa pikseļiem', 4.
  • Конспект 'Ģeometrisko figūru zīmēšana pa pikseļiem', 5.
  • Конспект 'Ģeometrisko figūru zīmēšana pa pikseļiem', 6.
  • Конспект 'Ģeometrisko figūru zīmēšana pa pikseļiem', 7.
  • Конспект 'Ģeometrisko figūru zīmēšana pa pikseļiem', 8.
  • Конспект 'Ģeometrisko figūru zīmēšana pa pikseļiem', 9.
  • Конспект 'Ģeometrisko figūru zīmēšana pa pikseļiem', 10.
Содержание
Nr. Название главы  Стр.
  Riņķa līnijas zīmēšana pa pikseļiem    2
  Elipses līnijas zīmēšana pa pikseļiem    4
  Kvadrāta zīmēšana pa pikseļiem    7
  Taisnās līnijas zīmēšana pa pikseļiem    8
Фрагмент работы

procedure Aplis(xc,yc,r:integer);
var
x, y :integer;
p :real;
begin
x:=0;
y:=r;
p:=5/4-r;
Form1.Canvas.Pixels[x+xc,y+yc]:=0;
Form1.Canvas.Pixels[-x+xc,y+yc]:=0;
Form1.Canvas.Pixels[x+xc,-y+yc]:=0;
Form1.Canvas.Pixels[-x+xc,-y+yc]:=0;
Form1.Canvas.Pixels[y+xc,x+yc]:=0;
Form1.Canvas.Pixels[-y+xc,x+yc]:=0;
Form1.Canvas.Pixels[y+xc,-x+yc]:=0;
Form1.Canvas.Pixels[-y+xc,-x+yc]:=0;
while x<=y do begin
if p<0 then begin
x:=x+1;
p:=p+2*x+1;
end
else begin
x:=x+1; y:=y-1; p:=p+2*x-2*y+1;…

Коментарий автора
Atlants