Редактирование: Работа с универсальными плоскими объектами

[[Категория:Макро]]
{{Макро}}
----
В системе имеется список двухмерных универсальных объектов. Над этими объектами можно производить различные операции (поиск точки пересечения, поиск точки касания и пр). Эти операции могут возвращать числовые значения (координаты), могут порождать новые универсальные объекты и добавлять их в список и пр.

Каждый элемент в этом списке имеет свой уникальный номер. После удаления объекта номер не может быть использован. 

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

== Добавление, получение и удаление объекта ==
===AddUnObj2D===
<code>INT '''AddUnObj2D'''(INT ''&lt;Type&gt;'', INT ''&lt;CreType&gt;'', ARRAY ''&lt;Array&gt;'')</code>

Функция добавляет в список созданных объектов объект типа <code>''&lt;Type&gt;</code> ''способом задания <code>''&lt;CreType&gt;''</code> и данными из массива <code>''&lt;Array&gt;''</code>. 

Функция возвращает номер созданного объекта в списке.


'''Возможные типы объектов '''''<code>&lt;Type&gt;</code>''''':'''


* '''0''' - точка

способы задания <code>''&lt;CreType&gt;''</code> (они будут пополняться):

'''0''' - по декартовым координатам

'''<nowiki>&lt;Array&gt;[1]</nowiki>''' - Координата '''X'''

'''<nowiki>&lt;Array&gt;[2]</nowiki>''' - Координата '''Y'''

'''1''' - по полярным координатам

'''<nowiki>&lt;Array&gt;[1]</nowiki>''' - Радиус

'''<nowiki>&lt;Array&gt;[2]</nowiki>''' - Угол


* '''1''' - отрезок

способы задания <code>''&lt;CreType&gt;''</code>:

'''0''' — по декартовым координатам начала и конца отрезка

'''<nowiki>&lt;Array&gt;[1]</nowiki>''' - Координата '''X''' начала отрезка

'''<nowiki>&lt;Array&gt;[2]</nowiki>''' - Координата '''Y''' начала отрезка

'''<nowiki>&lt;Array&gt;[3]</nowiki>''' - Координата '''X''' конца отрезка

'''<nowiki>&lt;Array&gt;[4]</nowiki>''' - Координата '''Y''' конца отрезка


* '''2''' - дуга

способы задания <code>''&lt;CreType&gt;''</code>:

'''0''' - по декартовым координатам трех точек дуги

'''<nowiki>&lt;Array&gt;[1]</nowiki>''' - Координата '''X''' начала дуги

'''<nowiki>&lt;Array&gt;[2]</nowiki>''' - Координата '''Y''' начала дуги

'''<nowiki>&lt;Array&gt;[3] </nowiki>'''- Координата '''X''' конца дуги

'''<nowiki>&lt;Array&gt;[4]</nowiki>''' - Координата '''Y''' конца дуги

'''<nowiki>&lt;Array&gt;[5] </nowiki>'''- Координата '''X''' точки на дуге

'''<nowiki>&lt;Array&gt;[6]</nowiki>''' - Координата '''Y''' точки на дуге

'''1''' - по декартовым координатам начала и конца дуги и радиусу

'''<nowiki>&lt;Array&gt;[1]</nowiki>''' - Координата '''X '''начала дуги

'''<nowiki>&lt;Array&gt;[2] </nowiki>'''- Координата '''Y''' начала дуги

'''<nowiki>&lt;Array&gt;[3]</nowiki>''' - Координата '''X''' конца дуги

'''<nowiki>&lt;Array&gt;[4] </nowiki>'''- Координата '''Y''' конца дуги

'''<nowiki>&lt;Array&gt;[5]</nowiki>''' - Радиус дуги. Если радиус &gt;0, строится малая дуга. Иначе - большая дуга

'''<nowiki>&lt;Array&gt;[6]</nowiki>''' - Ориентация дуги. Если ориентация =1 - положительное направление (против часовой стрелки). Иначе - по часовой.


* '''3''' - окружность

способы задания <code>''&lt;CreType&gt;''</code>:

'''0''' - по декартовым координатам точки центра, радиусу и ориентации

