1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
program watch;
uses
ctypes, nds9;
var
hours, seconds, minutes: integer;
months: array [0..11] of pchar = ('January', 'February', 'March', 'April',
'May', 'June', 'July', 'August',
'September', 'October', 'November', 'December');
unixTime: time_t;
timeStruct: ptm;
//function errno2: pcint; cdecl; external name 'errno';
{ $define errno := __errno()^}
//draw a watch hands
procedure DrawQuad(x, y, width, height: cfloat);
begin
glBegin(GL_QUADS);
glVertex3f(x - width / 2, y, 0);
glVertex3f(x + width / 2, y, 0);
glVertex3f(x + width / 2, y + height, 0);
glVertex3f(x - width / 2, y + height, 0);
glEnd();
end;
begin
//put 3D on top
lcdMainOnTop();
// Setup the Main screen for 3D
videoSetMode(MODE_0_3D);
// Reset the screen and setup the view
glInit();
// Set our viewport to be the same size as the screen
glViewport(0,0,255,191);
// Specify the Clear Color and Depth
glClearColor(0,0,0,31);
glClearDepth($7FFF);
consoleDemoInit();
//ds specific, several attributes can be set here
glPolyFmt(POLY_ALPHA(31) or POLY_CULL_NONE);
// Set the current matrix to be the model matrix
glMatrixMode(GL_MODELVIEW);
glLoadIdentity();
glMatrixMode(GL_PROJECTION);
glLoadIdentity();
gluPerspective(70, 256.0 / 192.0, 0.1, 100);
gluLookAt( 0.0, 0.0, 3.0, //camera possition
0.0, 0.0, 0.0, //look at
0.0, 1.0, 0.0); //up
while true do
begin
unixTime := time(nil);
timeStruct := gmtime(ptime_t(@unixTime));
hours := timeStruct^.tm_hour;
minutes := timeStruct^.tm_min;
seconds := timeStruct^.tm_sec;
//Push our original Matrix onto the stack (save state)
glPushMatrix();
//draw second hand
glColor3f(0,0,1);
glRotateZ(-seconds * 360 / 60);
glTranslatef(0, 1.9, 0);
DrawQuad(0, 0, 0.2, 0.2);
// Pop our Matrix from the stack (restore state)
glPopMatrix(1);
//Push our original Matrix onto the stack (save state)
glPushMatrix();
//draw minute hand
glColor3f(0, 1, 0);
glRotateZ(-minutes * 360 / 60);
DrawQuad(0, 0, 0.2, 2);
// Pop our Matrix from the stack (restore state)
glPopMatrix(1);
//Push our original Matrix onto the stack (save state)
glPushMatrix();
//draw hourhand
glColor3f(1, 0, 0);
glRotateZ(-hours * 360 / 12);
DrawQuad(0, 0, 0.3, 1.8);
// Pop our Matrix from the stack (restore state)
glPopMatrix(1);
printf(#$1B'[2J%02i:%02i:%02i', hours, minutes, seconds);
printf(#10'%s %i %i', months[timeStruct^.tm_mon], timeStruct^.tm_mday, timeStruct^.tm_year +1900);
// flush to screen
glFlush(0);
swiWaitForVBlank();
end;
end.
|
