freepascal.compiler/packages/libndsfpc/examples/gl2d/scrolling/uvcoord_crono.pas

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.