Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.65K
1 Posted Topic
// más rápido type tpunto = record x,y:double end; type tpoligono = array of tpunto; function PointInPoly( p : tpunto; const v : tpoligono ): boolean; var p0,p1:tpunto; i: integer; UpSide:boolean; begin result:= false; p1 := v[High(v)]; UpSide := ( p.y < p1.y ); for i := 0 to High(v) …
The End.