CSFML 2.1 (нужна помощь)

Доброго времени суток.

Пишу обертку для SFML 2.1 (CSFML) под FreeBasic. Но из-за недостаточных знаний языка столкнулся с некоторыми трудностями. Точнее:

Код на С:

Код:

typedef unsigned int (*sfShapeGetPointCountCallback)(void*);        ///< Type of the callback used to get the number of points in a shape
typedef sfVector2f (*sfShapeGetPointCallback)(unsigned int, void*); ///< Type of the callback used to get a point of a shape

Код на FreeBasic:

Код:

Type sfShapeGetPointCountCallback As Function Cdecl (ByVal As Any Ptr) As UInteger
Type sfShapeGetPointCallback As Function Cdecl (ByVal As UInteger, ByVal As Any Ptr) As sfVector2f

И функции соответственно:

Код на С:

Код:

CSFML_GRAPHICS_API sfShape* sfShape_create(sfShapeGetPointCountCallback getPointCount,
                                            sfShapeGetPointCallback getPoint,
                                            void* userData);

Код на FreeBasic:

Код:

Declare Function sfShape_create (ByVal getPointCount As sfShapeGetPointCountCallback, ByVal getPoint As sfShapeGetPointCallback, ByVal userData As Any Ptr) As sfShape Ptr

Правильно ли я перевел код с С на FreeBasic? К сожалению, пока не имею возможности проверить данные функции, вот и интересуюсь.