/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */ /* eel-gdk-extensions.c: Graphics routines to augment what's in gdk. Copyright (C) 1999, 2000 Eazel, Inc. The Mate Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The Mate Library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the Mate Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. Authors: Darin Adler <darin@eazel.com>, Pavel Cisler <pavel@eazel.com>, Ramiro Estrugo <ramiro@eazel.com> */ #include <config.h> #include "eel-gdk-extensions.h" #include "eel-glib-extensions.h" #include "eel-lib-self-check-functions.h" #include "eel-string.h" #include <gdk-pixbuf/gdk-pixbuf.h> #include <gdk/gdkprivate.h> #include <gdk/gdk.h> #include <gdk/gdkx.h> #include <stdlib.h> #include <pango/pango.h> #define GRADIENT_BAND_SIZE 4 /** * eel_gradient_new * @start_color: Color for the top or left. * @end_color: Color for the bottom or right. * @is_horizontal: Direction of the gradient. * * Create a string that combines the start and end colors along * with the direction of the gradient in a standard format. */ char * eel_gradient_new (const char *start_color, const char *end_color, gboolean is_horizontal) { /* Handle the special case where the start and end colors are identical. Handle the special case where the end color is an empty string. */ if (eel_strcmp(start_color, end_color) == 0 || end_color == NULL || end_color[0] == '\0') { return g_strdup (start_color); } /* Handle the special case where the start color is an empty string. */ if (start_color == NULL || start_color[0] == '\0') { return g_strdup (end_color); } /* Handle the general case. */ return g_strconcat (start_color, "-", end_color, is_horizontal ? ":h" : NULL, NULL); } /** * eel_gradient_is_gradient * @gradient_spec: A gradient spec. string. * * Return true if the spec. specifies a gradient instead of a solid color. */ gboolean eel_gradient_is_gradient (const char *gradient_spec) { return eel_strchr (gradient_spec, '-') != NULL; } /** * eel_gradient_is_horizontal * @gradient_spec: A gradient spec. string. * * Return true if the spec. specifies a horizontal gradient. */ gboolean eel_gradient_is_horizontal (const char *gradient_spec) { size_t length; length = eel_strlen (gradient_spec); return length >= 2 && gradient_spec[length - 2] == ':' && gradient_spec[length - 1] == 'h'; } static char * eel_gradient_strip_trailing_direction_if_any (const char *gradient_spec) { size_t length; length = eel_strlen (gradient_spec); if (length >= 2 && gradient_spec[length - 2] == ':' && (gradient_spec[length - 1] == 'v' || gradient_spec[length - 1] == 'h')) { length -= 2; } return g_strndup (gradient_spec, length); } /* For parsing n-point gradients. Successive calls should pass the next_spec value * set by the previous call as their first argument - to continue parsing where the * previous call left off. */ char * eel_gradient_parse_one_color_spec (const char *spec, int *percent, const char **next_spec) { char *result; const char *rgb_end_ptr; const char *percent_ptr; const char *separator_ptr; percent_ptr = eel_strchr (spec, '%'); separator_ptr = eel_strchr (spec, '-'); if (percent_ptr != NULL && (separator_ptr == NULL || percent_ptr < separator_ptr)) { if (percent != NULL) { *percent = (int) strtol (percent_ptr + 1, NULL, 10); } rgb_end_ptr = percent_ptr; } else { if (percent != NULL) { *percent = 100; } rgb_end_ptr = separator_ptr; } if (rgb_end_ptr != NULL) { result = g_strndup (spec, rgb_end_ptr - spec); } else { result = eel_gradient_strip_trailing_direction_if_any (spec); } /* It's important not to use spec after setting *next_spec because it's * likely that *next_spec == spec. */ if (next_spec != NULL) { *next_spec = (separator_ptr != NULL) ? separator_ptr + 1 : NULL; } return result; } /* FIXME bugzilla.eazel.com 5076: * anyone using eel_gradient_get_start_color_spec or * eel_gradient_get_end_color_spec is assuming the gradient * is 2 colors which is questionable. * * Callers should be rewritten and these fns eliminated. */ /** * eel_gradient_get_start_color_spec * @gradient_spec: A gradient spec. string. * * Return the start color. * This may be the entire gradient_spec if it's a solid color. */ char * eel_gradient_get_start_color_spec (const char *gradient_spec) { return eel_gradient_parse_one_color_spec (gradient_spec, NULL, NULL); } /** * eel_gradient_get_end_color_spec * @gradient_spec: A gradient spec. string. * * Return the end color. * This may be the entire gradient_spec if it's a solid color. */ char * eel_gradient_get_end_color_spec (const char *gradient_spec) { char* color = NULL; do { g_free (color); color = eel_gradient_parse_one_color_spec (gradient_spec, NULL, &gradient_spec); } while (gradient_spec != NULL); return color; } /* Do the work shared by all the set_color_spec functions below. */ static char * eel_gradient_set_edge_color (const char *gradient_spec, const char *edge_color, gboolean is_horizontal, gboolean change_end) { char *opposite_color; char *result; g_assert (edge_color != NULL); /* Get the color from the existing gradient spec. for the opposite edge. This will parse away all the stuff we don't want from the old gradient spec. */ opposite_color = change_end ? eel_gradient_get_start_color_spec (gradient_spec) : eel_gradient_get_end_color_spec (gradient_spec); /* Create a new gradient spec. The eel_gradient_new function handles some special cases, so we don't have to bother with them here. */ result = eel_gradient_new (change_end ? opposite_color : edge_color, change_end ? edge_color : opposite_color, is_horizontal); g_free (opposite_color); return result; } /** * eel_gradient_set_left_color_spec * @gradient_spec: A gradient spec. string. * @left_color: Color spec. to replace left color with. * * Changes the left color to what's passed in. * This creates a horizontal gradient. */ char * eel_gradient_set_left_color_spec (const char *gradient_spec, const char *left_color) { g_return_val_if_fail (gradient_spec != NULL, NULL); g_return_val_if_fail (left_color != NULL, NULL); return eel_gradient_set_edge_color (gradient_spec, left_color, TRUE, FALSE); } /** * eel_gradient_set_top_color_spec * @gradient_spec: A gradient spec. string. * @top_color: Color spec. to replace top color with. * * Changes the top color to what's passed in. * This creates a vertical gradient. */ char * eel_gradient_set_top_color_spec (const char *gradient_spec, const char *top_color) { g_return_val_if_fail (gradient_spec != NULL, NULL); g_return_val_if_fail (top_color != NULL, NULL); return eel_gradient_set_edge_color (gradient_spec, top_color, FALSE, FALSE); } /** * eel_gradient_set_right_color_spec * @gradient_spec: A gradient spec. string. * @right_color: Color spec. to replace right color with. * * Changes the right color to what's passed in. * This creates a horizontal gradient. */ char * eel_gradient_set_right_color_spec (const char *gradient_spec, const char *right_color) { g_return_val_if_fail (gradient_spec != NULL, NULL); g_return_val_if_fail (right_color != NULL, NULL); return eel_gradient_set_edge_color (gradient_spec, right_color, TRUE, TRUE); } /** * eel_gradient_set_bottom_color_spec * @gradient_spec: A gradient spec. string. * @bottom_color: Color spec. to replace bottom color with. * * Changes the bottom color to what's passed in. * This creates a vertical gradient. */ char * eel_gradient_set_bottom_color_spec (const char *gradient_spec, const char *bottom_color) { g_return_val_if_fail (gradient_spec != NULL, NULL); g_return_val_if_fail (bottom_color != NULL, NULL); return eel_gradient_set_edge_color (gradient_spec, bottom_color, FALSE, TRUE); } /** * eel_gdk_color_parse_with_white_default * @color_spec: A color spec, or NULL. * @color: Pointer to place to put resulting color. * * The same as gdk_color_parse, except sets the color to white if * the spec. can't be parsed, instead of returning a boolean flag. */ void eel_gdk_color_parse_with_white_default (const char *color_spec, GdkColor *color) { gboolean got_color; g_return_if_fail (color != NULL); got_color = FALSE; if (color_spec != NULL) { if (gdk_color_parse (color_spec, color)) { got_color = TRUE; } } if (!got_color) { color->red = 0xFFFF; color->green = 0xFFFF; color->blue = 0xFFFF; } } guint32 eel_rgb16_to_rgb (gushort r, gushort g, gushort b) { guint32 result; result = (0xff0000 | (r & 0xff00)); result <<= 8; result |= ((g & 0xff00) | (b >> 8)); return result; } guint32 eel_rgb8_to_rgb (guchar r, guchar g, guchar b) { return eel_rgb16_to_rgb (r << 8, g << 8, b << 8); } /** * eel_gdk_color_to_rgb * @color: A GdkColor style color. * Returns: An rgb value. * * Converts from a GdkColor stlye color to a gdk_rgb one. * Alpha gets set to fully opaque */ guint32 eel_gdk_color_to_rgb (const GdkColor *color) { return eel_rgb16_to_rgb (color->red, color->green, color->blue); } /** * eel_gdk_rgb_to_color * @color: a gdk_rgb style value. * * Converts from a gdk_rgb value style to a GdkColor one. * The gdk_rgb color alpha channel is ignored. * * Return value: A GdkColor structure version of the given RGB color. */ GdkColor eel_gdk_rgb_to_color (guint32 color) { GdkColor result; result.red = ((color >> 16) & 0xFF) * 0x101; result.green = ((color >> 8) & 0xFF) * 0x101; result.blue = (color & 0xff) * 0x101; result.pixel = 0; return result; } /** * eel_gdk_rgb_to_color_spec * @color: a gdk_rgb style value. * * Converts from a gdk_rgb value style to a string color spec. * The gdk_rgb color alpha channel is ignored. * * Return value: a newly allocated color spec. */ char * eel_gdk_rgb_to_color_spec (const guint32 color) { return g_strdup_printf ("#%06X", (guint) (color & 0xFFFFFF)); } /** * eel_gdk_color_is_dark: * * Return true if the given color is `dark' */ gboolean eel_gdk_color_is_dark (GdkColor *color) { int intensity; intensity = (((color->red >> 8) * 77) + ((color->green >> 8) * 150) + ((color->blue >> 8) * 28)) >> 8; return intensity < 128; } EelGdkGeometryFlags eel_gdk_parse_geometry (const char *string, int *x_return, int *y_return, guint *width_return, guint *height_return) { int x11_flags; EelGdkGeometryFlags gdk_flags; g_return_val_if_fail (string != NULL, EEL_GDK_NO_VALUE); g_return_val_if_fail (x_return != NULL, EEL_GDK_NO_VALUE); g_return_val_if_fail (y_return != NULL, EEL_GDK_NO_VALUE); g_return_val_if_fail (width_return != NULL, EEL_GDK_NO_VALUE); g_return_val_if_fail (height_return != NULL, EEL_GDK_NO_VALUE); x11_flags = XParseGeometry (string, x_return, y_return, width_return, height_return); gdk_flags = EEL_GDK_NO_VALUE; if (x11_flags & XValue) { gdk_flags |= EEL_GDK_X_VALUE; } if (x11_flags & YValue) { gdk_flags |= EEL_GDK_Y_VALUE; } if (x11_flags & WidthValue) { gdk_flags |= EEL_GDK_WIDTH_VALUE; } if (x11_flags & HeightValue) { gdk_flags |= EEL_GDK_HEIGHT_VALUE; } if (x11_flags & XNegative) { gdk_flags |= EEL_GDK_X_NEGATIVE; } if (x11_flags & YNegative) { gdk_flags |= EEL_GDK_Y_NEGATIVE; } return gdk_flags; } void #if GTK_CHECK_VERSION(3,0,0) eel_cairo_draw_layout_with_drop_shadow (cairo_t *cr, #else eel_gdk_draw_layout_with_drop_shadow (GdkDrawable *drawable, #endif GdkColor *text_color, GdkColor *shadow_color, int x, int y, PangoLayout *layout) { #if GTK_CHECK_VERSION(3,0,0) cairo_save (cr); #else cairo_t *cr; cr = gdk_cairo_create (drawable); #endif gdk_cairo_set_source_color (cr, shadow_color); cairo_move_to (cr, x+1, y+1); pango_cairo_show_layout (cr, layout); gdk_cairo_set_source_color (cr, text_color); cairo_move_to (cr, x, y); pango_cairo_show_layout (cr, layout); #if GTK_CHECK_VERSION(3,0,0) cairo_restore (cr); #else cairo_destroy (cr); #endif } #if ! defined (EEL_OMIT_SELF_CHECK) static char * eel_gdk_color_as_hex_string (GdkColor color) { return g_strdup_printf ("%04X%04X%04X", color.red, color.green, color.blue); } static char * eel_self_check_parse (const char *color_spec) { GdkColor color; eel_gdk_color_parse_with_white_default (color_spec, &color); return eel_gdk_color_as_hex_string (color); } static char * eel_self_check_gdk_rgb_to_color (guint32 color) { GdkColor result; result = eel_gdk_rgb_to_color (color); return eel_gdk_color_as_hex_string (result); } void eel_self_check_gdk_extensions (void) { /* eel_gradient_new */ EEL_CHECK_STRING_RESULT (eel_gradient_new ("", "", FALSE), ""); EEL_CHECK_STRING_RESULT (eel_gradient_new ("a", "b", FALSE), "a-b"); EEL_CHECK_STRING_RESULT (eel_gradient_new ("a", "b", TRUE), "a-b:h"); EEL_CHECK_STRING_RESULT (eel_gradient_new ("a", "a", FALSE), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_new ("a", "a", TRUE), "a"); /* eel_gradient_is_gradient */ EEL_CHECK_BOOLEAN_RESULT (eel_gradient_is_gradient (""), FALSE); EEL_CHECK_BOOLEAN_RESULT (eel_gradient_is_gradient ("-"), TRUE); EEL_CHECK_BOOLEAN_RESULT (eel_gradient_is_gradient ("a"), FALSE); EEL_CHECK_BOOLEAN_RESULT (eel_gradient_is_gradient ("a-b"), TRUE); EEL_CHECK_BOOLEAN_RESULT (eel_gradient_is_gradient ("a-b:h"), TRUE); /* eel_gradient_get_start_color_spec */ EEL_CHECK_STRING_RESULT (eel_gradient_get_start_color_spec (""), ""); EEL_CHECK_STRING_RESULT (eel_gradient_get_start_color_spec ("-"), ""); EEL_CHECK_STRING_RESULT (eel_gradient_get_start_color_spec ("a"), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_get_start_color_spec ("a-b"), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_get_start_color_spec ("a-"), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_get_start_color_spec ("-b"), ""); EEL_CHECK_STRING_RESULT (eel_gradient_get_start_color_spec ("a:h"), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_get_start_color_spec ("a:v"), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_get_start_color_spec ("a:c"), "a:c"); EEL_CHECK_STRING_RESULT (eel_gradient_get_start_color_spec ("a:-b"), "a:"); EEL_CHECK_STRING_RESULT (eel_gradient_get_start_color_spec ("a:-b:v"), "a:"); /* eel_gradient_get_end_color_spec */ EEL_CHECK_STRING_RESULT (eel_gradient_get_end_color_spec (""), ""); EEL_CHECK_STRING_RESULT (eel_gradient_get_end_color_spec ("-"), ""); EEL_CHECK_STRING_RESULT (eel_gradient_get_end_color_spec ("a"), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_get_end_color_spec ("a-b"), "b"); EEL_CHECK_STRING_RESULT (eel_gradient_get_end_color_spec ("a-"), ""); EEL_CHECK_STRING_RESULT (eel_gradient_get_end_color_spec ("-b"), "b"); EEL_CHECK_STRING_RESULT (eel_gradient_get_end_color_spec ("a:h"), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_get_end_color_spec ("a:v"), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_get_end_color_spec ("a:c"), "a:c"); EEL_CHECK_STRING_RESULT (eel_gradient_get_end_color_spec ("a:-b"), "b"); EEL_CHECK_STRING_RESULT (eel_gradient_get_end_color_spec ("a:-b:v"), "b"); /* eel_gradient_set_left_color_spec */ EEL_CHECK_STRING_RESULT (eel_gradient_set_left_color_spec ("", ""), ""); EEL_CHECK_STRING_RESULT (eel_gradient_set_left_color_spec ("", "a"), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_set_left_color_spec ("a", ""), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_set_left_color_spec ("a", "a"), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_set_left_color_spec ("a", "b"), "b-a:h"); EEL_CHECK_STRING_RESULT (eel_gradient_set_left_color_spec ("a-c:v", "b"), "b-c:h"); EEL_CHECK_STRING_RESULT (eel_gradient_set_left_color_spec ("a-c:v", "c"), "c"); EEL_CHECK_STRING_RESULT (eel_gradient_set_left_color_spec ("a:-b:v", "d"), "d-b:h"); /* eel_gradient_set_top_color_spec */ EEL_CHECK_STRING_RESULT (eel_gradient_set_top_color_spec ("", ""), ""); EEL_CHECK_STRING_RESULT (eel_gradient_set_top_color_spec ("", "a"), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_set_top_color_spec ("a", ""), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_set_top_color_spec ("a", "a"), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_set_top_color_spec ("a", "b"), "b-a"); EEL_CHECK_STRING_RESULT (eel_gradient_set_top_color_spec ("a-c:v", "b"), "b-c"); EEL_CHECK_STRING_RESULT (eel_gradient_set_top_color_spec ("a-c:v", "c"), "c"); EEL_CHECK_STRING_RESULT (eel_gradient_set_top_color_spec ("a:-b:h", "d"), "d-b"); /* eel_gradient_set_right_color_spec */ EEL_CHECK_STRING_RESULT (eel_gradient_set_right_color_spec ("", ""), ""); EEL_CHECK_STRING_RESULT (eel_gradient_set_right_color_spec ("", "a"), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_set_right_color_spec ("a", ""), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_set_right_color_spec ("a", "a"), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_set_right_color_spec ("a", "b"), "a-b:h"); EEL_CHECK_STRING_RESULT (eel_gradient_set_right_color_spec ("a-c:v", "b"), "a-b:h"); EEL_CHECK_STRING_RESULT (eel_gradient_set_right_color_spec ("a-c:v", "c"), "a-c:h"); EEL_CHECK_STRING_RESULT (eel_gradient_set_right_color_spec ("a:-b:v", "d"), "a:-d:h"); /* eel_gradient_set_bottom_color_spec */ EEL_CHECK_STRING_RESULT (eel_gradient_set_bottom_color_spec ("", ""), ""); EEL_CHECK_STRING_RESULT (eel_gradient_set_bottom_color_spec ("", "a"), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_set_bottom_color_spec ("a", ""), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_set_bottom_color_spec ("a", "a"), "a"); EEL_CHECK_STRING_RESULT (eel_gradient_set_bottom_color_spec ("a", "b"), "a-b"); EEL_CHECK_STRING_RESULT (eel_gradient_set_bottom_color_spec ("a-c:v", "b"), "a-b"); EEL_CHECK_STRING_RESULT (eel_gradient_set_bottom_color_spec ("a-c:v", "c"), "a-c"); EEL_CHECK_STRING_RESULT (eel_gradient_set_bottom_color_spec ("a:-b:h", "d"), "a:-d"); /* eel_gdk_color_parse_with_white_default */ EEL_CHECK_STRING_RESULT (eel_self_check_parse (""), "FFFFFFFFFFFF"); EEL_CHECK_STRING_RESULT (eel_self_check_parse ("a"), "FFFFFFFFFFFF"); EEL_CHECK_STRING_RESULT (eel_self_check_parse ("white"), "FFFFFFFFFFFF"); EEL_CHECK_STRING_RESULT (eel_self_check_parse ("black"), "000000000000"); EEL_CHECK_STRING_RESULT (eel_self_check_parse ("red"), "FFFF00000000"); EEL_CHECK_STRING_RESULT (eel_self_check_parse ("#012345"), "010123234545"); /* EEL_CHECK_STRING_RESULT (eel_self_check_parse ("rgb:0123/4567/89AB"), "#014589"); */ /* eel_gdk_rgb_to_color */ EEL_CHECK_STRING_RESULT (eel_self_check_gdk_rgb_to_color (EEL_RGB_COLOR_RED), "FFFF00000000"); EEL_CHECK_STRING_RESULT (eel_self_check_gdk_rgb_to_color (EEL_RGB_COLOR_BLACK), "000000000000"); EEL_CHECK_STRING_RESULT (eel_self_check_gdk_rgb_to_color (EEL_RGB_COLOR_WHITE), "FFFFFFFFFFFF"); EEL_CHECK_STRING_RESULT (eel_self_check_gdk_rgb_to_color (EEL_RGB_COLOR_PACK (0x01, 0x23, 0x45)), "010123234545"); /* EEL_RGBA_COLOR_PACK */ EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_PACK (0xFF, 0x00, 0x00, 00), EEL_RGB_COLOR_RED); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_PACK (0x00, 0xFF, 0x00, 00), EEL_RGB_COLOR_GREEN); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_PACK (0x00, 0x00, 0xFF, 00), EEL_RGB_COLOR_BLUE); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_PACK (0xFF, 0xFF, 0xFF, 00), EEL_RGB_COLOR_WHITE); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_PACK (0x00, 0x00, 0x00, 00), EEL_RGB_COLOR_BLACK); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_PACK (0xFF, 0x00, 0x00, 0xFF), EEL_RGBA_COLOR_OPAQUE_RED); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_PACK (0x00, 0xFF, 0x00, 0xFF), EEL_RGBA_COLOR_OPAQUE_GREEN); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_PACK (0x00, 0x00, 0xFF, 0xFF), EEL_RGBA_COLOR_OPAQUE_BLUE); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_PACK (0xFF, 0xFF, 0xFF, 0xFF), EEL_RGBA_COLOR_OPAQUE_WHITE); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_PACK (0x00, 0x00, 0x00, 0xFF), EEL_RGBA_COLOR_OPAQUE_BLACK); /* EEL_RGB_COLOR_PACK */ EEL_CHECK_INTEGER_RESULT (EEL_RGB_COLOR_PACK (0xFF, 0x00, 0x00), EEL_RGBA_COLOR_OPAQUE_RED); EEL_CHECK_INTEGER_RESULT (EEL_RGB_COLOR_PACK (0x00, 0xFF, 0x00), EEL_RGBA_COLOR_OPAQUE_GREEN); EEL_CHECK_INTEGER_RESULT (EEL_RGB_COLOR_PACK (0x00, 0x00, 0xFF), EEL_RGBA_COLOR_OPAQUE_BLUE); EEL_CHECK_INTEGER_RESULT (EEL_RGB_COLOR_PACK (0xFF, 0xFF, 0xFF), EEL_RGBA_COLOR_OPAQUE_WHITE); EEL_CHECK_INTEGER_RESULT (EEL_RGB_COLOR_PACK (0x00, 0x00, 0x00), EEL_RGBA_COLOR_OPAQUE_BLACK); /* EEL_RGBA_COLOR_GET_R */ EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_R (EEL_RGBA_COLOR_OPAQUE_RED), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_R (EEL_RGBA_COLOR_OPAQUE_GREEN), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_R (EEL_RGBA_COLOR_OPAQUE_BLUE), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_R (EEL_RGBA_COLOR_OPAQUE_WHITE), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_R (EEL_RGBA_COLOR_OPAQUE_BLACK), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_R (EEL_RGB_COLOR_RED), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_R (EEL_RGB_COLOR_GREEN), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_R (EEL_RGB_COLOR_BLUE), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_R (EEL_RGB_COLOR_WHITE), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_R (EEL_RGB_COLOR_BLACK), 0x00); /* EEL_RGBA_COLOR_GET_G */ EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_G (EEL_RGBA_COLOR_OPAQUE_RED), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_G (EEL_RGBA_COLOR_OPAQUE_GREEN), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_G (EEL_RGBA_COLOR_OPAQUE_BLUE), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_G (EEL_RGBA_COLOR_OPAQUE_WHITE), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_G (EEL_RGBA_COLOR_OPAQUE_BLACK), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_G (EEL_RGB_COLOR_RED), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_G (EEL_RGB_COLOR_GREEN), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_G (EEL_RGB_COLOR_BLUE), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_G (EEL_RGB_COLOR_WHITE), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_G (EEL_RGB_COLOR_BLACK), 0x00); /* EEL_RGBA_COLOR_GET_B */ EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_B (EEL_RGBA_COLOR_OPAQUE_RED), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_B (EEL_RGBA_COLOR_OPAQUE_GREEN), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_B (EEL_RGBA_COLOR_OPAQUE_BLUE), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_B (EEL_RGBA_COLOR_OPAQUE_WHITE), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_B (EEL_RGBA_COLOR_OPAQUE_BLACK), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_B (EEL_RGB_COLOR_RED), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_B (EEL_RGB_COLOR_GREEN), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_B (EEL_RGB_COLOR_BLUE), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_B (EEL_RGB_COLOR_WHITE), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_B (EEL_RGB_COLOR_BLACK), 0x00); /* EEL_RGBA_COLOR_GET_A */ EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_A (EEL_RGBA_COLOR_OPAQUE_RED), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_A (EEL_RGBA_COLOR_OPAQUE_GREEN), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_A (EEL_RGBA_COLOR_OPAQUE_BLUE), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_A (EEL_RGBA_COLOR_OPAQUE_WHITE), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_A (EEL_RGBA_COLOR_OPAQUE_BLACK), 0xFF); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_A (EEL_RGB_COLOR_RED), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_A (EEL_RGB_COLOR_GREEN), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_A (EEL_RGB_COLOR_BLUE), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_A (EEL_RGB_COLOR_WHITE), 0x00); EEL_CHECK_INTEGER_RESULT (EEL_RGBA_COLOR_GET_A (EEL_RGB_COLOR_BLACK), 0x00); } #endif /* ! EEL_OMIT_SELF_CHECK */