Mercurial > projects > ldc

comparison demos/qd1.d @ 450:22a56b65872b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
449:56265fa07c7d 450:22a56b65872b
1 module qd1; 1 module qd1;
2 import qd; 2 import qd;
3 import std.c.time: sleep;
4 void main() { 3 void main() {
5 screen(640, 480); 4 screen(640, 480);
6 pset(10, 10); 5 sleep(1);
7 line(0, 0, 100, 100, Box, Back(Red~Black)); 6
8 for (int i=0; i<=100; i+=10) { 7 cls(Red);
9 line(i, 0, 100-i, 100); 8 sleep(1);
10 line(0, i, 100, 100-i); 9
11 } 10 cls(Green);
12 circle(100, 100, 50, 15, White~Black, Fill=White~Black); 11 sleep(1);
13 paint(200, 200, Red, Back=White); 12
14 circle(100, 100, 50, 15, White); 13 cls(Blue);
15 paint(200, 200, Black); 14 sleep(1);
16 pset(10, 11); pset(10, 11, Black); 15
17 pset(10, 10); 16 // pset(10, 10);
18 sleep(5); 17 // line(0, 0, 100, 100, Box, Back(Red~Black));
18 // for (int i=0; i<=100; i+=10) {
19 // line(i, 0, 100-i, 100);
20 // line(0, i, 100, 100-i);
21 // }
22 // circle(100, 100, 50, 15, White~Black, Fill=White~Black);
23 // paint(200, 200, Red, Back=White);
24 // circle(100, 100, 50, 15, White);
25 // paint(200, 200, Black);
26 // pset(10, 11); pset(10, 11, Black);
27 // pset(10, 10);
28 // sleep(1);
19 } 29 }