kolibrios-fun/programs/develop/cedit/SRC/libimg.ob07

(*
    Copyright 2016, 2021 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 LibImg;

IMPORT SYSTEM, KOSAPI, File;


VAR

    file         : INTEGER;

    img_decode   : PROCEDURE (data, size, options: INTEGER): INTEGER;
    img_to_rgb2  : PROCEDURE (data, data_rgb: INTEGER);
    img_scale    : PROCEDURE (src, crop_x, crop_y, crop_width, crop_height, dst, scale, inter, param1, param2: INTEGER): INTEGER;

    img_destroy* : PROCEDURE (img: INTEGER);


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


PROCEDURE GetImg*(ptr, n, Width: INTEGER; VAR sizeY: INTEGER): INTEGER;
VAR image_data, dst, x, y, type, rgb, data: INTEGER;
BEGIN
  image_data := img_decode(ptr, n, 0);
  IF image_data # 0 THEN
    SYSTEM.GET(image_data + 4, x);
    SYSTEM.GET(image_data + 8, y);
    SYSTEM.GET(image_data + 20, type);
    IF type # 2 THEN
      rgb := KOSAPI.malloc(x * y * 3);
      IF rgb # 0 THEN
        img_to_rgb2(image_data, rgb);
        SYSTEM.GET(image_data + 24, data);
        data := KOSAPI.free(data);
        SYSTEM.PUT(image_data + 24, rgb);
        SYSTEM.PUT(image_data + 20, 2)
      ELSE
        img_destroy(image_data);
        image_data := 0
      END
    END;
    IF (x > Width) & (image_data # 0) THEN
      dst := img_scale(image_data, 0, 0, x, y, dst, 3, 1, Width, (y * Width) DIV x);
      img_destroy(image_data);
      image_data := dst
    END;
    IF image_data # 0 THEN
      SYSTEM.GET(image_data +  8, sizeY)
    END
  END
  RETURN image_data
END GetImg;


PROCEDURE LoadFromFile* (FName: ARRAY OF CHAR; Width: INTEGER; VAR sizeY: INTEGER): INTEGER;
VAR F: File.FS; n, size, res: INTEGER;
BEGIN
  res := 0;
  F := File.Open(FName);
  IF F # NIL THEN
    size := File.Seek(F, 0, File.SEEK_END);
    n := File.Seek(F, 0, File.SEEK_BEG);
    file := KOSAPI.malloc(size + 1024);
    IF file # 0 THEN
      n := File.Read(F, file, size);
      res := GetImg(file, n, Width, sizeY);
      n := KOSAPI.free(file)
    END;
    File.Close(F)
  END
  RETURN res
END LoadFromFile;


PROCEDURE load;
VAR Lib: INTEGER;

  PROCEDURE GetProc(Lib, v: INTEGER; name: ARRAY OF CHAR);
  VAR a: INTEGER;
  BEGIN
    a := KOSAPI.GetProcAdr(name, Lib);
    ASSERT(a # 0);
    SYSTEM.PUT(v, a)
  END GetProc;

BEGIN
  Lib := KOSAPI.LoadLib("/rd/1/Lib/Libimg.obj");
  GetProc(Lib, SYSTEM.ADR(img_decode),  "img_decode");
  GetProc(Lib, SYSTEM.ADR(img_destroy), "img_destroy");
  GetProc(Lib, SYSTEM.ADR(img_to_rgb2), "img_to_rgb2");
  GetProc(Lib, SYSTEM.ADR(img_scale),   "img_scale");
END load;


BEGIN
  load
END LibImg.