GRAFOR DVK: различия между версиями
Nzeemin (обсуждение | вклад) (Новая страница: «{{ДИ|Источник=https://www.tis.kz/forum/topic.php?forum=28&topic=7#}} <pre> РУКОВОДСТВО ПО ПРИМЕНЕНИЮ СИСТЕМЫ ГРАФОР ДВК. Вторая редакция Белоножкин А.Н. ГГУ сл.тел. 65-75-23...») |
Panther (обсуждение | вклад) м (категория) |
||
Строка 1302: | Строка 1302: | ||
клавиатуры. | клавиатуры. | ||
</pre> | </pre> | ||
[[Категория:ДВК]] |
Текущая версия от 21:32, 8 апреля 2024
Данный материал защищён авторскими правами!
Использование материала заявлено как добросовестное, исключительно для образовательных некоммерческих целей. Источник: https://www.tis.kz/forum/topic.php?forum=28&topic=7# |
РУКОВОДСТВО ПО ПРИМЕНЕНИЮ СИСТЕМЫ ГРАФОР ДВК. Вторая редакция Белоножкин А.Н. ГГУ сл.тел. 65-75-23 Нижний Новгород 1990 год А Н Н О Т А Ц И Я Описана реализация пакета ГРАФОР для ЭВМ типа ДВК под управлeнием операционной системы RT11. Разобран порядок работы в системе, даны примеры и справочный материал по использованию конкретной версии пакета. С О Д Е Р Ж А Н И Е стр. От автора ................................................ 3 1. Для чего это нужно? ...................................... 4 2. Как этим пользоваться? ................................... 5 2.1 Настройка системы (инициализация) ................... 5 2.2 Написание и запуск программы ........................ 5 2.3 Получение рисунка ................................... 6 3. Подробности для любознательных ........................... 8 3.1 Три интерфейса в ГРАФОРе ............................ 8 3.2 Форматы представления данных ........................ 8 3.3 Роль и назначение системных компонент ГРАФОРа ....... 9 3.4 Экранно-ориентированный вывод информации ............ 9 4. Возможные причины неработоспособности пакета ............. 11 Литература ............................................... 12 Приложения: I Изменения в ГРАФОРе ................................. 13 II Драйверы и их возможности ........................... 14 III Особенности графики для печати ...................... 17 IV Дистрибутивы: их имена и место в системе ............ 18 V Перечень подпрограмм ГРАФОРа ........................ 19 VI КЦГД: дозагружаемый графический интерпретатор ....... 27 VII КЦГД: дозагружаемые коды клавиатуры ................. 28 - 3 - От автора. Данное описание не претендует на полное описание пакета ГРАФОР, операционной системы, графических устройств и т.п. Здесь Вы найдете лишь описание того, что является "особенным" в реализации ГРАФОРа на ДВК. Первый раздел рекомендуется тем, кто интересуется возможностями ГРАФОРа ДВК. Второй предназначен для тех, кто уже приобрел пакет и собирается получить первые рисунки (здесь могут буть полезны приложения I, V). Третий раздел содержит наиболее подробную информацию о функционировании пакета. В приложениях Вы найдете справочную информацию, снабженную комментариями. Автор будет рад получить Ваши замечания, предложения, дополнения по работе пакета. Обращайтесь либо напрямую, либо через "Диалог"; все Ваши проблемы будут рассмотрены и по возможности устранены в кратчайшие сроки. - 4 - 1. Для чего это нужно? Система ГРАФОР предназначена для графического представления результатов инженерных вычислений и, согласно своему назначению, позволяет строить графики, гистограммы, карты изолиний, проекции поверхностей, применять методы сплайн-интерполяции, сглаживать экспериментальные данные, производить афинные преобразования и экранирование, выполнять геометрические вычисления и т.д. Подробнее обо всем этом изложено в [1]. Целью же этого руководства являлось более подробное описание конкретной реализации ГРАФОРа на машинах типа ДВК. ГРАФОР - это достаточно громоздкая система, что до некоторого времени сдерживало его распространение на микро-ЭВМ. Первым прорывом в этой области можно считать появление ГРАФОРа на персональных ЭВМ типа IBM PC, что опиралось на возросшую вычислительную мощность, об'ем памяти и появление винчестеров. Аналогичная тенденция наблюдается и в семействе микро-ЭВМ типа ДВК. ГРАФОР адаптирован на ДВК под управлением операционной системы RT11(SJ) (не младше версии 05.00), что позволило реализовать высокий уровень удобства работы с пакетом. Это обеспечивается поддержкой следующих воможностей: - создание промежуточного текстового файла рисунка; - вывод рисунка на экран монитора; - Print_Screen (печать кадра "точка в точку" с возможностью выбора типа печатающего устройства и плотности печати); - графическая печать рисунка с сохранением его линейных размеров; - вывод рисунка на графопостроитель. На данный момент в систему включена поддержка следующих устройств вывода графической информации: - контроллеры КГД и КЦГД; - принтеры EPSON FX-800, ROBOTRON 6362, D100M, CM6337 и другие EPSON-совместимые печати; - графопостроители НЕЙРОН ИС.61, POLTIK. Данная версия ГРАФОРа эксплуатируется около года и зарекомендовала себя как надежная, удобная и простая в обращении система. В перспективе ведутся работы по переносу ГРАФОРа на ЭВМ ЭЛЕКТРОНИКА-85 и расширение номенклатуры графической периферии ДВК. - 5 - 2. Как этим пользоваться? 2.1 Настройка системы (инициализация) Для нормальной работы с ГРАФОРом, после загрузки операционной системы Вы должны подготовить системные компоненты ГРАФОРа к работе. Для этого необходимо выполнить следующие команды: R GS.SYS - загрузка графического интерпретатора в КЦГД, LOAD TT - необходимо для реализации Print_Screen. Их можно отдать с клавиатуры или поместить в любой командный файл, в частности, в STARTS.COM. В последнем случае, системные компоненты ГРАФОРа включатся во время загрузки операционной системы. 2.2 Написание и запуск программы. Для того, чтобы получить рисунок, Вы должны написать программу на ФОРТРАНе. Программа обязательно должна содержать следующие строки: . . CALL GRINIT CALL PAGE(XL,YL,NAME,NNAME,J) . . . CALL ENDPG(NAME,NNAME) . . Ее можно набрать в любом текстовом редакторе. Например, Вы создали файл TEST.FOR, содержащий: PROGRAM TEST DIMENSION X(100),Y(100),Z(100) C Заполнение массивов X,Y,Z X(1)=-1.9 Y(1)=SIN(-1.9) Z(1)=COS(-1.9)*1.5 DO 5 I=2,90 X(I)=X(I-1)+.1 Y(I)=SIN(X(I)) 5 Z(I)=COS(X(I))*1.5 XMN=-2.0 AMN=-2.0 XMX=7.0 AMX=2.0 UX=1.0 - 6 - UY=0.8 KX=0 KY=0 M=0 CALL GRINIT !Инициализация GRAFOR CALL PAGE(19.,10.,' ',-1,0) !Открытие страницы PAGE CALL REGION(0.,0.,19.,10.,,0,1) CALL LIMITS(XMN,XMX,AMN,AMX) CALL AXES(6HAXIS X,6,UX,KX,6HAXIS Y,6,UY,KY,M) CALL LINEMO(X,Y,85,2,10) CALL LINEMO(X,Z,85,14,15) CALL ENDPG(,0) !Закрытие страницы PAGE END После этого, Вы должны его оттранслировать командой FORTRAN TEST и получить загрузочный модуль командой LINK TEST,GR01/BOT:2000, где GR01.OBJ - базовый файл ГРАФОРа, а ключ /BOT необходим для отведения места программе под стек. Далее программу можно запустить на счет командой RUN TEST На экране появится запрос: Device or file_name? на что Вы можете ответить: а) <ВК> или GS: - вывод рисунка на экран б) FILNAM - вызовет создание файла FILNAM.PIC на DK: в) GP: - вывод рисунка на графопостроитель 2.3 Получение рисунка. Пользуясь описываемой системой, Вы имеете возможность получить в любой момент времени твердую копию экрана на принтере. Для этого Вам необходимо нажать на клавиатуре клавишу <ПЕЧАТЬ КАДРА>, или комбинацию <СУ> А. Это наиболее быстрый способ, но он не сохраняет масштаб изображения. При необходимости, можно получить масштабное изображение на печати командой RUN PS FILNAM ,где FILNAM.PIC - результат работы Вашей программы. - 7 - Получить рисунок на графопостроителе можно двумя способами: либо указав имя драйвера GP: в ответ на запрос Вашей программы Device or file_name? либо командой COPY FILNAM.PIC GP: - 8 - 3. Подробности для любознательных. 3.1 Три интерфейса в ГРАФОРе. При внимательном рассмотрении, в ГРАФОРе можно обнаружить четыре логически завершенных уровня и три интерфейса между ними. Схематично это можно изобразить следующим образом: 1) Самым верхним является уровень программы пользователя. Интерфейсом между ней и подпрограммами ГРАФОРа является механизм вызова подпрограмм на ФОРТРАНе. 2) Подпрограммы ГРАФОРа преобразуют всю поступающую к ним информацию в команды виртуального графического устройства, что и является интерфейсом между ГРАФОРом и драйверами графических устройств. 3) Третьим и последним интерфейсом является интерфейс между драйвером и внешним устройством. По сути, он совпадает или является подмножеством интерфейса внешнего устройства. Преобразование информации в ГРАФОРе осуществляется в несколько этапов. Сначала Вы должны из программы на ФОРТРАНе обратиться к подпрограммам ГРАФОРа, ГРАФОР преобразует эти вызовы в команды виртуальному графическому устройству. На этом этапе их можно получить в виде обычного текстового файла с расширением / .PIC /. Далее драйвер преобразует этот файл к интерфейсу внешнего устройства (ВУ). Здесь уже учитываются конкретные технические характеристики ВУ, такие как размер поля вывода, разрешающая способность, число цветов и т.п. На выходе Вы получаете готовый рисунок. 3.2 Форматы представления данных. На уровне вызова подпрограмм ГРАФОРа, форматы данных совпадают, с точностью до приложения I, с описанием, данным в [1]. Между ГРАФОРом и драйверами в передаче данных приняты следующие соглашения: а) виртуальное графическое устройство является векторным; б) виртуальное графическое устройство обладает способностью генерировать прямую линию; в) информация о перемещении пера передается к устройству в виде целого числа шагов. Исходно принято, что устройство имеет разрешение 200 шагов на сантиметр; г) устройство может отрабатывать следующие команды: H -Home- начальная установка устройства, B X,Y -Base- выбор точки (X,Y) в качестве начала отсчета, M X,Y -Move- перемещение пера в точку (X,Y), D X,Y -Draw- перемещение пера в точку (X,Y) с рисованием, J N -Pen - выбор пера (цвета). - 9 - На внешнее устройство данные поступают в его "родном" формате, и лучшее, что в данном случае можно сделать, это отослать Вас к его техническому описанию. 3.3 Роль и назначение системных компонент ГРАФОРа. С самого начала, ГРАФОР ДВК задумывался как система, ориентированная на пользователя. Это повлекло за собой некоторые изменения как в самом ГРАФОРе, так и создание определенного сервиса на уровне драйверов операционной системы. Отправной точкой развития ГРАФОРа для ДВК явились контроллеры КГД и КЦГД. Под них и были созданы две версии экранной графики и функции Print_Screen (копия экрана на печать). На машинах с КГД драйвер GS.SYS необходим для получения рисунка, а TT.SYS, кроме его обычных функций, еще и для получения твердой копии экрана на печати. На машинах с КЦГД драйвер GS.SYS, как и в системах с КГД, соответствует графическому выводу на экран, кроме того, в нем есть программа загрузки в КЦГД интерпретатора графических команд (R GS.SYS). TT.SYS необходим для функционирования Print_Screen. Причем, он во время загрузки операционной системы дозагружает в КЦГД ряд кодов клавиш, которые используются редакторами текстов и клавишу <ПЕЧАТЬ КАДРА> кодом ^A. На обеих системах, Print_Screen работает только если TT.SYS загружен в память командой LOAD TT При этом он перехватывает код ^A, интерпретируя его как команду печати экрана, если же его выгрузить из памяти (сделать нерезидентным), то он ничем не будет отличаться от обычного драйвера терминала. 3.4 Экранно-ориентированный вывод информации. В случае, если весь графический вывод осуществляется на экран и разработчику прикладной программы не желательно передавать пользователю системные компоненты ГРАФОРа, он может вопользоваться библиотекой базовых примитивов с именем GR01TT.OBJ в которой не содержится обращений к драйверам. Эта библиотека по вызовам подпрограмм целиком совпадает с GR01.OBJ, за исключением того, что в ней есть подпрограмма печати экрана. Этой подпрограммой можно воспользоваться из программы на фортране написав вызов CALL GRAPRI(MODE) - 10 - MODE определяет тип печатающего устройства и плотность печати: код плотность тип принтера MODE = -1 - D100 0 60 EPSON 1 120 EPSON 2 120 EPSON 3 240 EPSON 4 80 EPSON 5 72 EPSON 6 90 EPSON 7 144 EPSON - 11 - 4. Возможные причины неработоспособности пакета. Проверяйте количество и тип параметров в вызовах подпрограмм. На стадии сборки задачи программой LINK не забывайте: а) Имена графических библиотек в командной строке должны следовать в порядке их вызова (самая низовая - в конце); б) ГРАФОР имеет большую вложенность подпрограмм; используйте ключ /BOT для увеличения области, резервируемой под стек; в) Размер графических библиотек большой, пользуйтесь ключем /SLOWLY. - 12 - Л И Т Е Р А Т У Р А 1. Ю.М.Баяковский, В.А.Галактионов, Т.Н.Михайлова "Графор. Графическое расширение фортрана", М.,"Наука", 1985 г. 2. Контроллер КГД. Техническое описание. 3. Контроллер КЦГД. Техническое описание. 4. Описание операционной системы RT-11. Программирование драйверов внешних устройств. 5. EPSON FX-800. Техническое описание. 6. НЕЙРОН ИС.61. Техническое описание. 7. POLTIK. Техническое описание. - 13 - Приложение I Изменения в ГРАФОРе. В связи с адаптацией ГРАФОРа на ДВК были изменены следующие подпрограммы пакета: GRINIT производит инициализацию пакета. PAGE (XL,YL,NAME,N,J) открывает страницу XL,YL - размеры страницы NAME - название страницы N - число литер названия страницы N>0 страница подписывается и будет выведена в файл с именем NAME N=0 страница не подписывается, автоматически генерируются имена на DK: GR1.PIC, GR2.PIC, ... N<0 страница подписывается, имя файла запрашивается с терминала <ВК> направляет вывод на экран Если имя файла содержит только имя устройства, то на нем автоматически генерируются имена GR1.PIC, GR2.PIC, GR3.PIC ..., при условии, что не было перезагрузки программы в ОЗУ. J - признак очерчивания рамки J>0 рамка очерчивается, выводится дата создания J=0 рамка не очерчивается, дата не выводится J<0 рамка очерчивается, дата не выводится ENDPG(NAME,N) закрывает страницу NAME - подпись по линии отрыва N - число литер подписи N>0 подписывается и перо уводится к началу следующей страницы N=0 не подписывается, перо возвращается к началу текущей страницы N<0 подписывается, перо возвращается к началу текущей страницы PEN(J) производит смену пера (цвета) SET(J) устанавливает набор литер для подпрограммы SYMBOL: SET(0) набор больших русских и латинских букв SET(1) набор маленьких русских и латинских букв SET(2) набор греческих больших букв SET(3) набор греческих маленьких букв дополнительно введены: SET(4) набор латинских больших и маленьких букв SET(5) набор русских больших и маленьких букв - 14 - Приложение II Драйверы и их возможности. Назначение драйвера заключается в преобразовании интерфейса виртуального графического устройства (информации из пакета ГРАФОР) в команды конкретному устройству. В данном приложении описаны SET параметры драйверов и их назначение. Во время работы программы, ГРАФОР "не знает" для какого графического устройства подготавливаются данные. Поэтому, возникла необходимость в промежуточном интерфейсе виртуального графического устройства. Подробно он описан в 3.2, здесь же только напомним, что цифровая информация из ГРАФОРа передается целым числом шагов виртуального устройства. Ввиду того, что разрешающая способность реального графопостроителя редко выше 100 шагов на сантиметр, было принято, при передаче данных, разрешение в 200 шагов на сантиметр. При необходимости, эта характеристика может быть изменена. Со стороны ФОРТРАНа она хранится в COMMON /GFTAB/ IRDB(5),RDB(17) в элементе RDB(17) (см. также RDB(1); табл.1 стр.12 [1]) Со стороны драйвера ее можно изменить пользуясь командой SET <имя драйвера> NV=<число> Изначально в драйвере, как и в библиотеке, принято разрешение 200 шагов на сантиметр, что обеспечивает масштабную передачу изображений. При необходимости, механизмом SET параметров можно воспользоваться для изменения размеров рисунка, например: SET <имя драйвера> NV=400 вызовет уменьшение всех линейных размеров в два раза. Драйвер <GS:> производит пересчет координат линий рисунка в координаты точек на экране. При этом может оказаться, что рисунок получился больше размеров электронно лучевой трубки(ЭЛТ) т.е. некоторые координаты точек вышли за рамки допустимых значений (например, размер экрана КЦГД 240х800 точек). Такие точки в процессе рисования отсекаются. Если Вам необходимо посмотреть часть рисунка, находящуюся вне поля зрения, Вы можете "переместить" Ваш экран (поле зрения), а точнее точку его левого нижнего угла, в любое место сгенерированной картинки. Если, например, у вас получилась картинка в два раза выше размера экрана, т.е. имеет размер 480х800 точек, то Вы увидите на экране лишь нижнюю ее часть. Чтобы посмотреть верхнюю часть, необходимо командами - 15 - SET GS: X0=0 < не обязательно > SET GS: Y0=240 установить поле зрения "повыше" и заново скопировать рисунок на <GS:>. В настоящее время, в наличии имеются следующие драйверы: 1) GSKCGD.SYS - драйвер для КЦГД, имеет следующие SET параметры: SET GS NV=decimal_value задает число шагов виртуального устройства на сантиметр SET GS X0=decimal_value SET GS Y0=decimal_value задает начало отсчета в точках на экране ЭЛТ (графика КЦГД работает с разрешением 240х800 точек) SET GS [NO]HOME [запрещает]разрешает очистку экрана перед началом вывода рисунка; <NO HOME> реализует режим наложения рисунков. SET GS INIT производит инициализацию драйвера SET GS PRINT производит настройку на тип печати для Print_Screen. 2) GSKGD.SYS - драйвер для КГД, имеет следующие SET параметры: SET GS INIT производит инициализацию драйвера SET GS NV=decimal_value задает число шагов виртуального устройства на сантиметр SET GS X0=decimal_value SET GS Y0=decimal_value задает начало отсчета в точках на экране ЭЛТ (графика КГД работает с разрешением 286х400 точек) SET GS INFORM выводит на экран справочное сообщение 3) GPN.SYS - драйвер для графопостроителя НЕЙРОН ИС.61 SET GP NV=decimal_value задает число шагов виртуального устройства на сантиметр SET GP [NO]PEN [запрещает]разрешает смену пера на графопостроителе SET GP [NO]QUIET [запрещает]разрешает выдачу запроса на экран перед каждой отработкой команды смены пера 4) GPP.SYS - драйвер для графопостроителя POLTIK SET GP [NO]PEN [запрещает]разрешает смену пера на графопостроителе SET GP [NO]QUIET [запрещает]разрешает выдачу запроса на экран перед каждой отработкой команды смены пера - 16 - SET GP NV=decimal_value задает число шагов виртуального устройства на сантиметр SET GP [NO]SWAXY [запрещает]разрешает поворот рисунка на 90 градусов - 17 - Приложение III Особенности графики для печати. Точную копию рисунка на печати Вы можете получить воспользовавшись программой PS.SAV. Последовательность действий может выглядеть следующим образом: .RUN PS *FILNAM где FILNAM - файл рисунка, с полным именем FILNAM.PIC. По истечении 3-15 секунд принтер должен начать печатать Ваш рисунок. Эта программа ориентирована на EPSON-совместимые принтеры. Еще один способ получения напечатанного рисунка - это использование функции Print_Screen. Эта функция реализована на системном уровне. Для ее нормальной работы, необходимо выполнение следующих условий: 1) драйвер TT.SYS должен быть загружен в память 2) должна быть произведена настройка на тип Вашего принтера. В системе с КЦГД это достигается командой SET GS PRINT после чего Вы нажатием соответсвующих цифр должны выбрать тип принтера В системе с КГД настройка осуществляется командой R TT.SYS В обоих случаях загруженный драйвер TT.SYS перехватывает код ^A, интерпретируя его как команду печати экранного ОЗУ. Каждый из этих двух способов печати рисунка обладает своими преимуществами и недостатками. Программа PS.SAV требует файл рисунка, EPSON-совместимый принтер, работает как независимое задание, но с ее помощью можно получить неискаженные рисунки. Преимуществами Print_Screen является оперативность, возможность настроить его на конкретный принтер, он не требует файла рисунка, но при этом не соблюдается масштаб. Образно говоря, Print_Screen рекомендуется для получения "черновых" рисунков, а PS.SAV - для "чистовых". - 18 - Приложение IV Дистрибутивы: их имена и место в системе. На поставляемых Вам дискетах Вы обнаружите все или некоторые из следующих файлов: TT .SYS рабочие драйверы GS .SYS TTKGD .SYS комплект драйверов для КГД; перед использованием GSKGD .SYS Вы должны их переименовать в TT.SYS и GS.SYS соответственно TTKCGD.SYS тоже для контроллера КЦГД GSKCGD.SYS GPN .SYS драйвер графопостроителя НЕЙРОН ИС.61, перед использованием должен быть переименован в GP.SYS, использует параллельный порт ЭВМ. GPP .SYS тоже для графопостроителя POLTIK, использует плату параллельного интерфейса VECTOR=074, CSR=177554 TEST .FOR тестовый пример на фортране GR01 .OBJ основная библиотека ГРАФОРа, должна быть пристыкована к любой графической задаче GR01TT.OBJ тоже, без обращения к драйверам (вывод жестко закреплен за экраном) GR2 .OBJ имена библиотек ГРАФОРа GR3 .OBJ GR4 .OBJ GR6 .OBJ GR61 .OBJ GR7 .OBJ GR8 .OBJ GR9 .OBJ GR10 .OBJ GR11 .OBJ GR12 .OBJ GR13 .OBJ GR14 .OBJ GR16 .OBJ - 19 - Приложение V Перечень подпрограмм ГРАФОРа. ---------------------------------------------------------------- Имя подпрограммы I Имя библиотеки ---------------------------------------------------------------- ADDLEV(C,NCN,IS,CAD,NAD) GR8 ANGLER(DELX,DELY) GR6 ANGRID(X0,Y0,XS,YS,M1,N1,SLOPE) GR13 APPOLY (X,Y,RO,N,CFIT,K1,COF1) GR3 ARC(X1,Y1,X2,Y2,X3,Y3,J) GR3 ARC1(XS1,YS1,XF1,YF1,XC1,YC1,NCW) GR13 ARCANG(R,DELX,DELY,J,TH0A,THFA) GR61 ARCC1(XM,YM,XF,YF,J,R,JB) GR61 ARCELA(A,B,ALPHA,TH0,THF) GR61 ARCELB(A,B,ALPHA,XF,YF) GR6 ARCIA(R,TH0,THF) GR13 ARCIB(R,XF,YF,J) GR6 ARCIC(XM,YM,XF,YF,J) GR6 ARCID(XC,YC,PHI) GR6 ARCOCC(R,XT1,YT1,XT2,YT2,J) GR61 ARCOLC(R,XT1,YT1,XT2,YT2,J) GR61 ARCOLL(R,XT1,YT1,XT2,YT2,J) GR61 AREB1(TH0,THF,G,TH02,THF2) GR6 ARRINL(X,Y,A,IX,IY,IXB,IXE,IYB,IYE,DX,DY,DZ,NL,NLBEG) GR11 ARROW(J) GR6 ASTEP(AN,AX,BS,MK,KD) GR1 ATDX(Z,X,Y) GR14 ATDX1(Z,X,Y) GR14 ATDX2(Z,X,Y) GR14 ATDX3(Z,X,Y) GR14 ATDY(Z,X,Y) GR14 ATDY1(Z,X,Y) GR14 ATDY2(Z,X,Y) GR14 ATDY3(Z,X,Y) GR14 ATRAN2(A1,B1,C1,A2,B2,C2) GR2 ATRST GR2 AXES (NAMEX,NX,UX,KX,NAMEY,NY,UY,KY,M) GR1 AXISC(NAME,NC,MMIN,MS,NM) GR3 AXONOM(X,Y,Z) GR4 BAR(X,Y,H,W,SH,IHAT,NP1) GR3 BARS(Y,YP,N,W,IHAT,NP1) GR3 BCD(A,IB,N) GR1 BEGLEV GR2 BITA(ITAGB,IXBD,IYBD,N1,N2,N5) GR8 BLAN GR2 BLANC(X,Y,N,IN) GR2 BLANCH GR2 BOUND(Z,M,N,X,Y,NX,NY,KX,KY,NF,XMI,XMA,YMI,YMA) GR14 BOX (X,Y,XL,YL) GR1 BRLINE(X,Y,N) GR8 BROKEN (AN1,AN2,AN3,AN4) GR8 BUFL(IXF,YFI,IBX,BYI,RMAX,RMIN) GR7 - 20 - BYPASS(I) GR1 CABIN(I) GR4 CCNTL(CN,L,C) GR13 CCNTRP(CN,P,C) GR13 CELL(PHI,N1,N2) GR8 CHENSP(YM,N,YH,K,C,M) GR3 CILIND(R,HMN,HMX,NH,NFI,DX,DY,DZ,NLINES,NBEG) GR11 CIRC(R) GR6 CIRCLE (XA,YA,TH0,THF,R0,RF,L) GR2 CIRTAC(R,XT,YT,J) GR61 CIRTAL(R,XT,YT,J) GR61 CMGRID(X,Y,N1,N2,MX,MY,SZ,KP,M,N,IKOP) GR8 CMLC(LM,C1,C2) GR13 CMS GR1 CNCTCC(C1,C2,R,N) GR12 CNCTCL(C,L,R,N) GR12 CNCTLL(L1,L2,R,N) GR12 CONDEK(LX,LY,X,Y,Z,STEP,K0,N,C) GR9 COORD (CO,J) GR2 COORDT(DX,DY,DZ,NLINES,N1,N2,NCLUST,NLNDR,ITYP) GR11 COPCHR(C,A) GR0 CORNL (LXI1,LX1,LYJ1,LY1,K1,M1,K2,M2,X,Y,A,LXX, LYY,XF1,YF1,RMAX,RMIN) GR7 COSIN1(X1,Y1,X2,Y2) GR10 COSIN2(X1,Y1,X2,Y2) GR10 CPPP(P1,P2,P3,C) GR13 CROSS(X,Y,J) GR61 CROSSP(X,Y,RC,T) GR11 CTCCP(C1,C2,P,N) GR12 CTCPP(P1,P2,C,N) GR13 CTLLL(L1,L2,L3,M) GR12 CTLLP(L1,L2,P,N) GR12 CTLPP(P1,P2,L1,N) GR12 CUBPOL (X1,X2,Y1,Y2,DY1,DY2,B) GR3 CXYR(X,Y,R,C) GR12 DASHP(X,Y,DL) GR2 DDIST(X,Y) GR61 DERIV5 (DX,Y,N,I) GR3 DIMDRO(D,J) GR6 DIMET GR4 DIST(J) GR6 DRACON(LX,LY,X,Y,Z,STEP,K,N,C,FUNX,FUNY) GR9 DRALIM(LX,LY,X,Y,FUNX,FUNY,S) GR9 DRAWEL(T,I) GR11 DRAWTE GR11 DRFRAM(LX,LY,X,Y,FUNX,FUNY) GR9 DRW(DX,DY,DZ,NLINES,NL1,NL2) GR11 DRWHL(DX,DY,DZ,NLINES,NL1,NL2) GR11 ELIPS (X0,Y0,A,B,ALPHA,THETO,THETF) GR1 ELPS(A,B,ALPHA) GR6 ENDLEV GR2 ENDPG(NUMB,LENN) GR0 EXMIMA (Z,M,N,ZMI,ZMA) GR14 EXTLN(X,Y,Z,G) GR11 EXTREM(R,T,N1,N2,XMN,XMX,YMN,YMX,IKOP) GR8 - 21 - EXUDE(Z,M,N,X,Y,NX,NY,KX,KY,NF,MRKA,MRKI,KD,H,TH) GR14 FATARC(R,XF,YF,J,D) GR6 FATLIN(XF,YF,D) GR6 FINAL GR0 FNROOT(LX,LY,X,Y,Z,NROOTS,ROOT) GR9 FORFIT (M,A,B,XBEG,XEND,MPTS) GR3 FORIF (FUN,N,M,A,B,IER) GR3 FORIT (FNT,N,M,A,B,IER) GR3 FULL GR8 GFFALS(N) GR2 GRAFER(IT) GR9 GRID (X,Y,XS,YS,M,N) GR1 GRINIT GR0 HALLNE(DX,DY,DZ,NLINES,N1,N2,NCLUST,NLNDR,G,TOL,ITYP) GR11 HALOED(DX,DY,DZ,NLINES,NDRAW1,NDRAW2,NC1,NC2, NCLUST,NLNDR,G1,TOL1,ITYP) GR11 HCIND(X,IST,IFN,EL) GR4 HCINIT(A) GR11 HCINV(X,Y,Z,XP,YP,ZP) GR4 HCLINE(X,Y,NP) GR4 HCMULT(A,B) GR4 HCNCOR(X,Y,Z,T) GR11 HCNCRD(X,Y,Z) GR4 HCPRSP(H) GR4 HCROT1(X,Y,Z) GR4 HCSURF(X,Y,Z,NROW,NCOL,ISTA,IFN,JSTA,JFN,LNT,MOVX, MOVY,AMXMN,AR) GR4 HCUNIT(A) GR4 HISTGM(X0,DX,Y0,YV,N,NP1) GR3 HLDLN(DX,DY,DZ,NLINES,I,NC1,NC2,NCLUST,NLNDR,ITYP) GR11 IBCD(IRI,IB) GR1 IDENT(MD,ND) GR0 ILIMTN(L,IR,IBOUND,NB) GR10 INCHES GR1 INCLIN (XBEG,DXEX,JX,Y,N,NM,JS) GR3 INIT GR4 INSDEK(LX,LY,X,Y,Z) GR9 INSIDE(LX,LY,X,Y,Z,FUNX,FUNY) GR9 INTRSC(X1,Y1,X2,Y2,X3,Y3,X4,Y4,X0,Y0) GR7 ISOLIN(N1,N2,X,Y,PHI,ITAGB,NA,IXBD,IYBD,KC,CONT,IKOP) GR8 ISOMET GR4 ITALIC(J) GR1 ITPLBV(LX,LY,X,Y,Z,N,U,V,W) GR9 IVEST (A,B,EPS) GR6 IZFLIN(Z,M,N,X,Y,ZIZ,L,NX,NY,KX,KY,NF,XI,YI,NL) GR14 IZLIN(Z,M,N,X,Y,ZMI,ZIZ,NIZ,NX,NY,KX,KY,XI,YI,NL) GR14 IZOLIN(Z,M,N,X,Y,ZIZ,L,XI,YI,NL) GR14 KEYPO (PHI,X,Y,N1,N2,IS1,IS2,NM,SZ,KP,IKOP) GR8 LCROSS(X1,Y1,X2,Y2,X3,Y3,X4,Y4,C,D) GR10 LESQ (X,Y,RO,M,B,N) GR3 LETIZO(XI,YI,ILM,ZIZ,NIZ,KIND) GR14 LETSPL(XI,YI,ILM,ZIZ,NIZ,KIND) GR14 LEVFUN(PHI,N1,N2,C,NCN) GR8 LEVMAP(C,NC,F0,SP,SM,NP) GR8 LGLINE(X,Y,N,LG,NM,JS,L) GR2 - 22 - LICON(XT1,YT1,XT2,YT2,J) GR6 LIMITS (XMIN,XMAX,YMIN,YMAX) GR1 LINEC(X,Y,N) GR1 LINEMC(X,Y,N,NM,JS) GR1 LINEMO(X,Y,N,NM,JS) GR1 LINEO(X,Y,N) GR1 LINFIL(A,B,N,M) GR3 LININT(IBX,BYI,IXF,YFI,RMAX,RMIN) GR7 LINNUM(X,Y,KT) GR8 LINT(X,Y,XX,YY,N1,N2,KT,IKOP) GR8 LITAN(XT,YT,J) GR6 LOCEXT(PHI,X,Y,N1,N2,IKOP) GR8 LOOK(N1,N2,X,Y,PHI,ITAGB,XX,YY,KT,IKOP) GR8 LOWER (Z,M,N,ZMI) GR14 LPAL(P,A,L1,L) GR12 LPARLD(L1,D,L2) GR12 LPARLP(L1,P,L2) GR12 LPARX(D,L) GR12 LPARY(D,L) GR12 LPERLP(L1,P,L2) GR12 LPP(P1,P2,L) GR12 LSCALE(X1,Y1,X2,Y2,R) GR2 LSFIT (X,Y,RO,M,N,MPTS) GR3 MAP (X,Y,Z) GR7 MARKBE (XI,YI,IL) GR14 MARKER(NMARK) GR1 MATEVL(XV,YV,ZV,XPL,YPL,ZPL,VX,VY,VZ) GR10 MINMAX(A,N,RMN,RMX) GR1 MMS GR1 MNMX(VX,VY,VZ,X,Y,A,LLX,LLY,LXINI,LXE,LYIN,LYE,S) GR7 MODGF(J) GR10 MOVA(DL,TH,J) GR61 MOVB(DX,DY,J) GR6 MOVC(XM,YM,DL,J) GR6 MOVE(X,Y,J) GR1 MOVE(X,Y,J) GR6 MOVE1(X,Y,J) GR2 MOVE2(X,Y,J) GR2 MOVE3(X,Y,J) GR2 MTMPL(AL1,BL1,CL1,AL2,BL2,CL2, AT1,BT1,CT1,AT2,BT2,CT2,AE1,BE1,CE1,AE2,BE2,CE2) GR2 MXMULT(A,B) GR11 NEWFRM GR10 NEXTRG(IBOUND,X,Y,NET,NODES,NB,XV,YV) GR10 NOTCH(X,Y,N,NSIZE,STEP,J,ITR) GR2 NOTCH1 GR2 NUMBER(X,Y,Z,FNUM,N,TH) GR2 NUMLIN(SIZE,N) GR8 OPER(LRP1,I,X,RZ) GR9 PAC(C,A,P) GR13 PAGE (XL,YL,NAME,N0,J) GR0 PATA(C,A1,A2,N,I,P) GR13 PATC(C,A,N,I,J,P) GR13 PATCH(XF1,YF1,RMAX,RMIN) GR7 PATL(PH,PK,N,I,P) GR13 - 23 - PCNAP(PC,P1,ALPHA,P) GR13 PCNTRC(C,P) GR13 PEN(J) GR0 PICTUR(ISCR,SCRN,IDIM1,IDIM2,X1,Y1,X2,Y2) GR10 PIEPP(P1,P2,A,B,K,P) GR13 PILC(L,C,N) GR12 PILL(L1,L2,P,N) GR13 PISS(P1,P2,P3,P4,P,N) GR13 PLOT(IXI,IYI,J) GR0 PMIDPP(P1,P2,P) GR13 PMLP(L,P1,P2) GR13 PMP(P1,P2,J) GR13 PMPP(P1,P,P2) GR13 PNORDR(X,Y,NET,L,IB,IE) GR10 POLG(R,M,PHI) GR6 POLINE(R,TH,N,KS,NM,JS,L) GR2 POLREG(XOFC,YOFC,RIN,RFN,THETA1,THETA2,JTEXT,M,H,J) GR2 POLYG (X,Y,SL,M,TH) GR1 PRAP(P1,R,A,P2) GR13 PREP(X,Y,Z,N0,XV,YV,ZV,XPL,YPL,ZPL,VX,VY,VZ, ISCR,IDIM1,RLYTOX) GR10 PRJ(IT,X,Y,Z) GR11 PRJHL(IT,X,Y,Z) GR11 PRJT(VX,VY,VZ,X,Y,A,LX,LY,LXIN,LXE,LYIN,LYE,XF1,YF1) GR7 PROJCT(XP,YP,ZP,XPJ,YPJ) GR10 PRSP(VX,VY,VZ,X,Y,A,LLX,LLY,LXINIT,LXEND,LYINIT,LYEND, XF1,YF1,RMAX,RMIN,NN) GR7 PSCALE(X,Y,R) GR2 PTLPC(C,P,N) GR12 PVAL(RES,ARG,B,N) GR3 PXY(X,Y,P) GR13 QUADRA(ITAGB,IXBD,IYBD,N1,N2,N5) GR8 RAISE (Z,M,N,ZMI) GR14 RAND(RMIN,RMAX,K) GR3 RAXES(NAME,N,H,UR,KR,M,T) GR2 RCCNTC(CN,C,R1,R2) GR13 RDACA(X0,Y0,R,TH0,THF) GR61 RDACB(X0,Y0,R,XF,YF,J) GR61 RDACC(X0,Y0,XM,YM,XF,YF,J) GR61 RDACD(X0,Y0,XC,YC,PHI) GR61 RDAEA(X0,Y0,A,B,ALPHA,TH0,THF) GR61 RDAEB(X0,Y0,A,B,ALPHA,XF,YF) GR61 RDCRC(XC,YC,R) GR61 RDELP(XC,YC,A,B,ALPHA) GR61 RDMVA(X0,Y0,DL,TH) GR61 RDMVB(X0,Y0,DELTAX,DELTAY) GR61 RDMVC(X0,Y0,XM,YM,DL) GR61 RDMVE(X0,Y0,X,Y) GR61 RDSTR(STORE) GR6 REBLAN GR2 RECT (X,Y,H,W,TH) GR1 RECUR (Z,M,N,NX,NY,KX,KY) GR14 REGION(X,Y,XL,YL,NAME,N,J) GR1 RENTCH GR2 RENUM GR8 - 24 - RESET GR2 ROTATE(X,Y,PSI) GR2 ROTH(NAXES,FI,DX,DY,DZ,NLINES,NBEG,NEND) GR11 SAVETR(A) GR4 SCREN1(ISCR,SCRN,IDIM1,IDIM2,Y,N,IND) GR10 SCREN2(ISCR,SCRN,IDIM1,IDIM2,X,Y,NL,STEP,XBEG,A1, B1,A2,B2,IND) GR10 SCRMOD(ISCR,SCRN,IDIM1,IDIM2,XL,YL,XIR,YIR,XK,YK) GR10 SDPG(STEP,EPS,BETA) GR2 SEARCH(IXF,YFI,IBX,BYI,XF1,YF1,RMAX,RMIN) GR7 SECANT(SL,ALPHA,X,Y) GR61 SEE(L,IR,IBOUND,X,Y,NB,IND,IDRWN,XV,YV) GR10 SEE1(I1,I2,I3,I4,X,Y,XV,YV,IND) GR10 SEGANG(X1,Y1,X2,Y2,A,STEP,IND) GR10 SET(J) GR1 SETBE (LSTEP,SIZEB) GR14 SETTR(A) GR4 SFCFIT(LX,LY,X,Y,Z,MX,MY,NU,NV,U,V,W) GR8 SHADE(X,Y,N,STEP,EPS,BETA) GR2 SHDOWN(I) GR11 SHEAR(N1,N2,F) GR4 SHIFT(DX,DY) GR2 SHUP(I) GR11 SIGNA(NAME,N,H,XO,YO,RFN,UTR,KTR,A,B,BS,MK, KD,Q,S,K,R6,AR,C) GR2 SINCL(XB,STEP,Y,N) GR3 SIZLIN(SIZE,N,M) GR8 SIZNUM(SIZE,FNUM,N,M) GR8 SLINST(J) GR14 SMINV(A,V,N) GR3 SMTBVF(LP,LX,LY,X,Y,Z,N,U,V,W) GR9 SMTONE(LX,LY,X,Y,Z,MX,MY,NU,NV,U,V,W) GR9 SMTSIM(LX,LY,X,Y,Z,N,U,V,W) GR9 SORT3(PA,PB,K) GR12 SORTC(J,C) GR13 SORTCN(M,J,C) GR12 SORTL(L,J,C) GR13 SORTP(J,P) GR12 SORTPT(J,PT1,PT2) GR13 SORTY(DX,DY,DZ,NLINES,N1,N2) GR11 SPHERG(R,NFI,NTETA,DX,DY,DZ,NLINES,NBEG) GR11 SPHERV(R,NFI,NTETA,DX,DY,DZ,NLINES,NBEG) GR11 SPIRAL(TH0,THF,R0,RF) GR6 SPLINE (X,Y,U,N,A,B,C,D,KODE,IER) GR3 SPLINT (X,N,A,B,C,D,Y,M) GR3 SPLITP(X,Y,Z) GR11 SPLOT(IXI,IYI,J) GR0 STAR(R,M,ALPHA,PHI) GR61 STORIN(AL,AU) GR11 STRMOD(J) GR6 STROT3(NAXES,CS,SN,R) GR11 SUPLIN(X,Y,N,NM,JS,L,IKOP) GR8 SVLSEG(AL,AU,I) GR11 SYMBOL(X,Y,SIZE,JBCD,LIMIT,THETA) GR1 SYMTAB(JB,I,NPLOT,KK,IS1) GR1 - 25 - TCALC (X,Y,T,N) GR3 TDAXES(X,Y,REG,L) GR4 TDLIM(X,Y,Z,NROW,NCOL,ISTA,IFN,JST,JFN,S) GR4 TDLIML(X,Y,Z,N,S) GR4 TDLINE(X,Y,Z,N) GR4 TDMP(X,Y,N,A,B,C,D,KODE) GR3 TDROT(NAXES,ALPHA) GR4 TDSCAL(NAXES,SCALE) GR4 TDSECT(Z,X,Y,IX,IY,M,N,AMXMN,AR) GR4 TDTRAN(DX,DY,DZ) GR4 TESTVS GR11 TFM(XF,YF,XM,YM) GR2 THAXES(NAME,N,H,UT,KT,MT,R) GR2 THREED(X,Y,Z,NROW,NCOL,ISTA,IFN,JSTA,JFN, LNTP,NGRD,AMXMN,AR) GR4 TMF(XM,YM,XF,YF) GR1 TMLGF (X,Y,LG,N,XF,YF) GR2 TOKEN(X,Y,MRK,FZ,N,H,TH) GR14 TPF(RM,TM,KN,RF,P,X,Y) GR2 TRANH(DELX,DELY,DELZ,DX,DY,DZ,NLINES,NBEG,NEND) GR11 TRANSF(ZIZ,XI,YI,ILM) GR14 TRANSL(DX,DY) GR2 TRDRAW(ISCR,SCRN,IDIM1,IDIM2,X,Y,Z) GR10 TRG(L,IR,K,KL,KR,NET,NODES,IBOUND,NB,X,Y,XV,YV,IND) GR10 TRGRID(X,Y,N0,NET,IBOUND,NODES,NET0,NT1) GR10 TRIDIG (U,N,A,B,C,D,KODE,IER) GR3 TRIG(X,Y,N0,NODES,NET0,IBOUND,NET,NT1) GR10 TRINGL(X,Y,N0,IBOUND,IDOM,NODES,NET,NT1) GR10 TRSURF(X,Y,Z,N0,XV,YV,NODES,NET0, GR10 VIEW(X,Y,Z) GR4 VPLIM(DX,DY,DZ,NLINES,NL11,NL2,S) GR11 WHERE(X,Y,F) GR1 WHERP(X,Y,F) GR61 WRACA(R,TH0,THF) GR61 WRACB(R,XF,YF,J) GR6 WRACC(XM,YM,XF,YF,J) GR6 WRACD(XC,YC,PHI) GR6 WRAEA(A,B,ALPHA,TH0,THF) GR6 WRAEB(A,B,ALPHA,XF,YF) GR6 WRCRC(R) GR6 WRELP(A,B,ALPHA) GR6 WRMVA(DL,TH) GR6 WRMVB(DELTAX,DELTAY) GR6 WRMVC(XM,YM,DL) GR6 WRMVE(X,Y) GR61 WRSTR(STORE) GR6 XAXIS(Y0,NAMEX,NX,UX,KX,M,J) GR2 XILIY (Z1,Z2,ARG1,ARG2,ZIZOL,I,J,IUS,JUS) GR14 XILIY1 (Z1,Z2,ARG1,ARG2,ZIZOL,I,J,IUS,JUS) GR14 XLGAX (YO,NAME,N,J,K,M) GR2 XPOL(X,Y) GR8 XYSORT (X,Y,N) GR3 YAXIS(X0,NAMEY,NY,UY,KY,M,J) GR2 YLGAX (XO,NAME,N,J,K,M) GR2 YPOL(X,Y) GR8 - 26 - ZAPIT(ITAGB,N1,N2) GR8 ZINT(X1,Z1,X2,Z2,X) GR4 - 27 - Приложение VI КЦГД: дозагружаемый графический интерпретатор. По сути, данное приложение является инструкцией по эксплуатации графического интерпретатора КЦГД. Данный интерпретатор был написан автором для работы с ГРАФОРом, хотя его использование может быть и автономным. Загружается он в ОЗУ КЦГД командой R GS.SYS Чтобы интерпретатор начал действовать, необходимо передать в КЦГД следующие управляющие последовательности: (здесь и далее последовательность <ESC > означает восьмеричный код 033, или десятичный 27; на клавиатуре это клавиша <АР2> или комбинация <СУ>[ ) ESC < переводит КЦГД в расширенную систему команд; ESC P переводит КЦГД в графический режим. В обычный текстовый режим работы КЦГД возвращается следующими командами: ESC ~ (тильда; ^ в нижнем регистре) выводит КЦГД из графического режима в расширенную систему команд; ESC [?2l переводит КЦГД в обычный режим. В графическом режиме КЦГД может выполнять следующие команды: D X,Y; рисование линии из текущего состояния в точку X,Y; M X,Y; перевести перо в точку X,Y; J N; установить цвет <N=0..3>; H; начальная установка интерпретатора; C; после получения этой команды КЦГД выдает в ЭВМ полную последовательность байт для функции Print_Screen; Все эти команды, за исключением <C;>, можно отдать с клавиатуры в автономном режиме. При обращении к драйверу <GS:>, последний автоматически передает в КЦГД все управляющие коды. - 28 - Приложение VII КЦГД: дозагружаемые коды клавиатуры. КЦГД дозагружается новыми кодами клавиатуры в процессе загрузки операционной системы. Программа загрузки находится в файле TT.SYS. Ниже приведены изменяемые коды клавиш. -------------------------------------------------------- Название клавиши КОИ7 Восьмеричный код Примечания -------------------------------------------------------- ПЕЧАТЬ КАДРА ^A 001 ПАУЗА NULL 000 ф5 ^^ 036 ПРЕРЫВ ^S 023 ПРОДОЛЖ ^T 024 ОТМЕН ^U 025 ОСНОВН КАДР ^V 026 ВЫХОД ^C 003 АР2 ESC 033 ВШ ^H 010 ПС ^J 012 ДОП ВАРИАНТ NULL 000 ПМ ESC a 033,141 ВЫБР ESC f 033,146 Ф17 ESC H 033,110 Ф18 ESC J 033,112 ф19 ESC K 033,113 ф20 ESC L 033,114 НТ ESC c 033,143 ВСТ ESC d 033,144 УДАЛ ESC e 033,145 ИСП ESC b 033,142 ПРЕД КАДР ESC g 033,147 СЛЕД КАДР ESC h 033,150 ~ ^J 012 РУС ЛАТ ^N 016 КМП ^O 017 { { 173 } } 175 ТБ ^X 030 ЗБ DEL 177 ПФ1 ESC P 033,120 ПФ2 ESC Q 033,121 ПФ3 ESC R 033,122 ПФ4 ESC S 033,123 7 7 067 * 8 8 070 * 9 9 071 * . . 056 * 4 4 064 * 5 5 065 * 6 6 066 * - - 055 * 1 1 061 * - 29 - 2 2 062 * 3 3 063 * , , 054 * 0 0 060 * ВВОД ^M 015 * ------------------------------------------------- * - Выдает ESC-последовательности в режиме дополнительной клавиатуры.