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);
 }