'''<nowiki>&lt;Array&gt;[1]</nowiki>''' - Координата '''X''' центра окружности

'''<nowiki>&lt;Array&gt;[2] </nowiki>'''- Координата '''Y''' центра окружности

'''<nowiki>&lt;Array&gt;[3]</nowiki>''' - Радиус окружности

'''<nowiki>&lt;Array&gt;[4] </nowiki>'''- Координата ориентация (1 - положительная - против часовой стрелки, '''0''' - отрицательная - по часовой стрелке)

===GetUnObj2D===
<code>INT '''GetUnObj2D'''(INT ''&lt;Num&gt;'', INT ''&lt;Type&gt;'', ARRAY ''&lt;Array&gt;'')</code>

Функция заполняет массив <code>''&lt;Array&gt;''</code> данными об объекте с номером <code>''&lt;Num&gt;''</code> в списке и возвращает в переменную <code>''&lt;Type&gt;''</code> тип возвращаемого объекта.

Функция возвращает число заполненных элементов массива.


'''Возможные типы объектов '''''<code>&lt;Type&gt;</code>'':


* '''0''' - точка

'''<nowiki>&lt;Array&gt;[1]</nowiki>''' - Координата '''X'''

'''<nowiki>&lt;Array&gt;[2]</nowiki>''' - Координата '''Y'''


* '''1''' - отрезок

'''<nowiki>&lt;Array&gt;[1]</nowiki>''' - Координата '''X''' начала отрезка

'''<nowiki>&lt;Array&gt;[2]</nowiki>''' - Координата '''Y''' начала отрезка

'''<nowiki>&lt;Array&gt;[3]</nowiki>''' - Координата '''X''' конца отрезка

'''<nowiki>&lt;Array&gt;[4]</nowiki>''' - Координата '''Y''' конца отрезка


* '''2''' - дуга

'''<nowiki>&lt;Array&gt;[1]</nowiki>''' - Координата '''X''' начала дуги

'''<nowiki>&lt;Array&gt;[2]</nowiki>''' - Координата '''Y''' начала дуги

'''<nowiki>&lt;Array&gt;[3] </nowiki>'''- Координата '''X''' конца дуги

'''<nowiki>&lt;Array&gt;[4]</nowiki>''' - Координата '''Y''' конца дуги

'''<nowiki>&lt;Array&gt;[5] </nowiki>'''- Координата '''X''' точки на дуге

'''<nowiki>&lt;Array&gt;[6]</nowiki>''' - Координата '''Y''' точки на дуге


* '''3''' - окружность

'''<nowiki>&lt;Array&gt;[1]</nowiki>''' - Координата '''X''' центра окружности

'''<nowiki>&lt;Array&gt;[2] </nowiki>'''- Координата '''Y''' центра окружности

'''<nowiki>&lt;Array&gt;[3]</nowiki>''' - Радиус окружности

'''<nowiki>&lt;Array&gt;[4] </nowiki>'''- Координата ориентация (1 - положительная - против часовой стрелки, '''0''' - отрицательная - по часовой стрелке)

===FreeUnObj2D===
<code>LOGICAL '''FreeUnObj2D'''(INT ''&lt;Num&gt;'')</code>

Функция удаляет из списка объект с номером <code>&lt;Num&gt;</code>.

Функция возвращает единицу в случае успешного удаления и ноль — в случае ошибки.

== Построение дуги, касательной к объектам ==
<code>INT '''ArcTTUnObj2D'''(INT ''&lt;Num1&gt;'', INT ''&lt;Num2&gt;'', DOUBLE ''&lt;R&gt;''<nowiki>[,</nowiki>'' ''DOUBLE ''&lt;X&gt;'', DOUBLE ''&lt;Y&gt;''])</code>

Функция '''ArcTTUnObj2D''' строит дугу радиуса <code>''&lt;R&gt;''</code>, касательную к объектам с номерами <code>''&lt;Num1&gt;''</code> и <code>''&lt;Num2&gt;''</code>. Если радиус <code>''&lt;R&gt;''</code> отрицательный, дуга строится по часовой стрелке. Иначе - против часовой стрелки. Необязательные параметры <code>''&lt;X&gt;''</code> и <code>''&lt;Y&gt;''</code> задают желательный центр дуги касания (для однозначности)

