Презентация для урока: Графический режим

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

Работа ученика 11-Б класса

Ярмишко Антона

Инициализация графического режима.

В Turbo Pascal экран имеет расширение 640*480 пикселей . Это значит ,что Х может принимать значения от 0 до 640, а Y – от 0 до 480.

Дисплей в Turbo Pascal:

Пример полной инициализации графического режима:

Для поддержки программ ,которые используют графический режим работы дисплея, в языке Turbo Pascal существует модуль Graph. Данный модуль необходимо описать в разделе подключения драйверов в таком виде: Uses graph;

Дальше в основной программе в первую очередь нужно инициализировать такой режим с помощью процедуры (подпрограммы) InitGraph. Общий вид Этой процедуры такой: InitGraph( режим, путь к драйверу ) ;

Для первого параметра (режим) можно использовать такие режимы : 1 .vga ; 2 .vgahi ; Для второго параметра (путь к драйверу) нужно указать путь к каталогу, в котором находится соответствующий драйвер поддержки выбранного режима. Например: InitGraph(vga,vgahi,’D:\TP7\BGI’);

X

Y

Стандартные процедуры и графические функции.

Стандартные процедуры и функции для построения графических примитивов:

PutPixel( X,Y, цвет ) – выводит в заданную позицию точку с указанным цветом. Пример :PutPixel(12 3 ,42 3 ,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 ) – выводит прямоугольник с координатами левого верхнего и правого нижнего углов. Пример : Rectangle(123,23,234,240); 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,123); DrawPoly( N, координаты ) – изображает ломанную линию линию. N – количество точек перелома (Х1 , Y1, X2, Y2, …, Xn ,Yn). Пример : DrawPoly(4,123,23,132,24,234,2,123,12);

Стандартные процедуры и графические функции.

(продолжение)

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 .

Вы только что ознакомились с графическим режимом языка

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer1;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Putpixel(123,423,yellow);

Readln;

End.

.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer2;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Line(123,500,320,240);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer3;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Line(320,240,400,240);

Lineto(123,120);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer4;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Putpixel(320,240,red);

Linerel(124,231);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer5;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Rectangle(123,23,254,240);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer6;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Bar(540,234,247,345);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer7;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Circle(320,240,50);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer8;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Arc(234,123,233,240,20);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer9;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

PiesLice(234,345,100,180,10);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer10;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Ellipse(123,12,180,0,10,12);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer11;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

FillPoly(4,123,234,234,345,240,222,4,123);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer12;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

DrawPoly(4,123,23,132,24,234,21,123,12);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer14;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Setcolor(red);

Line(100,100,200,200);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer13;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

SetBKColor(blue);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer15;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Setcolor(green);

Circle(320,240,20);

Setfillstyle(2,green);

Floodfill(320,240);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer16;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Setcolor(red);

Circle(320,240,30);

FloodFill(red);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer17;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

OutTextxy(100,200,’Maloy’);

Readln;

End.

Malloy

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer18;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Setcolor(red);

SetTextStyle(1,0,9);

OutTextxy(100,200,’Maloy’);

Readln;

End.

Maloy