------------------------------------------------------------------------------ -- AGAR GUI LIBRARY -- -- A G A R . S U R F A C E -- -- S p e c -- ------------------------------------------------------------------------------ with Interfaces; use Interfaces; with Interfaces.C; with Interfaces.C.Strings; with Agar.Data_Source; with System; package Agar.Surface is package C renames Interfaces.C; package CS renames Interfaces.C.Strings; package DS renames Agar.Data_Source; use type C.int; use type C.unsigned; ------------------ -- Surface Mode -- ----------------------------------------- ------------------ -- Bits per pixel | 1 2 4 8 16 24 32 64 | type Surface_Mode is ----------------------------------------- (PACKED, -- Packed RGB[a] | X X X X X | INDEXED, -- Palletized | X X X X | GRAYSCALE); -- Grayscale | X X X | ----------------------------------------- for Surface_Mode'Size use C.int'Size; ------------------------------- -- Grayscale Conversion Mode -- ------------------------------- type Grayscale_Mode is (BT709_GRAY, -- ITU-R Recommendation BT.709 -- RMY_GRAY, -- R-Y algorithm -- Y_GRAY); -- Y-Grayscale (YIQ / NTSC) -- for Grayscale_Mode'Size use C.int'Size; ------------ -- Colors -- ------------ #if AG_MODEL = AG_LARGE subtype AG_Pixel is Interfaces.Unsigned_64; subtype AG_Component is Interfaces.Unsigned_16; type AG_Component_Offset is range -(2 **15) .. +(2 **15 - 1) with Convention => C; for AG_Component_Offset'Size use 16; type AG_Gray_Component is range -(2 **31) .. +(2 **31 - 1) with Convention => C; for AG_Gray_Component'Size use 32; #elsif AG_MODEL = AG_MEDIUM subtype AG_Pixel is Interfaces.Unsigned_32; subtype AG_Component is Interfaces.Unsigned_8; type AG_Component_Offset is range -127 .. 127 with Convention => C; for AG_Component_Offset'Size use 8; type AG_Gray_Component is range -(2 **15) .. +(2 **15 - 1) with Convention => C; for AG_Gray_Component'Size use 16; #elsif AG_MODEL = AG_SMALL subtype AG_Pixel is Interfaces.Unsigned_16; subtype AG_Component is Interfaces.Unsigned_8; type AG_Component_Offset is range -127 .. 127 with Convention => C; for AG_Component_Offset'Size use 8; type AG_Gray_Component is range -127 .. +127 with Convention => C; for AG_Gray_Component'Size use 8; #end if; AG_COMPONENT_BITS : constant C.unsigned := $AG_COMPONENT_BITS; AG_COLOR_FIRST : constant AG_Component := $AG_COLOR_FIRST; AG_COLOR_LAST : constant AG_Component := $AG_COLOR_LAST; AG_TRANSPARENT : constant AG_Component := $AG_TRANSPARENT; AG_OPAQUE : constant AG_Component := $AG_OPAQUE; -------------------------- -- Native Color in RGBA -- -------------------------- type AG_Color is record R,G,B,A : AG_Component; end record with Convention => C; type Color_Access is access all AG_Color with Convention => C; subtype Color_not_null_Access is not null Color_Access; type AG_Color_Access is access all AG_Color with Convention => C; subtype AG_Color_not_null_Access is not null AG_Color_Access; -------------------------- -- Native Color in HSVA -- -------------------------- type AG_Color_HSV is record H,S,V,A : C.c_float; end record with Convention => C; type Intensity is digits 6 range 0.0 .. 1.0; type Color_HSV_Access is access all AG_Color_HSV with Convention => C; subtype Color_HSV_not_null_Access is not null Color_HSV_Access; ------------------------- -- Native Color Offset -- ------------------------- type AG_Color_Offset is record R,G,B,A : AG_Component_Offset; end record with Convention => C; type Color_Offset_Access is access all AG_Color_Offset with Convention => C; subtype Color_Offset_not_null_Access is not null Color_Offset_Access; -------------------------------- -- Point in pixel coordinates -- -------------------------------- type AG_Pt is record X,Y : C.int; end record with Convention => C; type AG_Pt_Access is access all AG_Pt with Convention => C; subtype AG_Pt_not_null_Access is not null AG_Pt_Access; ------------------------- -- Rectangle of Pixels -- ------------------------- type AG_Rect is record X,Y : C.int; -- Upper-left corner W,H : C.int; -- Width, height end record with Convention => C; type AG_Rect_Access is access all AG_Rect with Convention => C; subtype AG_Rect_not_null_Access is not null AG_Rect_Access; type Rect_Access is access all AG_Rect with Convention => C; subtype Rect_not_null_Access is not null Rect_Access; ---------------------------------------- -- Rectangle of Pixels with Endpoints -- ---------------------------------------- type AG_Rect2 is record X1,Y1 : C.int; -- Upper-left corner W,H : C.int; -- Width, height X2,Y2 : C.int; -- Lower-right corner end record with Convention => C; type Rect2_Access is access all AG_Rect2 with Convention => C; subtype Rect2_not_null_Access is not null Rect2_Access; -------------------------------------- -- Clipping Rectangle (GL-optional) -- -------------------------------------- type AG_Clip_Equations is array (1 .. 16) of aliased C.double; type AG_Clip_Rect is record R : AG_Rect; Eqns : AG_Clip_Equations; end record with Convention => C; type Clip_Rect_Access is access all AG_Clip_Rect with Convention => C; subtype Clip_Rect_not_null_Access is not null Clip_Rect_Access; -------------------------------------- -- Texture Coordinate (GL-optional) -- -------------------------------------- type AG_Texcoord is record X,Y,W,H : C.C_float; end record with Convention => C; type AG_Texcoord_Access is access all AG_Texcoord with Convention => C; subtype AG_Texcoord_not_null_Access is not null AG_Texcoord_Access; ---------------------------------- -- Palette for Indexed Surfaces -- ---------------------------------- type AG_Palette is limited record Colors : Color_Access; -- Color array Count : C.unsigned; -- Total allocated colors C_Pad : Interfaces.Unsigned_32; end record with Convention => C; type Palette_Access is access all AG_Palette with Convention => C; subtype Palette_not_null_Access is not null Palette_Access; ------------------------------ -- Pixel Format Description -- ------------------------------ type Pixel_Format (Which_Mode : Surface_Mode := PACKED) is limited record Mode : Surface_Mode; -- Image type Bits_per_Pixel : C.int; -- Depth (bits/pixel) Bytes_per_Pixel : C.int; -- Depth (bytes/pixel) Pixels_per_Byte_Shift : C.int; -- Shift to divide by pixels/byte case Which_Mode is when INDEXED => Palette : Palette_Access; -- Color map when GRAYSCALE => Gray_Mode : Grayscale_Mode; -- Grayscale method when PACKED => R_Loss, G_Loss, B_Loss, A_Loss : Unsigned_8; -- Bits lost by packing R_Shift, G_Shift, B_Shift, A_Shift : Unsigned_8; -- Bits at right of each R_Mask, G_Mask, B_Mask, A_Mask : AG_Pixel; -- Component masks end case; end record with Convention => C; pragma Unchecked_Union (Pixel_Format); type Pixel_Format_Access is access all Pixel_Format with Convention => C; subtype Pixel_Format_not_null_Access is not null Pixel_Format_Access; type Pixel_Access is access all Unsigned_8 with Convention => C; subtype Pixel_not_null_Access is not null Pixel_Access; ------------------------------------- -- Animation frame disposal method -- ------------------------------------- type Anim_Dispose_Method is (UNSPECIFIED, -- No method indicated DO_NOT, -- Keep previous frame's pixels BACKGROUND, -- Blend A=0 pixels against BG (as opposed to previous frame) PREVIOUS); -- Restore to previous frame contents for Anim_Dispose_Method'Size use C.int'Size; --------------------- -- Animation Frame -- --------------------- type Anim_Frame_Type is (NONE, -- No-op PIXELS, -- Keep previous frame's pixels COLORS, -- Replace n contiguous palette entries BLEND, -- Blend entire graphic uniformly against color MOVE, -- Displace a sub-rectangle of pixels DATA); -- User data block (for audio, subtitles, annotations, etc) for Anim_Frame_Type'Size use C.int'Size; type Anim_Frame (Which_Type : Anim_Frame_Type := NONE) is limited record Frame_Type : Anim_Frame_Type; Flags : C.unsigned; Dispose : Anim_Dispose_Method; Delay_ms : C.unsigned; case Which_Type is when PIXELS => Pixels : Pixel_Access; -- New pixels to combine X,Y,W,H : Interfaces.Unsigned_16; -- Destination rectangle (normalized) when COLORS => Col_Palette : Color_not_null_Access; -- Array of contiguous color entries Col_Count : C.unsigned; -- Number of colors in Palette Col_Index : C.unsigned; -- Destination index when BLEND => Blend_C1 : AG_Color; -- Colors for uniform blend Blend_C2 : AG_Color; when MOVE => Xm,Ym,Wm,Hm : Interfaces.Unsigned_16; -- Target rectangle (normalized) Xdis,Ydis : C.int; -- Displacement in pixels when DATA => Data_Header : CS.chars_ptr; -- Header (type/size) or NULL Data_Addr : System.Address; -- Allocated data block when others => null; end case; end record with Convention => C; pragma Unchecked_Union (Anim_Frame); type Anim_Frame_Access is access all Anim_Frame with Convention => C; subtype Anim_Frame_not_null_Access is not null Anim_Frame_Access; -- Animation Frame Flags -- ANIM_FRAME_USER_INPUT : constant C.unsigned := 16#01#; -- Dispose needs user input? ----------------------------------- -- General-Purpose Surface Guide -- ----------------------------------- type Surface_Guide is (TOP, -- Top horizontal guide RIGHT, -- Right vertical guide BOTTOM, -- Bottom horizontal guide LEFT); -- Left vertical guide for Surface_Guide'Size use C.int'Size; ---------------------- -- Graphics Surface -- ---------------------- #if AG_MODEL = AG_LARGE type Surface_Pad1 is array (1 .. 6) of aliased Interfaces.Unsigned_8; #elsif AG_MODEL = AG_MEDIUM type Surface_Pad1 is array (1 .. 3) of aliased Interfaces.Unsigned_8; #elsif AG_MODEL = AG_SMALL type Surface_Pad1 is array (1 .. 7) of aliased Interfaces.Unsigned_8; #end if; type Surface is limited record Format : aliased Pixel_Format; -- Pixel format description Flags : C.unsigned; -- Surface Flags (below) W,H : C.unsigned; -- Size in pixels Pitch : C.unsigned; -- Scanline length (bytes) Pixels_Base : Pixel_Access; -- Pixel data (base address) Pixels : Pixel_Access; -- Pixel data (current address) Clip_Rect : AG_Rect; -- Destination clipping rectangle Frames : Anim_Frame_Access; -- Animation frames Frame_Count : C.unsigned; -- Animation frame count R_Padding : C.unsigned; -- Scanline end padding (bytes) L_Padding : C.unsigned; -- Scanline start padding (bytes) Alpha : C.unsigned; -- Per-surface alpha (component val) Guide_1 : Unsigned_16; -- General purpose guide #1 Guide_2 : Unsigned_16; -- General purpose guide #2 Guide_3 : Unsigned_16; -- General purpose guide #3 Guide_4 : Unsigned_16; -- General purpose guide #4 Colorkey : AG_Pixel; -- Color key pixel end record with Convention => C; -- Surface Flags -- SURFACE_COLORKEY : constant C.unsigned := 16#01#; -- Enable source colorkey SURFACE_ALPHA : constant C.unsigned := 16#02#; -- Enable per-surface alpha SURFACE_GL_TEXTURE : constant C.unsigned := 16#04#; -- Is GL-texture-ready SURFACE_MAPPED : constant C.unsigned := 16#08#; -- Is mapped to a widget SURFACE_STATIC : constant C.unsigned := 16#10#; -- Never free() SURFACE_EXT_PIXELS : constant C.unsigned := 16#20#; -- Is allocated externally SURFACE_ANIMATED : constant C.unsigned := 16#40#; -- Is an animation SURFACE_TRACE : constant C.unsigned := 16#80#; -- Enable debugging type Surface_Access is access all Surface with Convention => C; subtype Surface_not_null_Access is not null Surface_Access; ----------------------------- -- Alpha Blending Function -- ----------------------------- type Alpha_Func is (ALPHA_OVERLAY, -- a => MIN(source.a + target.a, 1) ALPHA_ZERO, -- a => 0 ALPHA_ONE, -- a => 255 ALPHA_SRC, -- a => source.a ALPHA_DST, -- a => target.a ALPHA_ONE_MINUS_DST, -- a => (1 - target.a) ALPHA_ONE_MINUS_SRC); -- a => (1 - source.a) for Alpha_Func'Size use C.unsigned'Size; -------------------------- -- Image Export Methods -- -------------------------- type JPEG_Quality is new Natural range 0 .. 100; type JPEG_Method is (JDCT_ISLOW, -- Slow, accurate integer DCT JDCT_IFAST, -- Fast, less accurate integer DCT JDCT_FLOAT); -- Floating-point method -- -- Initialize a new RGB packed-pixel format. -- procedure Pixel_Format_RGB (Format : in Pixel_Format_not_null_Access; #if AG_MODEL = AG_LARGE Bits_per_Pixel : in Positive := 64; R_Mask : in AG_Pixel := 16#000000000000ffff#; G_Mask : in AG_Pixel := 16#00000000ffff0000#; B_Mask : in AG_Pixel := 16#0000ffff00000000#); #else Bits_per_Pixel : in Positive := 32; R_Mask : in AG_Pixel := 16#000000ff#; G_Mask : in AG_Pixel := 16#0000ff00#; B_Mask : in AG_Pixel := 16#00ff0000#); #end if; -- -- Initialize a new RGBA packed-pixel format. -- procedure Pixel_Format_RGBA (Format : in Pixel_Format_not_null_Access; #if AG_MODEL = AG_LARGE Bits_per_Pixel : in Positive := 64; R_Mask : in AG_Pixel := 16#000000000000ffff#; G_Mask : in AG_Pixel := 16#00000000ffff0000#; B_Mask : in AG_Pixel := 16#0000ffff00000000#; A_Mask : in AG_Pixel := 16#ffff000000000000#); #else Bits_per_Pixel : in Positive := 32; R_Mask : in Unsigned_32 := 16#000000ff#; G_Mask : in Unsigned_32 := 16#0000ff00#; B_Mask : in Unsigned_32 := 16#00ff0000#; A_Mask : in Unsigned_32 := 16#ff000000#); #end if; -- -- Initialize a new palettized pixel format. -- procedure Pixel_Format_Indexed (Format : in Pixel_Format_not_null_Access; Bits_per_Pixel : in Positive := 8); -- -- Initialize a new grayscale pixel format. -- procedure Pixel_Format_Grayscale (Format : in Pixel_Format_not_null_Access; Bits_per_Pixel : in Positive := 32); -- -- Return a newly-allocated copy of a pixel format. -- function Duplicate_Pixel_Format (Format : in Pixel_Format_not_null_Access) return Pixel_Format_Access with Import, Convention => C, Link_Name => "AG_PixelFormatDup"; -- -- Release all resources allocated by a pixel format. -- procedure Free_Pixel_Format (Format : in Pixel_Format_not_null_Access) with Import, Convention => C, Link_Name => "AG_PixelFormatFree"; -- -- Compare the contents of two pixel formats (including any Palettes). -- --function "=" (Left, Right : Pixel_Format_Access) return Boolean; -- -- Create a new surface in PACKED, INDEXED or GRAYSCALE pixel format. -- -- With PACKED mode, masks can be specified optionally in the Format -- argument (if Format is null then the default RGBA masks are used). -- -- Src_Colorkey enables colorkey transparency and Src_Alpha enables -- overall per-surface alpha in blits where Surface is the source. -- GL_Texture advises that the surface is a valid OpenGL texture. -- function New_Surface (Mode : in Surface_Mode := PACKED; W,H : in Natural := 0; Bits_per_Pixel : in Positive := 32; Format : in Pixel_Format_Access := null; Src_Colorkey : in Boolean := false; Src_Alpha : in Boolean := false; GL_Texture : in Boolean := false) return Surface_Access; -- -- Create a new surface in PACKED pixel format with RGBA masks. -- function New_Surface (W,H : in Natural := 0; Bits_per_Pixel : in Positive := 32; R_Mask : in AG_Pixel := 16#000000ff#; G_Mask : in AG_Pixel := 16#0000ff00#; B_Mask : in AG_Pixel := 16#00ff0000#; A_Mask : in AG_Pixel := 16#ff000000#; Src_Colorkey : in Boolean := false; Src_Alpha : in Boolean := false; GL_Texture : in Boolean := false) return Surface_Access; -- -- Create a new PACKED surface (with given RGBA masks), -- and initialize its contents from existing pixel data. -- function New_Surface (Pixels : in Pixel_not_null_Access; W,H : in Natural; Bits_per_Pixel : in Positive := 32; R_Mask : in AG_Pixel := 16#000000ff#; G_Mask : in AG_Pixel := 16#0000ff00#; B_Mask : in AG_Pixel := 16#00ff0000#; A_Mask : in AG_Pixel := 16#ff000000#; Src_Colorkey : in Boolean := false; Src_Alpha : in Boolean := false; GL_Texture : in Boolean := false) return Surface_Access; -- -- Create a new surface by loading a BMP, PNG or JPEG image file. -- function New_Surface (File : in String; Src_Colorkey : in Boolean := false; Src_Alpha : in Boolean := false; GL_Texture : in Boolean := false) return Surface_Access; -- -- Return an AG_Color from RGBA components. -- function Color_8 (R,G,B : in Unsigned_8; A : in Unsigned_8 := 255) return AG_Color; function Color_16 (R,G,B : in Unsigned_16; A : in Unsigned_16 := 65535) return AG_Color; function Color_HSV (H,S,V : in Intensity; A : in Intensity := 1.0) return AG_Color; -- -- Return a native component offset amount for a given component. -- function Component_Offset_8 (X : in Unsigned_8) return AG_Component; function Component_Offset_16 (X : in Unsigned_16) return AG_Component; -- -- Set a color palette entry of an Indexed surface -- procedure Set_Color (Surface : in Surface_not_null_Access; Index : in Natural; Color : in AG_Color); procedure Set_Color (Surface : in Surface_not_null_Access; Index : in Natural; Color : in Color_not_null_Access); -- TODO: Set_Color from array of Color. -- -- Return a newly allocated copy of a surface. -- function Duplicate_Surface (Surface : in Surface_not_null_Access) return Surface_Access with Import, Convention => C, Link_Name => "AG_SurfaceDup"; -- -- Convert a surface to a different pixel format as best as we can. -- function Convert_Surface (Surface : in Surface_not_null_Access; New_Format : in Pixel_Format_not_null_Access) return Surface_Access with Import, Convention => C, Link_Name => "AG_SurfaceConvert"; -- -- Copy pixel data from one surface to another. If formats differ, convert. -- If dimensions differ, clip to size. Ignore Target's colorkey & alpha. -- procedure Copy_Surface (Target, Source : in Surface_not_null_Access) with Import, Convention => C, Link_Name => "AG_SurfaceCopy"; -- -- Copy a Source surface (or a region of its pixels) to a Target surface -- which can be of a different format. Handle format conversion, clipping -- and blending according to the pixel formats of the surfaces (and their -- colorkey/alpha settings). -- procedure Blit_Surface (Source : in Surface_not_null_Access; Src_Rect : in Rect_access := null; Target : in Surface_not_null_Access; Dst_X : in Natural := 0; Dst_Y : in Natural := 0); -- -- Change the dimensions of a surface without scaling its contents. Pixel -- data is reallocated (if growing the surface, then then new pixels are -- left uninitialized). -- function Resize_Surface (Surface : in Surface_not_null_Access; W,H : in Natural) return Boolean; procedure Resize_Surface (Surface : in Surface_not_null_Access; W,H : in Natural); -- -- Deallocate a surface. Warning: The deallocation is unchecked. Never -- use on surfaces which have been attached to a widget using Map_Surface -- (widget-mapped surfaces are freed implicitely by Agar.Widget). -- procedure Free_Surface (Surface : in Surface_not_null_Access) with Import, Convention => C, Link_Name => "AG_SurfaceFree"; -- -- Export the surface to a BMP, PNG or JPEG image file. -- function Export_Surface (Surface : in Surface_not_null_Access; File : in String) return Boolean; function Export_BMP (Surface : in Surface_not_null_Access; File : in String := "output.bmp") return Boolean; function Export_PNG (Surface : in Surface_not_null_Access; File : in String := "output.png"; Adam7 : in Boolean := false) return Boolean; function Export_JPEG (Surface : in Surface_not_null_Access; File : in String := "output.jpg"; Quality : in JPEG_Quality := 100; Method : in JPEG_Method := JDCT_ISLOW) return Boolean; -- TODO check for sdlada (SDL 2.x) --function Export_SDL -- (Surface : in Surface_not_null_Access) return SDL.Video.Surfaces.Surface; -- -- Read compressed image data from a data source. If the data contains -- a complete image, return a newly-allocated surface for it. -- function Read_From_BMP (Source : in DS.Data_Source_not_null_Access) return Surface_Access with Import, Convention => C, Link_Name => "AG_ReadSurfaceFromBMP"; function Read_From_PNG (Source : in DS.Data_Source_not_null_Access) return Surface_Access with Import, Convention => C, Link_Name => "AG_ReadSurfaceFromPNG"; function Read_From_JPEG (Source : in DS.Data_Source_not_null_Access) return Surface_Access with Import, Convention => C, Link_Name => "AG_ReadSurfaceFromJPEG"; -- -- Blend a target pixel against a specified color. The target pixel's -- alpha component is computed according to Func. -- procedure Blend_Pixel (Surface : in Surface_not_null_Access; Pixel : in Pixel_not_null_Access; Color : in Color_not_null_Access); procedure Blend_Pixel (Surface : in Surface_not_null_Access; X,Y : in Natural; Color : in Color_not_null_Access); -- -- Return the native-width packed pixel corresponding to a Color -- (under a given format, or the format of a given surface). -- function Map_Pixel (Surface : in Surface_not_null_Access; Color : in AG_Color) return AG_Pixel; function Map_Pixel (Format : in Pixel_Format_not_null_Access; Color : in AG_Color) return AG_Pixel; function Map_Pixel (Surface : in Surface_not_null_Access; Color : in Color_not_null_Access) return AG_Pixel; function Map_Pixel (Format : in Pixel_Format_not_null_Access; Color : in Color_not_null_Access) return AG_Pixel #if AG_MODEL = AG_LARGE with Import, Convention => C, Link_Name => "ag_map_pixel64"; #else with Import, Convention => C, Link_Name => "ag_map_pixel32"; #end if; -- -- Return the 32-bit packed pixel corresponding to a given color. -- function Map_Pixel_32 (Format : in Pixel_Format_not_null_Access; Color : in Color_not_null_Access) return Unsigned_32 with Import, Convention => C, Link_Name => "ag_map_pixel32"; function Map_Pixel_32 (Format : in Pixel_Format_not_null_Access; R,G,B : in Unsigned_8) return Unsigned_32 with Import, Convention => C, Link_Name => "AG_MapPixel32_RGB8"; function Map_Pixel_32 (Format : in Pixel_Format_not_null_Access; R,G,B,A : in Unsigned_8) return Unsigned_32 with Import, Convention => C, Link_Name => "AG_MapPixel32_RGBA8"; function Map_Pixel_32 (Format : in Pixel_Format_not_null_Access; R,G,B : in Unsigned_16) return Unsigned_32 with Import, Convention => C, Link_Name => "AG_MapPixel32_RGB16"; function Map_Pixel_32 (Format : in Pixel_Format_not_null_Access; R,G,B,A : in Unsigned_16) return Unsigned_32 with Import, Convention => C, Link_Name => "AG_MapPixel32_RGBA16"; #if AG_MODEL = AG_LARGE -- -- Return the 64-bit packed pixel corresponding to a given color. -- function Map_Pixel_64 (Format : in Pixel_Format_not_null_Access; Color : in Color_not_null_Access) return Unsigned_64 with Import, Convention => C, Link_Name => "ag_map_pixel64"; function Map_Pixel_64 (Format : in Pixel_Format_not_null_Access; R,G,B : in Unsigned_16) return Unsigned_64 with Import, Convention => C, Link_Name => "ag_map_pixel64_rgb16"; function Map_Pixel_64 (Format : in Pixel_Format_not_null_Access; R,G,B,A : in Unsigned_16) return Unsigned_64 with Import, Convention => C, Link_Name => "ag_map_pixel64_rgba16"; #end if; procedure Unpack_Pixel (Pixel : in AG_Pixel; Format : in Pixel_Format_not_null_Access; R,G,B,A : out AG_Component); -- -- Return a new surface generated by scaling an Input surface to specified -- dimensions. Function form may fail and return null. Procedure form raises -- a fatal exception on failure. -- function Scale_Surface (Surface : in Surface_not_null_Access; W,H : in Natural) return Surface_Access; procedure Scale_Surface (Original : in Surface_not_null_Access; W,H : in Natural; Scaled : out Surface_not_null_Access); -- -- Fill a rectangle of pixels with a specified color. -- procedure Fill_Rect (Surface : in Surface_not_null_Access; Rect : in Rect_Access := null; Color : in AG_Color); procedure Fill_Rect (Surface : in Surface_not_null_Access; Rect : in Rect_Access := null; Color : in Color_not_null_Access) with Import, Convention => C, Link_Name => "AG_FillRect"; -- -- Extract a native-width packed pixel from a surface. -- function Get_Pixel (Surface : in Surface_not_null_Access; X,Y : in Natural) return AG_Pixel; function Get_Pixel (Surface : in Surface_not_null_Access; Address : in Pixel_not_null_Access) return AG_Pixel #if AG_MODEL = AG_LARGE with Import, Convention => C, Link_Name => "ag_surface_get64_at"; #else with Import, Convention => C, Link_Name => "ag_surface_get32_at"; #end if; -- -- Extract a 32-bit packed pixel from a surface. -- function Get_Pixel_32 (Surface : in Surface_not_null_Access; X,Y : in Natural) return Unsigned_32; function Get_Pixel_32 (Surface : in Surface_not_null_Access; Address : in Pixel_not_null_Access) return Unsigned_32 with Import, Convention => C, Link_Name => "ag_surface_get32"; #if AG_MODEL = AG_LARGE -- -- Extract a 64-bit packed pixel from a surface. -- function Get_Pixel_64 (Surface : in Surface_not_null_Access; X,Y : in Natural) return Unsigned_64; function Get_Pixel_64 (Surface : in Surface_not_null_Access; Address : in Pixel_not_null_Access) return Unsigned_64 with Import, Convention => C, Link_Name => "ag_surface_get64"; #end if; -- -- Set a native-width packed pixel in a surface. -- procedure Put_Pixel (Surface : in Surface_not_null_Access; X,Y : in Natural; Pixel : in AG_Pixel; Clipping : in Boolean := true); procedure Put_Pixel (Surface : in Surface_not_null_Access; Address : in Pixel_not_null_Access; Pixel : in AG_Pixel) #if AG_MODEL = AG_LARGE with Import, Convention => C, Link_Name => "ag_surface_put64_at"; #else with Import, Convention => C, Link_Name => "ag_surface_put32_at"; #end if; -- -- Set a 32-bit packed pixel in a surface. -- procedure Put_Pixel_32 (Surface : in Surface_not_null_Access; Address : in Pixel_not_null_Access; Pixel : in Unsigned_32) with Import, Convention => C, Link_Name => "ag_surface_put32_at"; procedure Put_Pixel_32 (Surface : in Surface_not_null_Access; X,Y : in Natural; Pixel : in Unsigned_32; Clipping : in Boolean := true); #if AG_MODEL = AG_LARGE -- -- Set a 64-bit packed pixel in a surface. -- procedure Put_Pixel_64 (Surface : in Surface_not_null_Access; Address : in Pixel_not_null_Access; Pixel : in Unsigned_64) with Import, Convention => C, Link_Name => "ag_surface_put64_at"; procedure Put_Pixel_64 (Surface : in Surface_not_null_Access; X,Y : in Natural; Pixel : in Unsigned_64; Clipping : in Boolean := true); #end if; -- -- Set source colorkey flag and surface colorkey value. -- procedure Set_Colorkey (Surface : in Surface_not_null_Access; Enable : in Boolean := false; Colorkey : in AG_Pixel := 0); -- -- Clipping rectangle. -- procedure Get_Clipping_Rect (Surface : in Surface_not_null_Access; X,Y,W,H : out Natural); procedure Set_Clipping_Rect (Surface : in Surface_not_null_Access; X,Y,W,H : in Natural); private procedure AG_PixelFormatRGB (Format : in Pixel_Format_not_null_Access; Bits_per_Pixel : in C.int; R_Mask,G_Mask,B_Mask : in AG_Pixel) with Import, Convention => C, Link_Name => "AG_PixelFormatRGB"; procedure AG_PixelFormatRGBA (Format : in Pixel_Format_not_null_Access; Bits_per_Pixel : in C.int; R_Mask,G_Mask,B_Mask,A_Mask : in AG_Pixel) with Import, Convention => C, Link_Name => "AG_PixelFormatRGBA"; procedure AG_PixelFormatIndexed (Format : in Pixel_Format_not_null_Access; Bits_per_Pixel : in C.int) with Import, Convention => C, Link_Name => "AG_PixelFormatIndexed"; procedure AG_PixelFormatGrayscale (Format : in Pixel_Format_not_null_Access; Bits_per_Pixel : in C.int) with Import, Convention => C, Link_Name => "AG_PixelFormatGrayscale"; function AG_PixelFormatCompare (Left, Right : in Pixel_Format_not_null_Access) return C.int with Import, Convention => C, Link_Name => "ag_pixel_format_compare"; function AG_SurfaceNew (Format : in Pixel_Format_not_null_Access; W,H : in C.unsigned; Flags : in C.unsigned) return Surface_not_null_Access with Import, Convention => C, Link_Name => "AG_SurfaceNew"; function AG_SurfaceRGB (W,H : in C.unsigned; Bits_per_Pixel : in C.unsigned; Flags : in C.unsigned; R_Mask : in AG_Pixel; G_Mask : in AG_Pixel; B_Mask : in AG_Pixel) return Surface_not_null_Access with Import, Convention => C, Link_Name => "AG_SurfaceRGB"; function AG_SurfaceRGBA (W,H : in C.unsigned; Bits_per_Pixel : in C.unsigned; Flags : in C.unsigned; R_Mask : in AG_Pixel; G_Mask : in AG_Pixel; B_Mask : in AG_Pixel; A_Mask : in AG_Pixel) return Surface_not_null_Access with Import, Convention => C, Link_Name => "AG_SurfaceRGBA"; function AG_SurfaceIndexed (W,H : in C.unsigned; Bits_per_Pixel : in C.unsigned; Flags : in C.unsigned) return Surface_not_null_Access with Import, Convention => C, Link_Name => "AG_SurfaceIndexed"; function AG_SurfaceGrayscale (W,H : in C.unsigned; Bits_per_Pixel : in C.unsigned; Flags : in C.unsigned) return Surface_not_null_Access with Import, Convention => C, Link_Name => "AG_SurfaceGrayscale"; function AG_SurfaceFromPixelsRGB (Pixels : in Pixel_not_null_Access; W,H : in C.unsigned; Bits_per_Pixel : in C.int; R_Mask : in AG_Pixel; G_Mask : in AG_Pixel; B_Mask : in AG_Pixel) return Surface_Access with Import, Convention => C, Link_Name => "AG_SurfaceFromPixelsRGB"; function AG_SurfaceFromPixelsRGBA (Pixels : in Pixel_not_null_Access; W,H : in C.unsigned; Bits_per_Pixel : in C.int; R_Mask : in AG_Pixel; G_Mask : in AG_Pixel; B_Mask : in AG_Pixel; A_Mask : in AG_Pixel) return Surface_Access with Import, Convention => C, Link_Name => "AG_SurfaceFromPixelsRGBA"; function AG_SurfaceFromFile (File : in CS.chars_ptr) return Surface_Access with Import, Convention => C, Link_Name => "AG_SurfaceFromFile"; function AG_SurfaceExportFile (Surface : in Surface_not_null_Access; File : in CS.chars_ptr) return C.int with Import, Convention => C, Link_Name => "AG_SurfaceExportFile"; -- TODO AG_SurfaceSetAddress() procedure AG_SurfaceSetAddress (Surface : in Surface_not_null_Access; Pixels : in System.Address) with Import, Convention => C, Link_Name => "AG_SurfaceSetAddress"; procedure AG_SurfaceSetColors (Surface : in Surface_not_null_Access; Color : in Color_not_null_Access; Offset : in C.unsigned; Count : in C.unsigned) with Import, Convention => C, Link_Name => "AG_SurfaceSetColors"; function AG_SurfaceSetPalette (Surface : in Surface_not_null_Access; Palette : in Palette_not_null_Access) return C.int with Import, Convention => C, Link_Name => "AG_SurfaceSetPalette"; procedure AG_SurfaceBlit (Source : in Surface_not_null_Access; Src_Rect : in Rect_Access; Target : in Surface_not_null_Access; X, Y : in C.int) with Import, Convention => C, Link_Name => "AG_SurfaceBlit"; function AG_SurfaceResize (Surface : in Surface_not_null_Access; W,H : in C.unsigned) return C.int with Import, Convention => C, Link_Name => "AG_SurfaceResize"; procedure AG_SurfaceSetColorkey (Surface : in Surface_not_null_Access; Flags : in C.unsigned; Colorkey : in AG_Pixel) with Import, Convention => C, Link_Name => "ag_surface_set_colorkey"; procedure AG_HSV2Color (H,S,V : in C.c_float; Color : in Color_not_null_Access) with Import, Convention => C, Link_Name => "ag_hsv_2_color"; function AG_SurfaceExportBMP (Surface : in Surface_not_null_Access; File : in CS.chars_ptr) return C.int with Import, Convention => C, Link_Name => "AG_SurfaceExportBMP"; EXPORT_PNG_ADAM7 : constant C.unsigned := 16#01#; function AG_SurfaceExportPNG (Surface : in Surface_not_null_Access; File : in CS.chars_ptr; Flags : in C.unsigned) return C.int with Import, Convention => C, Link_Name => "AG_SurfaceExportPNG"; EXPORT_JPEG_JDCT_ISLOW : constant C.unsigned := 16#01#; EXPORT_JPEG_JDCT_IFAST : constant C.unsigned := 16#02#; EXPORT_JPEG_JDCT_FLOAT : constant C.unsigned := 16#04#; function AG_SurfaceExportJPEG (Surface : in Surface_not_null_Access; File : in CS.chars_ptr; Quality : in C.unsigned; Flags : in C.unsigned) return C.int with Import, Convention => C, Link_Name => "AG_SurfaceExportJPEG"; function AG_SurfaceScale (Surface : in Surface_not_null_Access; W,H : in C.unsigned; Flags : in C.unsigned) return Surface_Access with Import, Convention => C, Link_Name => "AG_SurfaceScale"; procedure AG_SurfaceBlend (Surface : in Surface_not_null_Access; X,Y : in C.int; Color : in Color_not_null_Access) with Import, Convention => C, Link_Name => "ag_surface_blend"; procedure AG_SurfaceBlend_At (Surface : in Surface_not_null_Access; Pixel : in Pixel_not_null_Access; Color : in Color_not_null_Access) with Import, Convention => C, Link_Name => "ag_surface_blend_at"; procedure AG_FillRect (Surface : in Surface_not_null_Access; Rect : in Rect_Access := null; Color : in Color_not_null_Access) with Import, Convention => C, Link_Name => "AG_FillRect"; function AG_SurfaceGet32 (Surface : in Surface_not_null_Access; X,Y : in C.int) return Unsigned_32 with Import, Convention => C, Link_Name => "ag_surface_get32"; procedure AG_SurfacePut32 (Surface : in Surface_not_null_Access; X,Y : in C.int; Pixel : in Unsigned_32) with Import, Convention => C, Link_Name => "ag_surface_put32"; procedure AG_GetColor32 (Color : in Color_not_null_Access; Pixel : in Unsigned_32; Format : in Pixel_Format_not_null_Access) with Import, Convention => C, Link_Name => "AG_GetColor32"; procedure AG_GetColor32_RGBA8 (Pixel : in Unsigned_32; Format : in Pixel_Format_not_null_Access; R,G,B,A : in System.Address) with Import, Convention => C, Link_Name => "AG_GetColor32_RGBA8"; procedure AG_GetColor32_RGBA16 (Pixel : in Unsigned_32; Format : in Pixel_Format_not_null_Access; R,G,B,A : in System.Address) with Import, Convention => C, Link_Name => "AG_GetColor32_RGBA16"; function AG_MapPixel32 (Format : in Pixel_Format_not_null_Access; Color : in Color_not_null_Access) return Unsigned_32 with Import, Convention => C, Link_Name => "ag_map_pixel32"; #if AG_MODEL = AG_LARGE function AG_SurfaceGet64 (Surface : in Surface_not_null_Access; X,Y : in C.int) return Unsigned_64 with Import, Convention => C, Link_Name => "ag_surface_get64"; procedure AG_SurfacePut64 (Surface : in Surface_not_null_Access; X,Y : in C.int; Pixel : in Unsigned_64) with Import, Convention => C, Link_Name => "ag_surface_put64"; procedure AG_GetColor64 (Color : in Color_not_null_Access; Pixel : in Unsigned_64; Format : in Pixel_Format_not_null_Access) with Import, Convention => C, Link_Name => "AG_GetColor64"; procedure AG_GetColor64_RGBA8 (Pixel : in Unsigned_64; Format : in Pixel_Format_not_null_Access; R,G,B,A : in System.Address) with Import, Convention => C, Link_Name => "ag_get_color64_rgba8"; procedure AG_GetColor64_RGBA16 (Pixel : in Unsigned_64; Format : in Pixel_Format_not_null_Access; R,G,B,A : in System.Address) with Import, Convention => C, Link_Name => "ag_get_color64_rgba16"; function AG_MapPixel64 (Format : in Pixel_Format_not_null_Access; Color : in Color_not_null_Access) return Unsigned_64 with Import, Convention => C, Link_Name => "ag_map_pixel64"; #end if; end Agar.Surface;