Mercurial > projects > ldc
annotate demos/qd1.d @ 472:15c804b6ce77
Added 'Unix' predefined version identifier.
author | Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> |
---|---|
date | Mon, 04 Aug 2008 19:08:39 +0200 |
parents | 22a56b65872b |
children |
rev | line source |
---|---|
85
f869c636a113
[svn r89] Fixed a bunch of problems with template instance across multiple modules.
lindquist
parents:
diff
changeset
|
1 module qd1; |
f869c636a113
[svn r89] Fixed a bunch of problems with template instance across multiple modules.
lindquist
parents:
diff
changeset
|
2 import qd; |
f869c636a113
[svn r89] Fixed a bunch of problems with template instance across multiple modules.
lindquist
parents:
diff
changeset
|
3 void main() { |
f869c636a113
[svn r89] Fixed a bunch of problems with template instance across multiple modules.
lindquist
parents:
diff
changeset
|
4 screen(640, 480); |
450
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
5 sleep(1); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
6 |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
7 cls(Red); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
8 sleep(1); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
9 |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
10 cls(Green); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
11 sleep(1); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
12 |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
13 cls(Blue); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
14 sleep(1); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
15 |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
16 // pset(10, 10); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
17 // line(0, 0, 100, 100, Box, Back(Red~Black)); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
18 // for (int i=0; i<=100; i+=10) { |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
19 // line(i, 0, 100-i, 100); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
20 // line(0, i, 100, 100-i); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
21 // } |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
22 // circle(100, 100, 50, 15, White~Black, Fill=White~Black); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
23 // paint(200, 200, Red, Back=White); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
24 // circle(100, 100, 50, 15, White); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
25 // paint(200, 200, Black); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
26 // pset(10, 11); pset(10, 11, Black); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
27 // pset(10, 10); |
22a56b65872b
Trying to get the old QD demo to work.
Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
parents:
85
diff
changeset
|
28 // sleep(1); |
85
f869c636a113
[svn r89] Fixed a bunch of problems with template instance across multiple modules.
lindquist
parents:
diff
changeset
|
29 } |