Методическое руководство к практическим занятиям по обработке сейсмических материалов на ЭВМ. Дубянский А.И - 37 стр.

                                         37

*TRIM на экране монитора.
О Б Р АЩ Е Н И Е
*IHORM=Exp, Nhor [,Col1, Col2]

Параметры Значения
Exp       точка выхода основной пpогpаммы (1÷6).
Nhor      номер таблицы HRxx в паспорте профиля, начиная с которой будут за-
          писываться снимаемые горизонты (Nhor=1÷99). По умолчанию
          NHOR=1.
Col1      цвет отмечаемых мышью узловых точек горизонтов (0÷15). По умолча-
          нию COL1=15, т.е. ярко-белый цвет.
Col2      цвет соединительных линий между узловыми точками (0÷15). По умол-
          чанию COL2=15, т.е. ярко-белый цвет.
Р АБ О Т А   П Р О ГР АМ М Ы
1. В левой части нижней строки экрана указываются текущие параметры (t, x). Горизон-
   ты снимаются с экрана левой кнопкой мыши. После снятия каждой точки в правой
   части нижней строки экрана указываются последние снятые параметры и количество
   снятых точек (от 2 до 99 для каждого горизонта). Координаты должны возрастать, в
   противном случае выводится сообщение:
Incorrect X - retry.
2. Для перехода к снятию c экрана следующего горизонта необходимо ввести курсор
   мыши внутрь квадрата в правой нижней части разреза и нажать левую кнопку мыши
   или нажать клавишу “E” (End), после чего запрашивается подтверждение на запись
   снятого горизонта в заданную таблицу паспорта профиля начиная с Nhor. Для сле-
   дующего горизонта значение Nhor автоматически увеличивается на единицу.
3. Отмена последней введенной узловой точки горизонта производится нажатием кла-
   виши “L” (clear Line), при этом последняя соединительная линия становится черной.
4. Окончание работы с мышью – нажатие правой кнопки, после чего запрашивается под-
   тверждение на запись очередного горизонта.
П Р И М Е Ч АН И Я
1. Параметры COL1 и COL2 необязательные.
2. Подпрограмма *IHORM="exp=… должна стоять в задании непосредственно после
   подпрограммы *TRIM="exp=…, где exp – одна и та же точка выхода основной про-
   граммы. В противном случае задание завершается с сообщением:
Visualisation missing in job.
3. Параметр Qtr в *TRIM должен быть не меньше количества трасс временного разреза
   (рекомендуемое значение параметра Qtr выводится в листинг задания на шаге подго-
   товки). Кроме того, изображение должно полностью помещаться на экране монитора.
   В противном случае задание завершается с сообщением:
Unable to processing with mouse.
4. Если ни одно значение не снято, т. е. сразу нажата правая кнопка мыши, задание за-
   вершается с сообщением:
   None value selected.
ПPИМЕP
opt=(msg=1)