Mercurial > projects > ldc

view demos/sdldemo1.d @ 320:d772927ca496 trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r341] Fix all regressions between [332] and [340]: - fixed assert on empty catch body - fixed(?) typedefed classes in catch specification - fixed assert with catchall Added some documentation.
author ChristianK
date Sat, 05 Jul 2008 13:05:29 +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++;
    }
}