121 lines
3.3 KiB
Plaintext
121 lines
3.3 KiB
Plaintext
(*
|
|
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.
|