Графикалық режим. Координаттар жазықтығы

Сабақтың тақырыбы: Графикалық режим. Координаттар жазықтығы.

Система координат (0,0) (x,y) X Y x y

Благодаря этой рекламе сайт может продолжать свое существование, спасибо за просмотр.

Графикалық процедуралар және функциялар Процедураларсыз күрделі программалар құруға  болмайды. Pascal-дағы ірірек бірліктер бұл – көптеген процедуралары мен функциялары бар программалық модульдер. Модульдер – тәуелсіз программалар. Модульді программаға қосу үшін оның атын көрсету (нұсқау) жеткілікті: USES модуль аты Компьютермен текстік және графикалық режимде жұмыс істеу үшін сәйкес стандартты кітапханалық модульдерді қосу қажет: USES crt Crt модулін пайдалана отырып, экранға шығатын символдардың түсін, мөлшерін, экранның түсін өзгертуге болады. USES graph

Курсорды басқаратын және оны кез келген экран нүктесіне орналастыратын процедура Go to XY (Х,У:bate)-курсорды координаталары Х,У болып келетін экран нүктесіне көшіреді. Window(Х1,У1,Х2,У2: bate) –экранда терезе құру процедурасы.

Графикалық режимге көшу процедурасы Графикамен жұмыс жасаудың алдында монитордың ең келісімді бейнережимін орнату керек. driver:=detect командасы detect стандартты костантаның көмегімен драйвердің типін анықтайды.  Graph модулінің  InitGraph процедурасы драйвердің типін орналасуын  және оның жұмысы режимін (шешілуін, палитра типін) көрсете отырып, графикалық режимді іске қосады. ЖАЗЫЛУЫ: Initgraph  (driver var, mode var:integer), driver var, mode var - бүтін типтегі екі айнымалы

Графикалық режим процедуралары мен функциялары. CloseGraph процедурасы графикалық режимнен шығару қызметін атқарады. GetGraphMode : integer- функциясы графикалық режимнің ағымдағы мәнін көрсетеді. SetGraphMode(Mode:integer) –процедурасы графикалық режимді орнатады және экранды тазалайды. Моde –орнатылатын режим коды,осы процедура көмегімен графикалық режимге көшуге және кері өтуге мүмкіндік береді.

Move To (X,Y:integer) –курсорды көрсетілген жаңа координаталарға жылжыту. MoveRel (DX DY:integer) –курсорды тұрған нүктесінен әрі қарай (оңға/ төмен) жылжыту. Restore CRTMode – процедурасы графикалық режимнің алдыңғы режимді қалпына келтіру. Get X:integer –функциясы Х координатасының ағымдағы мәнін береді. Get Y:integer –функциясы У координатасының ағымдағы мәнін береді. Графикалық режим процедуралары мен функциялары.

Текст түрлерін ауыстыруда Text Color процедурасы қолданылады, мұндағы Color -түс нөмірі. (Түстер төмендегі кестеге сәйкес белгіленеді. ) Түстің номері Түстің аты Тұрақты 0 Қара Black 1 Көк Blue 2 Жасыл Green 3 Көгілдір Cyan 4 Қызыл Red 5 Күлгін Magenta 6 Қоңыр Brown 7 Ақ LightGray 8 Сұр DarkGray 9 Көгілдір көк Light Blue 10 Ашық  көгілдір Light Green 11 Ашық  жұпаргүл түсті Light Cyan 12 Ашық қызыл (алқызыл) Light Red 13 Ашық күлгін Light Magenta 14 Сары Yellow 15 Ақ,  ашық ақ White

Нүкте, үзінді, сызық үзінділері Pen (1, 0, 255, 0), Line (x1, y1, x2, y2), Pen (1, 0, 0, 255), Point (x, y), Pen (1, 255, 0, 0), MoveTo (x1, y1), LineTo (x2, y2), LineTo (x3, y3), LineTo (x4, y4), LineTo (x5, y5), (x1, y1) (x2, y2) (x, y) (x1, y1) (x2, y2) (x3, y3) (x4, y4) (x5, y5)

Құю фигуралары (фигуры с заливкой) Pen (1, 0, 0, 255), Brush (1, 255, 255, 0), Rectangle (x1, y1, x2, y2), Pen (1, 255, 0, 0), Brush (1, 0, 255, 0), Ellipse (x1, y1, x2, y2), Brush (1, 100, 200, 255), Fill (x, y), (x1, y1) (x2, y2) (x1, y1) (x2, y2) (x, y) Как отменить заливку? ?

Пример (200, 50) (100, 100) (300, 200) program qq, begin Pen(2, 255, 0, 255), Brush(1, 0, 0, 255), Rectangle(100, 100, 300, 200), MoveTo(100, 100), LineTo(200, 50), LineTo(300, 100), Brush(1, 255, 255, 0), Fill(200, 75), Pen(2, 255, 255, 255), Brush(1, 0, 255, 0), Ellipse(150, 100, 250, 200), end.