Subversion Repositories Kolibri OS

(*

    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 .

*)

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.