thyphoon/PBMap
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Last typhoon adds :)

Browse Source
This commit is contained in:
djes
2016-08-02 16:31:07 +02:00
parent 1d88f06a42
commit c5e55a6c74
1 changed files with 40 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
osm.pb
View File

@@ -626,16 +626,44 @@ Module OSM
EndProcedure EndProcedure
Procedure TrackPointer(x.i, y.i,dist.l)
Protected color.l
color=RGBA(0, 0, 0, 255)
MovePathCursor(x,y)
AddPathLine(-8,-16,#PB_Path_Relative)
AddPathLine(16,0,#PB_Path_Relative)
AddPathLine(-8,16,#PB_Path_Relative)
VectorSourceColor(color)
AddPathCircle(x,y-20,14)
FillPath()
VectorSourceColor(RGBA(255, 255, 255, 255))
AddPathCircle(x,y-20,12)
FillPath()
VectorFont(FontID(OSM\Font), 13)
MovePathCursor(x-VectorTextWidth(Str(dist))/2, y-20-VectorTextHeight(Str(dist))/2)
VectorSourceColor(RGBA(0, 0, 0, 255))
DrawVectorText(Str(dist))
EndProcedure
Procedure DrawTrack(*Drawing.DrawingParameters) Procedure DrawTrack(*Drawing.DrawingParameters)
Protected Pixel.PixelPosition Protected Pixel.PixelPosition
Protected Location.Location Protected Location.Location
Protected km.f, memKm.i Protected km.f, memKm.i
If ListSize(OSM\track())>0 If ListSize(OSM\track())>0
;Trace Track
LockMutex(OSM\Drawing\Mutex) LockMutex(OSM\Drawing\Mutex)
ForEach OSM\track()
If *Drawing\TargetLocation\Latitude<>0 And *Drawing\TargetLocation\Longitude<>0
GetPixelCoordFromLocation(@OSM\track(),@Pixel)
If ListIndex(OSM\track())=0
MovePathCursor(Pixel\X, Pixel\Y)
Else
AddPathLine(Pixel\X, Pixel\Y)
EndIf
EndIf
Next
VectorSourceColor(RGBA(0, 255, 0, 150))
StrokePath(10, #PB_Path_RoundEnd|#PB_Path_RoundCorner)
;Draw Distance
ForEach OSM\track() ForEach OSM\track()
;-Test Distance ;-Test Distance
If ListIndex(OSM\track())=0 If ListIndex(OSM\track())=0
@@ -646,33 +674,18 @@ Module OSM
Location\Latitude=OSM\track()\Latitude Location\Latitude=OSM\track()\Latitude
Location\Longitude=OSM\track()\Longitude Location\Longitude=OSM\track()\Longitude
EndIf EndIf
If *Drawing\TargetLocation\Latitude<>0 And *Drawing\TargetLocation\Longitude<>0
GetPixelCoordFromLocation(@OSM\track(),@Pixel) GetPixelCoordFromLocation(@OSM\track(),@Pixel)
If ListIndex(OSM\track())=0
MovePathCursor(Pixel\X, Pixel\Y)
Else
AddPathLine(Pixel\X, Pixel\Y)
If Int(km)<>memKm If Int(km)<>memKm
memKm=Int(km) memKm=Int(km)
If OSM\Zoom>10 If OSM\Zoom>10
BeginVectorLayer() BeginVectorLayer()
VectorFont(FontID(OSM\Font), OSM\Zoom) TrackPointer(Pixel\X , Pixel\Y,Int(km))
VectorSourceColor(RGBA(50, 50, 50, 255))
DrawVectorText(Str(Int(km)))
EndVectorLayer() EndVectorLayer()
EndIf EndIf
EndIf EndIf
EndIf
EndIf
Next Next
UnlockMutex(OSM\Drawing\Mutex) UnlockMutex(OSM\Drawing\Mutex)
VectorSourceColor(RGBA(0, 255, 0, 150))
StrokePath(10, #PB_Path_RoundEnd|#PB_Path_RoundCorner)
EndIf EndIf
EndProcedure EndProcedure
; Add a Marker To the Map ; Add a Marker To the Map