Author:
Evaluation:
Published: 29.08.2005.
Language: Latvian
Level: Secondary school
Literature: n/a
References: Not used
  • Summaries, Notes 'Ģeometrisko figūru zīmēšana pa pikseļiem', 1.
  • Summaries, Notes 'Ģeometrisko figūru zīmēšana pa pikseļiem', 2.
  • Summaries, Notes 'Ģeometrisko figūru zīmēšana pa pikseļiem', 3.
  • Summaries, Notes 'Ģeometrisko figūru zīmēšana pa pikseļiem', 4.
  • Summaries, Notes 'Ģeometrisko figūru zīmēšana pa pikseļiem', 5.
  • Summaries, Notes 'Ģeometrisko figūru zīmēšana pa pikseļiem', 6.
  • Summaries, Notes 'Ģeometrisko figūru zīmēšana pa pikseļiem', 7.
  • Summaries, Notes 'Ģeometrisko figūru zīmēšana pa pikseļiem', 8.
  • Summaries, Notes 'Ģeometrisko figūru zīmēšana pa pikseļiem', 9.
  • Summaries, Notes 'Ģeometrisko figūru zīmēšana pa pikseļiem', 10.
Table of contents
Nr. Chapter  Page.
  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
Extract

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;…

Author's comment
Atlants