/*
 * *****************************************************************
 * *															   *
 * *	   Copyright (c) Fast Corporation, 1997					   *
 * *															   *
 * *   All Rights Reserved.	 Unpublished rights	 reserved  under   *
 * *   the copyright laws of the Japan.							   *
 * *															   *
 * *   The software contained on this media	 is	 proprietary  to   *
 * *   and	embodies  the  confidential	 technology	 of	 Fast	   *
 * *   Corporation.	 Possession, use,  duplication	or			   *
 * *   dissemination of the software and media is authorized only  *
 * *   pursuant to a valid written license from Fast Corporation.  *
 * *															   *
 * *****************************************************************
 */

/* ＣＳＣ９０Ｘ　パタン登録時ﾌﾟﾛｼﾞｪｸｼｮﾝによりｾﾝﾀｰﾏｰｸを自動登録	  GSPRJC2.C */
/*					（ 濃度波形＋スレッシュ交点によるエッジ検出版 ）		*/
/*［作成者］H.Yagi */
/*
目的：
関数：
履歴：	Ver 1.0		98/04/16
		Ver 2.0		00/05/18	グレイサーチ用パラメータ設定パッドの追加
注記：パタンファイルはシステム共通のGRAY_PTN.SYSを使用します
	  m_menu.hをインクルードして下さい。
	  m_menu.c,m_note.cをリンクして下さい。
*/

/*
 * Include compiler runtime library
 */
#include <string.h>
#include <math.h>


/*
 * Include CSC90X library
 */
#include "f_stdlib.h"
#include "f_time.h"
#include "f_gui.h"
#include "f_stdio.h"
#include "f_graph.h"
#include "f_image.h"
#include "f_pinf.h"
#include "f_video.h"
#include "f_system.h"
#include "f_search.h"
#include "f_gray.h"


/*
 * Include CSC90X common local
 */
#include "m_menu.h"


/*
 * プロトタイプ宣言
 */
void  main( void );
void  main_menu_disp( void );
void  disp_help( void );
void set( void );
void gs_joken( void );
void wind_set( int *, int *, int *, int * );
void ptn_reg( void );
int  set_box( int *, int *,int *, int * );
int  get_center( int, int, int, int, double *, double * );
void s_line_set_cnt( int, int, int, int, int, int *, int * );
void s_line_set_h( int, int, int, int, int *, int, int, int, int, int * );
void s_line_set_v( int, int, int, int, int *, int, int, int, int, int * );
void disp_wave( int, int, int, int *, int, int );
void ptn_disp( void );
void ptn_search( void );
void disp_center_mark( int, int );
int  center_xy( int, int, int, int, int *, int *, int, int, double *, double * );
int  get_pos( int *, int, int, int, double * );
int XXd4i5_d( double );

extern int	message_note( void );


/*
 * メニュー項目
 */
#define LANG_N		 2
#define MAIN_MENU_N	 4
static const char *str_main_menu[MAIN_MENU_N][LANG_N] = {
	{ "   GRAY   ", "  設  定  " },
	{ "   EXEC   ", "  実  行  " },
	{ "  PROC3   ", "  処理３  " },
	{ "  PROC4   ", "  処理４  " }
};


#define	 INIT_CUR_POS_X		255
#define	 INIT_CUR_POS_Y		239

static char *select[3] = { "通常"   , "高　" , "超高"   };

typedef enum
{
	DIREC_H,
	DIREC_V
} dummy2;

#define         DRAW_POINT_H    463
#define         DRAW_POINT_V    511
#define         LINE_SHAEI        0
#define         DOT_SHAEI         1
#define         DRAW              1
#define         ERAS              0
#define         MOUSE_SENSE       3

static char ss[70];
int s1_a, s1_b, s1_c, s1_d;
int s2_a, s2_b, s2_c, s2_d;
int s3_a, s3_b, s3_c, s3_d;
int name;
static int avex[480];
static int avey[512];
static double edge[50];
int xs, ys, xe, ye;
int level_h, level_v;		/*しきい値	*/
int wave_onoff;				/*波形表示フラグ*/

int gs_wxs;				/* サーチ範囲始点Ｘ		*/
int gs_wys;				/* サーチ範囲始点Ｙ		*/
int gs_wxe;				/* サーチ範囲終点Ｘ		*/
int gs_wye;				/* サーチ範囲終点Ｙ		*/
int seido;				/* 精度					*/
int complex;			/* 複雑度				*/
int mid_lower;			/* 途中下限値			*/
int last_lower;			/* 最終下限値			*/