Функция возвращает номер построенного объекта. Если ничего построить не удалось, функция возвращает '''0'''.

== Деление объекта точкой ==

<code>INT '''Div2UnObj2D'''(INT ''&lt;Num&gt;'', DOUBLE ''&lt;X&gt;'', DOUBLE ''&lt;Y&gt;'')</code>

Функция '''Div2UnObj2D''' делит объект с номером <code>''&lt;Num&gt;''</code> точкой с координатами <code>''&lt;X&gt;''</code> и <code>''&lt;Y&gt;''</code>. В результате деления образуются два новых объекта, один из которых может быть точкой. Функция возвращает номер первого образовавшегося объекта (от начала до точки деления). Номер второго объекта (от точки деления до конца) имеет следующий порядковый номер. В случае, если точка не лежит на объекте <code>''&lt;Num&gt;''</code>, функция возвращает '''0'''.

== Вычисление параметров дуги ==
<code>INT '''GetACUnObj2D'''(INT ''&lt;Num&gt;'', DOUBLE ARRAY ''&lt;Arr&gt;'')</code>

Функция '''GetACUnObj2D''' вычисляет параметры объекта с номером <code>''&lt;Num&gt;''</code> типа "'''дуга'''" и складывает в массив <code>''&lt;Arr&gt;''</code> последовательно вычисленные параметры:

<code>''<nowiki>&lt;Arr[1]&gt;</nowiki>''</code> — Координата '''X '''центра дуги

<code>''<nowiki>&lt;Arr[2]&gt;</nowiki>''</code> — Координата '''Y''' центра дуги

<code>''<nowiki>&lt;Arr[3]&gt;</nowiki>''</code> — Радиус дуги

<code>''<nowiki>&lt;Arr[4]&gt;</nowiki>''</code> — Ориентация дуги ('''1''' - положительная - против часовой стрелки, '''0''' - отрицательная - по часовой стрелки)

<code>''<nowiki>&lt;Arr[5]&gt;</nowiki>''</code> — Угол до начала дуги (в радианах)

<code>''<nowiki>&lt;Arr[6]&gt;</nowiki>''</code> — Угол раствора дуги (в радианах)

Функция возвращает число заполненных элементов массива. Для не дуги функция возвращает 0.

== Нахождение точек пересечения объектов ==

<code>INT '''InterUnObj2D'''(INT ''&lt;UnObj1&gt;'', LOGICAL ''&lt;OnObjFlag1&gt;'', INT ''&lt;UnObj2&gt;'', LOGICAL ''&lt;OnObjFlag2&gt;'', { STRING ''&lt;ArrName&gt;'' | DOUBLE ARRAY ''&lt;Arr&gt;'' })</code>

Функция '''InterUnObj2D''' находит точки объектов с номерами <code>''&lt;UnObj1&gt;''</code> и <code>''&lt;UnObj2&gt;''</code>, и записывает точки пересечения в массив с именем <code>''&lt;ArrName&gt;''</code> или уже созданный массив <code>''&lt;Arr&gt;''</code>. Если флаги <code>''&lt;OnObjFlag1&gt;''</code> или <code>''&lt;OnObjFlag2&gt;</code>'' равны '''1''', то точка пересечения ищется только на самих объектах. Если флаги <code>''&lt;OnObjFlag1&gt;''</code> или <code>''&lt;OnObjFlag2&gt;''</code> равны '''0''', то точка пересечения ищется не только на объектах, но и на их продолжениях. 

В массив с именем <code>''&lt;ArrName&gt;''</code> или уже созданный массив <code>''&lt;Arr&gt;'</code>' записываются последовательно координаты точек персечения. Размерность массива равна '''2*n''', где '''n''' - количество найденных точек пересечения. Если точек пересечения не найдено, массив не создается. 

Функция возвращает количество найденных точек пересечения или '''-1''' в случае ошибки.

