Система программирования Turbo Pascal





Глава 14. Использование библиотеки Graph


    Глава 14. Использование библиотеки Graph
    Использование библиотеки Graph Переход в графический режим и возврат в текстовый Краткая характеристика графических режимов работы дисплейных адаптеров Процедуры и функции Координаты, окна, страни...
Переход в графический режим и возврат в текстовый
Переход в графический режим и возврат в текстовый Стандартное состояние ПК после его включения, а также к моменту запуска программы из среды Турбо Паскаля соответствует работе экрана в текстовом р...Краткая характеристика графических режимов работы дисплейных адаптеров
Краткая характеристика графических режимов работы дисплейных адаптеров Настройка графических процедур на работу с конкретным адаптером достигается за счет подключения нужного графического драйвера...Включение драйвера и шрифтов в тело программы
Включение драйвера и шрифтов в тело программы В Турбо Паскале имеется возможность включения графического драйвера и штриховых шрифтов непосредственно в тело программы. Такое включение делает прогр...Процедуры и функции
h2> GetModeRange. Возвращает диапазон возможных режимов работы заданного графического адаптера. Заголовок: Procedure GetModeRange(Drv: Integer; var Min, Max: Integer); Здесь Drv - тип адаптера; Min...Координаты, окна, страницы
Координаты, окна, страницы Многие графические процедуры и функции используют указатель текущей позиции на экране, который в отличие от текстового курсора невидим. Положение этого указателя, как и...GetMaxX и GetMaxY. Возвращают...
GetMaxX и GetMaxY. Возвращают значения типа Word, содержащие максимальные координаты экрана в текущем режиме работы соответственно по горизонтали и вертикали. Например: Uses Graph; var a,b: Intege...GetX и GetY. Возвращают значения...
GetViewSettings. Возвращает координаты и признак отсечки текущего графического окна. Заголовок: Procedure GetViewSettings(var Viewlnfo: ViewPortType); Здесь Viewlnfo - переменная типа ViewPortType...MoveTo. Устанавливает новое текущее...
h2> SetActivePage. Делает активной указанную страницу видеопамяти. Заголовок: Procedure SetActivePage(PageNum: Word); Здесь PageNum - номер страницы. Процедура может использоваться только с адаптер...Линии и точки
Линии и точки Процедура PutPixel. Выводит заданным цветом точку по указанным координатам. Заголовок: Procedure PutPixel(X,Y: Integer; Color: Word); Здесь X, Y- координаты точки; Color - цвет точки...GetPixel. Возвращает значение...
h2> Часовой циферблат Uses Graph, CRT; var d,r,r1,r2,rr,k, x1,y1,x2,y2,x01,y01: Integer; Xasp,Yasp : Word; begin {Инициируем графику} d := detect; InitGraph(d, r, ''); k := GraphResult; if k grOK t...Многоугольники
h2> DrawPoly. Вычерчивает произвольную ломаную линию, заданную координатами точек излома. Procedure DrawPoly(N: Word; var Points) Здесь N - количество точек излома, включая обе крайние точки; Point...Дуги, окружности, эллипсы
Дуги, окружности, эллипсы Процедура Circle. Вычерчивает окружность. Заголовок: Procedure Circle(X,Y: Integer; R: Word); ЗдесьX, Y- координаты центра; R - радиус в пикселях. Окружность выводится те...Arc. Чертит дугу окружности. Заголовок...
Arc. Чертит дугу окружности. Заголовок: Procedure Arc(X,Y: Integer; BegA,EndA,R: Word); Здесь X, Y - координаты центра; BegA, EndA - соответственно начальный и конечный углы дуги; R - радиус. Углы...Иллюстрация процедуры Arc Следующая...
h2> Эллипсные дуги Uses Graph, CRT; var d,r,e: Integer; xa,ya: Word; begin {Инициируем графику} d := Detect; InitGraph(d, r, ''); e := GraphResult; if e grOK then WriteLn(GraphErrorMsg(e)) else beg...Краски, палитры, заполнения
Краски, палитры, заполнения Процедура SetColor. Устанавливает текущий цвет для выводимых линий и символов. Заголовок: Procedure SetColor(Color: Word); Здесь Color - текущий цвет. В модуле Graph оп...GetMaxColor. Возвращает значение...
GetMaxColor. Возвращает значение типа Word, содержащее максимальный доступный код цвета, который можно использовать для обращения к SetColor. Заголовок: Function GetMaxColor: Word; Процедура SetBk...GetBkColor. Возвращает значение...
h2> Иллюстрация процедуры PieSlice Uses Graph, CRT; var d, r, e : Integer; begin {Инициируем графический режим} d := Detect; InitGraph(d, r, ''); e := GraphResult; if e grOk then WriteLn(GraphError...Сохранение и выдача изображений
Сохранение и выдача изображений Функция ImageSize. Возвращает размер памяти в байтах, необходимый для размещения прямоугольного фрагмента изображения. Заголовок: Function ImageSize(X1,Y1,X2,Y2: In...Getlmage. Помещает в память копию...
h2>Рис.14.10. Иллюстрация процедур Getlmage/Putlmage Uses Graph, CRT; const r = 20; {Характерный размер НЛО} pause = 50; {Длительность паузы} var d,m,e,xm/ym,x,y/lx,ly,rx,ry, Size,i,dx,dy,Width,Hei...Вывод текста
h2> InstallUserDriver. Включает нестандартный графический драйвер в систему BGI-драйверов. Заголовок функции: Function InstallUserDriver(FileName: String; AutoDetectPtr: Pointer): Integer; Здесь Fi...







Содержаие