Mercurial > projects > ldc

annotate 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
rev   line source
lindquist@85 1 module qd1;
lindquist@85 2 import qd;
lindquist@85 3 void main() {
lindquist@85 4 screen(640, 480);
tomas@450 5 sleep(1);
tomas@450 6
tomas@450 7 cls(Red);
tomas@450 8 sleep(1);
tomas@450 9
tomas@450 10 cls(Green);
tomas@450 11 sleep(1);
tomas@450 12
tomas@450 13 cls(Blue);
tomas@450 14 sleep(1);
tomas@450 15
tomas@450 16 // pset(10, 10);
tomas@450 17 // line(0, 0, 100, 100, Box, Back(Red~Black));
tomas@450 18 // for (int i=0; i<=100; i+=10) {
tomas@450 19 // line(i, 0, 100-i, 100);
tomas@450 20 // line(0, i, 100, 100-i);
tomas@450 21 // }
tomas@450 22 // circle(100, 100, 50, 15, White~Black, Fill=White~Black);
tomas@450 23 // paint(200, 200, Red, Back=White);
tomas@450 24 // circle(100, 100, 50, 15, White);
tomas@450 25 // paint(200, 200, Black);
tomas@450 26 // pset(10, 11); pset(10, 11, Black);
tomas@450 27 // pset(10, 10);
tomas@450 28 // sleep(1);
lindquist@85 29 }