mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-20 06:00:35 +01:00
50 lines
943 B
ObjectPascal
50 lines
943 B
ObjectPascal
unit uvcoord_crono;
|
|
|
|
interface
|
|
|
|
uses
|
|
ctypes;
|
|
|
|
|
|
const
|
|
CRONO_BITMAP_WIDTH = 256;
|
|
CRONO_BITMAP_HEIGHT = 128;
|
|
CRONO_NUM_IMAGES = 28;
|
|
|
|
var
|
|
crono_texcoords: array[1..(28*4)] of cuint = (
|
|
152, 40, 24, 40, // 0
|
|
152, 80, 24, 40, // 1
|
|
0, 80, 24, 40, // 2
|
|
32, 0, 24, 40, // 3
|
|
32, 40, 24, 40, // 4
|
|
32, 80, 24, 40, // 5
|
|
56, 0, 24, 40, // 6
|
|
56, 40, 24, 40, // 7
|
|
56, 80, 24, 40, // 8
|
|
80, 0, 24, 40, // 9
|
|
80, 40, 24, 40, // 10
|
|
80, 80, 24, 40, // 11
|
|
104, 0, 24, 40, // 12
|
|
104, 40, 24, 40, // 13
|
|
104, 80, 24, 40, // 14
|
|
128, 0, 24, 40, // 15
|
|
128, 40, 24, 40, // 16
|
|
128, 80, 24, 40, // 17
|
|
152, 0, 24, 40, // 18
|
|
176, 0, 24, 40, // 19
|
|
200, 0, 24, 40, // 20
|
|
224, 0, 24, 40, // 21
|
|
0, 0, 32, 40, // 22
|
|
0, 40, 32, 40, // 23
|
|
176, 40, 24, 40, // 24
|
|
176, 80, 24, 40, // 25
|
|
200, 40, 24, 40, // 26
|
|
224, 40, 24, 40 // 27
|
|
);
|
|
|
|
|
|
implementation
|
|
|
|
end.
|