Mercurial > projects > ldc
view demos/qd1.d @ 349:d22d8d63c1fd trunk
[svn r370] Fixed landing pads on 64bit was broken (hardcoded 32bit type, should be size_t)
author | lindquist |
---|---|
date | Sun, 13 Jul 2008 21:41:45 +0200 |
parents | f869c636a113 |
children | 22a56b65872b |
line wrap: on
line source
module qd1; import qd; import std.c.time: sleep; void main() { screen(640, 480); pset(10, 10); line(0, 0, 100, 100, Box, Back(Red~Black)); for (int i=0; i<=100; i+=10) { line(i, 0, 100-i, 100); line(0, i, 100, 100-i); } circle(100, 100, 50, 15, White~Black, Fill=White~Black); paint(200, 200, Red, Back=White); circle(100, 100, 50, 15, White); paint(200, 200, Black); pset(10, 11); pset(10, 11, Black); pset(10, 10); sleep(5); }