Uploaded by van1960

Графический режим

advertisement
Графический режим языка
Инициализация графического
режима.
Для поддержки программ ,которые
используют графический режим работы
дисплея, в языке Turbo Pascal
существует модуль GraphABC.
Данный модуль необходимо описать в
разделе подключения драйверов в таком
виде: Uses graph;
Инициализация графического
режима.
Дальше в основной программе в первую
очередь нужно инициализировать такой
режим с помощью процедуры
(подпрограммы) InitGraph.
Общий вид Этой процедуры такой:
InitGraph(режим, путь к драйверу) ;
Инициализация графического
режима.
Для первого параметра (режим) можно использовать
такие режимы :
1.vga ;
2.vgahi ;
Для второго параметра (путь к драйверу) нужно
указать путь к каталогу, в котором находится
соответствующий драйвер поддержки выбранного
режима.
Например:
InitGraph(vga,vgahi,’C:\TP71’);
Инициализация графического
режима.
В Turbo Pascal экран имеет расширение 640*480
пикселей. Это значит ,что Х может принимать
значения от 0 до 640, а Y – от 0 до 480.
Дисплей в Turbo Pascal:
X
:
Y
Инициализация графического
режима.
Program primer;
Uses graph;
crt:
Var vga, vgahi: integer;
Begin
Initgraph(vga,vgahi,’C:\tp71’);
Стандартные процедуры и графические
функции.
Стандартные процедуры и функции для
построения графических примитивов:
PutPixel(X,Y,цвет) – выводит в
заданную позицию точку с указанным
цветом.
Пример:PutPixel(123,423,yellow);
Стандартные процедуры и графические
функции.
Стандартные процедуры и функции
для построения графических
примитивов:
Line(X1,Y1,X2,Y2) – проводит линию
между указанными координатами
текущим стилем и цветом.
Пример: Line(123,500,320,240);
Стандартные процедуры и графические
функции.
Стандартные процедуры и функции
для построения графических
примитивов:
LineTo(X,Y) – проводит линию от
текущей точки до координат(X,Y).
Пример: LineTo(123,120);
Стандартные процедуры и графические
функции.
Стандартные процедуры и функции
для построения графических
примитивов:
LineRel(Dx,Dy) – проводит линию от
текущей точки с приростом Dx и Dy.
Пример: LineRel(124,231);
Стандартные процедуры и графические
функции.
Стандартные процедуры и функции для
построения графических примитивов:
Rectangle(X1,Y1,X2,Y2) – выводит
прямоугольник с координатами левого
верхнего и правого нижнего углов.
Стандартные процедуры и графические
функции.
Стандартные процедуры и функции для
построения графических примитивов:
Bar(X1,Y1,X2,Y2) – выводит
прямоугольник закрашенный текущем
стилем и цветом.
Пример: Bar(540,234,247,345);
Стандартные процедуры и графические
функции.
Circle(X,Y,радиус) – изображает
окружность с центром в (X,Y),
радиус нужно задать в пикселях.
Пример: Circle(320,240,50);
Стандартные процедуры и графические
функции.
Arc(X,Y,начальный угол, конечный
угол, радиус) -выводит дугу между
указанными углами с центром в (X,Y).
Углы задавать в градусах, углы
рассчитываются против часовой
стрелки.
Пример: Arc(234,123,233,240,20);
Стандартные процедуры и графические
функции.
PiesLice(X,Y,начальный угол,
конечный угол,радиус) – изображает
сектор закрашенный текущим
стилем и цветом.
Пример:
PiesLice(234,345,100,180,10);
Стандартные процедуры и графические
функции.
Ellipse(X,Y,начальный угол, конечный
угол, горизонтальный радиус,
вертикальный радиус) – выводит
эллипсную дугу.
Пример: Ellipse(123,12,180,0,10,12);
Стандартные процедуры и графические
функции.
FillPoly(N,координаты) – выводит
замкнутый многоугольник и
штрихует его текущем видом
штрихования.
Пример:
FillPoly(4,123,234,234,345,240,222,4,1
23);
Стандартные процедуры и графические
функции.
DrawPoly(N,координаты) –
изображает ломанную линию линию.
N – количество точек перелома (Х1,
Y1, X2, Y2, …, Xn ,Yn).
Пример:
DrawPoly(4,123,23,132,24,234,2,123,1
2);
Стандартные процедуры и графические
функции. (продолжение)
SetColor(цвет) – устанавливает цвет для
выведения символов и линий на экране.
Пример: SetColor(red);
SetBKColor(цвет) – устанавливает цвет фона.
Пример: SetBKColor(blue);
SetFillstyle(код,цвет) – устанавливает вид
штрихования в соответствии с кодом, который
может принимать значения от 1 до 11 .
Пример: SetFillStyle(2,green);
FloodFill(X,Y,цвет границы) – штрихует любую
замкнутую область, где X, Y – координаты в
середине этой области.
Пример: FloodFill(320,240,red);
OutTextXY(X,Y,’ваш текст’) – выводит на экран
введённый вами текст.(Воспринимает только
латинские буквы).
Пример: OutTextXY(100,200,’Maloy’);
SetTextStyle(шрифт,вид отображения текста,
размер) – устанавливает вид текста на экране,
шрифт и размер текста текущим цветом. Вид
отображения текста может принимать два
значения 0 и 1:
0 – слева на право.
1 – снизу вверх.
В Turbo Pascal шрифт обозначается цифрами от 1 до 4.
Пример: SetTextStyle(3,0,9);
ClearDevice – эта процедура отчищает весь экран.
CloseGraph – эта процедура используется для закрытия
графического режима. Её рекомендуется использовать в
конце каждой программы в которой используется
графический режим.
Цветовая гамма языка
Turbo Pascal
Графический режим языка Turbo Pascal
поддерживает шестнадцать цветов:
0,Black – чёрный.
1,Blue – синий.
2,Green – зелёный.
3,Cyan – голубой.
4,Red – красный.
5,Magenta – фиолетовый.
6,Brown – коричневый.
7,LightGray – светло-серый.
8,DarkGray – тёмно-серый.
9,LightBlue – светло-синий.
10,LightGreen – светло-зелёный.
11,LightGyan – светло-голубой.
12,LightRed – розовый.
13,LightMagenta – малиновый.
14,Yellow – жёлтый.
15,White – белый.
Цвета в Turbo Pascal можно обозначать как
словами так и цифрами. Например красный цвет
можно записать как red или просто поставить 4.
Вы только что
ознакомились с
графическим режимом
языка
File
Edit
Search
Run
Compile
Run
Program primer1;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Readln;
End.
.
Tools
NONAME00.PAS
Ctrl+F9
Strepover
F8
Trace into
F7
Go to cursur
F4
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Putpixel(123,423,yellow);
Debug
Parameters
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer2;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Readln;
End.
Tools
NONAME00.PAS
Ctrl+F9
Strepover
F8
Trace into
F7
Go to cursur
F4
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Line(123,500,320,240);
Debug
Parameters
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer3;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Lineto(123,120);
Readln;
End.
Tools
NONAME00.PAS
Ctrl+F9
Strepover
F8
Trace into
F7
Go to cursur
F4
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Line(320,240,400,240);
Debug
Parameters
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer4;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Linerel(124,231);
Readln;
End.
Tools
NONAME00.PAS
Ctrl+F9
Strepover
F8
Trace into
F7
Go to cursur
F4
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Putpixel(320,240,red);
Debug
Parameters
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer5;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
NONAME00.PAS
Ctrl+F9
F8
Trace into
F7
Go to cursur
F4
Rectangle(123,23,254,240); Parameters
End.
Tools
Strepover
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Readln;
Debug
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer6;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Readln;
End.
Tools
NONAME00.PAS
Ctrl+F9
Strepover
F8
Trace into
F7
Go to cursur
F4
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Bar(540,234,247,345);
Debug
Parameters
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer7;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Readln;
End.
Tools
NONAME00.PAS
Ctrl+F9
Strepover
F8
Trace into
F7
Go to cursur
F4
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Circle(320,240,50);
Debug
Parameters
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer8;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Readln;
End.
Tools
NONAME00.PAS
Ctrl+F9
Strepover
F8
Trace into
F7
Go to cursur
F4
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Arc(234,123,233,240,20);
Debug
Parameters
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer9;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
NONAME00.PAS
Ctrl+F9
F8
Trace into
F7
Go to cursur
F4
PiesLice(234,345,100,180,10);Parameters
End.
Tools
Strepover
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Readln;
Debug
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer10;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
NONAME00.PAS
Ctrl+F9
F8
Trace into
F7
Go to cursur
F4
Ellipse(123,12,180,0,10,12); Parameters
End.
Tools
Strepover
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Readln;
Debug
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer11;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
NONAME00.PAS
Ctrl+F9
F8
Trace into
F7
Go to cursur
F4
FillPoly(4,123,234,234,345,240,222,4,123);
Parameters
End.
Tools
Strepover
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Readln;
Debug
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer12;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
NONAME00.PAS
Ctrl+F9
F8
Trace into
F7
Go to cursur
F4
DrawPoly(4,123,23,132,24,234,21,123,12);
Parameters
End.
Tools
Strepover
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Readln;
Debug
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer14;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Line(100,100,200,200);
Readln;
End.
Tools
NONAME00.PAS
Ctrl+F9
Strepover
F8
Trace into
F7
Go to cursur
F4
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Setcolor(red);
Debug
Parameters
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer13;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Readln;
End.
Tools
NONAME00.PAS
Ctrl+F9
Strepover
F8
Trace into
F7
Go to cursur
F4
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
SetBKColor(blue);
Debug
Parameters
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer15;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Circle(320,240,20);
Setfillstyle(2,green);
Floodfill(320,240);
Readln;
End.
Tools
NONAME00.PAS
Ctrl+F9
Strepover
F8
Trace into
F7
Go to cursur
F4
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Setcolor(green);
Debug
Parameters
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer16;
Uses crt,graph;
Var vga,vgahi:integer;
Begin
Circle(320,240,30);
FloodFill(red);
Readln;
End.
Tools
NONAME00.PAS
Ctrl+F9
Strepover
F8
Trace into
F7
Go to cursur
F4
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Setcolor(red);
Debug
Parameters
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer17;
Malloy
Uses crt,graph;
Var vga,vgahi:integer;
Begin
NONAME00.PAS
Ctrl+F9
F8
Trace into
F7
Go to cursur
F4
OutTextxy(100,200,’Maloy’);Parameters
End.
Tools
Strepover
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Readln;
Debug
Ctrl+F2
Options
Windows
Help
File
Edit
Search
Run
Compile
Run
Program primer18;
Ctrl+F9
Trace into
Maloy
F7
Go to cursur
F4
Program reset
Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);
Setcolor(red);
SetTextStyle(1,0,9);
OutTextxy(100,200,’Maloy’);
End.
NONAME00.PAS
F8
Var vga,vgahi:integer;
Readln;
Tools
Strepover
Uses crt,graph;
Begin
Debug
Parameters
Ctrl+F2
Options
Windows
Help
Download