/*
 * メイン
 */
void  main( void )
{
	int	 sts;
	int	 xpos;
	int	 ypos;
	int	 s_xpos;
	int	 s_ypos;

	/* 初期メッセージ表示 */
	if( NORMAL_RETURN != message_note() )
		return;

	/* パラメタ初期化 */
	xpos = INIT_CUR_POS_X;
	ypos = INIT_CUR_POS_Y;
	s_xpos = INIT_CUR_POS_X;
	s_ypos = INIT_CUR_POS_Y;
	name	=	0x30303030;		 /* 0000 */
	xs = 200;
	ys = 200;
	xe = 299;
	ye = 299;
	level_h			=	50;
	level_v			=	50;
	
	gs_wxs		=	0;
	gs_wys		=	0;
	gs_wxe		=	511;
	gs_wye		=	479;
	seido		=	1;
	complex		=	1;
	mid_lower	=	5000;
	last_lower	=	7000;
	
	/* 入力ビデオ制御 */
	Lib_input_video_control( GRAY_PLANE );

	/* ビデオ出力表示項目制御 */
	Lib_display_control( GRAY_PLANE | LINE_PLANE | CHAR_PLANE );

	/* ビデオ表示項目クリア */
	Lib_memory_clear( LINE_PLANE | CHAR_PLANE );

	/* カーソル初期化 */
	Lib_init_cursor();

	/* メインメニューの表示 */
	main_menu_disp();

	/* マウスカーソルの表示 */
	Lib_draw_cursor( INIT_CUR_POS_X, INIT_CUR_POS_Y );

	/*GRAY_PTN.SYSを使用する*/
	if ( NORMAL_RETURN == Lib_gs_open_data_file( CONTINUE_PTN_AREA ) )
	{
		/* メニュー制御 */
		for (;;)
		{
			sts = 0;

			/* マウス位置読みとり */
			sts = Lib_see_current_position( &xpos, &ypos );
			if ( s_xpos != xpos || s_ypos != ypos )
			{
				/* マウス表示位置移動 */
				Lib_move_cursor( xpos, ypos );
				s_xpos = xpos;
				s_ypos = ypos;
			}
			
			/* 処理振り分け */
			if( CURSOR_EXECUTE == sts )
			{
				if ( xpos > MENU_1_XS && xpos < MENU_1_XE && ypos > MENU_1_YS && ypos < MENU_1_YE )
				{
					Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
					set();												/* 設定 */
					main_menu_disp();
				}
				else if ( xpos > MENU_2_XS && xpos < MENU_2_XE && ypos > MENU_2_YS && ypos < MENU_2_YE )
				{
					Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
					ptn_search();										/* 実行 */
					main_menu_disp();
				}
				else if ( xpos > MENU_H_XS && xpos < MENU_H_XE && ypos > MENU_H_YS && ypos < MENU_H_YE )
				{
					Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
					disp_help();										/* ヘルプ */
					main_menu_disp();
				}
				else if ( xpos > MENU_E_XS && xpos < MENU_E_XE && ypos > MENU_E_YS && ypos < MENU_E_YE )
				{
					break;												/* 終了 */
				}
			}
		}
		
		Lib_gs_close_data_file();
	}
	else
		Lib_display_message( 100, 200, "エラー", "パタンエリアは使用できません" );
	
}


/*
 * メインメニュー表示
 */
static void	 main_menu_disp( void )
{
	int iLanguage;

	/* 日本語／英語表示文字列切替情報取得 */
	iLanguage = Lib_get_disp_language();

	/* 整列キー表示 -> ( m_menu.c ) */
	SUB_menu_disp4he( (char *)str_main_menu[0][iLanguage],
					(char *)str_main_menu[1][iLanguage],
					(char *)NULL,
					(char *)NULL
					);
}


/*
 * ヘルプ表示
 */
static void	 disp_help( void )
{
	Lib_chrdisp( 10,  8, "【機能\概要】                     GSPRJC2" );
	Lib_chrdisp( 11, 10, "サーチパタン登録時のセンターマークを濃度投影" );
	Lib_chrdisp( 11, 12, "によって求めた波形により決定するサンプルです。" );
	Lib_chrdisp( 11, 14, "濃度波形よりスレッシュ交点を設定しエッジ検出を" );
	Lib_chrdisp( 11, 16, "行い、センターマーク位置を決定します。" );
	Lib_chrdisp( 11, 18, "エッジ検出は２点または４点の場合のみ有効です。" );
	Lib_chrdisp( 11, 20, "  ２点の場合：２点間の中心にて登録します。" );
	Lib_chrdisp( 11, 22, "  ４点の場合：内側の２点間の中心にて登録します。" );
	Lib_chrdisp( 11, 24, "パタンファイルはGRAY_PTN.SYSを使用します。" );
}

