Ko'pburchaklarni qurish
To'rtburchaklar qurish
To'rtburchaklar shakllarni qurish uchun bir necha protseduralar mavjud. Birinchisi , bir o'lchovli to'rtburchak chiziladi: To'rtburchak ( x 1 , y 1 , x 2 , y 2 : integer ) , bu erda x 1 , y 1 - yuqori chap burchakning koordinatalari, x 2 , y 2 - to'rtburchakning pastki o'ng burchagining koordinatalari. To'rtburchak ichidagi maydon soyali emas va fon rangiga mos keladi.
To‘ldirilgan to‘rtburchak chizilgan Bar ( x 1 , y 1 , x 2 , y 2 : integer ) protsedurasi yordamida ko‘proq ko‘zni qamashtiruvchi to‘rtburchaklar qurish mumkin . To'ldirish rangi SetFillStyle yordamida o'rnatiladi . Yana bir ajoyib protsedura: Bar 3 D ( x 1 , y 1 , x 2 , y 2 , d : integer , a : boolean ) uch o'lchamli to'ldirilgan to'rtburchak (quti) chizadi. Bunda SetFillStyle bilan to'ldirish turi va ranglar to'plamidan foydalaniladi . d parametri 3D konturining chuqurligini belgilaydigan piksellar soni . Ko'pincha uning qiymati to'rtburchak kengligining chorak qismiga teng ( d := ( x 2 - x 1 ) div 4 ). a parametri to'rtburchaklar ustida cho'qqi qurishni (a:= True ) yoki yo'qligini ( a := False ) aniqlaydi .
Ko'pburchaklarni qurish
Ko'pburchaklarni turli usullar bilan chizish mumkin, masalan, Line protsedurasidan foydalanish . Biroq Turbo Paskalda joriy rang, uslub va qalinlikdagi chiziq bilan istalgan ko‘pburchak chizish imkonini beruvchi DrawPoly protsedurasi mavjud. U DrawPoly formatiga ega ( a : word , var ko'p nuqtalar ).
PolyPoints parametri ko'pburchakdagi har bir kesishmaning koordinatalarini o'z ichiga olgan tiplanmagan parametrdir. a parametri PolyPoints-dagi koordinatalar sonini belgilaydi. Shuni esda tutish kerakki, N ta burchakli yopiq figurani chizish uchun DrawPoly protsedurasini chaqirishda o'tish kerak. N +1 koordinatasi, bu erda N uchining koordinatasi 1-sonli cho'qqining koordinatasiga teng bo'ladi.
Dastur natijasida ekranda qora fonda qizil uchburchak paydo bo'ladi. FillPoly ( a : word , var _ ko'p nuqtalar ). Parametr qiymatlari DrawPly protsedurasi bilan bir xil . Harakat ham shunga o'xshash, lekin ko'pburchak ichidagi fon bo'yalgan.
Do'stlaringiz bilan baham: |