A simple old-school demo

[Cybermonkey]

Yes, drawing can't be much faster, EGSL is after all an FPC prgram.  The only thing that's possible with Freepascal (and almost not with EGSL) is a raycaster.

[Tomaaz]

I tried to compile the demo with new egslengine and got this:

...
test.pas(35,57) Error: Incompatible type for arg no. 2: Got "Extended", expected "LongInt"
test.pas(180,62) Error: Incompatible type for arg no. 2: Got "Extended", expected "Byte"
test.pas(190) Fatal: There were 2 errors compiling module, stopping
Fatal: Compilation aborted
...

It doesn't make any sense to me. Here are the lines of code:

Code: [Select]

...
[35] putimage(int(sx * 40 + przes), int(sy * 40 + przes2), picture2);
...
[180] colour(int((255 - kol) / 4 + 64), int((255 - kol) / 4 + 64), 0);
...

How is it possible that first argument is accepted, but the second is not? And why it has got Extended?

[Cybermonkey]

That's because the int() function changed. Actually this is the Freepascal int() function which is described as this:

Int returns the integer part of any Real X, as a Real.

So it returns Real. Please use trunc() instead of int().
This only affects Pascal programs. With Lua, int() still works. It works now like trunc(), for rounding in Lua please use round().

[Tomaaz]

Thanx!