view demos/qd1.d @ 512:0d286cd9fd08

Add interface comparison to EqualExp: just do pointer comparison. Fixes run/b/bug_e2ir_1786_B,C.
author Christian Kamm <kamm incasoftware de>
date Fri, 15 Aug 2008 22:41:47 +0200
parents 22a56b65872b
children
line wrap: on
line source

module qd1;
import qd;
void main() {
  screen(640, 480);
  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);
}