gistfile1.nim

include allegro5/comalleg

type
  TAllegroColor* = object
    r*, g*, b*, a*: cfloat
  TAllegroPixelFormat* = enum
    ALLEGRO_PIXEL_FORMAT_ANY               = 0.cint,
    ALLEGRO_PIXEL_FORMAT_ANY_NO_ALPHA      = 1.cint,
    ALLEGRO_PIXEL_FORMAT_ANY_WITH_ALPHA    = 2.cint,
    ALLEGRO_PIXEL_FORMAT_ANY_15_NO_ALPHA   = 3.cint,
    ALLEGRO_PIXEL_FORMAT_ANY_16_NO_ALPHA   = 4.cint,
    ALLEGRO_PIXEL_FORMAT_ANY_16_WITH_ALPHA = 5.cint,
    ALLEGRO_PIXEL_FORMAT_ANY_24_NO_ALPHA   = 6.cint,
    ALLEGRO_PIXEL_FORMAT_ANY_32_NO_ALPHA   = 7.cint,
    ALLEGRO_PIXEL_FORMAT_ANY_32_WITH_ALPHA = 8.cint,
    ALLEGRO_PIXEL_FORMAT_ARGB_8888         = 9.cint,
    ALLEGRO_PIXEL_FORMAT_RGBA_8888         = 10.cint,
    ALLEGRO_PIXEL_FORMAT_ARGB_4444         = 11.cint,
    ALLEGRO_PIXEL_FORMAT_RGB_888           = 12.cint,
    ALLEGRO_PIXEL_FORMAT_RGB_565           = 13.cint,
    ALLEGRO_PIXEL_FORMAT_RGB_555           = 14.cint,
    ALLEGRO_PIXEL_FORMAT_RGBA_5551         = 15.cint,
    ALLEGRO_PIXEL_FORMAT_ARGB_1555         = 16.cint,
    ALLEGRO_PIXEL_FORMAT_ABGR_8888         = 17.cint,
    ALLEGRO_PIXEL_FORMAT_XBGR_8888         = 18.cint,
    ALLEGRO_PIXEL_FORMAT_BGR_888           = 19.cint,
    ALLEGRO_PIXEL_FORMAT_BGR_565           = 20.cint,
    ALLEGRO_PIXEL_FORMAT_BGR_555           = 21.cint,
    ALLEGRO_PIXEL_FORMAT_RGBX_8888         = 22.cint,
    ALLEGRO_PIXEL_FORMAT_XRGB_8888         = 23.cint,
    ALLEGRO_PIXEL_FORMAT_ABGR_F32          = 24.cint,
    ALLEGRO_PIXEL_FORMAT_ABGR_8888_LE      = 25.cint,
    ALLEGRO_PIXEL_FORMAT_RGBA_4444         = 26.cint,
    ALLEGRO_PIXEL_FORMAT_SINGLE_CHANNEL_8  = 27.cint,
    ALLEGRO_NUM_PIXEL_FORMATS              = 28.cint

proc alMapRGB*(r, g, b: cuchar): TAllegroColor {.comalleg, importc: "al_map_rgb".}
proc alMapRGBA*(r, g, b, a: cuchar): TAllegroColor {.comalleg, importc: "al_map_rgba".}
proc alMapRGBf*(r, g, b: cfloat): TAllegroColor {.comalleg, importc: "al_map_rgb_f".}
proc alMapRGBAf*(r, g, b, a: cfloat): TAllegroColor {.comalleg, importc: "al_map_rgba_f".}

proc alUnmapRGB*(color: TAllegroColor, r, g, b: ptr cuchar) {.comalleg, importc: "al_unmap_rgb".}
proc alUnmapRGBA*(color: TAllegroColor, r, g, b, a: ptr cuchar) {.comalleg, importc: "al_unmap_rgba".}
proc alUnmapRGBf*(color: TAllegroColor, r, g, b: ptr cfloat) {.comalleg, importc: "al_unmap_rgb_f".}
proc alUnmapRGBAf*(color: TAllegroColor, r, g, b, a: ptr cfloat) {.comalleg, importc: "al_unmap_rgba_f".}

proc alGetPixelSize*(format: TAllegroPixelFormat): cint {.comalleg, importc: "al_get_pixel_size".}
proc alGetPixelFormatBits*(format: TAllegroPixelFormat): cint {.comalleg, importc: "al_get_pixel_format_bits".}