/************************************************************************/
/*	 サーチ設定															*/
/************************************************************************/
void set( void )
{

int pad_level_ptn;
int status_flag;
int rtn;

	pad_level_ptn = Lib_view_open();
	Lib_view_set_title( pad_level_ptn, "設定" );
	
	Lib_view_set_null( pad_level_ptn, 5,   5, "サーチ条件"	, 0 );
	Lib_view_set_null( pad_level_ptn, 5,  35, "パタン登録"	, 1 );
	Lib_view_set_null( pad_level_ptn, 5,  65, "パタン表\示" , 2 );
	Lib_view_set_null( pad_level_ptn, 5,  95, "サーチ範囲"	, 3 );
	
	Lib_view_set_size( pad_level_ptn, 50, 80, 5, 5 );
	
	Lib_draw_command( pad_level_ptn );
	
	for ( status_flag = ON; OFF != status_flag; )
	{
		if ( ERROR_RETURN != ( rtn = Lib_process_command( pad_level_ptn ) ) )
		{
			switch( rtn )
			{
				case   0:/* サーチ条件 */
							gs_joken();
							break;
				case   1:/* パタン登録 */
							ptn_reg();
							break;
				case   2:/*パタン表示*/
							ptn_disp();
							break;
				case   3:/* サーチ範囲 */
							wind_set( &gs_wxs, &gs_wys, &gs_wxe, &gs_wye );
							break;
				case 102:/* 終了 */
							status_flag = OFF;
							break;
			}
		}
	}
	
	Lib_erase_command( pad_level_ptn );
	Lib_view_close( pad_level_ptn );
	Lib_cls( ( LINE_PLANE | CHAR_PLANE ), BLACK_COLOR );
	
}

/************************************************************************/
/*	サーチ条件設定														*/
/************************************************************************/
void gs_joken( void )
{
int pad_level_gs;
PVAL value_gs[4];
int no;
int idc;

	idc = Lib_shelter_plane( 0, 0, (Lib_get_dx_size() - 1), (Lib_get_dy_size() - 1), CHAR_PLANE );
	
	pad_level_gs = Lib_view_open();
	Lib_view_set_title( pad_level_gs, "サーチ条件" );
	
	Lib_view_set_select		 ( pad_level_gs, 5,  5, "精度"		, seido - 1, 3 , select, 0 );
	Lib_view_set_uniq_numeral( pad_level_gs, 5, 35, "複雑度"	, complex, 1, 9, 1 );
	Lib_view_set_uniq_numeral( pad_level_gs, 5, 65, "途中下限値", mid_lower , 1000, 9999 , 2 );
	Lib_view_set_uniq_numeral( pad_level_gs, 5, 95, "最終下限値", last_lower, 1000, 9999 , 3 );
	
	Lib_view_set_size( pad_level_gs, 100, 130, 35, 5 );
	
	Lib_draw_menu( pad_level_gs );
	
	if( ERROR_RETURN != ( no = Lib_process_menu( pad_level_gs, value_gs ) ) )
	{
		switch( no )
		{
			case 101: /*「実行」が選択された */
						seido	   = value_gs[0].select_type + 1;
						complex	   = value_gs[1].value_type;
						mid_lower  = value_gs[2].value_type;
						last_lower = value_gs[3].value_type;
						break;
			case 102: /*「取り消し」が選択された */
						break;
		}
	}
	
	Lib_erase_menu( pad_level_gs );
	Lib_view_close( pad_level_gs );
	
	Lib_recover_plane( idc );
	
}

