我正在试图以一系列简单的线条形式绘制公交路线。没有花哨的东西。但是,我得到的不是线条,而是楔形图。一开始,我对此还算满意,因为楔形图有点像箭头,总是指向第二个点。但现在我想改进外观,楔形图成了一个大问题。
我怀疑这是由于图形变换造成的浮点数问题(lat/lons被输入,变换将它们转换为位图上的x/y坐标[假设lat/lon是欧几里得距离,对我的目的足够准确],所以缩放是几个数量级)。
截图:
实际上,看起来线条被分成了两个三角形,但只有一个被绘制了出来。
相关代码(注意:绘制是异步进行的,这就是为什么我要创建一个位图的原因):
我怀疑这是由于图形变换造成的浮点数问题(lat/lons被输入,变换将它们转换为位图上的x/y坐标[假设lat/lon是欧几里得距离,对我的目的足够准确],所以缩放是几个数量级)。
截图:
!['Wedge' line overlayed over a road](https://istack.dev59.com/ahFQM.webp)
相关代码(注意:绘制是异步进行的,这就是为什么我要创建一个位图的原因):
'-- Creating the transform --'
Dim bitmap = New Bitmap(Math.Max(1, PictureBox1.Width), Math.Max(1, PictureBox1.Height))
Dim g = Graphics.FromImage(bitmap)
g.TranslateTransform(0, bitmap.Height)
g.ScaleTransform(1, -1)
g.ScaleTransform(CSng(bitmap.Width) / (maxLon - minLon), CSng(bitmap.Height) / (maxLat - minLat))
g.TranslateTransform(-minLon, -minLat)
'-- Drawing the lines (in a method called asynchronously) --'
using pen = New Pen(Brushes.Black, 0.0001)
Dim shapes = busData.TripsInGroup(tripGroup.Value).
Select(Function(e) e.Shape).
Distinct()
For Each shape In shapes
For i = 0 To shape.Points.Count - 2
Dim e1 = shape.Points(i)
Dim e2 = shape.Points(i + 1)
Dim p1 = New PointF(CSng(e1.Longitude), CSng(e1.Latitude))
Dim p2 = New PointF(CSng(e2.Longitude), CSng(e2.Latitude))
g.DrawLine(pen, p1, p2)
Next
Next
示例值:
cenLat = 44.657176
cenLon = -63.549471
spnLat = 0.071921
spnLon = 0.179729
minLat = cenLat - spnLat / 2
maxLat = cenLat + spnLat / 2
minLon = cenLon - spnLon / 2
maxLon = cenLon + spnLon / 2
shpts = {(Lat: 44.6518683235, Lon: -63.5930836628),
(Lat: 44.6512537117, Lon: -63.5927528307),
(Lat: 44.6508013753, Lon: -63.5924572976),
(Lat: 44.6503312812, Lon: -63.5921923044),
(Lat: 44.6503312812, Lon: -63.5921923044),
(Lat: 44.6502137576, Lon: -63.5921260568),
(Lat: 44.6495810455, Lon: -63.5917829189),
(Lat: 44.648893839, Lon: -63.5913776026),
(Lat: 44.6485468163, Lon: -63.5911976944),
(Lat: 44.6485468163, Lon: -63.5911976944),
(Lat: 44.6475084762, Lon: -63.5906617219),
(Lat: 44.6475084762, Lon: -63.5906617219)}
笔记和发现:
- 使用DrawLines而不是DrawLine解决了问题(但为什么?)
- 增加画笔的粗细可以解决问题(但线条太粗了)
- 缩小视窗(减小经纬度视图窗口)最终可以解决问题(但我想要放大!)