Recurisve Shadowmapping in FPC/Lazarus

Conversion of FOV.CPP (created by Björn Bergström) to pascal by Jeremy Darling.

This is a pascal implmentation of recursive shadowcasting.

Generic information:
mapData - Pointer to the object or data structure containing the map data
x, y - Current x and y positions or start position
BlocksFOV - Set to true if the FOV should stop at the cell
Set to false if you can see past this cell.

Sample Usage:

    fov := TSimpleFOV.Create;

    try

      fov.CanSeePast:=@NotWalkable;

      fov.LightCell:=@Light;

      fov.start(CurrentLevel, Player.X, Player.Y, Player.LightLevel);

    finally

      fov.Free;

    end;

Download includes a sample usage application:

Click here to download