1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | with System; with Interfaces.C; package STB.Image is function Load (Filename : String; X, Y, Channels_In_File : out Interfaces.C.int; Desired_Channels : Interfaces.C.int) return System.Address; function Write_PNG (Filename : String; W, H, Channels : Interfaces.C.int; Data : System.Address; Len : Interfaces.C.int) return Interfaces.C.int; end STB.Image; |