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 de poziția curentă a cursorului la un punct cu coordonatele x, y. Procedura LineRel (dx, dy: integer) trasează o linie din punctul de pointer locația curentă x, y, la punctul x + dx, y + dy.
Turbo Pascal vă permite să complot linii de diferite stiluri: subțire, larg, punctată, punctate, etc. Procedura de instalare efectuate SetLineStyle stil (a, b, c:> cuvânt), în cazul în care un - setează tipul de șir, posibile ale căror valori sunt indicate în tabelul 2; b - o probă, s - lățimea liniei determinate constantele enumerate în tabelul 3. Dacă utilizați unul dintre stilul standard, valoarea b este egal cu 0. Dacă utilizatorul dorește să activeze propriul său 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: