Mercurial > projects > ldc

view demos/sdldemo1.d @ 313:a498b736a0bd trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r334] Produce an error for zero-size types instead of segfaulting.
author ChristianK
date Sun, 29 Jun 2008 22:22:37 +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++;
    }
}