kolibrios/programs/develop/cedit/SRC/Icons.ob07

(*
    Copyright 2021-2023 Anton Krotov

    This file is part of CEdit.

    CEdit 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.

    CEdit 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 CEdit. If not, see <http://www.gnu.org/licenses/>.
*)

MODULE Icons;

IMPORT
        Graph, File, SYSTEM, KOSAPI;

CONST
        fileName = "/sys/Icons16.png";
        SIZE* = 18;

VAR
        source: INTEGER;

(*
PROCEDURE copy (src, dst: INTEGER);
VAR
        src_width, src_height,
        dst_width, dst_height,
        src_data, dst_data: INTEGER;
BEGIN
        LibImg.GetInf(src, src_width, src_height, src_data);
        LibImg.GetInf(dst, dst_width, dst_height, dst_data);
        ASSERT(src_width = dst_width);
        ASSERT(src_height = dst_height);
        SYSTEM.MOVE(src_data, dst_data, src_width*src_height*4)
END copy;
*)

PROCEDURE [stdcall, "libimg.obj", ""] img_decode (data, size, options: INTEGER): INTEGER; END;
PROCEDURE [stdcall, "Libimg.obj", ""] img_convert (src, dst, dst_type, flags, param: INTEGER): INTEGER; END;
PROCEDURE [stdcall, "Libimg.obj", ""] img_destroy (img: INTEGER); END;

PROCEDURE GetInf (img: INTEGER; VAR width, height, data: INTEGER);
BEGIN
        SYSTEM.GET(img +  4, width);
        SYSTEM.GET(img +  8, height);
        SYSTEM.GET(img + 24, data);
END GetInf;


PROCEDURE GetImg (ptr, size: INTEGER): INTEGER;
VAR
        image_data, dst, x, Type: INTEGER;
BEGIN
        image_data := img_decode(ptr, size, 0);
        IF image_data # 0 THEN
                SYSTEM.GET(image_data + 4, x);
                ASSERT(x = SIZE);
                SYSTEM.GET(image_data + 20, Type);
                IF Type # 3 THEN
                        dst := img_convert(image_data, 0, 3, 0, 0);
                        img_destroy(image_data);
                        image_data := dst
                END
        END
        RETURN image_data
END GetImg;


PROCEDURE load (): INTEGER;
VAR
        size, res, ptr: INTEGER;
BEGIN
        res := 0;
        ptr := File.Load(fileName, size);
        IF ptr # 0 THEN
                res := GetImg(ptr, size);
                ptr := KOSAPI.free(ptr)
        END
        RETURN res
END load;


PROCEDURE draw* (icons, n, x, y: INTEGER);
VAR
        width, height, data: INTEGER;
BEGIN
        GetInf(icons, width, height, data);
        KOSAPI.sysfunc7(65, data + SIZE*SIZE*4*n, SIZE*65536 + SIZE, x*65536 + y, 32, 0, 0)
END draw;


PROCEDURE iconsBackColor (icons: INTEGER; BackColor: INTEGER);
VAR
        width, height, data, x, y, pix: INTEGER;
        b, g, r, gr: BYTE;
BEGIN
        GetInf(icons, width, height, data);
        FOR y := 0 TO height - 1 DO
                FOR x := 0 TO width - 1 DO
                        SYSTEM.GET32(data, pix);
                        Graph.getRGB(pix, r, g, b);
                        gr := (r + g + b) DIV 3;
                        IF BackColor = -1 THEN
                                pix := gr + 256*gr + 65536*gr
                        ELSIF gr = 255 THEN
                                pix := BackColor
                        END;
                        SYSTEM.PUT32(data, pix);
                        INC(data, 4)
                END
        END
END iconsBackColor;


PROCEDURE get* (VAR icons, grayIcons: INTEGER; BackColor: INTEGER);
BEGIN
        IF source = 0 THEN
                source := load();
                icons := load();
                grayIcons := load();
                iconsBackColor(grayIcons, -1);
                iconsBackColor(grayIcons, BackColor);
                iconsBackColor(icons, BackColor)
        (*ELSE
                copy(source, icons);
                copy(source, grayIcons)*)
        END
END get;


BEGIN
        source := 0
END Icons.