view demos/sdldemo1.d @ 1065:dc576c7e4b1e

Fix to make sure to create gen/ in build dir and unbreak build with older perl
author Frits van Bommel <fvbommel wxs.nl>
date Sun, 08 Mar 2009 16:37:55 +0100
parents 27b2f40bdb58
children
line wrap: on
line source

module sdldemo1;
import sdl;
void main()
{
    auto disp = SDL_SetVideoMode(640,480,0,SDL_HWSURFACE|SDL_DOUBLEBUF);
    auto r = SDL_Rect(0,190,100,100);
    auto c = SDL_MapRGBA(disp.format,255,100,0,255);
    while (r.x < disp.w-100) {
        SDL_FillRect(disp, null, 0);
        SDL_FillRect(disp, &r, c);
        SDL_Flip(disp);
        r.x++;
    }
}