Add a priority inversion test for Semaphores.
[bertos.git] / examples / demo / demo.c
1 /**
2  * \file
3  * <!--
4  * This file is part of BeRTOS.
5  *
6  * Bertos is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
19  *
20  * As a special exception, you may use this file as part of a free software
21  * library without restriction.  Specifically, if other files instantiate
22  * templates or use macros or inline functions from this file, or you compile
23  * this file and link it with other files to produce an executable, this
24  * file does not by itself cause the resulting executable to be covered by
25  * the GNU General Public License.  This exception does not however
26  * invalidate any other reasons why the executable file might be covered by
27  * the GNU General Public License.
28  *
29  * Copyright 2006, 2008 Develer S.r.l. (http://www.develer.com/)
30  * -->
31  *
32  * \brief Multifunction system test for BeRTOS modules.
33  *
34  * \author Bernie Innocenti <bernie@codewiz.org>
35  */
36 #include <cfg/macros.h>
37
38 #include <emul/emul.h>
39 #include <emul/kfile_posix.h>
40
41 #include <kern/irq.h>
42 #include <kern/proc.h>
43 #include <kern/sem.h>
44 #include <kern/monitor.h>
45 #include <kern/msg.h>
46
47 #include <drv/timer.h>
48 #include <drv/buzzer.h>
49 #include <drv/kbd.h>
50 #include <drv/lcd_gfx_qt.h>
51
52 #include <gfx/gfx.h>
53 #include <gfx/win.h>
54 #include <gfx/text.h>
55 #include <gfx/font.h>
56
57 #include <gui/menu.h>
58 #include <icons/logo.h>
59
60 /** Default LCD bitmap */
61 static Bitmap lcd_bitmap;
62
63 /**
64  * Refresh the GUI.
65  */
66 void schedule(void)
67 {
68         lcd_gfx_qt_blitBitmap(&lcd_bitmap);
69         emul_idle();
70 }
71
72 /**
73  * Draw a pentacle in the provided bitmap.
74  */
75 static void magic(struct Bitmap *bitmap, coord_t x, coord_t y)
76 {
77         static const coord_t coords[] = { 120, 34, 90, 90, 30, 90, 0, 34, 60, 0, 90, 90, 0, 34, 120, 34, 30, 90, 60, 0 };
78         unsigned int i;
79
80         gfx_moveTo(bitmap, coords[countof(coords)-2]/2 + x, coords[countof(coords)-1]/3 + y);
81         for (i = 0; i < countof(coords); i += 2)
82                 gfx_lineTo(bitmap, coords[i]/2 + x, coords[i+1]/3 + y);
83 }
84
85 static void hello_world(Bitmap *bm)
86 {
87         extern const Font font_ncenB18;
88         const Font *old_font;
89
90         old_font = bm->font;
91
92         gfx_bitmapClear(bm);
93
94         /* Set big font */
95         gfx_setFont(bm, &font_ncenB18);
96
97         text_xprintf(bm, 0, 0, STYLEF_BOLD | TEXT_FILL | TEXT_CENTER,
98                         "Hello, world!");
99         schedule();
100         while (1)
101                 if (kbd_peek())
102                         break;
103
104         /* Restore old font */
105         gfx_setFont(bm, old_font);
106 }
107
108 /**
109  * Show the splash screen
110  */
111 static void bouncing_logo(Bitmap *bm)
112 {
113         const long SPEED_SCALE = 1000;
114         const long GRAVITY_ACCEL = 10;
115         const long BOUNCE_ELASTICITY = 2;
116         long h = (long)(-bertos_logo.height) * SPEED_SCALE;
117         long speed = 1000;
118
119         /* Repeat until logo stands still on the bottom edge */
120         while (!((speed == 0) && (h == 0)))
121         {
122                 /* Move */
123                 h += speed;
124
125                 /* Gravity acceleration */
126                 speed += GRAVITY_ACCEL;
127
128                 if (h > 0 && speed > 0)
129                 {
130                         /* Bounce */
131                         speed = - (speed / BOUNCE_ELASTICITY);
132
133                 }
134
135                 /* Update graphics */
136                 gfx_bitmapClear(bm);
137                 gfx_blitImage(bm,
138                         (bm->width - bertos_logo.width) / 2,
139                         h / SPEED_SCALE,
140                         &bertos_logo);
141                 schedule();
142                 timer_delay(10);
143         }
144 }
145
146 void win_demo(Bitmap *bm)
147 {
148         const coord_t small_left = 45, small_top = 30, small_width = 50, small_height = 30;
149         const coord_t large_left = -10, large_top = 10, large_width = 85, large_height = 41;
150
151         Window root_win, small_win, large_win;
152         Bitmap small_bm, large_bm;
153         uint8_t small_raster[RAST_SIZE(small_width, small_height)];
154         uint8_t large_raster[RAST_SIZE(large_width, large_height)];
155
156         win_create(&root_win, bm);
157
158         gfx_bitmapInit(&large_bm, large_raster, large_width, large_height);
159         win_create(&large_win, &large_bm);
160         win_open(&large_win, &root_win);
161         win_move(&large_win, large_left, large_top);
162
163         gfx_bitmapInit(&small_bm, small_raster, small_width, small_height);
164         win_create(&small_win, &small_bm);
165         win_open(&small_win, &root_win);
166         win_move(&small_win, small_left, small_top);
167
168
169         coord_t x = 0, y = LCD_WIDTH / 2;
170         coord_t xdir = +1, ydir = -1;
171         coord_t xdir_large = +1;
172         coord_t ydir_small = +1;
173         int raise_counter = 0;
174         int i;
175
176         for(;;)
177         {
178                 /* Background animation */
179                 bm = root_win.bitmap;
180                 gfx_bitmapClear(bm);
181                 // gfx_setClipRect(bm, 0, 0, bm->width, bm->height);
182                 // gfx_rectDraw(bm, 10, 10, bm->width-10, bm->height-10);
183                 // gfx_setClipRect(bm, 11, 11, bm->width-11, bm->height-11);
184                 magic(bm, x, y);
185                 x += xdir;
186                 y += ydir;
187                 if (x >= bm->width)  xdir = -1;
188                 if (x <= -50)        xdir = +1;
189                 if (y >= bm->height) ydir = -1;
190                 if (y <= -50)        ydir = +1;
191
192                 bm = large_win.bitmap;
193                 gfx_bitmapClear(bm);
194                 for (i = 0; i < bm->height / 2; i += 2)
195                         gfx_rectDraw(bm, 0 + i, 0 + i, bm->width - i, bm->height - i);
196
197                 /* Small window animation */
198                 bm = small_win.bitmap;
199                 gfx_bitmapClear(bm);
200                 gfx_rectDraw(bm, 0, 0, bm->width, bm->height);
201                 gfx_line(bm, 0, 0, bm->width, bm->height);
202                 gfx_line(bm, bm->width, 0, 0, bm->height);
203
204                 /* Move windows around */
205                 win_move(&large_win, large_win.geom.xmin + xdir_large, large_top);
206                 if (large_win.geom.xmin < -20) xdir_large = +1;
207                 if (large_win.geom.xmin > RECT_WIDTH(&root_win.geom) - 5) xdir_large = -1;
208
209                 win_move(&small_win, small_left, small_win.geom.ymin + ydir_small);
210                 if (small_win.geom.ymin < -20) ydir_small = +1;
211                 if (small_win.geom.ymin > RECT_HEIGHT(&root_win.geom) - 5) ydir_small = -1;
212
213                 ++raise_counter;
214                 if (raise_counter % 997 == 0)
215                         win_raise(&small_win);
216                 else if (raise_counter % 731 == 0)
217                         win_raise(&large_win);
218
219                 win_compose(&root_win);
220                 /* Also does LCD refresh, etc. */
221                 if (kbd_peek())
222                         break;
223         }
224 }
225
226 void proc_demo(void)
227 {
228         proc_testRun();
229 }
230
231 void sem_demo(void)
232 {
233         sem_testRun();
234         sem_testTearDown();
235 }
236
237 void timer_demo(void)
238 {
239         timer_testRun();
240         timer_testTearDown();
241 }
242
243
244 /* SETTINGS SUBMENU */
245
246 static struct MenuItem settings_items[] =
247 {
248         { (const_iptr_t)"System",     0, (MenuHook)0,  (iptr_t)0 },
249         { (const_iptr_t)"Language",   0, (MenuHook)0,  (iptr_t)0 },
250         { (const_iptr_t)"Networking", 0, (MenuHook)0,  (iptr_t)0 },
251         { (const_iptr_t)"Date & Time",0, (MenuHook)0,  (iptr_t)0 },
252         { (const_iptr_t)"Power Saving", MIF_TOGGLE, (MenuHook)0, (iptr_t)0 },
253         { (const_iptr_t)0, 0, NULL, (iptr_t)0 }
254 };
255 static struct Menu settings_menu = { settings_items, "Settings Menu", MF_STICKY | MF_SAVESEL, &lcd_bitmap, 0, lcd_gfx_qt_blitBitmap };
256
257
258 /* MX SUBMENU */
259
260 static struct MenuItem mx_items[] =
261 {
262         { (const_iptr_t)"Mouse",                  MIF_CHECKIT | MIF_EXCLUDE_1 | MIF_EXCLUDE_2, (MenuHook)0,  (iptr_t)0 },
263         { (const_iptr_t)"Keyboard", MIF_CHECKED | MIF_CHECKIT | MIF_EXCLUDE_0 | MIF_EXCLUDE_2, (MenuHook)0,  (iptr_t)0 },
264         { (const_iptr_t)"Joystick", MIF_CHECKIT | MIF_EXCLUDE_0 | MIF_EXCLUDE_1, (MenuHook)0,  (iptr_t)0 },
265         { (const_iptr_t)"Autosave", MIF_CHECKED | MIF_CHECKIT | MIF_TOGGLE, (MenuHook)0,  (iptr_t)0 },
266         { (const_iptr_t)0, 0, NULL, (iptr_t)0 }
267 };
268
269 static struct Menu mx_menu = { mx_items, (const_iptr_t)0, MF_STICKY | MF_SAVESEL, &lcd_bitmap, 0, lcd_gfx_qt_blitBitmap };
270
271
272 /* DISPLAY SUBMENU */
273
274 static struct MenuItem display_items[] =
275 {
276         { (const_iptr_t)"Background", 0, (MenuHook)0, (iptr_t)0 },
277         { (const_iptr_t)"Colors",     0, (MenuHook)0, (iptr_t)0 },
278         { (const_iptr_t)"Style",      0, (MenuHook)0, (iptr_t)0 },
279         { (const_iptr_t)"Icon Theme", 0, (MenuHook)0, (iptr_t)0 },
280         { (const_iptr_t)0, 0, NULL, (iptr_t)0 }
281 };
282 static struct Menu display_menu = { display_items, "Display Menu", MF_SAVESEL, &lcd_bitmap, 0, lcd_gfx_qt_blitBitmap };
283
284
285 /* MAIN MENU */
286
287 static struct MenuItem main_items[] =
288 {
289         { (const_iptr_t)"Win Fly",     0, (MenuHook)win_demo,     (iptr_t)&lcd_bitmap    },
290         { (const_iptr_t)"Bounce!",     0, (MenuHook)bouncing_logo,(iptr_t)&lcd_bitmap    },
291         { (const_iptr_t)"Hello World", 0, (MenuHook)hello_world,  (iptr_t)&lcd_bitmap    },
292         { (const_iptr_t)"Scheduling",  0, (MenuHook)proc_demo,    (iptr_t)&lcd_bitmap    },
293         { (const_iptr_t)"Semaphores",  0, (MenuHook)sem_demo,     (iptr_t)&lcd_bitmap    },
294         { (const_iptr_t)"Timer Test",  0, (MenuHook)timer_demo,   (iptr_t)&lcd_bitmap    },
295         { (const_iptr_t)"Menu MX",     0, (MenuHook)menu_handle,  (iptr_t)&mx_menu       },
296         { (const_iptr_t)"Display",     0, (MenuHook)menu_handle,  (iptr_t)&display_menu  },
297         { (const_iptr_t)"Settings",    0, (MenuHook)menu_handle,  (iptr_t)&settings_menu },
298         { (const_iptr_t)0, 0, NULL, (iptr_t)0 }
299 };
300 static struct Menu main_menu = { main_items, "Main Menu", MF_STICKY, &lcd_bitmap, 0, lcd_gfx_qt_blitBitmap };
301
302 #if CONFIG_KERN_HEAP
303 #define monitor_stack NULL
304 #else
305 static PROC_DEFINE_STACK(monitor_stack, KERN_MINSTACKSIZE);
306 #endif
307
308 int main(int argc, char *argv[])
309 {
310         emul_init(&argc, argv);
311
312         timer_init();
313         proc_init();
314         buz_init();
315         kbd_init();
316         lcd_gfx_qt_init(&lcd_bitmap);
317         monitor_start(KERN_MINSTACKSIZE, monitor_stack);
318
319         menu_handle(&main_menu);
320
321         timer_cleanup();
322         emul_cleanup();
323         return 0;
324 }