Работа с графикой в GWBASIC
Изображение на экране состоит из точек с целыми координатами.
Экранная система координат:
Графические команды:
SCREEN 9 – перевести экран в графический режим
CLS – очистить экране
PSET(X,Y) – нарисовать точку в координатах (Х,У)
Пример использования:
PSET(100,200) – нарисовать точку в координатах (100,200)
PSET(X,Y),C нарисовать точку цвета С в координатах (Х,У)
Пример использования:
PSET(100,200),2 – нарисовать зелёную точку в координатах (100,200)
Список цветов:
0 – чёрный
1 – синий
2 – зелёный
3 – сине-зелёный
4 – красный
5 – малиновый
6 – оранжевый
7 – светло-серый
8 – тёмно-серый
9 – сиреневый
10 – травяной
11 – голубой
12 – ярко-красный
13 – ярко-малиновый
14 – жёлтый
15 – белый
LINE(X1,Y1)-(X2,Y2) – провести линию из точки с координатами (Х1,У1) в точку с координатами (Х2,У2)
Пример использования:
LINE(100,200)-(250,300) - провести линию из точки с координатами (100,200) в точку с координатами (250,300)
LINE(X1,Y1)-(X2,Y2),C– провести линию цвета С из точки с координатами (Х1,У1) в точку с координатами (Х2,У2)
LINE(100,200)-(250,300),14 - провести жёлтую линию из точки с координатами (100,200) в точку с координатами (250,300)
LINE(X1,Y1)-(X2,Y2),C,B – нарисовать прямоугольник цвета С, диагональю которого будет линия (X1,Y1)-(X2,Y2)
Пример использования:
LINE(100,200)-(250,300),8,В – нарисовать тёмно-серый прямоугольник, диагональю которого будет линия (100,200)-(250,300)
LINE(X1,Y1)-(X2,Y2),C,BF – нарисовать и закрасить цветом С прямоугольник, диагональю которого будет линия (X1,Y1)-(X2,Y2)
Пример использования:
LINE(100,200)-(250,300),10,ВF – нарисовать и закрасить светло-зелёный прямоугольник, диагональю которого будет линия (100,200)-(250,300)
CIRCLE(X,Y),R – нарисовать окружность с центром в точке (Х1,У1) и радиусом R.
Пример использования:
CIRCLE(100,200),50 – нарисовать окружность с центром в точке (100,200) и радиусом 50.
CIRCLE(X,Y),R,C - нарисовать окружность цвета С с центром в точке (Х1,У1) и радиусом R.
CIRCLE(X,Y),R,C,A1,A2 – Нарисовать дугу от угла А1 до угла А2 окружности цвета С с центром в точке (Х1,У1) и радиусом R
Пример использования:
CIRCLE(100,200),50,4,0,1.507
CIRCLE(X,Y),R,C,A1,A2,D Нарисовать дугу эллипса со степенью сжатия D от угла А1 до угла А2 цвета С с центром в точке (Х1,У1) и радиусом большой полуоси R
Пример использования:
CIRCLE(100,200),50,4,0,3.14,10
Задание для работы у доски №1: Написать программу, которая нарисует на экране смайлик
1. Составим чертёж выводимого на экран изображения:
Рисунок будет состоять из трёх окружностей и одной полуокружности.
2. Определим координаты их центров и радиусы:
3. Пишем программу:
Переводим экран в графический режим:
10 SCREEN 9
Очищаем экран
20 CLS
Рисуем контур лица
30 CIRCLE (200,150),80
Рисуем левый глаз
40 CIRCLE (180,120),5
Рисуем правый глаз
50 CIRCLE(220,120),5
Рисуем улыбку
60 CIRCLE(200,150),60,15,3.5,5.9
4. Запускаем программу (нажать F2, когда курсор находится на пустой строке)
Задание для работы у доски №2: Написать программу, которая нарисует на экране ёлку
1. Составим чертёж выводимого на экран изображения:
2. Определим координаты точек, по которым будем строить линии.
3. Пишем программу:
Переводим экран в графический режим:
10 SCREEN 9
Очищаем экран
20 CLS
Рисуем верхний треугольник
30 LINE(260,70)-(310,120),2
40 LINE(310,120)-(210,120) ,2
50 LINE(210,120)-(260,70) ,2
Средний треугольник
60 LINE(260,120)-(330,190) ,2
70 LINE(330,190)-(190,190) ,2
80 LINE(190,190)-(260,120) ,2
Нижний треугольник
90 LINE(260,190)-(380,250) ,2
100 LINE(380,250)-(140,250) ,2
110 LINE(140,250)-(260,190) ,2
Прямоугольник ствола
120 LINE(250,250)-(270,300),8,B
4. Запускаем программу (нажать F2, когда курсор находится на пустой строке)
Задание для работы у доски №3: Написать программу, которая нарисует прямоугольники размером 15х300 всех возможных цветов.
Используем оператор цикла. Счётчик цикла I будет одновременно задавать цвет прямоугольника и его положение на экране
10 SCREEN 9
20 CLS
30 FOR I=0 TO 15
40 LINE(I*15,0)-(I*15+15,300),I
50 NEXT I
Запускаем программу (нажать F2, когда курсор находится на пустой строке)
Задания для самостоятельной работы:
Написать программу, которая выводила бы на экране одно из изображений. Задание выбирайте под номером 1+n%9, где n- ваш номер в журнале
Изображение на экране состоит из точек с целыми координатами.
Экранная система координат:
Графические команды:
SCREEN 9 – перевести экран в графический режим
CLS – очистить экране
PSET(X,Y) – нарисовать точку в координатах (Х,У)
Пример использования:
PSET(100,200) – нарисовать точку в координатах (100,200)
PSET(X,Y),C нарисовать точку цвета С в координатах (Х,У)
Пример использования:
PSET(100,200),2 – нарисовать зелёную точку в координатах (100,200)
Список цветов:
0 – чёрный
1 – синий
2 – зелёный
3 – сине-зелёный
4 – красный
5 – малиновый
6 – оранжевый
7 – светло-серый
8 – тёмно-серый
9 – сиреневый
10 – травяной
11 – голубой
12 – ярко-красный
13 – ярко-малиновый
14 – жёлтый
15 – белый
LINE(X1,Y1)-(X2,Y2) – провести линию из точки с координатами (Х1,У1) в точку с координатами (Х2,У2)
Пример использования:
LINE(100,200)-(250,300) - провести линию из точки с координатами (100,200) в точку с координатами (250,300)
LINE(X1,Y1)-(X2,Y2),C– провести линию цвета С из точки с координатами (Х1,У1) в точку с координатами (Х2,У2)
LINE(100,200)-(250,300),14 - провести жёлтую линию из точки с координатами (100,200) в точку с координатами (250,300)
LINE(X1,Y1)-(X2,Y2),C,B – нарисовать прямоугольник цвета С, диагональю которого будет линия (X1,Y1)-(X2,Y2)
Пример использования:
LINE(100,200)-(250,300),8,В – нарисовать тёмно-серый прямоугольник, диагональю которого будет линия (100,200)-(250,300)
LINE(X1,Y1)-(X2,Y2),C,BF – нарисовать и закрасить цветом С прямоугольник, диагональю которого будет линия (X1,Y1)-(X2,Y2)
Пример использования:
LINE(100,200)-(250,300),10,ВF – нарисовать и закрасить светло-зелёный прямоугольник, диагональю которого будет линия (100,200)-(250,300)
CIRCLE(X,Y),R – нарисовать окружность с центром в точке (Х1,У1) и радиусом R.
Пример использования:
CIRCLE(100,200),50 – нарисовать окружность с центром в точке (100,200) и радиусом 50.
CIRCLE(X,Y),R,C - нарисовать окружность цвета С с центром в точке (Х1,У1) и радиусом R.
CIRCLE(X,Y),R,C,A1,A2 – Нарисовать дугу от угла А1 до угла А2 окружности цвета С с центром в точке (Х1,У1) и радиусом R
Пример использования:
CIRCLE(100,200),50,4,0,1.507
CIRCLE(X,Y),R,C,A1,A2,D Нарисовать дугу эллипса со степенью сжатия D от угла А1 до угла А2 цвета С с центром в точке (Х1,У1) и радиусом большой полуоси R
Пример использования:
CIRCLE(100,200),50,4,0,3.14,10
Задание для работы у доски №1: Написать программу, которая нарисует на экране смайлик
1. Составим чертёж выводимого на экран изображения:
Рисунок будет состоять из трёх окружностей и одной полуокружности.
2. Определим координаты их центров и радиусы:
3. Пишем программу:
Переводим экран в графический режим:
10 SCREEN 9
Очищаем экран
20 CLS
Рисуем контур лица
30 CIRCLE (200,150),80
Рисуем левый глаз
40 CIRCLE (180,120),5
Рисуем правый глаз
50 CIRCLE(220,120),5
Рисуем улыбку
60 CIRCLE(200,150),60,15,3.5,5.9
4. Запускаем программу (нажать F2, когда курсор находится на пустой строке)
Задание для работы у доски №2: Написать программу, которая нарисует на экране ёлку
1. Составим чертёж выводимого на экран изображения:
2. Определим координаты точек, по которым будем строить линии.
3. Пишем программу:
Переводим экран в графический режим:
10 SCREEN 9
Очищаем экран
20 CLS
Рисуем верхний треугольник
30 LINE(260,70)-(310,120),2
40 LINE(310,120)-(210,120) ,2
50 LINE(210,120)-(260,70) ,2
Средний треугольник
60 LINE(260,120)-(330,190) ,2
70 LINE(330,190)-(190,190) ,2
80 LINE(190,190)-(260,120) ,2
Нижний треугольник
90 LINE(260,190)-(380,250) ,2
100 LINE(380,250)-(140,250) ,2
110 LINE(140,250)-(260,190) ,2
Прямоугольник ствола
120 LINE(250,250)-(270,300),8,B
4. Запускаем программу (нажать F2, когда курсор находится на пустой строке)
Задание для работы у доски №3: Написать программу, которая нарисует прямоугольники размером 15х300 всех возможных цветов.
Используем оператор цикла. Счётчик цикла I будет одновременно задавать цвет прямоугольника и его положение на экране
10 SCREEN 9
20 CLS
30 FOR I=0 TO 15
40 LINE(I*15,0)-(I*15+15,300),I
50 NEXT I
Запускаем программу (нажать F2, когда курсор находится на пустой строке)
Задания для самостоятельной работы:
Написать программу, которая выводила бы на экране одно из изображений. Задание выбирайте под номером 1+n%9, где n- ваш номер в журнале
Немає коментарів:
Дописати коментар