Пример:
<source lang="lua">
 defarr li1[4],ar1[6]; // Создаем массивы под объекты
 
 NULLOUT=initarray(li1,0); // Инициализируем массивы
 NULLOUT=initarray(ar1,0); // Инициализируем массивы
 
 // Первый объект будет отрезок от точки (0,0) до (0,100)
 li1[1]=0;
 li1[2]=0;
 li1[3]=0;
 li1[4]=100;

 // Второй объект - окружность от точки (50,0) до (-50,0), проходит через точку (0,-50)
 ar1[1]=50;
 ar1[2]=0;
 ar1[3]=-50;
 ar1[4]=0;
 ar1[5]=0;
 ar1[6]=-50;

 // Добавляем объекты в список
 un1=addunobj2d(1,0,li1);
 un2=addunobj2d(2,0,ar1);

 // Находим точки пересечения первого отрезка с окружностью, на которой лежит вторая дуга
 
 // Массив задаем строкой
 kp=InterUnObj2D(un1,1,un2,0,"arr");
 
 if (kp&gt;0)
 {
   putmsg(arr);
 }
 
 // Находим точки пересечения прямой первого отрезка с окружностью, на которой лежит вторая дуга
 
 // Массив задаем явно
 defarr qqq[4];
 
 kp=InterUnObj2D(un1,0,un2,0,qqq);
 
 if (kp&gt;0)
 {
   putmsg(qqq)
 }  
 exit;
</source>

== Сервисные функции ==

<code>INT '''MaxUnObj2D'''()</code>

Функция '''MaxUnObj2D''' возвращает максимальный номер объекта в списке.


<code>INT '''TypeUnObj2D'''(INT ''&lt;Num&gt;'')</code>

Функция '''TypeUnObj2D''' возвращает тип объекта с номером <code>''&lt;Num&gt;''</code> или '''-1''' в случае ошибки

Типы объектов:

:'''0''' - точка;
:'''1''' - отрезок;
:'''2''' - дуга;
:'''3''' - окружность;
:'''4''' - сплайн.

Пример:
 // Строим сопряжение дугой двух отрезков
 defarr li1[4],li2[4],ar[6],li3[4],li4[4];
 
 // Координаты первого отрезка
 li1[1]=0;
 li1[2]=0;
 li1[3]=100;
 li1[4]=0;
 
 // Координаты второго отрезка
 li2[1]=100;
 li2[2]=0;
 li2[3]=100;
 li2[4]=100;
 
 // Радиус сопряжения
 r=30;
  
 // Добавляем объекты
 u1=addunobj2d(1,0,li1);
 u2=addunobj2d(1,0,li2);
 
 // Получаем дугу сопряжения
 u3=arcttunobj2d(u1,u2,r);
  
 
 // Читаем ее координаты
 NULLOUT=getunobj2d(u3,ty,ar);
 
 // Делим первый отрезок
 u4=div2unobj2d(u1,ar[1],ar[2]);
 
 // Удаляем ненужную часть отрезка
 NULLOUT=freeunobj2d(u4+1);
 
 // Делим второй отрезок
 u5=div2unobj2d(u2,ar[3],ar[4]);
 
 // Удаляем ненужную часть отрезка
 NULLOUT=freeunobj2d(u5);
 
 // Читаем координаты
 NULLOUT=getunobj2d(u4,ty,li3);
 NULLOUT=getunobj2d(u5+1,ty,li4);
 
 // Находим максимальный номер объекта
 NULLOUT=maxunobj2d();
 
 // Строим сопряжение
 line li3[1],li3[2],0 li3[3],li3[4],0;
 arc ar[1],ar[2],0 ar[3],ar[4],0 ar[5],ar[6],0;
 line li4[1],li4[2],0 li4[3],li4[4],0;
 
 // Удаляем объекты
 NULLOUT=freeunobj2d(u1);
 NULLOUT=freeunobj2d(u2);
 NULLOUT=freeunobj2d(u3);
 NULLOUT=freeunobj2d(u4);
 NULLOUT=freeunobj2d(u5+1);
 
 // Находим максимальный номер объекта
 NULLOUT=maxunobj2d();
 
 exit;
----
{{Макро}}