DEFINE WINDOW TEMPLATE AT 147,365 HEIGHT 282 WIDTH 817 TITLE "Dot in area - test" MAIN ON INIT wInit() ON RELEASE wClose() FONT "Arial" SIZE 9 
  
     DEFINE LABEL LABEL_1 
         COL 10 
         ROW 16 
         VALUE "координаты точки {n,n}:" 
         ACTION Nil 
         WIDTH 182 
         HEIGHT 16 
         AUTOSIZE .F. 
         FONTNAME "Arial" 
         FONTSIZE 10 
         FONTBOLD .T. 
         FONTITALIC .F. 
         FONTUNDERLINE .F. 
         FONTSTRIKEOUT .F. 
         TOOLTIP Nil 
         BACKCOLOR Nil 
         FONTCOLOR Nil 
         BORDER .f. 
         CLIENTEDGE .f. 
         HSCROLL .f. 
         VSCROLL .f. 
         TRANSPARENT .F. 
         RIGHTALIGN .T. 
         HELPID Nil 
         VISIBLE .T. 
     END LABEL 
  
     DEFINE TEXTBOX txt_dotXY 
         COL 205 
         ROW 12 
         WIDTH 271 
         HEIGHT 28 
         VALUE Nil 
         READONLY .F. 
         FONTNAME "Arial" 
         FONTSIZE 10 
         FONTBOLD .T. 
         FONTITALIC .F. 
         FONTUNDERLINE .F. 
         FONTSTRIKEOUT .F. 
         PASSWORD .F. 
         TOOLTIP Nil 
         BACKCOLOR Nil 
         FONTCOLOR Nil 
         INPUTMASK Nil 
         FORMAT Nil 
         MAXLENGTH Nil 
         UPPERCASE .F. 
         LOWERCASE .F. 
         ONGOTFOCUS Nil 
         ONCHANGE Nil 
         ONLOSTFOCUS Nil 
         ONENTER Nil 
         RIGHTALIGN .F. 
         VISIBLE .T. 
         TABSTOP .T. 
         HELPID Nil 
     END TEXTBOX 
  
     DEFINE LABEL LABEL_2 
         COL 12 
         ROW 60 
         VALUE "координаты углов {n,n}:" 
         ACTION Nil 
         WIDTH 182 
         HEIGHT 16 
         AUTOSIZE .F. 
         FONTNAME "Arial" 
         FONTSIZE 10 
         FONTBOLD .T. 
         FONTITALIC .F. 
         FONTUNDERLINE .F. 
         FONTSTRIKEOUT .F. 
         TOOLTIP Nil 
         BACKCOLOR Nil 
         FONTCOLOR Nil 
         BORDER .f. 
         CLIENTEDGE .f. 
         HSCROLL .f. 
         VSCROLL .f. 
         TRANSPARENT .F. 
         RIGHTALIGN .T. 
         HELPID Nil 
         VISIBLE .T. 
     END LABEL 
  
     DEFINE TEXTBOX txt_AnglesXY 
         COL 204 
         ROW 52 
         WIDTH 596 
         HEIGHT 28 
         VALUE Nil 
         READONLY .F. 
         FONTNAME "Arial" 
         FONTSIZE 10 
         FONTBOLD .T. 
         FONTITALIC .F. 
         FONTUNDERLINE .F. 
         FONTSTRIKEOUT .F. 
         PASSWORD .F. 
         TOOLTIP Nil 
         BACKCOLOR Nil 
         FONTCOLOR Nil 
         INPUTMASK Nil 
         FORMAT Nil 
         MAXLENGTH Nil 
         UPPERCASE .F. 
         LOWERCASE .F. 
         ONGOTFOCUS Nil 
         ONCHANGE Nil 
         ONLOSTFOCUS Nil 
         ONENTER Nil 
         RIGHTALIGN .F. 
         VISIBLE .T. 
         TABSTOP .T. 
         HELPID Nil 
     END TEXTBOX 
  
     DEFINE BUTTON btn_Exit 
         COL 696 
         ROW 12 
         WIDTH 100 
         HEIGHT 24 
         CAPTION "Exit" 
         PICTURE Nil 
         ICON Nil 
         ACTION wMain.release() 
         FONTNAME "Arial" 
         FONTSIZE 10 
         FONTBOLD .T. 
         FONTITALIC .F. 
         FONTUNDERLINE .F. 
         FONTSTRIKEOUT .F. 
         FONTCOLOR Nil 
         ONGOTFOCUS Nil 
         ONLOSTFOCUS Nil 
         HELPID Nil 
         FLAT .F. 
         TABSTOP .T. 
         TRANSPARENT .F. 
         TOOLTIP Nil 
         VISIBLE .T. 
         DEFAULT .F. 
     END BUTTON 
  
     DEFINE BUTTON btn_Check 
         COL 204 
         ROW 104 
         WIDTH 100 
         HEIGHT 24 
         CAPTION "Check" 
         PICTURE Nil 
         ICON Nil 
         ACTION Start() 
         FONTNAME "Arial" 
         FONTSIZE 10 
         FONTBOLD .T. 
         FONTITALIC .F. 
         FONTUNDERLINE .F. 
         FONTSTRIKEOUT .F. 
         FONTCOLOR Nil 
         ONGOTFOCUS Nil 
         ONLOSTFOCUS Nil 
         HELPID Nil 
         FLAT .F. 
         TABSTOP .T. 
         TRANSPARENT .F. 
         TOOLTIP Nil 
         VISIBLE .T. 
         DEFAULT .F. 
     END BUTTON 
  
     DEFINE LABEL LABEL_3 
         COL 12 
         ROW 144 
         VALUE "координаты углов {n,n}:" 
         ACTION Nil 
         WIDTH 182 
         HEIGHT 16 
         AUTOSIZE .F. 
         FONTNAME "Arial" 
         FONTSIZE 10 
         FONTBOLD .T. 
         FONTITALIC .F. 
         FONTUNDERLINE .F. 
         FONTSTRIKEOUT .F. 
         TOOLTIP Nil 
         BACKCOLOR Nil 
         FONTCOLOR Nil 
         BORDER .f. 
         CLIENTEDGE .f. 
         HSCROLL .f. 
         VSCROLL .f. 
         TRANSPARENT .F. 
         RIGHTALIGN .T. 
         HELPID Nil 
         VISIBLE .T. 
     END LABEL 
  
     DEFINE TEXTBOX txt_Result 
         COL 204 
         ROW 136 
         WIDTH 271 
         HEIGHT 28 
         VALUE Nil 
         READONLY .F. 
         FONTNAME "Arial" 
         FONTSIZE 10 
         FONTBOLD .T. 
         FONTITALIC .F. 
         FONTUNDERLINE .F. 
         FONTSTRIKEOUT .F. 
         PASSWORD .F. 
         TOOLTIP Nil 
         BACKCOLOR Nil 
         FONTCOLOR Nil 
         INPUTMASK Nil 
         FORMAT Nil 
         MAXLENGTH Nil 
         UPPERCASE .F. 
         LOWERCASE .F. 
         ONGOTFOCUS Nil 
         ONCHANGE Nil 
         ONLOSTFOCUS Nil 
         ONENTER Nil 
         RIGHTALIGN .F. 
         VISIBLE .T. 
         TABSTOP .T. 
         HELPID Nil 
     END TEXTBOX 
  
 END WINDOW

 
 #include <minigui.ch> 
 #define CRLF HB_OsNewLine() 
  
  
 Function Main //сетевая версия 
  
 	public cIniFile:='Dot.ini' 
  
 	Load Window wMain 
 	 
 	wMain.txt_Result.Enabled:=.f. 
  
 	//Center Window wMain 
 	Activate Window wMain 
  
 Return 
 *-------------------------------------------------------- 
 static function wInit() 
 local txt 
 	BEGIN INI FILE cIniFile 
 		GET txt SECTION "Save" ENTRY "txt_dotXY" DEFAULT "" 
 		wMain.txt_dotXY.Value:=txt 
 		GET txt SECTION "Save" ENTRY "txt_AnglesXY" DEFAULT "" 
 		wMain.txt_AnglesXY.Value:=txt 
 	END INI 
 return NIL 
 *-------------------------------------------------------- 
 static function wClose() 
     BEGIN INI FILE cIniFile 
     	SET SECTION "Save" ENTRY "txt_dotXY" TO wMain.txt_dotXY.Value 
     	SET SECTION "Save" ENTRY "txt_AnglesXY" TO wMain.txt_AnglesXY.Value 
     END INI 
 return NIL 
 *-------------------------------------------------------- 
 static function Start() 
 	local lOk:=.F. 
 	//pnt:={Y, X} // точка 
 	local t1:=wMain.txt_dotXY.Value 
 	local pnt:=&t1 // точка 
 	local t2:=wMain.txt_AnglesXY.Value 
 	local dim:=&t2 //{{Y,X},{Y,X},,,{Y,X}} // координаты вершин многоугольника 
 	 
 	for st=1 to len(dim)-1 
 		cmp:={iif(pnt[1] > dim[st,1],1,0), iif(pnt[1] <= dim[st+1,1],1,0)} 
 		if cmp[1]+cmp[2]!=1 
 			if pnt[2] - dim[st, 2] < (pnt[1] - dim[st, 1]) * ; 
 				(dim[st+1, 2] - dim[st, 2]) / (dim[st+1, 1] - dim[st, 1]) 
 				lOk:=! lOk 
 			endif 
 		endif 
 	next 
  
 	wMain.txt_Result.Value:=iif(lOk,"the point inside the figure", "the point OutSide the figure") 
 return NIL