Поиск

Полнотекстовый поиск:
Где искать:
везде
только в названии
только в тексте
Выводить:
описание
слова в тексте
только заголовок

Рекомендуем ознакомиться

'Автореферат'
Работа выполнена в Государственном образовательном учреждении высшего профессионального образования «Орловский государственный технический университе...полностью>>
'Закон'
'Публичный отчет'
Идентификационный номер (для гражданина Республики Беларусь, иностранного гражданина или лица без гражданства, имеющих вид на жительство в Республике ...полностью>>
'Автореферат'
на заседании диссертационного совета ДС 212.166.08. по химическим наукам при Нижегородском государственном университете им. Н. И. Лобачевского по адр...полностью>>

Опис графічних операцій мовою програмування Ініціалізація графіки

Главная > Документ
Сохрани ссылку в одной из сетей:

Опис графічних операцій мовою програмування

Ініціалізація графіки

uses graph;

var gm,gd:integer;

begin

gd:=detect;

InitGraph(gd,gm,’D:\tp7’) {шлях до файла graph.tpu}

Координатна сітка

Екран у графічному режимі може адресуватися за допомогою системи координат, причому значення Х (номера стовпчика) збільшується зліва праворуч, а значення Y (номера рядка) збільшується зверху до низу. За замовчанням координати екрана мають такий вигляд:

(0,0) - лівий верхній кут;

(639,0) - правий верхній кут;

(319,239) - центр;

(0,479) - лівий нижній кут екрана;

(639,479) - правий нижній кут.

Процедури графіки

До основних процедур для роботи з графікою, за допомогою яких можна виконати майже всі завдання шкільного курсу, відносяться наступні:

Arc(X,Y:integer; поч_кут, кін_кут, радіус:word) - програмна процедура, результатом роботи якої є дуга окружності з центром в точці (X,Y) і радіусом "радіус". Дуга креслиться від початкового кута ("поч_кут") до кінцевого кута ("кін_кут"). При цьому використовується поточний колір малювання.

Bar(X1,Y1,X2,Y2) - процедура малює зафарбований прямокутник, використовуючи колір зафарбування, що встановлюється процедурою SetFillStyle. Контур прямокутника креслиться кольором і типом лінії, що встановлені процедурами SetLineStyle і SetColor. Точки з координатами (X1,Y1) та (X2, Y2) задають дві діагонально протилежні вершини прямокутника.

Bar3D(Xl,Yl,X2,Y2:integer; глибина : word, вершина : boolean) - процедура малює зафарбований тривимірний паралелепіпед. Контур паралелепіпеда креслиться кольором і типом лінії, що встановлені процедурами SetLineStyle і SetColor, тип і колір зафарбування встановлюється за допомогою процедур SetFillStyle. "Глибина" являє собою число елементів зображення, що задають третій вимір тривимірного контуру. Якщо змінна, зазначена як параметр "вершина", приймає істинне значення (True), то для паралелепіпеда малюється тривимірна вершина, у протилежному випадку вершина не малюється (що дозволяє малювати кілька паралелепіпедів, розташованих один на одному).

Circle(X,Y:integer; радіус : word) - процедура малює окружність поточним кольором. Точка (X,Y) - центр окружності, а "радіус" - її радіус.

ClearDevise - процедура очищує поточний графічний екран і підготовлює його для виведення даних.

ClearViewport - процедура очищує поточне вікно.

CloseGraph - процедура припиняє роботу графічної системи (закриття графіки) і повертає монітор до текстового режиму.

DetectGraph(Var драйвер, peжим : integer) - процедура перевіряє наявність відповідних апаратних засобів і визначає, який графічний режим і драйвер варто використовувати.

Ellipse(X,Y:integer; поч_кут, кін_кут:word; paдХ,paдY:word) - процедура малює еліптичну дугу, використовуючи (X,Y), як точку центра і "радХ", "paдY" - як радіуси на горизонтальній і вертикальній осях. Дуга еліпса малюється від початкового кута (параметр "поч_кут") до кінцевого кута (параметр "кін_кут") поточним кольором.

FillEllipse(X,Y:integer;Xpaдіyс,Ypaдіус:word) - процедура вичерчує зафарбований еліпс, використовуючи точку з координатами (Х,Y), як центр, а "Храдіус" і "Yрадіус" - у якості радіусів на горизонтальній та вертикальній осях. Контур еліпса креслиться кольором і типом лінії, що встановлені процедурами SetLineStyle і SetColor, тип і колір зафарбування встановлюється за допомогою процедури SetFillStyle.

FloodFill(X,Y,границя:word) - процедура заповнює замкнену область, використовуючи поточний заповнювач, заданий процедурою SetFillStyle. Точка (X,Y) є внутрішньою точкою області, що зафарбовується. Заповнюється область, обмежена лінією, що має колір, визначений параметром "границя". Якщо точка (X,Y) знаходиться усередині замкненої області, то заповнюється внутрішня область. Якщо ця точка знаходиться поза замкненої області, то заповнюється її зовнішня частина (поле екрана, що не належить області).

GetBkColor : word - функція повертає поточне значення кольору тла (у діапазоні 0 - 15), встановлене процедурою SetBkColor.

GetColor : word - функція повертає поточне значення основного кольору малювання (у діапазоні 0 - 15), встановлене раніше процедурою SetColor.

GetMaxColor:word; - функція повертає найбільше значення кольору, яке можна передати процедурі SetColor.

GetMaxX:integer; - функція повертає максимальний для поточного графічного режиму і драйвера номер правого стовпчика (дозвіл по X).

GetMaxY:integer; - функція повертає максимальний для поточного графічного режиму і драйвера номер нижнього рядка екрана (дозвіл по Y).

GetPixel(X,Y:mteger): word; - функція повертає значення (колір) елемента зображення в точці (X, Y).

GetX: integer; - функція повертає Х-координату поточного покажчика СР.

GetY: integer; - функція повертає Y-координату поточного покажчика СР.

GraphResult : integer; - функція повертає код помилки (у діапазоні 0-10) для останньої графічної операції.

InitGraph (Var гр_драйв:integer; Var гр_режим:integer; nyть_дpaйв:string); - процедура ініціалізує графічну систему і переводить апаратну частину в графічний режим.

Line(X1, Y1, X2, Y2 : integer); - процедура вичерчує пряму лінію (товщина і тип якої встановлений процедурою SetLineStyle, колір - процедурою SetColor) із крапки (X1,Y1) у крапку (X2,Y2).

LineRel(Dx,Dy); - процедура вичерчує пряму лінію з точки поточного покажчика СР в точку, задану відносною відстанню (Dx, Dy) від поточного покажчика.

LineTo(X,Y : integer); - процедура малює пряму лінію з точки, у якій знаходиться поточний покажчик СР, у точку з координатами (X,Y).

MoveRel(Dx, Dy : integer); - процедура переміщує покажчик СР з поточної точки у точку, задану відносною відстанню (Dx, Dy).

MoveTo(X, Y : integer); - процедура переміщує поточний покажчик СР у точку з координатами (X,Y).

OutText (рядок : string); - процедура виводить текст "рядка" на монітор, починаючи з точки розташування покажчика СР.

OutTextXY(X, Y: integer; текст_рядок : string); - процедура виводить текст, що міститься у "текст_рядок", починаючи з точки, заданої координатами (X, Y). Якщо рядок занадто довгий і виходить за межі екрана чи поточної області перегляду, то він усікається.

PieSlice (Х, Y: integer; нач_кут, кін_кут R : word); - процедура вичерчує і заповнює поточним кольором сектор кола радіусом R. Точка (X,Y) - центр окружності, а сектор малюється від початкового до кінцевого кута. Тип і колір зафарбування попередньо задається процедурою SetFillStyle.

PutPixel(X, Y: integer; ел_зображ : word); - процедура зафарбовує точку з координатами (X,Y) у колір, що визначається параметром "ел_зображ".

Rectangle(Xl, Yl, Х2, Y2 : integer); - процедура вичерчує прямокутник, використовуючи поточний колір і тип лінії. (X1,Y1) та (X2,Y2) - координати діагонально протилежних вершин прямокутника.

Sector (X, У : integer; поч__кут, кін_кут, Х_Радіус, Y_Радіус : word); - процедура вичерчує і заповнює еліптичний сектор. (Х,Y) - центр окружності, "Х_Радіус", "Y_Радіус" - горизонтальний і вертикальний радіуси. Сектор креслиться від початкового кута "поч_кут" до кінцевого кута "кін_кут". Сектор малюється поточним кольором і зафарбовується з використанням зразка зафарбування і кольорів, заданих за допомогою процедури SetFillStyle.

SetActivePage (сторінка: word); - процедура встановлює для графічного виведення активну сторінку (їх всього чотири від 0 до 3). Графічне виведення буде тепер здійснюватися в цю сторінку.

SetBkColor (колір : word); - процедура встановлює поточний колір для тла.

SelColor(колір : word); - процедура встановлює поточний колір малювання .

SetFillStyle( зразок : word; колір :p word); - процедура встановлює зразок і колір зафарбування для всіх типів зафарбування, виконуваних процедурами Bar, Ваr3D, FillEllipse, FloodFill та PieSlice. Можна використовувати декілька типів зафарбування (наприклад, 1 - суцільне фарбування, 2 - штрихування лініями, 7 - штрихування символом "+", 11 - штрихування крапками тощо). За замовчуванням вибирається суцільне зафарбування білого кольору.

SetLineStyle(тип_рядка :word; зразок: word; товщина : word); - процедура встановлює поточну товщину і тип лінії.

SetTextJustify(ropиз, верт : word); - процедура встановлює значення вирівнювання тексту, що використовуються процедурами OutText і OutTextXY.

SetTextStyle (шрифт: word; направл: word; розм_символу: CharSize-турі); - процедура встановлює поточний шрифт, тип і коефіцієнт розміру символу.

SetViewport(XI, Y1, X1, X2 word, clip: boolean); - процедура встановлює для графічного поточного виведення чи перегляду вікно, де (X1,Y1) - верхній лівий кут області перегляду, (X2,Y2) - нижній правий кут. Процедура переміщує поточний покажчик у точку з координатами (0,0). Clip - булівська змінна.

SetVisualPage (сторінка : word); - процедура задає номер відображуваної графічної сторінки.

TextHeight(mekcm_рядок: string) : word; - функція повертає висоту рядка в елементах зображення.

TextWidth(текст_рядок : string) : word; - функція повертає ширину рядка в елементах зображення.

Приклад програми

Program Graphika;

uses crt,graph;

var i,gd,gm,x1,x2,y1,y2:integer;

begin

gd:=detect;

InitGraph(gd,gm,'D:\tp7');

x1:=100;

y1:=100;

X2:=200;

y2:=200;

Randomize;

{Пpогpамний блок який вiдповiдає за малювання та pух пpямокутника}

For i:=1 to 100 do {Виконується за допомогою цикла пеpелiка}

begin

SetColor(Random(15)); { Задає колip }

Setlinestyle(0,0,3); { Задає тип лiнiй }

Rectangle(x1,y1,x2,y2); { Малює пpямокутник }

delay(5555); { Затpимка екpана }

SetColor(0);

Rectangle(x1,y1,x2,y2); { Зафаpбовування кольоpом фона }

x1:=x1+random(5);

x2:=x2+random(5); { Зсув кооpдинат }

y1:=y1+random(5); { Робиться випадково }

y2:=y2+random(5);

end;

end.

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

Програма виводить на екран дисплея прямокутник, який рухається по діагоналі з верхнього лівого кута в нижній правий.

При чому колір і розмір прямокутника постійно змінюються в довільно заданих координатах.



Скачать документ

Похожие документы:

  1. Програми для загальноосвітніх навчальних закладів. Запоріжжя: Прем'єр, 2003. 304 с. I8Вn 966-685-066-4

    Документ
    У збірнику вміщено програми з інформатики для загальноосвітніх навчальних закладів різного профілю, для спеціалізованих шкіл, гімназій, ліцеїв з поглибленим вивченням інформатики, програми факультативів, спецкурсів, пропедевтичних курсів та гуртків.
  2. Програми для загальноосвітніх навчальних закладів Навчальні програми для профільного навчання (1)

    Документ
    У збірнику вміщено програми з інформатики для загальноосвітніх навчальних закладів різного профілю, для спеціалізованих шкіл, гімназій, ліцеїв з поглибленим вивченням інформатики, програми факультативів, спецкурсів, пропедевтичних курсів та гуртків.
  3. Київський національний університет імені тараса шевченка науково-дослідна робота в київському національному університеті імені тараса шевченка: підсумки за 2010 рік І завдання на 2011 рік київ – 2011

    Документ
    Аналітична доповідь "Науково-дослідна робота в Київському національному університеті імені Тараса Шевченка: підсумки за 2010 рік і завдання на 2011 рік" заслухана та схвалена на засіданні Комісії Вченої ради з організації
  4. Розділ лінійні програми вступ поняття програми. Мова програмування середовище програмування. Поняття програми. Створення програми

    Документ
    Програма, що працює на комп'ютері, нерідко ототожнюється з самим комп'ютером, оскільки людина, що використовує програму, "вводить в комп'ютер" початкові дані з клавіатури або за допомогою мишки і "комп'ютер видає результат"
  5. План заходів Міністерства освіти І науки України щодо реалізації постанови Кабінету Міністрів України «Про затвердження Державного стандарту базової І повної загальної середньої освіти» від 14 січня 2004 р. №24

    Документ
    На виконання постанови Кабінету Міністрів України від 14 січня 2004 р. № 24 «Про затвердження Державного стандарту базової і повної загальної середньої освіти» та з метою організаційного,

Другие похожие документы..