Товары в корзине: 0 шт Оформить заказ
Стр. 1
 

184 страницы

973.00 ₽

Купить официальный бумажный документ с голограммой и синими печатями. подробнее

Официально распространяем нормативную документацию с 1999 года. Пробиваем чеки, платим налоги, принимаем к оплате все законные формы платежей без дополнительных процентов. Наши клиенты защищены Законом. ООО "ЦНТИ Нормоконтроль".

Наши цены ниже, чем в других местах, потому что мы работаем напрямую с поставщиками документов.

Способы доставки

  • Срочная курьерская доставка (1-3 дня)
  • Курьерская доставка (7 дней)
  • Самовывоз из московского офиса
  • Почта РФ

Устанавливает правила привязки ядра графической системы (ЯГС) (ГОСТ 27817) к языку программирования Ада (ИСО 8651-3) и определяет:

имена и списки параметров процедур на языке Ада, соответствующие функциям ЯГС;

имена типов данных ЯГС в языке Ада;

структуры данных ЯГС в языке Ада;

имена функций обработки ошибок.

Настоящий стандарт не устанавливает:

структуры и методы реализации ЯГС;

требования к операционной среде и оборудованию;

методы связи ЯГС с другими языками программирования, отличными от языка Ада

Оглавление

0. Введение

1. Назначение и область применения

2. Ссылки

3. Связь ядра графической системы с языком ада

3.1. Условия соответствия стандарту

3.2. Включение в язык

3.2.1. Отображение функций

3.2.2. Реализация и зависимость от компьютера

3.2.3. Обработка ошибок

3.2.4. Отображение данных

3.2.5. Многозадачность

3.2.6. Пакетирование

3.2.7. Среда прикладных программ

3.2.8. Регистрация

4. Таблицы

4.1. Процедуры

4.2. Определение типов данных

4.2.1. Сокращения, используемые в определениях типов данных

4.2.2. Определение типов в алфавитном порядке

4.2.3. Список определений личных типов

4.2.4. Список деклараций констант

4.3. Коды ошибок

4.3.1. Задание кодов ошибок

4.3.2. Коды устраняемых ошибок

5. Функции в аде, связанные с ядром графической системы

5.1. Функции ЯГС

5.2. Дополнительные функции

5.2.1. Подпрограммы для манипулирования записями входных данных

5.2.2. Пакет обобщенной координатной системы ЯГС

5.2.3. Общий пакет списка утилит ЯГС

5.2.4. Утилиты функций метафайла

5.3. Настраивающиеся варианты

Приложение А. Спецификация скомпилированного ЯГС

Приложение Б. Список ссылок на определенные реализацией записи

Приложение В. Примера программ

Приложение Г. Многозадачный режим работы ЯГС

Приложение Д. Неподдерживаемые обобщенные примитивы вывода и расширения

Приложение Е. Типы элементов метафайла

Приложение Ж. Индексы функций ЯГС

Информационные данные

Показать даты введения Admin

Страница 1

ГОСТ 34.1702.3-92 (ИСО 8651-3-88)

ГОСУДАРСТВЕН! 1ЫП СТАНДАРТ РОССИЙСКОЙ ФЕДЕРАЦИИ

ИНФОРМАЦИОННАЯ ТЕХНОЛОГИЯ

МАШИННАЯ ГРАФИКА

СВЯЗЬ ЯДРА ГРАФИЧЕСКОЙ СИСТЕМЫ С ЯЗЫКОМ ПРОГРАММИРОВАНИЯ АДА

Издание официальное

МОСКВА

1993

Страница 2

(g) Издательство стандартов,

Страница 3

к ГОСТ Р 34.1702.3-92 (ИСО 8651-3—88) Информационная технология. Машинная графика. Связь ядра графической системы с языком программирования /Via

В каком месте

Напечатано

Должно быть

Обложка, ти

ГОСТ 34.1702.3-92

ГОСТ Р 34.1702.3-92

тульный лист

(ИУС № 12 2007 г.)

Страница 4

УДК 6$ 1.3.04:006.354    . Группа П85

государственный стандарт российской ♦едерации

Информационная технология МАШИННАЯ ГРАФИКА

ГОСТ Р

34.1702.3 -92

Свять ядра графической системы с «зыком программирования Ала

Information technology Computer graphic* — Graphical. Kernel System (GKS) language bindings — Ada

(ИСО 8651—3—88)

ОКСТУ 0031

Дата ••едеимя 01.01.94

Настоящий стандарт устанавливает правила, привязки ядра графической системы (ЯГС) (ГОСТ 27817) к языку программирования Ада (ИСО 8651—3) и определяет:

имена и списки параметров процедур на языке Ада. соответствующие функциям ЯГС;

имена типов данных ЯГС в языке Ала; структуры данных ЯГС в языке Ада; имена функций обработки ошибок.

Настоящий стандарт не устанавливает: структуры и методы реализации ЯГС; требования к операционной среде н оборудованию; методы связи ЯГС с другими языками программирования, отличными от языка Ада.

2. ССЫЛКИ

В качестве описания правил привязки ЯГС к языку программирования Ада использован ” международный стандарт ИСО 8651—3—88, прицеленный в приложении.

Издание официальное

Настоящий стандарт не может быть полностью или частично воспроизведен, тиражирован и распространен без разрешения Госстандарт» России

Страница 5

С. 2 ГОСТ Р 34.1702.3-02

ПРИЛОЖЕНИЕ

•МЕЖДУНАРОДНЫЙ СТАНДАРТ

Системы обработки информации МАШИННАЯ ГРАФИКА Садеь ядра 1рафич*с*ой системы с языком программиромимя Ада ИСО 8651 — 3—8#

ПРЕДИСЛОВИЕ

Международный стандарт ИСО 8651—3 разработан Техническим комитетом ИСО/СТК I «Системы обработки информации».

Т1СО 8651 состоит из следующих частей под общим заголовком «Системы обработки информации. Машинная графика. Связь ядра графической системы (ЯГС) с языками программирования:

Часть 1. Фортран.

Часть 2. Паскаль.

Часть 3. Ада.

0. ВВЕДЕНИЕ

Функциональное описание ядра графической системы (ЯГС), содержащееся в ГОСТ 27817 (ИСО 7942), сформулировано независимым от языка программирования способом и должно быть окружено слоем, зависящим от языка программирования (привязка к языку) для использования с определенным языком программирования.

Цель настоящего стандарта части ИСО 8651 — определение стандартной привязки к языку программирования Ада.

I. НАЗНАЧЕНИЕ И ОБЛАСТЬ ПРИМЕНЕНИЯ

ГОСТ 27817 (ИСО 7942) определяет ячыконезависимое ЯГС. Для включения его в язык программирования ЯГС помещается на

Страница 6

ГОСТ Р 34.1702-8-92 С. 3

языковозависимый уровень, отвечающий соогветствующнм положениям этого языка. Настоящая часть ИСО 8651 определяет такой языковозависимый уровень для языка программирования Ада.

2. ССЫЛКИ

ГОСТ 27817 (ИСО 7942—85) Системы обработки информация: Машинная графика. Описание функций ядра графической системы (ЯГС).

ГОСТ 27831 (ИСО 8652— 86) Язык программирования Ада.

3. СВЯЗЬ ЯГС С ЯЗЫКОМ АДА

Данная связь не предполагает, что компилятор поддерживает любые свойства языка Ада, которые являются зависящими от реализации, но подразумевает, что компилятор будет способен поддерживать декларации, входящие в связывание GKS/Ада. Не делается никаких предположении относительно машинного представления предопределенных типов чисел в Аде.

Данная связь предполагает, что прикладной программист будет применять имя файла ошибок и идентификатор связи, которые будут иметь формат, приемлемый Для реализации Ады.

В данной связи не делается предположения относительно формата строки, определяющей имя файла ошибок или идентификатор связи для устройства или метафайла.

3.1. Условия соответствия стандарту

Данная связь включает правила, определенные в стандарте ГОСТ 27817 (ИСО 7942) со следующими дополнительными требованиями, специально заданными для реализации ЯГС в языке Ада.

Для определения соответствия или несоответствия реализации данному связыванию установлены следующие критерии:

а)    реализация ЯГС в Аде соответствует уровню ЯГС, если она точно выполняет декларации для данного уровня ЯГС и более низких уровней, определенных данным связыванием;

б)    семантика реализации должна соответствовать стандарту ЯГС с модификациями и расширениями для Ады, установленным»* в Данном документе;

в)    модуль, соответствующий реализуемому уровню ЯГС, должен быть доступен в виде блока библиотеки Ады с именем, определенным в данном документе.

Страница 7

С А ГОСТ Р 34 1702-3—92

3-2. Включение п язык

■3.2.1.Отображение функций

■Все функции ЯГС отображаются в процедуры Алы Отображение использует «однн-в-олнн» соответствие между функциями ЯГС н процедурами Ады, исключая функции ЯГС «Узнать текущий атрибут примитив*» и «-Узнать индивидуальный атрибут*. Они связаны с отдельной процедурой Ады для каждого из запрашиваемых атрибутов; атрибуты связываются с одной записью.

3.2.2.    Реализация н зависимость от компьютера

Существует ряд зависимостей от реализаций и компьютера, связанных с компилятором Ады и используемыми процедурами системы.- Это будет влиять на переносимость прикладных программ и их использование Я ГС. Прикладному программисту еле-' дует придерживаться принятой практики обеспечения переносимости программ на языке Ада, чтобы избежать возникновения проблем при переносе прикладного программного обеспечения на другую систему. К зависимостям от реализаций относятся управление памятью и процессором.

3.2.3.    Обработка ошибок

Справочные функции используют параметры индикаторов для возврата ошибок и не порождают прерываний. В языке Ада прикладная программа должна гарантировать, что индикаторы ошибок проверяются до попыток обращения к другим параметрам, так как некоторые реализации Ады не порождают прерываний, если обнаружено неопределенное значение.

Требования ЯГС по обработке ошибок можно выразить следующим образом.

1.    По умолчанию процедура, названная ERROR-HANDLING, будет обеспечивать простую регистрацию ошибок вызовом ERROR-LOGGING. Она вызывается из функций ЯГС. обнаруживших ошибку.

2.    Процедура ERROR_HANDLING может быть заменена пользователем на другую.

Процедура ERROR-HANDLING задается, как библиотечная подпрограмма:

with GKS-TYPES;

use GKS-TYPES;

procedure ERROR HANDLING (ERROR INDICATOR

: in ERROR-NUMBER;

GKS-FUNCTION : in STRING;

ERROR-FILE : in STRING : = DEFAULT-ERROR-FILE);

Страница 8

ГОСТ Р 34.1702.3-92 С. S

Процедура ERROR-HANDLING определяется как библиотек мая процедура и не декларируется внутри пакета ЯГС

Данная связь определяет два различных тела для этой программ мы; каждое должно быть представлено реализацией. Тело по умолчанию — это одна из требуемых ЯГС семантических конструкций. Это просто вызов ERROR-LOGGING и возврат. Функция ЯГС должна быть написана так. чтобы она не поддерживала GKS-ERROR (это требование реализации). Таким образом, в соответствии с правилами языка Ада прерывание распространяется назад к прикладной программе, вызвавшей функцию GKS, в которой обнаружилась ошибка.

Смысл пользовательской замены тела, применяемого по умолчанию. на версию, порождающую прерывание, зависит от менеджера библиотеки Ады. Некоторые реализации поддерживают множество версий тела с одной спецификацией или допускают применение иерархических библиотек с разделением общих блоков. В других реализациях может оказаться необходимым дублировать библиотеку семантических конструкций для каждой версий ERROR HALDING.

Ошибки GKS отображаются в одно прерывание GKS-ERROR, декларированное в пакете GKS. Предполагаемый стиль в обработке ошибок с использованием прерываний состоит в том. чтобы обеспечить обработчик для прерываний GKS..ERROR.

3.2.4. Отобр а жен не данных

Простые и составные типы данных ЯГС связываются с различными скалярными и составными типами языка Ада. Ограничения на допустимые значения отображаются, где это возможно, в определениях типов. Общее соотношение между типами данных ЯГС и типами данных Ады следующее:

целые ЯГС отображаются в целые типы Ады; действительные ЯГС соображаются в типы с плавающей запятой Ады;

строки ЯГС отображаются в тип STRING Ады или в тип-., предназначенный для строк переменной длины;

указатели ЯГС отображаются в типы записи Ады; имена ЯГС отображаются в дискретный тип Ады; нумерация ЯГС отображается в тип нумерации Ады; вектора ЯГС отображаются в тип записи Ады; матрицы (matrix) ЯГС отображаются в типы массив (array)? Ады;

списки ЯГС из элементов конкретного типа отображаются в приватный тип Ады, декларированный в общем пакете GKS-_LIST_UTIL1TIES;

Страница 9

С. В ГОСТ Р 34.1702.3-92

массивы ЯГС отображаются либо в тип неограниченной матрицы. либо в тип записи, предоставляемый для массивов переменной длины;

упорядоченные пары ЯГС отображаются в типы записей Лды;

записи данных ЯГС отображаются в приватные типы Ады.

В некоторых случаях набор подпрограмм для обработки записей данных явно определяется данным стандартом. Реализация ЯГС может предоставить другие подпрограммы для манипулирования зависящими от реализации данными.

3-2.5. Многозадачность

В определении языка Ада дается явная поддержка параллель-«остн. Модель организации прохождения задачи включает средства для декларирования и выделения задачи и операции, допус-каюшке* межзадачную связь и синхронизацию.

Стандарт ЯГС не требует и не запрещает в реализации защиту ют проблем, которые могут возникнуть при асинхронном доступе к структурам данных ЯГС из параллельных задач. В пользовательской документации по реализации ЯГС должна содержаться информация о том. введена ли защита от таких проблем.

Приложение Д представляет собой пособие для тех. кто хочет, «ггобы поддерживались многозадачные прикладные программы. Приложение не является составной частью стандарта, а предоставляет дополнительную информацию.

3.2.6. Пакетирование

Стандарт ЯГС определяет девять уровней графической функциональности, где уровень 0а является низшим, а 2с — высшим уровнем. В реализация ЯГС можно сделать систему единой, а можно реализовать каждый уровень отдельно. Для поддержки этой концепции данный стандарт определяет девять пакетов Ады, которые соответствуют каждому уровню ЯГС. Каждый из этих пакетов именуется package GkS is ... end GKS, чтобы обеспечить переносимость прикладных программ для уровней ЯГС. Однако содержимое пакетов различается в зависимости от уровня ЯГС, который они реализуют. Каждый из этих пакетов предоставляет подпрограммы, определенные для их уровней и все подпрограммы, заданные в нижних уровнях, как определено в п. 5.1. С каждым из этих пакетов связаны пакеты типов данных, которые обеспечивают декларации типов для соответствующего уровни, как определено в п. 4.2, а ЯГС определяет прерывания, приведенные а п. 4.3.1. Данные пакеты именуются package CKS..TYP0S Is ... end GKS -TYPES. '

Средства библиотек программ Ады следует использовать для обеспечения отделения уровней. Так графические прикладные

Страница 10

ГОСТ Р 34.I702.S-92 С. 7

программы ка Аде, которые используют Я ГС, должны включать-соответствующие пакеты Я ГС, которые предоставляют подпрограмму, типы и прерывания для данного уровня компилированием н включением соответствующей библиотеки Ады, которая содержит данный уровень ЯГС. Например, прикладная программа, которая использует уровень 0а, могла бы выглядеть следующим образом:

with GKS;

use GKS TYPES;

procedure APPLICATION is

begin

null;

end APPLICATION.

Далее программа компилируется и связывается с библиотекой программ Ады. которая соответствует уровню Оа.

Данный стандарт определяет и ряд дополнительных блоко» Ады. Ими являются общие пакеты:

GKSXOORD1NATE. SYSTEM;

GKS.L1ST-UTILIT1ES.

Эти общие пакеты поддерживают типы деклараций в пакете GKS-TYPE, описанном выше. GK.S_COORDINATE,SYSTEM представляет собой общин пакет, в котором определен ассортимент типов для поддержания каждой координатной системы ЯГС. GKS--LIST-UTILIT1ES является также общим пакетом, который предоставляет декларации списков и операинн для типов списков, которые соответствуют типам списков ЯГС.

3.2.7. Среда прикладных программ Прикладная программа, применяющая реализацию ЯГС в языке Ада, должна будет знать среду, в которой нзходятся н ЯГС и прикладная программа.

Одним таким интерфейсом является библиотека программ Ады. Язык Ада требует, чтобы прикладная программа имела доступ к библиотеке программ, в которой размешается программное обеспечение ЯГС. Справочное руководство по языку Ада ИСО 8652 не определяет, должна быть одна библиотека или их может быть, много, как предоставляется доступ к библиотеке и так далее. Пользовательская документация по реализации ЯГС должна содержать информацию о том, где в системе находится библиотека ЯГС и как осуществляется к ней доступ.

Интерфейсы ввода/вывода также являются зависящими от реализации и требуют описания в пользовательской документации. Должны быть включены в документацию интерфейсы с фа*г

Страница 11

С. 8 ГОСТ Р 34.1702.3--92

ловон системой. Особенно это относится к интерфейсу с файлом ошибок ЯГС. .а также к памяти метафайла.

3.2.8. Регистрация1

Стандарт ЯГС резервирует различные области величии для регистрации в качестве графических элементов. Зарегистрированные графические элементы будут встроены в Аду (и другие языки программирования). Зарегистрированные встроенные элементы будут согласовываться со связыванием, представленным в данном документе.

4. ТА6ЛЙЦЫ    у

4.1. Процедуры

Таблица I

Сокращении, используемые ■ именах процедур

ASF

Флаг выборки атрибутов

CHAR

Литера

ESC

Расширение (escape)

GDP

Обобщенный примитив вывода

GKS

Ядро графической системы

GKSM

Метафайл ядра графической системы

ID

Идентификатор

INQ ‘

Справочная функция

MAX

Максимум

UGDP

НсзарегистрированныГ! обобщенный примите вывода

unsc

Незарегистрированное расширение

ws

,Станция

Таблица 2

Список процедур, использующих сокращении

ASF

INQ_LIST_OF_ASF SET ASF

CHAR

INQ-CHAR. BASF.-VECTOR INQ CHAR. EXPANSION.FACTOR INQ.CHAR. HEIGHT 1NQXHAR. WIDTH INQ.CHAR. SPACING INQ.CHAR.UP. VECTOR

1

В соответствии с правилами назначения и работы Органов регистрации в директивах ИСО Совет ИСО для *той части (ИСО 8651) назначил Национальное бюро стандартов (Научно-производственный институт ЭВМ) как орган регистрации А266 Technology Building. Gaithersburg, MD, 20в99. USA.

Страница 12

ГОСТ Р 34.1702.3—»2    С. 9

Продолжение табл. 2"

SET-CHAR. EXPANSION. FACTOR SET-СНА R_ HEIGHT SF.T.CHAR SPACING

SF.T-CHAR-UP-VECTOR    '    j

ESC

ESC UESC

GDP

GKS

GKSM

ID

GDP

1NQ.GDP

INQ_LlST_OF_AVAILABLE..GDP UGDP

CI.OSE-GKS

EMERGENCY-CLOSE-GKS INQ-LEVEL.OF-GKS

OPEN.GKS    ;

GET-ITEM TYPE FROM.GKSM READ_ITEM_FROM_GKSM WRITE. ITEM.TO.GKSM

INQ-CURRENT_PICK-ID_ VALUE SET-PICK..ID IND

!NQ_CHAR_BASE_VECTOR

INQ.CHAR-EXPANSION. FACTOR

INQ.CHAR-HEIGHT

INQXHAR WIDTH

1NQ, CHAR-SPACING

1NQ CHAR.UP-VECTOR

lNQ_CHOICE_DEVICE-STATE

INQ.CLIPPING    *

INQ-COLOUR-FACILITES INQ-COLOUR- REPRESENTATION INQ-CURRENT-NORMALIZATION-TRANSFOR-MATION-NUMBER INQ*.CURRENT_INDIVIDUAL.ATTRIBUTE_VALUE$-1NQ_CURRENT^PICK-ID_ VALUE INQ_CURRENT_PRIMITIVE.ATTRIBUTE. VALUES INQ_DEFAULT.CH01CE_DEV1CE.DATA INQ_DEFAULT_DEFERRAL-STATE_VALUF.S INQ-DEFAULT_LOCATOR-DEVICE-DATA INQ.DEFAULT. PICK-DEVICE-DATA INQ-DEFAULTlSTRING-DEVICE.DATA    (

INQ-DEFAULT-STROKE-DEVICE-DATA INQ-DEFAULT-VALUATOR-DEVICE-DA ТА INO_DISPLAY_SPACE_SIZE INQ-DYNAMIC_MODIFICATION_OF_SEGMENT_ -ATTRIBUTES INQ_DYNAM1C_MODIFICATION-OF-WS_ -ATTRIBUTES

Страница 13

С. 10 ГОСТ Р 311702.3-92

Продолжение табл. 2

INQ.FILL-AREA.COLOUR INDEX INQ-FILL.AREA-FACIL1T1ES INQ-FILL-A REA-INDEX 1NQ FILL_AREA.INTERIOR-STYLE J NO. FILL-AREA. REPRESENTATION 1NQ.FILL AREA. STYLE-INDEX INQ.GDP

INQ-INPUT. QUEUE OVERFLOW JNQ.LEVEL OF-GKS J.MO. LIST- OF. ASF INQ-L1NETYPE

I \Q_ LIN F.WIDT H. SCAL E.. FAiTOR lNQ_Ll$T_Of AVAILABLE-GDP INQ. LIST..OF_ AVAILABLE.. WS-TYPE INQ.LIST. OF-COl.OUR.INDICES INQ.LIST OF.FILL.ARFA.INDICES INQ. LIST-OF.NORMALIZATION. TRANSFORMATION .NUMBER lNQ_LIST_OF_PAl TERN. IN DICES INQ.: LI ST-OF-.POLYLINE. IN DICES INQ LIST-OF-POLYMARKER INDICES INQ.LIST. OF.TEXT. INDICES 1NQ_LOCATOR DEVICE STATE INQ-MAX.LENGTH OF.WS.STATE.TABLES INQ.MAX.NORMALIZATION.TRANSFORMATlON--NUMBER INQ-MORC-SIMULTANEOUS EVENTS I NQ_NAME.OF.OPEN .SEGMENT INQ.NORMALIZATION .TRANSFORMATION INQ-NUMBER. OF.SEGMENT.PRIORITIFS-.SUPPORTED I NQ-NUMBF.R.OF-AVAILABLE-LOGICAL-INPUT--DEVICES INQ. OPERATING.STATE.VALUE INQ PATTERN FACILITIES INQ.PATTERN.HEIGHT- VECTOR INQ.PATTERN.REFERENCE POINT INQ PATTERN.REPRESENTATION I NQ -PATTF. RN. WIDTH - VECTOR 1NQ.PICK .DEVICE-STATE INQ.PIXEL INQ-PIXEL.ARRAY INQ-PIXEL-ARRAY.DIMENSIONS INQVPOLYLINE COLOUR.INDEX 1NQ.POLYLINE.FACILITIES INQ. POLYLINE .INDEX I NQ. POLYLINE REPRESENTATION I NQ.POLYMARKER. REPRESENTATION INQ. POLYMARKF.R_COLOUR INDEX INQ-POLYMARKER INDEX INQ.POLYMARKER. FACILITIES INQ POLYMARKER.SIZE.SCALE.FACTOR

Страница 14

ГОСТ Р 3LI702.3 --92 С. II

Продолжение табл. 2

1NQ_P0LYMARKER.TYPE INQ.PREDEFINED. COLOUR..REPRESENTATION INQ PREDEFINF.D-FI1.L. AREA .RF.PRESEN-TATION •

INQ_ PREDEFINED-PATTERN-REPRESENTATION INQ PREDEFINED POLYLINE REPRESENTATION INQ-PREDEFINED.POLYiMARKER-REPRESENTATION

1NQ.PREDEFINED.TEXT. REPRESENTATION

I NO ..SEGMENT ATTRIBUTES

INQ SET. OF - ACTIV E. WS

INQ SET. OF-ASSOCIATED.WS

INO.SET-OF-OPEN-WS

lNQ.SET_OF.SEGMENT_NAMES.lN.USE

INQ.SET.OF.SEGMENT_NAMES ON.WS

INQ.STRING.DEVICE.STATE

IN’Q.STROKE.DEVICE-STATE

1NQ.TEXT. ALIGNMENT

I NO .TEXT-COLOUR. INDEX

INQ.TEXT.EXTENT

INQ TEXT.FACILITIES

1NQ-TEXT.F0NT.AND.PRECISION

INQ.TEXT. INDEX

INQ.TEXT.PATH

INQ.TEXT.REPRESENTATION

INQ VALUATOR. DEVICE.STATE

INQ WS CATEGORY

INQ. WS.CLASSI FICATION

INQ WS -CONNECTION-AND-TYPF.

INQ .WS-DEFERRAL-ANO.UPDATE STATES INQ..WS. MAX. NUMBER JND W4 STATF I NQl w'sIt RA NSFORM AT10N

MAX

!NQ_MAX_LFNGTH_OF WS. STATE-TABLES INQ. MAX _ NORM ALIZATlON.TRANSFORMATIONs.

.NUMBER

INQ-WS-MAX'NUMBERS

WS

AfTIVATF WS

ASSOCIATE.SEGMENT.WITII.WS

Cl.EAR.WS

GLOSE.WS

COPY_SEGMENT.TO_WS DEACTIVATE. WS DELETE-SEGMENT.FROM-WS INQ..DYNAMIC.MODIFICATION .OF.WS.ATTRIBUTES

INQ_L1ST-0F.AVAILABLE-WS.TYPE 1NQ_MAX_LENGTH_0F.WS-STATE_TABLES INQ_SET.OF-ACTIVE.WS INQ .SET.OF-ASSOCIATED-WS

Страница 15

С. 12 ГОСТ Р 34.1702.3-92

Продолжение табл. 2

INQ_SFT_OF_OPFN WS

INQ_SET_OF_SEGMENT_NAMES.ON_\VS

I.NQ.WS CATEGORY

INQ WS..CLASSIFICATION

1 NQ_WS-CONNECTION _AND_TYPF.

I NQ_WS_ DEFERRAL-AN D-UPDATE-STATES

INQ-WS-MAX. NUMBER

1NQ-WS-STATE

JNQ-WS, TRANSFORMATION

OPEN.WS

REDRAW-ALL-SEGMENTS-ON-WS SET-WS-VIEWPORT SET-WS. WINDOW UPDATE _WS

, Таблица 3 Функции ЯГС м имена соответствующих процедур в Аде

Флиot.ni ЯГС

It** в Ада

ACCUMULATE- TRANSFORMA-TION-MATRIX ACTIVATE-WS

ASSOCIATE.SEGMENT .WITH.WS

AWAIT.EVENT

CELL-ARRAY

CLEAR.WS

CLOSE-GKS CLOSE-SEGMENT CLOSE-WS

COPY SEGMENT.TO-WS

CREATE-SEGMENT .

DEACTJVATE-WS

DELETE .SEGMENT

DELETE-SEGMENT-FROM-WS

EMERGENCY_CLOSE_GKS

ERROR-HANDLING

ERROR-LOGGING

ESCAPE

EVALUATE-TRANSFORMATION.

-MATRIX

FILL.AREA

FLUSH-DF.VICE.EVENTS GDP

GET.CHOICE

§CT:!.™TOifE-FR0M-0KSM

GET.PICK

ВЫЧИСЛИТЬ РЕЗУЛЬТИРУЮЩУЮ МАТРИЦУ ПРЕОБРАЗОВАНИИ АКТИВИРОВАТЬ СТАНЦИЮ СВЯЗАТЬ СЕГМЕНТ СО СТАНЦИЕЙ ОЖИДАТЬ СОБЫТИЕ МАТРИЦА ЯЧЕЕК

ОЧИСТИТЬ ИЗОБРАЖЕНИЕ НА СТАНЦИИ ЗАКРЫТЬ ЯГС ЗАКРЫТЬ СЕГМЕНТ ЗАКРЫТЬ СТАНЦИЮ ВЫВЕСТИ -КОПИЮ СЕГМЕНТА НА СТАНЦИЮ СОЗДАТЬ СЕГМЕНТ ДЕАКТИВИРОВАТЬ СТАНЦИЮ УНИЧТОЖИТЬ СЕГМЕНТ УДАЛИТЬ СЕГМЕНТ СО СТАНЦИИ АВАРИЙНО ЗАКРЫТЬ ЯГС ОБРАБОТАТЬ ОШИБКУ ЗАРЕГИСТРИРОВАТЬ ОШИБКУ РАСШИРЕНИЕ

СФОРМИРОВАТЬ МАТРИЦУ ПРЕОБРАЗОВАНИИ ПОЛИГОНАЛЬНАЯ ОБЛАСТЬ УДАЛИТЬ СОБЫТИЯ ОТ УСТРОЙСТВА

ОБОБЩЕННЫЙ ПРИМИТИВ ВЫВОДА <ОПВ)

ПОЛУЧИТЬ АЛЬТЕРНАТИВУ ПОЛУЧИТЬ ТИП ЗАПИСИ ИЗ ЯГС ПОЛУЧИТЬ ПОЗИЦИЮ ПОЛУЧИТЬ УКАЗАТЕЛЬ


Страница 16

ГОСТ Р 34.1702.3-92 С. 13

Продолжение табл. 3

Фукчиия ЯГС

НЧЯ * АД**

GF.T_SrRING

GET-STROKE

GET-VALUATOR INITIALISE. CHOICE

lNITULlSE-LOCATOR

1NITUL1SE.PICK

INITIALISE. STRING

INITIALISE.STROKE

INITIAL1SE-VALUATOR

INQ.CHOICE.DEVICE-STATE

1NQ.CLIPPING INQ-COLOUR. FACILITIES

INQ-COLOR.REPRESENTATION INQ.CURRENT-INDIVIDI.AL. -ATTRIBUTE-VALUES

ПОЛУЧИТЬ СТРОКУ ПОЛУЧИТЬ ПОСЛЕДОВАТЕЛЬНОСТЬ ПОЗИЦИИ ПОЛУЧИТЬ число ИНИЦИАЛИЗИРОВАТЬ УСТРОЙСТВО ВЫЬОРА ИНИЦИАЛИЗИРОВАТЬ УСТРОЙСТВО ВВОДА ПОЗИЦИИ ИНИЦИАЛИЗИРОВАТЬ УСТРОЙСТВО УКАЗАНИЯ ИНИЦИАЛИЗИРОВАТЬ УСТРОЙСТВО ВВОДА СТРОКИ ИНИЦИАЛИЗИРОВАТЬ УСТРОЙСТВО ВВОДА ПОСЛЕДОВЛТЕЛЬНОС-ТИ ПОЗИЦИИ ИНИЦИАЛИЗИРОВАТЬ УСТРОЙСТВО ВВОДА ЧИСЛА УЗНАТЬ СОСТОЯНИЕ УСТРОЙСТВА ВЫБОРА УЗНАТЬ ЗНАЧЕНИЯ ОТСЕЧЕНИЯ УЗНАТЬ ВОЗМОЖНОСТИ ПРЕДСТАВЛЕНИЯ ЦВЕТА УЗНАТЬ ПРЕДСТАВЛЕНИЕ ЦВЕТА УЗНАТЬ ТЕКУЩИЕ ЗНАЧЕНИЯ ИНДИВИДУАЛЬНЫХ АТРИБУТОВ


Функция ЯГС «Узнагь значение текущего индивидуального атрибута» отображается в следующие функции:

JNQ-CHAR_EXPANSION_FACTOR INQ CHAR-SPACING 1NQ_FILL_AREA~C0L0UR-INDF.X INQ_FILL_AREA.1NTERI0R_STYLE INQ-LINETYPE

INQ LJNE\VIDTH_SCALE_FACTOR

INQ-L1ST-OF-ASF

]NQ-POLYLINE_COLOUR_ INDEX

INQ POLYMARKER_COLOUR_lNDEX

lNQ_POLYMARKER-SIZE-SCALE-FACTOR

1NQ_P0LYMARKER_TYPE

!NQ.-TEXT_COLOUR_INDEX

INQ .TEXT-FONT-AND-PRECISION

Страница 17

С. 14 ГОСТ Р 34.1702.3-92

INQ. CURRENT NORMAL!-ZATION-TRANSFORMA-TION-NUMBER 1NQ-CURRENT-PICK-ID-VALUE INQ_CURRENT-PRIM!TIVE_ ATTRIBUTE-VALUES

УЗНАТЬ НОМЕР ТЕКУЩЕГО ПРЕОБРАЗОВАНИЯ НОРМИРОВАНИЯ УЗНАТЬ ЗНАЧЕНИЕ ИДЕНТИФИКАТОРА УКАЗАНИЯ УЗНАТЬ ТЕКУЩИЕ ЗНА'-»Е НИЯ АТРИБУТОВ ПРИМИТИ-ВОВ


Функция ЯГС «Узнать текущие значения атрибутов примитивов» отображается в следующие функции:

INQ_CHAR_BASE- VECTOR

INQ-CHAR-HEIGHT

INQXHAR-WIDTH

INQ-CHAR UP VECTOR

INQ-F1LL-AREA-INDEX

1NQ_PATTF.RN_HE1GHT_VECT0R

INQ_PATTERN_REFERENCE-POINT

!NQ_PATTERN_W1DTH-VECT0R

INQ.POLYLINE-1NDEX

1NQ-POLYMARKER-.INDEX

INQ-TEXT-ALIGNMENT

1NQ_TEXT_1NDEX

INQ-TEXT-PATH

Продолжение габл 3

Фум.цк* ЯГС

Им* ш Аде

1N0_DEFAULT_CH0ICE_

-DEV1CE_DATA

INQ.DEFAULT.DFFERRAL--STATE.VALUES INQ_ DEFAULT. LOCATOR--DEVICE. DATA

INQ.DEFAULT_PICK.DEV!CE_

-DATA

INQ_DEFAULT_STR1NG_ DEVICE. -DATA

1.NQ_DEFAULT_STR0KE_DF.VICE-

-DATA

УЗНАТЬ ХАРАКТЕРИСТИКИ ПО УМОЛЧАНИЮ УСТРОЙСТВА ВЫПОРА

УЗНАТЬ РЕЖИМ ЗАДЕРЖКИ ПО УМОЛЧАНИЮ УЗНАТЬ ХАРАКТЕРИСТИКИ ПО УМОЛЧАНИЮ УСТРОЙСТВА ВВОДА ПОЗИЦИИ УЗНАТЬ ХАРАКТЕРИСТИКИ ПО УМОЛЧАНИЮ УСТРОЙСТВА УКАЗАНИЯ

УЗНАТЬ ХАРАКТЕРИСТИКИ ПО УМОЛЧАНИЮ УСТРОПСТВА ВВОДА СТРОКИ УЗНАТЬ ХАРАКТЕРИСТИКИ ПО УМОЛЧАНИЮ УСТРОЙСТВА ВВОДА ПОСЛЕДОВАТЕЛЬНОСТИ ПО-ЗИЦИИ


Страница 18

ГОСТ Р 34.1702.3-92 С. 15

Продолжение тобх 3

Фунни! я ЯГС

П'-и « Л.7*

1NQ.DEFAULT VALUATOR. -DEVICE-DATA

INQ-DISPLAY.SPACE-SIZE

INQ_DYNAMIC.M0D1F1CATI0N_ _OF SEGMENT-ATTRIBUTES

INQ DYNAMIC.MODIFICATION. .OF. WS-ATTRIBUTES

INQ-FILL-AREA-FACILITIES

]NQ FILL-ARF.A-.REPRESENTATION 1NQ-GDP

INQJNPUT.QUF.UE.OVERFLOW

|NQ_LEVEL_OF_GKS 1NQ.LIST.OF AVAILABLE-GDP

INQ. LIST. OF_AVAILABLE_WS_ ■TYPES

INO-LIST_OF_COLOUR_INDICES INQ.LIST. OF.FILL-AREA--INDCES INQ..LIST_OF_NORMALIZATION_ Л RANSFORMAT ION_ N UMBERS INQ_LIST_OF_ PATTERN--INDICES INQ_LIST_OF_ POLYINE--INDICES INQ-LIST. OF.POLYMARKER-.INDICES INO.LIST. OF-TEXT-INDICES INQ LOCATOR-DEVICE-STATE

INQ-MAX-LENGTH _OF_ WS_ _STATE-TABl.ES INQ MAX.NORMALIZATION» -TRANSFORMATION-NUMBER

INQ.MORE-SIMULTANEOUS.

' -EVENTS

УЗНАТЬ ХАРАКТЕРИСТИКИ ПО УМОЛЧАНИЮ УСТРОЙСТВА ВВОДА ЧИСЛА УЗНАТЬ РАЗМЕР НОСИТЕЛЯ ИЗОБРАЖЕНИЯ УЗНАТЬ СПОСОБ ДИНАМИЧЕСКОЙ МОДИФИКАЦИИ АТРИБУТОВ СЕГМЕНТОВ

УЗНАТЬ СПОСОБ ДИНАМИЧЕСКОГО ОБНОВЛЕНИЯ ХАРАКТЕРИСТИК ИЗОБРАЖЕНИЯ НА СТАНЦИИ

УЗНАТЬ ВОЗМОЖНОСТИ ПРЕДСТАВЛЕНИЯ ПОЛИГОНАЛЬНОЙ ОБЛАСТИ УЗНАТЬ ПРЕДСТАВЛЕНИЕ ПОЛИГОНАЛЬНОЙ ОБЛАСТИ УЗНАТЬ ХАРАКТЕРИСТИКИ ОБОБЩЕННОГО ПРИМИТИВА ВЫВОДА УЗНАТЬ НАЛИЧИЕ ПЕРЕПОЛНЕНИЯ ОЧЕРЕДИ СОБЫТИЙ УЗНАТЬ УРОВЕНЬ ЯГС УЗНАТЬ ИДЕНТИФИКАТОРЫ ДОСТУПНЫХ ОБОБЩЕННЫХ ПРИМИ-ТИВОВ ВЫВОДА УЗНАТЬ ДОСТУПНЫЕ ТИПЫ СТАНЦИИ

УЗНАТЬ ИНДЕКС ЦВЕТА УЗНАТЬ ИНДЕКСЫ ПОЛИГОНАЛЬНОЙ ОБЛАСТИ УЗНАТЬ СПИСОК ПРЕОБРАЗОВАНИЙ НОРМИРОВАНИЯ УЗНАТЬ ИНДЕКСЫ ШАБЛОНА

УЗНАТЬ ИНДЕКСЫ ЛОМАНОЙ

УЗНАТЬ ИНДЕКСЫ ПОЛИМАРКЕРА

УЗНАТЬ ИНДЕКСЫ ТЕКСТА УЗНАТЬ СОСТОЯНИЕ УСТРОЙСТВА ВВОДА ПОЗИЦИИ УЗНАТЬ ДЛИНУ ТАБЛИЦ, ХАРАКТЕРИЗУЮЩИХ СТАНЦИЮ УЗНАТЬ МАКСИМАЛЬНЫЙ НОМЕР ПРЕОБРАЗОВАНИЯ НОРМИРОВАНИЯ

УЗНАТЬ НАЛИЧИЕ ОДНОВРЕМЕННЫХ СОБЫТИЙ


Страница 19

С 16 ГОСТ Р 3<.1702.3—92

Продолжение табл. 3

Фу:|К41)Я «ГС

Им* В

!NQ_NAMH_OF_OPEN_S£GMENT

INQ.NORMATIZATION .TRANSFORi'tATION 1 N(?_ NUMBER.. OF_ AVAILABLE.

.LOGICAL- INPUT DEVICES I NO NUMBER _OF_ SEGMENT--PRIORITIES-SUPPORTED INQ-OPF.RATING STATE VALUE

\ NO- PATTE RN _ FAC ILITIF.S

JNQ_PATTERN_ REPRESENTATION

JNO-PICK-DF.VICE-STATE

INO-PIXEL

(NO-PIXEL-ARRAY

1NQ. PIXEL-ARRAY. DIMENSION

INO- POLYLINE-FACTIIITIES

LNO-POLYLINE REPRESENTATION

I \Q.. POL YMA RKE R - FACILITIES

IKQ.POLYMARKER.

-REPRESENTATION INO- PREDEFINED-COLOUR.

REPRESENTATION I NO-PREDEFINED. F1LL_AREA_

-    REPRESENTATION

INO PREDFFINED-PATTERN -REPRESENTATION INO-PREDEFINED. POLYLINE--REPRESKNTATION INQ. PREDEFINED.POLYMARKER.

-REPRESENTATION JNQ -PREDEFINED TFXT.

-    REPRESENTATION INQ-SEGMENT-ATTRIBUTES INO-SET.OF-ACTIVE WS

INO SET.OF ASSOCKTED-WS

INO-SET.OE-OPEN-WS

УЗНАТЬ ИМЯ ОТКРЫТОГО СЕГМЕН ТА

УЗНАТЬ ПРЕОБРАЗОВАНИЯ НОР МИРОВАНИЯ УЗНАТЬ ЧИСЛО ДОПУСТИМЫХ УСТРОЙСТВ ВВОДА УЗНАТЬ ДОПУСТИМОЕ ЧИСЛО ПРИОРИТЕТОВ СЕГМЕНТОВ УЗНАТЬ ФУНКЦИОНАЛЬНОЕ СОС ТОЯНИЕ

УЗНАТЬ ВОЗМОЖНОСТИ ПРЕДСТАВЛЕНИЯ ШАБЛОНА УЗНАТЬ ПРЕДСТАВЛЕНИЕ ШАБЛОНА

УЗНАТЬ СОСТОЯНИЕ УСТРОЙСТВА УКАЗАНИЯ УЗНАТЬ ЦВЕТ ПИКСЕЛЯ УЗНАТЬ МАТРИЦУ ПИКСЕЛЕ!! УЗНАТЬ РАЗМЕРНОСТЬ МАТРИЦЫ ПИКСЕЛЕЙ УЗНАТЬ ВОЗМОЖНОСТИ ПРЕДСТАВЛЕНИЯ ЛОМАНОЙ УЗНАТЬ ПРЕДСТАВЛЕНИЕ ЛОМЛ НОИ

УЗНАТЬ ВОЗМОЖНОСТИ ПРЕДСТАВЛЕНИЯ ПОЛИМАРКЕРА УЗНАТЬ ПРЕДСТАВЛЕНИЕ ПОЛИ-МАРКЕРА УЗНАТЬ ПРЕДСТАВЛЕНИЕ ЦВЕТА ПО УМОЛЧАНИЮ УЗНАТЬ ПРЕДСТАВЛЕНИЕ ПОЛИ ТОНАЛЬНОЙ ОБЛАСТИ НО УМОЛЧАНИЮ

УЗНАТЬ ПРЕДСТАВЛЕНИЕ ШАБЛОНА ПО УМОЛЧАНИЮ УЗНАТЬ ПРЕДСТАВЛЕНИЕ ЛОМАНОЙ ПО УМОЛЧАНИЮ УЗНАТЬ ПРЕДСТАВЛЕНИЕ ПОЛИ-МАРКЕРА ПО УМОЛЧАНИЮ УЗНАТЬ ПРЕДСТАВЛЕНИЕ ТЕКСТА ПО УМОЛЧАНИЮ УЗНАТЬ АТРИБУТЫ СЕГМЕНТА УЗНАТЬ НАБОР АКТИВНЫХ СТАН ЦИИ

УЗНАТЬ СТАНЦИИ СВЯЗАННЫЕ С СЕГМЕНТОМ УЗНАТЬ НАБОР ОТКРЫТЫХ СТАНЦИИ


Страница 20

ГОСТ Р 34.1702.3-92 С. 17

Лродо.и*:ение 7абл, 3

4 упьаня ЯГС

II-1И в лм

INQ-SET-OF. SEGMENT-NAMES-_IN.USE IN^_SET_SEGM£NT_NAMES.ON.

1NQ-STRING-DEV1CE-STATE

INQ STROKE-DEVICE-STATE

INQ-TEXT.-EXTENT INQ TEXT-FACILITIES

INQ-TEXT.REPRESENTATION INQ VALUATOR.DEVICE-STATE

INQ WS-CATF.GORY INQ-WS-CLASSIFICATION INQ_WS_CONNECTION_AND_ .TYPE

INQ-W$_DRFERRAL-AND_ -UPDATE.STATES INQ-WS.MAX-NUMBERS

INQ.WS-STATE

INQ.WS-TRANSFORMATION

1NSERT-SEGMF.NT

1NTERPRET-ITEM

MESSAGE

OPEN-GKS

OPF.N.WS

POLYLINE

POLYMARKER

READ-ITEM. FROM _GKSM

REDRAW-ALL-SEGMENTS-ON_

RENAME-SEGMENT REQUEST-CHOICE REQUEST-LOCATOR REQUEST.PICK RF.QUEST-STRING REQUEST STROKE

REQUEST. VALUATOR SAMPLE-CHOICE SAMPLE. LOCATOR SAMPLE-PICK SAMPLE-STRING

УЗНАТЬ ИМЕНА СУЩЕСТВУЮЩИХ СЕГМЕНТОВ УЗНАТЬ ИМЕНА СЕГМЕНТОВ. ХРАНИМЫХ НА СТАНЦИИ УЗНАТЬ    СОСТОЯНИЕ УСТРОЙСТ

ВА ВВОДА СТРОКИ УЗНАТЬ СОСТОЯНИЕ УСТРОЙСТВА ВВОДА ПОСЛЕДОВАТЕЛЬНОСТИ ПОЗИЦИЙ УЗНАТЬ ГАБАРИТЫ ТЕКСТА УЗНАТЬ    ВОЗМОЖНОСТИ ПРЕДС

ТАВЛЕНИЯ ТЕКСТА УЗНАТЬ ПРЕДСТАВЛЕНИЕ ТЕКСТА УЗНАТЬ    СОСТОЯНИЕ УСТРОЙСТ

ВА ВВОДА ЧИСЛА УЗНАТЬ КАТЕГОРИЮ СТАНЦИИ УЗНАТЬ КЛАСС СТАНЦИИ УЗНАТЬ ТИП И ИДЕНТИФИКАТОР СВЯЗИ СТАНЦИИ УЗНАТЬ    РЕЖИМЫ ЗАДЕРЖКИ И

ОБНОВЛЕНИЯ СТАНЦИИ УЗНАТЬ ДОПУСТИМОЕ ЧИСЛО СТАНЦИИ УЗНАТЬ СОСТОЯНИЕ СТАНЦИИ УЗНАТЬ ПРЕОБРАЗОВАНИЕ СТАН-

ВСТАВИТЬ СЕГМЕНТ

ИНТЕРПРЕТИРОВАТЬ ЗАПИСЬ

СООБЩЕНИЕ

ОТКРЫТЬ ЯГС

ОТКРЫТЬ СТАНЦИЮ

ЛОМАНАЯ

ПОЛИМАРКЕР

ПРОЧИТАТЬ ЗАПИСЬ ИЗ ЯГС ПЕРЕРИСОВАТЬ ВСЕ СЕГМЕНТЫ НА СТАНЦИИ ПЕРЕИМЕНОВАТЬ СЕГМЕНТ ЗАПРОСИТЬ УСТРОЙСТВО ВЫБОРА ЗАПРОСИТЬ ВВОД ПОЗИЦИИ ЗАПРОСИТЬ УКАЗАНИЯ ЗАПРОСИТЬ ВВОД СТРОКИ ЗАПРОСИТЬ ВВОД ПОСПЕЛОВА.

ТЕЛЬНОСТИ ПОЗИЦИИ ЗАПРОСИТЬ ВВОД ЧИСЛА ОПРОСИТЬ ВЫБОР ОПРОСИТЬ ВВОД ПОЗИЦИИ ОПРОСИТЬ УКАЗАНИЕ ОПРОСИТЬ ВВОД СТРОКИ


Страница 21

с. IS ГОСТ Р M.I7WJ-W

Продолжение табл. 3

•fymuH» ЯГС

Им* * Ад»

SAMPLE-STROKE

SAMPLE. VALUATOR SELECT. NORMALIZATION .TRANSFORMATION SET.ASF

SET-CHAR. EXPANSION-FACTOR

SET CHARTHEIGHT SET.CHAR-SPACING SET.CHAR UP.VECTOR SET -С! Ю1СЕ - MODE

SET-CLIPPING-INDICATOR SET. COLOUR REPRESENTATION SET. DEFERRAL-STATE SET.DETECTABILITY

SET-F1LL. AREA-COLOUR--INDEX SET-FILL. A REA. INDEX

SET.FILL-AREA INTERIOR--STYLE SET FILL.ARF.A.

-REPRESENTATION SET-FILL-AREA.STYLF-INDEX

SET-HIGHLIGHTING SET LINETYPE

SET.LINEWIDTH SCALE-FACTOR

SET-LOCATOR-MODE

SET MARKER.SIZE .SCALE.

.FACTOR SET-MARKER TYPE SET PATTERN REFERENCE. .POINT

SET.PATTERN REPRESENTATION

SET. PATTERN.SIZE SET-PICK-ID

SET PICK-MODE

SET-POLYLINE-COLOUR-INDEX

ОПРОСИТЬ ВВОД ПОСЛЕДОВАТЕЛЬНОСТИ ИОЗИЦИП ОПРОСИТЬ ВВОД ЧИСЛА ВЫБРАТЬ ПРЕОБРАЗОВАНИЕ НОРМИРОВАНИЯ ЗАДАТЬ ФЛАГИ ВЫБОРКИ АТРИБУТОВ

ЗАДАТЬ МАСШТАБ РАСШИРЕНИЯ ЛИТЕРЫ ЗАДАТЬ ВЫСОТУ ЛИТЕР ЗАДАТЬ МЕЖЛИТЕРНЫИ ПРОСВЕТ 3*ДАТЬ ВЕРТИКАЛЬ ЛИТЕРЫ ЗАДАТЬ РЕЖИМ УСТРОПСТВА ВЫ-БОРА

ЗАДАТЬ ИНДИКАТОР ОТСЕЧЕНИЯ ЗАДАТЬ ПРЕДСТАВЛЕНИЕ ЦВЕТА ЗАДАТЬ РЕЖИМ ЗАДЕРЖКИ ЗАДАТЬ ЧУВСТВИТЕЛЬНОСТЬ К УКАЗАНИЮ ЗАДАТЬ ИНДЕКС ЦВЕТА ПОЛИ ГОНАЛЬНОП ОБЛАСТИ ЗАДАТЬ ИНДЕКС ПОЛИГОНАЛЬ-НОП ОБЛАСТИ ЗАДАТЬ ВИД ЗАПОЛНЕНИЯ ПОЛИГОНАЛЬНОЙ ОБЛАСТИ ЗАДАТЬ ПРЕДСТАВЛЕНИЕ ПОЛИ ГОНАЛЬНОП ОБЛАСТИ ЗАДАТЬ ИНДЕКС ЗАПОЛНИТЕЛЯ ПОЛИГОНАЛЬНОЙ ОБЛАСТИ 3*ДАТЬ ВЫДЕЛЕНИЕ ЗАДАТЬ ТИП ЛИНИИ ЗАДАТЬ МАСШТАБ ТОЛЩИНЫ ЛИ-НИИ

ЗАДАТЬ РЕЖИМ УСТРОЙСТВА ВВО ДА ПОЗИЦИИ ЗАДАТЬ МАСШТАБ А\АРКЕРА

ЗАДАТЬ ТИП МАРКЕРА 3YJIATI, ТОЧКУ ПРИВЯЗКИ ШАБЛО НА

ЗАДАТЬ ПРЕДСТАВЛЕНИЕ ШЛБЛО НА

ЗАДАТЬ РАЗМЕР ШАБЛОНА ЗАДАТЬ ИДЕНТИФИКАТОР УКАЗАНИЯ

ЗАДАТЬ РЕЖИМ УСТРОЙСТВА УКАЗАНИЯ

ЗАДАТЬ ИНДЕКС ЦВЕТА ЛОМАНОЙ


Страница 22

ГОСТ Р 34.1702.3-92 С. 19

Продолжение табл. 3

•f; 1ЛИЯ ЯГС

SET-POLYLINE-INDEX SFT.POl.Yi.INF. REPRESENTATION

SET.POLYMARKER-COLOUR.

_ INDEX S КТ- POLY MARKER-INDEX SET-POLYMARKER.

-REPRESENTATION SET SEOMFNT.PRIORITY SET. SEGMENT--TRANSFORMATION SET-STRING MODE

SET.STROKE.MODF,

SF.T.TEXT.ALIGNMENT SET_TEXT_COLOUR_ INDEX SF.T-TEXT FONT-AND -PRECISION SET..TEXT_INDEX SET-TEXT-PATM SET-TEXT-REPRESENTATION SET.VALUATOR MODE

set.Viewport SET_VIEWPORT_ INPUT.

.PRIORITY SET.VISIBILITY SET-WINDOW SET. WS. VIEWPORT SET-W$_ WINDOW TEXT

UPDATE WS WRITE. ITEM .TO.GKSM

ЗАДАТЬ ИНДЕКС ЛОМАНОЙ ЗАДАТЬ ПРЕДСТАВЛЕНИЕ ЛОМАНОЙ

ЗАДАТЬ ИНДЕКС ЦВЕТА ПОЛИМАРКЕРА

ЗАДАТЬ ИНДЕКС ПОЛИМАРКЕРА ЗАДАТЬ ПРЕДСТАВЛЕНИЕ НОЛИ-МАРКЕРА ЗАДАТЬ ПРИОРИТЕТ СЕГМЕНТА ЗАДАТЬ ПРЕОБРАЗОВАНИЕ СЕГМЕНТА

ЗАДАТЬ РЕЖИМ УСТРОЙСТВА ВВОДА СТРОКИ ЗАДАТЬ РЕЖИМ УСТРОЙСТВА ВВО ДА ПОСЛЕДОВАТЕЛЬНОСТИ ПОЗИЦИЙ

ЗАДАТЬ ВЫРАВНИВАНИЕ ТЕКСТА ЗАДАТЬ ИНДЕКС ЦВЕТА ТЕКСТА ЗАДАТЬ ШРИФТ И ТОЧНОСТЬ ТЕКСТА

ЗАДАТЬ ИНДЕКС ТЕКСТА ЗАДАТЬ НАПРАВЛЕНИЕ ТЕКСТА ЗАДАТЬ ПРЕДСТАВЛЕНИЕ ТЕКСТА» ЗАДАТЬ РЕЖИМ УСТРОЙСТВА ВВОДА ЧИСЛА ЗАДАТЬ ПОЛЕ ВЫВОДА ЗАДАТЬ ПРИОРИТЕТ ПОЛЯ ВЫВОДА ПРИ ВВОДЕ ЗАДАТЬ ВИДИМОСТЬ ЗАДАТЬ ОКНО

ЗАДАТЬ ПОЛЕ ВЫВОДА СТАНЦИИ ЗАДАТЬ ОКНО СТАНЦИИ ТЕКСТ -

ОБНОВИТЬ ИЗОБРАЖЕНИЕ НА СТАНЦИИ ЗАПИСЬ В МЕТАФАЙЛ


Функции ЯГС. упорядоченные по алфавиту

Функции находятся в том же порядке, в котором перечислены имена процедур, соответствующие именам .функций ЯГС. В табл. 3 перечислены по алфавиту имена функций ЯГС.

Страница 23

С. 20 ГОСТ Р 34.1702.3-92

Таблица- 4

Слисок функций ЯГС по уровням и по алфавиту

Уровень Оз

ACTIVATE. WS

CELL.ARREY

CLEAR-WS

CLOSE-GKS

CLOSE-WS

DEACTIVATE-WS

EMERGENCY.CLOSE.OKS

ERROR-HANDLING

ERROR .LOGGING '

ESCAPE

FILL..AREA

GDP

GET .ITEM.TYPE. FROM-GKSM )NQ_CLIPPING INQ-COLOUR-FACILITIES I NO-COLOUR REPRESENTATION 1NQ_CURRENT_ INDIVIDUAL - ATTRIBUTE-VALUES

Функция ЯГС «Узнать значение текущего индивидуального атрибута» отображается в следующие функции.

INQ-CHAR-EXPANSION-FACTOR 1 NO-CHAR-SPACING 1NQ-FILL-AREA-COLOUR-INDEX

INO-FILI__AREA-INTERIOR-STYLE

]NQ. FILL .AREA-STYLE-INDEX INO-LINETYPE

INQ - LI NEW IDTH--SCALE- FACTOR INQ_LIST_OF_ASF I NQ_ POLYLINE-COLOUR-INDEX INO_POLYMARKER_COLOUR .INDEX lNQ-POLYMARKF.R-SIZE-SCALE-FACTOR _

1NQ_ POLYMARKER_TYPE lNQ_TF.XT_COI.OUR- INDEX INQ_TEXT-F0NT_AND_PREC1S10N INQ-CUR RENT-NORMALIZATION.TRANSFORAtA-TION. NUMBER INQ_CURRENT.PRIMIT1VE_ATTR1BUTE_VALUES

Функция ЯГС «Узнать значение атрибута текущего примитива вывода» отображается в следующие функции:

INO-POLYLINE-1NDF.X 1NQ-POLYMARKER. INDEX 1NQ-TEXT-INDEX INQ-CHAR-HEIGHT INQ_CHAR_UP_VECTOR INQ.CHAR-WIDTH

Страница 24

ГОСТ Р 34.1702.3—>2 * С. 21

Продолжение тобл 4

INQ . СНА R_ BASE-VECTOR 1NQ.TEXT.PATH INQ_TEXT_ ALIGNMENT

inq_fill_ari:a-index

I NQ . PATTERN HEIGHT..VECTOR INQ-PATTERN-WIDTH-VECTOR.

INQ PATTERN REFERENCE-POINT 1NQ.DISPLAY_SPACE.SAZE INQ_ FILL-AREA-FACILITIES !NQ OOP

INQ..LEVF.L-OF.GKS lNQ_LIST-.OF AVAII.ABLF._GDP 1NQ_L1ST_0F, AVAILABLE-WS-TYPES lNQ_LlST-OF_COLOUR_INDICES ‘

INQ LIST-OF.NORMALIZATION.TRANSFORMA-TION.NUMBER INQ-M AX.. LENGTH _WS_STATE-TABLES INQ. MAX NORMALIZATION-TRANSFORMATION-.NUMBER

INQ NORMALIZATION TRANSFORMATION INQ-OPERATING_STATE_VALUE INQ .PATTERN.FACILITES !VQ PIXEL UO_PIXEL_ARREY INQ .PIXEL.. ARREY_ DIMENSIONS INQ. POLYLINE.FACILITIES I NQ. POLYM A RKE R _ FAC I LIT; F.S INQ-PREDEFIN*-D_COI.OUR REPRESENTATION I NQ-PREDEFlNFD-Fl LL_ AREA - REPRESENTATION I NQ_PREDEFINED_PATTERN_ REPRESENTATION INQ_PREDF.FINF.D-POLYLINE-REPRESENTATION I NQ_PREDEFINED_POLYMARKER. REPRESENTATION

INQ-PREDEFINED-TEXT REPRESENTATION

I NQ . SET.OF. OPEN _ WS

INQ_TEXT_EXTENT

INQ-TEXT. FACILITIES

1 NQ. WS. CATEGORIES

INQ WS_CLASSIFICATION

INQ-WS-CONNECTION.AND-TVPE

I NQ_WS_ DEFERRAL-AND_UPDATE_STATF.S

1NQ-WS STATE

INQ-WS. TRANSFORMATION

INTERPRET. ITEM

OPEN.GKS

OPEN..WS

POLYLINE

POLYMARKER

READ. ITEM _ F ROM- GKSM

SELECT NORMALIZATION TRANSFORMATION

SET-ASF

SET CHAR .EXPANSION.FACTOR SET-CHAR. HEIGHT

Страница 25

С 22 ГОСТ Р 34.1702.3-92

Продолжение тсбл. 4

SKT,CHAR-SPACING SF.T CHAR-UP VECTOR SET-CLIPPING .INDICATOR SET_COLOUR-REPRESENTATION SET- FI LL- A R С A -COLOL R-1N DFX SET_FILL_ AREA. INDEX SET_FILL_AREA_INTERJOR_STYLE SET .FILL-AREA.STYLE. INDEX SET-LINETYPE

SF.T_LINEWIDTH_SCALE-FACTOR

SET ..MARKER SIZE-SCALE-FACTOR

SET_MARKER-TYPE

SET-PATTERN_REFERENCE_POINT

SET-PATTERN-S1ZE

SF.T-POLYLINE-COLOUR-1NDEX

SET_ POLYMARKER. COLOUR-INDEX

SET-POLYLINE.INDEX

SET POLYMARKER .INDEX

SET-TEXT. ALIGNMENT

SET-TEXT. COLOUR-INDEX

SF.T..TF.XT-FONT AND-PRECISION

SET.TEXT-INDEX

SET-TEXT.. PATH

SET VIEWPORT

SET-WINDOW

SET. WS_ VIEWPORT

SF.T-WS-WINDOW

TEXT

UPDATE-WS

WRITE-ITEM-TO-GKSM

Уровень 01>

INITIALISE-CHOICE

INITIALISE-LOCATOR

INITIALISE. STRING

INIT1ALISE-STROKE

INITIALISE-VALUATOR

INQ CHOICE. DEVICE-STATE

1NO-DEFAULT-CHOICE-DEVICE-STATF.

INQ DEFAULT. LOCATOR-DEVICE-DATA INQ_DEFAULT_STRING-DEVICE,DATA INQ-DEFAULT-STROKE-DEVICE-DATA INQ_DEFAULT_VALUATOR-DEVICE_DATA INQ_LOCATOR_DEVICE_STATE INQ.. NUMBER.. OF-AVAI LABLE_L0G1CAL_INPUT_ -DEVICES INQ-STRING-DEVICE.STATE |NQ_STROKE_DEVICE_STATE INQ.VALUATOR-DEVICE-STATE REQUEST-CHOICE

REQUEST. LOCATOR    „

Страница 26

ГОСТ Р 34.1702.3-92 С. 23

Продолжение табл. 4

REQUEST.STR1NG

RF.QUEST-STROKE

REQEfEST_ VALUATOR

SET^CHOICE MODE

SET .LOCATOR_MODE

SET-STRING MODE

SET STROKE.MODE

SET-VALUATOR- MODE

SET-VIEWPORT-INPUT-PRIORITY

У p о о с нь Ос

AWA1T.EVENT

FLUSH.DEV ICE EVENTS

GET-CHOICE

GET-LOCATOR

GET ..STRING

GET-STROKE

GET. VALUATOR

INQ.INPUT QUEUE. OVERFLOW

lNQ-MORE_SIMULTANEOUS_EVENTS

SAMPLE-CHOICE

SAMPLE-LOCATOR

SAMPLE-STR1NG

SAMPLE-STROKE

SAMPLE-VALUATOR

Уроасиь la

ACCUMULATE-TRANSFORMATION-MATRIX CLOSE SEGMENT CREATE-SEGMENT DELETE-SEGMENT DELETE_SEGMENT_FROM WS EVALUATE-TRANSFORMATION .MATRIX INQ DEFAULT DEFERRAL.STATE-VALUES INQ-DYNAMIC.. MODIFICATION _OF_ SEGMENT--ATTRIBUTES INQ-DYNAMIC-MODIFICATION OF..WS. ATTRIBUTES

1NQ-FILL. AREA REPRESENTATION INQ .LIST.OF. FILL. AREA-INDICES INQ_LiST-OF_ PATTERN-INDICES INQ-LIST.OF.POLYLINE-INDICES INQ .LIST-OF POLYMARKER-INDICES INQ - LI ST_OF- TEXT-INDICES INQ_NAME_OF_OPEN-SEGMENT INQ-NUMBER..OF.SEGMENT-PRIORITIES-.SUPPORTED INQ-PATTF.RN-REPRESENTATION INQ-POLYLINE-REPRESENTATION INQ POLYMARKER REPRESENTATION

Страница 27

С. 24 ГОСТ Р М.1702.3-92

Продолжение табл. 4

INQ.SEGMENT ATTRIBUTES I NQ_SET_OF_ ACTIVE -WS INO.SET.OF ASSOCIATED-WS INQ-SET-OF. SEGMENT. NAM ES.IN.USE INQ SET OF SEGMENT_NAMES_ON_WS INO-TEXT-REPRESENTATION INQ-WS-MAX NUMBERS MESSAGE

REDRAW_ALL_SEGMENTS_ON_WS RENAME-SEGMENT SET DEFERRAL-STATE SET.FILL-AREA-REPRESENTATION SET. HIGHLIGHTING SET..PATTERN-REPRESENTATION SET-POLYLINE REPRESENTATION SET_ POLYMARKER-REPRESENTATION SF.T-SEGMENT-PRIORITY SET. SF.GMENT..TRANSFORMATION SET-TEXT-REPRESENTATION SET_VISIBIL1TY

Уровень lb

INITIALISE-PICK

I NQ_CU RRENT_PICK_ ID. VALUE

INQ-DEFAULT-PICK-DEVICE-DATA

INQ-PICK-DEVICE-STATE

REQUEST-PICK

SET-DETECTABLILITY

SET.PICK- ID

SET_PICK-MODE

Уровень lc

GET-PICK SAMPLE-PICK

Уровень 2c

ASSOCIATE-SEGMENT.WITH-WS

COpY_SF.GMENT_TO_WS

INSERT.SEGMENT

Уровень 2b

Огсутсгвуют

Отсутствуют

Страница 28

ГОСТ Р 34.1702.3-92 С. 25

4.2. Определение типов данных

4.2.1. Сокращения, используемые в определениях типов данных

ASF    Флаг выборки атрибутов

CHAR    Литера

DC    Координата устройства

GDP    Обобщенный примитив вывода

GKS    Ядро графической системы

GKSM    Метафайл ядра графической системы

1D    Идентификатор

МАХ    (Максимум

NDC    Нормализованные координаты устройства

WC    Мировые координаты

WS    Станция

4.2.2. О предел ен не типов в алфавитном порядке

В данном разделе в алфавитном порядке даются определения типов данных, используемые в связывании Ады с ЯГС. Каждая такая декларация задает уровень, на котором должна иметься декларация данных в реализации ЯГС данного уровня и любого более высокого уровня, в котором декларация типа впервые понадобится (аналогично функциям). Каждый декларируемый элемент также включает комментарий о типе и/илн/использовании типа. Некоторые декларации в определении типа содержат константы. Все эти декларации констант включены в пакет GKS-TYPE.

ASF    Уровень Оа

type ASF is (BUNDLED. INDIVIDUAL);

Данный тип определяет флаг выборки атрибутов, чье значение указывает, должен ли атрибут примитива загружаться из таблицы связок или из индивидуального атрибута.

ASF-LIST    Уровень    Оа

lype ASF-LIST is record

TYPF-OF-LINH-ASF

: ASF

WIDTH-ASF

: ASF

LIN E-COLOUR-ASF

: ASF

TYPE -OF-MARKER-ASF

: ASF

SIZE-ASF

: ASF

Страница 29

С. М ГОСТ Р 34.1702.3-92

MARKER-COLOUR-ASF

ASF

FONT-PRECISION-ASF

ASF

EXPANSION-ASF

ASF

SPACING-ASF

ASF

TEXT-COLOUR-ASF

ASF

INTER10R-ASF

ASF

STYLE-ASF

ASF

FILL AREA.COLOUR-

ASF

-ASF

end record;

Запись содержит все исходные флаги выборки атрибутов с компонентами, указанными индивидуальными флагами.

ATTRIBUTES-USED    Уровень    Оа

package ATTRIBUTES-USED is new GKS-L1ST. UTILITIES (ATTRIBUTES_USED_TYPE); Предоставляет список используемых атрибутов.

ATTRIBUTES-USED-TYPE    Уровень Оа

type ATTR1BUTES-USED-TYPE is (POLYLINE-ATTRIBUTES,

POLYMARKER-ATTRIBUTES, TEXT-ATTRIBUTES. FILL.AREA-ATTRIBUTES); Типы атрибутов, которые могут быть использованы в генерируемом выводе для GDP и в генерируемой информации подсказки и эха различных классов входных устройств.

CHAR-EXPANSION    Уровень    Оа

type CHAR-EXPANSION is new SCALE'FACTOR range SCALE-FACTOR'SAFE.SMALL.. SCALE-FACTOR'LAST; Определяет масштаб расширения литер. Масштаб должен быть больше нуля.

CHAR-SPACING    Уровень    Оа

type CHAR_SPAC!NG is new SCALE-FACTOR,

Определяет межлнтерный просвет. Положительное значение межлитерного просвета в строке текста, а отрицательное значение обозначает перекрытие между прямоугольниками литер в строке текста.

CHOICE-DEVICE-NUMBER    Уровень    ОЬ

type CHOICE-DEVICE-NUMBER is new DEYTCE-NUMBER; Обеспечивает идентификаторы устройств выбора.

Страница 30

ГОСТ Р 34.I7OT.J-W С. 37

CHOICE-PROMPT    Уровень    0Ь

type CHOICE. PROMPT is (OFF. ON);

Указывает на выбор типа подсказки и эха и будет или нет отображаться заданная подсказка.

CHOICF-PROMPTS    Уровень    0Ь

package CHOICE-PROMPT is new GKS-L1ST-UTIL1TIES (CHOICE-PROMPT); Предоставляет списки подсказок.

CHOICE.PROMPT_ECHO-TYPE    Уровень    Ob

type CHOICE-PROMPT-ECHO-TYPE is new INTEGER; Определяет выбранный тип подсказки и эха.    •

CHOICE_PROMPT_ECHO..TYPES    Уровень    0Ь

package CHOICE-PROMPT-ECHO-TYPES is new GKS -LIST. UTILITIES (CHOICE-PROMPT-ECHO-

TYPE);

Предоставляет списки выбранной подсказки и эха.

CH01CE-PR0MPT-STRING    Уровень    0Ь

type CHOICE_PROMPT_STRING (LENGTH:STRING-SMALU

NATURAL : -0) Is

record

CONTENTS: STRING (1 .. LENGTH); end record;

Предоставляется для подсказок переменной длины. Типы должны быть декларированы таким образом, чтобы была возможна динамическая модификация длины.

CHOICE.PROMPT..STRING ARRAY    Уровень Ob

type CHOICE-PROMPT-STRING-ARRAY is array (POSITIVE

rangeO)

of CHOICE-PROMPT-STRING;

Обеспечивает матрицу строк подсказок.

CHOICE-PROMPT-STRING-LIST    Уровень Ob

type CHOICE-PROMPT-STRING-LIST (LENGTH.CHOICE.

SMALL. NATURAL :=0)

is record

LIST:CHOlCE_PROMPT-STRING_ARRAY (1 .. LENGTH): is record

Обеспечивает списки строк подсказок.

Страница 31

с. га гост р 34.1702.3-w

CHOICE.REQUEST-STATUS    Уровень ОЬ

Ivpe CHOlCE_REQUEST_STATUS is (OK, NOCHOICE,

NONE);

Определяет статус выбора входной операции для функции запроса.

CHOICE-SMALL-NATURAL    Уровень ОЬ

subtupc CHOICE-SMALL-NATURAL is NATURAL RANGE 0.. CHOICE-SMALL-NATURAL-

_MAX;

Это декларация подтипа, которая допускает вызов объектов зап.1сей для типа CH01CE-PR0MPT-STRING-LIST без возник-•новення прерывания STORAGE-ERROR.

CHOICE-STATUS    Уровень ОЬ

sybtupe CHOICE-STATUS is CHOICE-REQUEST-STATUS range OK .. NOCHOICE;

Указывает, был ли сделан оператором выбор для функций «опросить», «получить* и «узнать».

CHOICE1VALUE    Уровень ОЬ

type CHOICE-VALUE is new POSITIVE;

Определяет выбор значений, существующих для реализации.

CLJPPING-INDICATOR    Уровень Оа

type CL1PP1NG-1ND1CATOR is (CLIP, NOCLIP);

Указывает, будет или нет выполняться отсечение.

COLOUR-AVAILABLE    .    Уровень    Оа

type COLOUR-AVAILABLE is (COLOUR, MONOCHROME); Указывает, существует ли вывод цвета на станции.

COLOUR-INDEX    Уровень Оа

subtupe COLOUR-INDEX is PIXEL.COLQUR-INDEX range 0 .. PIXEL-COLOUR-INDEX’LAST;

Указывает на тип в таблицах цвета.

COLOUR-INDICES    Уровень Оа

package COLOUR-INDICES is new

GKS_LIST_UTILITIES (COLOUR-INDEX); Предназначены для установки индикаторов цвета, которые имеются на конкретной станции.

Страница 32

ГОСТ Р 34.1702.3—И С. 2»

COLOUR-MATRIX    Уровень 0а

type COLOUR-MATRIX is array (POSITIVE range O, POSITIVE range <>) of COLOUR.INDEX;

Обеспечивает матрицы, содержащие индикаторы цвета, соответствующие матрице ячеек или матрице шаблонов.

COLOUR-REPRESENTATION    Уровень 0а

type COLOUR-REPRESENTATION is

record

RED    :    INTENSITY;

GREEN    :    INTENSITY.

BLUE    .    INTENSITY;

end record;

Определяет представление цвета как комбинацию интенсивностей в системе цветов красный—зеленый—-голубой.

CONTROL-FLAG    Уровень 0а

type CONTROL-FLAG is (CONDITIONALLY. ALWAYS).;

Флаги управления используются для указания условий. при которых носитель изображения должен быть очншен.

DC    Уровень    0а

package DC is new GKS-COORD1NATE-SYSTEM (DC-TYPE); Определяет систему координат устройства.

DC-TYPE    Уровень    0а

type DC-TYPE is digits PRECISION;

Тип координат в системе координат устройства.

DC-UNITS    Уровень    0а

type DC-UNITS is (METRES, OTHER);

Единицы координат устройства для конкретной станции дол* жны задаваться в метрах, если устройство не способно порождать точно масштабированные образы, или в соответствующих зависящих от станции единицах в противном случае.

DEFERRAL-MODE    Уровень    0а

type DEFERRAL-MODE is (ASAP, BNIG, BN'IL. ASTI); Определяет четыре задержанных режима ЯГС.

DEVICE-NUMBER    Уровень    Ob

package DEVICE-NUMBER-TYPE is

DEVICE-NUMBER-TYPE is new POSITIVE;

Страница 33

С. 50 ГОСТ Р 34.1702.3-92

end DEVICE-NUMBER-TYPE;

К логическим устройствам входа обращаются по номерам устройств.

DISPLAY-CLASS    Уровень    0а

type DISPLAY-CLASS is (VECTOR..D1SPLAY.

RASTER-DISPLAY, OTHER-DISPLAY);

Классификация станций no категориям OUTPUT (вывод) или OUTIN (ввод/вывод).

DISPLAY-SURFACE-EMPTY    Уровень 0a

type DISPLAY-SURFACE.EMPTY is (EMPTY. NOTEMPTY); Указывает, очищен ли носитель изображения.

DYNAMIC-MODIFICATION    Уровень 1а

type DYNAMIC-MODIFICATION is (IRG, IMM);

Указывает, обновление списка состояний выполняется немедленно или требуется повторная генерация.

ECHO-SWITCH    Уровень 0Ь

type ECHO-SWITCH is (ECHO, NOECHO);

Указывает на то, выполняется или нет эхо-вывод подсказки.

ERROR-NUMBER    Уровень 0а

type ERROR-NUMBER is new INTEGER;

Определяет тип для значений индикаторов ошибок.

EVENT-DEVICE-NUMBER    Уровень Ос

type EVENT-DEVICE-

NUMBER (CLASS ; INPUT-CLASS : = NONt) is

record

case CLASS is

when NONE

= >

null.

when LOCATOR-INPUT

= >

LOCATOR-EVENT-

-DEVICE

when STROKE-INPUT

“>

STROKE-EVENT-DEVICE

: STROKE-DEVICE-

-NUMBER;

when VALUATOR-

= >

VALUATOR-EVENT-

-INPUT

-DEVICE

: VALUATOR-DEVICE-

-NUMBER;

Страница 34

ГОСТ Р 34-1702.3-92 С. 31

= > CHOICE-EVENT-DEVICE : CHOICE-DEVICE-

_N UMBER; = > PICK-EVENT-DEVICE : PICK-DEVICE- *

when CHOICE-INPUT

when PICK-INPUT when STRING-INPUT

-NUMBER; *> STRING-EVENT-DEVICE : STRING-DEVICE-

-NUMBER;

end case: end record;

Обеспечивает возврат любого класса номера устройства из очереди событий.

EVENT_OVERFLOW_DEVICE_NUMBER    Уровень    Ос

type EVENT_OVERFLOW_DE VICE-NUMBER (CLASS : INPUT-QUEUE-CLASS LOCATOR-INPUT) is record

case CLASS is when LOCATOR-INPUT => LOCATOR-EVENT-

-DEVICE : LOCATOR-DEVICE-

-NUMBER; - > STROKE-EVENT-DEVICE : STROKE-DEVICE--NUMBER; = > VALUATOR-EVENT-

when STROKE-INPUT

when VALUATOR-- IN PUT

-DEVICE : VALUATOR..DEVICE-

-NUMBER; -> CHOICE-ENCENT- ’

when CHOICE-INPUT

*hen PICK-INPUT when STRING^INPIJT

DEVICE : CHOICE-DEVICE-

_N UMBER; = > PICK-EVENT-DEVICE : PICK-DEVICE-

-NUMBER; -> STRING-EVENT-DEVICE : STRING-DEVICE-

-NUMBER;

end case; end record;

Дается номер класса устройства для возврата для очереди со-

*>Ы7ИЙ.

2 3*4. 207

Страница 35

С. 32 ГОСТ Р 34.1702.3-92

F1LL-AREA-INDEX    Уровень 0а

lype FILL_AREA_INDEX is new POSITIVE;

Определяются индексы таблицы связок полигонально?! области.

FILL-AREA-1NDICES    Уровень 0а

package FILL-AREA-INDICES is . new GKS LIST-UTIL1TIES (FILL-AREA-INDF.X); Обеспечивает список индексов таблицы связок полигональных областей.

GDP-ID    Уровень 0а

type GDP-ID is new INTEGER; •

Осуществляет выбор среди различных обобщенных примитивов вывода.

GDP-IDS    Уровень 0а

package GDP-IDS is new GKS-LIST-UTILITIES (GDP.ID); Предоставляет список идентификаторов обобщенных примитивов вывода.

GKS .Level    Уровень 0а

type GKS_Level is (LOa, LOb, LOc, Lla. Lib, Lie, L2a, L2b, L2c); Имеющиеся уровни Я ГС.

GKSMi-ITEM-TYPE    ..    Уровень Oa

type GKSM-ITEM-TYPE is new NATURAL;

Тип элементов, содержащихся в метафайле GKSM.

HATCH-STYLE    Уровень 0а

subtupe HATCH-STYLE is STYLE-INDEX;

Определяет тип варианта штриховки полигональной области.

HATCH-STYLES    Уровень 0а

package HATCH STYLES is new GKS-LIST-UTILITIES

(HATCH-STYLE);

Предоставляет список видов штриховки.

HORIZONTAL-ALIGNMENT    .    Уровень    Oa

type HORIZONTAL-ALIGNMENT is (NORMAL LEFT,

CENTRE. RIGHT);

Выравнивание параллелограмма текста по отношению к горизонтальной позиции текста.

Страница 36

ГОСГ Р 34.1702.3-92 С. 33

IMPLEMENTATION-DEFINED-ERROR    Уровень    0а

subtupe IMPLEMENTATION DEF1NED-ERROR is

ERROR-NUMBER

range ERROR.NUMBERFIRST.. -I;

Определяет область значений номеров ошибок, чтобы указать, какие ошибки, заданные в реализации, могут произойти.

INDIVIDUAL-ATTRIBUTE-VALUES Уровень 0a

type INDIVIDUAL-ATTRIBUTE-VALUES is

record

TYPE-OF-LINE

LINETYPE;

WIDTH

LINEWIDTH;

LINE-COLOUR

COLOUR INDEX;

TYPE-OF-MARKER

MARKER-TYPE;

SIZE

MARKER-SIZE;

MARKER-COLOUR

COLOUR-INDEX;

FONT-PRECISION

TEXT.FONT.. PRECISION;

EXPANSION

CHAR.EXPANSION;

SPACING

CHAR_SPACING;

TEXT-COLOUR

COLOUR-INDEX;

INTERIOR

INTERIOR-STYLE;

STYLE

STYLE-1NDEX;

FILL-AREA-COLOUR

COLOUR-INDEX;

ASF

ASF.LIST;

end record;

Запись, содержащая все текущие индивидуальные атрибуты для процедуры 1NQ-CURRENT-INDIVIDUAL-ATTRIBUTE-VA-

LUES.

INPUT-CLASS

** Уровень Ob

type INPUT-CLASS is (NONE.

LOCATOR-INPUT,

STROKE-INPUT.

VALUATOR-INPUT.

CHOICE-INPUT.

PICK-INPUT.

STRING-INPUT);

Определяет классификации входных устройств для рабочих

станций категорий INPUT и OUTIN.

INPUT_QUEUE_CLASS    Уровень Ос

5 «btupe INPUT-QUEUE-CLASS is INPUT. CLASS range LOCATOR-INPUT.. STRING-INPUT;

Страница 37

С 34 ГОСТ Р 34.1702.3-92

Определяет классификации для входных устройств для ситуаций, в которых отсутствие классификации невозможно.

JNPUT-STATUS    Уровень    ОЬ

type INPUT-STATUS is (OK, NONE);

Определяет состояние устройства ввода позиции, ввода последовательности позиций, ввода числа и ввода строки.

INPUT STRING    .    Уровень    ОЬ

type INPUT-STRING (LENGTH : STRING-SMALL-NATURAL

: = 0) is

record

CONTENTS : STRING (I.. LENGTH), end record;

Предоставляет строку переменной длины. Объекты данного типа следует декларировать, чтобы позволить динамическую модификацию длины.

INTENSITY    Уровень    Оа

type INTENSITY is digits PRECISION range 0.0 ..JO; Определяет область возможных значений интенсивностей цвета.

INTERIOR-STYLE -    Уровень 0а

type INTERIOR-STYLE is (HOLLOW, SOLID, PATTERN,

HATCH);

Определяет вид заполнения полигональных областей.

INTERIOR-STYLES    Уровень    Оа

package INTERIOR-STYLES is

new GKS-LIST-UTILITIES (INTERIOR-STYLE); Предоставляет список видов заполнения. „

INVALID.VALUES-INDICATOR    Уровень    Оа

type INVALID-VALUES-INDICATOR is (ABSENT.

PRESENT);

Указывает, присутствует или отсутствует значение —I в параметре PIXEL-ARRAY, возвращаемом 1NQ-PIXF.L-ARRAY.

LANG0AGE-BINDING-ERROR    Уровсьь    Оа

subtupe LANGUAGE-BINDING-ERROR is ERROR-NUMBER

range 2500. .2999;

Обозначает диапазон номеров ошибок для обозначения ошибок связки с языком, которые могут произойти.

Страница 38

ГОСТ Р 34.1702.3-92 С. 35

LINETYPE    Уровень 0а

type LINETYPE is new INTEGER;

Определяет типы линий, представляемых ЯГС.

UNETYPES    Уровень 0а

package LINETYPES is new GKS-LIST-UTILITIES

(LJNETYPE);

Предоставляет список типов линий.

UNEWIDTH    Уровень 0а

type UNEWIDTH is new SCALE-FACTOR range 0 0..

SCALE-FACTORLAST;

Толщина линин определяется коэффициентом масштабирования.

LOCATOR-DEVICE-NUMBER    Уровень 0Ь

type LOCATOR-DEVICE-NUMBER is new DEVICE-NUMBER; Определяет идентификаторы индикаторов местоположения устройства.

LOCATOR PROMPT-ECHO-TYPE    Уровень ОЬ

type LOCATOR-PROMPT-ECHO-TYPE is new INTEGER; Определяет подсказку определителя местоположения и тнпы эха. поддерживаемые реализацией.

LOCATOR-PROMPT-ECHO-TYPES    Уровень    ОЬ

package LOCATOR-PROMPT-ECHO-TYPES is new GKS-LIST-UTILITIES (LOCATOR-PROMPT-ECHO-

-TYPE);

Предоставляет списки подсказок индикаторов местоположения н типов эха.

MARKER-SIZE    Уровень    0а

type MARKER-SIZE is new SCALE-FACTOR range 0 0..

SCALE-FACTOR'LAST;

Размер маркера указывается масштабом.

MARKER-TYPE    Уровень    0а

type MARKER-TYPE is new INTEGER;

Определяет типы маркеров, представляемых ЯГС.

MARKER-TYPES    Уровень    0а

package MARKER-TYPES is new GKS-LIST-UTILITIES

Страница 39

С 3« ГОСТ Р 34.1702.3-92

(MARKER_TYPE); Предоставляет список типов маркеров.

MORE -EVENTS    Уровень Ос

type MORE-EVENTS is (NOMORE. MORE);

Указывает, содержатся ли события в очереди входных событий.

NDC    Уровень Оз

package NDC is new GKS-COORD1NATE.SYSTEM

(NDC-TYPE);

Определяет нормализованную систему координат устройства.

jNDC-TYPE    Уровень 0а

type NDC-TYPE is digits PRECISION;

Определяет типы координат в нормализованной системе координат устройства.

NEW-FRAME-NECESSARY    Уровень 0а

type MEW-FRAME-NECESSARY Is (NO, YES);

Указывает, необходимы ли новые действия над кадром при модификации.

OPERATING-MODE    Уровень    ОЬ

type OPERATING-MODE is (REQUEST-MODE, SAMPLE-MODE. EVENT-MODE);

Определяет режимы работы входного устройства.

OPERATING-STATE    Уровень    0а

type OPERATING-STATE is (GKCL, СКОР, WSOP, WSAC, SGOP);

Определяет пять рабочих состояний Я ГС.    _

PATTERN-INDEX    Уровень    0а

subtype PATTERN-INDEX is STYLE.INDEX range 1 ..

STYLE-INDEX’LAST;

Определяет область возможных значений индекса таблицы шаблонов.

PATTERN INDICES    Уровень    0а

package PATTERN-INDICES is

new GKS-L1ST-UTIL1T1ES (PATTERN-INDEX); Обеспечивает списки индексов шаблонов.

Страница 40

ГОСТ Р 34.1702.3-92 С. 37

PICK-DEVICE-NUMBER    Уровень    1Ь

type PICK-DEVICE-NUMBER is new DEVICE-NUMBER; Предоставляется для выбранных устройств.

PICK-ID    Уровень    \\>

type PICK-ID is new POSITIVE,

Определяет область значений идентификаторов выбора, доступных в данной реализации.

PICK IDS    Уровень    lb

package PICK-IDS is new GKS-LJST-UTIL1TIES (PICK-ID); Предоставляет список идентификаторов выбора.

PlCK-PROMPT_ECHO_TYPE    Уровень    ОЬ

type PICK-PROMPT_ECHO-TYPE is new INTEGER; Определяет типы подсказки к эха устройства выбора.

PICK-PROMPT-ECHO-TYPES    Уровень    ОЬ

package PICK-PROMPT-ECHO-TYPES is new GKS-LIST-UTIL1TIES (PICK-PROMPT-ECHO-TYPE);

Предоставляет списки типов подсказок и эха устройства выбора.

PICK-REQUEST.STATUS    Уровень    11>

(уре PICK-REQUEST.STATUS is (OK, NOPICK. NONE); Определяет статус входных операций указания для функций запроса.

PICK-STATUS    Уровень    1Ь

subtuре PICK-STATUS is P1CK-REQUEST-STATUS range ОК. • NOPICK;

Определяет статус входных операций указания для всех функ-цнй.

PIXEL-COLOUR-INDEX    Уровень    0а

type PIXEL.COLOUR-INDEX is new INTEGER range — I..

INTEGER-LAST;

Типы для цветов пикселей, где значение —1 обозначает недопустимый индекс цвета.

PIXEL-COLOUR-MATRIX    Уровень    0а

type PIXEL_COLOUR_MATRIX is array (POSITIVE

Страница 41

С. М ГОСТ Р 34.1702.3-92

range <>, POSITIVE range О) of PIXEL-COLOUR-INDEX, Предоставляет матрицу цветов пикселей.

POLYLINE-1NDEX    Уровень

iype POLYLINE-INDEX is new POSITIVE;

Определяет область значений индексов ломаной.

POLYLINE-INDICES    Уровень    Оа

package POLYLINE-INDICES is new

GKS-LIST-UTILITIES (P0LYL1NE-INDEX); Предоставляет списки индексов ломаной.

POLYMARKER-INDEX    Уровень    Оа

type POLYMARKER-INDEX is new POSITIVE;

Определяет область' значений индикаторов таблицы связок полимаркеров.

POLYMARKER-INDICES    Уровень    Оа

package POLYMARKER-INDICES is new

GKS-LIST-UTILITIES (POLYMARKER-INDEX); Предоставляет списки индексов полнмаркеров.

POSITIVE.TRANSFORMATION-NUMBER    Уровень    Оа

subtype POSlTlVE_TRANSFORMATION_NUMBER is TRANSFORMATION-N UMBER range 1.. TRANSFORMATION ,NUMBER LAST;

Номер преобразования нормирования, соответствующий устанавливаемому преобразованию.

PRIMITIVE-ATTRIBUTE-VALUES    Уровень Оа

type PRIMITIVE-ATTRIBUTE-VALUES is

record

INDEX-POLYLINE

INDEX-POLYMARKER

INDEX-TEXT

CHAR-HEIG1IT

CHAR-UP

CHAR-WIDTH

CHAR_BASE

PATH

ALIGNMENT

INDEX-FILL-AREA

POLYLINE-INDEX;

POLYMARKER-INDEX;

TEXT-INDEX;

WC. MAGNITUDE; WC. VECTOR;

WC. MAGNITUDE; WC. VECTOR;

TEXT-PATH;

TEXT. ALIGNMENT; FILL-AREA-INDEX;


Страница 42

ГОСТ Р 34.1702.3-92 С. 3«

PATTERN-WIDTH-    :    \VC. VECTOR;

-VECTOR

PATTERN-HEIGHT-    :    WC. VECTOR;

VECTO

PATTERN-REFE-    •    WC. POINT;

RENCE-PO end record;

Запись, содержащая все атрибуты текущего примитива для процедуры «Запросить значения атрибутов текущего примитива».

RADIANS    Уровень    1а

type RADIANS is digits PRECISION;

Величины, используемые при выполнении преобразований сегментов (угол вращения). Положительные значения обозначают вращение против часовой стрелки.

RANGE-OF-EXPRESIONS    Уровень 0а

type RANGE-OF-EXPRESIONS is record

MIN CHAR-EXPANSION.

MAX : CHAR-EXPANSION; end record;

Предоставляет область значений масштабов расширения литер.

RASTER-UNITS    Уровен! 0а

tvpe RASTER-UNITS is new POSITIVE;

Определяет область значений элементов растра.

RASTER-UNIT-SJZE    ».    Уровень    0а

type RASTER..UNIT SIZE is recor<f X : RASTER-UNITS;

Y : RASTER-UNITS; end record;

Определяет размер экрана дисплея в растровых единицах на растровом устройстве.

REGENERATION-MODE    Уровень;©*

type REGENERATION-MODE is (SUPPRESSED, ALLOWED); Указывает, запрещена или разрешена неявная повторная генерация.

Страница 43

С. 40 ГОСТ Р M.I702J-92

RELAT1VE-PRIORITY    Уровень Оа

type RELATIVE-PRIORITY is (HIGHER. LOWER);

Обозначает относительный приоритет между двумя преобразованиями нормирования-

RETURN-VALUE-TYPE    Уровень    Оа

type RETURN-VALUE-TYPE is (SET, REALIZED).

Указывает на то, является лн возвращаемое значение таким, какое оно было установлено в программе, или как оно реализовало на устройстве.

SCALE-FACTOR    Уровень    Оа

package SCALE-FACTOR-TYPE is type SCALE FACTOR is digits PRECISION; end SCALE:FACTOR -TYPE,

Тип. используемый для масштаба.

SEGMENT-DETECTABILITY    Уровень    la

type SEGMENT-DETECTABIL1TV is (UNDETECTABLE.

DETECTABLE);

Указывает на то, являются или нет сегменты обнаруживаемыми.

SEGMENT-HIGHLIGHTING    Уровень    1а

type SEGMENT-HIGHLIGHTING is (NORMAL,

HIGHLIGHTED);

Указывает, является ли сегмент выделенным.

SEGMENT-NAME    Уровень    1а

type SEGMENT-NAME is new POSITIVE;

Определяет диапазон имен сегмента.

SEGMENT- NAMES    Уровень    1а

package SEGMENT-NAMES is new GKS-LIST.UTILITIES (SEGMENT-NAME);

Предоставляет список имен сегментов.

SEGMENT-PRIOR1TY    Уровень    1а

type SEGMENT-PRIORITY is digits PRECISION range 0.0.. 1.0;

Определяет приоритет сегмента.

Страница 44

ГОСТ Р 34.1702.3-92 С. 41

SEGMENT-VIS1B1LITY    Уровень    1а

type SEGMENT-VISIBILITY is (VISIBLE. INVISIBLE); Определяет видимость сегмента.

SMALL.NATURAL    Уровень    0a

subtype SMALL-NATURAL is NATURAL range 0 .

SMALL-NATURAL-MAX;

Это декларация подтипа, которая позволяет объектам быт» записями различных типов без возникновения    прерываний

STORAGE.ERROR

STRING -DEVICE-NUMBER    Уровень    Ob

type STRING-DEVICE-NUMBER is new DEVICE-NUMВF.R; Предоставляет устройства ввода строки.

STRING_PROMPT_ECHO~TYPE    Уровень    ОЬ

type STRING-PROMPT-ECHO-TYPE is new INTEGER; Определяет типы подсказки к эха устройства ввода строки.

STRING-PROMPT-ECHO-TYPES    Уровень    ОЬ

package STRING-PROMPT-ECHO-TYPES is new GKS-LIST-UT1L1TIES (STRING-PROMPT-ECHO-TYPE); Предоставляет списки типов подсказок и эха устройства вводя строки.

STRING-SMALL-NATURAL    Уровень    Оа

subtype STRING-SMALL-NATURAL is NATURAL range 0 .. STRING-SMALL-NATURAL-MAX;

Это декларация подтипа, которая позволяет объектам быть записями различных типов без возникновения прерываний STORAGE-ERROR.

STROKE-DEVICE-NUMBER    Уровень    ОЬ

type STROKE-DEVICE-NUMBER is new DEVICE-NUMBER; Предоставляет номера устройств ввода последовательностей позиций.

STROKE-PROMPT-ECHO-TYPE    Уровень    ОЬ

type STROKE-PROMPT-ECHO-TYPE Is new INTEGER; Определяет типы подсказок н эха устройств ввода последовательностей позиций.

Страница 45

С. 42 ГОСТ Р 34.1702.3

STROKE-PROMPT-ECHO-TYPES    Уровень 0Ь

package STROKE. PROMPT-ECHO-TYPES is

new GKS-LIST-UTILITJES (STROKE-PROMPT-

ECHO-TYPE);

Предоставляет списки типов подсказок и эха устройств ввода последовательностей позиций.

STYLE.INDEX    Уровень 0а

type STYLE_1NDEX is new INTEGER;

Индекс вида — это либо HATCH STYLE, либо PATTERN--STYLE.

TEXT ALIGNMENT    Уровень 0a

Jype TEXT-ALIGNMENT is record

HORIZONTAL HORIZONTAL ALIGNMENT:

VERTICAL : VERTICAL. ALIGNMENT; end record;

Тип атрибута, управляющего позиционированием параллелограмма текста по отношению к позиции текста, имеющего горизонтальную и вертикальную составляющие, как задано выше.

TEXT-EXTERN-PARALLELOGRAM    Уровень 0а

type TEXT.EXTERN.PARALLELOGRAM is record

LOWER-LEFT    . WC. POINT

LOWER-RIGHT    : WC. POINT

UPPER-RIGHT WC. POINT UPPER-LEFT ; WC. POINT end record;

Определяет угловые точки параллелограмма размера текста по отношению к вертикально позиционируемому тексту.

TEXT-FONT

tvpe TEXT-FONT is new INTEGER:

Определяет типы шрифтов, предоставляемых реализацией.

Уровень 0а

TEXT-FONT-PRECISION

Уровень Oa

type TEXT_FONT_PRECISION is record

FONT    : TEXT-FONT;

PRECISION    : TEXT-PRECISION;

Страница 46

ГОСТ Р 34.1702.3-92 С. 43

end record;

Данный тип определяет запись, описывающую шрифт и точность текста.

TEXT-FONT-PREC1SIONS    Уровень 0а

package TEXT-FONT-PRECISIONS is

new GKS- LIST-UTILITIES (TEXT-FONT-

PRECISION);

Предоставляет списки nap, описывающих шрифт н точность

текста.

TEXT INDEX

Уровень 0а

»ype TEXT-INDEX is new POSITIVE;

Определяет область значений индексов таблицы связок текс

тов.

TEXT-INDICES

Уровень 0а

package TEXT-INDICES is new GKS-LIST-UTILITIES

(TEXT-INDEX);

Предоставляет .списки индексов текста.

TEXT PATH

Уровень 0а

lype TEXT-PATH is (RIGHT, LEFT, UP. DOWN);

Направление, выбранное для строки текста.

TEXT-PRECIS10N

Уровень 0а

type TEXT.PREC1S10N is (STRING-PRECISION,

CHAR-PRECISION.

STROKE-PRECISION);

Точность, с которой появляется текст.

TRANSFORMATION-FACTOR v    Уровень    1а

type TRANSFORMATK)N_FACTOR is record X : N DC-TYPE;

Y : NDC.TYPE; end record.

.Масштаб, используемый в матрицах преобразований для выполнения преобразования «егментов.

TRANSFORMATION-MATRIX    Уровень    1а

type TRANSFORMATION-MATRIX is array (1 . .2, 1.3) of NDC-TYPE;

Страница 47

С. 44 ГОСТ Р 34.1702.3-92

Для преобразований сегментов, отображаемых внутрь пространства НК.

TRANSFORMATION NUMBER    Уровень    Оа

type TRANSFORMATIONS UMBER is new NATURAL;

Номер преобразования нормирования.

TRANSFORMATION PRIORITY-ARRAY    Уровень    0a

type TRANSFORMATION_PRlORITY_ARRAY is array (POSITIVE range <>) of TRANSFORMATION-

NUMBER;

Тип для запоминания номеров преобразования.

TRANSFORMATION-PRIORITY-LIST    Уровень Оа

type TRANSFORMATION ..PRIOR ITY-LIST (LENGTH:

SMALL-NATURAL :=0) is

record

CONTENTS: TRANSFORMATION_PRIORITY_ARRAY

(1 ..LENGTH);

end. record;

Предоставляет список приоритетов номеров преобразований.

UPDATE-REGENERATION-FLAG    Уровень    Оа

type UPDATE_REGENERATION_FLAG is (PERFORM,

POSTPONE);

Флаг, показывающий на действие повторной генерации на изображение.

UPDATE-STATE    Уровень Оа

type UPDATE-STATE is (NOTPENDING, PENDING); Указывает на то, что было запрошено, но еще не выполнено изменение преобразования для станции.

VALUATOR-DEVICE-NUMBER    Уровень    0Ь

type VALUATOR-DEVICE-NUMBF.R is new

DEVICE-NUMBER; Предоставляет идентификаторы устройств ввода числа.

VALUATOR-INPUT.VALUE    *    Уровень 0Ь

type VALUATOR-INPUT-VALUE is digits PRECISION; Определяет диапазон точности входных значений для реализации.

Страница 48

ГОСТ Р 54-1702.3-92 С. 45

VALUATOR_PROMPT-ECHO-TYPE    Уровень    0Ь

ivpe VALUATOR PROMPT-ECHO-TYPE is new INTEGER; Определяет возможный диапазон типов подсказок н эха для устройства ввода числа.

VALUATOR. PROMPT-ECHO TYPES    Уровень    Ob

package VALUATOR_PROMPT_ECHO_TYPES is new GKS_LIST_UTILITIF.S (VALUATOR PROMPT-ECHO-

-TYPE);

Предоставляет список типов подсказок н эха для устройства ввода числа.

VARIABLE.COLOUR-MATRIX    Уровень    Оа

type VARlABLE_COLOUR_MATRIX (DX:SMALL_NATURAL: -0;

DY.SMALL-NATURAL :=0) is . record

MATR1X:C0L0UR-MATRIX (1 . DX. I . . DY); Предоставляет матрицы переменной длины, содержащие индексы цвета, соответствующие матрице ячеек или матрице шаблонов.

VARIABLE-CONNF.CTION-1D    Уровень Оа

type VARIABLE-CONNECTION-ID

(LENGTH:STRING-SMALL-NATURAL. = 0) is record

CONNECT:STRING (I .. LENGTH); end record;

Определяет идентификатор'’ связи переменной длины для 1NQ-WS-C0NNECT10N-AND-TYPE.

VARIABLE-PIXEL-COLOUR-MATRIX    Уровень    Оа

type VARIABLE-PIXEL.COLOUR -MATRIX

(DX SMALL-NATURAL: =0; DY:SMALL-NATURAL: = 0) is record

MATR1X:P1XEL_C0L0UR_MATRIX (I .. DX, 1 .. DY); end record.

Предоставляет матрицы переменного размера для цвета пикселей.

VERTICAL-ALIGNMENT    Уровень Оа

type VERTICAL-ALIGNMENT is (NORMAL. TOP, CAP, HALF,

BASE. BOTTOM);

Страница 49

С. 4в ГОСТ Р 34.1702.3-92

Выравнивание параллелограмма текста по отношению к вертикальной позиции текста.

WC    '    Уровень    0а

package WC is new GKS.COOKDINATE-SYSTKM (WC-TYPE); Определяет мировую систему координат.

WC-TYPE    *    Уровень    0а

type WC-TYPE is digits PRECISION.

Определяет точность для типов мировых координат.

WS-CATEGORY    •    Уровень    0а

type WS-CATEGORY is (OUTPUT. INPUT. OUTIN. WISS.

MO. Ml);

Тип для категорий станций Я ГС.

WS-ID    Уровень    0а

type WS_ID is new POSITIVE;

Определяет область значений идентификаторов станцнй.

WS-IDS    Уровень    0а

package WS-IDS is new GKS-LIST-UTILITIES (WS-Ю): Предназначен для списков идентификаторов станций.

WS-STATE    Уровень    0а

type WS-STATE is (INACTIVE, ACTIVE);

Состояние станции.

WS-TYPE    Уровень    0a

type WS-TYPE is new POSITIVE;

Диапазон значений, соответствующих правильнам типам станций. Константы, определяющие имена для различных типов станций, должны быть обеспечены реализацией.

WS-TYPES    Уровень    0а

package WS-TYPES is new GKS-LIST-UTILITIES

(WS-TYPE);

Предназначена для списков типов станций.

4.2.3. Список определений л и ч и ь! х типов

В данном разделе лается в алфавитном порядке список определений личных типов, используемых для задания связывания

Страница 50

ГОСТ Р 34.1702.3-92 С. 47

Ады и ЯГС. Каждая из этих деклараций определяет у розен ь ЯГС. на котором должна иметься декларация типа в реализации ЯГС данного или любого более высокого уровня, в котором декларация типа впервые понадобится (аналогично функциям). Все эти элементы являются декларациями типа PRIVATE языка Ада. Эти декларации включены в пакет ЯГС для того, чтобы дать возможность манипулировать личными типами.

CHOICE- DATA-RECORD    Уровень    0Ь

type CIIOICE-DATA-RECORD (PROMPT-ECHO-TYPE:

CHOICE_PROMPT-ECHO_TYPE: - DEFAULT-CHOICE) is private;

Определяет запись для инициализации ввода выбора. Структура записи зависит от реализации. Так как это личный тип, компоненты записи могут быть найдены только через использование подпрограмм для манипулирования записями данных ввода (п. 5.2.1).

GKSM-DATE-RECORD    •    Уровень    0а

type GKSM-DATA-RECORD (TYPE-OF-ITEM:

GKSM-ITEM-TYPE: =0; LENGTH:NATURAL:=0)

is private;

Запись данных для метафайла GK^M. Так как это личный тип, то до компонента записи можно добраться только через использование подпрограмм для манипулирования записями данных ввода (и. 5.2.1).

LOCATOR-DATA.RECORD    Уровень    0Ь

type LOCATOR-DATA-RECORD (PROMPT-ECHO-TYPE: LOCATOR-PROM PT-ECHO-TYPE: = D EFA ULT-LOCATOR)

is private;

Определяет запись для инициализации ввода позиции. Структура записи задается при реализации. Так как это личный тип. то ' до компонента записи можно добраться только через использование подпрограмм для манипулирования записями данных ввода

(п. 5.2.1). .

PICK-DATA..RECORD    Уровень    ОЬ

type PICK-DATA-RECORD (PROMPT-ECHO-TYPE: PlCK-PROMPT_ECHO_TYPE: —DEFAULT-P1CK) is private; Определяет запись для инициализации ввода указания. Структура записи определяется в реализации. Так как это личный тип, то до компонента записи можно добраться, только используя под-

Страница 51

С. 48 ГОСТ Р 34.1702-3-92

программы для манипулирования записями данных ввода (п. 5.2.!)-_

STRING_DATA_RECORD    Уровень    0Ь

ivpe STRING. DATA-RECORD (PROMPT-ECHO-TYPE:

STRING-PROMPT-ECHO-TYPE: = DEFAULT_STR1NG) is private;

Определяет запись для инициализации ввода строки. Структура записи определяется в реализации. Так как это личный тип, то до компонента записи можно добраться, только используя подпрограммы для манипулирования записями данных ввода (и. 5.2.1).

STROKE-DATA-RECORD    Уровень    ОЬ

type STROKE-DATA-RECORD. (PROMPT-ECHO-TYPE.

STROKE-PROMPT.ECHO-TYPE: * DEFAULT-STROKE) is private;

Определяет запись для инициализации ввода последователь-ности позиции. Структура записи определяется в реализации. Так как это личный тип. то до компонента записи можно добраться, только используя подпрограммы для манипулирования записями данных ввода (п. 5 2.1).

VALUATOR DATA-RECORD    У ровен» ОЬ

type VALUATOR-DATA-RECORD (PROMPT ECHO TYPE:

VALUATOR..PROMPT-ECHO-TYPE : = DEFAULT..

VALUATOR)

is private;

Определяет запись для инициализации ввода числа. Структура записи определяется в реализации. Так как это личный тип. то до компонента записи можно добраться, только используя подпрограммы для манипулирования записями данных ввода (п. 5.2.1).

4.2.4. С п и с о к деклараций констант В данном разделе приведены декларации зависящих от реализации констзнт для задания типов Ада/Я ГС. Некоторые из констант используют для задания принимаемых по умолчанию значений пара метров для процедур Я ГС, определяемых в разд. 5. В данном разделе приведены также константы, которые представляют стандартные значения, задаваемые для некоторых типов Я ГС/Ада.

Следующие константы определяют стандартные типы линий Я ГС:

Страница 52

ГОСТ Р 54.1702.3-92 С. 49

SOLID-LINE    :    constant    L1NETYPE    : -1;

DASHED-LINE    :    constant    LINETYPE -2;

DOTTED-LINE    :    constant    LINETYPE    : = 3;

DASHED-DOTTED    :    constant    LINETYPE    : = 4.

-LINE

Следующие константы определяют стандартные типы маркеров ЯГС:

DOT-MARKER    :    constant    MARKER-TYPE    =1;

PLUS-MARKER    :    constant    MARKER-TYPE    :=*2;

STAR-MARKER    :    .constant    MARKER-TYPE    :«3;

ZERO-MARKER : constant MARKER_TYPE :^4; X-MARKER    :    constant    MARKER TYPE    : = 5:

Следующие константы определяют стандартные типы подска-

зок и эха, поддерживаемые ЯГС:

DEFAULT-LOCA-

: constant

LOCATOR.PROMPT-ECHO-

TOR

-TYPE :=!

CROSS-HAIR-

: constant

LOCATOR-PROMPT-ECHO-

- LOCATOR

-TYPE :-2

TRACKING-

: constant

LOCATOR-PROMPT_ECHO_

-CROSS-LOCATOR

-TYPE :=3

RUBBER-BAND-

: constant

LOCATOR. PROMPT-ECHO.

_L IN E-LOCATOR

-TYPE :=4

RECTANGLE-

: constant

LOCATOR_PROMPT_ECHO_

_LOCATOR

-TYPE :-5

DIGITAL-LOCA-

: constant

LOCATOR-PROMPT.ECHO-

TOR

-TYPE :=6

DEFAULT-STROKE

: constant

STROKE-PROMPT-ECHO-

-TYPE -I

DIGITAL-STROKE

: constant

STROKE-PROMPT-ECHO..

-TYPE :=2

MARKER-STROKE

: constant

STROKE-PROMPT-ECHO-

-TYPE : — 3

LINE-STROKE

: constant

STROKE-PROMPT-ECHO-

-TYPE :=4

DEFAULT-VALUA-

: constant

VALUATOR-PROMPT-ECHO-

TOK

-TYPE :«1

GRAPHICAL-

: constant

VALUATOR-PROMPT-ECHO-

„VALUATOR

-TYPE =2

DIGITAL-

: constant

VALUATOR_PROMPT-ECHO_

-VALUATOR

-TYPE :=3

DEFAULT-CHOICE

: constant

CHOICE-PROMPT-ECHO-

-TYPE :-!

Страница 53

С. 59 ГОСТ Р 3«.1702.3-»2

PROMPT-ECHO-

: constant CHOICE-PROMPT-ECHO-

-CHOICF.

-TYPE

=2;

STRING-PROMPT

: constant CHOICE..PROMPT-ECHO-

-CHOICE

-TYPE

-3;

STR1NG-INPUT-

: constant CHOICE-PROMPT-ECHO-

-CHOICE

-TYPE

= 4;

SEGMENT.

: constant CHOICE PROMPT-ECHO-

-CHOICE

-TYPE

=*5;

DEFAULT-STRING

: constant STRING-PROMPT-ECHO-

-TYPE

= 1;

DEFAULT-PICK

: constant PICK- PROMPT-ECHO-

-TYPE

= 1;

GROUP HIGH

: constant PICK-PROMPT-ECHO-

-LIGHT-PICK

-TYPE

"2;

SEGMENT-

: constant PICK-PROMPT-ECHO^

-HIGHLIGHT-PICK

-TYPE

=3:

DEFAULT.MEMO-

Следующие константы используют для определения принима емых по умолчанию значений параметров для процедур Я ГС, оп ределяемых в разд. 5:

constant : = implementation, defined

RY-UNITS

PRECISION

SMALL-NATURAL.

-MAX

CHOICE_SMALL_ -NATURAL .MAX STRING-SMALL -NATURAL-MAX DEFAULT.ERROR--FILE

constant : = implementation-defined constant : — implementation-defined

constant : = implementation-defined

constant : = implementation defined

constant :»implementation-defined


Следующая строка задает прерывание GKS-F.RROR, определенное в п. 3.2.3:

GKS-ERROR : exception;

4 3 Коды ошибок

Связывание требует применения процедуры ERROR. HANDLING для обработки любых ошибок, которые возникают в процедурах ЯГС, исключая процедуры запросов. Полное описание требований по обработке ошибок имеется в п. 3.2.3.

Функции запроса ЯГС не порождают прерываний. Вместо этого они возвращают параметр индикатора ошибок, который содер-

Страница 54

ГОСТ р 34.1702^-9? С. 51

жит номер ошибки, которая обнаружена. Это согласуется с философией ЯГ С. говорящей, что лри запросе не возникает ошибок. Номера ошибок соответствуют номерам ошибок из приложения Б спецификации ЯГС плюс дополнительные ошибки, определенные в данном документе. Отметим, что различные известные ошибочны? условия могут быть обнаружены вне контроля ЯГС благодаря природе языка Ада и могут привести к прерыванию при запросе. 13.1 Задание кодов ошибок

Стандарт ИСО 7942 даст отображение номеров ошибок для каждой функции ЯГС. Ряд известных ошибок ЯГС не может быть обнаружен реализацией ЯГС в Аде из за свойств языка Ада, таких как строгость определения типов данных. Эти ошибки приведены в разделе о кодах устраненных ошибок.

В дополнение к определенным в ЯГС ошибкам могут существовать ошибки, задаваемые при реализации, и ошибки, определяемые связыванием

1MPLEMENTAT10N-DEFINED-ERR0R

Ошибки, задаваемые при реализации, описаны в Руководстве пользователя по реализации и имеют коды ошибок меньше нуля. LANGUAGE-BIND1NG-ERROR

Ошибки связывания с языком являются специфическими для связывания ЯГС с Адой Номера ошибок с 2500 по 2999 зарезервированы для зависящих от связывания с языком Ада ошибок. Следующие ошибки определены данным связыванием для специфических ошибок связывания с языком:

2500    Неправильное использование записи данных ввода.

Когда происходят следующие ошибки, автоматически возникает предопределенное прерывание в Аде.

2501    Неизвестная ошибка, произошедшая при обработке.-2502ч0шибка применения утилиты LIST GKS.

4.3.2. Коды устраняемых ошибок

Следующие ошибки ЯГС представлены отдельно из-за некоторых свойств языка Ада или их использования в данной связке; они никогда не могут произойти в данной реализации ЯГС. Ошибки могут быть обнаружены компилятором или во время выполнения вне области действия ЯГС

Коды ошибок, устраняемых функциями:

20 Неверно задан идентификатор станции 22    Неверно задан тип станции

65    Масштаб толщины линии меньше нуля

Страница 55

С. 52 ГОСТ Р 34.1702.3—$2

71    Масштаб маркера меньше нуля

77    Масштаб расширения литеры меньше или равен нулю

78    Высота литеры меньше или равна нулю

87    Значение размера шаблона не положительно

91    Неверно заданы размерности массива индексов    цвета

92    Индекс цвета меньше нуля

96    Интенсивность цвета лежит вне диапазона    от    нуля    до еди

ницы

97    Неверно задан идентификатор указания

120    Неверно задано имя сегмента

126 Приоритет сегмента вне диапазона от нуля до единицы

151    Неверно задано время ожидания

166 Неверно задана максимальная длина записи данных

5. ФУНКЦИИ В АДЕ. СВЯЗАННЫЕ С ЯДРОМ ГРАФИЧЕСКОЙ СИСТЕМЫ 5.1. Функции ЯГС

OPEN GKS

ОТКРЫТЬ GKS    Уровень    0а

procedure OPEN-GKS (ERROR. FILE    :    in    STRING    :    =    DEFAULT-

FRROR FILF'

AMOUNT-OF-MEMORY : in NATURAL : = DEFAULT-MEMORY-UN1TS);

CLOSE GKS ЗАКРЫТЬ ЯГС

procedure CLOSE-GKS

Уровень 0a

OPEN WORKSTATION ОТКРЫТЬ СТАНЦИЮ procedure OPEN-WS (WS : in WS-ID; CONNECTION : in STRING; TYPE-OF-WS : in WS-TYPE);

Уровень 0a

CLOSE WORKSTATION ЗАКРЫТЬ СТАНЦИЮ procedure CLOSE-WS (WS : in WS-ID);

Уровень 0a

ACTIVATE WORKSTATION

АКТИВИРбВАТЬ СТАНЦИЮ    Уровень    0a

procedure ACTIVATE-WS (WS : in WS-ID);

Страница 56

ГОСТ Р 34.1702.3-92 С. 53

DEACTIVATE WORKSTATION ДЕАКТИВИРОВАТЬ СТАНЦИЮ procedure DEACTIVATE-WS (WS : in WS-ID;

CLEAR WORKSTATION.

Уровень 0a

Уровень 0а

ОЧИСТИТЬ ИЗОБРАЖЕНИЕ НА СТАНЦИИ procedure CLEAR-WS (WS : in WS-ID;

FLAG . in CONTROL-FLAG):

REDRAW ALL SEGMENTS ON WORKSTATION

ПЕРЕРИСОВАТЬ ВСЕ СЕГМЕНТЫ НА СТАНЦИИ Уровень la procedure REDRAW ALL SEGMENTS-ON-WS (WS : in WS .ID);

UPDATE WORKSTATION

ОБНОВИТЬ ИЗОБРАЖЕНИЕ НА СТАНЦИИ    Уровень la

procedure UPDATE WS (WS    :    in WS-ID,

REGENERATION    :    in UPDATE-REGENERATION-

-FLAG):

SET DEFERRAL STATE

ЗАДАТЬ РЕЖИМ ЗАДЕРЖКИ    Уровень la

procedure SET-DEFERRAL_STATE {WS    :    in WS-ID;

DEFERRAL    :    in DEFERRAL-MODE:

REGENERATION    :    in REGENERATION-MODE);

MESSAGE

СООБЩЕНИЕ

procedure MESSAGE (WS

CONTENTS


ESCAPE

РАСШИРЕНИЕ


Уровень la


. in WS ID;

: in STRING).


Уровень 0a


Функции расширения рассматриваются в данном связывании как отдельные процедуры для каждого типа расширения, предоставляемого реализацией, каждая со списком формальных пара-

Страница 57

С 54 ГОСТ Р 34.I702.3-W

метров, соответствующих реализованной процедуре. Зарегистрированные процедуры ESCAPE будут находиться в библиотечном пакете, названном GKS-ESCAPE. Имена и параметры ESCAPE зарегистрированы в Международном журнале графических элементов ИСО, который ведется Органом регистрации.

Каждая незарегистрированная процедура ESCAPE будет находиться в библиотечном пакете; при этом используются следующие соглашения по именованию:

package GKS. UESC-Симя процедуры расширения> is procedure ESC;

— код на Аде для процедуры UESC .end GKS-UESC-Симя процедуры расширения>;

— Единственным именем процедуры, используемым в пакете, будет ESC

Для того, чтобы поддержать возможность записывать ESCAPE в метафайл, эти зарегистрированные расширения могут быть привлечены, используя типы данных и форму процедуры GENERAL1ZED.ESC, которая имеет спецификацию, приведен* ную ниже:

package GKS-ESCAPE is lype ESCAPE-1D is new INTEGER; type ESCAPE-FLOAT is digits PRECISION; type ESC-INTEGER-ARRAY is array (SMALL-NATURAL range <>) of INTEGER; type ESC.FLOAT-ARRAY is array (SMALL-NATURAL range <>) of ESCAPE-FLOAT; type ESC-STR1NG-ARRAY is array (SMALL-NATURAL range < >) of STRING < 1 .. 80); type ESC-DATA.RECORD (NUM-OF-INTEGER

: SMALL-NATURAL,.: = 0; NUM-OF.REALS    : SMALL-NATURAL : = 0;

NUM-OF-STRING    : SMALL-NATURAL :-0) is

record

1NTEGER-ARRAY : ESC-INTEGER..ARRAY

(I .. NUM-OF-INTEGERS); REAL-ARRAY : ESC-FLOAT-ARRAY (1 .. NUM-OF-REALS);

' ESC-STRINGS : ESC-STRING-ARRAY

(I .. NUM-OF-STRINGS);

end record;

procedure GENERALIZED-ESC (ESCAPE.NAME : in ESCAPE-ID;

ESC.DATA-IN : in ESC-DATA-RECORD;

ESC-DATA-OUT : in ESC_DATA_RECORD);

Страница 58

ГОСТ Р 34.1702.3-92 С. 55

end GKS -ESCAPE;

Представляет типы данных и процедуры для реализации неподдерживаемых расширений.

POLYLINE

ЛОМАНАЯ

procedure POLYLINE (POINTS : in WC. POINT-ARRAY);

Уровень 0a

POLYMARKER

ПОЛИМДРКЕР

procedure POLYMARKER (POINTS : in WC

POINT-ARRAY);

Уровень 0a

TEXT

ТЕКСТ

procedure TEXT (POSITION : in WC. POINT; CHAR-STRING : in STRING);

Уровень 0a

FILL AREA

ПОЛИГОНАЛЬНАЯ ОБЛАСТЬ procedure FILL-AREA (POINTS : in WC. POINT-ARRAY);

Уровень 0a

CELL-ARRAY МАТРИЦА ЯЧЕЕК

procedure CELL-ARRAY (CORNER. I_I CORNER DX DY CELLS

Уровень 0a

: in WC. POINT;

: in WC- POINT;

: in COLOUR-MATRIX);

GENI-.RAUZED DRAWING PRIMITIVE    Уровень    0а

ОБОБЩЕННЫЙ ПРИМИТИВ ВЫВОДА

Обобщенный графический примитив вывода ОПВ связывается по принципу один во многие с отдельной процедурой, реализован- . ной для каждого ОПВ. каждая из которых имеет свой собственный интерфейс. Зарегистрированные ОПВ находятся в библиотечном пакете, названном GKS-GDR. Имена ОПВ и параметры зарегистрированы в Международном журнале графических записей ИСО, который ведется Органом регистрации.

Страница 59

С. 56 ГОСТ Р 34.1702.3-92

Каждая незарегистрированная процедура GDP будет находиться в библиотечном пакете, использующем следующие празнла именования:

package GKS-UGDP_<hmh процедуры GDP> procedure GDP;

— код на Аде процедуры UGDP end GKS-UGDP-Симя процедуры GDP>;

— Единственным именем процедуры, используемым в пакете, будет GDP

Для того, чтобы поддержать возможность записывать ОПВ данной реализации в метафайл, эти зарегистрированные ОПВ могут быть привлечены, используя типы данных и форму процедуры GENERALIZED-GDP, которая имеет следующую спецификацию:

package GKS-GDP is type GDP-FLOAT is digits PRECISION; type GDP INTEGER-ARRAY is array (SMALL-NATURAL range <>) of INTEGER;

type GDP„FLOAT_ARRAY is array (SMALL-NATURAL range O) of GDP_FLOAT; type GDP-STRING-ARRAY is array (SMALL-NATURAL range <>) of STRING (I.. 80); type GDP-DATA-RECORD (NUM-OF-INTEGERS : SMALL--NATURAL : =0;

NUM-OF-REAL : SMALL. -NATURAL : =0; NUM-OF-STRfNGS : SMALL--NATURAL : -0)

is

record

INTEGER ARRAY : GDP-lNTEGER-ARRAY (b.. NUM-OF-

-INTEGERS); REAL. ARRAY : GDP-FLOAT-ARRAY (1 .. NUM-OF-

-REALS);

GDP STRINGS : GDP-STRING-ARRAY (I.. NUM-OF-

-STRINGS);

errd record;

procedure GENERALIZED-GDP (GDP-NAME : in GDP-ID;

POINTS : in WC.POINT-LIST; GDP-DATA : in GDP-DATA-RECORD);

end GKS GDP;

Предоставляет типы данных и процедуру для реализации не-лоддержанных обобщенных примитивов вывода.

Страница 60

ГОСТ Р 34.1702.3-92 С. 57

SET POLYLINE INDEX    Уровень    0а

ЗАДАТЬ ИНДЕКС ЛОМАНОЙ procedure SET-POLYLINE-1NDEX (INDEX    :    in    POLYLINE-INDEX);

SET LINETYPE ЗАДАТЬ ТИП ЛИНИЙ procedure SET-LINETYPE (TYPE-OF-LINE

Уровень 0a

in LINETYPE);

SET LINEWIDTH SCALE FACTOR ЗАДАТЬ МАСШТАБ ТОЛЩИНЫ ЛИНИИ procedure SET-LINEW1DTH-SCALE-FACTOR (WIDTH    .    in    LINEWIDTH);

Уровень 0a

Уровень 0a

SET POLYLINE COLOUR INDEX ЗАДАТЬ ИНДЕКС ЦВЕТА ЛОМАНОЙ

procedure SET_POLYLlNE_COLOUR_INDEX (LlNE_COLOUR    :    in    COLOUR-INDEX);

SET POLYMARKER INDEX ЗАДАТЬ ИНДЕКС ПОЛИМАРКЕРА procedure SET-POLYMARKF.R-INDEX (INDEX    : in POLYMARKER-INDEX);

SET MARKER TYPE    Уровень 0a

ЗАДАТЬ ТИП МАРКЕРА

procedure SET-MARKER-TYPE (TYPE)OF.MARKER    : in MARKER-TYPE);

SET MARKER SIZE SCALE FACTOR    Уровень 0a

ЗАДАТЬ МАСШТАБ МАРКЕРА -

p.&cedure SET-MARKER-SIZE-SCALE-FACTOR (SIZE    : in MARKER-SIZE);

Уровень 0a

Уровень 0a

SET POLYMARKER COLOUR INDEX ЗАДАТЬ ИНДЕКС ЦВЕТА ПОЛУМАРКЕРА procedure SET-POLYMARKER COLOUR-INDEX <MARKER-COLOUR    : in COLOUR-INDEX);

Уровень 0a

SET TEXT INDEX ЗАДАТЬ ИНДЕКС ТЕКСТА procedure SET-TEXT-INDEX (INDEX

in TEXT-INDEX);

Страница 61

С. 58 ГОСТ Р 34.1702.3-92

SET TEXT FONT AND-PRECISION    Уровень    Оа

ЗАДАТЬ ШРИФТ И ТОЧНОСТЬ ТЕКСТА

procedure SET-TEXT-FONT-AND-PRECISION (FONT-PRЕС IS ION    : in TEXT-FONT-PRECISION) ;

SET CHARACTER EXPANSION FACTOR    Уровена 0a

ЗАДАТЬ МАСШТАБ РАСШИРЕНИЯ ЛИТЕРЫ procedure SET_CHAR_EXPANSION. FACTOR (EXPANSION    :    in    CHAR-EXPANSION);

SET CHARACTER SPACING    Уровень Oa

ЗАДАТЬ МЕЖЛИТЕРНЫИ ПРОСВЕТ procedure SET_CHAR-SPACING (SPACING    :    in    CHAR-SPACING);

SET TEXT COLOUR INDEX    Уровень 0a

ЗАДАТЬ ИНДЕКС ЦВЕТА ТЕКСТА procedure SET ,TEXT_COLOUR_INDEX (TEXT-COLOUR    :    in    COLO UR-INDEX);

SET CHARACTER HEIGHT    Уровень 0a

ЗАДАТЬ ВЫСОТУ ЛИТЕР

procedure SBT_CHAR_HEIGHT (HEIGHT    :    in    WC. MAGNITUDE);

SET CHARACTER UP VECTOR    Уровень    0a

ЗАДАТЬ ВЕРТИКАЛЬ ЛИТЕРЫ procedure SET_CHAR_UP_VECTOR (CHAR-UP-VECTOR    : in WC.-VECTOR);

SET TEXT PATH    Уровень    0a

ЗАДАТЬ НАПРАВЛЕНИЕ ТЕКСТА procedure SET-TEXT-PATH (PATH : inTEXT-PATH);

SE TEXT ALIGNMENT    Уровень    Oa

ЗАДАТЬ ВЫРАВНИВАНИЕ ТЕКСТА procedure SET-TEXT-ALIGNMENT (ALIGNMENT    ‘    :    in    TEXT-ALIGNMENT);

SET FILL AREA INDEX    Уровень    Oa

ЗАДАТЬ ИНДЕКС ПОЛИГОНАЛЬНОЙ ОБЛАСТИ procedure SET_FILL_AREA_INDEX (INDEX    : in FILL-AREA-INDEX);

Страница 62

ГОСТ Р 34.1702.3-М С. 59

SET FILL AREA INTERIOR STYLE    Уровень    Оа

ЗАДАТЬ ВИД ЗАПОЛНЕНИЯ ПОЛИГОНАЛЬНОЙ ОБЛАСТИ procedure SET.FILL.AREA-INTERIOR-STYLE (INTERIOR    : in    INTER IOR-STYLF.}.

SET FILL AREA STYLE INDEX    Уровень    Oa

ЗАДАТЬ ИНДЕКС ЗАПОЛНЕНИЯ ПОЛИГОНАЛЬНОЙ ОБЛАСТИ

procedure SET. FILL_AREA_STYLE_INDEX (STYLE    : in    STYLE-INDEX);

SET FILL AREA COLOUR INDEX    Уровень    Oa

ЗАДАТЬ ИНДЕКС ЦВЕТА ПОЛИГОНАЛЬНОЙ ОБЛАСТИ procedure SET-FILL_AREA_COLOUR-INDEX (FILL_AREA-COLOUR    : in    COLOUR-INDEX);

SET PATTERN SIZE ЗАДАТЬ РАЗМЕР ШАБЛОНА procedure SET-PATTERN-SIZE

Уровень Oa

: in WC. SIZE);

(SIZE

SET PATTERN REFERENCE POINT    Уровень Oa

ЗАДАТЬ ТОЧКУ ПРИВЯЗКИ ШАБЛОНА

procedure SET_PATTERN_REFERENCE-POINT (POINT    : in WC. POINT);

SET ASPECTSOURCE FLAGS    Уровень Oa

ЗАДАТЬ ФЛАГИ ВЫБОРКИ АТРИБУТОВ procedure SET-ASF (ASF    : in^SF-LIST);

SET PICK IDENTIFIER ЗАДАТЬ ИДЕНТИФИКАТОР УКАЗАНИЯ procedure SET.PICK-ID (PICK    :    in    PICK-ID);

Уровень lb

SET POLYLINE REPRESENTATION    Уровень    la

ЗАДАТЬ ПРЕДСТАВЛЕНИЕ ЛОМАНОЙ

procedure SET-POLYL1NE-REPRESENTATION (WS    : in WS.ID;

INDEX    : in POLYLINE-INDEX;

TYPE-OF-LINE    . in LINETYPE;

Страница 63

С 00 ГОСТ Р 34.1702-3-92

WIDTH    :    in LINEWIDTH;

LINE-COLOUR    :    in COLOUR-INDEX);

SET POLYMARKER REPRESENTATION    Уровень    la

ЗАДАТЬ ПРЕДСТАВЛЕНИЕ ПОЛИМАРКЕРА

procedure SET-POLYMARKER-REPRESENTATION <WS    :    in WS-1D;

INDEX    :    in POLYMARKER-INDEX;

TYPE.OF .MARKER    :    in MARKER-TYPE;

SIZE    :    in MARKF-R-SIZE;

MARKER-COLOUR    : in COLOUR-INDEX);

SET TEXT REPRESENTATION    Уровень    la

ЗАДАТЬ ПРЕДСТАВЛЕНИЕ ТЕКСТА procedure SET-TEXT-REPRESENTATlON (WS    :    in WS-ID;

INDEX    :    in TEXT-INDEX;

FONT-PRECISION    : in TEXT_FONT_PRECISION;

EXPANSION    :    in CHAR-EXPANSION;

SPACING    :    in CHAR-SPACING;

TEXT-COLOUR    . : in COLOUR-INDEX);

SET FILL AREA REPRESENTATION    Уровень    la

ЗАДАТЬ ПРЕДСТАВЛЕНИЕ ПОЛИГОНАЛЬНОЙ ОБЛАСТИ procedure SET-FILL.AREA-REPRESENTATION (WS    :    in WS-ID;

INDEX    :    in FILL-AREA-INDEX;

INTERIOR    :    in INTERIOR-STYLE;

STYLE    ;    in STYLE.INDEX;

FILL .AREA. COLOUR    :    in COLOUR-IN&EX);

SET PATTERN REPRESENTATION    Уровень    la

ЗАДАТЬ ПРЕДСТАВЛЕНИЕ ШАБЛОНА procedure SET-PATTERN-REPRESENTATION (WS    :    in WS-ID;

INDEX    :    in PATTERN-INDEX;

PATTERN    •    :    in    COLOUR.MATRIX);

SET COLOUR REPRESENTATION    Уровень    0a

ЗАДАТЬ ПРЕДСТАВЛЕНИЕ ЦВЕТА

procedure SET-COLOUR-REPRESENTATION (WS    : in WS-ID);

Страница 64

ГОСТ Р 34.1702.3-92 С. 61

in COLOUR INDEX;

: in COl.OUR-REPRESEN-

INDEX

RGB-COI-OUR

TATION).

SET WINDOW ЗАДАТЬ ОКНО

procedure SET-WINDOW (TRANSFORMATION

WINDOW-LIMITS

SET VIEWPORT ЗАДАТЬ ПОЛЕ ВЫВОДА procedure SET-V1EWPORT (TRANSFORMATION

VIEWPORT.LIMITS

Уровень 0a

: in POS1T1VE-TRANSFORMA-TION-NUMBER; in WC. RECTANGLE-L1MITS);

Уровень 0a

: in POSITIVE-TRANSFOR-

MATION-NUMBER; in NDC. RECTANGLE. '

-LIMITS);


SET VIEWPORT INPUT PRIORITY    Уровень    Ob

ЗАДАТЬ ПРИОРИТЕТ ПОЛЯ ВЫВОДА ПРИ ВВОДЕ procedure SETJV1EWPORT JNPUT-PRIORITY (TRANSFORMATION : in TRANSFORMATION.

-NUMBER;

REFERENCE-    :    in TRANSFORMATION-

-TRANSFORMATION    -NUMBER;

PRIORITY    .    in RELATIVE PRIORITY);

SELECT NORMALIZATION    Уровень    0a

TRANSFORMATION

ВЫБРАТЬ ПРЕОБРАЗОВАНИЕ НОРМИРОВАНИЯ

procedure SELECT-NORMALIZATION .TRANSFORMATION (TRANSFORMATION    :    in TRANSFORMATION-

-NUMBER;

SET CLIPPING INDICATOR    Уровень    Oa

ЗАДАТЬ ИНДИКАТОР ОТСЕЧЕНИЯ procedure SET-CLIPPING-INDICATOR (CLIPPING    :    in CLIPPING-INDICATOR);

SET WORKSTATION W1NDOU ЗАДАТЬ ОКНО СТАНЦИИ procedure SET-WS-WINDOW

Уровень 0a

Страница 65

С. 62 ГОСТ Р 34.1702.3-92

(WS    : in WS-ID;

WS-WINDOW-LIMITS    : in NDC.RECTANGLE-LIMITS);

SET WORKSTATION VIEWPORT

Уровень 0a

ЗАДАТЬ ПОЛЕ ВЫВОДА СТАНЦИИ

procedure SET_WS_VJEWPORT

(WS : in WS^ID;

WS-VIEWPORT-LIMITS : in DC. RECTANGLE-LIM1TS);

CREATE SEGMENT

Уровень la

СОЗДАТЬ СЕГМЕНТ

procedure CREATE-SEGMENT

(SEGMENT : in SEGMENT-NAME);

CLOSE SEGMENT

Уровень la

ЗАКРЫТЬ СЕГМЕНТ

procedure CLOUSE-SEGMENT;

RENAME SEGMENT

Уровень la

ПЕРЕИМЕНОВАТЬ СЕГМЕНТ

procedure RENAME-SEGMENT

(OLD-NAME : in SEGMENT-NAME;

NEW-NAME : in SEGMENT-NAME);

DELETE SEGMENT

Уровень la

УНИЧТОЖИТЬ СЕГМЕНТ

procedure DELETE-SEGMENT

(SEGMENT : in SEGMENT-NAME);

DELETE SEGMENT FROM

Уровень la

WORKSTATION

УДАЛИТЬ СЕГМЕНТ СО СТАНЦИИ

procedure DELETE_SEGMENT_FROM_WS

(WS : in WS-ID;

SEGMENT : in SEGMENT-NAME);

ASSOCIATE SEGMENT WITH    Уровень    2a

WORKSTATION

СВЯЗАТЬ СЕГМЕНТ СО СТАНЦИЕЙ

procedure ASSOCIATE-SEGMENT-W1TH-WS (WS    : in WS ID;

SEGMENT    : in SEGMENT-NAME);

Страница 66

ГОСГ Р 34.1702.3—»2 С. 63

COPY SEGMENT ТО WORKSTATION Уровень 2а

ВЫВЕСТИ КОПИЮ СЕГМЕНТА НА СТАНЦИЮ

procedure COPY-SEGMENT-TO-WS

(WS

in WS-ID:

SEGMENT

in SEGMENT-NAME);

INSERT SEG.MENT

Уровень 2a

ВСТАВИТЬ СЕГМЕНТ

procedure INSERT SEGMENT

(SEGMENT

in SEGMENT-NAME;

TRANSFORMATION

in TRANSFORMATION-

-MATRIX);

SET SEGMENT TRANSFORMATION Уровень la

ЗАДАТЬ ПРЕОБРАЗОВАНИЕ СЕГМЕНТА

procedure SET_SEGMENT_TRANSFORMATION

(SEGMENT

in SEGMENT-NAME;

TRANSFORMATION

in TRANSFORMATION-

-MATRIX);

SET VISIBILITY

Уровень la

ЗАДАТЬ ВИДИМОСТЬ

procedure SET-V1SIBILITY

(SEGMENT

: in SEGMENT-NAME;

VISIBILITY

in SEGMENT-VISIBILITY);

SET HIGHLIGHTING

Уровень la

ЗАДАТЬ ВЫДЕЛЕНИЕ

procedure SET-HIGHLIGHTING

(SEGMENT -:

: in SEGMENT-NAME;

HIGHLIGHTING

: in SEG.MENT-

-HIGHLIGHTING);

SET SEGMENT PRIORITY

Уровень la

ЗАДАТЬ ПРИОРИТЕТ СЕГМЕНТА

procedure SET.SEGMENT PRIORITY

(SEGMENT

: in SEGMENT-NAME;

PRIORITY

: in SEGMENT-PRIORITY);

SET DETECTABILITY    Уровень    lb

ЗАДАТЬ ЧУВСТВИТЕЛЬНОСТЬ К УКАЗАНИЮ procedure SET-DETECTABILITY

3 Зак 207

Страница 67

С м ГОСТ Р М. 1702.3—92

. (SEGMENT

: in SEGMENT-NAME;

DETECTABILITY

: in SEGMENT-DETECTA-

BILITY);

INITIALISE LOCATOR

Уровень Ob

ИНИЦИАЛИЗИРОВАТЬ УСТРОЙСТВО ПОЗИЦИИ

procedure INITIALISE-LOCATOR

(WS

. in WS-ID;

DEVICE

: in LOCATOR-DEVICE-

..NUMBER;

1NITIAL-TRANSFOR

: in TRANSFORMATION-

MATION

-NUMBER;

INITIAL-POSITION

: in WC. POINT;

ECHO-AREA

: in DC. RECTANGLE.LIMITS;

DATA-RECORD

: in LOCATOR-DATA-

-RECORD);

INITIALISE STROKE

Уровень Ob

ИНИЦИАЛИЗИРОВАТЬ

УСТРОЙСТВО ВВОДА

ПОСЛЕДОВАТЕЛЬНОСТИ ПОЗИЦИИ

procedure INITIALISE.STROKE

(WS

: in WS-ID;

DEVICE

: in STROKE-DEVICE-

-NUMBER;

INITIALS/TRANSFOR

: in TRANSFORMATJON-

MATION

-NUMBER;

INITIAUSTROKE

: in WC. POINT-ARRAY;

ECHO-AREA

: in DC. RECTANGLE .LIMITS;

DATA-RECORD

: in STROKE-DATA-RECORD);

INITIALISE VALUATOR

Уровень Ob

ИНИЦИАЛИЗИРОВАТЬ УСТРОЙСТВО ВВОДА ЧИСЛА

procedure INITIALISE-VALUATOR

(WS

: in WS-ID;

DEVICE

: In VALUATOR-DEVICE-

-NUMBER;

INITIAL-VALUE

: in VALUATOR-INPUT-

-VALUE;

ECHO-AREA

: in DC. RECTANGLE.LIMITS:

DATA-RECORD

: in VALUATOR-DATA-

-RECORD);

INITIALISE CHOICE    Уровень    Ob

ИНИЦИАЛИЗИРОВАТЬ УСТРОЙСТВО ВЫБОРА

Страница 68

ГОСТ Р 34.I702.3-W С К

procedure IN1T1AL1SE-CHOICE (WS    : in WS-ID;

DEVICE    : in CHOICE-DEVICE

-NUMBER;

INITIAL-STATUS

: in CHOICE-STATUS;

INITIAL-CHOICE

: in CHOICE-VALUE;

ECHO.AREA

in DC. RECTANGLE-LIMITS;

DATA-RECORD

: in CHOICE-DATA-RECORD);

INITIALISE PICK

Уровень lb

ИНИЦИАЛИЗИРОВАТЬ УСТРОЙСТВО УКАЗАНИЯ

procedure INITIALISE-PICK

(WS

: in WS-ID;

DEVICE

: in PICK-DEVICE-NUMBER;

INITIAL-STATUS

: in PICK-STATUS;

IN1TIAL_SEGMENT

: in SEGMENT-NAME;

IN1TIAL-PICK

; in PICK-ID;

ECHO-AREA

: in DC. RECTANGLE-LIMITS;

DATA-RECORD

: in PICK-DATA-RECORD);

INITIALISE STRING

Уровень Ob

ИНИЦИАЛИЗИРОВАТЬ УСТРОЙСТВО ВВОДА СТРОКИ

procedure INITIALIZE-STRING

(WS

: in WS-ID;

DEVICE

: in STRING-DEVICE-

-NUMBER;

INITIAL.STRING

- : in INPUT-STRING;

ECHO-AREA

: in DC. RECTANGLE-LIMITS;

DATA-RECORD

: in STRING-DATA-RECORD);

SET LOCATOR MODE

Уровень Ob

ЗАДАТЬ РЕЖИМ УСТРОЙСТВА ВВОДА ПОЗИЦИИ

procedure SET-LOCATOR-MODE

(WS

: in WS-ID;

DEVICE

: in LOCATOR_DEVICE_

-NUMBER;

MODE

: in OPERATING-MODE;

SWITCH

: in ECHO-SWITCH);

SET STROKE MODE    Уровень    Ob

ЗАДАТЬ РЕЖИМ УСТРОЙСТВА ПОСЛЕДОВАТЕЛЬНОСТИ ПОЗИЦИИ

procedure SET-STROKE-MODE

Страница 69

C. ee ГОСТ Р 34.1702.3-92

(WS    : in WS-1D;

DEVICE    : in STROKE-DEVICE-

-NUMBER;

MODE    : in OPERATION-MODE:

SWITCH    : in ECHO.SWITCH);

SET VALUATOR MODE    Уровень Ob

ЗАДАТЬ РЕЖИМ УСТРОЙСТВА ЧИСЛА .

.procedure SET-VALUATOR-MODE (WS    : in WS-1D;

DEVICE    : in VALUATOR-DEVICE-

-NUMBER;

MODE    : in OPERATING-MODE;

SWITCH    : in ECHO-SWITCH);

SET CHOICE MODE    Уровень Ob

ЗАДАТЬ РЕЖИМ УСТРОЙСТВА ВЫБОРА procedure SET.CHOICE.MODE (WS    : in WS-ID;

DEVICE    : in CHOICE-DEVICE-

-NUMBER;

MODE    : in OPERATING-MODE;

SWITCH    : in ECHO-SWITCH);

SET PICK MODE    Уровень lb

ЗАДАТЬ РЕЖИМ УСТРОЙСТВА УКАЗАНИЯ procedure SET-PICK-MODE (WS    : in WS.ID;

DEVICE    : in PICK-DEVICE-NUMBER;

MODE .    : in OPERATING^MODE;

SWITCH    : in ECHO-SWITCH);

SET STRING MODE    Уровень Ob

ЗАДАТЬ РЕЖИМ УСТРОЙСТВА ВВОДА СТРОКИ procedure SET-STRING-MODE (WS    : in WS-ID;

DEVICE    : in STRING-DEV1CE-

-NUMBER;

MODE    : in OPERATING-MODE;

SWITCH    : in ECHO-SWITCH);

REQUEST LOCATOR ЗАПРОСИТЬ ВВОД ПОЗИЦИИ procedure REQUEST-LOCATOR

Уровень Ob

Страница 70

ГОСТ P 34.1702.3-92 C. *7

<ws

In WS-ID;

DEVICE

in LOCATOR-DEVICE-

_NUMBER;

STATUS

out INPUT-STATUS;

TRANSFORMATION

out TRANSFORMATION-

DUMBER;

POSITION

outWC POINT);

REQUEST STROKE

Уровень Ob

ЗАПРОСИТЬ ВВОД ПОСЛЕДОВАТЕЛЬНОСТИ ПОЗИЦИИ

procedure REQUEST-STROKE

(WS

in WS.ID;

DEVICE

in STROKE-DEVICE-

-NUMBER;

STATUS

out INPUT-STATUS;

TRANSFORMATION

out TRANSFORMATION-

-NUMBER;

STROKE-.POINTS

out WC. POINT.LIST);

REQUEST VALUATOR

Уровень Ob

ЗАПРОСИТЬ ВВОД ЧИСЛА

procedure REQUEST-VALUATOR

(WS

in WS.ID;

DEVICE

in VALUATOR-DEVICE-

-NUMBER;

STATUS

out INPUT-STATUS;

VALUE

out VALUATOR-IN PUT-

-VALUE);

REQUEST CHOICE

Уровень Ob

ЗАПРОСИТЬ УСТРОЙСТВО ВЫБОРА

procedure REQUEST-CHOICE

(WS

in WS-ID;

DEVICE

in CHOICE-DEVICE-

-NUMBER;

STATUS

out CHOICE-REQUEST-

-STATUS;

CHOICE-NUMBER

out CHOICE-VALUE);

REQUEST PICK

Уровень lb

ЗАПРОСИТЬ УКАЗАНИЯ

procedure REQUEST-PICK

(WS

in WS.ID;

Страница 71

JC. 68 ГОСТ P 34.1702.3—92

DEVICE

in PICK-DEVICE-NUMBER;

STATUS

out PICK-REQUEST-STATUS;

SEGMENT

out SEGMENT NAME;

PICK

out PICK-ID);

REQUEST STRING

Уровень Ob

ЗАПРОСИТЬ ВВОД СТРОКИ

procedure REQUEST-STRING

(WS

in WS-ID;

DEVICE

in STR1NG-DEVICE-

-NUMBER;

STATUS

out INPUT-STATUS;

CHAR-STRING

out 1NPUT-STRING);

SAMPLE LOCATOR

Уровень Ос

ОПРОСИТЬ ВВОД ПОЗИЦИИ

procedure SAMPLE-LOCATOR

(WS

in WS-ID;

DEVICE

in LOCATOR-DEVICE-

-NUMBER;

TRANSFORMATION

out TRANSFORMATION-

-NUMBER;

POSITION

out WC. POINT);

SAMPLE STROKE

Уровень 0c

ОПРОСИТЬ ВВОД ПОСЛЕДОВАТЕЛЬНОСТИ ПОЗИЦИИ

procedure SAMPLE-STROKE

(WS

in WS-ID;

DEVICE

in STROKE-DEVICE.

- -NUMBER;

TRANSFORMATION

out TRANSFORMATION-

-NUMBER;

STROKE-POINTS

out WC. POINT-LIST);

SAMPLE VALUATOR    Уровень    Ос

ОПРОСИТЬ ВВОД ЧИСЛА

procedure SAMPLE-VALUATOR (WS    : in WS-ID;

DEVICE    : in VALUATOR-DEV1CE-

-NUMBER;

VALUE    : out VALUATOR-INPUT-

-VALUE);

Страница 72

ГОСТ Р 34.1702.3-92 С. 69

SAMPLE CHOICE    Уровень    Ос

ОПРОСИТЬ ВЫБОР

procedure SAMPLE-CHOICE (WS    : In WS-ID;

DEVICE    : in CHOICE-DEVICE-

-NUMBER

STATUS    : out CHOICE-STATUS;

CHOJCE-NUMBER    : out CHOJCE-VALUE);

SAMPLE PICK ОПРОСИТЬ УКАЗАНИЕ procedure SAMPLE-PICK (WS DEVICE STATUS SEGMENT PICK

Уровень lc

in WS.ID;

in PICK-DEVICE-NUMBER; out PICK-STATUS; out SEGMENT-NAME; out PICK-JD);


SAMPLE STRING ОПРОСИТЬ ВВОД СТРОКИ procedure SAMPLE-STRING (WS

DEVICE CHAR-STRING

AWAIT EVENT ОЖИДАТЬ СОБЫТИЕ procedure AWAIT~EVENT (TIMEOUT WS

CLASS

DEVICE

Уровень 0c

: in WS-ID;

: in STRING-DEVICE-

..NUMBER; : out INPUT-STRING);

Уровень 0c

: in DURATION;

: out WS-ID;

; out INPUT-CLASS;

: out EVENT-DEVICE-

-NUMBER-


FLUSH DEVICE EVENTS    Уровень    Oo

УДАЛИТЬ СОБЫТИЯ ОТ УСТРОЙСТВА procedure FLUSH-DEVICE-EVENTS (WS    : in WS-ID;

CLASS    : in INPUT-QUEUE-CLASS;

DEVICE    : in EVENT_OVERFLOW_

_DE VICE_NUMBER);

Страница 73

.С 70 ГОСТ Р 34.1702.3-02

GET LOCATOR ПОЛУЧИТЬ ПОЗИЦИЮ procedure GET-LOCATOR (TRANSFORMATION

POSITION

Уровень 0c

out TRANSFORMATION-

-NUMBER;

out WC. POINT);

GET STROKE Уровень 0c ПОЛУЧИТЬ ПОСЛЕДОВАТЕЛЬНОСТЬ ПОЗИЦИИ procedure GET-STROKE (TRANSFORMATION : out TRANSFORMATION-

-NUMBER;

STROKE-POINTS : out WC. POINT-LIST);

GET VALUATOR ПОЛУЧИТЬ ЧИСЛО

procedure GET.VALUATOR (VALUE

Уровень Ос

: out VALUATOR-INPUT-

-VALUE);

GET CHOICE

ПОЛУЧИТЬ АЛЬТЕРНАТИВУ procedure GET-CHOICE (STATUS

CHOICE-NUMBER

Уровень 0c

: out CHOICE-STATUS;

: out CHOICE-VALUE);

GET PICK

ПОЛУЧИТЬ УКАЗАТЕЛЬ procedure GET-PICK (STATUS SEGMENT PICK

Уровень Ic

: out PICK-STATUS;

: out SEGMENT-NAME:

: out PICK-ID);

GET STRING ПОЛУЧИТЬ СТРОКУ procedure GET-STRING (CHAR..STRING

Уровень 0c rout INPUT-STRING);

WRITE ITEM ТО GKSM    Уровень    0а

ЗАПИСЬ В МЕТАФАЙЛ

procedure WRITE-ITEM-TO-GKSM (WS    : in WS-ID;

ITEM    : In GKSM-DATA-RECORD);    .

Страница 74

ГОСТ р 34.17W.3~92 С И

GET ITEM TYPE FROM GKSM    Уровень    Oa

ПОЛУЧИТЬ ТИП ЗАПИСИ ИЗ ЯГС

procedure GET_ITEM_TYPE_FROM_GKSM (WS    : in WS.ID;

TYPE_OF ITEM    : out GKSM-ITEM-TYPE;

LENGTH    out    NATURAL);

READ ITEM FROM GKSM    Уровень    Oa

ПРОЧИТАТЬ ЗАПИСЬ ИЗ ЯГС

procedure READ-ITEM-FROM-GKSM (WS    : in WS-ID;

MAX ..LENGTH    : in NATURAL;

ITEM    : out GKSM-DATA-RECORD);

INTERPRET ITEM    Уровень    Oa

ИНТЕРПРЕТИРОВАТЬ ЗАПИСЬ procedure INTERPRET-1TEM (ITEM    : in GKSM-DATA-RECORD);

INQUIRE OPERATING STATE VALUE    *    Уровень    Oa

УЗНАТЬ ФУНКЦИОНАЛЬНОЕ СОСТОЯНИЕ procedure INQ-OPERATING-STATE-VALUE (VALUE    : out OPERATING-STATE);

INQUIRE LEVEL OF GKS    Уровень Oa

УЗНАТЬ УРОВЕНЬ ЯГС

procedure INQ-LEVEL-OF-GKS (ERROR-INDICATOR    : out ERROR-NUMBER;

LEVEL    : out GSK-LEVEL);

INQUIRE LIST OF AVAILABCE    Уровень Oa

WORKSTATION TYPES

УЗНАТЬ ДОСТУПНЫЕ ТИПЫ СТАНЦИЙ

procedure INQ_LIST_OF_AVAlLABLE_WS-TYPES (ERROR-INDICATOR    : out ERROR-NUMBER;

TYPES    : out WS.TYPES. LIST-OF);

INQUIRE WORKSTATION MAXIMUM    Уровень la

NUMBERS

УЗНАТЬ ДОПУСТИМЫЕ КОЛИЧЕСТВА СТАНЦИИ procedure INQ-WS..MAX-NUMBERS (ERROR-INDICATOR    : out ERROR-NUMBER;

MAX-OPEN-WS    : out POSITIVE;

Страница 75

С. 72 ГОСТ Р 34.1702.3-92

MAX-ACTIVE-WS    : out    POSITIVE;

MAX-SEGMENT-WS    : out    POSITIVE;

INQUIRE MAXIMUM NORMALIZATION    Уровень    0a

TRANSFORMATION NUMBER

УЗНАТЬ МАКСИМАЛЬНЫЙ НОМЕР ПРЕОБРАЗОВАНИЯ НОРМИРОВАНИЯ

procedure INQ-MAX-NORMALIZ AT ION-TR AN SFORMAT ION-

-NUMBER

(ERROR-IND1CATOR    : out ERROR-NUMBER;

TRANSFORMATION    : out TRANSFORMATION-

-NUMBER);

INQUIRE SET OF OPEN WORKSTATIONS    Уровень 0a

УЗНАТЬ НАБОР ОТКРЫТЫХ СТАНЦИЙ procedure 1NQ_SET_0F-0PEN_WS (ERROR-INDICATOR    : out ERROR-NUMBER;

WS    : out WS-IDS.LIST-OF);

INQUIRE SET OF ACTIVE    Уровень la

WORKSTATIONS

УЗНАТЬ НАБОР АКТИВНЫХ СТАНЦИЙ procedure INQ_SET_OF_ACTIVE_WS (ERROR-INDICATOR    : out ERROR-NUMBER;

WS    : out WS_IDS.LIST-OF);

INQUIRE CURRENT PRIMITIVE    Уровень 0a

ATTRIBUTE VALUES

УЗНАТЬ ТЕКУЩИЕ ЗНАЧЕНИЯ АТРИБУТОВ ПРИМИТИВОВ procedure 1NQ-CURRENT-PRIMIT1VE-ATTR1BUTE-VALUES (ERROR-INDICATOR    : out ERROR-NUMBER;

ATTRIBUTES    : out PRIM1TIVE-ATTRIBUTE-

-VALUES);

procedure INQ-POLYLINE.INDEX (ERROR-INDICATOR    : out ERROR-NUMBER;

INDEX    ; out POLYLINE-INDEX);

procedure INQ-POLYMARKER-INDEX (ERROR-INDICATOR    : out ERROR-NUMBER;

INDEX    : out POLYMARKER.INDEX);

procedure 1NQ-TEXT-INDEX (ERROR-INDICATOR    : out ERROR-NUMBER;

INDEX    : out TEXT-INDEX);

Страница 76

ГОСТ Р 34.1702.3-92 С. 7»

:    procedure INQ.CHAR-HEIGHT

(ERROR-INDICATOR    : out ERROR-NUMBER;

HEIGHT    : out WC. MAGNITUDE);

procedure INQ_CHAR_UP-VECTOR (ERROR-INDICATOR    : out ERROR-NUMBER;

VECTOR    : out WC. VECTOR);

procedure INQ. CHAR-WIDTH (ERROR. INDICATOR    : out ERROR-NUMBER:

WIDTH    : out WC. MAGNITUDE);

. procedure 1NQ-CHAR-BASE-VECTOR

(ERRQR-INDICATOR    : out ERROR-NUMBER;

VECTOR    : out WC. VECTOR);

procedure INQ-TEXT-PATH (ERROR-INDICATOR    : out ERROR-NUMBER;

PATH    : out TEXT-PATH);

procedure INQ-TEXT-ALIGNMENT (ERROR-INDICATOR    : out ERROR-NUMBER:

ALIGNMENT    : out TEXT-ALIGNMENT);

procedure INQ_FILL_AREA_INDEX (ERROR-INDICATOR    : out ERROR-NUMBER:

INDEX    : out FILL-AREA-INDEX);

procedure INQ-PATTERN-WIDTH-VECTOR :    (ERROR-INDICATOR    : out ERROR-NUMBER;

WIDTH    . out WC. VECTOR):

procedure INQ-PATTERN-HEIGTH-VECTOR (ERROR-INDICATOR    : out ERROR-NUMBER;

VECTOR    : out WC. VECTOR);

procedure INQ.PATTERN-REFERENCE-POINT (ERROR-INDICATOR    : out ERROR-NUMBER;

REFERENCE-POINT '    : out WC. POINT);

INQUIRE CURRENT PICK IDENTIFIER    Уровень lb.

VALUE

УЗНАТЬ ЗНАЧЕНИЕ ИДЕНТИФИКАТОРА УКАЗАНИЯ procedure 1NQ-CURRENT-PICK-ID.VALUE (ERROR-INDICATOR    : out ERROR-NUMBER;

PICK    : out PICK-ID);

INQUIRE CURRENT INDIVIDUAL    Уровень 0a

ATTRIBUTE VALUES

УЗНАТЬ ТЕКУЩИЕ ЗНАЧЕНИЯ ИНДИВИДУАЛЬНЫХ АТРИБУТОВ

Страница 77

74 ГОСТ Р 34.1702.3 —92

procedure INQ-CURRENT_INDIVIDUAL_ATTR1BUTE-

-VALUES

(ERROR-INDICATOR    : out ERROR-NUMBER;

ATTRIBUTES    : out INDIVIDUAL-ATTRIBUTE

-VALUES);

procedure INQ-LINETYPE (ERROR-INDICATOR    : out ERROR-NUMBER;

TYPE-OF-L1NE *    : out LINETYPE);

procedure INQ_LINEWIDTH_SCALE_FACTOR (ERROR-INDICATOR    : out ERROR-NUMBER;

WIDTH    : out LINEWIDTH);

procedure INQ-POLYLINE-COLOUR-INDEX (ERROR-INDICATOR    : out ERROR-NUMBER;

LINE-COLOUR    : out COLOUR-INDEX);

procedure INQJPOLYMARKER-TYPE (ERROR-INDICATOR    : out ERROR-NUMBER;

TYPE-OF-MARKER    : out MARKER-TYPE);

procedure INQ-POLYMARKER-SIZE-SCALE-FACTOR (ERROR-INDICATOR    : out ERROR-NUMBER;

SIZE    : out MARKER-SIZE);

procedure INQ-POLYMARKER-COLOUR-INDEX (ERROR-INDICATOR    : out ERROR-NUMBER;

MARKER-COLOUR    : out COLOUR-INDEX);

procedure INQ_TEXT_FONT_AND_PRECISION (ERROR-INDICATOR    : out ERROR-NUMBER;

FONT-PRECISION    : out TEXT-FONT-PRECISION);

procedure 1NQ_CHAR-EXPAN SION-FACTOR (ERROR-INDICATOR    : out ERROR-NUMBER;

EXPANSION    : out CHAR-EXPANSION);

procedure INQ-TEXT-COLOUR-INDEX (ERROR-INDICATOR    : out ERROR-NUMBER;

TEXT-COLOUR    : out COLOUR-INDEX)-;

procedure INQ-FILL-AREA-INTERIOR-STYLE (ERROR-INDICATOR    : out ERROR-NUMBER;

INTERIOR    : out INTERlOR-STYLE);

procedure INQ-FILL-AREA-STYLE-INDEX * (ERROR-INDICATOR    : out ERROR-NUMBER;

STYLE    : out STYLE-INDEX);

procedure INQ_FILL_AREA_COLOUR_INDEX    »

(ERROR-INDICATOR    : out ERROR-NUMBER;

FILL-AREA_COLOUR    : out COLOUR-INDEX);

Страница 78

ГОСТ Р 34.1702.3-92 С. 75

: procedure INQ-LIST-OF-ASF

(ERROR-INDICATOR    : out ERROR-NUMBER;

LIST    tout ASF. LIST);

INQUIRE CURRENT NORMALIZATION    Уровень 0a

TRANSFORMATION NUMBER

УЗНАТЬ НОМЕР ТЕКУЩЕГО ПРЕОБРАЗОВАНИЯ

НОРМИРОВАНИЯ

procedure INQ_CURRENT_NORMALIZATION.

..TRANSFORMATION-NUMBER (ERROR-INDICATOR    : out ERROR-NUMBER;

TRANSFORMATION    : out TRANSFORMATION-

-NUMBER);

INQUIRE LIST OF NORMALIZATION    Уровень 0a

TRANSFORMATION NUMBERS

УЗНАТЬ СПИСОК ПРЕОБРАЗОВАНИИ НОРМИРОВАНИЯ procedure INQ_LIST_OF_NORMALIZATION-

-TRANSFORMATION-NUMBERS (ERROR-INDICATOR    : out ERROR-NUMBER;

LIST    : out TRANSFORMATION-

-PRIOR1TY-LIST);

INQUIRE NORMALIZATION    Уровень 0a

TRANSFORMATION

УЗНАТЬ ПРЕОБРАЗОВАНИЯ НОРМИРОВАНИЯ

procedure !NQ_NQRMALIZATION..TRANSFORMATION (TRANSFORMATION : in TRANSFORMATION-

-NUMBER;

ERROR-INDICATOR    : out ERROR-NUMBER;

WINDOW-LIMITS    : out WC. RECTANGLE-LIMITS;

VIEWPORT-L1MITS    T out NDC. RECTANGLE-

-LIMITS);

INQUIRE CLIPPING    Уровень 0a

УЗНАТЬ ЗНАЧЕНИЯ ОТСЕЧЕНИЯ procedure INQ-CLIPPING

out ERROR-NUMBER: ■ -out CLIPPING-1NDICATOR; out NDC. RECTANGLE-

(ERROR-INDICATOR CLIPPING

CLIPPING-RECTANGLE

-LIMITS);

INQUIRE NAME OF OPEN SEGMENT -УЗНАТЬ ИМЯ ОТКРЫТОГО СЕГМЕНТА

Уровень la

Страница 79

С. 7в ГОСТ Р 34.1702^-92

procedure 1NQ-NAME-OF-OPEN-SEGMENT (ERROR-INDICATOR    : out ERROR-NUMBER;

SEGMENT    : out SEGMENT-NAME):

INQUIRE SET OF SEGMENT NAMES IN    Уровень la

USE

УЗНАТЬ ИМЕНА СУЩЕСТВУЮЩИХ СЕГМЕНТОВ procedure INQ_SET_OF_SEGMENT-NAMES-IN-USE (ERROR-INDICATOR    : out ERROR NUMBER;

SEGMENTS    : out SEGMENT -NAMES.

LIST-OF);

INQUIRE MORE SIMULTANEOUS    '    Уровень    0c

EVENTS

УЗНАТЬ НАЛИЧИЕ ОДНОВРЕМЕННЫХ СОБЫТИИ procedure INQ-MORE-SIMULTANEOUS-EVENTS (ERROR-INDICATOR    : out ERROR-NUMBER:

EVENTS    : out MORE-EVENTS);

INQUIRE WORKSTATION CONNECTION    Уровень 0a

AND TYPE

УЗНАТЬ ТИП И ИДЕНТИФИКАТОР СВЯЗИ СТАНЦИИ procedure INQ_WS-CONNECTION_AND_TYPE

in WS-ID;

(WS

ERROR-INDICATOR

CONNECTION

out ERROR-NUMBER; out VARIABLE..CONNECTION -ID;

TVPE-OF-WS    : out WS-TYPE);

INQUIRE WORKSTATION STATE    Уровень 0a

УЗНАТЬ СОСТОЯНИЕ СТАНЦИИ procedure INQ.WS.STATE (WS    :    in WS-ID;

ERROR-INDICATOR    : out ERROR-NUMBER;

STATE    : out WS-STATE);

INQUIRE WORKSTATION DEFERRAL AND    Уровень Oa

UPDATE STATES

УЗНАТЬ РЕЖИМЫ ЗАДЕРЖКИ И ОБНОВЛЕНИЯ СТАНЦИИ

procedure INQ_WS_DEFERRAL_AND-UPDATE_STATES (WS    :    in WS-ID;

ERROR-INDICATOR    ;    out ERROR-NUMBER;

Страница 80

DEFERRAL

REGENERATION

DISPLAY

FRAME-ACTION

ГОСТ P M.1702.3—#2 C. 77

out DEFERRAL-MODE; out REGENERATION-MODE; out DISPLAY-SURFACE-

-EMPTY;

out NEW-FRAME

NECESSARY);

INQUIRE LIST OF POLYLINE IN УЗНАТЬ ИНДЕКСЫ ЛОМАНОЙ procedure INQ_LIST_OF.POL^ (WS

ERROR-INDICATOR

INDICES

DICES Уровень la

'L1NE-INDICES in WS-ID;

out ERROR-NUMBER; , out POLYLINE-INDICES.

LIST-OF);

INQUIRE POLYLINE REPRESEN УЗНАТЬ ПРЕДСТАВЛЕНИЕ Л procedure INQ-POLYLINE-RE (WS INDEX

RETURNED-VALUES

ERROR-INDICATOR

TYPE-OF-LINE

WIDTH

LINE-COLOUR

TAT ION Уровень la ОМАНОИ PRESENTATION in WS-ID;

in POLYLINE-INDEX; in RETURN-VALUE-TYPE; out ERROR-NUMBER; out LINETYPE; out LINEWIDTH; out COLOUR-INDEX);

INQUIRE LIST OF POLYMARKE INDICES

УЗНАТЬ ИНДЕКСЫ ПОЛИМАР procedure INQ_LIST_OF_POL\ (WS v ERROR-INDICATOR INDICES

R Уровень la KEPA

MARKER-INDICES in WS-ID;

out ERROR-NUMBER; out POLYMARKER.INDICES.

LIST-OF);

INQUIRE POLYMARKER    Уровень    ia

REPRFSENTA HON

УЗНАТ- ПРЕДСТАВЛЕНИЕ ПОЛИМАРКЕРА procedure INQ-POLYMARKER-REPRESENTATION <WS    : in WS-ID;

INDEX    : in POLYMARKER-INDEX;

RETURNED-VALUES    : in RETURN-VALUE-TYPE;

ERROR-INDICATOR    : out ERROR-NUMBER;

Страница 81

С 78 ГОСТ P 34.1702.3-92

TYPE-OF-MARKER

: out MARKER-TYPE;

SIZE

. out MARKER-SIZE;

MARKER-COLOUR

: out COLOUR-INDEX);

INQUIRE LIST OF TEXT INDICES Уровень la

УЗНАТЬ ИНДЕКСЫ ТЕКСТА

-

procedure 1NQ-LIST-OF-TEXT-.1NDICES

(WS

: in WS-ID;

ERROR-INDICATOR

. out ERROR-NUMBER; *

INDICES

: out TEXT-1NDICES. LIST-OF);

INQUIRE TEXT REPRESENTATION Уровень la

УЗНАТЬ ПРЕДСТАВЛЕНИЕ ТЕКСТА

procedure INQ-TEXT-REPRESENTATION

(WS

in WS-ID;

INDEX

in TEXT-INDEX;

RETURNF.D-VALUES

in RETURN-VALUF_TYPE;

ERROR-INDICATOR

out ERROR-NUMBER;

FONT-PRECISION

out TEXT.FONT-PRECISION;

EXPANSION

out CHAR-EX PANS ION;

SPACING

out CHAR-SPACING;

TF.XT_COLOUR

out COLOUR-INDEX);

INQUIRE TEXT EXTENT

Уровень Oa

УЗНАТЬ ГАБАРИТЫ ТЕКСТА

procedure INQ-TEXT-EXTENT

(WS

in WS-ID;

POSITION

in WC. POINT;

CHAR_STRING

in STRING;

ERROR-INDICATOR

out ERROR-NUMBER;

CONCATENATION-

out WC. POINT; -

-POINT

TEXT-EXTENT :

out TEXT_EXTENT_

-PARALLELOGRAM);

INQUIRE LIST OF FILL AREA INDICES •    Уровень    la

УЗНАТЬ ИНДЕКСЫ ПОЛИГОНАЛЬНОЙ ОБЛАСТИ procedure INQ_LIST-:OF_FILL-AREA-INDICES (WS    : in WS-ID;

ERROR-INDICATOR    : out ERROR-NUMBER;

INDICES    : out FILL-AREA-INDICES.

LIST-OF);

Страница 82

ГОСТ Р 34.17(12.3—92    С. 7»

INQUIRE FILL AREA REPRESENTATION    Уровень    la

УЗНАТЬ ПРЕДСТАВЛЕНИЕ ПОЛИГОНАЛЬНОЙ ОБЛАСТИ

procedure INQ FILL-AREA-REPRESENTAT10N (WS    : in WS-ID;

INDEX    • in FILL-AREA-INDEX;

RETURNED-VALUES    : in RETURN-VALUE-TYPE; '

ERROR-INDICATOR    : out ERROR.NUMBER;

INTERIOR    ; out 1NTERIOR-STYLE;

STYLE    : out STYLE-INDEX;

FILL-AREA-COLOUR    : out COLOUR-INDEX);

(WS

INQUIRE LIST OF PATTERN INDICES УЗНАТЬ ИНДЕКСЫ ШАБЛОНА

procedure INQ-LIST.OF-PATTERN-INDICES

ERROR-INDICATOR

INDICES

Уровень la

in WS-ID; out ERROR-NUMBER; out PATTERN-INDICES.

LIST-OF);


INQUIRE PATTERN REPRESENTATION    Уровень    la

УЗНАТЬ ПРЕДСТАВЛЕНИЕ ШАБЛОНА

procedure INQ BATTERN-REPRESENTATION (WS    : in WS-ID;-

INDEX    ; in PATTERN-INDEX;

RETURNED-VALUES    : in RETURN_VALUE_TYPE;

ERROR-INDICATOR    ; out ERROR-NUMBER;

PATTERN    : out VARIABLE-COLOUR-

-MATRIX);

(WS

INQUIRE LIST OF COLOUR INDICES УЗНАТЬ ИНДЕКСЫ ЦВЕТА

procedure 1NQ-LIST-0F_C0L0UR_INDICES

ERROR-INDICATOR

INDICES

Уровень Oa

in WS-ID; out ERROR-NUMBER; out COLOUR-INDICES.

LIST-OF);


INQUIRE COLOUR REPRESENTATION    Уровень    Oa

УЗНАТЬ ПРЕДСТАВЛЕНИЕ ЦВЕТА

procedure INQXOLOUR.REPRESENTATION (WS    : in WS-ID;

INDEX    : in COLOUR-INDEX;

Страница 83

С. 80 ГОСТ Р 34.1702.3-92

RETURNED-VALUES

ERROR-INDICATOR

RGB-COLOUR

in RETURN-VALUE-TYPE; out ERROR-NUMBER; out COLOUR-

-REPRESENTATION);


(WS

INQUIRE WORKSTATION TRANSFORMATION

УЗНАТЬ ПРЕОБРАЗОВАНИЕ СТАНЦИИ procedure INQ-WS-TRANSFORMATION

ERROR-INDICATOR

UPDATE

REQUESTED-WINDOW

CURRENT-WINDOW

REQUESTED_VIEWPORT

CURRENT-VIEWPORT

Уровень 0a

in WS-1D;

out ERROR-NUMBER: out UPDATE-STATE; out NDC. RECTANGLE-

„LIMITS; out NDC. RECTANGLE-

-LIMITS;

out DC. RECTANGLE.LIMITS; out DC. RECTANGLE-

-LIMITS);


INQUIRE SET OF SEGMENT NAMES ON    Уровень    la

WORKSTATION

УЗНАТЬ ИМЕНА СЕГМЕНТОВ. ХРАНИМЫ*

НА СТАНЦИИ

procedure INQ-SET_OF_SEGMENT_NAMES_ON_WS

In WS-ID; out ERROR-NUMBER; out SEGMENT-NAMES.

(WS

ERROR-INDICATOR

SEGMENTS

LIST-OF);

(WS DEVICE

INQUIRE LOCATOR DEVICE STATE    * Уровень Ob

УЗНАТЬ СОСТОЯНИЕ УСТРОЙСТВА ВВОДА ПОЗИЦИИ procedure INQ-LOCATORJDEV1CE-STATE


RETURNED-VALUES

ERROR-INDICATOR

MODE

SWITCH

INITIAL-TRANSFOR-

MATION

INITIAL.POSITION

in WS-ID; in LOCATOR-DEVICE-

-NUMBER; in RETURN-VALUE-TYPE; out ERROR-NUMBER; out OPERATING-MODE; out ECHO-SWITCH; out TRANSFORMATION-

-NUMBER;

out WC. POINT;


Страница 84

ГОСТ P 34.1702.3—92 C. 81

ECHO. AREA

: out DC.RECTANGLE-

-LIMITS;

DATA_RECORD

: out LOCATOR. DATA.

-RECORD);

INQUIRE STROKE DEVICE STATE Уровень Ob

УЗНАТЬ СОСТОЯНИЕ УСТРОЙСТВА ВВОДА

ПОСЛЕДОВАТЕЛЬНОСТИ ПОЗИЦИЙ

procedure INQ-STROKE-DEVICE-STATE

(WS

: in WS-ID;

DEVICE

: in STROKE-DEVICE-

-NUMBER;

RETURNED-VALUES

: in RETURN-VALUE_TYPE;

ERROR.INDICATOR

: out ERROR-NUMBF.R;

MODE

: out OPERATING-MODE;

SWITCH

: out ECHO. SWITCH;

INITIAL-TRANSFOR-

; out TRANSFORMATION-

MATION

-NUMBER;

1NITIAL-STROKE-

: out WC. POINT-L1ST;

-POINTS

ECHO_AREA

: out DC RECTANGLE-LIMITS;

DATA-RECORD

: out STROKE-DATA-RECORD);

INQUIRE VALUATOR DEVICE STATE Уровень Ob

УЗНАТЬ СОСТОЯНИЕ УСТРОЙСТВА ВВОДА ЧИСЛА

procedure INQ_VALUATOR-DEVICE-STATE

(WS

: in WS-ID;

DEVICE

: in VALUATOR-DEVICE-

-NUMBER;

ERROR-INDICATOR

: out ERROR-NUMBER;

MODE

out OPERATING_MODE;

SWITCH

rout ECHO.SWITCH;

INITIAL-VALUE

: out VALUATOR-INPUT-

-VALUE;

ECHO.AREA

: out DC.RECTANGLE-LIMITS;

DATA-RECORD

: out VALUATOR-DATA-

-RECORD);

INQUIRE CHOICE DEVICE STATE    Уровень    Ob

УЗНАТЬ СОСТОЯНИЕ УСТРОЙСТВА ВЫБОРА procedure INQ-CHOICE-DEVICE-STATE (WS    : in WS-ID;

DEVICE    : in CHOICE-DEVICE-

-NUMBER;

Страница 85

С. 82 ГОСТ P 34.1702.3-92

ERROR-INDICATOR

: out ERROR-NUMBER;

MODE

: out OPERATING-MODE;

SWITCH

: out ECHO-SWITCH;

INITIAL-STATUS

: out CHOICF-STATUS;

INITIAL-CHOICE

: out CHOICE-VALUE;

ECHO-AREA

: out DC.RECTANGLE-

-LIMITS;

DATA-RECORD

: out CHOICE-DATA-RECORD);

INQUIRE PICK DEVICE STATE

Уровень lb

.УЗНАТЬ СОСТОЯНИЕ УСТРОЙСТВА УКАЗАНИЯ

procedure INQ_PICK-DEVICE_STATE

(WS

in WS-ID;

DEVICE

: in PICK-DEVICE-NUMBER;

RETURNED-VALUES

in RETURN-VALUE-TYPE;

ERROR-INDICATOR

: out ERROR-NUMBER;

MODE

: out OPERATING-MODE;

SWITCH

: out ECHO_SWITCH;

INITIAL-STATUS

: out PICK-STATUS;

INITIAL-SEGMENT

: out SEGMENT-NAME;

INITIAL-PICK

: out PICK-ID;

ECHO-AREA

: out DC.RECTANGLE.LIMITS;

DATA-RECORD

: out PICK-DATA-RECORD);

INQUIRE STRING DEVICE STATE Уровень Ob

УЗНАТЬ СОСТОЯНИЕ УСТРОЙСТВА ВВОДА СТРОКИ

procedure INQ-STRING.DEVICE-STATE

(WS

: in WS-ID;

DEVICE

: in STRING-DEVICE-

„ -NUMBER;

ERROR-INDICATOR

: out ERROR-NUMBER;

MODE

: out OPERATING-MODE;

SWITCH

. out ECHO-SWITCH;

1NIT1AL-STRING

: out INPUT-STRING;

ECHO-AREA

: out DC.RECTANGLE.LIMITS;

DATA-RECORD

: out STRING-DATA-RECORD);

INQUIRE WORKSTATION -CATEGORY    Уровень    Oa

.•УЗНАТЬ КАТЕГОРИЮ СТАНЦИИ procedure INQ-WS-CATEGORY (TYPE-OF-WS    : in WS-TYPE;

ERROR-INDICATOR    : out ERROR-NUMBER;

CATEGORY    : out WS-CATEGORY);

Страница 86

ГОСТ Р 34.1702.3-92 .С 83

INQUIRE WORKSTATION -CLASSIFICATION УЗНАТЬ КЛАСС СТАНЦИИ

procedure lNQ_WS_CLASSIFICATION

Уровень 0а

(TYPE-OF-WS ERROR.INDICATOR CLASS

in WS-TYPE;

out ERROR-NUMBER;

out DISPLAY-CLASS);

INQUIRE DISPLAY SPACE SIZE УЗНАТЬ РАЗМЕР НОСИТЕЛЯ ИЗОБРАЖЕНИЯ procedure INQ-DISPLAY-SPACE-SIZE (TYPE-OF-WS    : in WS-TYPE;

ERROR-INDICATOR    : out ERROR-NUMBER;

UNITS    : out DC-UNITS;

МАХ-DC .SIZE    : out DC.SIZE;

MAX.RASTER UNIT. : out RASTER’-UNIT-SIZE); -SIZE

Уровень 0a

INQUIRE DYNAMIC MODIFICATION OF    Уровень    la

WORKSTATION-ATTR1BUTES

УЗНАТЬ СПОСОБ ДИНАМИЧЕСКОГО ОБНОВЛЕНИЯ ХАРАКТЕРИСТИК ИЗОБРАЖЕНИЯ НА СТАНЦИИ procedure INQ_DYNAMlC_MODIFICATlON_OF-WS_

-ATTRIBUTES

(TYPE-OF-WS ERROR INDICATOR POLYLINE--REPRESENTATION POLYMARKER--REPRESENTATION TEXT-REPRESEN-TATION FILL_AREA_REPRESEN-.TATION

PATTERN-REPRESEN-

TATION

COLOUR-REPRESEN-

TATION

TRANSFORMATION : in WS-TYPE;

: out ERROR-NUMBER;

: out DYNAMIC-

-MODIFICATION : out DYNAMIC-

-MODIFICATION : out DYNAMIC-

-MODIFICATION : out DYNAMIC-

-MODIFICATION : out DYNAMIC-

-MODIFICATION : out DYNAMIC-

-MODIFICATION : out DYNAMIC-

.MODIFICATION)


Страница 87

С. 84 ГОСТ Р 34.1702.3-92

INQUIRE DEFAULT DEFERRAL STATE    Уровень    la

VALUES

УЗНАТЬ РЕЖИМ ЗАДЕРЖКИ ПО УМОЛЧАНИЮ

procedure INQ-DEFAULT-DEFERRAL-STATE-VALUES (TYPE-OF-WS    : in    WS-TYPE;

ERROR-INDICATOR    . out    ERROR-NUMBER:

DEFERRAL    : out    DEFERRAL-MODE;

REGENERATION    : out    REGENERATION-MODE);

INQUIRE POLYLINE FACILITIES    Уровень    0a

УЗНАТЬ ВОЗМОЖНОСТИ ПРЕДСТАВЛЕНИЯ ЛОМАНОЙ procedure INQ-POLYLINE-FACILITIES

(TYPE-OF-WS ERROR-INDICATOR L1ST-OF-TYPES NUMBER-OF-WIDTHS NOM1NAL-WIDTH RANGE-OF-WIDTHS

NUMBER-OF-INDICES in WS-TYPE;

out ERROR-N UMBER;

out LINETYPES.LIST-OF;

out NATURAL;

out DC.MAGNITUDE;

out DC-RANGE-OF-

. MAGNITUDES; : out NATURAL);


INQUIRE PREDEFINED POLYLINE    Уровень    0a

REPRESENTATION

УЗНАТЬ ПРЕДСТАВЛЕНИЕ ЛОМАНОЙ ПО УМОЛЧАНИЮ procedure lNQ-PREDEFINED_POLYLINE_REPRESENTATION

(TYPE_OF_WS INDEX

ERROR INDICATOR

TYPE-OF-LINE

WIDTH

LINE-COLOUR in WS-TYPE; in POLYLINE-INDEX; out ERROR-NUMBER; out LINETYPE; out LINEWIDTH; out COLOUR-INDEX);


(TYPE-OF-WS ERROR-INDICATOR LIST-OF-TYPES NUMBER-OF-SIZES NOMINAL-SIZE

Уровень 0a

INQUIRE POLYMARKER FACILITIES УЗНАТЬ ВОЗМОЖНОСТИ ПРЕДСТАВЛЕНИЯ ПОЛИМАРКЕРА

procedure INQ-POLYMARKER-FACILITIES

in WS-TYPE;

out ERROR-NUMBER;

out MARKER-TYPES L1ST-OF;.

out NATURAL;

out DC.MAGNITUDE;


Страница 88

ГОСТ Р 34.1702.3-92 С. S5

RANGE-OF-SIZES

NUMBER-OF..INDICES : out DC RANGE-OF-

-MAGNITUDES; : out NATURAL);


INQUIRE PREDEFINED POLYMARKER    Уровень    0a

REPRESENTATION

УЗНАТЬ ПРЕДСТАВЛЕНИЕ ПОЛИМАРКЕРА ПО УМОЛЧАНИЮ

procedure INQ_PREDEFINED_POLYMARKER-

-REPRESENTATION

(TYPE-OF-WS

INDEX

ERROR-INDICATOR

TYPE-OF-MARKER

SIZE

MARKER-COLOUR in WS-TYPE; in POLYMARKER-INDEX; out ERROR-NUMBER; out MARKER_TYPE; out MARKER-SIZE; out COLOUR-INDEX),


(TYPE-OF-WS ERROR-INDICATOR LIST-OF-FONT--PRECISION-PAIRS NUMBER-OF-HEIGTS RANGE-OF-HEIGTS

INQUIRE TEXT FACILITIES    Уровень    0a

УЗНАТЬ ВОЗМОЖНОСТИ ПРЕДСТАВЛЕНИЯ ТЕКСТА procedure INQ-TEXT-FACILITIES


NUMBER_OF_

-EXPANSIONS

EXPANSION-RANGE

NUMBER-OF-INDICES

in WS-TYPE;

: out ERROR-NUMBER;

: out TEX-FONT-PRECISIONS.

LIST-OF;

: out NATURAL;

: out DC.RANGE-OF-

-MAGNITUDES;

: out NATURAL;

: out RANGE-OF-EXPANSIONS; ' out NATURAL);


INQUIRE PREDEFINED TEXT    Уровень    0a

REPRESENTATION

.УЗНАТЬ ПРЕДСТАВЛЕНИЕ ТЕКСТА ПО УМОЛЧАНИЮ procedure INQ-PREDEFINED-TEXT-REPRESENTATION (TYPE-OF_WS    : in WS-TYPE;

INDEX    : in TEXT-1NDEX;

ERROR-INDICATOR    : out ERROR-NUMBF.R;

FONT-PRECISION    : out TEXT_FONT_PRECISION;

EXPANSION    : out CHAR-EXPANSION;

SPACING    : out CHAR-SPACING;

TEXT-COLOUR    : out COLOUR-INDEX;

Страница 89

С. 8в ГОСТ Р 34.17*2^—92

INQUIRE FILL AREA FACILITIE УЗНАТЬ ВОЗМОЖНОСТИ nPEJ ПОЛИГОНАЛЬНОЙ ОБЛАСТИ procedure INQ-FILL-AREA-F/ (TYPE-OF-WS ERROR. INDICATOR LIST OF. INTERIOR--STYLES L1ST-OF-HATCH -STYLES

NUMBER-OF-INDICES

S Уровень Oa. 1СТАВЛЕНИЯ

ICILITIES in WS-TYPE; out ERROR-NUMBER; out INTERIOR-STYbES.

LIST-OF;

out HATCH-STYLES.LIST-OF; out NATURAL);

INQUIRE PREDEFINED FILL AR REPRESENTATION УЗНАТЬ ПРЕДСТАВЛЕНИЕ ПС ПО УМОЛЧАНИЮ

procedure 1NQ-PREDEFINED-

(TYPE-OF-WS INDEX . ERROR-INDICATOR INTERIOR STYLE

FILL-AREA-COLOUR

EA Уровень Oa )ЛИГОНАЛЬНОИ ОБЛАСТИ

FILL AREA-

-REPRESENTATION in WS-TYPE; in F1LL-AREA-INDEX; out ERROR-NUMBER; out INTERIOR-STYLE; out STYLE-INDEX; out COLOUR-INDEX);

INQUIRE PATTERN FACILITIES УЗНАТЬ ВОЗМОЖНОСТИ ПРЕ procedure 1NQ-PATTERN-FAC (TYPE-OF-WS ERROR-INDICATOR NUMBER-OF-INDICES

Уровень Oa ДСТАВЛЕНИЯ ШАБЛОНА IL1TIES in WS-TYPE; -out ERROR-NUMBER; out NATURAL);

INQUIRE PREDEFINED PATTERN    Уровень    Оа

REPRESENTATION    V

УЗНАТЬ ПРЕДСТАВЛЕНИЕ ШАБЛОНА ПО УМОЛЧАНИЮ procedure 1NQ PREDEFINED..PATTERNJREPRESENTATION (TYPE-OF-WS    : in WS-TYPE;

INDEX    : in PATTERN-INDEX;

ERROR-INDICATOR    : out ERROR-NUMBER;

PATTERN    : out VARIABLE-COLOUR-

-MATRIX);

Страница 90

ГОСТ I* 34.t7e2.3-9t С. 87

INQUIRE COLOUR FACILITIES УЗНАТЬ ВОЗМОЖНОСТИ ПРЕ procedure INQ-COLOUR-FACI (TYPE-OF-WS ERROR-INDICATOR NUMBER-OF-COLOURS AVAILABLE-COLOUR N UMBER-OF-COLOUR--INDICES

Уровень Oa ЦСТАВЛЕНИЯ ЦВЕТА LITIES in WS-TYPE; out ERROR-NUMBER; out NATURAL; out COLOUR-AVAILABLE; out NATURAL);

INQUIRE PREDEFINED COLOU REPRESENTATION УЗНАТЬ ПРЕДСТАВЛЕНИЕ ЦВ procedure INQ_PREDEFINED_ (TYPE-OF-WS INDEX

ERROR_INDICATOR

RGB-COLOUR

^ Уровень Oa

ETA ПО УМОЛЧАНИЮ COLOUR-REPRESENTATION in WS-TYPE; in COLOUR-INDEX; out ERROR-NUMBER; out COLOUR-REPRESENTATION);

INQUIRE LIST OF AVAILABLE Уровень Oa GENERALIZED DRAWING PRIMITIVES УЗНАТЬ ИДЕНТИФИКАТОРЫ ДОСТУПНЫХ ОБОБЩЕННЫХ ПРИМИТИВОВ ВЫВОДА procedure INQ-LIST-OF-AVAILABLE-GDP (TYPE-OF-WS : in WS-TYPE; ERROR-INDICATOR : out ERROR-NUMBER; LIST-OF-GDP : out GDP-IDS.LIST-OF);

Уровень Oa

INQUIRE GENERALIZED DRAWING PRIMITIVE

УЗНАТЬ ХАРАКТЕРИСТИКИ ОБОБЩЕННОГО ПРИМИТИВА ВЫВОДА procedure INQ-GDP (TYPE-OF-WS GDP

in WS-TYPE; in GDP1ID; out ERROR-NUMBER. out ATTR1BUTES-USED.

. LIST-OF);

ERROR-INDICATOR LISTOF-ATTRIBUTES--USED

Страница 91

С. 88 ГОСТ Р 34.1702.3-92

INQUIRE MAXIMUM LENGTH OF Уровень 0a

WORKSTATION STATE TABLES

УЗНАТЬ ДЛИНУ ТАБЛИЦ. ХАРАКТЕРИЗУЮЩИХ

СТАНЦИЮ

procedure 1NQ-MAX-LENGTH_OF- \VS_STATE_TABLES

(TYPE-OF.WS

in WS.TYPE;

ERROR- INDICATOR

out ERROR-NUMBER;

MAX-POLYL1NE-

out NATURAL;

-ENTRIES

MAX-POLYMARKER-

out NATURAL;

-ENTRIES

MAX-TEXT-ENTRIES

out NATURAL;

MAX-FILL-AREA-

out NATURAL;

-ENTRIES

MAX.PATTERN.

out NATURAL;

-INDICES

MAX-COLOUR-INDICES

out NATURAL);

INQUIRE NUMBER OF SEGMENT Уровень la

PRIORITIES SUPPORTED

УЗНАТЬ ДОПУСТИМОЕ ЧИСЛО ПРИОРИТЕТОВ

СЕГМЕНТОВ

procedure INQ_NUMBER_OF_SEGMENT_PRIORlTIES-

-SUPPORTED

(TYPE-OF-WS

in WS-TYPE;

ERROR-INDICATOR

out ERROR-NUMBER;

NUMBER-OF-

out NATURAL);

-PRIORITIES

INQUIRE DYNAMIC MODIFICATION OF    Уровень    la

SEGMENT ATTRIBUTES

УЗНАТЬ СПОСОБ ДИНАМИЧЕСКОИ МОДИФИКАЦИИ АТРИБУТОВ СЕГМЕНТОВ

procedure INQ_DYNAMIC_MODIFICATION_OF_SEGMENT-

-ATTRIBUTES

(TYPE-OF.WS

ERROR-INDICATOR

TRANSFORMATION

VISIBLE-TO-1NVISIBLE

INVISIBLE-TO-

-VISIBLE : in WS..TYPE;

: out ERROR-NUMBER;

: out DYNAMIC.

-MODIFICATION ; out DYNAMIC-

-MODIFICATION : out DYNAMIC-

-M0D1F1CAT10N


Страница 92

ГОСТ P 34.1702.3-92 C. 89

HIGHLIGHTING

: out DYNAMIC-

-MODIFICATION;

PRIORITY

rout DYNAMIC.

..MODIFICATION;

ADDING-PRIMITIVES

: out DYNAMIC-

-MODIFICATION;

DELETION-VISIBLE

rout DYNAMIC-

-MODIFICATION);

INQUIRE NUMBER OF AVAILABLE Уровень Ob

LOGICAL INPUT DEVICES

УЗНАТЬ ЧИСЛО ДОПУСТИМЫХ УСТРОЙСТВ ВВОДА

procedure INQ-NUMBER_OF_AVAILABLE_LOGlCAL_

-INPUT-DEVICES

(TYPE-OF-WS

: in WS-TYPE;

ERROR-INDICATOR

: out ERROR-NUMBER:

LOCATOR

: out NATURAL;

STROKE

: out NATURAL;

VALUATOR

: out NATURAL;

CHOICE

: out NATURAL;

PICK

r out NATURAL;

STRING

: out NATURAL);

INQUIRE DEFAULT LOCATOR DEVICE Уровень Ob

DATA

УЗНАТЬ ХАРАКТЕРИСТИКИ ПО УМОЛЧАНИЮ

УСТРОЙСТВА ВВОДА ПОЗИЦИИ

procedure INQ_DEFAULT_L0CAT0R^DEVICE_DATA

(ТУРЕ-OF-WS

: in WS-TYPE;

DEVICE

: in LOCATOR-DEVICE-

-NUMBER;

ERROR-INDICATOR *

: out ERROR-NUMBER;

INITIAL-POSITION

: out WC.POINT;

LIS T_OF_ P ROM PT -

. out LOCATOR-PROMPT-

-FCHO-TYPES

-ECHO-TYPES.L1ST-OF;

ECHO-AREA

: out DC.RECTANGLE.LIMITS;

DATA-RECORD

: out LOCATOR -DATA-

-RECORD);

INQUIRE DEFAULT STROKE DEVICE    Уровень    Ob

DATA

УЗНАТЬ ХАРАКТЕРИСТИКИ ПО УМОЛЧАНИЮ УСТРОЙСТВА ВВОДА ПОСЛЕДОВАТЕЛЬНОСТИ

позиции    ;

Страница 93

С. 90 ГОСТ Р М. 1702.3 —92

procedure 1NQ.DEFAULT. (TYPE-OFJWS DEVICE

ERROR-IND1CATOR MAX-BUFFER-SIZE LlST_OF_PROMPT_ -ECHO-TYPES ECHO AREA DATA-RECORD

STROKE-DEVICE-DATA : in WS-TYPE;

: in STROKE-DEV1CE-

-NUMBER; : out ERROR-NUMBER;

: out NATURAL;

: out STROKE PROMPT_ECHO_ -TYPES.LIST-OF, : out DC.RECTANGLE-LIMITS;

: out STROKE-DATA-RECORD);


(TYPE-OF-WS DEVICE

INQUIRE DEFAULT VALUATOR DEVICE    Уровень    Ob

DATA

УЗНАТЬ ХАРАКТЕРИСТИКИ ПО УМОЛЧАНИЮ УСТРОЙСТВА ВВОДА ЧИСЛА

procedure INQ_DEFAULT_VALUATOR_DEVlCE-DATA


ERROR-IND1CATOR

IN1TIAL-VALUE

LIST-OF-PROMPT-

-ECHO-TYPES

ECHO.AREA

DATA-RECORD : in WS-TYPE;

: in VALUATOR-DEVICE-

-NUMBER;

: out ERROR-NUMBER;

: out VALUATOR-INPUT-

-VALUE; : out VALUATOR-PROMPT-

-ECHO-TYPES.LIST-OF; : out DC.RECTANGLE-LIMITS;

: out VALUATOR-DATA-

-RECORD);


(TYPE OF-WS DEVICE

INQUIRE DEFAULT CHOICE DEVICE DATA

УЗНАТЬ ХАРАКТЕРИСТИКИ ПО УМОЛЧАНИЮ УСТРОЙСТВА ВЫБОРА

procedure INQ-DEFAULT-CHOICE-DEVICE-DATA

ERROR^INDICATOR

МАХ-CHOICES

LIST-OF-PROMPT-

-ECHO.-TYPES

ECHO-AREA

DATA-RECORD

Уровень ОЬ

: in WS-TYPE;

: in CHOICE-DEVICE-

-NUMBER; : out ERROR-NUMBER;

: out CHOICE-VALUE;

: out CHOICE-PROMPT-ECHO--TYPES. LIST-OF; : out DC.RECTANGLE-LIMITS;

: out CHOICE-DATA-RECORD);


Страница 94

ГОСТ Р 34.1702.3-92 С. 91

(TYPE-OF-WS

DFVICF

ERROR* INDICATOR L1ST-OF-PROMPT--ECHO-TYPES ECHO .AREA DATA-RECORD

Уровень lb-

in WS-TYPE; in PJCK-DEVICES-NUMBER; out ERROR-NUMBER; out P1CK-PROMPT-ECHO-

INQUIRE DEFAULT PICK DEVICE DATA УЗНАТЬ ХАРАКТЕРИСТИКИ ПО УМОЛЧАНИЮ УСТРОЙСТВА УКАЗАНИЯ

procedure INQ_DEFAULT_PICK~.DEVICE-DATА

-TYPES.LIST-OF; : out DCRECTANGLE-LIMITS;

: out PICK-DATA-RF.CORD);


(TYPE-OF-WS DEVICE

INQUIRE DEFAULT STRING DEVICE DATA

УЗНАТЬ ХАРАКТЕРИСТИКИ ПО УМОЛЧАНИЮ УСТРОЙСТВА ВВОДА СТРОКИ

procedure 1NQ_DEFAULT_STRING_DEVICE^DATA

ERROR-INDICATOR

MAX-STRING-BUFFER-

-S1ZE

l"iST_OF-PROMPT-

-ECHO-TYPES

ECHO-AREA

DATA-RECORD

Уровень Ob

: in WS-TYPE;

: in STRING-DEVICE-

-NUMBER; : out ERROR-NUMBER;

: out NATURAL;

: out STRING-PROMPT-ECHO-_TYPES.LIST-OFv : out DC.RECTANGLE-LIMITS;

: out STRING-DATA RECORD);


INQUIRE SET OF ASSOCIATED WORKSTATIONS

УЗНАТЬ СТАНЦИИ, СВЯЗАННЫЕ С СЕГМЕНТОМ procedure INQ- SET_OF_ASSOCIATED_WS

Уровень la

in SEGMENT-NAME; out ERROR -NUMBER; out WS-IDS.LIST-OF);

(SEGMENT ERROR-INDICATOR LIST-OF-WS

(SEGMENT ERROR-INDICATOR TRANSFORMATION

Уровень la

INQUIRE SEGMENT ATTRIBUTES УЗНАТЬ АТРИБУТЫ СЕГМЕНТА

procedure 1NQ-.SEGMENT-ATTRIBUTBS

in SEGMENT-NAME; out ERROR-NUMBER; out TRANSFORMATION-

-MATRIX;


Страница 95

С. 92 ГОСТ Р 34.1702.3-92

VISIBILITY

HIGHLIGHTING

PRIORITY

DETECTABILITY : oul SEGMENT.VISIBILITY;

: out SEGMENT-

.HIGHLIGHTING; : out SEGMENT-PRIORITY:

: out SEGMENT-


-DETECTABILITY);

INQUIRE PIXEL ARRAY DIMENSIONS Уровень 0a

УЗНАТЬ РАЗМЕРНОСТЬ МАТРИЦЫ ПИКСЕЛЕЙ

procedure INQ-PIXEL-ARRAY-DIMENSIONS

(WS

in WS-ID;

CORNER-U

in WC.POINT;

CORNER_DX-DY

in WC.POINT;

ERROR-INDICATOR

out ERROR-NUMBER;

DIMENSIONS

out RASTER-UNIT-SIZE);

INQUIRE PIXEL ARRAY

Уровень 0a

-УЗНАТЬ МАТРИЦУ ПИКСЕЛЕЙ

procedure INQ_PIXEL_ARRAY

(WS

in WS-ID;

CORNER

in WC.POINT; '

DX

in RASTER-UNITS;

DY

in RASTER-UNITS;

ERROR-INDICATOR

out ERROR.NUMBER;

INVALID-VALUES

out INVALID-VALUES-

-INDICATOR:

PIXEL-ARRAY

out VAR1ABLE-PIXEL-

-COLOUR-MATRIX);

INQU1RE-PIXEL

Уровень 0a

УЗНАТЬ ЦВЕТ ПИКСЕЛЯ

*•

procedure INQ-PIXEL

(WS

in WS-ID;

POINT

in WC.POINT;

ERROR-INDICATOR

out ERROR-NUMBER;

PlXEL_COLOUR

out PIXEL_COLOUR_INDEX);

INQUIRE INPUT QUEUE OVERFLOW    Уровень    Ос

УЗНАТЬ НАЛИЧИЕ ПЕРЕПОЛНЕНИЯ ОЧЕРЕДИ СОБЫТИИ procedure INQ-INPUT-QUEUE-EVERFLOW (ERROR-INDICATOR    : out ERROR.NUMBER;

WS    : in WS-ID;

Страница 96

ГОСТ Р 34.1702Л—92 С. 93

CLASS    ; out INPUT-QUEUE-CLASS;

DEVICE    : out EVENT-OVERFLOW-

-DEVICF—NUMBER);

EVALUATE TRANSFORMATION MATRIX    Уровень    la

СФОРМИРОВАТЬ МАТРИЦУ ПРЕОБРАЗОВАНИИ procedure EVALUATE. TRANSFORMATION-MATRIX (FIXED-POINT    : in WC.POINT;

SHIFT-VF.CTOR    : in WC.VECTOR;

ROTATION-ANGLE    : in RADIANS;

SCALE-FACTORS    : in TRANSFORMATION-

-FACTOR;

TRANSFORMATION    ;    out    TRANSFORMATION-

-MATRIX);

procedure EVALUATE-TRANSFORMATION-MATR1X (FIXED-POINT    : in NDC.POINT;

SHIFT.VECTOR    : in NDC.VECTOR:

ROTATION_ANGLE    : in RADIANS;

SCALE-FACTORS    ; in TRANSFORMATION-

-FACTOR-

TRANSFORMATION    : out TRANSFORMATION-

-MATRIX);

ACCUMULATE TRANSFORMATION    Уровень la

MATRIX

ВЫЧИСЛИТЬ РЕЗУЛЬТИРУЮЩУЮ МАТРИЦУ ПРЕОБРАЗОВАНИИ

procedure ACCUMULATE-TRANSFORMATION-MATRIX (SOURCE-TRANSFOR-    : in TRANSFORMATION-

MATION    -MATRIX);

FIXED-POINT    -    :    in    WC.POINT;

SHIFT-VECTOR    : in WC.VECTOR;

ROTATlONlANGLE    : in RADIANS;

SCALE-FACTORS    : in TRANSFORMATION-

-FACTOR;

RESULT.TRANSFOR-    : out TRANSFORMATION-

MATION    -MATRIX);

procedure ACCUMULATE-TRANSFORMATION-MATRIX (SOURCE-TRANSFOR-    : in TRANSFORMATION-

MATION    ^MATRIX) i

in NDC.POINT; in NDC.VECTOR; in RADIANS;

FIXED-POINT SHIFT-VECTOR ROTATION-ANGLE

Страница 97

С. W ГОСТ Р 34.1702.3-92

SCALH-FACTORS    : in TRANSFORMATION-

-FACTOR-

RESULT-TRANSFOR-    : out TRANSFORMATION-

MATION    -MATRIX);

EMERGENCY CLOSE GKS;    1    Уровень    Oa

АВАРИЙНО ЗАКРЫТЬ ЯГС

procedure EMERGENCY-CLOSE-GKS;

ERROR HANDLING    Уровень    0a

ОБРАБОТАТЬ ОШИБКУ

procedure ERROR-HANDLING (ERROR-INDICATOR    : in ERROR-NUMBER;

GKS-FUNCTION    : in STRING;

ERROR-FILE    : in STRING :=    DEFAULT- ,

-ERROR-FILE);

ERROR LOGGING    Уровень    0a

ЗАРЕГИСТРИРОВАТЬ ОШИБКУ procedure ERROR-LOGGING (ERROR-INDICATOR    : out ERROR-NUMBER;

GKS-FUNCTION    : in STRING;

ERROR-FILE    : in STRING DEFAULT-

_ERROR_FILE);

1

5.2.1. Подпрограммы для манипуляции записями входных данных

В данном разделе определены функции и процедуры, которые необходимы для построения и запроса записей входных данных, декларированных как личные типы в данной связке, для всех шести классов устройств, определенных спецификацией ЯТС. Процедуры, представленные здесь, используют для построения записей данных для каждого зарегистрированного типа подсказки и эха. Также предоставляются соответствующие функции, позволяющие прикладным программам анализировать части записей данных, которые определены в ЯГС. Любую специфическую для реализации информацию в записях данных поддерживают личной и недоступной. Если любую из приведенных ниже процедур используют некорректно, то происходит исключительное событие GKS-ERROR. Таким образом, если недопустимый тип подсказки и эха используют для построения процедур, то в файле ошибок регистрируют ошибку номер 2500.

Страница 98

ГОСТ Р 34.1702.3-92 С. 95

Данные подпрограммы требуются на уровне 0Ь.

Для создания зависящих от реализации и зарегистрированных элементов реализация может предоставить дополнительные совмещаемые версии процедур BUILD и дополнительные функции для выделения информации из личных записей данных.

—    Операции над записями данных устройства ввода позиций procedure BUILD-LOCATOR-DATA-RECORD

I PROMPT-ECHO-TYPE : in LOCATOR-PROMPT-

-ECHO-TYPE; DATA-RECORD    :    out LOCATOR-DATA-

-RECORD);

—    Создает и возвращает записи данных устройства ввода позиций.

—    Операции над записями данных устройства ввода последовательности позиций

procedure BUILD_STROKE_DATA_RECORD (PROMPT-ECHO-TYPE    : in STROKE-PROMPT-ECHO-

-TYPE;

BUFFER-SIZE    :    in POSITIVE;

DATA-RECORD    :    out STROKE-DATA-RECORD);

—    Создает и возвращает записи данных устройства ввода последовательности позиций

function BUFFER-SIZE (DATA-RECORD : in STROKE-DATA-1    -RECORD)    return    POSITIVE;

—    Возвращает размер входного буфера устройства ввода последовательности позиций

—    Операции над записями данных устройства ввода числа procedure BUILD..VALUATOR-DATA-RECORD

(PROMPT-ECHQ-TYPE - : in VALUATOR-PROMPT-

-ECHO-TYPE; LOW.VALUE    : in YALUATOR-INPUT-

-VALUE;

HIGH-VALUE    : in VALUATOR-INPUT-

-VALUE;

DATA-RECORD    : out VALUATOR .DATA-

-RECORD);

—    Создает и возвращает записи данных устройства ввода числа.

function HIGH-VALUE (DATA-RECORD : in VALUATOR-

-DATA-RECORD)

return VALUATOR-INPUT-VALUE;

4 За». 207

Страница 99

С. 9в ГОСТ Р 34.1702.3-92

—    Возвращает наибольшее значение числа, запомненное в зяпкен данных оценки.

function LOW-VALUE (DATA-RECORD : in VALUATOR-

_DATA„ RECORD)

ruturn VALUATOR-INPUT..VALUE;

—    Возвращает наименьшее значение числа, запомненное в записи данных оценки.

—    Операции над записями данных устройства выбора procedure BUILD-CHOICE.DATA-RECORD

(PROMPT-ECHO-TYPE : in CHOICE-PROMPT-ECHO-

-TYPE;

DATA-RECORD    :    out CHOICE-DATA.RECORD);

—    Создает'и возвращает запись данных устройства выбора.

—    Операции над записями данных устройства указания procedure BUILD-.P1CK-DATA-RECORD

(PROMPT-ECHO-TYPE    :    in PJCK-PROMPT-ECHO-

-TYPE;

DATA-RECORD    : out PICK-DATA.RECORD).

—    Создаст и возвращает запись данных устройства указания.

—    Операции над записями данных устройства ввода строки procedure BUILD-STRING-DATA.RECORD

(PROMPT-ECHO-TYPE    :    in STRING-PROMPT.ECHO-

-TYPE;

1NPUT-BUFFER-SIZE    :    in NATURAL;

IN1TIAL..CURSOR-    :    in NATURAL;

-POSITION

DATA-RECORD    :    out STRING-DATA-RECORD);

—    Создает и возвращает запись данных устройства ввода строки, function INPUT-BUFFER-S1ZE (DATA-RECORD:

in STRING-DATA-RECORD)

return NATURAL;

—    Возвращает размер буфера, используемого для запоминания вводимой строки, хранящейся в записи данных строки.

function INITIAL-CURSOR-POSITION (DATA-RECORD:

in STRING-DATA-RECORD)

return NATURAL;

—    Возвращает начальную позицию курсора для вводимой строки, запомненной в записи данных строки.

5.2.2. Пакет обобщенной координатной системы ЯГС

Обобщенный пакет, декларируемый в данном разделе, представляет собой спецификацию обобщенной декартовой системы

Страница 100

ГОСТ Р 34.1702.3-92 С. »7

координат для GKS. Данный пакет встречается три раза в пакете GKS-TYPE для мировых координат, нормализованных координат )стройсгва it координат устройства. Пакет определяет представление POINT (точки), POINT-ARRAY (матрицы точек). VECTOR (вектора) и RECTANGLE-LIMITS (прямоугольные ограничения) для координатной системы. Также определяется тип MAGNITUDE для измерения длин в координатной системе. Тип SIZE измеряет длины параллельно обеим осям, а тип RANGE--OF-MAGNITUDES определяет две длины внутри координатной системы: минимум и максимум для таких величин, как диапазон высот литер, доступных на устройстве. Данный обобщенный пакет вкл.очаегся в пакет типов GKS. package-generic

iype COORDINATE-COMPONENT-TYPE is digits <>; package GKS-COORDINAE-SYSTEM is 1ype POINT is record

X : COORDINATE_COMPONENT-TYPE;

Y : COORDINATE-COMPONENT-TYPE; end record;

type POINT-ARRAY is array (POSITIVE range <>)

of POINT;

iype POINT-LIST (LENGTH : SMALL-NATURAL :-0) is. record

. POINTS : POINT-ARRAY (I .. LENGTH); end record; type VECTOR is new POINT; type RECTANGLE-LIMITS is record

XMIN : COORDINATE-COMPONENT-TYPE;

XMAX : COORDINATE-COMPONENT_TYPE;

YMIN : COORDINATE-COMPONENT-TYPE.

YMAX : COORDINATE-COMPONENT-TYPE; end record;

type MAGNITUDE-BASE-TYPE is digits PRECISION; subtype MAGNITUDE is MAGN1TUDE_BASE_TYPE range COORDINATF.-COMPONENT-TYPE’SAFE-SMALL .. COORDINATEi-COMPONENT-TYPE’SAFE-LARGE; type SIZE is record XAX1S : MAGNITUDE;

YAXIS : MAGNITUDE;

Страница 101

С. es ГОСТ Р 34.1702.3-92

end record;

type RANGE-OF.MAGNITUDES is record MIN : MAGNITUDE;

MAX : MAGNITUDE; end record;

end GKS-COORDINATE-SYSTEM;

5.2.3. Общий пакет списка утилит ЯГС

Общйй пакет GSK LIST-UTILITIES встречается несколько раз в пакете GSK-TYPE для задания различных типов списков L1ST-OF и подпрограмм для манипуляции ими. Каждый тип списка содержит различные значения типов элементов.

Тип списка декларируется как личный тип в GSK-LIST--UTII.1TIES для ограничения операций над типами списков, которые доступны внешним программным единицам. Декларация личных типов списков включает диснримннантную часть, которая определяет текущий размер списка. Объекты списков декларируются как неограниченные объекты, чтобы позволить динамическую модификацию размера списка.

Объект списка представляет собой последовательность значений типов элементов. Каждое значение типа элемента связывается с индексом. Значение индекса начинается с I и идет с приращением 1.

Размер объекта списка — это число значений типов элементов, запомненных в нем. Одно значение типа элемента может быть запомнено более одного раза внутри объекта списка. Объект списка может быть пустым. Максимальный размер объекта списка дан в общем параметре MAX-LIST..S1ZE. Если данный параметр не задан, то используют принимаемое по умолчанию и зависящее от реализации значение.

—    Подпрограммы обработки LIST-OF

function NULL,LIST return LIST-OF;

—    Данная функция возвращает пустой объект LIST-OF. Данный список предназначен главным образом для тех, кто занимается реализацией GKS.

procedure ADD-TO-LIST (ELEMENT    : in ELEMENT-TYPE;

LIST    : in out LIST-OF);

—    Данная процедура осуществляет запоминание значения параметра элемента в объекте параметра списка и увеличение размера списка на единицу. Индексное значение, равное увеличенному размеру списка, связывается с запомненным значением элемента.

Страница 102

ГОСТ Р 34.1702.3-92    С. 99

Данная процедура порождает ошибку Я ГС 2502. если она вызывается, когда параметр списка имеет размер, равный максимальному. По желанию пользователю может гарантироваться незаноми-нание дублированных значений. Это реализуется вызовом ADD-TO-L1ST с конкретным значением элемента, если функция IS-IN-LIST возвратила FALSE (ложь) для данного элемента, procedure DELETE-FROM-L1ST (ELEMENT    in    ELEMENT-TYPE;

LIST    : in out LIST-OF);

—    Если объект параметра списка не содержит значения параметра элемента, данная процедура ничего не делает. В противном случае первый встретившийся элемент с данным значением удаляется. Размер объекта списка уменьшается на единицу, а индексы, связанные с оставшимися элементами, настраиваются таким образом, чтобы начинаться с единицы и идти с интервалом в единицу. При желании пользователь может удалить все элементы с данным значением. Это реализуется за счет повторения вызовов функции DELETE_FROM_LIST с конкретным значением элементз до тех пор, пока функция IS-IN-LIST возвращает TRUE (истина} для значения элемента.

function SIZE-OF-LIST (LIST : in LIST-OF) return NATURAL;

—    Данная функция возвращает число значений типов элементов, запомненных в объекте списка.

(unction IS—IN—LIST (ELEMENT    : in ELEMENT-TYPE;

LIST    '    : in LIST-OF) return BOOLEAN;'

—    Данная функция возвращает    TRUE (истина), если значение

параметра элемента существует в объекте списка; в противно» случае возвращается FALSE.

’function LIST-ELEMENT (INDEX    : in POSITIVE;

LIST    : in LIST-OF) return ELEMENT

-TYPE;

—    Данная функция возвращает значение элемента объекта списка, имеющего значение индекса, равное параметру индекса. Если параметр индекса превосходит текущий размер списка, генерируется ошибка ЯГС 2502.

function LIST (VALUES : in LIST-VALUES) return LIST-OF:

—    Данная функция возвращает достоверный объект LIST-OF. Если параметр VALUE является пустой матрицей, то возвращается пустой объект LIST-OF. Если параметр не нулевой, данная

Страница 103

С. 100 ГОСГ Р 34.1702 3—92

функция возвращает объект LIST-OF, содержащий все значении в параметре VALUES. Если число значений элементов превосходит максимальный размер объекта LIST-OF, генерируется ошибка «ЯГС 2502.

— Спецификация обобщенного пакета

jjercrte

. type ELEMENT.TYPE is private;

MAX-LIST-SIZE : POSITIVE :— implementation-defined; package GKS-LIST UTILITIES is

subtype LIST-S1ZE is NATURAL range 0.. MAX-LIST-S1ZE;

.type LIST-OF (SIZE : LIST-SIZE 0) is private;

ivpe LIST-VALUES is array (POSITIVE range <>) of

ELEMENT-TYPE;

junction NULL_LIST return LIST-OF;-

Junction SIZE-OF-LIST (LIST : in LIST-OF) return NATURAL; function IS-IN-LIST    :    in    ELEMENT.TYPE;

(ELEMENT

LIST    ; in LIST-OF) return BOOLEN;

Junction LIST-ELEMENT    : in POSITIVE;

(INDEX

LIST    : in LIST-OF) return

ELEMENT-TYPE; function LIST (VALUES    : in LIST VALUES) return

LIST-OF;

procedure ADD-TO-LIST    : in ELEMENT-TYPE;

(ELEMENT

LIST    : in out LIST-OF);

procedure DELETE-FROM-    : in ELEMENT-TYPE;

LIST (ELEMENT LIST    : in out LIST-OF)?

private

.— Декларация типа LIST-OF зависит от реализации. Однако операции, неявно объявленные декларацией LIST-OF, включая как .присваивание, так и сравнение на равенство и неравенство, должны выполняться правильно. Данное требование предотвращает использование типов доступа для реализации типа LIST-OF. Рекомендуемая реализация представлена ниже: type LIST-OF (SIZE : LIST.SIZE :«0) is record

ELEMENTS : LIST-VALUES (I.. SIZE); end.record;

Страница 104

ГОСТ Р 34.1702.3-92 С. 101

— Отметим, что декларирование неуточненных объектов LIST-OF" с использованием значения дискриминанта, принимаемого по умолчанию, допускает динамическую модификацию размера матрицы элементов.

end GKS-LIST-UT1LITIES;

5.2.4. У т'и л и т ы функций метафайла Записи данных элементов метафайла являются сложными, для данных записей рекомендовано более 55 различных форматов. Прикладные программисты также могут определить новые форматы Длина этих записей переменная. Записи данных могут содержать списки указателей, строки символов, матрицы индексов цветов и данные GDP н ESC. Длина записи зависит от числа элементов данных. GKS определяет, что формат зависит от реализации.

Тип записи данных должен быть личным, чтобы позволить непосредственную обработку содержимого записей.

Прикладной программист должен иметь возможность записать в метафайл неграфнческне данные. Это может быть предоставлено разрешением вывода символьных строк. Числовые данные могут быть преобразованы в символьные строки прикладным программистом до вызова функции BUILD-NEW-DATA-RECORD построить новую запись данных метафайла GKSM.

BUILD NEW GKSM DATA RECORD procedure BUILD_NE\V_GKSM_DATA_RECORD

(TYPE-OF-1TEM    : in GKSM.ITEM-TYPE; •    ■

ITEM-DATA    : in STRING;

ITEM    : out GKSM-DATA-RECORD);

ITEM DATA RECORD STRING function 1TEM_DATA_REC0RD_STR1NG

(ITEM : in GKSM-DATA-RECORD) return STRING;

5.3. Настраивающиеся варианты

Так как подмножества или расширения Ады не допускаются; то нет настраивающихся вариантов ЯГС/Ада. Более того, данное связывание не требует, чтобы необходимые для поддержки свойства были независящими от реализации.

Страница 105

С 102 ГОСТ Р 34.1702.3 —92

ПРИЛОЖЕНИЕ 4

СПЕЦИФИКАЦИЯ СКОМПИЛИРОВАННОГО ЯГС

(Данное приложение не является составной частью стандарта, а предоставляет дополнительную информацию}

-with GKS_LIST_UTILITIES,

^ackzge GKS,TYPE ix

—    Данный пакс7 содержит все определения типов данных, используемые для задания связывания Ады с ЯГС- Данная компиляция была выполнена на компьютере MicroVax 2, используя компилятор VaxAda версии Т1 4—32 .Значения ти-тон или подтипов, зависящих от реализации, были иыбраиы так, чтобы работать в среде 32-разрядного мииикомпьютера с виртуальной памятью Эти значения возможно потребуется изменить для микрокомпьютеров или машин с фиксированным размером памяти

—    Последующие констант являются зависящими от реализации и задают максимумы для реализации для типов Я ГС/Ада.

PRECISION    :    constant    :    =6;

SMALL NATURAL-МАХ    :    constant    :    -500;

'STRING_SMALL_NATURAL_    :    constant    :    =100,

-MAX

CHOICE-SMALL-NATURAL-    .    constant    :    =5.

-MAX

subtype SMALL-NATURAL is NATURAL range 0.. SMALL-NATURAL-MAX:

--Это зависящие от реализации подтипы, допускающие применение для объектов записей различных типов записей без возникновения прерывания STORAGE-ERROR.

subtype STRING-SMALL-NATURAL is NATURAL range 0.. STRING-SMALL_NATURAL-MAX;

—    Это декларация зависящего от реализации подтипа, которая для объектов иеуточненных записей допускает применение различных определенных ниже тн-яов записей строк без возникновения прерывания STORAGE-ERROR.

subtype CHOICE.SMALL-NATURAL is NATURAL range 0. CHOICE-SMALL-NATURAL_MAX;

—    Это декларация зависящего от реализации подтипа, который для объектов иеугочиеимых записей допускает применение типа CHOICE-?ROMPT-STRING-

—    LIST без возникновения прерывания STORAGE-ERROR.

—    Система координат ЯГС •generic

t>ре COORDINATE-COMPONENT-TYPE is digits <>; package GKS-COORDINATE.SYSTEM is type POINT is

record

X : COORDINATE .COMPONENT,TYPE;

Y : COORDINATE-COMPONENT-TYPE;

Страница 106

ГОСТ Р 34.1702.3-92 С. 10»

end record,

type POINT.ARRAY № array (POSITIVE range <>) ol POINT; type POINT LIST (LENGTH : SMALL.NATURAL . =0) is record

POINTS : POINT.ARRAY fl. LENGTH); end record; type VECTOR is new POINT; type RECTANGLE,LIMITS is

record

XMIN : COORDINATE.COMPONENT.TYPE;

XMAX : COORDINATE-.COMPONENT.TYPE;

YMIN COORDINATE-COMPONENT. TYPE; *

YMAX : COORDINATE-COMPONENT.TYPE; end record;

type MAGNITUDE.BASE..TYPE Is d.gits PRECISION!' subtype MAGNITUDE is AtAGNITUDE-BASE.TYPE range

COORDINATE-COMPONENT. TYPESAFE-SMALL.. COORDINATE-COMPONENT .TYPF.'SAFE.LARGE; type SIZE is

record

XAXIS : MAGNITUDE;

YAXIS : MAGNITUDE; end record; type RANGE-OF.MAGNITUDES is record

MIN : MAGNITUDE;

MAX MAGNITUDE; end record; end GKS-COORDINATE-SYSTEM; .

— ASF    Уровень 0'a type ASF is (BUNDLED. INDIVIDUAL);

—    Данный тип определяет флаг выборки атрибутов, чье значение указывает, откуда будут устанавливаться атрибуты примитива: из таблицы связок или к*, индивидуального атрибута.

— ASF-LIST    Уровень 0а> type ASF.L1ST is

record

TYPE-OF-LlNE_ASF    : ASF;

WIDTH.ASF    : ASE:

LINE_COLOUR_ASF    ; ASF;

TYPE_OF-MARKER_ASF    : ASF;

SlZE_ASF    : ASF;

MARKER_COLOUR_ASF    : ASF;

FONT_PRECISION_ASF    : ASF;

EXPANSION _ASF    : ASF;

SPAC1NG-ASF    : ASF;

TEXT_COLOUR-ASF    : ASF;

<    INTERIOR.ASF    ;    ASF;

Страница 107

С. 104 ГОСТ Р 34.1702.3-92

STYLE-ASF    ; ASF;

FILL.AREA-COLOUR..    : ASF.

-ASF end word;

—    Запись, содержащая лее флаги выборки атрибутов, с компонентами, обозначающими индивидуальный флаг.

—    ATTRIBUTES-USED.TYPE    -    Уровень    Оа

type ATTRlBUTES.USED.TYPE is

(POLYL1N F. _ ATT R1 BUT ES.

POLYMARKER-ATTRIBUTES.

TEXT-ATTRIBUTES.

FILL-AREA.ATTRlBUTES);

—    Типы атрибутов, которые могут быгь использованы при генерации пынода для ОПВ и при генерации подсказки и эха различных типов для различных классов входных устройств

— ATTRIBUTES USED    Уровень Оа package ATTRIBUTES.USED is

ncv GKS- LlST_UTlLlTiES (ATTRIBUTES.USED-TYPE);

—    Предназначен для списка используемых атрибутов

— SCALE.FACTOR    Уровень Оа package SCALE.FACTOR.TYPE Is

—    Данный пакет используют для выделения производного типа SCALE.FACTOR.

vau как его используют как базу для ряда других производных типов В языке Ада, сс.1Ш 6aja производного типа сама является производным типом. Этот тип предка не може» быть декларирован непосредственно в видимой части того же самого пакета.    '

type SCALE.FACTOR is digits PRECISION.

—    Тип, используемыЛ для безразмерных масштабов «nd SCALE_FACTOR-TYPE;

use SCALE.FACTOR_TYPE;

— CHAR EXPANSION    Уровень 0a type CHAR. EXPANS ION is new SCALE-FACTOR range

SCALE.-FACTOR SAFE-SMALL.. SCALE-FACTORLAST;

—    Определяет масштаб расширения литер. Масштаб должен быть безразмерным ■ больше нуля.

—    CHAR-SPACING    -    Уровень    Оа

type CHAR-SPACING is new SCALE.FACTOR.

—    Определяет межлитерный просвет Положительное значение указывает иа величину дополнительного пространстве между литерами в текстовой строке. я отрицательное — величину перекрытия прямоугольников литер о строке текста.

_ DEVICE.NUMBER    Уровень Ob

yackage DEVICE.NUMBER .TYPE is

type DEVICE.NUM8ER is new POSITIVE;

—    Логическое устройство ввода устанавливают по номеру устройства.

«nd DEVICE-NUMBER-TYPE:

юс DEVICE NUMBER..TYPF.;

— CHOICE. DEVICE-NUMBER    Уровень    Ob    •

■type CHOICE. DEVICE-NUMBER Is new DEVICE.NUMBER.

—    Определяет идентификатор устройства выбора

Страница 108

ГОСТ Р 34.1702.3-92 С. 1*5

—    LOCATOR.DEVICE-NUMBER    Уровень Ob

type LOCATOR.DEVICE.NUMBER is new DEV1CE-NUMBER;

—    Предоставляет идентификатор yc«t>oftcTBa анода позиции.

—    PICK-DEVICE-NUMBER    Уровень    lb-

tvpe PICK-DEVICE.NUMBER is new DEVICE-NUMBER;

—    Предоставляет идентификаторы устройства указания.

—    STRING-DEV1CE.NUMBER    Уровень    Ob

<> [>с STRING.DEVICE.NUMBER is new DEVICE-NUMBER;

—    Предоставляет номер устройства ввода строки.

—    STROKE - DEVICE. NUMBER    Уровень    Ob

type STROKE.DEVICE-NUMBER is new DEVICE-NUMBER;

—    Предоставляет номер устройства ввода числа.

—    VALUATOR-DEVICE-NUMBER    Уровень    01»»

type VALUATOR-DEVISE.NUMBER is new DEVICE.NUMBER.

—    Предоставляет идентификаторы устройства выбора

—    CHOICE-PROMPT    Уровень    Ob

type CHOICE. PROMPTis (PFF, ON):

—    Определяет, будет или нет отобрзжаться заданная подсказка для типа подсказки и эха устройства выбора.

—    CHOICE-PROMPTS    -Уровень    ОЬ

package CHOICE_PROMPTS is

• new GKS-LIST.UTILITIES (CHOICE-PROMPT)',

—    Предостапляет список подсказок.

—    CHOICE-PROMPT-ECHO_TYPE    Уровень    Of»

lype CHOICE-PROMP-ТЕСНО.TYPE is new INTEGER;

—    Определяет тип подсказки и эха устройства выбора.

—    CHOICE.PROMPT-ECHO-    •    Уровень    ОЬ

-TYPES

package CHOICE_PROMPTiECHO_TYPES is

new GKS.LIST..UTILITIES (CHOICE_PROMPT_ECHO_TYPE);

—    Предоставляет список типов подсказок и эха усттюйства выбора.

—    CHOICE-PROMPT-STRING    -    Уровень ОЬ

type CHOICE.PROMPT-STRING

(LENGTH : STRING-SMALL-NATURAL : - 0) is record

CONTENTS : STRING (I. LENGTH); end record;

—    Предоставляет подсказки переменной длины Объекты данного типа должныг быть декларированы неуточнениыми, чтобы позволить динамическую модификацию длины.

— CHOICE-PROMPT-STRING-    Урот» ОЬ» -ARRAY

type CHOICE-PROMPT.STRING.ARRAY is array

(POSITIVE range <» of CHOICE-PROMPT-STRING;

—    Предоставляет матрицу строк подсказок.

— CHOICE-PROMPT-STRING-    Уровень Ob -LIST

type CHOICE .PROMPT.. STRING-LIST (LENGTH :

Страница 109

С. 106 ГОСТ Р 34.1702.3-*2

CHOICE-SMALL-NATURAL : « 0)

is record

LIST . CHOICE-PROMPT-STRING-ARRAY fI.. LENGTH); end record;

—    Предоставляет списо* строк подсказок

— CHOICE,REQUEST-STATUS    Уровень Ob type CHOICE-RbQUEST.STATUS is (OK. NOCHOICE. NONE);

—    Определяет статус для входных операций выбора для функций запроса

— CHOICE-STATUS    Уровень ОЬ subtype CHOICE-STATUS is CHOICE.REQUEST.STATUS range

OK . NOCHOICE;

—    Указывает сделанный оператором выбор для функииП опроса, получения собы 7ия п справочных функций.

—    CHOICE-VALUE    Уровень    ОЬ

type CHOICE-VALUE is new POSITIVE.

—    Определяет альтернативы, имеющиеся в реализации.

~ CLIPPING. INDICATOR    Уровень    On

.type CLIPPING-INDICATOR >e (CLIP, NOCLIP); .

—    Указывает на го. что будет или нег выполняться усечение.

—    COLOUR-AVAILABLE    Уровень    0а

type COLOUR-AVAILABLE is (COLOUR, MONOCHROME);

—    Указывает, имеется ли цветной вывод иа станции.

—    PIXEL-COLOUR-INDEX    Уровень    0а

tvpe PIXEL-COLOUR INDEX is new INTEGER

range —I.. INTEGER'LAST;

—    Тип цвета пиксела, где —I обозначает неверный индекс цвета.

_ COLOUR-INDEX    „    Уровень    Оа

subtype COLOUR-INDEX is PIXEL. COLOUR .INDEX

range 0.. PJXEL-COLOUR-INDEX'LAST;

—    Предназначен для индексов в таблицах цветов.

—    COLOUR-INDICES    Уровень 0а

package COLOUR-INDICES is new <1KS.LIST_UTILITIES (COLOUR-INDEX);

—    Предоставляет набор индексов цветов, которые имеются на конкретной

станинн    *•

—    COLOUR-MATRIX    Уровень Оа

type COLOUR-MATRIX is array (POSITIVE range <>.

POSITIVE range <>) ol COLOUR-INDEX;

—    Предоставляет матрицы, содержащие индексы цветов, соответствующие матрице ячеек или матрице шаблонов

—    INTENSITY    Уровень Оа

type INTENSITY is digits PRECISION range 0.0.. I 0.

—    Определяет область возможных интенсивностей ивета.

—    COLOUR. REPRESENTATION    Уровень 0а

.type COLOUR. RE PRESENTATION is

record „

RED    :    INTENSITY

GREEN    :    INTENSITY

BLUE    :    INTENSITY

Страница 110

ГОСТ Р 34.1702.3-92 С. ЮТ

end record;

—    Определяет представление цвета, как комбинацию интенсивностей п системе цветов крвемый —зеленый--голубой.

— CONTROL-FLAG    Уровень Оа type CONTROL. FLAG is (CONDITIONALLY, ALWAYS»;

—    Флаг управления используют, чтобы ухазать условия, при которых носитель изображения очищается

— DC-TYPE'    Уровень Оа type DC-TYPE i$ digits PRECISION;

—    Тип координат в системе координат устройства.

—    DC    .    Уровень    Оа

package DC is new CKS.COORDINATE.SYSTEM (DC. TYPE);

—    Определяет систему координат устройства

—    DC_UNITS    .    Уровень    Оа

type DC-UNITS is (METRES. OTHER);

~ Единицей измерения координат устройства для конкретной станции должея быть метр, если устройство не способно порождать масштабированные образы, млп зависящая от конкретной станции единица в противном случае.

— DF.Ff ERAL.MODE    Уровень Оа type DE FFE R A L - MODE is (ASAP. BNIG, BN1L. ASTI).

—    Определяет четыре отложенных режима Я ГС

— DISPLAY .CLASS ’    •    Уровень    Оа

tvpe DISPLAY-CLASS is (VECTOR.DISPLAY.

RASTER-DISPLAY,

OTHER_DlSPLAY).

—    Классификация станций категорий OUTPUT или OL!TIN.

— DISPLAY-SURFACE-EMPTY    Уровень Оа type DISPLAY_SURFACF._EMPTY is (EMPTY. NOTEMPTY);

—    Обозначает пуст ли носитель изображения

—    DYNAM1C.MODIF1CATION    .    Уровень    1а

type DYNAMIC.MODIFICATION is (IRG, IMM);

—    Указывает, что обновление списка состояний выполняется немедленно или требует неявной повторной генерации.

—    ECHO-SWITCH    Уровень ОЬ

lypc ECHO-SWITCH is (ECHO. NOECHO);

—    Обозначает, выполняется илн нет выход эха.

—    ERROR.NUMBER    Уровень Оа

type is ERROR.NUMBER is new INTEGER.

—    Определяет тип для значения индикатора ошибок

—    INPUT-CLASS    Уровень ОЬ

lype INPUT-CLASS, Is (NONE.

LOCATOR. INPUT.

STROKE_INPUT.

VALUATOR-INPUT.

. CHOICE-INPUT.

PICK-INPUT,

STRING-INPUT).

—    Задает классификации входных устройств для станции категории- IUPUT или OUT1N.

Страница 111

С. 108 ГОСТ Р 34.1701Л—92

— EVENT-DEVICE-NUMBER

Уровень Оэ NONE) is

type EVENT-DEVICE. NUMBER (CLASS : INPUT-CLASS) record ease CLASS is

when NONE    =• >

null;

LOCATOR_EVF.NT_DF.VICE LOCATOR. DEVICEJNUMBER: -> STROKE-LVENT-DEVICE

STROKE.DEVICE. NUMBER. =-> VALUATOR.EVENT-DEVICE ; VALUATOR-OEVICE-

NLMBER; CHOICE EVENT.DEVICE : CHOICE-DEVICE.NUMBER; PICK-EVENT. DEVICE : PICK-DEVICE-NL'MBER STRING_F.VENT_DEVICE STRING.DEVICE.NUMBER:

when LOCATOR-IN PUT    ->

when STROKE-INPUT when VALUATOR-INPUT

when CHOICE-INPUT when PICK. INPUT when STRING-INPUT

•» > «>

«->

end case; end record:

—    Предназначен для возврата номера событий

устройства любого класса из ©черед» Уровень Оа

-    INPUT. QUEUE-CLASS

subiype INPUT.QUEUE.CLASS is INPUT-CLASS range LOCATOR-INPUT . STRING-INPUT;

—    Определяет классификации устройств ввода для ситуаций, о которых классификация невозможна.

-    EVENT.OVERFLOW-DEVICE- "ЧГ'    Уровень    Оа

-NUMBER

type EVENT_OVERFLOW_DEVICE_NUMBER

(CLASS : INPUT.QUEUE.CLASS : — LOCATOR.INPUT) is

record case CLASS is when LOCATOR-INPUT

-=> LOCATOR.EVENT-DEVICE

: LOCATOR_DEVICE.NUMBER-= > STROKE-EVENT-DEVICE

when STROKE.INPUT when VALUATOR-INPUT

: STROKE-DEVICF.-NUMBER;

= > VALUATOR-EVENT_DEVICE : VALUATOR.DEVICE-

-NUMBER; = > CHOICE-EVENT.DEVICE

when CHOICE. INPUT when PICK-INPUT when STRING-INPUT

end c«*e; end record.

: CHOICE-DEVICE-NUMBER; PICK-EVENT-DEVICE PICK-DEVICE. NUMBER: STRING-EVENT. DEVICE STRING-DEVICE-NUMBER;

->

— >

-    FILL.AREA.INDEX

Уровень Оа

type PILL.AREA.INDEX is new POSITIVE;

—    Определяет индексы таблицы связок областей заполнения.

Страница 112

ГОСТ I* 34.1702.3-92 С. 109

—    INTERIOR-STYLE    •    Уровень    Оз

type INTERIOR.STYLE is (HOLLOW. SOLID. PATTERN. HATCH);

—    Определяет виз заполнения области

— STYLE.INDEX    Уровень Oa t\pe STYLE-INDEX is new INTEGER;

—    Индекс вила - >то лпб© HATCH.STYLE, либо PATTERN.STYLE.

— FILL-AREA-INDICES    Уровень Oa package FILL-AREA-INDICES is

new GKS.LIST.UTILITIES (FILL_AREA_INDEX);

—    Предоставляет списки индексов таблицы связок областей заполнения

—    GDP.ID    '    Уровень    Оа

type GDP.ID Is new INTEGER:

—    Выбирает среди классов обобщенных примитивов вывода.

—    GDP.IDS    Уровень Оа

parage GDP.IDS is new GKS.LIST.UTILITIES (GDP-ID);

—    Предоставляет списки идентификаторов обобщенных примитивов вывода.

~ GKS-LF.VEI.    Уровень Оа

type GKS.Le'el is <L0a. LOb. LOc. Lla. Lib. Lie. L2a. L2b. L2c);

—    Доступные уровни Я ГС

—    GKSM.ITEM.TYPE    Уровень Оа

type GKSM.ITEM.TYPE is new NATURAL;

—    Тип элемента, содержащегося в метафайле Я ГС

—    HATCH.STYLE    Уровень Оа

subtype HATCH-STYLE is STYLE.INDEX;

—    Определяет вид штриховки при заполнения области.

—    HATCH.STYLES    Уровень Оа

package HATCH.STYLES Is new GKS.LIST.UTILITIES (HATCH.STYLE);

—    II редост являет список видов штриховки,

—    HORIZONTAL.ALIGNMENT    Уровень Oa

typ? HORIZONTAL.ALIGNMENT Is (NORMAL. LEFT. CENTRE, RIGHT);

—    Выравнивание параллелограмма текста no отношению к гориюнтальиому положению текста.

—    IMPLEMENTATION..DEFINED.    Уровень Оа

.ERROR

subnpe IMPLEMENTATION-DEFINED-ERROR is ERROR.NUMBER range ERROR.NUMBER FIRST. —I;

—    Определяет область номеров ошибок, чтобы указывать, что произошла заданная реализацией ошибка

—    INPUT.STATUS    Уровень ОЬ

type INPUT.STATUS is (ОК. NQKE).

—    Определяет статус операции.

—    INPUT.STRING    Уровень ОЬ

type INPUT.STRING (LENGTH . STRING-SMALL-NATURAL : = 0) i»

record

CONTENTS : STRING (I. LENGTH); end record;

Страница 113

С. но ГОСТ Р Я.1702.3-92

— Предоставляет строку переменной длины Объекты данного типа должны быть декларированы как («уточненные, чтобы позволить динамическую модификацию

* м

Уровень Оа

ДЛИНЫ

- JNTORIOR.STYLES

package INTERIOR.STYLES is

new GKS_LIST-UTILITIES (INTERIOR.STYLE);

—    Предоставляет список видов заполнения.

— INVALID.. VALUES-INDICATOR    ‘    УровЫь    Сэ

type INVALID-VALUES-INDICATOR is (ABSENT, PRESENT);

—    Указывает, имеются.ли —I в параметре P1XEL-ARRAY. возврашгемом INQ_PIXEL_ARRAY.

—    LANGUAGE-B1LDING..ERROR    Уровень Са

subtype LANGUAGE-BILDING-F.RROR is ERROR.NUMBER

range 2500.. 2999;

—    Определяет область номеров ошибок, относящихся к ошибкам связывания с языком.

—    POLYLINE-INDEX    Уровень Оа

type POLYLINE-INDEX is new POSITIVE;

—    Определяет область индексов ломаной

—    L1NETYPE    Уровень 0а

type LINETYPE is new INTEGER;

—    Определяет типы линий, предоставляемых ЯГС.

—    LINEW1DTH    Уровень 0а

type LINEWIDTH is new SCALE.FACTOR range 0.0..

SCALE. FACTOR'LAST;

—    Ширина линии определяется масштабом толщины.

—    LINETYPES    Уровень Оа

package LINETYPES is new GKS.LIST-UTILITIF.S (LINETYPE).

—    Предоставляет список типов линий.

—    LOCATOR-PROM РТ_ЕСНО_    Уровень Ob

-TYPE

lypc LOCATOR-PROMPT_ECHO_TYPE is new INTEGER;

—    Определяет типы подсказок и ?хя, поддерживаемых реализацией.

—    LOCATOR_PROMPT_ECHO_    .    v    Уровень    ОЬ

-TYPES

package LOCATOR-PROMPT-ECHO-TYPES is

new GKS_L1ST_UTILITIES (LOCATOR-PROMPT.ECHO-TyPE);

— Предоставляет список типов подсказок к эха определителя местоположения.

Уровень 0э‘

—    POLYMARKER-1NDEX

type POLYMARKER.INDEX is new POSITIVE;

—    Определяет область индексов таблицы связок полимаркеров.

Уровень Оа

Уровень ОЬ

— Размер маркера определяется масштабом.

—    MARKER-TYPE

type MARKER-TYPE is new INTEGER;

—    Определяет типы маркеров, предоставляемых ЯГС.

Страница 114

ГОСТ Р 34.1702.3-92 С. ИГ

—    MARKER-DATA    Уровень Ob

—    MARKER TYPES    У ром* Оа

package MARKER.TYPES is га?» GKS.LIST-UTILITIES

(MARKER-TYPE);

—    Предоставляет список типов маркерок.

—    .MORE.EVENTS    Уровень Oa

type MORE-EVENTS is (NOMORE. MORE);

—    Ухазывзст, содержатся ли еще события в очереди событий

—    NDC-TYPE    Уровень    та

type N DC.TYPE is digits PRECISION;

—    Определяет тип координат в нормализованной системе координат.

—    NDC    •    Уровень    та

package NDC Is new GKS_CO0RDINATE_SYSTEM (NDC-TYPE);

Задает нормализованную систему координат.

—    NEW-FRAME. NECESSARY    Уровень    0a

type NEW FRAME.NECESSARY is (NO, YES);

—    Указывает; необходимы ли действия по новому ходу при модификации.

—    OPERATING.MODE    Уровень    0Ь

type OPERATING-MODE is (REQUEST-MODE, SAMPLE-MODE.

EVENT-MODE);

. — Определяет режимы работы устройства ввода.

—    OPERATING-STATE    Уровень    0а

type OPE RATING-STATE is (GKCL, GKOP, WSOP, WSAC, SGOP);

—    Определяет пять состояний ЯГС.

—    PATTERN.INDEX    Уровень    0a

subtype PATTERN INDEX Is STYLE.INDEX range I.. STYLE .INDEX-LAST;

—    Определяет диапазон индексов таблицы шаблонов.

Уровень Оа

—    PATTERN-INDICES package PATTERN-INDICES is

new GKS.LIST-UTILITIES (PATTERN-INDEX);

—    Предоставляет списки индексов таблицы шаблонов.

Уровень lb указания, существующих

—    PICK.ID

type PICK-ID is new POSITIVE;

—    Определяет диапазон идентификаторов устройства в реалшацни.

—    PICK-1DS    Уровень    1Ь

pakcage PICK.IDS is new GKS.LIST-UTILITIES (PICK-ID);

—    Предоставляет списки идентификаторов устройства указания.

—    PICK-PROMPT..ECHO-TYPE    Уровень    lb

type PICK-PROMPT_ECHO_TYPE is new INTEGER;

—    Определяет тип подсказки и эха для устройства указания.

—    PICK-PROMPT. ECHO-TYPES    Уровень    1Ь

package PICK_PROMPT_ECHO_TYPES is new GKS-LIST-UTILITIES

(PICK-PROMPT-ECHO.TYPE);

— Предоставляет списки типов подсказки и эха устройства указании.

Страница 115

С. 112 ГОСТ Р 34.1702.3-92

— PICK-REQUEST.STATUS    Уровень lb type PICK-REQUEST. STATUS is (OK. NOPICK, NONE):

— Определяет статус операции ввода указания для функции запроса.

—    P1CK-STATUS    Уровень 1Ь

subtype PICK STATUS is PICK _REQUEST,STATUS rang* OK - NOPICK.

—    Определяет статус операции в «ода указания для функций получения информации.

—    PIXEL-COLOUR-MATRIX    Уровень 0а

type PIXEL-COLOUR_MATRIX is array (POSITIVE range <>.

POSITIVE range <>) of P1XEL-COLOUR..INDEX;

—    Предоставляет матрицы цветов пикселов.

—    POLYLINE-INDICES    Уровень 0a

package POLYLINE-INDICES is new GKS. LIST.UTILITIES

(POLYLINE,INDEX);

—    Предоставляет списки индексов ломаной

—    POLYMARKER-INDICES    Уровень 0а

pack age POLYMARKER-INDICES is new GKS_LIST_UT1LITIES

(POLYMARKER-INDEX):

—    Предоставляет списки индексов полнмаркеров.

—    RADIANS    Уровень    la

type RADIANS is digits PRECISION; •

—    Величины, используемые в выполнении преобразований сегмента (угол ара-шения) Положительное значение указывает на вращение против часовой стрелки

—    RANGE- OF EXPANSIONS    Уровень    0а

type RANGE-OF-EXPANSIONS is

record

MIN : CHAR-EXPANSION:

MAX : CHAR-EX PAN SION; -end record.

—    Предоставляет область знзчеиий масштаба расширении литер

—    RASTER-UNITS    Уровень    0а

type RASTER UNITS is new POSITIVE;

—    Определяет область единиц растра.

—    RASTER. UNIT-SI2E    Уровень    0э

type RASTER_UNIT.SIZE is

record

X: RASTER-UNITS;

Y: RASTER-UNITS; end record;

—    Определяет размер лкранз дисплея в растровых единицах

—    REGENERATION-MODE    Уровень    0а

type REGENERATION-MODE is (SUPPRESSED. ALLOWED);

—    Указывает, подавлена или разрешена неявная повторная генерация

—    RELATIVE. PRIORITY    Уровень    0а

type RELATIVE ^PRIORITY is (HIGHER. LOWER).

—    Обозначает относительный приоритет между двумя преобразованиями нормирования.

Страница 116

ГОСТ Р 34.1702.3-92 С. 113

—    RETURN-VALUE.TYPE    Уровень    Оа

'• рс RETURN_VALUE_TYPE is (SET. REALIZED);

—    Указывает. цмиращаемое значение следует рассматривать как заданное программой или как действительно реализованное устройством.

—    SEGMENT-DETECTABILITY    Уровень    la

type SEGMENT-DETECTABILITY is < U N DETECT ABLE. DETECTABLE);

—    Укалывает, является нлк нет сегмент обнаруживаемым

—    SEGMENT-HIGHLIGHTING    Уровень    1а

t>pe SEGMENT-HIGHLIGHTING is (NORMAL. HIGHLIGHTED);

—    Указывает, является или нет сегмент выделяемым.

—    SEGMENT-NAME '    «    Уровень    1а

type SEGMENT-NAME is new POSITIVE;

—    Определяет диапазон имен сегментов.

—    SEGMENT-NAMES    Уровень    1а

package SEGMENT.NAMES is new GKS-LIST-UTILITIES

(SEGMENT_NAME);

—    Дает список имен сегментов.

—    SEGMENT-PR10R1TY    Уровень la

type SEGMENT-PRIORITY is digits PRECISION range 0 0 .0.1;

—    Определяет приоритет сегмента.

—    SEGMENT-VISIB1LITY    Уровень la

type SEGMENT-VISIB1LITY is (VISIBLE. INVISIBLE);

—    Обозначает, является ли сегмент видимым или нет.

—    STRING-PROMPT-ECHO-TYPE    Уровень 0Ь

type STRING.PROMPT-ECHO-TYPE is new INTEGER;

—    Определяет типы подсказки н эха устройства ввода строки.

—    STRING_PROMPT_ECHO_TYPES    Уровень ОЬ

package STRING-PROMPT.ECHO.TYPES is

new GKS_LIST_UTILITIES (STRING_PROMPT_ECHO_TYPE);

—    Предоставляет списки типов подсказок и эха устройства ввода строки. .

—    STROKE-PROMPT-ECHO-TYPE    Уровень ОЬ

type STROKE-PROMPT-ECHO-TYPE is new INTEGER;

—    Определяет типы подсказок и эха устройства ввода последовательное!к позиций.    .    V

—    STROKE-PROMPT-ECHO.    Уровень Ob

TYPES

package STROKE_PROMPT_ECHO_TYPES is

new GKS-LIST-UTILITIES (STROKE-PROMPT.ECHO-TYPE);

—    Предоставляет списки типов подсказок и эха ввода последовательности позиций.

—    VERTICAL-ALIGNMENT    Уровень Оа

type VERTICAL-ALIGNMENT is (NORMAL. TOP. CAP. HALF. BASE.

BOTTOM);

—    Выравнивание параллелограмма текста по отношению к вертикальной позиции текст*.

—    TEXT.ALIGNMENT    Уровень Оа

type TEXT-AL1GNMENT is

record

Страница 117

С 114 ГОСТ Р 34.1702.3-92

HORIZONTAL    : HORIZONTAL.ALIGNMENT;

VERTICAL    : VERTICAL.ALIGNMENT;

end record;

—    Тип атрибута, управляющего позиционированием параллелограмма текста по отношению к позиции текста, имеющею горизонтальные и вертикальные компоненты. как определено пмше.

—    WC.TYPE    Уровень 0а

type WC. TYPE is digits PRECISION;

—    Определяет точность для типа мировых координат.

—    WC    Уровень 0а

package WC is new GKS-COORDINATE.SYSTEM <WC_TYPE);

—    Определяет мировую систему координат.

—    TEXT-EXTENT    Уровень Оа

-PARALLELOGRAM

type TEXT EXTENT.PARALLELOGRAM is record

LOWER-LEFT    :    WC POINT;

LOWER-RIGHT    .    WC.POINT.

UPPER RIGHT    :    WC.POINT.

UPPER-LEFT    :    WC.POINT.

end record;

—    Определяет угловые точки параллелограмма текста по отношению к вертикальному позиционированию текста

— TEXT-FONT    Уровень Оа type TEXT.FONT is new INTEGER;

—    Определяет типы шрифтов, предоставляемых реализацией

—    ТЕХТ_PRECISION    '    Уровень Оа

type TEXT PRECISION is (STRING-PRECISION.

CHAR-PRECIS10N.

STROKE-PRECISlON);

—    Точность, с которой’появляется текст.

— TEXT-FONT-PRECISION    Уровень Оа type TEXT-FONT.PRECISION is

record

FONT    • TEXT-FONT;

PRECISION    : TEXT-PRF.ClSlON;

end record;

—    Данный тип определяет запись, описывающую атрибут шрифта и точности текста.

—    TEXT.FONT.PRECISIONS    Уровень Оа

package TEXT.FONT..PRECISIONS is

new GKS-LIST.UTILITIES (TEXT_FONT_PRECIS(ON).

—    Предоставляет список пар шрифта н точности текста.

—    TEXT-INDEX    Уровень Оа

type TEXT-INDEX is new POSITIVE;

—    Определяет диапазон зиа>»ений индексов таблицы связок текста

—    TEXT-1NDICES    Уровень Оа

package TEXT.INDICES is new GKS-LIST.UTILITIES (TF.XT-INDEX);

—    Предоставляет списки индексов текста.

Страница 118

ГОСТ Р 34.1702.3-9-2 С. 115

— TEXT.PATH    Уровень Оа type TEXT-PATH is (RIGHT, LEFT. UP. DOWN);

—    Направление строки текста.

—    TRANSFORMATION .FACTOR    Уровень la

type TRANSFORMATION_FACTOR is

rccord X NDC.TVPH;

Y:NDC.TYPE; end rccord:

—    .Масштаб. 1гспользуемый и матрицах преобразования для выполнения преобразования сегментов.

—    TRANSFORMATION_MATRIX    Уровень 1а

type TRANSFORMATION .MATRIX is array (I.. 2, I. 3) oi N DC-TYPE;

—    Для преобразований сегментов, отображающихся внутрь пространства НК-

—    TRANSFORMATION-NUMBER    Уровень Оа

type TRANSFORMATION_NIJMBER is new NATURAL:

—    Номер преобразования нормирования.

subtype POSITIVE-TRANSFORMATION NUMBER is TRANSFORMATION-NUMBER range I. TRANSFORMATION.NUMBERLAST;

—    Номер преобразования нормирования, соответствующий установленному преобразованию.

— TRANSFORMATION-PRIORITY    Уровень Оа ARRAY

fvpe TRANSFORMATION. PRIORITY-ARRAY is array

(POSITIVE range <>) ol TRANSFORMATION-NUMBER:

—    Тип для запоминания номера преобразования

— TRANSFORMATION.PRIORITY.    Уровень Оа LIST

tvpe TRANSFORMATION-PRIORITY-LIST (LENGTH : SMALL-NATURAL .

. = 0) is record

CONTENTS : TRANSFORMATION.PRIORITY ARRAY (I. LF.NGTH); end record;

—    Предоставляет упорядоченный no приоригегаи список номеров преобразований.

—    UPDATE- REGENERATION- *    Уровень    Оа

FLAG

type UPDATE. REGENE RATION-FLAG is (PERFORM. POSTRONE);

—    Флаг повторной генерации на дисплее.

—    UPDATE.STATE    Уровень    Оа

type UPDATE.STATE i» (NOTPENDING, PENDING).

—    Указывает, было ли запрошено изменение преобразован* станции.

—    VALUATOR.INPUT.VALUE    Уровень    Ob

type VALUATOR.INPUT-VALUE is digits PRECISION.

—    Определяет точность виодичых величин я дайной реализации.

—    VALUATOR-PROMPT-ECHO-    Уровень    0Ь

TYPE

type VALUATOR.PROMPT-ECHO-TYPE is new INTEGER;

—    Определяет возможные типы подсказок н эха устройства ввода числа.

Страница 119

С. lie ГОСТ Р 34.1702.3 -92

—    VALUATOR-PROMPT-ECHO.    Уровень    Ob

TYPES

package VALUATOR.PROMPT.ECHO.TYPES is

new GKS.LIST.UTILITIES (VALUATOR_PROMPT-ECHO_TYPE);

—    Предоставляет списки типов подсказок и *ха устройства вво!Я числа.

~ VAR1ABLE-COLOUR.MATRIX    Уроки» 0з

type VARIABLE-COLOUR-MATRIX (DX : SMALL.NATURAL : = 0;

DY • SMALI—NATURAL : - 0) is

record

MATRIX . COLOUR-MATRIX (1..DX, I...DY); end record;-

—    Предоставляег матрицы переменною размера, содержащие индексы i.eetOH. соответствующие матрице ячеек или матрице шаблонов.

— VARIABLE-CONNECTION-1D    Уродеь 0а type VARIABIE-CONNECTION-ID

(LENGTH STRING-SMALL-NATURAL г = 0) Is record

CONNECT : STRING (I.. LENGTH)? end record;

—    Определяет идентификатор свят переменной длины для INQ-WS-CONNECTION. AND-TYPE.

—    VARIABLE-PIXEL-COLOUR-    -    Ур©**-ь    Оз

MATRIX

type VARIABLE-PIXEL_COLOUR_MATRIX (DX ; SMALL-NATURAL ; = 0;

DY ; SMALL-NATURAL ; -0) i*

record

MATRIX • PIXEL-COLOUR-MATRIX (I .. DX. I.. DY); end record;

—    Предоставляет матрицы переменного размера для UWTO® пикселей.

т WS-CATEGORY    Уровыь    0а

type WS-CATEGORY is (OUTPUT. INPUT, OUTIN, WISS. MO. MI);

—    Тип для категорий станций ЯГС.

—    "WS.-1D    '    Уровень    О»

type WS-1D in new POSITIVE;

—    Определяет область идентификаторов станций.

—    WS-IDS    "    Уровень    О»

package WS-IDS i» new GKS-LlST.. UTILITIES (WS>ID);

—    Предоставляет списки идентификаторов станций.

—    WS-STATES    Уровень    0а

type WS-STATES Is (INACTIVE. ACTIVE);

—    Состояние станции.

—    WS-TYPES    Уровень    0a

type WS-TYPES is new POSITIVE;

—    Область значений, соответствующих достоверным тнпвм стзнинй. Константы, определяющие имена для различных типов станций, должны предоставляться реализацией.

—    WS.TYPES    Уровень    0»

package WS-TYPES Is new GKS.LIST.UTILITIES (WS-TYPE);

—    Предоставляет списки типов станций.

Страница 120

ГОСТ Р 34.1702.3-92 С. 117

-    I\DI VI DUAL-ATTRIBUTE-VALUES

type INDIVIDUAL-ATTRIBUTE. VALUES (s record ‘TYPE-OF. LINE WIDTH

LINE-COLOUR TYPE_OF_ MARKER SIZE

MARKER-COLOUR FONT-PRECISION EXPANSION SPACING TEXT-COLOUR INTERIOR STYLE

FILL A REA,COLOUR ASF

end record:

—    Запись, содержащая текущие

Уровень l)a

LINETYPE;

LINEWfDTH;

COLOUR-INDEX; MARKER-TYPE; MARKER.SIZE;

COLOUR INDEX.. TEXT.FONT PRECISION; CHAR-EXPANSION; CHAR-SPACING; COLOUR-INDEX; fNTERIOR-STYLE. STYLE. INDEX.

colour-index.

ASF-LIST;

индивидуальные атрибуты для процедуры INQ-CURRENT-INDIVIDU'AL-ATTRIBUTE-VALUES.

—    PRIMITIVE-ATTRIBUTE-    Уровень    0a

-VALUES

t;;\ PRIMITIVE-ATTRIBUTE-VALUES is •ecord INDEX-POLYLINE INDEX-POLYMARKER 1NDEX-TEXT CHAR-HEIGHT CHAR-UP-VECTOR CHAR. WIDTH CHAR-BASE. VECTOR PATH

POLYLiNE-INDEX. POLYMARKER-INDEX: TEXT-INDEX;

WC MAGNITUDE.

WC.VECTOR;

WCMAGNITUDE.

WC.VECTOR;

ItXT-PATH,

TEXT-ALIGNMENT FILL AREA-INDEX; WC VECTOR:

WC VECTOR;

WC PO[NT:

ALIGNMENT INDEX .FILL.AREA PATTERN .WIDTH-VECTOR PATTERN-HEIGHT. VECTOR PATTERN-REFERENCE.

POINT

end record; *

—    Запис»., содержащая атрибуты текущего примитива для процедуры INQ CURRETsT-PRIMlTIVE-ATTRIBUTE-VALUES.

—    Далее задается предопределенное прерывание GKS'ERROR. заданное и п 3.2.3.

GKS-ERROK : evception;

—    Далее идут декларации зависящих от реализация констант для определения типов ЯГС/Ада, Некоторые константы используют для задания значений параметров. принимаемых по умолчанию, процедурам ЯГС.

—    Следующие коистаиты определяют стандартные типы линий ЯГС:

SOLID_LINE DASHED. LINE DOTTED. LINE DASHMD-DOTTED.LINE

constant LINETYPE :-l constant LINETYPE : = 2 constant LINETYPE :==3 constant LINETYPE :~4.


Страница 121

С. 118 ГОСТ Р 34.1702.3-92

Следующие константы определяю! стандартные типы маркеров ЯГС:

DOT-MARKER    :    constant    MARKER_TYPE =1;

PLUS-МЛRKER    -    constant    MARKER-TYPE :-2;

STAR-MARKER    constant MARKER-TYPE ;=3;

ZERO-MARKER    constant MARKER-TYPE :^4;

X-MARKER    •    constant    MARKER-TYPE ; = 5;

Следующие константы определяют типы подсказок и эха, поддерживаемые» ЯГС:

DEFAULT.LOCATOR CROSS-HAIR-LOCATOR

constant LOCATOR-PROMPT-ECHO-TYPE

constant LOCATOR . PROMPT-ECHO-TYPE . = 2; constant LOCATOR-PROMPT-F.CHO -TYPE --З;

constant LOCATOR-PROMPT_ECHO-TYPE :-4;

constant LOCATOR.PROMPT-ECHO_TYPE :=»5; constant l.OCATOR-PROMPT_ECHO_TYPE -6;

constant STROKE-PROMPT-ECHO-TYPE :^1 constant STROKE-PROMPT-BCHO-TYPF. :-2 constant STROKE. PROMPT. ECHO- TYPF. »3 constant STROKE_PROMPT-ECHO_TYPE :-=4

constant VALUATOR-PROMPT-

ECHO-TYPE .-I constant VALUATOR-PROMPT-

ECHO TYPE :=»2

constant VALUATOR. PROM PT

ECHO_TYPE

constant CHOICE-PROMPT-ECHO-TYPE : = l; constant CHOICE.PROMPT-ECHO- TYPE :-2;

TRACKING.CROSS.

LOCATOR

RUBBER-BAND-LINE -LOCATOR

RECTANGLE-LOCATOR DIGITAL LOCATOR

DEFAULT-STROKE DIGITAL. STROKE MARKER-STROKE LINE-STROKE DEFAULT-VALUATOR

GRAPHICAL-VALUATOR DIGITAL-VALUATOR

DEFAULT-CHOICE PROMPT, ECHO.

CHOICE

: constant CHOICE-PROMPT-ECHO-TYPE : = 3;

: constant CHOICE PROMPT .ECHO- TYPE :=*4

: constant CHOICE-PROMPT. ECHO. TYPE :=5 : constant STRING-PROMPT_ECHO_ TYPE :~l : constant PICK-PROMPT_ECHO_ TYPE :=l;

: constant PlCK-PROMPT_ECHO„ TYPE -. = 2.

: constant P1CK-PROMPT.ECHO.TYPE :=3;

STRING_PROMPT_

CHOICE

STRING-INPUT--CHOICE

SEGMENT-CHOICE

DEFAULT-STR1NG DEFAULT-PICK GROUP-HIGHLIGHT--PICK

SF.GMENT-H1GHLIGHT-.

-PICK

—    Следующие константы используют для задания принимаемых по умолчанию значений параметров процедурам ЯГС.

DEFAULT.MAMORY-    : constant    : — 0;

UNITS

DEFAULT-ERROR-FILE ; constant STRING    : - « »;

end GKS-TYPES;

-    ПАКЕТ ЯГС    *

Страница 122

ГОСТ Р 34.1702.3-92 С. 119

with GKS-TYPES. u« GKS-TYPES. package OKS is

—    Пакет Я ГС содержит все процедуры, которые требуются для реализации уровня 2с ЯГС.

—    Последующие типы данных являются личными н включены в пакет ЯГС для легкости манипулирования.

— CHOICE-DATA-RECORD    Уровень Ob

type CHOICE DATA. RECORD (PROMPT_ECHO_TYPE

'CHOICE.PROMPT.ECHO_TYPE • - DEFAULT-CHOICE) i* private;

—    Определяет запись для инициализации устройства выбора

—    OKSM_DATA_RECORD    Уровень    ОЬ

type GKSM-DATA.RECORD (TYPE-OF-ITEM : GKSM-ITEM-TYPE : -0;

LENGTH ; NATURAL : = 0) is private;

—    Запись данных для метафайла GKSM.

—    LOCATOR..DATA-RECORD    Уровень    Ob

l>pe LOCATOR-DATA-RECORD (PROMPT_ECHO_TYPE:

LOCATOR-PROMPT-ECHO .TYPE : = DEFAULT. LOCATOR)

is private;

—    Определяет запись для инниналнзаиил устройства ввода позиции.

—    PICK-DATA-RECORD    Уровень    1Ь

type PICK-DATA-RECORD (PROMPT-ECHO-TYPE:

PICK-PROMPT-ECHO-TYPE : = DEFAULT-PICK) is private;

—    Определяет запись для инициализации устройства указания

—    STRING-DATA-RECORD    Уровень ОЬ

type STRING_DATA_RECORD (PROMPT_ECHO_TYPE:

STRING-PROMPT.F.CHO.TYPE : - DEFAULT-STRING) Is private;

—    Определяет запись для инициализации устройства ввода строки.

STROKE-DATA-RECORD    Уровень ОЬ

tvpc STROKE-DATA-RECORD (PROMPT_ECHO_TYPE:

STROKE-PROMPT-ECHO-TYPE : - DEFAULT-STROKE) is private;

—    Определяет запись для инициализации устройства ввода последовательности позиций.

—    VALUATOR-DATA-RECORD    Уровень Ob

t\pe VALUATOR. DATA-RECORD <PROMPT_ECHO_TYPE:

VALUATOR-PROMPT_ECHO-TYPE . = DEFAULT.VALUATOR»

is private-

—•Определяет запись для инициализации устройства ввода числа.

—    Полпрограммы для манипулирования записями данных ввода.

—    Процедуры н функции, определенные ниже, необходимы для построения и опроса записей входных данных, декларированных как личные типы в пакете для каждою ю шести классов устройств ввода, определенных спецификацией ЯГС. Процедуры, представленные ниже, используют для построения записей данных для каждого на thud» подсказок н эха устройств, применяемых для инициализации конкретных устройств ввода Также предоставлены соответствующие функции, позволяющие прикладному программному обеспечению Я ГС/Ад а проанализировать части записи данных, которые определены ЯГС. Любую специфическую для реализации информацию и записях данных поддерживают личной и недоступной. Прерывания GKS-ERROR возникают, если любую из приведенных ниже ппоцедур исшчьзуют неправильно. Таким образом, если

Страница 123

С 120 ГОСТ Р 34.1702.3-.92

применяют недопустимый гаи подсказки и эха, п файле ошибок регистрируют ошибку номер 2500.

—    Операции над записями данных устройства ввода позиций

procedure BUILD.LOCATOR DATA RECORD (PROMPT_F.CHO.TYPE    . in LOCATOR.PROMPT.ECHO.TYPE;

DATA.RECORD    : oul LOCATOR-DATA RECORD):

—    Строит и возвращает запись данных устройства ввода позиций. .

procedure BUILD. STROKE .DATA. RECORD (PROMPT.ECHO TYPE    in    STROKE-PROMPT.ECHO.TYPE;

BUFFER-SIZE    in    POSITIVE;

DATA.RECORD    :    out STROKE-DATA RECORD).

—    Строит н возврзщает запись .данных    устройства ввода последовательноеw по

лиций.

function BUFFER.SIZE (DATA.RECORD : in STROKE..DATA-RECORD) return POSITIVE:

—    Операции над записями данных устройства ввода числа.

procedure BUILD,VALUATOR DATA RECORD

(PROMPT.ECHO.TYPE    in    VALUATOR.PROMPT.ECHO.

TYPE;

LOW.VALUE    in    VALUATOR.INPUT.VALUE;

HIGH. VALUE    :    in VALUATOR.INPUT.VALUE;

DATA.RECORD    :    out VALUATOR.DATA. RECORD);

—    Строит и возвращает запись данных устройства ввода числа.

function HIGH VALUE (DATA.RECORD : in VALUATOR.DATA.RECORD) return VALUATOR.INHJT. VALUE;

—    Возвращает наибольшее число, запомненное а записи данных устройства ввода числа.    .

function LOW-VALUE (DATA.RECORD : in VALUATOR-DATA.RECORD)' return VALUATOR.INPUT.VALUE;

—    Возвращает наименьшее число, запомненное в записи данных устройства ввода числа.

—    Операции над записями данных устройства выбора. „

procedure BUILD. CHOICE. DATA-RECORD

(PROMPT-ECHO.TYPE    : In CHOlCE_PROMPT_ECHO..TYPE;

DATA.RECORD    : out CHOICE.DATA.RECORD);

—    Строит и возвращает запись данных устройства выбора.

—    Операции над записями данных устройстпа указания.

procedure BUII.D.PICK-DATA.RECORD

(PROMPT.ECHO.TYPE    :    in    PICK.PROMPT.ECHO. TYPE-

DATA.RECORD    :    out PICK.DATA.RECORD);

—    Строит h возвращает запись данных устройства указания.

—    Операции над записями данных устройства ввода строки.

procedure BUII.D STRING.DATA.RECORD

(PROMPT.ECHO.TYPE    :    in    STRlNG-PRO.4PT_ECHO.TVPE;

1NPUT.BUFFER. SIZE    :    in    POSITIVE;

Страница 124

ГОСТ Р 34.1702.3-92 С. 121

JNITIAL-CURSOR-POSITION    : in NATURAL;

DATA-RECORD    : out STRING.DATA_RECORD):

—    Строкт ;i аозврашвег лапись данных строки, function INPUT..BUFFER SIZE

(DATA RECORD : in STRING-DATA-RECORD) return NATURAL:

—    Возвращает размер буфера, использованного для запоминания строки. раз-мешенной в записи данных строки.

(unction INIT1AL..CURSOR-POSITION

• DATA RECORD : in STRING-DATA-RECORD) return NATURAL;

—    Возвращает начальную позицию курсора для устройства ввода строки, запомненного в записи данных устройства ввода строки.

—    Процедуры ЯГС

—    ФУНКЦИИ УПРАВЛЕНИЯ

procedure OPEN.GKS (ERROR.FILF.

•DEFAULT-ERROR-

FILE;

= DEFAULT-MEMORY.

UNITS);

in STRING in NATURAL

AMOUNT-OF.MEMORY

procedure CLOSE-OKS; procedure OPEN .WS (WS

in WS-ID; in STRING; in WS.TYPE);

CONNECTION TYPF.-OF-WS

procedure CLOSE-WS (WS : in WS-ID);

procedure ACTIVATE..WS (WS : in WS_ID);

procedure DEACTIVATE-WS (WS : in WS-ID);

procedure CLEAR.WS iWS : in WS-ID);

FLAG : in CONTROL.FLAG*:

procedure REDRAW_ALL_SEGMENTS-ON WS (WS ; in WS-ID);

procedure UPDATE.WS (WS

REGENERATION

in WS-ID; in UPDATE-REGENERATION-

FLAG);

procedure SET-DEFERRAL-STATE

(WS

nEFfRRAL

REGENERATION

procedure MESSAGE (WS

CONTENTS

in WS-ID;

in DEFERRAL-MODE;

In REGENERATION_MODE);

in WS-ID; ' in STRING);


Страница 125

С. 122 ГОСТ Р 34.1702.3-92

—    ФУНКЦИИ ВВОДА ГРАФИЧЕСКИХ ДАННЫХ procedure POLYLINE

(POINTS    ;    in    WC.POINT-ARRAY);

procedure POLYMARKER

I POINTS    :    in    WC.POINT.ARRAY);

procedure TEXT

(POSITION    :    in    WC POINT;

CHAR.STR1NG    :    in    STRING);

procedure- F1LL.AREA

(POINTS    :    in    WC POINT. ARRAY);

procedure CELL-ARRAY

(CORNER_l_l    :    in    WC.POINT;

CORNFR-DX DY    :    in    WC POINT.

CELLS    :    in    COLOUR-MATRIX);

-    ФУНКЦИИ ЗАДАНИЯ АТРИБУТОВ ВЫХОДНЫХ ДАННЫХ procedure SET.POLYL1NE.INDEX

(INDEX    :    in    POLYLINE.INDEX);

procedure SET.LINETYPE

(TYPE-OF.LINE    :    in    LINF.TYPE);

procedure SET.LINLWIDTH. SCAI.E-FACTOR

(WIDTH    :    in    LINEWIDTH);

procedure SET.POLYL1NE.COLOUR-INDEX

(L1NE..COLOUR    :    in    COLOUR.1NDEX)-,

procedure SET POLYMARKER-INDEX

(INDEX    :    in    POLYMARKER-INDEX);

procedure SET-MARKER-TYPE

(TYPE-OF-MARKER    :    in    MARKER-TYPE);

procedure SET-MARKliR..SlZE_SCALE-FACTOR

(SIZE    _    :    in    MARKER-SIZE);

procedure SET.POLYMARKER^COLOUR.INDEX

(MARKER-COLOUR    :    in    COLOUR-INDEX);

procedure SET-TEXT-1NDEX

(INDEX    :    in    TEXT.INDEX);

procedure SET. TEXT-FONT.AND.PRECISION

(FONT-PRECIS ION    :    in    TEXT.FONT„PRF.CISION);

procedure SET^CHAR.EXPANSION.FACTOR

(EXPANSION    :    in    CHAR.EXPANSION);

procedure SET.CHAR.SPACING

(SPAS1NG    :    In    CHAR.SPACING)

procedure SET.TF.XT.COLOUR.INDEX

(TEXT.COLOUR    :    in    COLOUR.INDEX)

procedure SET.CHAR.HElGHT

(HEIGHT    :    in    WCJMAGNITUDE)

Страница 126

ГОСТ Р 34.1702.3-92    C. 12S

procedure SET_CH.^.UP.VECTOR

(CHAR. UP.VECTOR    : in WC VECTOR);

proccdurt $ET_TEXT_PATH

(PATH    ;    in    TEXT.PATH);

procedure SET_TEXT_ALIGNMENT

(ALIGNMEN    :    In    TEXT.ALIGNMENT);

procedure SET.FILL. AREA.INDEX

(INDEX    :    in    FILL. A REA. INDEX),

piocedure SET_FILL_AR£A_INTERI0R_STYLE

(INTERIOR    :    in    INTERIOR.STYLE);

procedure SET. FILL. AREA .STYLE-INDEX

fSTYLE    . in    STYLE.fNDEX);

procedure SET.FILL.AREA.COLOUR.INDEX

(FILL.AREA.COLOUR    : in    COLOUR.INDEX);

procedure SET.PATTERN.SIZE

(SIZE    . in WC.SIZE);

procedure SET PATTERN.REFERENCE.POINT

(POINT    : in WC POINT);

procedure SET.ASF

*

(ASF    : in ASF LIST);

procedure SET.P1CK.1D

(PICK    : in PICK ID);

procedure SET.POLYLINE.REPRESENTATION

(WS    in    WS-ID;

INDEX    : In POLYLINE.INDEX;

TYPE.OF.LINE    ; in LINETYPE;

WIDTH    : in LINEWIDTH;

LINE-COLOUR    : In COLOUR_lNDEX)f

procedure SF.T-POLYMARKER-REPRESENTATION (WS    : in    WS-ID;

INDEX    : in    POLYMARKER.INDEX;

TYPE.OF.MARKER    : in MARKER.TYPE;

SIZE    : in MARKER.SIZE;

MARKER.COLOUR    .    :    in    COLOUR.1NDEX),

procedure SET-TEXT-REPRESENTATION

(WS    : in    WS-ID;

INDEX    ; in    TEXT-INDEX;

FONT.PRECISION    : in    TEXT.FONT.PRECISION.

EXPANSION    : in    CHAR-EXPANSION;

SPACING    : in    CHAR-SPACING;

• TEXT-COLOUR    : in    COLOUR-INDEX):

piocedure SET-FILL-AREA-REPRESENTATION (WS    • in WS.ID;

INDEX    : in FILL.AREA.INDEX;

INTERIOR    : in INTERIOR.STYLE;

STYLE    : in STYLE.INDEX:

FILL.AREA..COLOUR    : in COLOUR-INDEX);

Страница 127

С 124 ГОСГ Р 34.1702 3-9-2

(WS INDEX

procedure SET_PATTERN_REPRESF.NTATION

(WS    •    in    WS-ID;

INDEX    .    in    PATTERN.INDEX.

PATTERN    :    in    COLOUR MATRIX),

procedure SET.COLOUR-REPRESENTATION

RGB_COLOUR

— ФУНКЦИИ ПРЕОБРАЗОВАНИЯ procedure SF.T.WINDOW (TRANSFORMATION

WINDOW LIMITS

procedure SET„V1EWP0RT (TRANSFORMATION

VIEWPORT-LIMITS

in WS-ID.

in COLOUR.INDEX; ' in COLOUR .REPRESENTATION);

in POSITIVE-TRANSFORMATION.

-NUMBER; in WC RECTANGLE-LIMITS);

in POSITIVE.TRANSFORMATION--NUMBER; in NDC.RECTANGLE.LIMITS);


procedure SET_YTEWPORT_INPUT_PRIORlTY

(TRANSFORMATION    .    in    TRANSFORMATION.NUMBER;

REFERENCE-    :    In    TRANSFORMATION-NUMBER;

TRANSFORMATION

PRIORITY    :    In    RELATIVE-PRlORITY).

procedure SELECT-NORMALIZATION-TRANSFORMATION

(TRANSFORMATION

in TRANSFORMATfON_NUMBER): in CLIPPING.INDICATOR); ‘ in WS-ID:

In NDC RECTANGLE-LIMITS): in WS-ID;

in DC RF.STANGLE LIMITS);

procedure SET-CLIPPING.INDICATOR (CLIPPING

procedure SF.T_WS_WINDOW (WS

WS_WINDOW_ LIMITS

procedure SF.T.WS.VIF.WPORT (WS

WS.VIEWPORT-LIMITS

— ФУНКЦИИ СЕГМЕНТАЦИИ

procedure CREATE.SEGMENT (SEGMENT

in SEGMENT..NAME);

procedure CLOSE.SEGMENT; procedure RENAME .SEGMENT

(OLD.NAME NEW.NAME

in SEGMENT.NAME); in SEGMENT.NAME);

in SEGMENT.NAME);

procedure DELETE.SEGMENT (SEGMENT procedure DE LETE. SEGMENT. FROM-WS

(WS    : in WS-ID:

SEGMENT    : in SEGMENT.NAME):

procedure ASSOClATE_SEGMENT.WITH.WS

(WS    ; In WS.ID.

SEGMENT    : In SEGMENT.NAME);

Страница 128

ГОСТ Р 34.1702.3-92 С. I2S

procedure COPY SEGMENT TO.WS • (WS

SEGMENT

in WS ID.

m SEGMENT-NAME);

procedure INSERT SEGMENT (SEGMENT TRANSFORMATION

■ in SEGMENT.NAME;

: .n TRANSFORMATION MATRIX): procedure SET-SEGMENT TRANSFORMATION


(SEGMENT TRANSFORMATION

procedure SET.VISIBILITY (SEGMENT VISIBILITY

procedure SET-HIGHLIGHTING (SEGMENT HIGHLIGHTING

procedure SET-SEGMENT.PRIORITY (SEGMENT PRIORITY

procedure SET.DETECTABILITY (SEGMENT DETECTABILITY

— ФУНКЦИИ ВВОДА

procedure INITIALISE.LOCATOR (WS

DEVICE

INITIAL-TRANSFORMATION INITIAL .POSITION ECHO.AREA DATA.RECORD

procedure INITIALISE.STROKE (WS DEVICE

INITIAL .TRANSFORMATION INITIAL.STROKE ECHO.AREA DATA.RECORD procedure INITIALISE.VALUATOR (WS DEVICE

INITIAL.VALUE ECHO.AREA DATA.RECORD procedure INITIALISE-CHOICE (WS

DEVICE

INITIAL-STATUS INITIAL-CHOICE ECHO.AREA DATA.RECORD

in SEGMENT.NAME; in TRANSFORMATION.MATRIX);

in SEGMENT NAME.

: in SEGMENT.V'ISIBILITY);

in SEGMENT-NAME;

: in SEGMENT-HIGHLIGHTING).

. in SEGMENT-NAME;

: in SEGMENT.PRIORITY);

: in SEGMENT-NAME;

In SEGMENT-DETECTABILITY);

in WS-ID;

in LOCATOR.DEVICE-NUMBER. in TRANSFORMATION-NUMBER; . in WC.POINT;

in DC.RECTANGLE-LIMITS; in LOCATOR. DATA .RECORD);

in WS_ID;

in STROKE.DEVICE.NUMBER;

in TRANSFORMATION-NUMBER;

in WC.POINT.ARRAY; in DC.RESTANGLE.LIMITS; in STROKE.DATA.RECORD); •

in WS-ID;

in VALUATOR.DEVICE.NUMBER; in VALUATOR-INPUT.VALUE; in DC.RECTANGLE-LIMITS; in VALUATOR.DATA.RECORD);

in WS.ID;

in CHOICE.DEVICE.NUMBER; in CHOICE-STATUS; in CHOICE.VALUE; in DC RF.STANGLE.LIMITS; in CHOICE-DATA-RECORD);


Страница 129

С. 126 ГОСТ Р 34.1702.3-92

procedure INITIALISE-P1CK (WS DEVICE

IN1TIAL-STATUS INITIAL.SEGMENT INITJAL-PICK ECHO-AREA DATA-RECORD

procedure IN1TIAL1SE-STRING (WS DEVICE

INITIAL-STRIN'G ECHO-AREA DATA-RECORD .procedure SET-LOCATOR-MODE (WS DEVICE MODE SWITCH

procedure SET-STROKE-MODE (WS DEVICE MODE SWITCH

procedure SET_VALUATOR_MODE (WS

DEVICE

MODE

SWITCH

procedure SET_CHOICE_MODE <WS

DEVICE

MODE

SWITCH

wroccdurc SET-PICK-MODE (WS

DEVICE

MODE

SWITCH

procedure SET_STRING_MODE

Device

mode

SWITCH

procedure REQUEST,LOCATOR (WS

DEVICE

STATUS

TRANSFORMATION

POSITION

: in WS_ID:

: m PICK-DEV ICE-NUMBER;

: in PICK.STATUS:

: in SEGMENT. NAME.

in P1CK-LD;

: in DC RESTANGLE-LIM1TS; r in PICK-DATA. RECORD)

: in WS-ID:

: in STRING-DEVICE-NUMBER;

: in 1NPUT-STRING;

: in DC RECTANGLE-L1MITS;

: in STRING..DATA.RECORD):

: in WS-ID;

: in LOCATOR-DEVICE-NUMBER;

• in OPERATION-MODE;

: in ECHO-SW1TCH);

: in WS-ID;

: in STROKE.DEVICE.NUMBER.

: in OPERATING.MODE;

: In ECHO-SWITCH);

: In WS-ID;

: in VALUATOR.DF.VICE. NUMBER; : in OPERATING_MODE;

■ in ECHO-SWITCH);

: in WS-ID;

: In CH01CE-DEV1CE.NUMBER;

: in OPERATING_MODE;

£ In ECHO-SWITCH);

: In WS-ID:

: in PICK-DEVICE-NUMBER;

: in OPE RATING» MODE;

: in ECHO-SWITCH);

: in Ws'lD:

: in STRING „DEVICE..NUMBER;

: in OPERATING-MODE;

: in ECHO-SWITCH);

in WS-ID.

in LOCATOR_DEVlCE„NUMIiER; out INPUT-STATUS-out TRANSFORMATION-NUMBER; out WCPOINT);


Страница 130

ГОСТ Р 34.1702.3-92 С. 1*7

procedure REQUEST-STROKE <WS DEVICE STATUS

TRANSFORMATION STROKE-POINTS

procedure REQUEST VALUATOR <WS DEVICE STATUS VALUE

procedure REQUEST-CHOICE (WS DEVICE STATUS

CHOICE-NUMBER procedure REQUEST-P1CK (WS DEVICE STATUS - SEGMENT PICK

procedure REQUEST-STRING <WS DEVICE STATUS CHAR, STRING

procedure SAMPLE-LOCATOR (WS

DEVICE

TRANSFORMATION

POSITION

procedure SAMPLE-STROKF.

(WS

DEVICE

TRANSFORMATION STROKE -POINTS

procedure SAMPLE.VALUATOR (WS

DEVICE

VALUE

procvdure SAMPLE-CHOICE .WS DEVICE STATUS

CHOICE. NUMBER jireceiiir* SAMPLE.PICK (WS

DEVICE 5 Згк. 2?7

: in WS-ID:

: in STROKE_DEVICE-NUMBER;

: out IN PUT-STATUS:

. out TRANSFORMATION.NUMBER; : out WC POINT-LIST);

; In WS.ID;

: in VALUATOR DEVICE-NUMBER; : oul INPUT-STATUS;

: out VALUATORJNPUT-VALUE);

: in WS.ID:

: in CHOICE-DEVICE-NUMBER.

: oul CHOICE-REQUEST.STATUS;

: out CHOICE-.VALUE);

: in WS.ID;

: in PICK-DEVICE-NUMBER;

: out PICK-REQUEST. STATUS;

: out SEGMFNT-NAME;

: out PICK.ID):

In WS-ID;

in STRING-DEVICE-NUMBER; out IN PUT-STATUS; out INPUT.STRING);

: in WS-ID;

: in LOCATOR-DEVICE-NUMBER;

: out TRANSFORMATION-NUMBER; : *ut WC.POINT);

; in WS-ID;

: in STROKE.DEVICE.NUMBER;

: out TRANSFORMATION-NUMBER; : out WC.POINT.LIST):

: in WS-ID.

• in VALUATOR-DEVICE-NUMBER; ■ out VALUATOR.INPUT-VALUE);

in WS-ID;

in CHOICE DEVICE-NUMBER; out С HO ICE-STATUS, oul CHOICE-VALUE);

. in WS-ID.

: in PICK-DEVICE-NUMBER.


Страница 131

С. 128 ГОСТ Р 34.1702.3-92

STATUS

SEGMENT

PICK

procedure SAMPLE.STRING <WS

DEVICE

CHAR.STRING

procedure AWAIT.EVENT (TIMEOUT WS

CLASS

DEVICE

procedure FLUSH-DEVICE-EVENTS (WS CLASS DEVICE

procedure GET-LOCATOR (TRANSFORMATION POSITION

procedure GET_STROKE (TRANSFORMATION STROKE POINTS

procedure GET.VALUATOR (VALUE procedure GET_CHOICF.

(STATUS

CHOICE,, NUMBER procedure GET.P1CK (STATUS SEGMENT PICK

procedure GET. STRING (CHAR.STRING - ФУНКЦИИ МЕТАФАЙЛА procedure WRITE-1TEM-TO.GKSM (WS ITEM

: out PICK .STATUS:

; out SEGMENT-NAME;

: out PlCK-ID):

•    in WS ID:

: in STRING-DEVICE-NUM8ER;

: out INPUT.STRiNG);

: in DURATION.

•    out WS-ID;

. out INPUT-CLASS: out EVENT.DEVICE-NUMBER);

in WS-ID;

in INPUT-QUEUE-CLASS, in EVENT-OVERFLOW-DEVICE.

NUMBER)

out TRANSFORMATION .NUMBER; out WC.POINT);

: out TRANSFORMATION.NUMBER.

: out WC POINT, LI ST);

: out VALUATOR-INPUT.VALUE);

: out CHOICE.STATUS;

: out CHOICE-VALUE);

: out PICK-STATUS:

: out SEGMENT-NAME:

: out PJCK-JD);

: out INPUT-SXRING); *

. in WS-ID;

• in GKSM_DATA_RECORD);


procedure GET_ITEM_TYPF._FROM_GKSM

(WS    in WS-ID; '

TYPE-OF.ITEM    .    out GKSM-ITEM-TYPE;

LENGTH    :    out NATURAL);

procedure READ.ITEM-FROM.GKSM

(WS    in WS-ID.

МАХ-LENGTH    :    in NATURAL;

ITEM    :    out GKSM.DATA.RECORD);

Страница 132

ГОСТ Р 34.1702.3-92 С. 12»

procedure INTERPRET.ITEM (ITEM

— СПРАВОЧНЫЕ ФУНКЦИИ procedure INQ OPE RATING-STATE .VALUE

(VALUE    :    out    OPERATING .STATE):

procedure INQ LEVEL OF.GKS

(ERROR.INDICATOR    :    out    ERROR.NUMBER;

LEVEL    :    out    GKS.LEVEL).

procedure INQ-LIST.OF.AVAILABLE.WS.TYPES

(ERROR.INDICATOR    :    out    ERROR..NUMBF.R.

TYPES    :    out    WS.TYPES LIST OF);

procedure INQ.WS..MAX,NUMBERS (ERROR. INDICATOR MAX-OPEN-WS MAX_ACTIVE_WS MAX.SFGMENT.WS

in GKSM.DATA. RECORD);

• out ERROR-NUMBER. ; out POSITIVE;

: out POSITIVE.

: out POSITIVE);

procedure 1NQ-MAX_NORMAL1ZATION_TRANSFORMATION_NUMBER (ERROR.INDICATOR    : out ERROR-NUMBER.

TRANSFORMATION    . out TRANSFORMATION .NUMBER):

procedure INQ_SET.OF_OPEN.WS (ERROR. INDICATOR WS

: "out ERROR.NUMBER;

: out WS_1DS.LIST.0F);

: out ERROR.NUMBER;

: out WS- IDS I.IST-OF);

procedure INQ SET.OF_ACTIVE.WS (ERROR. INDICATOR WS

procedure INQ_CURRF.NT_ PRIMITIVE-ATTRIBUTE .VALUES (ERROR-INDICATOR    :    out    ERROR-NUMBER;

ATTRIBUTES    :    out    PRIMITIVE-ATTRIBUTE-

VALUES)t

procedure INQ. POl.YLINE.INDEX

(ERROR.INDICATOR    :    out    ERROR.NUMBER;

INDEX    :    out    POLYLINE.INDEX);

procedure INQ.POLYMARKER. INDEX (ERROR. INDICATOR INDEX

out ERROR-NUMBER; out POLYMARKER.INDEX).

out F.RROR NUMBER. out TEXT.INDEX);

out ERROR-NUMBER; out WC MAGNITUDE);

out ERROR-NUMBER; out WC.VECTOR);

out ERROR-NUMBER. out WC.MAGNITUDE).

procedure 1NQ.TEXT.INDEX (ERROR-INDICATOR INDEX

procedure INQ CHAR.HEIGHT (ERROR.INDICATOR HEIGHT

procedure INQ CHAR.UP.VECTOR (ERROR.INDICATOR VECTOR procedure INQ.CHAR.WIDTH (ERROR.INDICATOR .

WIDTH

Страница 133

С. 130 ГОСТ Р 34.1702.3-92

■procedure INQ CHAR.BASF. VECTOR

(ERROR.INDICATOR    - out    ERROR.NUMBER:

VECTOR    : out    WC.VECTOR);

■procedure INQ_TEXT_PATH

(ERROR.INDICATOR    : out    ERROR.NUMBER;

PATH    : out    TEXT.PATH);

procedure INQ.TF.XT.ALIGNMENT

(ERROR-INDICATOR    • out ERROR-NUMBER:

ALIGNMENT    . out TEXT.ALIGNMENT); *

procedure INQ-FILL. AREA, INDEX

(ERROR.INDICATOR    : out ERROR.NUMBER;

INDEX    : out FILL.AREA.INDEX);

procedure INQ. PATTERN .WIDTH.VECTOR

(ERROR.INDICATOR    : out ERROR.NUMBER.

WIDTH    : out WC.VECTOR);

procedure INQ.PATTERN_HElGHT_VF.CTOR

(ERROR.INDICATOR    . out ERROR-NUMBER;

VECTOR    : out WC.VECTOR);

procedure INQ. PATTERN.REFERENCE.POINT

(ERROR.INDICATOR    : out ERROR.NUMBER;

REFERENCE-POINT    : out WC POINT),

procedure INQ.CURRENT PICK.ID.VALUE

(ERROR.INDICATOR    : out ERROR.NUMBER;

PICK    : out PICK-ID);

procedure INQ-CURRENT, INDIVIDUAL. ATTRIBUTE .VALUES (ERROR.INDICATOR    : out ERROR-NUMBER;

Attributes    : out individual.attributf.-

VALUES);

procedure 1NQ.LINETYPE

(ERROR.INDICATOR    : oul ERROR.NUMBER;

TYPE. OF-LINE    :.out LINETYPE); .

procedure INQ.LINEWIDTH.SCALE.FACTOR

(ERROR-INDICATOR    : out ERROR.NUMBER;

WIDTH    : out LINEWIDTU);

procedure INQ-POLYLINE .COLOUR.1NDEX

(ERROR. INDICATOR    : out ERROR.NUMBER;

LINE-COLOUR    : oul COLOUR.INDEX).

procedure INQ.POLYMARKER-TYPE

(ERROR.INDICATOR    : out ERROR-NUMBER;

ТУРЕ-OF.MARKER    ”    :    out    MARKER-TYPE).

procedure INQ. POLYMARKER-SIZE. SCALE.FACTOR

(ERROR. INDICATOR    out ERROR.NUMBER;

SIZE    . out MARKER.SIZE);

procedure INQ.POLYMARKER-COLOUR.INDEX

<FRROR_INDICATOR    • out ERROR.NUMBER;

MARKER-COLOUR    : out COLOUR .INDEX);

Страница 134

ГОСТ Р 34.1702.3-9? С. IS»

procedure I NQ.TEXT_FONT_ AND-PRECISION

lERROR.INDICATOR    : out ERROR NUMBER;

FONT-PRECISION    : oul TEXT-FONT.PRECISION):

procedure INQ..CHAR_EXPANSION_FACTOR

(ERROR.INDICATOR    : oul ERROR,NUMBER;

EXPANSION    ; out CHAR-EXPANSION);

procedure INQ-CHAR.SPAS1NG

(ERROR.INDICATOR    : out ERROR-NUMBER;

SPACING    . out CHAR. SPACING);

procedure lNQ_TEXT.COLOUR_INDEX

(ERROR-INDICATOR    : out ERROR-NUMBER;

TEXT.COLOUR    : out COLOUR-INDEX);

procedure INQ_FILL_AREA_INT£RIOR_STYLE

(ERROR-INDICATOR    : out ERROR-NUMBRR;

INTERIOR    out INTERIOR-STYLE);

procedure INQ. FILL-ARF.A-STYLE INDEX

(ERROR-INDICATOR    : out ERROR-NUMBER;

STYLE    : out STYLE_INDEX);

procedure 1NQ_F1LL_AREA_C0L0UR_1NDEX

(ERROR-INDICATOR    ; out ERROR-NUMBER.

FILL-AREA-COLOUR    : out COLOUR,INDEX);

procedure INQ_LlST_OF.ASF •

(FRROR-INDICATOR    : out ERROR-NUMBER;

LIST    ; out ASF-L1ST);

procedure INQ CURRENT NORMALIZATION-TRANSFORMATION-NUMBER (ERROR-INDICATOR    ; out ERROR-NUMBER;

TRANSFORMATION    out TRANSFORAUTION.NUMBER);

procedure INQ_LIST_OF_NORMALIZATION_TRANSFORMATION_NUMBHRS (ERROR-INDICATOR    : out ERROR-NUMBER;

LIST    : out TRANSFORMATION-PRIORITY-

-LIST);.

procedure INQ-NORMALIZATION.TRANSFORMATION

(TRANSFORMATION    „    :    in    TRANSFORMATION.NUMBF.R;

ERROR.INDICATOR    : out F.RROR-NUMBER;

WINDOW-LIMITS    : out WC RESTANGLE.LIMITS;

VIEWPORT.LIMITS    : out NDC RECTENGLE.LIMITS);

procedure INQ-CLIPPING

(ERROR.INDICATOR    : out ERROR-NUMBER;

Clipping    : out clipping.indicator;

CLIPPING-RECTANGLE-    : out NDC RECTANGLE-LIMITS)-

LIMITS

procedure INQ_NAME_OF_OPEN_SEGMF.NT

(ERROR.INDICATOR    ; out ERROR-NUMBER;

SEGMENT    : out SEGMENT-NAME);

procedure INQ_SET.OF.SEGMENT.NAMES-IN-USE

(ERROR-INDICATOR    : out ERROR-NUMBER;

Segments    : out segment-names.list_ofj; -

Страница 135

С. 132 ГОСТ Р 34.1702.3-92

procedure INQ.MORE.SIMULTANEOUS,EVENTS

(ERROR-INDICATOR    :    out    ERROR .NUMBER:

EVENTS    •    oul    MORE EVENTS);

procedm* INQ..WS_CONNECTlON.AND_TYPE

(WS    .    in WS_iD;

ERROR.INDICATOR    :    out ERROR .NUMBER;

CONNECTION    ;    out VAR1ABLE-CONNECTION-ID.

TYPE_OF_WS    out    WS. TYPE);

procedure I NQ_WS_STATE

(WS    .    in WS-ID:

ERROR-IND1CATOR    :    out    ERROR-NUMBER;

STATE    :    out    WS.STATE);

procedure 1NQ_WS_DEFERRAL_AND-UPDATE_STATES

in WS-ID: out ERROR-NUMBER. oat DEFERRAL.MODE; out REGENERATION-MODE; out DlSPLAY.SURFASE-EMPTY;

(WS

ERROR. INDICATOR DEFERRAL REGENERATION DISPLAY

FRAME-ACTION    oul NEW_FRAME_NECESSARY);

proceduie INQ.LIST.OF.POLYLINE,INDICES

(WS    . in WS-ID;

ERROR INDICATOR    . out ERROR-NUMBER;

INDICES    : out POLYLINE-INDICES.L1ST-OF);

procedure INQ. POLYLINE-REPRESENTATION

(WS    .    :    in WS-ID;

INDEX    ;    in    POLYLINE-INDEX;

RETURNED,VALUES    .    in    RETURN-VALUE-TYPE;

ERROR-INDICATOR    : out ERROR-NUMBER;

TYPE-OF-LINE    out LINETYPE;    ;

WIDTH    : out LINEWIDTH:

LINE-COLOUR    out COLOUR:INDEX);

procedure INQ_LIST_OF_POLYMARKER INDICES (WS    : in WS-ID;

ERROR.INDICATOR    : out ERROR NUMBER;

JNDICES    : out POLYMARKER.INDICES LIST_

-OF);

procedure INQ.POLYMARKER-REPRESENTATION (WS    •    in    WS.ID.

INDEX    ;    in    POLYMARKER!INDEX;

RETURNED VALUES    :    in    RETURN-VALUE-TYPE;

ERROR-INDICATOR    : out ERROR-NUMBER;

' TYPE_OF_MARKER    i out MARKF.R-TYPE;

SIZE    : out MARKER SIZE.

MARKER.COLOUR    : out COLOUR.INDF.X);

procedure IN'Q.LIST. 0F_TEXT_1NDICES

(WS    r    In    WS..ID;

ERROR-1NDICATOR    : out ERROR-NUMBER;

INDICES    : out TEXT.INDICES.LIST-OF);

procedure INQ,TEXT-REPRESENTATION

IWS    In WS-ID;

Страница 136

ГОСТ Р 34.1702-3—*2    С- 133

INDEX

RETURNED-VALUES ERROR-INDICATOR FONT-PRECISION EXPANSION SPACING TEXT-COLOUR procedure INQ-TEXT-EXTENT <WS

POSITION CHAR.STRING E RROR-INDICATOR CONCATENATION-POINT TEXT-EXTENT

in TEXT-INDF.X, in RETURN-VALUE-TYPE; out ERROR .NUMBER; out TEXT-FONT-PRECISION; out CHAR.EXPANSION, out CHAR_SPACING out COLOUR-INDEX);

in WS-ID. in WC.POINT, in STRING; out ERROR .NUMBER; out WC POINT;

out TEXT-EXTENT.PARALLELOGRAM);


procedure INQ L1ST.OF. FILL-AREA-INDICES iWS    .    in WS-IO;

ERROR-INDICATOR    :    out ERROR..NUMBER.

INDICES    ; out FILL-ARF.A.INDICES.LIST-OF);

procedure INQ FI LL_AREAi REPRESENTATION iWS    :    in WS.ID;

INDEX    •    in FILL-AREA-INDEX:

RETURNED-VALUES•    :    In RETURN-VALUE-TYPE;

ERROR.INDICATOR    :    out ERROR.NUMBER;

INTERIOR    :    out 1NTERIOR.STYLE;

STYLE    •    : out STYLE-1NDEX;

FILL_AREA_Q0LOUR    :    out COLOUR-INDEX).

procedure INQ-LIST OF_PATTERN_INDICES

(WS    ■    in WS.ID;

ERROR-INDICATOR    out    F.RROR-NUMBER;

INDICES    ’    : out PATTERN INDICES LIST-OF);

procedure INQ-PATTERN.REPRESENTATION

in WS-ID;

tWS INDEX

RETURNED .VALUES

ERROR-IND1CATOR

PATTERN

in PATTERN-INDEX;

in RETURN-VALUE.TYPE;

out FRROR.NUMBER.

out VARIABLE-COLOUR.MATRIX);

(WS

procedure INQ-LIST.OF.COLOUR-INDICES


ERROR-INDICATOR INDICES

in WS.ID;

out ERROR-NUMBER.

out COLOUR-INDICES.LIST-OF);


(WS INDEX

procedure INQ-COLOUR-REPRESENTATION


RETURNED-VALUES ERROR-INDICATOR RGB_COLOUR

procedure INQ-WS-TRANSFORMATION (WS

ERROR. INDICATOR UPDATE

in WS.ID;

in COLOUR INDEX;

in RETURN_VALUE_TYPE;

out F.RROR-NUMBER.

out COLOUR REPRESENTATION);

in WS-ID;

out ERROR-NUMBER. out UPDATE-STATE;


Страница 137

С. 134 ГОСТ Р 34.1702.3-92

REQUESTED.WINDOW CURRENT.WINDOW REQUESTED-VIEWPORT CURRENTJVIEWPORT

out NDC.RECTANGLE.LIMITS: out NDC.RECTANGLE-LLMITS: out DC.RECTANGLE LIMITS, out DC RECTANGLE-LIMITS);


proc«<lurc INQ_SET.0F_SEGMENT_NAMES_0N. WS <WS    in    WS-1D;

ERROR-JNDICATOR    : out ERROR.NUMBER:

SEGMENTS    : out SEGMENT.NAMES LIST-OFj.

procedure 1NQ. LOCATOR-DEVICE. (WS DEVICE

RETURNED VALUES ERROR. INDICATOR MODE SWITCH

INITIAL -TRANSFORMATION INITIAL. POSITION ECHO.AREA DATA.RECORD

.STATE

: in WS-ID;

: in LOCATOR.DEV1CE.NUMBER.

: in RETURN.VALUE-TYPE; out ERROR.NUMBER; out OPERATING-MODE.

: out ECHO-SWITCH.

out TRANSFORMATION'.NUMBER; : out WC.POINT;

: out DC.RECTANGLE-LLM1TS;

: out LOCATOR.DATA-RECORD);


procedure 1NQ. STROKE. DEVICE-STATE (WS DEVICE

RETURNED-VALUES ERROR- INDICATOR MODE SWITCH

JNITIAL-TRANSFORMATION 1N1T1AL-STROKE.POINTS ECHO.AREA DATA.RECORD

in WS-ID;

in STROKE-DEVICE-NUMBER;

in RETURN-VALUE-TYPE;

out ERROR-NUMBER;

out OPERATING-MODE;

out ECHO-SWITCH;

out TRANSFORMATION-NUMBER;

out WC.POINT_LlSt:

out DC.RECTANGLE-LIMITS;

out STROKE_DATA-RECORD);


(WS DEVICE

procedure INQ.VALUATOR-DEVICE-STATE


ERROR INDICATOR MODE SWITCH INITIAL-VALUE ECHO.AREA DATA.RECORD

procedure INQ-CHOICE.DEVICE-STATE (WS

DEVICE

ERROR. INDICATOR MODE SWITCH

INITIA1.-STATUS INITIAL-CHOICE ECHO.AREA DATA RECORD

procedure INQ_PICK_DEVICE_STATE (WS

DEVICE

In WS.ID.

in VALUATOR DEVlCE-NUMBLR;

out ERROR-NUMBER;

out OPERATING. MODE;

out ECHO-SWITCH;

out VALUATOR-INPUT-VALUE;

out DC RF.CTAWCiLE ,LIMITS;

out VALUATOR.DATA-RECORD);

In WS-ID;

in CHOICE.DEVICE-NUMBER; out ERROR.NUMBER; out OPERATING-MODE; out ECHO-SWITCH; out CHOICE-STATUS; out CHOICE.VALUE; out DC.RECTANGLE. LIMITS, out CHOICE.DATA.RECORD):

in WS-ID-

in PICK-DEVICE-NUMBER;


Страница 138

ГОСТ Р 34.1702.3 -92 С.

<WS

: in RETURN-VALUE-TYPE;

: out ERROR-NUMBER;

: out OPERATING-MODE:

: out ECHO-SWITCH;

: out P1CK-STATUS;

: out SEGMENT-NAME;

: out PICK _ID;

: out DC.RF.CTANGLE-LIMITS; : out P1CK-DATA-RECORD): •procedure 1NQ-STRING,DEV1CE_STATE


RETURNED-VALUES ERROR. INDICATOR MODE SWITCH

INITIAL-STATUS 1N1T1AL-SEGMENT INITIAL-PICK ECMO-AREA DATA.RECORD


DEVICE

KRROR-1NDICATOR MODE SWITCH

1NITIAL-STR1NG ECHO.AREA DATA.RECORD

procedure INQ .WS-CATEGORY (TYPE-OF-WS ERROR-INDICATOR CATEGORY

procedure lNQ_WS_CLASSIFICATION (TYPE_OF_WS ERROR. INDICATOR CLASS

procedure INQ-DISPLAY_SPACE_SIZE (TYPE-OF-WS ERROR-INDICATOR UNITS

-MAX.DC-SIZE

MAX_RASTER_UNIT_SIZE

. in WS-ID:

: in STRING-DEVICE-NUMBER; : out ERROR-NUMBER;

: out OPERATING_MODE:

: out ECHO-SWITCH;

: out IN PUT-STRING;

: out DC.RECTANGLE-LIMITS;

: out STRING.DATA.RECORD);

; in WS.TYPE;

: out ERROR,NUMBER;

: out WS_CATEGORY).

: in WS-TYPE;

: out ERROR-NUMBER;

: out DISPLAY-CLASS);

in WS-TYPE; out ERROR_NUMBER; out DC-UNITS; out DC.SIZE;

out RASTER-UNIT-SIZE);


(TYPE-OF_WS ERROR.. INDICATOR POLYLINE_REPRESENTATION > POLYMARKER _ REPRESENTATION

■procedure JNQ-DYNAMIC,MODIFlCATION_OF.WS-ATTRIBUTES


TEXT-REPRESENTATION FILL-AREA-REPRESENTATION

PATTERN.REPRESENTATION ■ COLOUR-REPRESENTATION TRANSFORMATION

in WS-TYPE; out ERROR-NUMBER: out DYNAMIC-lMODIFICATION; out DYNAMIC-MODIF1CATION;

out DYNAMIC-MODIFICATION; out DYNAMIC.MODIFICATION;

out DYNAMIC-MODIFICATION; out DYNAMIC-MODIFICATION; out DYNAMIC-MODIFICATION);


(TYPE-OF-WS ERROR-INDICATOR DEFERRAL REGENERATION procedure INQ-POI.YL1NE-FACILITIES (TYPE_OF-WS '/» 5 Зек. 207

procedure INQ-DEPAUI.T_DEFERRAL-STATE_VALUES


in WS-TYPE: out ERROR-NUMBER; out DEFERRAL-MODE; out REGENERATION-MODE):

in WS-TYPE;


Страница 139

С 136 ГОСТ Р 34.1702.3-92

ERROR. INDICATOR LIST-OF-TYPES NUMBER_0F_W1DTHS NOMINAL-WIDTH RANGE_OF_ WIDTHS NUMBER-OF.. INDICES

procedure INQ-PREDEFINF.D, (TYPE-OF-WS INDEX

: out ERROR.NUMBER;

: out LINETYPES LIST-OF;

: out NATURAL;

: out DC MAGNITUDE;

: out DC.RANGE.OF-MAGNITUDES; : out NATURAL);

POLYLINE-REPRESENTATION ; in WS-TYPE;

: in POLYLINE-INDEX;

: out ERROR.NUMBER;

: out LINETYPE;

: out LINEW1DTH;

: out COLOUR.INDEX);

FACILITIES

in WS-TYPE; out ERROR.NUMBER; out MARKER-TYPES.LIST-OF; out NATURAL; out DC MAGNITUDE; out DC RANGE-OF-,MAGNITUDES; out NATURAL);

POLYMARKER. REPRESENTATION in WS-TYPE; in POLYMARKER. INDEX; out ERROR.NUMBER; out MARKF.R.TYPF.-, out MARKER SIZE; out COLOUR-INDEX);

ERROR. INDICATOR TYPE.OF.LINE WIDTH

LINE-COLOUR

procedure INQ-POLYMARKER (TYPF._OF.WS ERROR. INDICATOR LIST_OF„TYPES NUMBER-OF-SIZES NOMINAL-SIZE RANGE-OF-SIZES NUMBER-OF_INDICFS procedure INQ_PREDEFINED_ (TYPE.OF.WS INDEX

ERROR.INDICATOR

TYPE-OF.MARKFR

SIZE

MARKER-COLOUR procedure INQ-TEXT..FACILITIES (TYPE-OF-WS ERROR.INDICATOR LIST-OF.FONT PRECISION--PAIRS

; In WS-TYPE;

: out ERROR.NUMBER;

: out

TEXT-FONT-PRECISION.LIST-OF; : out NATURAL;

: out DC.RANGE_OF_MAGNlTUDES;

: out NATURAL*

: out RANGE..OF.EXPANSIONS;

: out NATURAL);

REPRESENTATION : in WS-TYPE;

: in TEXT-INDEX;

: out ERROR.NUMBER;

: out TEXT.FONT.PRECISION;

: out CHAR-EXPANSION;

: out CHAR-SPACING;

: out COLOUR-INDEX);

NUMBER-OF. HEIGHTS RANGE-OF-HEIGHTS NUMBER-OF-EXPANSIONS EXPANSION. RANGE NUMBER-OF-INDICES procedure INQ-PRF.DEFINED.TEXT. (TYPE-OF-WS INDEX

ERROR-INDICATOR F0NT-PRECIS10N EXPANSION SPACING TEXT-COLOUR.

procedure INQ.FILL.AREA.FACILITIES (TYPE-OF_WS

ERROR.INDICATOR    :

LIST_OF_INTERIOR.STYLES    •;

LIST-OF.HATCH-STYLES    :

NUMBER-OF-INDICES    :

in WS-TYPE;

out ERROR.NUMBER;

out JNTERIOR.STYLES LIST.OF;

out HATCH-STYLES.LAST-OF;

out NATURAL);


Страница 140

ГОСТ Р 34.1702.3-92 С. 137

(TYPE.OF.WS INDEX ERROR.INDICATOR INTERIOR STYLE

FILL.AREA.COI.OUR

procedure I NQ_ PREDEFINED. FILL..AREA. REPRESENTATION


procedure INQ.PATrF.RN.FACILmES (TYPE.OF.WS ERROR.INDICATOR NUMBER_OF_INDICES,

in WS.TYPE; out ERROR.NUMBER; out NATURAL);

procedure INQ PREDEFINED.PATTERN. REPRESENTATION


(TYPE-OF.WS INDEX ERROR.INDICATOR PATTERN

procedure INQ.COLOUR.FACIL1TIES (TYPE_OF_WS ERROR. INDICATOR NUMBER.OF.COLOURS AVAILABLE-COLOUR NUMBER-OF.COLOUR-INDICES

in WS-TYPE; in FILL-AREA-INDEX, out ERROR.NUMBER; out INTERIOR.STYLK; out STYLE.INDEX; out COLOUR.INDEX);

m WS-TYPE; in PATTERN.INDEX; out ERROR..NUMBER; out VARIABLE-COLOUR. MATRIX);

in WS-TYPE; out ERROR-NUMBER;' out NATURAL; out COLOUR AVAILABLE; out NATURAL);


(TYPE-OF.WS INDEX

procedure INQ .PREDEFINED-COLOUR.REPRESENTATION

ERROR.INDICATOR

RGB.COLOUR in WS.TYPE; in COLOUR.INDEX; out ERROR.NUMBER; out COLOUR.REPRESENTATION);


procedure INQ-LIST.OF.AVAILABLE.GDP

(TYPE-OF.WS    : in WS.TYPE;

ERROR.INDICATOR    : out ERROR-NUMBER;

LIST-OF-GDP    : out GDP.IDS LIST,OF);

procedure INQ .GDP (TYPE-OF-WS GDP

in WS-TYPE;

in GDP-ID;

out ERROR-NUMBER;

out ATTR1BUTES-USED LIST-OF);

STATE.TABLES • in WS-TYPU;

: out ERROR-NUMBER;

: out NATURAL;

: out NATURAL;

: out NATURAL.

: out NATURAL;

: out NATURAL;

. out NATURAL).

ERROR.INDICATOR LIST.OF_ATTRIBUTES.USED

procedure ING MAX-LENGTH-OF WS.

(TYPE. OF. WS ERROR.INDICATOR MAX-POLYLINE-ENTRIES MAX-POLYMARKER-ENTRIES MAX-TEXT.F.NTRIES MAX-FILL.AREA.ENTRIES MAX-PATTERN.INDICES MAX -COLOUR. INDICES

procedure INQ.NLWBF.R.OF.SEGMENT.PRIORITIES.SUPPORTED (TYPE-OF-WS    : in WS-TYPE;

ERROR.INDICATOR    : out ERROR.NUMBER;

NUMBER-OF.PRIORITIES    : out NATURAL);

Страница 141

ERROR.. INDICATOR TRANSFORMATION VISlBLE-TO. INVISIBLE INVIS1BLE-TO-VISIBLE HIGHLIGHTING PRIORITY

ADDING-PRIMIT1VES DELETION-VISIBLE

С 138 ГОСТ Р 34.1702.3-92

procedure INQ_ DYNAMIC-MODI FICAT10N_0F_SF.GMENT_ ATTRIBUTES (TYPE_OF_WS    •    in    WS-TYPE;


out ERROR. NUMBER; out DYNAMIC-MOD!FICATION out DYNAMIC-MOPIFICATION out DYNAMIC-MOD! FICATION out DYNAM1C.MOD1FICATION out DYNAMIC-MODIFICATION out DYNAMIC-MODIFICATION out DYNAMIC-MODI FICATION


procedure 1NQ-NUMBER_OF_ AVAILABLE. LOGICAL. 1NPUT-DEVICES (TYPE_OF_WS    :    in WS-TYPE;

ERROR.INDICATOR    г    out F.RROR-NUMBER;

LOCATOR    :    out NATURAL;

STROKE    :    out NATURAL;

VALUATOR    •    out NATURAL;

CHOICE    :    out NATURAL;

PICK    :    out NATURAL;

STRING    :    out NATURAL);

procedure INQ_DEFAULT_LOCATOR.DEVICE-DATA (TYPE.OF.WS    -    in WS-TYPE;

DEVICE    :    in LOCATOR-DEV1CE-NUMBER;

ERROR-INDICATOR    :    out ERROR-NUMBER;

INITIAL-POSITION    :    out WC.POINT;

LIST-OF. PROMPT-ECHO-    -    out LOCATOR_PROMPT_ECHO_

-TYPES-    .    TYPES.LIST-OF;

ECHO.AREA    :    out DCRESTANGLE-LIM1TS;

DATA-RECORD    :    out LOCATOR_DAТА.RECORD);

procedure 1NQ -DEFAULT. STROKE - DEVICE _ DATA (TYPE-OF_WS    -    in WS-TYPE;

DEVICE    :    in STROKF-DHVICF-NUMBER;

ERROR-INDICATOR    -    out ERROR-NUMBER;

MAX-BUFFER.SIZE    :    out NATURAL;

LIST-OF-PROMPT.ECHO-    :    out STROKE_PROMPT_ECHO_

-TYPES-    TYPES.LIST.OF;

ECHO-A REA    :    out DC. RE STANGLE-LIMITS;

DATA-RECORD    .    :    out    STROKE-DATA-RECORD);

procedure INQ-DEFAULT.VALUATOR-DEVICE-DATA

in WS-TYPE;

(TYPE-OF-WS

DEVICE

ERROR. INDICATOR 1NITIAL-VALUE LIST-OF-PROMPT-ECHO

in VALUATOR-DEVICE-NUMBER; out ERROR-NUMBER; out VALUATOR-INPUT,VALUE; out VALUATOR-PROMPT-ECHO--TYPES-    TYPES-LIST-OF;

ECHO.AREA    ; out DC.RECTANGLE.LIMITS;

DATA-RECORD    : out VALUATOR-DATA.RECORD);

procedure JNQ. DEFAULT-CHOICE.DEVICE.DATA (TYPE-OF-WS    ;    in WS-TYPE;

DEVICE    :    in CHOICE-DEVICE-NUMBER;

ERROR-INDICATOR    :    out ERROR-NUMBER;

MAX. CHOICES    :    out CHOICE-VALUE;

Страница 142

ГОСГ Р 34.1702.3-92 С. 139

LIST. OF-PROMPT-ECHO--TYPES.

ECHO.ARF.A DATA.RECORD

r out CHOICE-PROMPT-ECHO-

-TYPES LIST-OF: : out DC RESTANGLE.UMITS;

: out CHOICE-DATA-RECORD);


procedure INQ.-DEFAULT.PICK-DEVICE-DATA

(TYPE-OF.WS    = in WS-TYPE:

DEVICE    : in PICK-DEVICE.NUMBER;

ERROR-INDICATOR    : out ERROR_NUMBER;

LIST-OF-PROMPT-ECHO...    : out PICK-PROMPT.ECHO.

-TYPES-    _ TYPES.LIST-OF;

ECHO-AREA    : out DC.RECTANGLE-LIMITS;

DATA-RECORD    : out PICK-DATA.RF.CORD);

procedure INQ-DF.FAULT_STRING_DEVICE_DATA

In WS-TYPE;

(TYPE-OF-WS DEVICE

ERROR. INDICATOR

MAX-STRING_BUFFER_SIZE

LIST-OF-PROMPT-F.CHO-

_TYPES-

F.CHO.ARRA

DATA-RECORD

in STR1NG.DEVICE.NUMBER; out ERROR.NUMBER; out NATURAL;

out STRING-PROMPT-ECHO-

_ TYPES.LIST.OF; out DC-RF.CTANGLE-LIM1TS; out STRING-DATA-RECORD);

(SEGMENT ERROR-JNDICATOR LIST-OF-WS

procedure INQ_SET-OF_ASSOCIATED_WS


in SEGMENT. NAME; out ERROR.NUMBER; out WS_IDS.LIST.OF);


procedure INQ_SEGMENT_ATTRIBUTE$ (SEGMENT ERROR-INDICATOR TRANSFORMATION VISIBILITY HIGHLIGHTING PRIORITY DETECTABILITY

in SCGMENT-NAME; out ERROR.NUMBER; out TRANSFORMATION-MATRIX; out SEGMENT-VISIBILITY; out SEGMENT. HIGH LIGHTING; out SEGMF.NT.PRIORITY: out SEGMENT.DETECTABILITY);

procedure INQ_PlXEL_ARRAY_DIMENSIONS

(WS CORNER-1 _l CORNER-DX-DY ERROR.INDICATOR DIMENSIONS

procedure INQ-PIXEL-ARRAY I WS

CORNER

DX

DY

ERROR-INDICATOR

INVAI.ID-VALUES

P1XEI—ARRAY

procedure INQ-PIXEL (WS POINT

in WS-ID;

: in WC.P01NT;

: in WC.POINT;

: out ERROR.NUMBER;

: out RASTF.R_UNIT.SIZE);

: in WS_ID;

: in WC.POINT;

: in RASTER-UNITS;

: in RASTER-UNITS:

: out ERROR.NUMBER;

: out INVALID.VALUES-INDICATOR;

- out VARIABLE-PIXEL_COI.OUR_

MATRIX);

: in WS.ID;

: in WC.POINT;


Страница 143

С. ив ГОСТ Р 34.1702.3-92

ERROR.INDICATOR    :    out    ERROR. NUMBER;

PIXEL-COLOUR    :    out    PIXEL.COLOUR.INDEX);

procedure INQ-INPUT.QUEUE.OVF.RFLOW

(ERROR-INDICATOR    :    out    ERROR-NUMBER;

WS    :    out    WC_1D;

CLASS    :    out    INPUT_QUF.UE_CLASS:

DEVICE    :    out    EVENT-OVERFLOW.DF.VICE-

-NUMBER);

—    ВСПОМОГАТЕЛЬНЫЕ ФУНКЦИИ

procedure EVALUATE-TRANSFORMATION-MATRIX (FIXED-POINT    : in WC.POINT;

SHIFT.VECTOR    : in WC.VF.CTOR;

ROTATION.ANGLE    : in RADIANS;

SCALE.FACTORS    •    :    in    T    RAN S FORMATI ON-FACT О R;

TRANSFORMATION    •    in    TRANSFORMATION-MATRIX);

procedure EVALUATE-TRANSFORMATION.MATRIX (FIXF.D-POINT    : In NDC.POINT;

SHIFT.VECTOR    : in NDC.VECTOR;

ROTATION.ANGLE    : in RADIANS;

SCALE.FACTORS    . in TRANSFORMATION .FACTOR;

TRANSFORMATION    : out TRANSFORMATION-MATRIX);

procedure ACCUMULATE.TRANSFORMATION.MATRIX

(SOURCE.TRANSFORMATION : in TRANSFORMATION-MATRIX); FIXED-POINT    : ip WC.POINT;

SHIFT.VECTOR    : in WC.VECTOR;

ROTATION .ANGLE    : In RADIANS.

SCALE.FACTORS    : in TRANSFORMATION.FACTOR;

RESULT.TRANSFORMATION : out TRANSFORMATION-MATRIX);

procedure ACCUMULATE_TRANSFOR.MATlON.MA ГRIX

{SOURCE.TRANSFORMATION in TRANSFORMATION-MATRIX); FIXED-POINT    : in NDC.POINT;

SHIFT.VECTOR    : in NDC.VECTOR;

ROTATION-ANGLE    : in RADIANS.

SCALE.FACTORS    : in TRANSFORMATION.FACTOR;

RESULT.TRANSFORMATION . out TRANSFORMATION-MATRIX);

—    ФУНКЦИИ ОБРАБОТКИ ОШИБОК

procedure ERROR-LOGGING

(ERROR-INDICATOR    : in ERROR-NUMBER;

GKS.FUNCTION    . in STRING;

ERROR..FILE    : in STRING : = DEFAULT-ERROR-

-FILE);

procedure EMERGENCY.CLOSE.GKS;

—    Утилиты функций метафайла

—    Элементы записей метафайла могут содержать списки указателей, строки символов, матрицы индексов цветов, данные GDP к ESC. Длина записи зависит от числа элементов данных. ЯГС определяет, что формат зависит от реализации.

—    Тип элемента записи данных должен быгь личным, позволяющим манипулировать содержимым записей, чтобы повысить эффективность их обработки.

—    Прикладной программист должен быть способен записывать не графические данные в метафайл. Этого можно достигнуть, разрешив вывод литер. Числен-

Страница 144

ГОСТ Р 34.1702.3-92 С. 141

цые данные должны быть преобразованы в строки прикладным программистом до вызов? процедуры BUILD. NEW-GKSM-DATA-RECORD.

procedure BUILD.NEW_GKSM_DATA.RECORD

(TYPE.OF.ITEM    :    in GKSML ITEM-TYPE;

ITEM-DATA    :    in STRING;

ITEM    ;    out GKSM.DATA.RECORD);

function ITEM. DATA .RECORD. STRING

(ITEM : in GKSM.DATA.RECORD) return STRING; private

— Следующие типы определяют спецификации для личных записей данных.

type GKSM-DATA-RECORD    :    GKSM. ITEM-TYPE :=0;

(TYPE-OF-ITEM LENGTH    :    NATURAL    :-0) is

record null; end record;

type CHOICE-DATA-RECORD {PROMPT.ECHO.TYPE:

CHOICE_PROMPT-F.CHO.TYPE : - DEFAULT-CHOICE is

record null; end record;

type LOCATOR.DATA.RECORD (PROMPT-ECHO-TYPE:

LOCATOR PROMPT-ECHO.TYPE : - DEFAULT.LOCATOR) is

record null; end record;

type STRING-DATA.RECORD (PROMPT.ECHO.TYPE:

STR1NG_PROMPT.ECHO.TYPF. : «, DEFAULT„STRING) Is

record null; end record;

type STROKE.DATA.RECORD (PROMPT_ECHO_TYPE:

STROKE_PROMPT_^CHO.TYPE : = DF.FAULT.STROKE) Is

record null; end record;

type VALUATOR.DATA.RECORD (PROMPT.ECHO.TYPE:

VALUATOR-PROMPT-F.CHO-TYPE : = DEFAULT. VALUATOR) Is

record null; end record;

type PICK-DATA.RECORD (PROMPT.ECHO.TYPE:

PICK-PROMPT-ECHO-TYPF. :«=DFFAULT_PICK) is

record null; end record; end GKS;

- ФУНКЦИЯ ОБРАБОТКИ ОШИБОК

Страница 145

С. 142 ГОСТ Р 34.1702Л—92

—    Функция обработки ошибок является отдельным библиотечным блоком и не компилируется как часть пакета ЯГС.

procedure ERROR-HANDLING

(ERROR-INDICATOR    : in ERROR.NUMBER;

GKS-FUNCTION    : in STRING;

ERROR.FILE    :    in STRING :~DEFAULT-ERROR.

FILE);

with GKS-TYPES; use GKS.TYPES: package GKS-GDP Is

•— Пакет ОПВ является отдельным библиотечным блоком и не компилируется как часть ЯГС.

ОПВ связывается с отдельными процедурами, реализованными для каждого обобщенного примитива вывода, каждая со своим собственным интерфейсом. Имена ОПВ и параметры регистрируют в Международном журнале графических записей ИСО. который ведсгся органом регистрации.

Каждая незарегистрированная процедура ОПВ, поддерживаемая реализацией. будут содержаться в отдельном библиотечном пакете. При этом используют следующие соглашения по наименованию:

package GKS-UGDP_< имя процедуры OIlB>is procedure GDP;

—    Код на языке Ада для процедуры ОПВ;

—    Единственным именем процедуры, используемым в пакете, будет ОПВ.

—    Для того, чтобы поддержать возможность записывать не реализованные ОПВ п метафайл, могут быть привлечены зарегистрированные ОПВ в форме процедуры GENERALIZED-GDP. которая имеет спецификацию, показанную ниже:

type GDP-FLOAT is digits PRECISION:

type GDP-INTEGER-ARRAY is array (SMALL-NATURAL range <>) of INTEGER;

type GDP_FLOAT-ARRAY Is array (SMALL-NATURAL range <>) of GDP FLOAT;

type GDP_ STRING-ARRAY Is array (SMALL-NATURAL range <» of STRING (1..80);

type GDP-DATA-RECORD (NUM_OF.INTEGF.RS : SMALL-NATURAL : = 0;

NUM.OF.REALS    : SMALL-NATURAL : — 0;

NUM.OF-STRINGS : SMALL-NATURAL : - 0) is

record

INTEGER-ARRAY : GDP-INTEGER-ARRAY (1 .. NUM-OF.INTEGERS); REAL-ARRAY : GDP-FLOAT-ARRAY (I ..NUM.OF.REALS); GDP.STR1NGS : GDP.STR1NG-ARRAY (I .. NUM.OF.STRINGS); end record,

procedure GENERALIZED-ODP    :    in    GDP-FD;

(GDP-NAME

POINT : in WC.P01NT.LIST;

GDP-DATA : out GDP-DATA-RECORD);

end CiKS-GDP; with GKS-TYPES; use GKS.TUPES; package GKS-ESCAPE is

Страница 146

ГОСТ Р 34.1702.3-92 С. ИЗ

—    Пакет ESCAPE является отдельным библиотечным блоком и не компилируется как часть Я ГС.    ■

—    Функции расширения связываются в Аде как отдельные процедуры для каж- . дого уникального типа расширения, предоставляемого реализацией, каждая со списком формальные параметров, соответствующим реализованной процедуре. Имена ESCAPE н параметры регистрируют и Международном журнале графических записей ИСО, который ведется органом регистрации

—    Каждая незарегистрированная процедура ESCAPE будет отдельным библиотечным пакетом, использукхним следующие соглашения по наименованию.

package GKS-UESC- <имя процедуры ESCAPE> is procedure ESC;

--Код иа языке Ада процедуры UESC;

end GKS-UESC Симя процедуры ESCAPE>;

— Единственным именем процедуры, используемым в пакете, является ESC. --Для того чтобы поддержать возможность записывать ис реализованные ESCAPE п метафайл могут быть привлечены зарегистрированные процедуры ESCAPES в форме процедуры GENERAL1ZED-ESC, которая имеет спецификации, показанные ниже:

type ESCAPE.ID in new INTEGER; type ESCAPE_FLOAT is digits PRECISION;

tvpc ESC-INTEGER-ARRAY is arrav (SMALL-NATURAL range <>) of INTEGER;

type ESC_FLOAT_ARRAY is array (SMALL-NATURAL range <» of ESCAPE-FLOAT; type ESC-STRING-ARRAY is arrav (SMALL-NATURAL range <>) of STRING (I ..80);

type ESC-DATA-RECORD    :    SMALL-NATURAL    :-0;

(NUM OF-INTEGERS

NUM-OF-REALS : SMALL-NATURAL :-0; NUM-OF-STRINGS : SMALL-NATURAL =0) is

record

1NTEGER..ARRAY : ESC-INTEGER.ARRAY (I.. NUM_OF_INTEGERS); REAL.ARRAY : ESC_FLOAT_ARRAY (I .. NUM-OF-REALS); ESC-STRING : ESC-STRING.ARRAY (I.. NUM-OF.STRINGS);

end record;

procedure GENERALIZED-ESC    :    in ESCAPE-1D;

(ESCAPE. NAM

ESC-DATA-IN    :    in ESC.DATA-RECORD.

ESC. DATA-OUT    :    out ESC. DATA-RECORD;

end GKS-ESC.APE;

Страница 147

С. 144 ГОСТ Р 34.1702.3-9?

ПРИЛОЖЕНИЕ В

СПИСОК ССЫЛОК НА ОПРЕДЕЛЕННЫЕ РЕАЛИЗАЦИЕЙ ЗАПИСИ

(Это приложение кг является состапмой часть» стандарта, но даег дополните чьмую информацию)

Элемент

Пункт

CHOICE. DATA_ RECORD

423

LOCATOR DATA RECORD

423

PICK-DATA.RECORD

4 23

ST RING-DATA .RECORD

423

STROKE_DATA_RECORD

423

VALUATOR-DATA-RECORD

423

DEFAULT-MEMORY-UNITS

424

DEFAULT-ERROR. FILE

424

PRECISION

424

MAX-LIST.SIZE

523

SMALL.NATURAL-MAX

4 24.

CHOICE_SM.ALL-NATURAL.MAX

424

ST R1 N'G _ SM A LI. - N ATIJ RA L - M A X

424

Страница 148

ГОСТ Р 34.1702.3-92 С. 145 ПРИЛОЖЕНИЕ В

ПРИМЕРЫ ПРОГРАММ

(Эю приложение не являете* составной частью стандарта, но дает дополнительную информацию).

В настоящем приложении даны программы, использующие связь, определенную а стандарте

R I Пример программы I. STAR

-    ПРОГРАММА STAR

-    ОПИСАНИЕ

-    Эта программа рисует желтую заезду на голубом фоне и пишет зеленым цветом STAR под звездой.

-    СОГЛАШЕНИЯ “ Уровень Я ГС Оа

-    Реализация должна поддерживать, по крайней мерс, работу одной станции категории выводя или ввода/вывода.

with OKS; with GKS.TYPF.S:

use OKS;

use GKS.TYPES;

procedure STAR is

. — Определяет переменные станции и файл регистрации ошибок.

MY.WS ID

SOM F._ CONNECTION

SOME-OUTPUT-TYPE

ERROR FILE

constant WS-ID    :    =1;

costant STRING    :    =    «UNIT-!»

constant WS.TYPE . =1; constant STR/NG = «MY_ ERROR-FILE»;


—    Определяет точки звезды.

STAR POINTS : constant WS POINT ARRAY ; —

((0.951057, 0.309017), .

(—0951057. 0309017).

(0.587785, -0951067),

(0.0. 1.0).

(-0 587785, -0.951057));

—    Определяет окно мировой системы и различные атрибуты.

WINDOW:WC RECTANGLE-t.IMITS: =

(XMIN— > —1.25, ХМАХ =« > 1.25, YMIN= > —1 25. YMAX->I.25);

TEXT -POSITION WC POINT:-= (00. -10); begin

—    Открыть ЯГС и активизировать станцию OPE.N_GKS (ERROR.FILE):

OPEN-WS (MY WS. ID SOME.CONNECTION.SOME -OUTPUT.TYPE): ACTIVATE-WS (MY.WS.ID);

Страница 149

С 118 ГОСТ Р 34.1702.3-92

—    Центрировать окно вокруг начала координат.

SET WINDOW (1. WINDOW);

SELECT-NORMALIZATION-TRANSFORMATION (1);

—    Задать цвета.

SET-COLOUR-REPRESENTATION (MY-WS-ID.

INDEX™ >0.

RGB„COLOUR=><O.Of 0.0. 1.0)); SET-COLOUR-REPRESENTATION (MY .WS~ID.

INDEX=>1.

RGB-COLOUR->(1.0. 10.00));

SET.COLOUR-REPRESENTATION (MY-WS-1D,.

INDEX=>2.

RGB_COLOUR— > <1A 1.0. 1.0));

—    Установить атрибуты области заполнения. SET_FILE_AREA-INTERIOR_STYLE (SOLID);

SET. FILE. AREA „COLOUR. INDEX (I);

—    Нарисовать звезду.

FILLAREA (STAR.POINTS);

—    Выбрать заглавные буквы, позиционированные под звездой-

SET_CHAR_HEIGHT    (HEIGHT- >0 15);

SET.TEAX_ALIGNME.NT    (ALIGNMENT•= >(CENTRE. HALF));

SET,TRXT_COI.OUR-INDEX    (TF.XT_COLOUR=>2);

—    Нарисовать заголовок

TEXT (TEXT.POSITION. «STAR»);

—    Закрыть станцию и Я ГС.

DEACTIOVATE.WS (MY_WS-ID);

CLOSE-WS (MY.WS.ID).

CLOSE _GKS;

end STAR;

B.2. Пример программы 2: IRON

—    ПРОГРАММА IRON

—    ОПИСАНИЕ:

—    Данная программ* рисует горизонтальную гистограмму, иллюстрирующую цены в металлургической промышленности.

—    Пользователь может выбрать данные для отображения, используя устройство выбора альтернативы ЯГС. График адат кровям из журнала «Scientic American», май 1984 г.. стр. 139.

—    СОГЛАШЕНИЕ:

—    Уровень ЯГС 2Ь with GKS;

with GKS-TYPES;

use GKS;

use GKS-TYPES;

procedure IRON is

— Задвег переменные станции и файл регистрации ошибок.

MY-WS-1D    :    constant WS-ID    I;

Страница 150

ГОСТ Р 34.1702.3-92 С. 147

SOM6-CONNECJION SOME-OUT IN .TYPE ERROR. FILE

constant STRING :> constant WS.TYPE constant STRING : : «TTY»;

= 2;

= <MY.ERROR.HLF.*;


— Описать и инициировать флаги выборки атрибутов (используют связки для области заводнения, в противном случае устанавливают индивидуальный). ASF-SETTINGSASF-LIST: —

**= > INDIVIDUAL,

—    >INDIVIDUAL. = > INDIVIDUAL. ~> INDIVIDUAL. =• > INDIVIDUAL. = > INDIVIDUAL.

—    > INDIVIDUAL.

—    > INDIVIDUAL. = >INDIVIDUAL.

—    > INDIVIDUAL, > BUNDLED.

= > BUNDLED. ~> INDIVIDUAL);

(TYPE_0F_L1NE_ASF WIDTH.ASF

LINE..COLOUR. ASF

TYPF.-OF-MARKER-ASF

SIZE..ASF

MARKER-COLOUR. ASF FONT. PRECISION-ASF EXPANSION_ASF SPACING-ASF TEXT-COLOUR.ASF INTERIOR.ASF STYLE-ASF

FILL. AREA ..COLOUR.ASF

— Описать н инициировать объекты для устройства выбора альтернативы

constant :=3;

constant CHOICE .DEVICE-

-NUMBER I-

ERROR.NUMBER; OPERATING.MODE;

ECHO SWITCH.

CHOICE.VALUE:

CHOICE- DATE. RECORD:

DC. RECTANGLE^ LIMITS: constant CHOICE-PROMPT_F.CHO_ TYPE :=*3; constant CHOICE-PROMPT.

STRING.LIST := (LENGTH->3.

LIST -»>

((4, «U S.»). (9. «W.GERMANY»), (5. «JAPAN»))); CHOICE-DATA-RECORD;

CHOICE-VALUE;

CHOICE. REQUEST-STATUS; CHOICE. STATUS;

C.OLOU R_ REPRESENTATION;

CH01CE-STRING. COUNT CHOICE DEVICE

CHOICE.ERROR CHOICE .MODE Cl IOICE-ECHO. SWITCH INITIAL-CHOICE CHOICE-INPUT. RECORD CHOICE.ECHO.AREA PRO.4PT_F.CHO TYPE

CHOICE.ST RINGS

CHOICE. RECORD CHOICE.

CHOICE-REQUEST INITIAL-STATUS

—    Опш ягь обвиты циста

RGB .COLOUR WHnt.

constant COLOUR.INDEX constant COLOUR-INDEX constant COLOUR-INDEX

= 0; — I;

=2;

BLACK RED

—    Omica*«> и !'ч:!Ц|!Ировать объекты окна.

WINDOW-1    TRANSFORMATION NUMBER = I;

WINDOW-LIMITS    •    :    WC.RECTANGLE.LIMITS ; —

(XMIM— >—100Д XMAX= > 175.0. YMIN-=>—2 0, YAVAX—>130); Описать и инициировать обьелти данных гистограммы MAX.DATA. constant; =»6;

Страница 151

С. 148 ГОСТ Р 34.1702.3-92

US_DATA_2 GERMANY_DATA_I GERMANY. DATA. 2 JAPAN-DATA. I JAPAN_DATA_2

procedure BARS (LENGTH)

type IRON-DATA is arrav (I . MAX-DATA) of WS. TYPE; . US-DATA-1    '    —

IRON.DATA IRON.DATA I RON_DATA IRON.. DATA IRON-DATA IRON-DATA

WC. TYPE:

WC POINT) i»

TEXT,ALIGNMENT :-(LEPT.

POSITION)

LEFT-HALF BAR-POINTS

WC.POINT_ARRAY(l ..4);

(69.0. 50.0. 15.0.

53.0. 57.0. 150.0) = (72.0, 50.0, 103.0, 0.0.

0.0. 56 0) = (65 0. 42 0. 3.0. 89.0.

52.0.    93 0) = (70.0, 53.0. 102.0. 0.0.

0.0. 49.0) = (65.0. 47.0. 2.0. 60 0.

52.0.    55.0) = (70.0. 57.0, 105 0. 0.0.

0.0. 41 0)

HALF);


begin if LENGTH — 00 then

SET.TEXT-ALIGNMENT (LEFT .HALF); TEXT (POSITION. «0»);

else

BAR-POINTS :=((X« >0.0. Y< (X=>LENGTH. ' Y--(X-> LENGTH. Y= (X=>00,    Y.

>    POSITION.Y+0.4),

>    POSITION Y+0.4),

>    POSITION.Y—0.4);, >POSITION Y—04));

FILL-AREA (BAR-POINTS), end if; end BARS;

procedure TICKS (TICK-MARK-POSITION : In out-WC.POINT.ARRAY) is

TICK-MARK-LABEL. POSITION WC POINT;

begin

for I rri I.. 4 loop

POLYLINE (TICK-MARK-POSITION);

TICK-MARK POSITION (I) X:-TICK-MARK-POSITION(I)    50.0:

TICK-MARK-POSITION (2).X: = TICK-MARK-POS1TION(2).X+50.0; end loop,

— Нарисовать маскировочные метки.

TICK-MARK-LABEL-POSITION X:— 0.0;

TICK - MARK_LABEL_POSITION.Y: = WC_TY'PE

(TICK-MARK-POSITION(I).Y);

TEXT (TICK-MARK-LABF.L-POSITION. «0»);

TICK-MARK . LABEL-POSlTION.X: = 50.0.

TEXT (TICK.MARK .LABEL-POSITION, «50»);

TICK-MARK.LABEL. POSITION.X:*-* 100 0;

TEXT (TICK-MARK-LABEL-POSITION, «100»); TICK-MARK-LABEL_POSITION X:-150 0;

TEXT (TICK_MARK-LABF.L-POSITION. «150»); end TICKS; procedure BORDER is

Страница 152

ГОСТ Р 34.1702.3-92 С. 14»

— Нарисовать гранииу. окружающую данные,

LABEL. POSITION    WC.POJNT;

TITLE-POSITION    . WC POINT =(37 3,-2 0);

HEIGHT    WC    MAGNITUDE    =05;

LEFT-HALF    TEXT.ALIGNMENT    (LEFT.

HALF)

CENTRE-BOTTOM    : TEXT-ALIGNMENT : — (CENTRE.

BOTTOM)

CENTRE.CAP    . TEXT-ALIGNMENT = (CENTRE.

CAP)

ONLY-JF, NOT.EMPTY    CONTROL-FLAG

•«CONDITIONALLY BOX-POINTS    '    •    constant    WC.POINT-ARRAY

((0.0,00). (150.0,0.0). (150.0. 120). (0.0. 12.0)

<10.0.00))

type LABELS Is array (1. 6) ol INPUT-STRING;

BAR-LABELS constant LABELS—

((5. «LABOR»), (8, «IRON ORE.), (12. «COKE OR COAL»),

(15. «PURCHASED SCRAP»). (11. «OTHER COSTS»),

(12. «OTHER ENERGY»));

TOP. TICK-MARK-START : WC.POINT-ARRAY (I. .2) -((00, 12.0),

(0.0, 11.9»;

BOTTOM-TICK-MARK-START : WC.POINT-ARRAY (1 . 2):«= ((00, 0.0).

(0.0, 0.1));

CL8EAR-WS (MY-WS-ID, ONLY_lF_NOT_EMPTY);

—    Нарисовать квадрат, ограниченный областью диаграммы,

POLYLINE (BOX-POINTS);

—    Нарисовать метки гистограммы, центрированные по полоскам.

SET-TEXT. ALIGNMENT (LEFT..HALF);

SET-CHAR-HE1GHT (HEIGHT).

SET-TEXT COLOUR.INDEX (BLACK);

LABEl__POSITION X:&—990;

for I in I.. 6 loop

LABEL_POSITION.Y: = WC-TYPE(2.0*(FLOAT(П-1.01 +1 2)

TEXT (LABEL.POSITION. BAR.LABELS<1NTEGER(1)).CONTENTS); end loop;

—    Нарисовать верхние и нижние черточки (красное основание).

SF.T_TEXT.ALIGNMENT (CENTRE BOTTOM);

—    Вызвать процедуры для рисования черточек.

TICKS (TOP_TlCK-MARK_START);

SET TEXT_ALIGNMENT (CENTRE.CAP);

SET -TEXT-COLOU R_ IN DEX (RE D);

TICKS (BOTTOM .TICK-MARK-START);

—    'Нарнсопагь заголовок.

SET-TEXT-COLOUR-INDEX (BLACK);

SET_TEXT_ALIGNMENT (CENTRE-BOTTOM);

TEXT (TITLE-POSITIOiN. «PRODUCTION COST»); end BORDER,

Страница 153

С. 150 ГОСТ Р 31 I 702.3—92

procedure DRAW    (DATAl    : In out IRON.DATA;

DATA2 : in out I RON .DATA) is FJLL-INDEX    : FILL-AREA.INDEX :=l;

POSITION    : WC.POINT;

begin

—    Нарисовать границу.

BORDER.

—    Нарисовать черные полосы.

SET-FILL _ A RkA-COLOUR-INDEX (BLACK);

SET.TEXT_COLOUR_INDEX (BLACK);

SET_ FILL-AREA .INDEX (FILL-INDEX); for I in 1.. 6 loop

POSITION Y: = 2.0*(WC_TYPE(I)—1.0)+ 1.6;

—    Вызван, процедуру, которая вычеркивает гистограммы. BARS(DATAI(INTE(jER(l))1 POSITION);

■end loop;

—    Вычеркивает красные гистограммы.

SET _ FILL _ A REA-COLOUR-INDEX (RED);

SET_TEXT_COLOUR_ INDEX (RED);

F1LL.INDEX: = 2;

SET-FILL.AREA_INDEX (FILL-INDEX); for I In 1.. 6 loop POSSITION.Y:—2.0* (WS_TYPE (I) -1.0) +1.6;

—    Вызвать процедуру, которая вычерчивает гистограммы. BARS(DATA2(INTEGER(1), POSITION).

end loop;

-end DRAW, begin

—    Открыть ЯГС и активировать станцию.

OPEN-GKS(ERROR-FILE);

OREN-WS(MY_WS_ID. SOME-CONNF.CTION.SOME-OUTIN_TYPE); ACTJVATE-WS(MY.WS-ID);

—    Задать окно на диаграмме.    „

SET-WINDOW (WINDOW-1, WINDOW.LIMITS); SELECT-NORMALIZATION.TRANSFORMATION (WINDOW .1);

—    Задать цвета, которые будут использоваться

SET-COLOUR.REPRESENTATION (MY_WS_ID.

INDEX =»> WHITE. RGB-COLOUR~>(l.O. 1.0. 10)); SET-COLOUR.REPRESENTATION (MY-WS'ID.

INDEX= > BLACK. RGB_COLOlJR= >(0.0.0.0. 0.0));

SETXOLOUR-REPRESENTATION (MY-WS“ID,

INDEX= > RED.

RGB_COLOUR— > (1 0. 00. 0 0));

—    Исяользивдть списанные атрибуты, исключая цвет

SET ASF (A$F_SETTINGS);

Страница 154

ГОСТ Р 34.170*^-92 С 151

—    Инициировать устройство выбор*

INQ-CHOlCE.DEVICE.STAtE (MY-WS-ID.

CHOICE.DEVICE.

CHOICE-ERROR,

CHOICE-MODE,

CH01CE-ECH0-SWITCH,

INITIAL-STATUS.

INITIAL-CHOICE,

CHOICE.ECHO.AREA.

CHOICE. RECORD);

BUILD-CHOICE-DATA.RECORD (PROMPT.ECHO.TYPE.

CHOICE.STRINGS.

CHOICE-RECORD).

1NITIALISE.CHOICE (MY.WS.ID.

CHOICE.DEVICE.

INITIAL.STATUS,

INITIAL-CHOICE.

CHOICE.ECHO.AREA.

. CHOICE-RECORD);

—    Получить выбор пользователя (U S.. W. GERMANY. or JAPAN).

loop

REQUEST-CHOICE (MY-WS-ID.    '

CHOICE.DEVICE.

INIT1AI__STATUS.

CHOICE);

il INITIAL_STATUS=OK then    *    >

case CHOICE Is when 1 — > DRAW (US-DATA.l. US-DATA.2); when 2 => DRAW (GERMANY.DATA.I. GERMANY_DATA_2); when 3 —*> DRAW (JAPAN-DATA-I, JAPAN-DATA.2); when others — > exit, end case;

else

exit; end if;

end loop;    w

—    Закрыть станцию и ЯГС.

DEACTIVATE-WS    (MY-WS.ID).

. CLOSE-WS    (MY-WS-ID).

CLOSE.GKS, end IRON;

В. 3. Пример программы 3: MAP

—    ПРОГРАММА MAP '

—    ОПИСАНИЕ:

—    Эта программа считывает метафайл ЯГС для вычерчивания карты. Примитивы каждой области заключены в отдельных сегментах Пользователь может применить для указания области устройство выбора. Опрашиваемое устройство выбора задает операция с выбранными примитивами области.

—    СОГЛАШЕНИЕ:

—    Уровень ЯГС 1с

6 Зак. 207

Страница 155

С. 152 ГОСТ Р 34.1702.3-92

—    Реализация должна поддерживать, по крайней мере, одну станцию категории-•>од/вывод м одну категорию метафайла ввода. Устройство выбора ао умолчанию должно поддерживать, по крайней мере, пять альтернатив.

with OKS; with GKS-TYPE; use GKS; use GKS-TYPES; procedure METAFILE is

—    Задать станцию метафайла.

METAFILE.WS-1D METAF1LE-CONNECTION

: constant WS.ID

; constant STRING :=• «METAFILE.

.INPUT.FILE»; г constant WS.TYPE : = 2;

: GKSM-1TEM.TYPE;

: GKSM.DATA. RECORD;

: NATURAL : —500;

: constant WS.ID : = 2;

; constant STRING :-cUNlT_2»;

: constant WS-TYPE : —1;

: constant CHOICE.DEVICE.

-NUMBER :-l;

; CHOICE.STATUS;

: CHOICE.VALUE;

: constant P1CK-DEVICE.NUMBER

I*

: PICK.REQUEST.STATUS;

: PICK-ID;

: SEGMENT.NAME;

METAFILE.TYPE METAPILE-ITEM-TYPE MF-TAFILE_DATA_RECORD LENGTH, MAX.LENGTH

—    Задать станцию ввода/вывода.

MY.WS.1D SOME.CONNECTION SOME_.OUTlN.TYPE SOME-CHOICE-DEVICE

CSTATUS CHOICE.NUMBER SOME.P1CK-DEVICE

PSTATUS PICK

SEGMENT

—    Задать файл регистрации ошибок.

ERROR-FILE    :    constant    STRING    :=    «MY_ERROR_

-FILE»;

begin

—    Открыть ЯГС и активизировать станции.

OPF.N_GKS(FRROR_FILR);

OPF.N.WS (METAFILE. WS.ID, METAFlLE_CONNECTION, METAFIL^lTYPE)^ 0PEN-WS(MY_WS-1D. SOM E-CONNECTION. SOME.OUTIN.TYPE); ACTIVATE_WS(MY. WS.ID);

—    Установить устройство выбора в режим выборки.

SET-CHOICE-MODE (MY.WS.1D, SOME-CHOICE.DEVICE.

SAMPLE-MODE, NOECHO);

■— Интерпретировать элементы метафайла до считывания конца метафайла.

l00PGET.ITEM.TYPE..FROM_GKSM (METAF1LE.WS.ID,

METAFILE. ITEM .TYPE, LENGTH); if METAFILE_1TEM_TYPE~0 then exit; end if;

READ_ITEM.FROM.GKSM (METAFILE.WS.ID. MAX-LENGTH.

META FILE-DATA. RECORD);

Страница 156

ГОСТ Р 34.1702.3-92 С. IS3

INTERPRENT-ITF.M (METAFILE-DATA-RECORD);

•end loop;

—    Закрыть станцию метафайла.

CLOSE-WS (METAFILE-WS-ID);-

—    Позволить пользователю выбирать состояния до выбора EXIT, loop

REQUEST-PICK

(MY-WS-ID, SOME-PICK-DF.VICE, PSTATUS. SEGMENT. PICK); if PSTATUS-OK then SAMPLE. CHOICE (MY_WS"ID. SOME-CHOICE.DEVICE. CSTATUS. CHOICE-NUMBER);

if CSTATUS=OK then case CHOICE-NUMBER Is

when l~>SET_HIGHLIGHTING (SEGMENT. HIGHLIGHTED); when 2= >SET_HIGHLlGHTING (SEGMENT, NORMAL); when 3— >SET-VISIBILITY (SEGMENT. INVISIBLE); when 4=>SET_VISIBIL1TY (SEGMENT. VICIBLE) when others—>null; end case; end if; end if;

-end loop;

— Закрыть станцию и ЯГС.

DEACTIVATE. WS (MY-WS.ID);

CLOSE-WS    (MY-WS-ID);

CI.OSE-GKS: end METAFILE;

B. 4. Пример программы 4: MANIPULATE

—    ПРОГРАММА MANIPULATE

—    ОПИСАНИЕ:

—    Данная программа позволяет пользователю создать объект и затем манипулировать им. изменяя преобразование сегмента.

—    СОГЛАШЕНИЯ:

—    Уровень ЯГС: 2Ъ with GKS; with GKS-TYPES; use GKS; use GKS.TYPES; procedure POLYGON is

: WC.POINT-ARRAY(I . 500); WC.POINT : — (0.6. 0.4);    .    .

WC.POINT : = (0.4. 0.3); SEGMENT-NAME :-i; constant CHOICE-VALUE :»l: constant CHOICE-VALUE :=*2; constant CHOICE-VALUE :=3; POSITIVE : = 1

TRANSFORMATION-NUMBER. TRANSFORMATION-NUMBER, TRANSFORMATION-NUMBER;

POINTS POINT-1 POINT-2

POLIGON-SEGMENT SHIFT ZOOM ROTATE NEXT

TRANSFORMATION TRANSFORMATION. 1 TRANSFORMATION-2

C*

Страница 157

С. 154 ГОСТ Р М. 1702.3—VI

RED

AX1C.CHARACTER.HEIGHT

CHOICE

CHOICE. STATUS LOCATOR, STATUS MATRIX

MATRIX. RESULT

constant COLOUR.INDEX :=-2; constant WC MAGNITUDE =0.02; CHOICE.VALUE;

CHOICE. REQUEST.STATUS; INPUT-STATUS; TRANSFORMATION.MATRlX; TRANSFORMATION-MATRIX;


— Задать переменные станции ц файл регистрации ошибок. DISPLAY

constant WS.ID constant STRING constant WS.TYPE constant STRING

«1;

-«ODD IS»; ^cMY.ERROR.FILE»,

DISPLAY. CONNECTION DISPLAY-TYPE

ERROR-F1LE

—    Задать переменные сегмента станции.

=2;

-«DDSEG»;

—4;

SEGSTORE    :    con»t4at WS-ID

SEG.CONNECTION    :    constant STRING

SEG.TYPE    :    constant WS.TYPE

—    Задать переменные станции графопостроителя.

-6;

= «PLOT>,

—5;

PLOTTER    :    constant WS.ID

PLOT.CONNECTION    :    constant STRING

PLOT.TYPE    :    constant WS.TYPE

—    Задайте окно мировой системы координат -и другие атрибуты.

WINDOW.BOUNDS    :    WC.RECTANGLE.LIMITS

(XMIN= >0.0. ХМЛХ—>1Д. YMIN—>0.0, YMAX=> >1.0); V1EWPORT.BOUNDS    :    NDCRECTANGLE-LIMITS

(XMIN~>0.0. XMAX=*>1.0„ YM1N = >0.0. YMAX^ >1.0); TEXT.POSITION    :    WC.POINT • — (0.5. 0.5);

begin

—    Ovk*mt» ЯГС и актнамромть станцию.

OPEN-GKS (ERROR.F1LE);

OPEN-WS (DISPLAY. DISPLAY.CONNECTION. DISPLAY_TYPE);

ACTIVATE-WS (DISPLAY);

OPEN.WS (SEGSTORE, SF.G.CONNECTION, SEG.TYPE);

ACTIVATE.WS (SEGSTORE);

SET-WINDOW (I. WINDOW.BOUNDS);

SET.VIEWPORT (I. V1EWPORT.BOUNDS);

SET.VIEWPORT.INPUT.PRIORITY (I, 0. HIGHER);

—    Построите еегаента POLYGON-SEGMENT

CREATE_SEGMENT (POLYGON-SEGMENT);

SET. POLYLINE. INDfcXtJ);

REQUEST.LOCATORdMSPLAY. LOCATOR.STATUS.

TRANSFORMATION, POINTS (NEXT)); SELECT.NOBMALIZATION.TRAMSFORMATION (TRANSFORMATION. -I); loop

NEXT:—HEXT+I;

REQUEST.LOCATOS (DISPLAY. I. LOCATOR-STATUS, TRANSFORMATION, POINTS (NEXT));

Страница 158

ГОСТ Р 14.1702.3—W С. 155

exit when LOCATOR..STATUS-NONE or

TRANSFORMATlON/~>TRANSFORMATlON_l or

NEXT=500;

end loop;

POINTS (NEXT): —POINTS(1);

POLYLINE (POINTS);

CLOSE-SEGMENT;

EVALUATF.-TRANSFORMATION-MATRIX (WC.POINT((0.0. OX»).

WC. VECTOR' ((0.0, 00)), 0.0. (1.0, 1.0). MATRIX;

—    инициализировать матрицу преобраюваник loop

REQUEST-CHOICE (DISPLAY. I. CHOICE^STATUS. CHOICE); exit when CHOlCE_STATUS=NONE or CHO!CE_STATUS=NOCHOICE; case CHOICE is

--сдиину гь многоугольник в данную позицию

when SHIFT->

REQUEST_LOCATOR (DISPLAY. 1; LOCATOR-STATUS.

TRANSFORMATtON_2. POINT_l); exit when LOCATOR-STATUS—NONE;    1

REQUEST.LOCATOR (DISPLAY. 1, LOCATOR-STATUS.

TRANSFORMATION. POINT-2); exit when LOCATOR»STATUS™NONE or

TRANSFORMATION/—TRANSFORMATION-2); SELECT_NORMALIZATION_TRANSFORMATION (TRANSFORMATION_2);

ACCUMU LATE-T R AN S FO RMAT ION _MAT Rl X ( SOURCE-TRANSFORMATION    = > MATRIX,

FIXED-POINT    ->WC.POINT’((OA 0.0)).

SHIFT-VECTOR    = >WC. VECTOR'(

(POINT-J X-POINT-2.X,

POI NT-1 .Y—POINT-2.Y)). ROTATION-ANGLE    =>0l0.

SCALE-FACTORS    =>■ > (I A 1.0).

RESULT-TRANSFORMATION    - >MATRIX -RESULT);

SET-SEGMENT-TRANSFORMATION (POLYGON.SEGMENT, MATRIX-RESULT); when ZOOM    = >null;

when ROTATE    =->null;

when others    = >exit;    4

end ease;

UPDATE_WS(DISPLAY, PERFORM); end loop;    ^

—    теперь полигон прорисован

DEACTIVATE_WS (DISPLAY):

DEACTIVATE . WS (SEGSTORE) •

OPEN_WS(PLOTTER. PLOT.CONNF.CTION. PLOT-TYPE); ACTIVATE-WS(PLOTTER);

—    установить представления для этой станция SET-COLOUR-REPRESENTATION (PLOTTER. RED. (1.0,00.0.0));

Страница 159

С 15$ ГОСТ Р М. 1702.3—«2

SET-POLYLINE.REPRESENTATION (PLOTTER. 3. I. 1.5, RED):

(SET-TEXT. REPRESENTATION (PLOTTER. 2. (0. STRING-PRECISION).

IX). 0.0. RED);

SET-WS-VIEWPORT (PLOTTER. (0.0. <X0. 0.5));

COPY_SEGMENT_TO_WS (PLOTTER, POLYGON-SEGMENT); SET_TEXT_INDEX (2);

SET_CHAR_HEIGHT (AXIS-CHARACTER-HF.IGHT);

TEXT ((0.5. 05). «This is polygon»);

DEACTIVATE_WS (PLOTTER);

CLOSE-WS (PLOTTER);

CLOSE-WS (DISPLAY);

CLOSE.WS (SEGSTORE),

CLOSE-GKS; end POLYGON;

B.S. Пример программы 5. PROGRAM SHWLN

—    ПРОГРАММА SHOWLN

—    ОПИСАНИЕ

—    Данная программа иллюстрирует существующие типы линии на выбранной пользователем стенами. Она содержит типичную подпрограмму инициализации ЯГС н демонстрирует подпрограммы, которые не меняют каких-либо элементов списка состояний.

—    СОГЛАШЕНИЯ:

—    Уровень ЯГС 0а

with GKS.TYPES; with GKS; with TEXT-IO. use GKS-TYPES; . use GKS; use TEXT-IO; procedure SHOWLN is

urc TYPF-

TYPE_OF.WS

ERROR-IND

WORKSTATION

OP-STATE

ERROR-NUMBER :~0; WS_ID :=l; OPERATING-STATE;

package WS_TYPE_lO is new INTEGER-10 (WS-TYPE);

procedure INIT_GKS (WTYPE : in out WS-TYPE;

ERRIND : in out ERROR-NUMBER) is

— Последовательность инициализации ЯГС.

ERROR-FILE : constant STRING : =- 'SHOWLN_ERR_FILE';

WS_TYPES.LIST_OF. WS.CATEGORY; STRING (1 ..20); NATURAL;

■GKS-WS-TYPES CATEGORY CONNECTION CONN.LENGTH begin

OPEN-GKS (ERROR-FILE);

— Запросить доступные типы станций и распечатать их.

INQ-LIST-OF-AVAILABLE-WS-TYPES (ERRIND, GKS-WS.TYPES); К ERRIND /=0 then

Страница 160

ГОСТ Р 34.1702.3-92 С. JW

return; end if•

PUT.LINE («The available output and outin workstation types are:»); for I in t.. WS_TYPES.S1ZE-0F.LIST (CKS.WS. TYPES) loop INQ-WS.CATEGORY (WS-TYPES.LIST.ELEMENT (I. GKS-WS-TYPES), ERRIND. CATEGORY); if (CATEGORY = OUTPUT or CATEGORY = OUTIN) then WS.TYPE.IO PUT (WS-TYPES.LIST-ELEMENT (I. GKS-WS-TYPES)); PUT С-); end if; end loop;

NEW-LINE;

— Выберите одну станцию, чтобы открыть и актмнировать ее.

PUT-LINE («Please enter connection identifier and workstation type»)

GET.LINE (CONNECTION. CONN-LENGTH);

WS_TYPE.lO.GET (WTYPE);

OPEN-WS (WORKSTATION. CONNECTION (I.. CONN-LENGTH).

WTYPE);

ACTlVATE.WS (WORKSTATION);

— Проверьте режим работы дли гарантирования успешных открытий и активирования.

lNQ.OPERATING_STATE_VALUE (OP-STATE); if OP-STATE /=»WSAC then ERRIND :=3; return; end if;

ERRIND : = 0; end INIT-GKS;

in out WS-TYPE;

in out ERROR_NUMER) is

UPDATE-STATE;

NDCRECTANGLE-LIMITS;

NDC RECTANGLE-LIMITS; DC.RECTANGLE.LIMITS;

DC RECTANGLE-LIMITS; LINETYPESLIST-OF;

NATURAL;

DC.MAGNITUDE;

DC. RANG E-OF.MAGNJ TUTES; NATURAL;

ASF-LIST : — (others

=*> INDIVIDUAL)* TRANSFORMATION.NUMBER; PRIMIT1VE.ATTRIBUTE.VALUES; INDlVlDUAL-ATrRIBUTE. VALUES; NDC-TYPE;

WC POINT-ARRAY Г 1..2);

procedure LINE-DEMO (WTYPE

ERRIND

STATUS REQ.WINDOW CUR-W1NDOW REQ-VIEWPORT CUR.VIEWPORT LINETYPE-LIST NUM.W1DTHS N0MINAL_W1DTH RANGE-OF. WIDTHS NUM. INDICES LIST_OF_ASF

SAVED_XFORM_NUM SAVED-PRIM-ATTR SAVED-1NDV-ATTR DISTANCE PTS begin

STATE.VALUE (OP.STATE);

Проверить режим работы. 1NQ-OPERAT1NG.

WSAC and OP.STATE /—SGOP) then

if (OP.STATE /г

Страница 161

С 1S6 ГОСТ Р *4.I7W.S-W

ERRIND : = 5; return; end if;

—    Узнать преобразование станции.

INQ-WS-TRANSFORMATION {WORKSTATION. ERRIND. STATUS.

REQ.WINDOW. CUR_W!NDOW, REQ.VIEWPORT, CUR-VIEWPORT);

if ERRIND /-0 then return; end if;

—    Узнать возможности ломаной.

INQ-POLYLINE-FACITIIES (WS_TYPE. ERRIND. LINETYPE_LIST.

NUM.WIDTHS, NOMINAL-WIDTH. NOMINAL.W1DTH.

RANQE.OF.WIDTHS. NUM-INDICES);

if ERRIND /—0 then return; end if;

1NQ..CURRENT-NORMALIZATION.TRANSFORMATION-NUMBER.

S?RIND, SAVED_PRIM_ATTR), UES

(ERRIND. SAVE.INDV.ATTR);

— Установить номер преобразования нормирования, флаги выборки индивидуальных атрибутов, масштаб толщины линии (1.0). индекс цвета ломаной (I) я атрибуты приемлемого текста.

SELECT_NORMALIZATION_TRANSFORMATION (0);

SET. ASF (LIST_OF_ ASF);

SET_LINEW1DTH_SCALE_FACTOR (1.0);

SET- POLYL IN E_COLOU R -1N DEX (1);    i

SET_CHAR_UP_VECTOR ((0Д 1.0));

SET-TEXT+PATH (RIGHTj;

SET.TEXT_ALIGNMENT ((LEFT, HALF));

SET-TEXT.FONT.AND-PRECISION ((I. STRING.PRECISION)); SET_CHAR_EXPANSION_FACTOR (1.0);

SET_CHAR_SPAC1NG (O.M;

SET-TEXT-COLOUR.INDEX (1);

—    Вычислить расстояние между линиями.

DISTANCE := (CUR_WlNDOW YMAX — CUR-WINDOW.YMIN) / NDC.TYPE (L1NETYPES.SIZE_0F_LIST (LINETYPE.LIST));

—    Установить высоту литер, равную половине расстояния между линиями, но ■не боле*. Г/20 высоты текущей станции

If (DISTANCE/20) <((CUR_WINDOW.YMAX - CUR_WINDOW.YMIN)/20.0 then SET_CHAR_HEIGHT (WC.MAGNITUDE (DISTANCE/2.0));

«lae

S£T_CHAR_HEIGHT

(WC.MAGNITUDE ((CUR-WINDOW.YMAX - CUR-WINDOW.YMIN)

/20.0));

end if;

—    Отступление линии от левой границы к середине окна текущей станция.

PTS (1)-Х : - WC-TYPE (CUR-WINDOW.XMIN);

Страница 162

ГОСТ Р Л. 1702.3-92 С !•»

PTS ll).Y ; - WC.TYPF. (CUR.WINDOW.YMAX _ DISTANCE/20);

PTS (2)JC : = WC-TYPE (CUR-WINDOW.XMIN + CUR.WINDOW.XMAX

/2 0)г

—    Цикл по существующим типам линий.

Гог I in I...L1NETYPES.SIZE_0F_LIST (LINETYPE.LIST) loop

SET.L1NETYPE (LINF.TYPES L1ST-ELEMENT (I. LINF-TYPE-LIST));

PTS <2).Y : - PTS (I). Y:

POLYLINE (PTS);

PTS (1).Y : - PTS <1).Y - WC-TYPE (DISTANCE);

—    Аннотировать тип линии.

TEXT (PTS(2,

INTEGER' IMAGE (INTEGER (LINETYPES.LIST.ELEMENT

(I. LINETYPE.LIST) )) );

end loop,

—    Восстановить номер преобразования нормирования и атрибуты. SELECT-NORMAL1ZATION.TRANSFORMATION (0);

(SAVED-INDU-ATTR ASF); (SAVED-INDV.ATTR.WIDTH); (SAVED.INDV.ATTR LINE-COLOUR): (SAVED_PRIM_ATTR.CHAR_UP_

-VECTOR); {SAVED-PRIM.ATTR PATH); (SAVED-PRIM.ATTR ALIGHMENT); (SAVED_INDV_ATTR.FONT_

.PRECISION);

(SAVED-INDV-ATTR. EXPANSION); (SAVED. INDV-ATTR.SPACING); (SAVED.INDV.ATTR.TEXT-COLOUft);

SET_ASF

SET_LINEW!DTH-SCALE_FACTOR SET.POLYLINE.COLOUR. INDEX SET-CHAR.. UP-VECTOR

SET.TF.XT-PATH SET_TEXT_ ALIGNMENT SET.TEXT -FONT.AND-PRECISION

SET_CHAR,EXPANSION_FACTOR SET-CHAR-SPACING SET_TEXT_COLOUR_ INDEX F.RRIND : *0; end LINE.DEMO;

—    Главная процедура SHOWLN. begin

—    Вызов процедуры инициализации

1NIT-GKS (TYPE.OF.WS, ERROR. 1ND) if ERROR.IND =0 then

—    Вызов подпрограммы демонстрации типов линий.

LINE-DEMO (TVPE-OF.WS. ERROR.IND); end if;

—    Все закрыть.

EMERGENCY-CLOSE.GKS;

end SHOWLN;

Страница 163

С. 160 ГОСТ Р 34.1702.3-92

ПРИЛОЖЕНИЕ Г

МНОГОЗАДАЧНЫЙ РЕЖИМ РАБОТЫ Я ГС

^Это приложение не является составной частью стандарта, но дает дополнительную информацию).

Встраивание функций ЯГС как подпрограмм в пакет Ада реализует естественным образом: данные «состояния» ЯГС декларируют как переменные, локальные для тела пакета; они непосредственно доступны и модифицируются аз подпрограмм ЯГС. Такой подход принимают, когда прикладные программы используют только последовательно управляемые структуры. Проблема состоит а том, что одновременные вызовы программ ЯГС могут испортить переменные состояния; например, при одновременной попытке записать о них. Данная проблема существует, где имеется истинная параллельность (множество процессов), или она моделируется (использование одного процессора с мультиплексированием).

Далее приводится метод реализации, который позволяет преодолеть данную трудноегь без изменения интерфейса с ЯГС со стороны прикладных программ на языке Аде. Коротко идея состоит в том, чтобы защитить данные тела пакета (иапример. переменные состояния), локализуя их в задаче, содержащейся и теле пакета. Для каждой подпрограммы, которая обращается к данным, будут существовать соответствующие входы, декларированные в задаче. Одно и то же имя можег быть использовано для входа и подпрограммы. применяющей средства совмещения а языке Ада. Тело задачи похоже на монитор, то есть, это цикл, содержащий селективное ожидание с переходом для каждого входа. Предложение приема выполняет действительное считывание или запись информации по состоянию, как требуется соответствующими подпрограммами ЯГС Тело каждой подпрограммы ЯГС сжимается просто до вызова входа задачи. Тахим образом, даже если две задачи из пользовательского прикладного программного обеспечения одновременно вызывают подпрограммы, которые модифицируют иди обращаются к переменным состояния. эго будет приводить к вызовам входа задачи, которые ставятся в очередь и обслуживаются в порядке поступления, В данном случае опасность порчи переменных состояния отсутствует.

Для иллюстрации данного мет#да в следующем примере показан#, как может быть написан скелет пакета ЯГС.

with GKS-TYPES; use GKS-TYPES; package GKS is; .

procedure OPEN-GKS (ERROR-FJLE

AMOUNT_OF_MEMORY

: in STRING : = DEFAULT_ERROR_

-FILE;

: in NATURAL :-DEFAULT.MEMORY

-UNITS);


procedure OPEN.WS

in WS-ID; in STRING; in WS-TYPE);


(WS

CONNECTION

TYPE_OF_WS


procedure CLOSE.GKS;

Страница 164

ГОСТ Р 34.1702.3-92 С Ш

end OKS;    -    »

—    Версия для последовательных прикладных программ:

with ERROR-HANDLING; package body GKS is

—    Переменные сосюяння:

CURRENT-OPERATING-STATE : OPERATING-STATE : -GKCL; SET-OF-OPEN. WORK STATIONS : WS_IDS.LIST_OF : -*WS_IDS.NULL_LIST;

procedure OPF.N.GKS

(ERROR-FILE    : in STRING : = DEFAULT_ERROR_

-FILE;.

A.MOUNT-OF.MEMORY    : in NATURAL :=.DEFAULT-

-MEMORY.UNITS) is.

begin

il CURRENT_OPERATING_STATE/=GKCL then ERROR-HANDLING (I. «OPF.N..GKS»);

else

CURRENT-OPERATING-STATE : — GKOP; end if;

end' OPF.N-GKS; procedure OPEN-WS

(WS    : in WS-1D;

CONNECTION    : in STRING;

TYPE-OF.WS    •    :    in    WS-TYPE)    is

begin

if’CURRENT. OPERATING-STATE not in GKOP., SGOP then ERROR-HANDLING (8, «OPEN-WS»);

else

CURRENT-OPERATING-STATE : — WSOP;

WS_IDS.ADD~TO_LIST(WS. SET_OF_OPEN_WORKSTATIONS): end if;

end OPEN-WS:

Krocedure CLOSE.GKS is :gin

' ' ’ if CURRENT-OPERATING-STATE / = GKOP then ERROR-HANDLING (2. «CLOSE.GKS»); else

CURRENT-OPERATING-STATE : — GKCL; end if;

end CLOSE.GKS; end GKS;

— Версия дли прикладных программ, использующих многозадачный режим работы

Страница 165

С. 162 ГОСТ Р 54.1702.3-92

with ERROR-HANDLING; package body GKS is task MONITOR is entry OPON-GKS (ERROR-FILE

AMOUNT-OF-MEMORY

entry OPEN-WS (WS

CONNECTION

TYPE-OF-WS

entry CLOSE-GKS;

' end MONITOR;

task body MONITOR is

— Переменные состояния:

CURRENT_OPERATING_STATE

SET_OF_OPEN_WORKSTATIONS

begin loop begin select accept OPEN_GKS (ERROR-FILE

AMOUNT_OF_MEMORY : in STRING :-DEFAULT_ERROR-

_F!LE;

: In NATURAL : = DEFAULT_MEMORY

-UNITS);

: in WS-ID:

: in STRING;

: In WS.TYPF.);

:-«OPERATING .STATE — GKCL;

. »*WS_IDS.LIST_OF

:=-WS-ID$.NULL-LIST;

in STRING :<= DEFAULT-ERROR-

-FILE:

in NATURAL :~DEFAULT_MEMORY -UNITS);


do

if CURRF.NT_0PERAT1NG_STATE/"»GKCL then ERROR-HANDLING (I, «OPEN-GKS»); else

CURRENT_OPERATING_STATE : = GKOP; end if;

end OPEN-GKS;

'accept OPEN-WS <WS

CONNECTION

TYPE-OF-WS


: in WS-ID;

: in STRING;

: in WS-TYPE) do


If CURRENT-OPF.RATING-STATE /= not in GKOP.. SGOP then ERROR-HANDLING (8. «OPEN-WS»); else

CURRENT_OPERATING_STATE : = WSOP; WS_IDSADD_TO_L!ST (WS. SET-OF-OPF.N-WORKSTATIONS); end if;

Страница 166

ГОСТ Р 34.1702.3-М С 163

end OPEN-WS;

or

accept CLOSE.GKS do

if CURRENT-OPERATING-STATE/= GKOP then ERROR-HANDLING (2, «CLOSE_GKS>); else

CURRENT-OPERATING-STATE :=»GKCL; end If;

end CLOSE.GKS.

or

terminate; end select; exception wnen others •—> null; end; end loop;

«nd MONITOR; procedure OPEN.GKS

(ERROR.FILE    :    in    STRING :=»DEFAlILT_ERROR_

-FILE;

AMOUNT-OF.MEMORY    .    in    NATURAL : = DEFAULT-MEMORY

-UNITS) is

begin

MONITOROPEN_GKS(ERROR_FILE. AMOUNT.OF-MEMORY);

«nd OPEN-GKS;

(WS    :    in    WS-ID;

CONNECTION    :    in    STRING;

TYPE_OF_WS    ;    in    WS-TYPE) is

tegin

MONITOR.OPEN_WS(WS. CONNECION. TYPE.OF.WS>; end OPEN-WS;

CLOSE.GKS is

procedure

begin

MONITOR CLOSE.GKS;

■end CLOSE_GKS;

end OKS;

Несхолько замечаний по взаимодействию с обработкой прерываний со<5ы ткй в случае, когда процедура ERROR-HANDLING вызывает GKS-ERROR. Отметим, что в обеих версиях тела пакета вызывается процедура ERROR--HAND'LiNG. Предположим, что прикладная программа вызывает OPEN-GKS. когда ЯГС уже открыт В последовательной версии вызов ERROR-HANDLING из тела процедуры OPEN-GKS вызовет распространение GKS-ERROR назад к прикладной программе, к'.тора я вызвала OPEN.GKS. В версии для многозадачного режима работы тот же самый эффект будет достигнут следующим образом В течение выполнения предложения приема для входа OPEN.GKS будет пызва-яа процедура ERROR-HANDLING и произойдет GKS.ERROR В соответствии с семаитиксА языча Ада, так как это исключение не обрабатывается локальным об-работчлклм i-г it приеме, оао распространяется (1) в точку, следующую за лриемоы, п (2) в точху аюовз входа. В первом случае оно обрабатывается ш

Страница 167

С 164 ГОСТ Р 94.1702.3-92

блохе, включающем в себя предложение выбора; таким образом задача монитор может перейти к следующей итерации без разрыва. Для второго случая точка находится в теле процедуры OPEN.GKS Так как здесь яет обработчика исключительных событий, то GKS-ERROR распространяется, как эго if хотелось, назад к точке вызова в прикладной программе

Запсршеиче выполнения звдачи MONITOR будет реализовано выбором альтернативы завершения, когда задачи прикладной программы закончатся.

Существует ряд вариаций метода, рассмотренного и проиллюстрирован-ного выше, которые при реализации могут представлять интерес с точки зрения повышения потенциального параллелизма прикладных программ ЯГС. использующих многозадачный режим работы. С помощью только что описанного метода единый набор переменных состояния защищается одной задачей. Если информация о состоянии может быть разделена на независимые наборы с одной задачей монитором на набор, то задача прикладной программы, считывающая/записывающая переменные п один набор, может выполнять это одновременно с задачей, которая считывает/записывает в другой набор.

Другой вариант защиты переменных состояния состоит в том. чтобы различить функции ЯГС, просто считывающие значения данных, от тех, которые записывают их. Метод, описанный выше, рассматривает «читателей» и «писателей» одинаково; таким образом он запрещает двум задачам при* кладкой программы одновременно считывать информацию о состоянии Можно написать программу монитор таким образом, чтобы допускалось одновременное считывание задачами прикладной программы и запрещались одновременное записывание и одновременное считывание н записывание. Существует множество различных подходов к решению данной задачи, зависящих от учета программистом таких факторов, как:

—    возможность задачи прикладной программы быть преждевременно прерванной.

—    возможность задачи прикладной программы «голодать» по обслуживанию из-за того, как запрограммирован прием входов.

Реализация ЯГС. которые поддерживают многозадачные программы на языке Ада, могут быть использованы для программ, которые являются полностью последовательными, хотя эффективность при этом может несколько снизиться. При реализации может также вознихнуть идея предоставить два тела пакета ЯГС: одно для последовательных применений, другое — для многозадачных.

Страница 168

ГОСТ Р 34.1702.3-92 С. 1*5 ПРИЛОЖЕНИЕ Д

НЕПОДДЕРЖИВАЕМЫЕ ОБОБЩЕННЫЕ ПРИМИТИВЫ ВЫВОДА И РАСШИРЕНИЯ

(Эго приложение ис является составной частью стандарта, но дает дополнительную информацию.)

В настоящем приложении проясняются взаимоотношения между метафайлом GKSM и обобщенными примитивами вывода (ОПВ) и расширениями (ESC). Каждая функция ОПВ и ESC. являющаяся зарегистрированной, доступна для прикладных программ как отдельная процедура со своими собственными формальными параметрами и именем подпрограммы, как описано в п. 5.1.

Реализация ЯГС/Ада должна предоставлять возможность записывать н считывать зарегистрированные ОПВ и ESC в метафайл, даже если реализация не поддерживает функций ОПВ и ESC. Следовательно, чтобы данная возможность поддерживалась, форматы записей данных для зарегистрированных ОПВ н ESC должны существовать между реализациями.

Например, пусть метафайл Л генерируется в реализации ЯГС/Ада. которая поддерживает ОПВ окружность. Метафайл А теперь имеет запись данных, содержащую идентификатор окружности, точху центра и радиус Далее метафайл А переносится в другую реализацию, которая не поддерживает ОПВ окружность. В новой среде будет генерироваться метафайл В. содержащий весь метафайл А и дополнительные графические данные И важно, чтобы ОПВ-ок-ружность из метафайла А был включен в метафайл В, даже если ни одна станция в этой среде не способна генерировать изображение окружное /и.

Для иллюстрации метода в следующем примере показаны фрагмент прикладного кода и реализация функции метафайла INTERPRET-JTEM.

with GKS; use GKS; with GKS-TYPES; use GKS-TYPES;

—    Данная прикладная программа передает данные из метафайла А % метафайл В.

procedure TRANSFER-METAFJLE is

—    описание переменных

INPUT.METAFILE    :    constant    WS-1D    1;

OUTPUT.METAF1LE    :    constant    WS-ID :-2:

1NPUT-METAFJLF.-TYPF.    :    constant    WS-TYPE    : = 2;

OUTPUT-METAFILE-TYPE    :    constant    WS-TYPE    : —3;

!NPUT-METAFILE_CONNECTION_lD

; constant STRING : = «MF.TAFILE_A»; OUTPUT-METAFILE-CONNECTION-ID

: cons.ant STRING : = «METAFILE_B»;

ME7AF1LE-DATA-RECORD    : GKSM-DATA-RECORD;

METAFILE-ITEM-TYPE    GKSM-ITEM-TYPE;

LENGTH, MAX.LENGTH    : NATURAL 500;

ERROR-F-LE • constant STRING : - <MY_ERROR_FILE>; begin

Страница 169

С. IM ГОСТ Р 34.1702.3-92

—    Открыть ЯГС.

OPEN.GKS <F.RROR_FILE);

—    Открыть метафайлы ввода и вывода.

OPEN.WS (LNPUT-METAFILE.

INPUT _METAFH.E_ CONNECTION. 10,

INPUT. METAFILE_TYPE);

OPEN.WS (OUTPUT-METAFILE,

OUTPUT _METAFlLE_CONNECTION_lD, OUTPUT_METAFILE-TYPE);

—    Активизировать только метафайл ввода.

ACT1VATE.WS <OUTPUT_METAFILE);

—    В данном цикле каждый элемент метафайла А считывается и передается * ЯГС посредством вызова функции INTERPRET-ITEM. Помните, что метафайл А содержит ОПВ-окружкости, обрабатываемые функцией INTERPRET-ITEM.. которая представлена далее в примере.

loop

GET_rTEM_TYPE_FROM_GKSM_(INPUT_METAFILE,

METAFILE-ITEM-TYPE. LENGTH);

if METAFILE.ITEM-TYPE—O then

exit; — выйти из цикла, метафайл полон.

end if;

READ. ITEM_FROM_GKSM (1NPUT.METAFILE, MAX-LENGTH.

METAF1LE.DATA-RECORD);. INTERPRET-ITEM (METAF1LE-DATA-RECORD); end loop;

—    Деактивж>уется только выходной файл.

DF.AKT1VATE-WS (OUTPUT. METAFILE);

—    Закрыть метафайлы ввода и выгода.

CLOSE.WS (INPUT. METAFILE);

CLOSE.WS (OUTPUT-METAFILE);

—    Закрыть GKS.

CLOSE-GKS;

end TRANSFER METAFILE;

—    Пример прикладной программы опирается ка реализацию - функции INTERPRET-ITEM для распознавания ОГШ-окружностн и передачи ОПВ & выходной метафайл. Это легко может быть выполнено следующим сегментом кода.

—    Предположим, что личный тип GKSM-DATA-RECORD декларирован как тип записи дискриминанты с различными компонентами, основанными не типе элементов. Когда GKSM-DATA-REOORD содержит ОПВ. имеются различные-поля, содержащие всю существующую информацию о ОПВ.

type GKSM-DATA-RECORD    ; GKSM-ITEM-TYPE : = 0;

(TYPE-OF-ITEM : NATURAL :-=0) is LENGTH

record

case TYPE-OF_ITEM i* when OPEN-GKS    =>...

when POLYLINE    —

when GDP    =>

Страница 170

ГОСТ Р    С.    1    %Т

10

NUM.PTS

: GDP-1D;

: POSITIVE;

: NATURAL;

: NATURAL;

: WC.POJNT_ARRAY (1.. NUM.PTS);

:1NTEGER-ARRAY

(1 .. INTEGER.DATA.LENGTH);

: REAI__ARRAY (1.. REAL-DATA-

-LENGTH);

INTEGE R-DATA.LENGTH REAL-DATA-LENGTH LIST_0F_P01NTS INTEGER.DATA

REAL.DATA

when...

• end case; end record;

—    Пример того, как реализация могла бы поддержать передачу нереализованного ОПВ через функцию INTERPRET-ITEM

procedure INTERPRET-ITEM (ITEM : In GKSM.DATA.RECORD) i* REGISTERED.GDP.C1RCLE : constant GDP_ID:-I; begin

case ITEM TYPE-OF-ITEM >9 when OPEN.GKS *»>... when POLYLINE — > ... when GDP «=>

. case ITEM ID i*

when REGISTERED_GDP_SPLINE — > ... when REGISTERED.GDP.ELLIPSE -> ... when REGISTE RED.GDP.CIRCLE =->

—    Вызвать генератор метафайла, в котором запись данных ITEM как параметр записывается во все отхрытые в активные метафайлы.

when... end case; end case: end INTERPRET-ITEM;

Страница 171

С. 168 ГОСТ Р 34.1702-3-92

ПРИЛОЖЕНИЕ Е

ТИПЫ ЭЛЕМЕНТОВ МЕТАФАЙЛА

(Это приложен»** не является составной пастью стандарта, но дает дополнительную информацию.)

Функция GET ITEM ТУРЕ FROM GKSM возвращает тнп следующего элемента метафайла, однако значение данного типа может изменяться » зависимости от реализации метафайла. Для того, чтобы можно было писать программы. независимые от реализации метафайла, прилагаются имена в Аде (см. таблицу). В реализации следует задать эти имена со значениями, которые соответствуют значениям, возвращаемым процедурой GET ITEM TYPE FROM GKSM.

Тип гое/сита GKSM

Пия • Аде

ФЛАГИ ВЫБОРКИ АТРИБУТОВ

МАТРИЦА ЯЧЕЕК

МАСШТАБ РАСШИРЕНИЯ ЛИТЕР

МЕЖЛИТЕРНЫЙ ПРОСВЕТ ВЕКТОРА ЛИТЕРЫ ОЧИСТИТЬ СТАНЦИЮ ПРЯМОУГОЛЬНИК ОТСЕЧЕНИЯ ЗАКРЫТЬ СЕГМЕНТ ПРЕДСТАВЛЕНИЕ ЦВЕТА

СОЗДАТЬ СЕГМЕНТ РЕЖИМ ЗАДЕРЖКИ УНИЧТОЖИТЬ СЕГМЕНТ КОНЕЦ ЗАПИСИ РАСШИРЕНИЕ

ПОЛИГОНАЛЬНАЯ ОБЛАСТЬ ИНДЕКС ЦВЕТА ПОЛИГОНАЛЬНОЙ ОБЛАСТИ ИНДЕКС ПОЛИГОНАЛЬНОЙ ОБЛАСТИ

ВИД ЗАПОЛНЕНИЯ ПОЛИГОНАЛЬ-НОЙ ОБЛАСТИ ПРЕДСТАВЛЕНИЕ ПОЛИГОНАЛЬНОЙ ОБЛАСТИ ИНДЕКС ЗАПОЛНИТЕЛЯ ПОЛИГОНАЛЬНОЙ ОБЛАСТИ ■ОБОБЩЕННЫЙ ПРИМИТИВ ВЫВОДА (ОПВ)

ТИП ЛИНИИ

МАСШТАБ ШИРИНЫ ЛИНИИ

GKSM-ASF GKSM-CELL. ARRAY GKSM_CHAR_EXPANSION_ „FACTOR GKSM-CHAR-SPACING GKCM-CHAR-VECTORS GKSM_CLEAR_WS GKSM_CLIPPING_RECTANGLE GKSM-CLOSE-SEGMENT GKSM-COLOUR--REPRESENTATION GKSM_CREATE_SEGMENT GKSM-DEFERRAL-STATE GKSM_DELETE_SEGMENT GKSM-END.ITEM GKSM-ESCAPE GKSM_F1I.L_AREA GKSM-FILL-AREA-COLOUR_ -INDEX GKSM_FILL_AREA_INDEX

GKSM_F1LL_AREA-INTER10R-

-STYLE

GKSM-FJLL.AREA-

-REPRESENTATION

GKSM_FILL_AREA_STYLE_

-INDEX

GKSM-GDP

GKSM-LINETYPE

GKSM-LINEW1DTH_SCALE_

-FACTOR


Страница 172

ГОСТ Р 34.1702.3-92 С. 16*

Тип мппи CiKSM

Ими • Аде

МАСШТАБ РАЗМЕРА МАРКЕРА

ТИП МАРКЕРА СООБЩЕНИЕ

ОПОРНАЯ ТОЧКА ШАБЛОНА

ПРЕДСТАВЛЕНИЕ ШАБЛОНА

ВЕКТОРА ШАБЛОНА ИДЕНТИФИКАТОР ВЫБОРА ЛОМАНАЯ

ИНДЕКС ЦВЕТА ЛОМАНОЙ

ИНДЕКС ЛОМАНОЙ ПРЕДСТАВЛЕНИЕ ЛОМАНОЙ

ПОЛИМАРКЕР

ИНДЕКС ЦВЕТА ПОЛИ-МАРКЕРА

ПРЕДСТАВЛЕНИЕ ПОЛИМАРКЕРА

ПЕРЕРИСОВАТЬ ВСЕ СЕГМЕНТЫ НА СТАНЦИИ ПЕРЕИМЕНОВАТЬ СЕГМЕНТЫ ЗАДАТЬ ЧУВСТВИТЕЛЬНОСТЬ К УКАЗАНИЮ ЗАДАТЬ ВЫДЕЛЕНИЕ ЗАДАТЬ ПРИОРИТЕТ СЕГМЕНТА ЗАДАТЬ ПРЕОБРАЗОВАНИЕ СЕГ-МЕНТА ЗАДАТЬ ВИДИМОСТЬ ТЕКСТ

ВЫРАВНИВАНИЕ ТЕКСТА ИНДЕКС ЦВЕТА ТЕКСТА ШРИФТ И ТОЧНОСТЬ ТЕКСТА

ИНДЕКС ТЕКСТА НАПРАВЛЕНИЕ ТЕКСТА ПРЕДСТАВЛЕНИЕ ТЕКСТА ОБНОВИТЬ ИЗОБРАЖЕНИЕ НА СТАНЦИИ НАЧАЛО ЗАПИСИ ПОЛЬЗОВАТЕЛЯ ПОЛЕ ВЫВОДА СТАНЦИИ ОКНО СТАНЦИИ

GKSM-MARKER-SIZE_SCALE_

. FACTOR GKSM-MARKER.TYPE GKSM-MESSAGE GKSM -PATTERN. REFERENCE--POINT GKSM-PATTF.RN--REPRESENTATION GKSM.PATTERN VECTORS GKSM-PICK-ID GKSM-POLYLINE GKSM POLYLINE.COLOUR--INDEX GKSM POLYLINE.INDEX GKSM-POLYLINE.

.REPRESENTATION

GKSM-POLYMARKER

GKSM_POLYMARKER-COLOUR_

_INDEX

GKSM-POLYMARKER.

-REPRESENTATION GKSM-REDRAW-ALL--SEGMENT-WS GKSM.RENAME.SEGMENT GKSM_SET_DETECTABILITY

GKSM-SET-HIGHLIGHTING

GKSM.SET-SEGMENT-PRIORITY

GKSM„SET_SEGMENT_

-TRANSFORMATION

GKSM-SET-V1SIBLITY

GKSM-TEXT

GKSM-TEXT. ALIGNMENT GKSM_IEXT_COLOU R.INDEX GKS.M_TEXT_FONT_AND--PRECISION GKSM-TEXT-INDEX GKSM.TEXT.PATH GKSM-TEXT-REPRESENTATION GKSM-UPDATE-WS

GKSM-USER- ITEM GKSM.WS. VIEWPORT GKSM.WS-WINDOW


Страница 173

I

С. 170 ГОСТ Р 34.1702.3-92

ПРИЛОЖЕНИЕ Ж '

ИНДЕКСЫ ФУНКЦИЯ яге

(Это приложение не ямяется составной частью стандарта, но дает дополнительную информацию.)

Ж-К Функции ЯГС

ACCUMULATE TRANSFORMATION MATRIX.......93,

ACTIVATE WORKSTATION ...........52 j

ASSOCIATE SEGMENT WITH WORKSTATION.......62,

AWAIT EVENT..............69

CELL ARRAY...............«

CLEAR WORKSTATION............53

CLOSE GKS...............52

CLOSfc SEGMENT..............62

CLOSE WORKSTATION............62

COPY SEGMENT TO WORKSTATION.........63 j

CREATE SEGMENT.............62

DEACTIVATE WORKSTATION...........53 >

DELETE SEGMENT.............62!

DELETE SEGMENT FROM WORKSTATION........62;

EMERGENCY CLOSE GKS............94 i

ERROR HANDLING............4. 5. 94j

ERROR LOGGING..............5. 94,

ESCAPE    ...    ..........53!

EVALUATE TRANSFORMATION MATRIX ' . ’    .    .    93'

FILL AREA...............5S|

FLUSH DEVICE EVENTS............69

GENERALIZED DRAWING PRIMITIVE.........56!

OET CHOICE...............70)

GET ITEM TYPE FROM GKSM...........71

GET LOCATOR..............70»

GET PICK................76

GET STRING.................

GET STROKE...............7°

GET VALUATOR............“ .    .    70

INITIALISE CHOICE.............6$

INITIALISE LOCATOR.............

INITIALISE PICK ......................§5

INITIALISE STRING.............Я

INITIALISE STROKE.............2

INITIALISE VALUATOR............

INQUIRE CHOICE DEVICE STATE..........

INQUIRE CLIPPING.............S

INQUIRE COLOUR FACILITIES..........2

INQUIRE COLOUR REPRESENTATION.........74

INQUIRE CURRENT INDIVIDUAL ATTRIBUTE VALUES.....4, 7j

INQUIRE CURRENT NORMALIZATION TRANSFORMATION NUMBER .    .    7?

INQUIRE CURRENT PICK-IDENTIFIER VALUE.......V

Страница 174

ГОСТ Р 34.1702.3-92 С 171

INQUIRE CURRENT PRIMITIVE ATTRIBUTE VALUES ....

INQUIRE DEFAULT CHOICE DEVICE DATA ......

INQUIRE DEFAULT DEFERRAL STATE VALUES.....

INQUIRE DEFAULT LOCATOR DEVICE DATA......

INQUIRE DEFAULT PICK DEVICE DATA.......

INQUIRE DEFAULT STRING DEVICE DATA......

INQUIRE DEFAULT STROKE DEVICE DATA ......

INQUIRE DEFAULT VALUATOR DEVICE DATA......

INQUIRE DISPLAY SPACE SIZE.............

INQUIRE DYNAMIC MODIFICATION OF SEGMENT ATTRIBUTES . INQUIRE DYNAMIC MODIFICATION OF WORKSTATION ATTRIBUTES

INQUIRE FILL AREA FACILITIES..........

INQUIRE FILL AREA REPRESENTATION......

INQUIRE GENERALIZED DRAWING PRIMITIVE .    ...

INQUIRE INPUT QUEUE OVERFLOW........

INQUIRE LEVEL OF GKS...........

INQUIRE LIST OF AVAILABLE GENERALIZED DRAWING PRIMITIVES INQUIRE LIST OF AVAILABLE WORKSTATION TYPES ....

INQUIRE LIST OF COLOUR INDICES........

INQUIRE LIST OF FILL AREA INDICES.......

INQUIRE LIST OF NORMALIZATION TRANSFORMATION NUMBERS .

INQUIRE LIST OF PATTERN INDICES........

INQUIRE LIST OF POLYLINE INDICES .......

INQUIRE LIST OF POLYMARKER INDICES.......

INQUIRE LIST OF TEXT INDICES.........

INQUIRE LOCATOR DEVICE STATE........

INQUIRE MAXIMUM LENGTH OF WORKSTATION STATE TABLES INQUIRE MAXIMUM NORMALIZATION TRANSFORMATION NUMBER INQUIRE MORE SIMULTANEOUS EVENTS .......

INQUIRE NAME OF OPEN SEGMENT........

INQUIRE NORMALIZATION TRANSFORMATION.....

INQUIRE NUMBER OF AVAILABLE LOGICAL INPUT DEVICES INQUIRE NUMBER OF SEGMENT PRIORITIES SUPPORTED .

INQUIRE OPERATING STATE VALUE........

INQUIRE PATTERN FACILITIES.........

INQUIRE PATTERN REPRESENTATION ........

INQUIRE PICK DEVICE STATE .........

INQUIRE PIXEL.............

INQUIRE PIXEL ARRAY DIMENSION........

INQUIRE PIXEL ARRAY.....'......

INQUIRE POLYLINE FACILITIES.........

INQUIRE POLYLINE REPRESENTATION.......

INQUIRE POLYMARKER FACILITIES........

INQUIRE POLYMARKER REPRESENTATION......

INQUIRE PREDEFINED COLOUR REPRESENTATION .

INQUIRE PREDEFINED FILL AREA REPRESENTATION .    .    .    .

INQUIRE PREDEFINED    PATTERN REPRESENTATION    .

INQUIRE PREDEFINED    POLYLINE PF.RPESENTATION    .    .    .    .

INQUIRE PREDEFINED    POLYMARKER REPRESENTATION    .    .    .

INQUIRE PREDEFINED    TEXT REPRESENTATION .    .    .    .

INQUIRE SEGMENT ATTRIBUTES .........

INQUIRE SET OF ACTIVE WORKSTATIONS......

INQUIRE SET OF ASSOCIATED WORKSTATIONS.....

Страница 175

С. 172 ГОСТ Р 34.1702.3-92

INQUIRE SET OF OPEN WORKSTATIONS............•    7J

INQUIRE SET OF SEGMENT NAMES IN USE.......76

INQUIRE SET OF SEGMENT NAMES ON WORKSTATION

INQUIRE STRING DEVICE STATE.......

INQUIRE STROKE DEVICE STATE.......

INQUIRE TEXT EXTENT........

INQUIRE TEXT FACILITIES........

INQUIRE TEXT REPRESENTATION......

INQUIRE VALUATOR DEVICE STATE ......

INQUIRE WORKSTATION CATEGORY......

INQUIRE WORKSTATION CLASSIFICATION ....

INQUIRE WORKSTATION CONNECTION AND TYPE .

INQUIRE WORKSTATION DEFERRAL AND UPDATE STATES .

INQUIRE WORKSTATION MAXIMUM NUMBERS

INQUIRE WORKSTATION STATE.......

INQUIRE WORKSTATION TRANSFORMATION ....

aaasgaasa ак.я&-а.зд

INSERT SEGMENT.........

INTERPRET ITEM .........

MESSAGE............

OPEN GKS ............

OPEN WORKSTATION..........

POLYLINE ............

POLYMARKER ...........

READ ITEM FROM GKSM.........

REDRAW ALL SEGMENTS ON WORKSTATION ....

RENAME SEGMENT..........

REQUEST CHOICE..........

REQUEST LOCATOR..........

REQUEST PICK...........

REQUEST STRING..........

REQUEST STROKE..........

REQUEST VALUATOR..........

SAMPLE CHOICE...........

SAMPLE LOCATOR..........

SAMPLE PICK...........

SAMPLE STRING...........

SAMPLE STROKE...........

SAMPLE VALUATOR..........

SELECT NORMALIZATION TRANSFORMATION

SET ASPECT SOURCE FLAGS........

SET CHARACTER EXPANSION FACTOR.....

SET CHARACTER HEIGHT.........

SET CHARACTER SPACING........

SET CHARACTER UP VECTOR........

SET CHOICE MODE..........

SET CLIPPING INDICATOR........

SET COLOUR REPRESENTATION.......

SET DEFERRAL STATE .........

SET DETECTABILITY..........

SET FILL AREA COLOUR INDEX.......

Страница 176

ГОСТ Р М. 1702Л—92 С. 173

SET FILL AREA INDEX.................    58

SET FILL AREA INTERIOR STYLE..........69

SET FILL AREA REPRESENTATION................60

SET FILL AREA STYLE INDEX ..................59

SET HIGHLIGHTING..............63

SET LINF.TYPE.........57

SET LINEWIDTH SCALE FACTOR.......'    .    .    57

SET LOCATOR MODE..................65

SEI MARKER SIZE SCALE FACTOR......'.    .    .    67

SET MARKER TYPE....................57

SET PATTERN REFERENCE POINT...............    .    59

SET LINEWIDTH SCALE FACTOR..........57

SET LOCATOR MODE.............65

SET MARKER SIZF. SCALE FACTOR.........57

SET MARKER TYPE.............57

SET PATTERN REFERENCE POINT..........59

SET PATTERN REPRESENTATION..........60

SET PATTERN SIZE.............59

SET PICK IDENTIFIER.............    59

SET PICK MODE .    .    ...........55

SET POLYLINE COLOUR INDEX..........»'

SET POLYLINE INDEX.............|7

SET POLYLINE REPRESENTATION.........59

SET POLYMARKER COLOUR INDEX.........Д7

SET POLYMARKER INDEX...........

SET POLYMARKER REPRESENTATION.........

SET SEGMENT PRIORITY............Ц

SET SEGMENT TRANSFORMATION .    .....

SET STRING MODE.............

SET STROKE MODE.............Ц

•SET TEXT ALIGNMENT ............2°

SET TEXT FONT AND PRECISION..........X

SET TEXT INDEX..............21

SET TEXT PATH .    ..............    2

SET TEXT REPRESENTATION ..........fi0

SET VALUATOR MODE............66

SET VIEWPORT........«......61

SET VIEWPORT INPUT PRIORITY..........61

SET VISIBILITY..............63

SET WINDOW ..............61

SET WORKSTATION VIEWPORT.............62

SET WORKSTATION WINDOW ..........61

TEXT................55

UPDATE WORKSTATION.............53

WRITE ITEM TO GKSM.............    70

Ж2. Процедуры яэыка Ада

ACCUMULATE-TRANSFORMATION_MATRlX.......93

ACTIVATE-WS .    ............* •    52

ASSOCIATE.SEGMENT-WITH.WS..........62

........................ «    69

Страница 177

С. 174 ГОСТ I» И.1702.3-92

CELL-ARRAY.........................    *с

CLEAR-WS.................1    '53

CLOSE-GKS....................;    52

CLOSE.SEGMF-NT............;    *62

CLOSE-WS........'    52*

COPY_SEGMENT_TO_WS............’    63

CREATE. SEGMENT........................62

DEACTIVATE-WS...............    .53

DELETE. SEGMENT......’    62-

DELETE_SEGMENT.FROM.WS........!    .    62

EMERGENCY-CLOSE-GKS....................94

ERROR-HANDLING....................4.    S, 94

ERROR-LOGGING..............5. 94

ESCAPE    53

evaiuate.transformationImatrix ;    n

FILL.AREA......................,    55

FLIJSH-DEVICE.EVENTS............69

GDP ................5S

GET_CHOICE..............70

GET_1TEM_TYPE_FR0M_GKSM..........71

GET. LOCATOR..............70

GET-PICK...............70

GET.STRING ..............70

GET.STROKE ..............70

GET_ VALUAT OR .............70

INIT1ALISE-CHOICE.............

INITIALISE-LOCATOR............64

INITIALISE-PICK.............

INITIALISE. STRING ............»

INITIALISE.STROKE ............

INITIALISE-VALUATOR............6*

INQ-CHAR-BASE.VECTOR....................130

1NQ-CHAR-EXPANSION-FACTOR..........131

1NQ-CHAR-HEIGHT............^    .    I2fr

INQ-CHAR.SPACING............*31

INQ_CHAR_UP_VECTOR............129

INQ-CHAR-WIDTH.............

1NO.CHOICE-DEVICE-STATE..........81

1NQ-CLIPPING..............73

1NQ-COLOUR-FACILITIES...........79

1NQ-C0L0UR-REPRESENTAT10N..........«• '3

INQ_CURRENT_IND1VIDUAL. ATTRIBUTE. VALUES.....74

1NQ-CURRENT_NORMALIZATION_TRANSFORMATION_NUMBER .    .    75

INQ.CDRRENT-PICK-ID-VALUE .    .    ...........'3

INQ_CURRENT_PRIMITIVE-ATTRIBUTE_VALUES......4- 72

INQ-DEFAULT-CHOICE-DEVICE-DATA........90

INO-DEFAULT-DF.FERRAL-STATE-VALUE .......84

INQ-DEFAULT_LOCATOR_DEVlCE_DATA.......&

lNQwDEFAULT_PICK-DEVICE_DATA ........91

......................................

Страница 178

ГОСТ I» 34.1702.3—92 С. I7S

1 NQ-DEFAULT_STROKE.DEVlCE.DATА........90

INQ.DEFAULT_VALUATOR_DEVICE.DATA.......90

INQ D1SPLAY..SPACE.S1ZE...........83

1NQ_ DYNAMIC-MODIFICATION _OF_ SEOMENT _ATTRI BUTES    88

INQ. DYNAM IC.M0D1FICATI0N_0F_WS_ATTRIBUTES.....83

lNQ.F!LL_AREA_COLOUR_lNDEX.........78

INQ.FILL-AREA-FACILITIES...............86

INQ. FILL. AREA-INDEX............78

INQ-FILL.AREA.INTERIOR.STYLE    .    ■......131

INQ-FILL.AREA-REPRESENTATION .    >33

1NQ.FILL-AREA-STYLE-INDEX..........133

1NQ.GDP...............87

INQ_INPUT-QUEUE-OVERFLOW..........«40

INQ. LEVEL. OF.GKS ............71

INQ.LINETYPE..............>30

1NQ-L1NEWIDTH-SCAI.F.-FACTOR .........>30

INQ_LIST.OF.ASF.............>3>

INQ_LIST_OF_AVAILABLE_GDP..........>37

INQ-LIST.OF-AVAILABLE-WS-TYPES........1»

INQ_LIST_OF_COLOUR-INDICES .........33

lNQ_LIST_OF_FlLL_AREA-INDICES.........33

INQ-LIST.OF.NORMALJZATION-TRANSFORMATION-NUMBF.RS    >3»

1NQ_LIST_0F_PATTERN_IND1CES.........™

INQ.LIST. OF_POLYL1NE_INDICES........."

INQ-LIST.OF.POLYMARKER-1ND1CES........"

INQ. LIST_OF_TEXT_lNDICES..........™

INQ. LOCATOR_DEVICE_STATE..........

INQ.MAX-LENOTH.OF..WS.STATE-TABLES.......

1NQ_MAX_NORMALIZAT|ON_TRANSFORMATION_NUMBER    I*.

INQ. MORE-SIMULTANEOUS-EVENTS.........2

INQ. NAME-OF-OPEN_SEGMENT..........42

INQ. NORMALIZATION.TRANSFORMATION .......12

INQ_NUMBER_OF_ AVAILABLE. LOGICAL.INPUT.DEVICES INQ.NUMBER-OF.-SEGMENT.PRIORITIES-SUPPORTED ....

INQ. OPERATING-STATE. VALUE..........Li

INQ. PATTERN. FACILITIES...........73

INQ. PATTFRN_HEIGHT_ VECTOR............

INO-PATTERN.REFERENCE-POINT ..........79

INQ. PATTERN-REPRESENTATION..........

1NQ_PATTERN_WIDTH_VECT0R    .....2

INQ-PICK-DEVICE.STATE............    £

INQ-PIXEL    ..............2

INQ. PIXEL. ARRAY.............2

1NQ.PIXEI—ARRAY_DLV\F.NSION.........."

INQ. POLYLINE-COLOUR.1NDEX..........£

INQ.POLYLINE-FACILITIES...........5;

lNQ.POLYLlNE.INDF.X............

INQ. POLYLINE-REPRESENTATION........."

INQ_ POLYMARKER-COLOUR. INDEX........."

INQ. POLYMARKER.FACILITIES..........36

INQ. POLYMARKER-INDEX    ■    ..........

INQ-POLYMARKER.REPRESENTATION........77

INQ_POLYMARKER-SlZE-SCALE_FACTOR.......74

INQ .POLYMARKER.TYPE ...........74

Страница 179

С. 176 ГОСТ Р 34.1702.3—92

INQ-PREDEFINED-COLOUR-REPRESENTATION INQ_PREDEFINED_FILL_AREA_REPRESENTATION . INQ_PREDEFINED-PATTERN_REPRESENTATION I NQ_PREDEFINED-POLYLINE.. REPRESENTATION 1NQ_PREDEFINED-POLYMARKER_REPRESENTATION INO PREDEFJNED.TEXT-REPRF.SENTATION

INQ-SEGMENT-ATTRIBUTES.....

1NQ_SET_0F_ACTIVE_WS......

I NQ_SET_OF_ ASSOCIATED-W.....

1NQ-SET-OF-OPEN-WS......

1NQ_SF.T_0F-SEGMENT_NAMES_IN-U$E 1NQ-SET-0F_SEGMENT_NAMES_0N_WS .

1NQ-STRING_DEVICE_STATE......

INO-STROKE..DEVICE-STATE .....

INQ-TEXT-ALIGNMENT .    ...

I NQ_TEXT_ COLOUR. INDEX.....

1NQ-TEXT-EXTENT .......

1NQ-TEXT-FACIL1TIES.......

INQ.TEXT-FONT.AND-PRECISION

INQ_TEXT_INDEX.......

INQ. TEXT. PATH ........

INQ-TEXT-REPRESENTATION.....

INQ.VALUATOR-DEVICE-STATE ....

INQ_WS-CATEGORY.......

INQ-WS-CLASSIFICATION.....

INQ-WS-CONNECTION-AND.TYPE    .

INQ-WS_DEFERRAL_AND-UPDATE_STATES

INQ-WS-MAX-NUMBERS......

INQ_WS_STATE........

INQ-WS-TRANSF0RMAT10N.....

1NSERT-SEGMENT.......

INTERPRET-ITEM .    .*.....

MESSAGE.........

OPEN-GKS.........

OPRN-WS .........

POLYLINE.........

POLYMARKER ........

READ.ITEM. FROM-GKSM.....

REDRAW-ALL_SEGMENTS_ON_WS    .

RENAME-SEGMENT.......

REQUEST-CHOICE.......

REQUEST-LOCATOR......

REQUEST-PICK........

REQUEST. STRING.......

REQUEST-STROKE.......

REQUEST. VALUATOR......

SAMPLE-CHOICE.......

SAMPLE-l.OCATOR.......

SAMPLE-PICK ........

SAMPLE-STRING........

SAMPLE-STROKE......

Страница 180

ГОСТ Р 34.1702.3-92 С. 177

SAMPLE-VALUATOR .    . •...........68

SELECT-NORMALIZATION -TRANSFORMATION.......61

SET-ASF .    .....................    59

SET_CHAR_EXPANSION_FACTOR..........S8

SET_CHAR_HEIGHT.......................58

SET-CHAR-SPACING...................    58

SET-CHAR_UP_VECTOR ..................58

SET.CHOICE-MODE...............    ....    6$

SET.CLIPPING-INDICATOR................61

SET_COLOUR-REPRESENTATION..........60

SET. DEFERRAL-STATE............53

SET-DETECTABILITY.............63

SET_FILL_AREA_COLOUR_INDEX..........59

SET-FILL-AREA-INDEX............58

SET_FILL-AREA_INTERIOR_STYLE...............59

SET-FILL-AREA. REPRESENTATION..........60

SET-FILL.AREA-STYLE-INDEX..........59

SET-HIGHLIGHTING........•.....63

SET-LINETYPE..............57

SET_L1NEWIDTH_SCALE_FACT0R ..........57

SET. LOCATOR-MODE.............65

SET-MARKER-S1ZE.SCALE-FACTOR.........57

SET-MARKER-TYPE.............57

SET. PATTERN-REFERENCE-POINT.............59

SET_LINEWIDTH_SCALE-FACTOR..........57

SET-LOCATOR-MODE .    .    .    .    .......65

SET_MARKER_SlZE-SCALE_FACTOR.........57

SF.T-MARKER-TYPE.............

SET. PATTERN_REFERENCE_P01NT.........2

SET-PATTERN-REPRESENTATION .........80

SET-PATTERN-SJZE .    .    ..........59

SET-PICK-ID...............59

SET-PICK-MODF...............66

SET. POLYLINE -COLOUR-INDEX..........57

SET-POLYLINE-INDEX.....v.......57

SET-POLYLINE-REPRESENtATION.........89

SF.T-POLYMARKER-COLOUR-INDEX.........JJ

SET-POI ........................57

SET. POIYMARKER-REPRESENTATION........60

SET SEGMENT-PRIORITY ...........63

SET-SEGMENT-TRANSFORMATION.........63

SET-STRING-MODE .............66

SET. STROKE-MODE.............65

SET. TEXT-ALIGNMENT............58

SET TEXT_COLOUR_ INDEX ............58

SF.T-TEXT-FONT-AND.PRECISION.........58

SET.TEXT-INDEX.............57

SET-TEXT-PATH..............58

Страница 181

С 178 ГОСТ Р 34.1702.3—$2

SET-TEXT.REPRESENTATION .................60

SET-VALUATOR-MODE............66-

SET-VIEWPORT....................    61

SET-VIEWPORT-INPUT-PRIORITY ...    ......61

SET-VfSIBILITY..............63

SET-WINDOW..............61

SET-WS-VIEWPORT.............63

SET.WS-W1NDOW.............63

TEXT.................55

UPDATE-WS...............53

WR1TE_ITEM_T0_GKSM............70

Страница 182

ГОСТ Р 34.l70J.8-»2 С 17» ИНФОРМАЦИОННЫЕ ДАННЫЕ

1.    ПОДГОТОВЛЕН И ВНЕСЕН ТК 22 «Информационная технология»

2.    УТВЕРЖДЕН И ВВЕДЕН В ДЕЙСТВИЕ Постановлением Госстандарта России от 28.12.92.    1577

Настоящий стандарт подготовлен методом прямого применения международного стандарта ИСО 8651—3—88 «Системы обработки информации. Машинная графика. Связь ядра графической системы с языком программирования Ада»

3.    ВВЕДЕН ВПЕРВЫЕ

4.    ССЫЛОЧНЫЕ НОРМАТИВНО-ТЕХНИЧЕСКИЕ ДОКУМЕНТЫ

Ойозввчевме НТД, ■*

погори* дага ссылка

ГОСТ 27817-88

Введение. 2, Приложен»*

ГОСТ 27831-88

2. Приложение

Страница 183

С. 180 ГОСТ Р М.1702.3—92

СОДЕРЖАНИЕ

0.    ВВЕДЕНИЕ.............2

1.    НАЗНАЧЕНИЕ И ОБЛАСТЬ ПРИМЕНЕНИЯ.....2

2.    ССЫЛКИ .............3

.3. СВЯЗЬ ЯДРА ГРАФИЧЕСКОЙ СИСТЕМЫ С ЯЗЫКОМ АДА .    .    3

3.1.    Условия соответствия стандарту........3

3.2.    Включение в язык...........4

3.2.1.    Отображение функций.........4

3.2.2.    Реализация и зависимость от компьютера ....    4

3.2.3.    Обработка ошибок.........4

3.2.4.    Отображение данных....................5

3.2.5.    Многозадачность..........6

3.216. Пакетирование...............6

3.2.7.    Среда прикладных программ.......

3.2.8,    Регистрация...........8

А ТАБЛИЦЫ.............8

4.1.    Процедуры............8

4 2. Определение типов данных .........    25

4.2.1.    Сокращения, используемые в определениях типов данных .    25

4.2.2.    Определение типов в алфавитном порядке ....    25

4.2.3.    Список определений личных типов......46

4.2.4.    Список деклараций коистаит.......48

4.3.    Коды ошибок............50

4.3.1. Задание кодов ошибок.........51

. 4.3,2. Коды устраняемых ошибок........51

S. ФУНКЦИИ В АДЕ. СВЯЗАННЫЕ С ЯДРОМ ГРАФИЧЕСКОЙ

СИСТЕМЫ.............52

5.1.    Функции Я ГС............52

5.2.    Дополнительные функции.........94

5-2.1. Подпрограммы для манипулирования записями входных

данных......94

52.2. Пакет обобщенной координатной системы ЯГС    %

5 2.3. Общий    пакет списка утилит ЯГС ......    98

5.2.4.    Утилиты функций метафайла.......101

-5.3. Настраивающиеся варианты........101

Приложение А.    Спецификация скомпилированного ЯГС ...    102

Приложение Б.    Список ссылок на определенные реализацией записи    144

Приложение В. Примеры программ........145

Приложение Г.    Многозадачный режим работы ЯГС ....    160

Приложение Д. Неподдерживаемые обобщенные примитивы вывода

и расширения........*65

Приложение Е. Типы элементов метафайла......168

Приложение Ж. Индексы функций ЯГС......170

Информационные данные................179

Страница 184

Редактор Р. С. Федорова Технический редактор В. Н. ПРусакова Корректор М. С. Кабанооа

Свапо в набор 23.01.93. ПОЛИ. I печ 3J 0503. Уел. п*ч. в. I0.6S У<Л. кротт. 10,82.

Уч-'МЗД. л. 13.66. Тир. 341. С Z31.

Ордек» «Знак Пояета» Имителкгво стаиляртоп. 107076. Моема. КолоаеэкиИ n«p„ М. Калужских типография стандартов, ул. Московская. 230. 3*к 2Э7