/*********************************************************************/
/*	　ウインド設定　　　　　　　　　　　　　　　　　　　　　　　　　 */
/*********************************************************************/
void wind_set( xs, ys, xe, ye )
int *xs, *ys, *xe, *ye;		/* 入出力：ウインド位置 */
{
int pad_level_wind;
PVAL value_wind[2];
int no;
int x_size,y_size;
int idc;

	idc = Lib_shelter_plane( 0, 0, (Lib_get_dx_size() - 1), (Lib_get_dy_size() - 1), CHAR_PLANE );
	
	pad_level_wind = Lib_view_open();
	
	Lib_view_set_title( pad_level_wind, "サーチ範囲" );
	
	x_size  = *xe - *xs + 1;
	y_size  = *ye - *ys + 1;
	
	Lib_view_set_box( pad_level_wind, 5,  5, "始点"	 , *xs   , *ys   , 3, 1, 0 );
	Lib_view_set_box( pad_level_wind, 5, 35, "サイズ", x_size, y_size, 3, 0, 1 );
	
	Lib_view_set_size( pad_level_wind, 100, 130, 5, 5 );
	
	Lib_draw_menu( pad_level_wind );
	
	if( ERROR_RETURN != ( no = Lib_process_menu( pad_level_wind, value_wind ) ) )
	{
		switch( no )
		{
			case 101: /*「実行」が選択された */
						*xs = value_wind[0].box_type.x;
						*ys = value_wind[0].box_type.y;
						*xe = value_wind[0].box_type.x + value_wind[1].box_type.x - 1;
						*ye = value_wind[0].box_type.y + value_wind[1].box_type.y - 1;
						break;
			case 102: /*「取り消し」が選択された */
						break;
		}
	}
	
	Lib_erase_menu( pad_level_wind );
	Lib_view_close( pad_level_wind );
	Lib_recover_plane( idc );
	
}

/************************************************************************/
/*	パタン登録															*/
/************************************************************************/
void ptn_reg( void )
{
int xsize, ysize;
double xc, yc;
int xofset, yofset;
int rtn;
int idc;

	idc = Lib_shelter_plane( 0, 0, (Lib_get_dx_size() - 1), (Lib_get_dy_size() - 1), CHAR_PLANE );
	
	if ( PAD_EXECUTE == set_box( &xs, &ys, &xe, &ye ) )
	{
		xsize = xe - xs + 1;
		ysize = ye - ys + 1;
		
		if ( 1 == xsize % 2  )
			xsize = xsize - 1;
		if ( 1 == ysize % 2  )
			ysize = ysize - 1;
		
		Lib_erase_cursor();
		Lib_freeze( TRANSMIT );
		
		if ( NORMAL_RETURN == get_center( xs, ys, xe, ye, &xc, &yc ) )
		{
			xofset = XXd4i5_d( xc - (double)xs );
			yofset = XXd4i5_d( yc - (double)ys );
			disp_center_mark( XXd4i5_d( xc ), XXd4i5_d( yc ) );
			
			/*パタン登録*/
			if ( -1 == ( rtn = Lib_gs_usepat( name, xs, ys, xsize, ysize, xofset*10, yofset*10 ) ) )
				Lib_display_message( 100, 200, "エラー", "既に200個登録済み" );
			else if ( -2 == rtn )
				Lib_display_message( 100, 200, "エラー", "格納領域残容量が僅少" );
			else if ( -3 == rtn )
				Lib_display_message( 100, 200, "エラー", "始端Ｘ/Ｙ位置が範囲外" );
			else if ( -4 == rtn )
				Lib_display_message( 100, 200, "エラー", "パターンサイズが範囲外" );
			else if ( -7 == rtn )
				Lib_display_message( 100, 200, "エラー", "一定濃度のため登録不可" );
		}
		else
			Lib_display_message( 70, 200, "登録エラー", "有効なエッジ検出ができません" );
	}
	
	Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
	Lib_draw_cursor( 255, 240 );
	Lib_freerun();
	Lib_recover_plane( idc );
	
}


/*********************************************************************/
/*	パタン登録設定　　　　　　　　　　　　　　　　　　　　　　　　   */
/*********************************************************************/
int set_box( wxs, wys, wxe, wye )
int *wxs, *wys, *wxe, *wye;				/*入出力：ＢＯＸ位置*/
{

int	  pad_level_box;
PVAL value[2];
int no;
int x_size,y_size;

	pad_level_box = Lib_view_open();
	Lib_view_set_title( pad_level_box, "枠設定" );
	
	x_size = *wxe - *wxs + 1;
	y_size = *wye - *wys + 1;
	
	Lib_view_set_box( pad_level_box, 5,  5, "枠始点"  , *wxs  , *wys  , 3, 1, 0 );
	Lib_view_set_box( pad_level_box, 5, 35, "枠サイズ", x_size, y_size, 3, 0, 1 );
	
	Lib_view_set_size( pad_level_box, 80, 80, 5, 5 );
	Lib_draw_menu( pad_level_box );
	
	if( ERROR_RETURN != ( no = Lib_process_menu( pad_level_box, value ) ) )
	{
		switch( no )
		{
			case 101: /*「実行」が選択された */
						*wxs = value[0].box_type.x;
						*wys = value[0].box_type.y;
						*wxe = value[0].box_type.x + value[1].box_type.x - 1;
						*wye = value[0].box_type.y + value[1].box_type.y - 1;
						break;
			case 102: /*「取り消し」が選択された */
						break;
		}
	}
	
	Lib_erase_menu( pad_level_box );
	Lib_view_close( pad_level_box );
	
	return( no );
	
}

