Разработка и Delphi

Процедурата за рисуване на кръг с текущия цвят има следния формат:

Circrle ( x , y , r : дума ), където x , y са координатите на центъра на окръжността, r е нейният радиус.

Например, този кодов фрагмент ще изведе яркозелен кръг с радиус от 50 пиксела с център (450, 100):

кръг (450, 100, 50);

Дъги могат да бъдат начертани с помощта на процедурата Arc ( x , y : цяло число , a , b , R : цяло число ), където x , y е центърът на окръжността, a , b са началният и крайният ъгъл в градуси, R е радиусът. За определяне на ъглите се използва полярната координатна система.

Цветът за рисуване се задава от процедурата SetColor. В случай на a =0 и b =360 се начертава пълен кръг.

Например, нека начертаем червена дъга от 0 до 90 ° в кръг, вече начертан с Circle(450, 100, 50):

Дъга (450, 100, 0, 90,50);

Процедурата Ellipse (x, y: цяло число, a, b, Rx, Ry: цяло число) е предназначена за конструиране на елиптични дъги, където x, y е центърът на елипсата, Rx, Ry: хоризонталната и вертикалната ос. В случай на a =0 и b =360 се начертава пълна елипса. Например, нека изградим синя елипса:

Елипса (100, 100, 0, 360, 50.50);

Фонът в елипсата съответства на фона на екрана. За да създадете запълнена елипса, използвайте специалната процедура FillEllipse (x, y: цяло число, Rx, Ry: цяло число). Елипса се запълва с помощта на процедурата SetFillStyle ( a , b : word ), където a е стилът на запълване (Таблица 4), b е цветът за запълване (Таблица 1). Например, нека нарисуваме яркочервена елипса, пълна с редки зелени точки:

---