Mercurial > projects > ldc
diff demos/qd1.d @ 450:22a56b65872b
Trying to get the old QD demo to work.
author | Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> |
---|---|
date | Fri, 01 Aug 2008 21:55:57 +0200 |
parents | f869c636a113 |
children |
line wrap: on
line diff
--- a/demos/qd1.d Fri Aug 01 21:54:40 2008 +0200 +++ b/demos/qd1.d Fri Aug 01 21:55:57 2008 +0200 @@ -1,19 +1,29 @@ 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); + sleep(1); + + cls(Red); + sleep(1); + + cls(Green); + sleep(1); + + cls(Blue); + sleep(1); + +// 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(1); }