摘要:
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
阅读(195)
推荐(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
阅读(523)
推荐(0)
编辑