/************************************************************************/
/*	センターマーク位置取得												*/
/************************************************************************/
int get_center( xs, ys, xe, ye, xc, yc )
int xs, ys, xe, ye;
double *xc, *yc;
{
register int i, a;
int windx;
int windy;
static long sumx[480];
static long sumy[512];
static struct _prjinfo	prj;
int status;
	
	Lib_box( xs, ys, xe, ye, SOLID_LINE );
	windx = xe - xs + 1;		/* ｳｨﾝﾄﾞ枠内ｘ画素数 */
	windy = ye - ys + 1;		/* ｳｨﾝﾄﾞ枠内ｙ画素数 */
	
	Lib_window( xs, ys, xe, ye );					/*プロジェクション範囲*/
	Lib_projection( 0, sumx, sumy, &prj, OFF );		/*プロジェクション（Ｘ&Ｙ）*/
	
	for ( i=0, a=xs; i<windx; i++, a++ )
		avey[i] = (int)( sumy[a] / (long)windy );
	
	for ( i=0, a=ys; i<windy; i++, a++ )
		avex[i] = (int)( sumx[a] / (long)windx );
	
	s_line_set_cnt( xs, ys, xe, ye, DIREC_H, avey, &level_h );	/*レベル設定（水平）*/
	Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
	
	s_line_set_cnt( xs, ys, xe, ye, DIREC_V, avex, &level_v );	/*レベル設定（垂直）*/
	Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
	
	status = center_xy( xs, ys, xe, ye, avey, avex, level_h, level_v, xc, yc );
	
	Lib_window( 0, 0, 511, 479 );
	
	return( status );
	
}


/************************************************************************/
/*  スレッシュレベルライン設定制御    　　　　　　　　　　　　　　　　　*/
/************************************************************************/
void s_line_set_cnt( xs, ys, xe, ye, type, data, level )
int xs, ys, xe, ye;
int type;		/* 入力：DIREC_H:水平 , DIREC_V:垂直 	*/
int *data;		/* 入力：平均波形データ格納先頭アドレス */
int *level;		/* 出力：スレッシュレベル 				*/
{
int max_level, min_level;
int i, a;
int pitch;

	if ( DIREC_H == type )
		pitch = xe-xs+1;
	else
		pitch = ye-ys+1;
	
	max_level = min_level = *(data + 0);
	for ( i=0; i<pitch; i++ )		/* MAX,MINの算出（濃度ﾚﾍﾞﾙ） */
	{
		if ( max_level < *(data + i) )
			max_level = *(data + i);
		if ( min_level > *(data + i) )
			min_level = *(data + i);
	}
	
	if ( DIREC_H == type )	/* 水平 */
	{
		Lib_drawline( 511, -max_level + DRAW_POINT_H, 511, -min_level + DRAW_POINT_H );
		Lib_drawline( 501, -max_level + DRAW_POINT_H, 511, -max_level + DRAW_POINT_H );
		Lib_drawline( 501, -min_level + DRAW_POINT_H, 511, -min_level + DRAW_POINT_H );
		
		s1_a = 511;
		s1_b = -max_level + DRAW_POINT_H;
		s1_c = 511;
		s1_d = -min_level + DRAW_POINT_H;
		s2_a = 501;
		s2_b = -max_level + DRAW_POINT_H;
		s2_c = 511;
		s2_d = -max_level + DRAW_POINT_H;
		s3_a = 501;
		s3_b = -min_level + DRAW_POINT_H;
		s3_c = 511;
		s3_d = -min_level + DRAW_POINT_H;
		
		a = (-max_level+DRAW_POINT_H) / 16 + 1;
		if ( a < 1 )
			a = 1;
		else if ( a > 28 )
			a = 28;
		Lib_chrdisp( 59, a, "MAX" );
		a = (-min_level+DRAW_POINT_H) / 16 + 1;
		if ( a < 1 )
			a = 1;
		else if ( a > 28 )
			a = 28;
		Lib_chrdisp( 59, a, "MIN" );
		
		a = ( (-max_level+DRAW_POINT_H) + (-min_level+DRAW_POINT_H) ) / 2;
		
		s_line_set_h( xs, ys, xe, ye, data, pitch, -max_level + DRAW_POINT_H, -min_level + DRAW_POINT_H, a, level );
	}
	else			/* 垂直 */
	{
		Lib_drawline( -max_level + DRAW_POINT_V, 16, -min_level + DRAW_POINT_V, 16 );
		Lib_drawline( -max_level + DRAW_POINT_V, 16, -max_level + DRAW_POINT_V, 26 );
		Lib_drawline( -min_level + DRAW_POINT_V, 16, -min_level + DRAW_POINT_V, 26 );
		
		s1_a = -max_level + DRAW_POINT_V;
		s1_b = 16;
		s1_c = -min_level + DRAW_POINT_V;
		s1_d = 16;
		s2_a = -max_level + DRAW_POINT_V;
		s2_b = 16;
		s2_c = -max_level + DRAW_POINT_V;
		s2_d = 26;
		s3_a = -min_level + DRAW_POINT_V;
		s3_b = 16;
		s3_c = -min_level + DRAW_POINT_V;
		s3_d = 26;
		
		a = (-max_level+DRAW_POINT_V) / 8;
		if ( a < 1 )
			a = 1;
		else if ( a > 62 )
			a = 62;
		Lib_chrdisp( a, 3, "MAX" );
		a = (-min_level+DRAW_POINT_V) / 8;
		if ( a < 1 )
			a = 1;
		else if ( a > 62 )
			a = 62;
		Lib_chrdisp( a, 3, "MIN" );
		
		a = ( (-max_level+DRAW_POINT_V) + (-min_level+DRAW_POINT_V) ) / 2;
		
		s_line_set_v( xs, ys, xe, ye, data, pitch, -max_level + DRAW_POINT_V, -min_level + DRAW_POINT_V, a, level );
	}
	
}

