2019年12月11日

摘要： function LineToLineCP(VertLine, WallLine: TGPLineF): TGPPointF; var SP, EP, SP1, EP1: TGPPointF; t: Single; ReGP: TGPPointF; begin SP.X := VertLine.SP 阅读全文

posted @ 2019-12-11 09:24 jeenma 阅读(208) 评论(0) 推荐(0)

判断点是否在区域内

摘要： function PtInArea(InPoint: TGPPointF; AreaPts:array of TGPPointF): Boolean; var nCross, PointIndex: Integer; TempSP, TempEP, InTempP: TGPPointF; TempX 阅读全文

posted @ 2019-12-11 09:23 jeenma 阅读(572) 评论(0) 推荐(0)


博客园 © 2004-2025 浙公网安备 33010602011771号浙ICP备2021040463号-3

导航

2019年12月11日