ПредишенСледващото

например:
PutPixel (320, 240, 4); или PutPixel (320, 240, червено); - Показва в центъра е на мястото на червено.

Точки конструирана линия (права линия сегменти). Това може да стане с помощта на процедурите на линията (x1 y1 x2 y2 целочислени ....); - където x1. Y1 - началото на координатите, x2, y2 - координатите на края на линията, като Line (1,1,600,1);

В процедура Line няма опция за задаване на цвят. В този случай, на цвят дадена процедура SetColor (Цвят: дума); където цветът на таблица 1.

Рисуване линии, използвани две други процедури: LineTo и LineRel.

Процедура LineTo (х, у: цяло число) се основава на ред от точката на текущата позиция на курсора до точка с координатите х, у. процедура LineRel (DX, ди: число) обръща линия от точката на текущото местоположение указател X, Y в точката х + DX, у + ди.

Turbo Pascal ви позволява да парцел линии от различни стилове: тънка, широка, пунктирана, осеян и т.н. Монтаж процедура извършва SetLineStyle стил (а, б, в:> дума), където - определя вида на низ, възможните стойности на които са дадени в таблица 2; б - проба, е - Ширина на линията определя константи, изброени в таблица 3. Ако използвате една от стандартния стил, стойност В е равен на 0. Ако потребителят иска да активирате собствения си стил, стойност B = 4. В този случай, потребителят сам показва, примитивен (извадка), от който е изграден на линията.

например
SetLineStyle (1, 0, 1);
Линия (15, 15, 150, 130);
или
SetLineStyle (UserBitLn, $ 5555, ThickWidth);
Линия (15, 15, 150, 130);

Подкрепете проекта - споделете линка, благодаря!