/************************************************************************/
/*  スレッシュレベルライン設定（水平）　　　　　　　　　　　　　　　　　*/
/************************************************************************/
void s_line_set_h( xs, ys, xe, ye, data, pitch, lower, upper, y, level )
int xs, ys, xe, ye;
int *data;
int pitch;
int lower, upper, y;
int *level;
{
int sts;
int xpos, ypos;
int s_xpos, s_ypos;
double da;

	disp_wave( DIREC_H, xs, xe, data, pitch, GRAPH_DRAW );		/*平均濃度波形表示*/
	Lib_drawline( 0, y, 500, y );
	
	Lib_chrdisp( 56, 4, "50％" );
	*level = 50;
	
	xpos = 460;
	ypos = y;
	s_xpos = xpos;
	s_ypos = ypos;
	
	for ( ; ; )
	{
		sts = 0;
		sts = Lib_see_current_position( &xpos, &ypos );  /* ﾏｳｽ位置読みとり */
		
		/* ﾄﾗｯｸﾎﾞｰﾙ移動量縮小 */
		xpos = s_xpos + (xpos - s_xpos) / MOUSE_SENSE;
		ypos = s_ypos + (ypos - s_ypos) / MOUSE_SENSE;
		
		if ( ypos != s_ypos )
		{
			if ( (ypos >= lower) && (ypos <= upper) )
			{
				Lib_memory_clear( LINE_PLANE );
				Lib_erasline( 0, y, 500, y );
				s_ypos = ypos;
				y      = ypos;
				Lib_drawline( 0, y, 500, y );
				
				disp_wave( DIREC_H, xs, xe, data, pitch, GRAPH_DRAW );		/*平均濃度波形再表示*/
				
				Lib_box( xs, ys, xe, ye, SOLID_LINE );			/*登録枠の再表示*/
				
				Lib_drawline( s1_a, s1_b, s1_c, s1_d );   /* MIN/MAXﾗｲﾝの再表示 */
				Lib_drawline( s2_a, s2_b, s2_c, s2_d );
				Lib_drawline( s3_a, s3_b, s3_c, s3_d );
				
				da = ( (double)upper - (double)y ) / ( (double)upper - (double)lower ) * 100.0;
				*level = XXd4i5_d( da );
				Lib_sprintf( ss, "%d％ ", XXd4i5_d( da ) );
				Lib_chrdisp( 56, 4, ss );
			}
		}
		
		if ( CURSOR_EXECUTE == sts )               /* EXEC ｷｰ押下 */
			break;
	}
}

