WIP typhoon cache cleaning

PBMap.pb

@@ -102,6 +102,7 @@ Module PBMap
   Structure ImgMemCach
     nImage.i
     Location.Location
+    Mutex.i
   EndStructure
   
   Structure TileMemCach
@@ -481,23 +482,26 @@ Module PBMap
     Protected Tile.position
     ;Adding the image to the cache if possible
     AddMapElement(PBMap\MemCache\Images(), key)
+    PBMap\MemCache\Images(key)\Mutex = CreateMutex()
+    LockMutex(PBMap\MemCache\Images(key)\Mutex)
     nImage = GetTileFromHDD(CacheFile)
     If nImage = -1
       nImage = GetTileFromWeb(*Tile\PBMapZoom, *Tile\PBMapTileX, *Tile\PBMapTileY, CacheFile)
+      If nImage = -1
+        MyDebug("Error GetImageThread procedure, image not loaded - " + key)    
+        *Tile\nImage = -1
+        ProcedureReturn
+      EndIf
     EndIf
-    If nImage <> -1
     PBMap\MemCache\Images(key)\nImage = nImage
     Tile\x=*Tile\PBMapTileX
     Tile\y=*Tile\PBMapTiley
     XY2LatLon(@Tile,@PBMap\MemCache\Images(key)\Location)
     MyDebug("Image nb " + Str(nImage) + " successfully added to mem cache")   
     MyDebug("With the following key : " + key)  
-    Else
-      MyDebug("Error GetImageThread procedure, image not loaded - " + key)
-      nImage = -1
-    EndIf
     ;Define this tile image nb
     *Tile\nImage = nImage
+    UnlockMutex(PBMap\MemCache\Images(key)\Mutex)
   EndProcedure
   
   Procedure DrawTile(*Tile.Tile)
@@ -584,7 +588,7 @@ Module PBMap
       EndIf         
     Next
     ;-**** Clean Mem Cache
-    ForEach PBMap\MemCache\Images()
+    ;TODO in development, by now there's many cache problem as the loading thread could be perturbed
     ;GadgetWidth(PBMap\Gadget)/PBMap\TileSize
     Protected MaxNbTile.l
     If GadgetWidth(PBMap\Gadget)>GadgetHeight(PBMap\Gadget)
@@ -594,10 +598,17 @@ Module PBMap
     EndIf
     Protected Scale.d= 40075*Cos(Radian(PBMap\TargetLocation\Latitude))/Pow(2,PBMap\Zoom)
     Protected Limit.d=Scale*(MaxNbTile)*1.5
+    Debug "Cache cleaning"
+    ForEach PBMap\MemCache\Images()
         Protected Distance.d = HaversineInKM(@PBMap\MemCache\Images()\Location, @PBMap\TargetLocation)
         Debug "Limit:"+StrD(Limit)+" Distance:"+StrD(Distance)
-      If Distance>Limit
+        If Distance>Limit And IsImage(PBMap\MemCache\Images()\nImage) 
+          LockMutex(PBMap\MemCache\Images()\Mutex)          
           Debug "delete"
+          Debug PBMap\MemCache\Images()
+          FreeImage(PBMap\MemCache\Images()\nImage)
+          UnlockMutex(PBMap\MemCache\Images()\Mutex)
+          FreeMutex(PBMap\MemCache\Images()\Mutex)
           DeleteMapElement(PBMap\MemCache\Images())
         EndIf
     Next
@@ -984,7 +995,7 @@ Module PBMap
                       ;New move values
                       PBMap\Position\x - MouseX
                       PBMap\Position\y - MouseY
-                      ;Fill parameters and signal the drawing thread
+                      ;Fill parameters and send a signal to the drawing thread
                       LockMutex(PBMap\Drawing\Mutex)
                       ;PBMap tile position in tile.decimal
                       PBMap\Drawing\Position\x = PBMap\Position\x / PBMap\TileSize
@@ -992,9 +1003,9 @@ Module PBMap
                       PBMap\Drawing\PassNb = 1
                       XY2LatLon(@PBMap\Drawing, @PBMap\TargetLocation)
                       UnlockMutex(PBMap\Drawing\Mutex)
-                    EndIf
                       ;Start drawing
                       SignalSemaphore(PBMap\Drawing\Semaphore)                    
+                    EndIf
                     ;If CallBackLocation send Location to function
                     If PBMap\CallBackLocation > 0
                       CallFunctionFast(PBMap\CallBackLocation, @PBMap\TargetLocation)
@@ -1167,8 +1178,9 @@ CompilerIf #PB_Compiler_IsMainFile
   EndIf
 CompilerEndIf
 ; IDE Options = PureBasic 5.50 (Windows - x64)
-; CursorPosition = 1132
+; ExecutableFormat = Console
-; FirstLine = 1123
+; CursorPosition = 595
+; FirstLine = 581
 ; Folding = ---------
 ; EnableThread
 ; EnableXP