Система программирования 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...








Начало