Development та Дельфі

Процедура викреслення кола поточним кольором має такий формат:

Cicrle (x, y, r: word), де x, y – координати центру кола, r – її радіус.

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

Circle(450, 100, 50);

Дуги можна викреслити за допомогою процедури Arc (x, y: integer, a, b, R: integer), де x, y - центр кола, a, b - початковий і кінцевий кути в градусах, R - радіус. Для завдання кутів використається полярна система координат.

Колір для креслення встановлюється процедурою SetColor. У разі a = 0 і b = 360, викреслюється повне коло.

Наприклад, виведемо дугу червоного кольору від 0 до 90° у вже викресленому за допомогою Circle(450, 100, 50) кола:

Arc(450, 100, 0, 90,50);

Для побудови еліптичних дуг призначена процедура Ellipse (x, y: integer, a, b, Rx, Ry: integer), де x, y – центр еліпса, Rx, Ry: горизонтальна та вертикальна осі. Що стосується a =0 і b =360 викреслюється повний еліпс. Наприклад, побудуємо блакитний еліпс:

Ellipse (100, 100, 0, 360, 50,50);

Фон всередині еліпса збігається з екраном фону. Щоб створити зафарбований еліпс, використовується спеціальна процедура FillEllipse (x, y: integer, Rx, Ry: integer). Забарвлення еліпса здійснюється за допомогою процедури SetFillStyle (a, b: word), де а – стиль забарвлення (таблиця 4), b – колір забарвлення (таблиця 1). Наприклад, намалюємо яскраво-червоний еліпс, заповнений рідкісними точками зеленого кольору:

---