siemens-rtl/twin_thrd.c
2023-07-11 14:40:13 +02:00

317 lines
7.6 KiB
C

#ifndef lint
static char sccs_id[] = "@(#)twin_thrd.c 5.3 9/1/88";
#endif
/*
* Copyright 1988 by Siemens Research and Technology Laboratories, Princeton, NJ
*
* All Rights Reserved
*
* Permission to use, copy, modify, and distribute this software and its
* documentation for any purpose and without fee is hereby granted,
* provided that the above copyright notice appear in all copies and that
* both that copyright notice and this permission notice appear in
* supporting documentation, and that the name of Siemens Research and Technology
* Laboratories not be used in advertising or publicity pertaining to
* distribution of the software without specific, written prior permission.
*
*
* SIEMENS DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
* ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
* SIEMENS BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
* ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
* WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
* ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
* SOFTWARE.
*/
#include "copyright.h"
#include "basetype.h"
#include "twinD.h"
#include "state.h"
/* ------------------------------------------------------------ */
#define Dist(pt1,pt2) \
( ( ((pt1).x - (pt2).x)*((pt1).x - (pt2).x) ) + \
( ((pt1).y - (pt2).y)*((pt1).y - (pt2).y) ) )
/* ------------------------------------------------------------ */
Tilwinp Tilwin_Thread_Nearest( pt )
TWPoint pt;
{
Tilwin *head, *winp, *prev, *cur;
WinpHandle handle;
int dist;
head = WINP_NULL;
handle = State_Gen_Open_Windows();
while ( (winp = State_Coerce(handle)) != WINP_NULL )
{
dist = Dist( pt, winp->center );
prev = WINP_NULL;
cur = head;
while ( ( cur != WINP_NULL ) &&
( dist > Dist( pt, cur->center ) ) )
{
prev = cur;
cur = (Tilwin *)Tilwin_Get_Data(cur);
}
Tilwin_Put_Data( winp, cur );
if ( prev == WINP_NULL )
head = winp;
else
Tilwin_Put_Data( prev, winp );
State_Next_Window(&handle);
}
return (Tilwinp)head;
}
/* ------------------------------------------------------------ */
Tilwinp Tilwin_Thread_Vertly_Nearest( pt )
TWPoint pt;
{
Tilwin *head, *winp, *prev, *cur;
WinpHandle handle;
int dist;
head = WINP_NULL;
handle = State_Gen_Open_Windows();
while ( (winp = State_Coerce(handle)) != WINP_NULL )
{
dist = ABS( pt.y - winp->center.y );
prev = WINP_NULL;
cur = head;
while ( ( cur != WINP_NULL ) &&
( dist > ABS( pt.y - cur->center.y ) ) )
{
prev = cur;
cur = (Tilwin *)Tilwin_Get_Data(cur);
}
Tilwin_Put_Data( winp, cur );
if ( prev == WINP_NULL )
head = winp;
else
Tilwin_Put_Data( prev, winp );
State_Next_Window(&handle);
}
return (Tilwinp)head;
}
/* ------------------------------------------------------------ */
Tilwinp Tilwin_Thread_Horizly_Nearest( pt )
TWPoint pt;
{
Tilwin *head, *winp, *prev, *cur;
WinpHandle handle;
int dist;
head = WINP_NULL;
handle = State_Gen_Open_Windows();
while ( (winp = State_Coerce(handle)) != WINP_NULL )
{
dist = ABS( pt.x - winp->center.x );
prev = WINP_NULL;
cur = head;
while ( ( cur != WINP_NULL ) &&
( dist > ABS( pt.x - cur->center.x ) ) )
{
prev = cur;
cur = (Tilwin *)Tilwin_Get_Data(cur);
}
Tilwin_Put_Data( winp, cur );
if ( prev == WINP_NULL )
head = winp;
else
Tilwin_Put_Data( prev, winp );
State_Next_Window(&handle);
}
return (Tilwinp)head;
}
/* ------------------------------------------------------------ */
Tilwinp Tilwin_Thread_Farthest( pt )
TWPoint pt;
{
Tilwin *head, *winp, *prev, *cur;
WinpHandle handle;
int dist;
head = WINP_NULL;
handle = State_Gen_Open_Windows();
while ( (winp = State_Coerce(handle)) != WINP_NULL )
{
dist = Dist( pt, winp->center );
prev = WINP_NULL;
cur = head;
while ( ( cur != WINP_NULL ) &&
( dist < Dist( pt, cur->center ) ) )
{
prev = cur;
cur = (Tilwin *)Tilwin_Get_Data(cur);
}
Tilwin_Put_Data( winp, cur );
if ( prev == WINP_NULL )
head = winp;
else
Tilwin_Put_Data( prev, winp );
State_Next_Window(&handle);
}
return (Tilwinp)head;
}
/* ------------------------------------------------------------ */
Tilwinp Tilwin_Thread_Vertly_Farthest( pt )
TWPoint pt;
{
Tilwin *head, *winp, *prev, *cur;
WinpHandle handle;
int dist;
head = WINP_NULL;
handle = State_Gen_Open_Windows();
while ( (winp = State_Coerce(handle)) != WINP_NULL )
{
dist = ABS( pt.y - winp->center.y );
prev = WINP_NULL;
cur = head;
while ( ( cur != WINP_NULL ) &&
( dist < ABS( pt.y - cur->center.y ) ) )
{
prev = cur;
cur = (Tilwin *)Tilwin_Get_Data(cur);
}
Tilwin_Put_Data( winp, cur );
if ( prev == WINP_NULL )
head = winp;
else
Tilwin_Put_Data( prev, winp );
State_Next_Window(&handle);
}
return (Tilwinp)head;
}
/* ------------------------------------------------------------ */
Tilwinp Tilwin_Thread_Horizly_Farthest( pt )
TWPoint pt;
{
Tilwin *head, *winp, *prev, *cur;
WinpHandle handle;
int dist;
head = WINP_NULL;
handle = State_Gen_Open_Windows();
while ( (winp = State_Coerce(handle)) != WINP_NULL )
{
dist = ABS( pt.x - winp->center.x );
prev = WINP_NULL;
cur = head;
while ( ( cur != WINP_NULL ) &&
( dist < ABS( pt.x - cur->center.x ) ) )
{
prev = cur;
cur = (Tilwin *)Tilwin_Get_Data(cur);
}
Tilwin_Put_Data( winp, cur );
if ( prev == WINP_NULL )
head = winp;
else
Tilwin_Put_Data( prev, winp );
State_Next_Window(&handle);
}
return (Tilwinp)head;
}
/* ------------------------------------------------------------ */
Tilwinp Tilwin_Thread_Nearest_Position()
{
Tilwin *head, *winp, *prev, *cur;
WinpHandle handle;
int dist;
head = WINP_NULL;
handle = State_Gen_Open_Windows();
while ( (winp = State_Coerce(handle)) != WINP_NULL )
{
dist = Dist( winp->position, winp->center );
prev = WINP_NULL;
cur = head;
while ( ( cur != WINP_NULL ) &&
( dist > Dist( cur->position, cur->center ) ) )
{
prev = cur;
cur = (Tilwin *)Tilwin_Get_Data(cur);
}
Tilwin_Put_Data( winp, cur );
if ( prev == WINP_NULL )
head = winp;
else
Tilwin_Put_Data( prev, winp );
State_Next_Window(&handle);
}
return (Tilwinp)head;
}
/* ------------------------------------------------------------ */
Tilwinp Tilwin_Reverse_Thread( head )
Tilwinp head;
{
Tilwin *prev, *cur, *next;
prev = WINP_NULL;
cur = (Tilwin *)head;
while ( cur != WINP_NULL )
{
next = (Tilwin *)Tilwin_Get_Data( cur );
Tilwin_Put_Data( cur, prev );
prev = cur;
cur = next;
}
return (Tilwinp)prev;
}