/************************************************************************/
/*  スレッシュレベルライン設定（垂直）　　　　　　　　　　　　　　　　　*/
/************************************************************************/
void s_line_set_v( xs, ys, xe, ye, data, pitch, lower, upper, x, level )
int xs, ys, xe, ye;
int *data;
int pitch;
int lower, upper, x;
int *level;
{
int sts;
int xpos, ypos;
int s_xpos, s_ypos;
double da;

	disp_wave( DIREC_V, ys, ye, data, pitch, GRAPH_DRAW );		/*平均濃度波形表示*/
	Lib_drawline( x, 27, x, 479 );
	
	Lib_chrdisp( 56, 4, "50％" );
	*level = 50;
	
	xpos = x;
	ypos = 50;
	s_xpos = xpos;
	s_ypos = ypos;
	
	for ( ; ; )
	{
		sts = 0;
		sts = Lib_see_current_position( &xpos, &ypos );  /* ﾏｳｽ位置読みとり */
		
		/* ﾄﾗｯｸﾎﾞｰﾙ移動量縮小 */
		xpos = s_xpos + (xpos - s_xpos) / MOUSE_SENSE;
		ypos = s_ypos + (ypos - s_ypos) / MOUSE_SENSE;
		
		if ( xpos != s_xpos )
		{
			if ( (xpos >= lower) && (xpos <= upper) )
			{
				Lib_memory_clear( LINE_PLANE );
				Lib_erasline( x, 27, x, 479 );
				s_xpos = xpos;
				x      = xpos;
				Lib_drawline( x, 27, x, 479 );
				
				disp_wave( DIREC_V, ys, ye, data, pitch, GRAPH_DRAW );		/*平均濃度波形再表示*/
				
				Lib_box( xs, ys, xe, ye, SOLID_LINE );			/*登録枠の再表示*/
				
				Lib_drawline( s1_a, s1_b, s1_c, s1_d );   /* MIN/MAXﾗｲﾝの再表示 */
				Lib_drawline( s2_a, s2_b, s2_c, s2_d );
				Lib_drawline( s3_a, s3_b, s3_c, s3_d );
				
				da = ( (double)upper - (double)x ) / ( (double)upper - (double)lower ) * 100.0;
				*level = XXd4i5_d( da );
				Lib_sprintf( ss, "%d％ ", XXd4i5_d( da ) );
				Lib_chrdisp( 56, 4, ss );
			}
		}
		
		if ( CURSOR_EXECUTE == sts )               /* EXEC ｷｰ押下 */
			break;
	}
	
}

/************************************************************************/
/*  波形表示						                                    */
/************************************************************************/
void disp_wave( direction, sta, end, data, pitch, mode )
int direction, sta, end;
int *data;
int pitch;
int mode;
{
static struct COORDINATES_PAIR shaei[513];
int i, a;

	if ( DIREC_H == direction )
	{
		for ( i=sta,a=0; i<end+1; i++,a++ )
		{
			shaei[a].x = i;
			shaei[a].y = -(*(data + a)) + DRAW_POINT_H;
		}
	}
	else
	{
		for (i=ys,a=0; i<ye+1; i++,a++)
		{
			shaei[a].x = -(*(data + a)) + DRAW_POINT_V;
			shaei[a].y = i;
		}
	}
	
	if ( GRAPH_DRAW == mode )
		Lib_plot( pitch, (struct COORDINATES_PAIR *)shaei, GRAPH_DRAW, LINE_PLOT );
	else
		Lib_plot( pitch, (struct COORDINATES_PAIR *)shaei, GRAPH_ERAS, LINE_PLOT );
	
}

/************************************************************************/
/*	パタン表示															*/
/************************************************************************/
void ptn_disp( )
{
int idc;

	idc = Lib_shelter_plane( 0, 0, (Lib_get_dx_size() - 1), (Lib_get_dy_size() - 1), CHAR_PLANE );
	
	Lib_gs_dsppat();								   /* パタン表示 */
	Lib_freerun();
	
	Lib_recover_plane( idc );
}

