[Box2D, Allegro] Problem z konwersją jednostek, rysowaniem

#include <Allegro.h>
#include <Box2D/Box2D.h>

double posxBox2D_to_Allegro( double x, double w )
{
    return( x * 50 ) - w / 2;
}

double posyBox2D_to_Allegro( double y, double h )
{
    return 600 -( y * 50 ) -( h / 2 );
}

volatile long speed = 0;
void increment_speed()
{
    speed++;
}
END_OF_FUNCTION( increment_speed );
LOCK_VARIABLE( speed );
LOCK_FUNCTION( increment_speed );

int main()
{
    allegro_init();
    install_keyboard();
    install_mouse();
    install_timer();
   
    install_int_ex( increment_speed, BPS_TO_TIMER( 60 ) );
   
    set_color_depth( 24 );
    set_gfx_mode( GFX_AUTODETECT_WINDOWED, 800, 600, 0, 0 );
    clear_to_color( screen, makecol( 0, 0, 0 ) );
   
    BITMAP * buffer = create_bitmap( 800, 600 );
    clear_to_color( buffer, makecol( 0, 0, 0 ) );
   
    BITMAP * kwadrat = create_bitmap( 100, 100 );
    clear_to_color( kwadrat, makecol( 255, 0, 0 ) );
   
    //BITMAP *ziemia = create_bitmap(5000, 1000);
    //clear_to_color( ziemia, makecol( 0, 255, 0 ) );
   
    b2World world( b2Vec2( 0.0f, - 10.0f ) );
   
    b2BodyDef groundDef;
    groundDef.position.Set( 0.0f, - 9.0f );
    b2Body * ground = world.CreateBody( & groundDef );
    b2PolygonShape groundShape;
    groundShape.SetAsBox( 100.0f / 2, 20.0f / 2 );
    ground->CreateFixture( & groundShape, 1.0f );
   
    b2BodyDef boxDef;
    boxDef.type = b2_dynamicBody;
    boxDef.position.Set( 8.0f, 10.0f );
    b2Body * box = world.CreateBody( & boxDef );
    b2PolygonShape boxShape;
    boxShape.SetAsBox( 2.0f / 2, 2.0f / 2 );
    b2FixtureDef boxFixDef;
    boxFixDef.shape = & boxShape;
    boxFixDef.density = 1.0f;
    boxFixDef.friction = 0.3f;
    box->CreateFixture( & boxFixDef );
   
    while( !key[ KEY_ESC ] )
    {
        while( speed > 0 )
        {
            speed--;
           
            world.Step( 1.0f / 100.0f, 8.0f, 3.0f );
            b2Vec2 pos_box = box->GetPosition();
            //b2Vec2 pos_ground = ground->GetPosition();
           
            blit( kwadrat, buffer, 0, 0,
            posxBox2D_to_Allegro( pos_box.x, 100 ),
            posyBox2D_to_Allegro( pos_box.y, 100 ),
            100, 100 );
            //blit (ziemia, buffer, 0, 0,
            //                       posxBox2D_to_Allegro(pos_ground.x, 100),
            //                       posyBox2D_to_Allegro(pos_ground.y, 100),
            //                       5000, 1000);
           
            blit( buffer, screen, 0, 0, 0, 0, 800, 600 );
            clear_to_color( buffer, makecol( 0, 0, 0 ) );
        }
    }
   
    destroy_bitmap( buffer );
    allegro_exit();
    return 0;
} END_OF_MAIN();