Mercurial > projects > ldc
view demos/qd1.d @ 88:058d3925950e trunk
[svn r92] Fixed support for statically initialized unions. lots of bugfixes as cleanups too.
author | lindquist |
---|---|
date | Tue, 06 Nov 2007 10:03:14 +0100 |
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); }