Grafik primitivlarni chizish usullari

Grafik primitivlarni chizish usullari Reja: Chiziq Tutashgan chiziq To'rtburchak Multiplikatsiya Chiziq To'g'ri chiziq LineTo usuli orqali amalga oshiriladi. Komponent.Canvas.LineTo(x,u) LineTo usuli qalam joriy pozitsiyasidan berilgan koordinatali nuqtagacha to'g'ri chiziq chizadi. boshlang'ich nuqtani kerakli nuqtaga ko'chirish uchun MoveTo usulidan foydalanish mumkin. Tutashgan chiziq O'zaro tutashgan kesmalardan iborat shaklni chizish uchun polyline usulidan foydalaniladi. Bu usul parametri TPoint tipli massivdan iborat. Polyline usuliga misol tariqasida malum qiymat o'zgarishi grafigini chizuvchi protseduracini keltiramiz: procedure TForml.Button1Click(Sender: TObject); var gr: array[150] of TPoint; x0,y0: integer; dx,dy: integer; i: integer; begin x0 := 10; u0 := 200; dx :=5; dy := 5; for i:=l to 50 do begin gr[i].x := x0 + (i-l)*dx; gr[i].y := y0 - Data[i]*dy; end; with forml.Canvas do begin MoveTo(x0,y0); LineTo(x0,10); MoveTo(x0,y0); LineTo(200,y0); Polyline(gr); end; end; Polyline usuli yordamida yopiq ko'pburchak chizish uchun massivning birinchi va oxirgi elementi bir nuqtaning koordinatalaridan iborat bo'lishi kerak. Aylana va ellips Aylana yoki ellips chizish uchun Ellipse usuli chaqiriladi. Usulni chaqirish instruksiyasi umumiy ko'rinishi: obyekt.Canvas.Ellipse(x1,y1, x2,u2). Bu yerda x1, y1, x2, u2 - ellipsni o'z ichiga olgan minimal turtburchak koordinatalari. Agar turtburchak kvadrat bo'lsa aylana chiziladi. Yey Yoyni chizish uchun Arc usuli qo'llaniladi va u quyidagi umumiy ko'rinishga ega: obyekt.Canvas.Arc(x1,y1,x2,u2,x3,u3,x4,u4) Bu yerda: x1, y1, x2, u2 - yoyga tegishli bo'lgan ellips yoki aylana parametrlari; x3, u3 - yoy boshlang'ich nuqtasi parametrlari; x4, u4 - so'ngi nuqtasi parametrlari. Yoy soat miliga teskari tartibda chiziladi. To'rtburchak To'rtburchak Rectangle usuli bilan chizilib, bu usulni chaqirish instruksiyasi umumiy ko'rinishi quyidagicha: obyekt.Canvas.Rectangle(x1, y1,x2, y2) Bu yerda x1, y1 va x2, u2 - chapgi yuqori va o'nggi pastgi burchaklar koordinatalari. RoundRec usuli burchaklari yumaloq to'rtburchak chizishga imkon beradi. RoundRec usulini chakirish instruksiyasi quyidagi ko'rinishga ega: obyekt.Canvas.RoundRec(x1,y1,x2, u2, x3, u3) Bu yerda: x1, y1, x2, u2 - turtburchak parametrlari; x3 i u3 - chorak kismi yumalok burchak chizish uchun ishlatildadigan ellips kattaligi. Yana ikki usul muyqalamdan foydalanib to'rtburchak chizishga imkon beradi. FillRect usuli ichi bo'yalgan to'rtburchak chizadi, FrameRect - faqat kontur. Bu usullarda faqat bitta parametrga ega -TRect tipidagi struktura. Quyidagi misolda FillRect va FrameRect usullari orqali forma yuzasiga qizil turtburchak soha va yashil konturli to'rtburchak chizuvchi protsedura keltirilgan. procedure TForm1.Button1Click(Sender: TObject); var r1, r2: TRect; begin r1 := Rect(20,20,60,40); r2 := Rect(10,10,40,50); with form1.Canvas do begin Brush.Color := clRed; FillRect(r1); Brush.Color := clGreen; FrameRect(r2; end; end; Ko'pburchak Polygon usuli ko'pburchak chizishga mo'ljallangan bo'lib, parametri TPoint tipidagi massivdir. Massivning har bir elementi (x,u) maydonlari ko'pburchak uchi koordinatalaridan iborat bo'lgan yozuvdir. Quyida polygon usuli ...