source: libcaca/trunk/caca-php/examples/demo.php @ 3140

Last change on this file since 3140 was 3140, checked in by nico, 12 years ago
  • Rewrite main loop of sample program demo.php
File size: 11.1 KB
Line 
1#!/usr/bin/php5
2<?php
3/*
4 *  demo.php      demo for libcaca php binding
5 *  Copyright (c) 2008 Nicolas Vion <nico@yojik.eu>
6 *
7 *  This file is a Php port of the official libcaca's sample program "demo.c"
8 *  which is:
9 *  Copyright (c) 2003 Sam Hocevar <sam@zoy.org>
10 *
11 *  This program is free software. It comes without any warranty, to
12 *  the extent permitted by applicable law. You can redistribute it
13 *  and/or modify it under the terms of the Do What The Fuck You Want
14 *  To Public License, Version 2, as published by Sam Hocevar. See
15 *  http://sam.zoy.org/wtfpl/COPYING for more details.
16 */
17
18
19
20function main() {
21        $cv = caca_create_canvas(0, 0);
22        if (!$cv) {
23                die("Error while creating canvas\n");
24        }
25
26        $dp = caca_create_display($cv);
27        if (!$dp) {
28                die("Error while attaching canvas to display\n");
29        }
30
31        caca_set_display_time($dp, 40000);
32
33        /* Disable cursor */
34        caca_set_mouse($dp, 0);
35
36        /* Main menu */
37        display_menu($cv, $dp, $bounds, $outline);
38
39        /* Go ! */
40        $bounds = $outline = $dithering = 0;
41        $need_refresh = false;
42        $ev = caca_create_event();
43        while(!$quit) {
44                while (caca_get_event($dp, CACA_EVENT_ANY, $ev, 1000)) {
45                        if (caca_get_event_type($ev) & CACA_EVENT_KEY_PRESS) {
46                                switch (caca_get_event_key_ch($ev)) {
47                                        case ord('q'):
48                                        case ord('Q'):
49                                        case CACA_KEY_ESCAPE:
50                                                $demo = false;
51                                                $quit = 1;
52                                                break;
53                                        case ord('o'):
54                                        case ord('O'):
55                                                $outline = ($outline + 1) % 3;
56                                                display_menu($cv, $dp, $bounds, $outline);
57                                                break;
58                                        case ord('b'):
59                                        case ord('B'):
60                                                $bounds = ($bounds + 1) % 2;
61                                                display_menu($cv, $dp, $bounds, $outline);
62                                                break;
63                                        case ord('d'):
64                                        case ord('D'):
65                                                $dithering = ($dithering + 1) % 5;
66                                                caca_set_feature($cv, $dithering);
67                                                display_menu($cv, $dp, $bounds, $outline);
68                                                break;
69                                        case ord('f'):
70                                        case ord('F'):
71                                                demo_go($dp, "demo_all", $cv, $bounds, $outline);
72                                                break;
73                                        case ord('1'):
74                                                demo_go($dp, "demo_dots", $cv, $bounds, $outline);
75                                                break;
76                                        case ord('2'):
77                                                demo_go($dp, "demo_lines", $cv, $bounds, $outline);
78                                                break;
79                                        case ord('3'):
80                                                demo_go($dp, "demo_boxes", $cv, $bounds, $outline);
81                                                break;
82                                        case ord('4'):
83                                                demo_go($dp, "demo_triangles", $cv, $bounds, $outline);
84                                                break;
85                                        case ord('5'):
86                                                demo_go($dp, "demo_ellipses", $cv, $bounds, $outline);
87                                                break;
88                                        case ord('s'):
89                                        case ord('S'):
90                                                demo_go($dp, "demo_sprites", $cv, $bounds, $outline);
91                                                break;
92                                        case ord('r'):
93                                        case ord('R'):
94                                                demo_go($dp, "demo_render", $cv, $bounds, $outline);
95                                                break;
96                                }
97                        }
98                        else if(caca_get_event_type($ev) & CACA_EVENT_MOUSE_MOTION) {
99                                $x = caca_get_event_mouse_x($ev);
100                                $y = caca_get_event_mouse_y($ev);
101                                display_menu($cv, $dp, $bounds, $outline, false);
102                                caca_set_color_ansi($cv, CACA_RED, CACA_BLACK);
103                                caca_put_str($cv, $x, $y, ".");
104                                caca_put_str($cv, $x, $y + 1, "|\\");
105                                $need_refresh = true;
106                        }
107                        else if(caca_get_event_type($ev) & CACA_EVENT_RESIZE) {
108                                display_menu($cv, $dp, $bounds, $outline);
109                        }
110                }
111
112                if ($need_refresh) {
113                        caca_refresh_display($dp);
114                        $need_refresh = false;
115                }
116        }
117}
118
119function demo_go($dp, $demo, $cv, $bounds, $outline) {
120        caca_set_color_ansi($cv, CACA_LIGHTGRAY, CACA_BLACK);
121        caca_clear_canvas($cv);
122
123        while (!caca_get_event($dp, CACA_EVENT_KEY_PRESS)) {
124                if (function_exists($demo))
125                        $demo($cv, $bounds, $outline);
126
127                caca_set_color_ansi($cv, CACA_LIGHTGRAY, CACA_BLACK);
128                caca_draw_thin_box($cv, 1, 1, caca_get_canvas_width($cv) - 2, caca_get_canvas_height($cv) - 2);
129                $rate = sprintf("%01.2f", 1000000 / caca_get_display_time($dp));
130                caca_put_str($cv, 4, 1, "[$rate fps]----");
131                caca_refresh_display($dp);
132        }
133
134        display_menu($cv, $dp, $bounds, $outline);
135        caca_refresh_display($dp);
136}
137
138
139function demo_all($cv, $bounds, $outline) {
140        global $i;
141
142        $i++;
143
144        caca_set_color_ansi($cv, CACA_LIGHTGRAY, CACA_BLACK);
145        caca_clear_canvas($cv);
146
147        /* Draw the sun */
148        caca_set_color_ansi($cv, CACA_YELLOW, CACA_BLACK);
149        $xo = caca_get_canvas_width($cv) / 4;
150        $yo = caca_get_canvas_height($cv) / 4 + 5 * sin(0.03 * $i);
151
152        for ($j = 0; $j < 16; $j++) {
153                $xa = $xo - (30 + sin(0.03 * $i) * 8) * sin(0.03 * $i + M_PI * $j / 8);
154                $ya = $yo + (15 + sin(0.03 * $i) * 4) * cos(0.03 * $i + M_PI * $j / 8);
155                caca_draw_thin_line($cv, $xo, $yo, $xa, $ya);
156        }
157
158        $j = 15 + sin(0.03 * $i) * 8;
159        caca_set_color_ansi($cv, CACA_WHITE, CACA_BLACK);
160        caca_fill_ellipse($cv, $xo, $yo, $j, $j / 2, ord('#'));
161        caca_set_color_ansi($cv, CACA_YELLOW, CACA_BLACK);
162        caca_draw_ellipse($cv, $xo, $yo, $j, $j / 2, ord('#'));
163
164        /* Draw the pyramid */
165        $xo = caca_get_canvas_width($cv) * 5 / 8;
166        $yo = 2;
167
168        $xa = caca_get_canvas_width($cv) / 8 + sin(0.03 * $i) * 5;
169        $ya = caca_get_canvas_height($cv) / 2 + cos(0.03 * $i) * 5;
170
171        $xb = caca_get_canvas_width($cv) - 10 - cos(0.02 * $i) * 10;
172        $yb = caca_get_canvas_height($cv) * 3 / 4 - 5 + sin(0.02 * $i) * 5;
173
174        $xc = caca_get_canvas_width($cv) / 4 - sin(0.02 * $i) * 5;
175        $yc = caca_get_canvas_height($cv) * 3 / 4 + cos(0.02 * $i) * 5;
176
177        caca_set_color_ansi($cv, CACA_GREEN, CACA_BLACK);
178        caca_fill_triangle($cv, $xo, $yo, $xb, $yb, $xa, $ya, ord('%'));
179        caca_set_color_ansi($cv, CACA_YELLOW, CACA_BLACK);
180        caca_draw_thin_triangle($cv, $xo, $yo, $xb, $yb, $xa, $ya);
181
182        caca_set_color_ansi($cv, CACA_RED, CACA_BLACK);
183        caca_fill_triangle($cv, $xa, $ya, $xb, $yb, $xc, $yc, ord('#'));
184        caca_set_color_ansi($cv, CACA_YELLOW, CACA_BLACK);
185        caca_draw_thin_triangle($cv, $xa, $ya, $xb, $yb, $xc, $yc);
186
187        caca_set_color_ansi($cv, CACA_BLUE, CACA_BLACK);
188        caca_fill_triangle($cv, $xo, $yo, $xb, $yb, $xc, $yc, ord('%'));
189        caca_set_color_ansi($cv, CACA_YELLOW, CACA_BLACK);
190        caca_draw_thin_triangle($cv, $xo, $yo, $xb, $yb, $xc, $yc);
191
192        /* Draw a background triangle */
193        $xa = 2;
194        $ya = 2;
195
196        $xb = caca_get_canvas_width($cv) - 3;
197        $yb = caca_get_canvas_height($cv) / 2;
198
199        $xc = caca_get_canvas_width($cv) / 3;
200        $yc = caca_get_canvas_height($cv) - 3;
201
202        caca_set_color_ansi($cv, CACA_CYAN, CACA_BLACK);
203        caca_draw_thin_triangle($cv, $xa, $ya, $xb, $yb, $xc, $yc);
204
205        $xo = caca_get_canvas_width($cv) / 2 + cos(0.027 * $i) * caca_get_canvas_width($cv) / 3;
206        $yo = caca_get_canvas_height($cv) / 2 - sin(0.027 * $i) * caca_get_canvas_height($cv) / 2;
207
208        caca_draw_thin_line($cv, $xa, $ya, $xo, $yo);
209        caca_draw_thin_line($cv, $xb, $yb, $xo, $yo);
210        caca_draw_thin_line($cv, $xc, $yc, $xo, $yo);
211
212        /* Draw a trail behind the foreground sprite */
213        for($j = $i - 60; $j < $i; $j++) {
214                $delta = caca_rand(-5, 6);
215                caca_set_color_ansi($cv, caca_rand(0, 16), caca_rand(0, 16));
216                caca_put_char($cv,
217                        caca_get_canvas_width($cv) / 2 + cos(0.02 * $j) * ($delta + caca_get_canvas_width($cv) / 4),
218                        caca_get_canvas_height($cv) / 2 + sin(0.02 * $j) * ($delta + caca_get_canvas_height($cv) / 3),
219                        ord('#'));
220        }
221}
222
223function display_menu($cv, $dp, $bounds, $outline, $refresh = true) {
224        $xo = caca_get_canvas_width($cv) - 2;
225        $yo = caca_get_canvas_height($cv) - 2;
226
227        caca_set_color_ansi($cv, CACA_LIGHTGRAY, CACA_BLACK);
228        caca_clear_canvas($cv);
229        caca_draw_thin_box($cv, 1, 1, $xo, $yo);
230
231        caca_put_str($cv, ($xo - strlen("libcaca demo")) / 2, 3, "libcaca demo");
232        caca_put_str($cv, ($xo - strlen("==============")) / 2, 4, "==============");
233
234        caca_put_str($cv, 4, 6, "demos:");
235        caca_put_str($cv, 4, 7, "'f': full");
236        caca_put_str($cv, 4, 8, "'1': dots");
237        caca_put_str($cv, 4, 9, "'2': lines");
238        caca_put_str($cv, 4, 10, "'3': boxes");
239        caca_put_str($cv, 4, 11, "'4': triangles");
240        caca_put_str($cv, 4, 12, "'5': ellipses");
241        caca_put_str($cv, 4, 13, "'c': colour");
242        caca_put_str($cv, 4, 14, "'r': render");
243
244        if ($sprite)
245                caca_put_str($cv, 4, 15, "'s': sprites");
246
247        caca_put_str($cv, 4, 16, "settings:");
248        caca_put_str($cv, 4, 17, "'o': outline: ".(($outline == 0) ? "none" : (($outline == 1) ? "solid" : "thin")));
249        caca_put_str($cv, 4, 18, "'b': drawing boundaries: ".(($bounds == 0) ? "screen" : "infinite"));
250        caca_put_str($cv, 4, $yo - 2, "'q': quit");
251
252        if ($refresh)
253                caca_refresh_display($dp);
254}
255
256function demo_dots($cv, $bounds, $outline) {
257        $xmax = caca_get_canvas_width($cv);
258        $ymax = caca_get_canvas_height($cv);
259
260        $chars = array('+', '-', '*', '#', 'X', '@', '%', '$', 'M', 'W');
261
262        for ($i = 1000; $i--;) {
263                /* Putpixel */
264                caca_set_color_ansi($cv, caca_rand(0, 16), caca_rand(0, 16));
265                caca_put_char($cv, caca_rand(0, $xmax), caca_rand(0, $ymax), ord($chars[caca_rand(0, 9)]));
266        }
267}
268
269function demo_lines($cv, $bounds, $outline) {
270        $w = caca_get_canvas_width($cv);
271        $h = caca_get_canvas_height($cv);
272
273        if ($bounds) {
274                $xa = caca_rand(- $w, 2 * $w); $ya = caca_rand(- $h, 2 * $h);
275                $xb = caca_rand(- $w, 2 * $w); $yb = caca_rand(- $h, 2 * $h);
276        }
277        else {
278                $xa = caca_rand(0, $w); $ya = caca_rand(0, $h);
279                $xb = caca_rand(0, $w); $yb = caca_rand(0, $h);
280        }
281
282        caca_set_color_ansi($cv, caca_rand(0, 16), CACA_BLACK);
283        if ($outline > 1)
284                caca_draw_thin_line($cv, $xa, $ya, $xb, $yb);
285        else
286                caca_draw_line($cv, $xa, $ya, $xb, $yb, ord('#'));
287}
288
289function demo_boxes($cv, $bounds, $outline) {
290        $w = caca_get_canvas_width($cv);
291        $h = caca_get_canvas_height($cv);
292
293        if ($bounds) {
294                $xa = caca_rand(- $w, 2 * $w); $ya = caca_rand(- $h, 2 * $h);
295                $xb = caca_rand(- $w, 2 * $w); $yb = caca_rand(- $h, 2 * $h);
296        }
297        else {
298                $xa = caca_rand(0, $w); $ya = caca_rand(0, $h);
299                $xb = caca_rand(0, $w); $yb = caca_rand(0, $h);
300        }
301
302        caca_set_color_ansi($cv, caca_rand(0, 16), caca_rand(0, 16));
303        caca_fill_box($cv, $xa, $ya, $xb, $yb, ord('#'));
304
305        caca_set_color_ansi($cv, caca_rand(0, 16), CACA_BLACK);
306        if($outline == 2)
307                caca_draw_thin_box($cv, $xa, $ya, $xb, $yb);
308        else if($outline == 1)
309                caca_draw_box($cv, $xa, $ya, $xb, $yb, ord('#'));
310}
311
312function demo_ellipses($cv, $bounds, $outline) {
313        $w = caca_get_canvas_width($cv);
314        $h = caca_get_canvas_height($cv);
315
316        if ($bounds) {
317                $x = caca_rand(- $w, 2 * $w); $y = caca_rand(- $h, 2 * $h);
318                $a = caca_rand(0, $w); $b = caca_rand(0, $h);
319        }
320        else {
321                do {
322                        $x = caca_rand(0, $w); $y = caca_rand(0, $h);
323                        $a = caca_rand(0, $w); $b = caca_rand(0, $h);
324                } while ($x - $a < 0 || $x + $a >= $w || $y - $b < 0 || $y + $b >= $h);
325        }
326
327        caca_set_color_ansi($cv, caca_rand(0, 16), caca_rand(0, 16));
328        caca_fill_ellipse($cv, $x, $y, $a, $b, ord('#'));
329
330        caca_set_color_ansi($cv, caca_rand(0, 16), CACA_BLACK);
331        if ($outline == 2)
332                caca_draw_thin_ellipse($cv, $x, $y, $a, $b);
333        else if ($outline == 1)
334                caca_draw_ellipse($cv, $x, $y, $a, $b, ord('#'));
335}
336
337function demo_triangles($cv, $bounds, $outline) {
338        $w = caca_get_canvas_width($cv);
339        $h = caca_get_canvas_height($cv);
340
341        if ($bounds) {
342                $xa = caca_rand(- $w, 2 * $w); $ya = caca_rand(- $h, 2 * $h);
343                $xb = caca_rand(- $w, 2 * $w); $yb = caca_rand(- $h, 2 * $h);
344                $xc = caca_rand(- $w, 2 * $w); $yc = caca_rand(- $h, 2 * $h);
345        }
346        else {
347                $xa = caca_rand(0, $w); $ya = caca_rand(0, $h);
348                $xb = caca_rand(0, $w); $yb = caca_rand(0, $h);
349                $xc = caca_rand(0, $w); $yc = caca_rand(0, $h);
350        }
351
352        caca_set_color_ansi($cv, caca_rand(0, 16), caca_rand(0, 16));
353        caca_fill_triangle($cv, $xa, $ya, $xb, $yb, $xc, $yc, ord('#'));
354
355        caca_set_color_ansi($cv, caca_rand(0, 16), CACA_BLACK);
356        if ($outline == 2)
357                caca_draw_thin_triangle($cv, $xa, $ya, $xb, $yb, $xc, $yc);
358        else if ($outline == 1)
359                caca_draw_triangle($cv, $xa, $ya, $xb, $yb, $xc, $yc, ord('#'));
360}
361
362function demo_render($cv, $bounds, $outline) {
363}
364
365
366main();
Note: See TracBrowser for help on using the repository browser.