/************************************************************************/
/*	パタンサーチ														*/
/************************************************************************/
void ptn_search( void )
{

int Rslt_Buf[3];
int rtn;

	Lib_strtclk_count();		/*タイマーカウントモードのスタート*/
	
	Lib_freeze( TRANSMIT );
	
	Lib_gs_window( ON_DISPLAY, gs_wxs, gs_wys, gs_wxe, gs_wye );
	
	if ( 0 < ( rtn = Lib_gs_search( ON_DISPLAY, name, 1, seido, complex, mid_lower, last_lower, Rslt_Buf ) ) )
	{
		Lib_time_disp( 0, 0 );
		
		Lib_sprintf( ss, "( x, y ) = ( %5.1lf, %5.1f )  相関値 %4d",
						(double)Rslt_Buf[0] / 10.0, (double)Rslt_Buf[1] / 10.0, Rslt_Buf[2] );
		Lib_chrdisp( 1, 30, ss );
		
		Lib_display_keyinput( 460, 0, "確認" );
	}
	else if ( 0 == rtn )
		Lib_display_message( 100, 200, "エラー", "対象物がありません" );
	else if ( -1 == rtn )
		Lib_display_message( 100, 200, "エラー", "パタンが登録されていません" );
	
	Lib_freerun();
	Lib_cls( ( GRAY_PLANE | LINE_PLANE | CHAR_PLANE ), BLACK_COLOR );
	
}

/************************************************************************/
/*	センターマーク表示													*/
/************************************************************************/
void disp_center_mark( x, y )
int x, y;
{
	Lib_drawline( x, y-14, x, y-5 );
	Lib_drawline( x, y+14, x, y+5 );
	Lib_drawline( x-14, y, x-5, y );
	Lib_drawline( x+14, y, x+5, y );
}


/************************************************************************/
/*	パタンの中心取得													*/
/************************************************************************/
int center_xy( xs, ys, xe, ye, avey, avex, level_h, level_v, cx, cy )
int xs, ys, xe, ye;
int *avey, *avex;
int level_h, level_v;
double *cx, *cy;
{
int status;
int pitch_h, pitch_v;

	pitch_h = xe-xs+1;
	pitch_v = ye-ys+1;
	
	if ( NORMAL_RETURN == get_pos( avey, pitch_h, xs, level_h, cx ) )			/*中心座標取得（水平）*/
	{
		if ( NORMAL_RETURN == get_pos( avex, pitch_v, ys, level_v, cy ) )		/*中心座標取得（垂直）*/
			status = NORMAL_RETURN;
		else
			status = ERROR_RETURN;
	}
	else
		status = ERROR_RETURN;
	
	return( status );
	
}

/************************************************************************/
/*	中心座標取得												        */
/************************************************************************/
int get_pos( data, pitch, sta, level, pos )
int *data;
int pitch;
int sta;
int level;
double *pos;
{
static int i;
static int max, min;
static double edge_level;
static double plus, a;
static int edge_count;

	max = 0;
	min = 999;
	for ( i = 0; i < pitch; i++ )
	{
		if ( max < *(data+i) )
			max = *(data+i);
		if ( min > *(data+i) )
			min = *(data+i);
	}
	
	edge_level = (double)min + (double)( max - min ) * level / 100;		/*スレッシュに該当する濃度レベルを算出*/
	
	edge_count = 0;
	for ( i = 1; i < pitch-1; i++ )				/*スレッシュとの交点検出*/
	{
		if ( *(data+i-1) <= *(data+i) )	/* 立ち上がり */
		{
			if ( *(data+i-1) <= edge_level && edge_level < *(data+i) )
			{
				a = (double)( *(data+i) - *(data+i-1) );
				if ( a != 0 )
					plus = ( edge_level - (double)*(data+i-1) ) / a;
				else
					plus = 0.0;
				
				edge[ edge_count ] = (double)( sta + i - 1 ) + (double)plus;
				edge_count++;
			}
		}
		else					/* 立ち下がり */
		{
			if ( *(data+i) <= edge_level && edge_level < *(data+i-1) )
			{
				a = (double)( *(data+i) - *(data+i-1) );
				if ( a != 0 )
					plus = ( edge_level - (double)*(data+i-1) ) / a;
				else
					plus = 0.0;
				
				edge[ edge_count ] = (double)( sta + i - 1 ) + (double)plus;
				edge_count++;
			}
		}
	}
	
	if ( 2 != edge_count && 4 != edge_count )			/*交点数チェック（２点または４点の場合のみ有効）*/
		return( ERROR_RETURN );
	
	if ( 2 == edge_count )		/*中心算出*/
		*pos = ( edge[0] + edge[1] ) / 2.0;
	else
		*pos = ( edge[1] + edge[2] ) / 2.0;
	
	return( NORMAL_RETURN );
	
}

/***********************************************************************/
/*	入力数値(double)の４捨５入した数値(int)を返す					   */
/***********************************************************************/
int XXd4i5_d( double in )
{
int out;

		if ( in >= 0.0 )
		  out = (int)( in + 0.5 );
		else
		  out = (int)( in - 0.5 );

		return( out );
}