Subversion Repositories Kolibri OS

Rev

Rev 9896 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9896 Rev 9898
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2016, 2022 Anton Krotov
 2 
    Copyright 2016, 2022, 2023 Anton Krotov
Line 3... Line 3...
3 
 
 3 
 
Line 4... Line 4...
4 
    This file is part of fb2read.
 4 
    This file is part of fb2read.
5 
 
 5 
 
Line 17... Line 17...
17 
    along with fb2read. If not, see .
 17 
    along with fb2read. If not, see .
18 
*)
 18 
*)
Line 19... Line 19...
19 
 
 19 
 
Line 20... Line 20...
20 
MODULE LibImg;
 20 
MODULE LibImg;
Line 21... Line 21...
21 
 
 21 
 
22 
IMPORT sys := SYSTEM, KOSAPI, File, S := Strings;
 - 
 
23 
 
 22 
IMPORT SYSTEM, KOSAPI, File, S := Strings;
24 
 
 23 
 
25 
PROCEDURE [stdcall, "Libimg.obj", ""] img_decode (data, size, options: INTEGER): INTEGER; END;
 24 
 
Line -... Line 25...
- 
 
 25 
PROCEDURE [stdcall, "Libimg.obj", ""] img_decode (data, size, options: INTEGER): INTEGER; END;
- 
 
 26 
PROCEDURE [stdcall, "Libimg.obj", ""] img_scale (src, crop_x, crop_y, crop_width, crop_height, dst, scale, inter, param1, param2: INTEGER): INTEGER; END;
- 
 
 27 
PROCEDURE [stdcall, "Libimg.obj", ""] img_destroy (img: INTEGER); END;
- 
 
 28 
PROCEDURE [stdcall, "Libimg.obj", ""] img_convert (src, dst, dst_type, flags, param: INTEGER): INTEGER; END;
- 
 
 29 
 
- 
 
 30 
 
- 
 
 31 
PROCEDURE Destroy* (VAR img: INTEGER);
- 
 
 32 
BEGIN
- 
 
 33 
	IF img # 0 THEN
26 
PROCEDURE [stdcall, "Libimg.obj", ""] img_to_rgb2 (data, data_rgb: INTEGER); END;
 34 
		img_destroy(img);
27 
PROCEDURE [stdcall, "Libimg.obj", ""] img_scale (src, crop_x, crop_y, crop_width, crop_height, dst, scale, inter, param1, param2: INTEGER): INTEGER; END;
 35 
		img := 0
28 
PROCEDURE [stdcall, "Libimg.obj", ""] img_destroy* (img: INTEGER); END;
 36 
	END
29 
PROCEDURE [stdcall, "Libimg.obj", ""] img_convert (src, dst, dst_type, flags, param: INTEGER): INTEGER; END;
 37 
END Destroy;
30 
 
 38 
 
31 
 
 39 
 
Line 32... Line 40...
32 
PROCEDURE GetInf* (img: INTEGER; VAR sizeX, sizeY, data: INTEGER);
 40 
PROCEDURE GetInf* (img: INTEGER; VAR sizeX, sizeY, data: INTEGER);
33 
BEGIN
 41 
BEGIN
34 
	sys.GET(img +  4, sizeX);
 42 
	SYSTEM.GET(img +  4, sizeX);
35 
	sys.GET(img +  8, sizeY);
 43 
	SYSTEM.GET(img +  8, sizeY);
36 
	sys.GET(img + 24, data)
 44 
	SYSTEM.GET(img + 24, data)
37 
END GetInf;
 45 
END GetInf;
38 
 
 46 
 
39 
 
 47 
 
40 
PROCEDURE GetImg* (ptr, size, Width: INTEGER; VAR sizeY: INTEGER): INTEGER;
 48 
PROCEDURE GetImg* (ptr, size, Width: INTEGER; VAR sizeY: INTEGER): INTEGER;
41 
VAR
 49 
VAR
42 
	image_data, dst, x, y, type: INTEGER;
 50 
	image_data, dst, x, y, type: INTEGER;
43 
BEGIN
 51 
BEGIN
44 
	image_data := img_decode(ptr, size, 0);
 52 
	image_data := img_decode(ptr, size, 0);
45 
	IF image_data # 0 THEN
 53 
	IF image_data # 0 THEN
Line 55... Line 63...
55 
			dst := img_scale(image_data, 0, 0, x, y, 0, 3, 1, Width, (y * Width) DIV x);
 63 
			dst := img_scale(image_data, 0, 0, x, y, 0, 3, 1, Width, (y * Width) DIV x);
56 
			img_destroy(image_data);
 64 
			img_destroy(image_data);
57 
			image_data := dst
 65 
			image_data := dst
58 
		END;
 66 
		END;
59 
		IF image_data # 0 THEN
 67 
		IF image_data # 0 THEN
60 
			sys.GET(image_data +  8, sizeY)
 68 
			SYSTEM.GET(image_data +  8, sizeY)
61 
		END
 69 
		END
62 
	END
 70 
	END
63 
	RETURN image_data
 71 
	RETURN image_data
64 
END GetImg;
 72 
END GetImg;