Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Tree: f52ea868dd
Branches Tags
freepascal.comp...
/
packages
/
libndsfpc
/
examples
/
graphics
/
Backgrounds
/
all_in_one
/
Multilayer.pp

Multilayer.pp 2.0 KB
History Raw

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576 
  1. unit Multilayer;
    2. 

  2. 

  3. interface
    4. 

  4. 

  5. uses
    6. 

  6.   ctypes;
    7. 

  7.   
    8. 

  8. //======================================================================
    9. 

  9. //
    10. 

  10. //	Layer_1, 256x256@8, 
    11. 

  11. //	+ regular map (flat), not compressed, 32x32 
    12. 

  12. //	Total size: 2048 = 2048
    13. 

  13. //
    14. 

  14. //	Time-stamp: 2007-12-07, 18:17:34
    15. 

  15. //	Exported by Cearn's GBA Image Transmogrifier
    16. 

  16. //	( http://www.coranac.com )
    17. 

  17. //
    18. 

  18. //======================================================================
    19. 

  19. const
    20. 

  20.   Layer_1MapLen = 2048;
    21. 

  21. var
    22. 

  22.   Layer_1Map: array [0..1023] of cushort; cvar; external;
    23. 

  23. 

  24. //======================================================================
    25. 

  25. //
    26. 

  26. //	Layer_2, 256x256@8, 
    27. 

  27. //	+ regular map (flat), not compressed, 32x32 
    28. 

  28. //	Total size: 2048 = 2048
    29. 

  29. //
    30. 

  30. //	Time-stamp: 2007-12-07, 18:17:34
    31. 

  31. //	Exported by Cearn's GBA Image Transmogrifier
    32. 

  32. //	( http://www.coranac.com )
    33. 

  33. //
    34. 

  34. //======================================================================
    35. 

  35. const
    36. 

  36.   Layer_2MapLen = 2048;
    37. 

  37. var
    38. 

  38.   Layer_2Map: array [0..1023] of cushort; cvar; external;
    39. 

  39. 

  40. //======================================================================
    41. 

  41. //
    42. 

  42. //	Layer_3, 256x256@8, 
    43. 

  43. //	+ regular map (flat), not compressed, 32x32 
    44. 

  44. //	Total size: 2048 = 2048
    45. 

  45. //
    46. 

  46. //	Time-stamp: 2007-12-07, 18:17:34
    47. 

  47. //	Exported by Cearn's GBA Image Transmogrifier
    48. 

  48. //	( http://www.coranac.com )
    49. 

  49. //
    50. 

  50. //======================================================================
    51. 

  51. const
    52. 

  52.   Layer_3MapLen = 2048;
    53. 

  53. var
    54. 

  54.   Layer_3Map: array [0..1023] of cushort; cvar; external;
    55. 

  55. 

  56. //======================================================================
    57. 

  57. //
    58. 

  58. //	Multilayer, 8x2504@8, 
    59. 

  59. //	+ palette 256 entries, not compressed
    60. 

  60. //	+ 313 tiles not compressed
    61. 

  61. //	Total size: 512 + 20032 = 20544
    62. 

  62. //
    63. 

  63. //	Time-stamp: 2007-12-07, 18:17:35
    64. 

  64. //	Exported by Cearn's GBA Image Transmogrifier
    65. 

  65. //	( http://www.coranac.com )
    66. 

  66. //
    67. 

  67. //======================================================================
    68. 

  68. const
    69. 

  69.   MultilayerPalLen = 512;
    70. 

  70.   MultilayerTilesLen = 20032;
    71. 

  71. var
    72. 

  72.   MultilayerPal: array [0..255] of cushort; cvar; external;
    73. 

  73.   MultilayerTiles: array [0..5007] of cuint; cvar; external;
    74. 

  74. 

  75. implementation
    76. 

  76. end.
    77.