Tilengine 2D Pascal Wrapper!

[Thyandyr]

//  load layer (tileset + tilemap)

//      tileset = TLN_LoadTileset ("Sonic_md_bg1.tsx");
  tileset := uTileEngine.LoadTileset('Sonic_md_bg1.tsx'); 

//      tilemap = TLN_LoadTilemap ("Sonic_md_bg1.tmx", "Layer 1");
  tilemap := uTileEngine.LoadTileMap('Sonic_md_bg1.tmx', 'Layer 1');

Commented lines are from the C example.

Pascal header:
function LoadTileset(filename : string) : Pointer; cdecl; external dllname name 'TLN_LoadTileset';
function LoadTilemap(filename, layername : string) : Pointer; cdecl; external dllname name 'TLN_LoadTilemap';

Should be:
function LoadTileset(filename : PAnsiChar) : Pointer; cdecl; external dllname name 'TLN_LoadTileset';
function LoadTilemap(filename, layername : PAnsiChar) : Pointer; cdecl; external dllname name 'TLN_LoadTilemap';

and possibly for many others lines in the header...

[Thyandyr]

How do I use this without the built-in windowing?

SetRenderTarget sounds like it might do the trick, but how do I get pointer to a framebuffer in VCL?

TLNAPI void TLN_SetRenderTarget     (     
uint8_t *      data,
int      pitch
)

Sets the output surface for rendering.
Parameters

data	Pointer to the start of the target framebuffer
pitch	Number of bytes per each scanline of the framebuffer

I don't get this command. What sort information can be passed in 8 bit pointer? Memory address for lego computer?

The source is not included so I cannot go look there what is done with the 'data'. Can you add a function returning the array of data created and let the users do what they want with it?

Haaalp plz I don't understand!

[turrican]

I will ask megamarc and return here with answers.

[turrican]

//  load layer (tileset + tilemap)

//      tileset = TLN_LoadTileset ("Sonic_md_bg1.tsx");
  tileset := uTileEngine.LoadTileset('Sonic_md_bg1.tsx'); 

//      tilemap = TLN_LoadTilemap ("Sonic_md_bg1.tmx", "Layer 1");
  tilemap := uTileEngine.LoadTileMap('Sonic_md_bg1.tmx', 'Layer 1');

Commented lines are from the C example.

Pascal header:
function LoadTileset(filename : string) : Pointer; cdecl; external dllname name 'TLN_LoadTileset';
function LoadTilemap(filename, layername : string) : Pointer; cdecl; external dllname name 'TLN_LoadTilemap';

Should be:
function LoadTileset(filename : PAnsiChar) : Pointer; cdecl; external dllname name 'TLN_LoadTileset';
function LoadTilemap(filename, layername : PAnsiChar) : Pointer; cdecl; external dllname name 'TLN_LoadTilemap';

and possibly for many others lines in the header...

Thanks for your changes! Do a pull request in the repo