पहचानें कि कोई बिंदु बहुभुज के भीतर है या नहीं?

Question

मैं डेल्फी में कस्टम नियंत्रण कर रहा हूं (TCustomControl से विरासत में मिला) जिसमें कई बहुभुज सूची आइटम (अनियमित आकार) शामिल हैं। मुझे प्रति आइटम माउस इवेंट्स को लागू करने की ज़रूरत है, लेकिन पहले मुझे यह पता लगाने में सक्षम होना चाहिए कि माउस की स्थिति किसी दिए गए पॉलीगॉन (array of TPoint) के भीतर है या नहीं। मैं हिट टेस्ट संदेश (WM_NCHITTEST) पकड़ रहा हूं और यह वह जगह है जहां मुझे यह सत्यापन करने की आवश्यकता होगी। मेरे पास कई बहुभुज हैं, मैं प्रत्येक पॉलीगॉन आइटम के माध्यम से एक लूप करूँगा और यह जांचने के लिए यह जांच करूँगा कि माउस की एक्स/वाई स्थिति इस बहुभुज के भीतर है या नहीं।

procedure TMyControl.WMNCHitTest(var Message: TWMNCHitTest); 
var 
    P: TPoint; //X/Y of Mouse 
    Poly: TPoints; //array of TPoint 
    X: Integer; //iterator 
    I: TMyListItem; //my custom list item 
begin 
    P.X:= Message.XPos; 
    P.Y:= Message.YPos; 
    for X := 0 to Items.Count - 1 do begin 
    I:= Items[X]; //acquire my custom list item by index 
    Poly:= I.Points; //acquire polygon points 

    //Check if Point (P) is within Polygon (Poly)...? 

    end; 
end; 

Answer 1

आप PtInRegion उपयोग कर सकते हैं: http://en.wikipedia.org/wiki/Point_in_polygon#Ray_casting_algorithm

अधिकांश कंप्यूटर ग्राफिक्स कक्षाएं एक उदाहरण के रूप में इस का उपयोग करें:

function PointInPolygon(Point: TPoint; const Polygon: array of TPoint): Boolean; 
var 
    rgn: HRGN; 
begin 
    rgn := CreatePolygonRgn(Polygon[0], Length(Polygon), WINDING); 
    Result := PtInRegion(rgn, Point.X, Point.Y); 
    DeleteObject(rgn); 
end; 

Answer 2

आप रे कास्टिंग एल्गोरिथ्म यहां पाया उपयोग कर सकते हैं।

Answer 3

यह जांचना कि पॉलीगॉन के अंदर बिंदु क्या है, उस बिंदु के माध्यम से एक क्षैतिज रेखा की कल्पना करके किया जा सकता है, फिर बाएं से दाएं गिनती से यह कल्पना की जाती है कि यह कल्पना रेखा बहुभुज को पार करती है। यदि बिंदु को मारने से पहले बहुभुज क्रॉस की संख्या विषम है तो बिंदु अंदर है, यदि तब भी बिंदु बहुभुज के बाहर है।

Answer 4

एक और तकनीक है जिसे हम बड़े पैमाने पर उपयोग करते हैं, जिसमें किसी भी गणित को शामिल नहीं किया जाता है और किसी भी आकार के बेहद जटिल एम्बेडेड नियंत्रणों को संभाल सकता है। बस रंग-कोडित सभी भागों के साथ नियंत्रण की एक ऑफ-स्क्रीन छवि है (जैसा कि नीचे दी गई छवि में दिखाया गया है) कि उपयोगकर्ता क्लिक कर सकता है।

जैसे ही वे अपने माउस को ले जाते हैं, बस हमारे ऑफ-स्क्रीन छवि में माउस के नीचे पिक्सेल का रंग देखें और यह हमें बताता है कि वे किस बटन/नियंत्रण पर हैं - सफेद इसके ऊपर नहीं है, और किसी श्रृंखला विभिन्न भागों के लिए रंगों का।

Color mask

// छद्म कोड

function MouseOverControl(LocalMousePos:TPoint):ControlID; 
begin 
    //sanity check 
    Result:=IDNull; 
    if (LocalMouse.X < 0) or (LocalMouse.X > ControlWidth) or 
     (LocalMouse.Y < 0) or (LocalMouse.Y > ControlHeight) then 
      exit; 
    case OffScreenControlMask.Canvas.Pixels[LocalMousePos.X,LocalMousePos.Y] of 
    clwhite:exit; 
    clRed:result:=ControlIDOne; 
    clGreen:result:=ControlIDTwo; 
    clBlue:result:=ControlIDThree; 
    ... etc 
    end; 
end; 

नोट: संलग्न रंग मास्क चित्र (और पांच समान परिपत्र एक केंद्र बटन के साथ चतुर्थ भाग में टूट नियंत्रण का प्रतिनिधित्व करता है के बाद से वे सभी एक ही रंग का उपयोग करें हमारे पास प्रत्येक रंग के लिए स्थिरांक होते हैं और हम निर्धारित करते हैं कि माउस में से प्रत्येक में एक साधारण एक्सपोज़िशन द्वारा कौन सा माउस खत्म हो गया है) के साथ उनके दाहिनी ओर एक अनियमित नियंत्रण और नीचे एक सेट या आयताकार बटन के साथ।