view demos/sdldemo1.d @ 155:7f92f477ff53 trunk

[svn r171] starting to move IR data from AST nodes into IRState; started with IrFunction
author ChristianK
date Tue, 29 Apr 2008 21:33:50 +0200
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++;
    }
}