Added Graph.ApplyMaskColor

src/Allegro5.Mod

@@ -543,6 +543,7 @@ PROCEDURE unlock_bitmap* ["al_unlock_bitmap"] (bmp: Bitmap);
 PROCEDURE convert_bitmap* ["al_convert_bitmap"] (bmp: Bitmap);
 PROCEDURE convert_memory_bitmaps* ["al_convert_memory_bitmaps"];
 PROCEDURE is_compatible_bitmap* ["al_is_compatible_bitmap"] (bmp: Bitmap): BOOLEAN;
+PROCEDURE convert_mask_to_alpha* ["al_convert_mask_to_alpha"] (bmp: Bitmap; maskColor: Color);
 
 PROCEDURE set_new_bitmap_flags* ["al_set_new_bitmap_flags"] (flags: SET);
 PROCEDURE add_new_bitmap_flag* ["al_add_new_bitmap_flag"] (flags: SET);

src/Graph.Mod

@@ -693,6 +693,10 @@ BEGIN Al.set_new_bitmap_flags({Al.convertBitmap});
   END
 RETURN B END LoadBitmap;
 
+PROCEDURE ApplyMaskColor*(bmp: Bitmap; VAR mask: Color);
+BEGIN Al.convert_mask_to_alpha(bmp.bmp, SYSTEM.VAL(Al.Color, mask))
+END ApplyMaskColor;
+
 PROCEDURE Flip*;
 VAR tmp: Al.Bitmap;
   W: Window;