Mercurial > projects > ldc
annotate 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 |
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 } |