shadow map macos fix

src/Events.pbi

@@ -46,6 +46,11 @@ Procedure HandleEventRunningGame()
     *ActiveMenu.GameMenu = Menus(CurrentState)
   EndIf
   
+  CompilerSelect #PB_Compiler_OS
+    CompilerCase #PB_OS_Linux
+      GenerateShadowLayer()
+  CompilerEndSelect
+  
   ; Player movement
   If KeyboardReleased(#PB_Key_Left) And Player\X > 0
     If TileIsType(#TILESET_TYPE_FLOOR, Player\X-1, Player\Y) Or TileIsType(#TILESET_TYPE_GRASS, Player\X-1, Player\Y)
@@ -56,8 +61,6 @@ Procedure HandleEventRunningGame()
     If Player\X < (Cam\X + Cam\Padding) And Cam\X > 0
       Cam\X - 1
     EndIf
-    
-    GenerateShadowLayer()
   EndIf
   
   If KeyboardReleased(#PB_Key_Right) And Player\X < #MAP_WIDTH-1
@@ -69,8 +72,6 @@ Procedure HandleEventRunningGame()
     If Player\X > (Cam\X + Cam\Width - Cam\Padding) And (Cam\X + Cam\Width) < #MAP_WIDTH-1
       Cam\X + 1
     EndIf
-    
-    GenerateShadowLayer()
   EndIf
   
   If KeyboardReleased(#PB_Key_Up) And Player\Y > 0
@@ -82,8 +83,6 @@ Procedure HandleEventRunningGame()
     If Player\Y< (Cam\Y + Cam\Padding) And Cam\Y > 0
       Cam\Y - 1
     EndIf
-    
-    GenerateShadowLayer()
   EndIf
   
   If KeyboardReleased(#PB_Key_Down) And Player\Y < #MAP_HEIGHT-1
@@ -95,8 +94,6 @@ Procedure HandleEventRunningGame()
     If Player\Y > (Cam\Y + Cam\Height - Cam\Padding) And (Cam\Y + Cam\Height) < #MAP_HEIGHT-1
       Cam\Y + 1
     EndIf
-    
-    GenerateShadowLayer()
   EndIf
 EndProcedure
 ; IDE Options = PureBasic 4.51 (Linux - x64)