exemplu:
PutPixel (320, 240, 4); sau PutPixel (320, 240, roșu); - afișează un punct roșu în centrul ecranului.
Punctele sunt extrase din puncte (linii drepte). Acest lucru se poate face folosind procedura Line (x1, Y1, X2, Y2, Integer); - unde x1. y1 - coordonatele începutului, x2, y2 - coordonatele capătului liniei, de exemplu Linia (1,1,600,1);
Nu există niciun parametru în procedura Linie pentru setarea culorii. În acest caz, culoarea este setată de procedura SetColor (culoare: cuvânt); unde culoarea este din tabelul 1.
Pentru a trasa linii, se folosesc două proceduri suplimentare: LineTo și LineRel.
Procedura LineTo (x, y: integer) construiește o linie din punctul poziției curente a indicatorului la punctul cu coordonatele x, y. Procedura LineRel (dx, dy: integer) trasează o linie din punctul locului curent al indicatorului x, y până la punctul x + dx, y + dy.
Turbo Pascal vă permite să desenați linii cu un stil diferit: subțire, lată, punctată, punctată etc. Setarea stilului se face prin procedura SetLineStyle (a, b, c:> word), unde a - setează tipul de linie, valori posibile din tabelul 2; b este eșantionul, c este grosimea liniei, determinată de constantele specificate în Tabelul 3. Dacă se folosește unul dintre stilurile standard, valoarea b este 0. Dacă utilizatorul dorește să activeze propriul stil, valoarea b = 4. În acest caz, utilizatorul specifică modelul primitiv (modelul) de la care este construită linia.
De exemplu
SetLineStyle (1, 0, 1);
Linia (15, 15, 150, 130);
sau
SetLineStyle (UserBitLn, $ 5555, ThickWidth);
Linia (15, 15, 150, 130);
Trimiteți-le prietenilor: