Операторы PSET, preset

Отдельный пиксель можно “зажечь” заданным цветом любой из двух универсальных команд графического режима:

PRESET (X,Y)[,C]

PSET (X,Y)[,C]

Формат команд одинаков: сначала указываются координаты точки, а затем, если необходимо – номер цвета точки. Если цвет указан, действие команд совершенно одинаково: точка окрашивается цветом С. Если цвет опущен, PSET окрашивает точку текущим цветом символов, а PRESET – текущим цветом фона (она будет невидимой).

Пример 1. Изобразить на экране бегуший отрезок.

SCREEN 12

COLOR 4,3

FOR X=1 TO 640

PSET (X,240)

PRESET (X-10,240)

NEXT X

Пример 2. Нарисовать в центре голубого экрана желтый крест.

SCREEN 12

COLOR 14,3

Y=210

FOR X=310 TO 330

PSET(X,Y)

PSET(640-X,Y)

Y=Y+1

NEXT X

Операторы PSET и PRESET могут иметь еще следующие формы:

PSET STEP (X,Y)

PRESET STEP (X,Y)

STEP в этих операторах указывает на смещение точки относительно координат последней точки.

Прямые линии – отрезки

Оператор LINE предназначен для рисования отрезка, соединяющего две произвольные точки экрана.

Формат:

LINE[(X1,Y1)]-(X2,Y2)[,C]

X1,Y1 - координаты начала отрезка.

X2,Y2 - координаты конца отрезка.

С - цвет.

Если координаты начала отрезка опущены, то отрезок будет начинаться с координат последней точки.

В операторе LINE можно использовать относительные координаты для начала и/или конца отрезка. Например:

LINE STEP (10,10)-(100,165) будет нарисован отрезок от точки с координатами последней точки + 10,10 до точки с координатами 100,165.

LINE (115,120) – STEP(-10,15) будет нарисован отрезок от точки с координатами 115,120 до точки с координатами 105,135.

LINE STEP(-5,5) – STEP(5,-5) будет нарисован отрезок от точки с координатами последней точки -5,5 до точки с приращением +5,-5.

Рисование прямоугольников

Конечно, можно нарисовать прямоугольник с помощью операторов LINE, повторяя их четыре раза для рисования четырех сторон, но можно для этой цели выбрать более простой путь.

Формат: