Subversion Repositories Kolibri OS

Rev

Rev 9668 | Rev 9902 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9668 Rev 9893
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2021, 2022 Anton Krotov
 2 
    Copyright 2021-2023 Anton Krotov
Line 3... Line 3...
3 
 
 3 
 
Line 4... Line 4...
4 
    This file is part of CEdit.
 4 
    This file is part of CEdit.
5 
 
 5 
 
Line 56... Line 56...
56 
END GetInf;
 56 
END GetInf;
Line 57... Line 57...
57 
 
 57 
 
58 
 
 58 
 
59 
PROCEDURE GetImg (ptr, size: INTEGER): INTEGER;
 59 
PROCEDURE GetImg (ptr, size: INTEGER): INTEGER;
60 
VAR
 60 
VAR
61 
	image_data, dst, x, type: INTEGER;
 61 
        image_data, dst, x, Type: INTEGER;
62 
BEGIN
 62 
BEGIN
63 
	image_data := img_decode(ptr, size, 0);
 63 
        image_data := img_decode(ptr, size, 0);
64 
	IF image_data # 0 THEN
 64 
        IF image_data # 0 THEN
65 
		SYSTEM.GET(image_data + 4, x);
 65 
                SYSTEM.GET(image_data + 4, x);
66 
		ASSERT(x = SIZE);
 66 
                ASSERT(x = SIZE);
67 
		SYSTEM.GET(image_data + 20, type);
 67 
                SYSTEM.GET(image_data + 20, Type);
68 
		IF type # 3 THEN
 68 
                IF Type # 3 THEN
69 
			dst := img_convert(image_data, 0, 3, 0, 0);
 69 
                        dst := img_convert(image_data, 0, 3, 0, 0);
70 
			img_destroy(image_data);
 70 
                        img_destroy(image_data);
71 
			image_data := dst
 71 
                        image_data := dst