/* PIKA - Photo and Image Kooker Application * a rebranding of The GNU Image Manipulation Program (created with heckimp) * A derived work which may be trivial. However, any changes may be (C)2023 by Aldercone Studio * * Original copyright, applying to most contents (license remains unchanged): * Copyright (C) 1995 Spencer Kimball and Peter Mattis * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 3 of the License, or * (at your option) any later version. * * This program 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 General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "config.h" #include #include #include #include "libpikabase/pikabase.h" #include "libpikacolor/pikacolor.h" #include "core-types.h" #include "pikapalette.h" #include "pikapalette-save.h" #include "pika-intl.h" gboolean pika_palette_save (PikaData *data, GOutputStream *output, GError **error) { PikaPalette *palette = PIKA_PALETTE (data); GString *string; GList *list; string = g_string_new ("PIKA Palette\n"); g_string_append_printf (string, "Name: %s\n" "Columns: %d\n" "#\n", pika_object_get_name (palette), CLAMP (pika_palette_get_columns (palette), 0, 256)); for (list = pika_palette_get_colors (palette); list; list = g_list_next (list)) { PikaPaletteEntry *entry = list->data; guchar r, g, b; pika_rgb_get_uchar (&entry->color, &r, &g, &b); g_string_append_printf (string, "%3d %3d %3d\t%s\n", r, g, b, entry->name); } if (! g_output_stream_write_all (output, string->str, string->len, NULL, NULL, error)) { g_string_free (string, TRUE); return FALSE; } g_string_free (string, TRUE); return TRUE; }