Практическое задание N 1. 55
1. Составить процедуру рисования N - угольной звезды. В параметры процедуры включить число лучей звезды, радиусы вписанной и описанной окружностей, цвет линий и координаты центра звезды. Перемещать две звезды разного цвета в пределах экрана случайным образом.
2. Составить процедуру рисования N - угольной звезды,
где N= 3, 5, 7, ... Операторы рисования имеют вид:
M:=N div 2; Moveto(x[1],y[1]);
For i:=1 to N do begin j:=(M*i) mod N + 1;
LineTo(x[j],y[j]) end;
Перемещать две звезды разного цвета в пределах экрана.
Толщину и форму (стиль) линийотрезков прямых, прямоугольников, окружностей, эллипсов можно задать оператором
SetLineStyle(F, P, T);
Здесь F - форма линии из стандартного набора BGI:
F=0 - сплошная,
F=1 - пунктирная,
F=2 - штрих-пунктирная,
F=3 - штриховая.
F=4 - форма линии задается параметром Р.При F<4 значение Р игнорируется. Параметры F, P, T типа Word.
Стиль линии Р - число, двоичное представление которого отображает заполнение линии длиной 16 пикселов. Если разряд числа равен 1, то пиксел высвечивается, 0 - не высвечивается. Удобно использовать шестнадцатеричные числа. Например:
P = $35F1 = 0 0 1 1 0 1 0 1 1 1 1 1 0 0 0 1 ( двоичное )
отобразит стиль:
Можно использовать десятичную форму записи значения параметра "Р",
где 0<= P <= 65535= 216-1 .
T - толщина линии может принимать два значения:
T= 1 - тонкая (1 пиксел), T= 3 - толстая (3 пиксела).
Например, операторы: SetLineStyle(4, $5555, 3); Line(x1, y1, x2, y2); определяют толстую мелким пунктиром линию.
Дата добавления: 2016-06-29; просмотров: 1255;