2 * Copyright © 2006 Carl Worth
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 2, or (at your option)
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
14 * You should have received a copy of the GNU General Public License
15 * along with this program; if not, write to the Free Software Foundation,
16 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA."
20 #include <goocanvas.h>
25 #include <gdk/gdkkeysyms.h>
27 #include "word-game.h"
28 #include "demo-item.h"
30 #define RACK_DICT_ENTRY_OBSCURE (1<<1)
31 #define RACK_DICT_ENTRY_FOUND (1<<2)
45 tile_t *tiles[MAX_TILES];
47 char guess[MAX_TILES+1];
54 GooCanvasItem *solution_item;
58 #define LETTER_SIZE 60
62 guess_tile_position (int i, int *x, int *y)
64 *x = 20 + i * (LETTER_SIZE + LETTER_PAD);
69 rack_tile_position (int i, int *x, int *y)
71 guess_tile_position (i, x, y);
72 *y += (LETTER_SIZE + LETTER_PAD);
75 typedef enum dict_paint_cursor_show
77 DICT_PAINT_CURSOR_SHOW_FOUND,
78 DICT_PAINT_CURSOR_SHOW_UNFOUND_BLANKS,
79 DICT_PAINT_CURSOR_SHOW_ALL
80 } dict_paint_cursor_show_t;
82 typedef struct _dict_paint_cursor
90 dict_paint_cursor_show_t show;
91 } dict_paint_cursor_t;
94 dict_paint_action (void *closure, char *word, dict_entry_t *entry)
96 dict_paint_cursor_t *cursor = closure;
97 cairo_t *cr = cursor->cr;
99 int found, show_blanks = FALSE;
101 if (strlen (word) < 5)
104 found = *entry & RACK_DICT_ENTRY_FOUND;
106 cairo_set_source_rgb (cr, 0, 0, 0); /* black */
108 switch (cursor->show) {
109 case DICT_PAINT_CURSOR_SHOW_FOUND:
113 case DICT_PAINT_CURSOR_SHOW_UNFOUND_BLANKS:
118 case DICT_PAINT_CURSOR_SHOW_ALL:
120 cairo_set_source_rgb (cr, 1, 0, 0); /* red */
124 /* "Obscure" words get some special coloring. */
125 if (*entry & RACK_DICT_ENTRY_OBSCURE) {
127 cairo_set_source_rgb (cr, 0, 1, 0); /* green */
129 if (cursor->show == DICT_PAINT_CURSOR_SHOW_ALL)
130 cairo_set_source_rgb (cr, 0, 0, 1); /* blue */
136 cairo_move_to (cr, cursor->x, cursor->y);
138 int i, length = strlen (word);
139 for (i = 0; i < length; i++)
140 cairo_show_text (cr, "_");
142 cairo_show_text (cr, word);
144 cairo_get_current_point (cr, &new_x, &new_y);
145 if (new_x > cursor->max_column_width)
146 cursor->max_column_width = new_x;
147 cursor->y += cursor->line_height;
148 if (cursor->y > cursor->max_y) {
149 cursor->x = cursor->max_column_width + cursor->line_height / 2;
150 cursor->y = cursor->line_height;
154 #define SOLUTION_FONT_SIZE 12
155 #define SOLUTION_LINE_HEIGHT (1.5 * SOLUTION_FONT_SIZE)
158 dict_paint (cairo_t *cr, void *closure, double width, double height)
160 rack_t *rack = closure;
161 dict_paint_cursor_t cursor;
165 cairo_set_source_rgb (cr, 0.0, 0.0, 0.0); /* black */
169 cairo_select_font_face (cr, "mono", 0, 0);
170 cairo_set_font_size (cr, SOLUTION_FONT_SIZE);
171 cursor.line_height = SOLUTION_LINE_HEIGHT;
174 cursor.y = cursor.line_height;
176 cursor.max_column_width = 0;
177 cursor.max_y = height;
183 cursor.show = DICT_PAINT_CURSOR_SHOW_ALL;
185 cursor.show = DICT_PAINT_CURSOR_SHOW_FOUND;
186 count += dict_for_each_of_length (&rack->solution,
187 dict_paint_action, &cursor,
190 cursor.show = DICT_PAINT_CURSOR_SHOW_UNFOUND_BLANKS;
191 dict_for_each_of_length (&rack->solution,
192 dict_paint_action, &cursor,
196 } while (count < rack->solution_total);
202 tile_paint (cairo_t *cr, void *closure, double width, double height)
204 tile_t *tile = closure;
206 cairo_pattern_t *gradient;
207 cairo_text_extents_t extents;
208 int rad = (int) MIN (width / 2, height / 2);
212 double spot_angle = M_PI / 4.0;
213 double spot_rad = rad / 2.0;
218 gradient = cairo_pattern_create_radial (cx - spot_rad * cos (spot_angle),
219 cy - spot_rad * sin (spot_angle),
221 cx - spot_rad * cos (spot_angle),
222 cy - spot_rad * sin (spot_angle),
224 cairo_pattern_add_color_stop_rgb (gradient, 0.0, 1.0, 1.0, 1.0);
225 cairo_pattern_add_color_stop_rgb (gradient, 1.0, 0.33, 0.33, 0.33);
227 cairo_set_source (cr, gradient);
235 cairo_select_font_face (cr, "mono",
236 CAIRO_FONT_SLANT_NORMAL,
237 CAIRO_FONT_WEIGHT_BOLD);
238 cairo_set_font_size (cr, 1.8 * rad);
240 string[0] = tile->letter;
242 cairo_text_extents (cr, string, &extents);
243 tx = cx - extents.width / 2 - extents.x_bearing;
244 ty = cy - extents.height / 2 - extents.y_bearing;
246 cairo_set_source_rgb (cr, 0.7, 0.7, 0.7);
247 cairo_move_to (cr, tx + 1, ty + 1);
248 cairo_show_text (cr, string);
250 cairo_set_source_rgb (cr, 0.33, 0.33, 0.33);
251 cairo_move_to (cr, tx - 1, ty - 1);
252 cairo_show_text (cr, string);
254 cairo_set_source_rgb (cr, 0.2, 0.3, 0.8);
255 cairo_move_to (cr, tx, ty);
256 cairo_show_text (cr, string);
262 tile_glide_to (tile_t *tile, int x, int y)
264 goo_canvas_item_animate (tile->item, x, y,
267 GOO_CANVAS_ANIMATE_FREEZE);
273 tile_create (GooCanvasItem *parent,
274 char letter, int rack_index)
278 tile = g_malloc (sizeof (tile_t));
279 tile->letter = tolower (letter);
280 tile->rack_index = rack_index;
281 rack_tile_position (rack_index, &tile->x, &tile->y);
282 tile->item = goo_demo_item_new (parent,
284 LETTER_SIZE, LETTER_SIZE,
288 tile->guessed = FALSE;
294 on_delete_event (GtkWidget *window,
296 gpointer unused_data)
302 rand_within (int num_values)
304 return (int) ((double) num_values * (rand() / (RAND_MAX + 1.0)));
308 shuffle (int *array, int length)
312 for (i = 0; i < length; i++)
314 r = i + rand_within (length - i);
322 rack_init (rack_t *rack,
326 GooCanvasItem *root = goo_canvas_get_root_item (canvas);
328 for (i = 0; i < MAX_TILES; i++)
329 rack->tiles[i] = NULL;
332 rack->guess_length = 0;
335 bag_init (&rack->bag);
337 dict_init (&rack->dict);
338 dict_add_words_from_file (&rack->dict, "words.txt");
340 dict_init (&rack->obscure);
341 dict_add_words_from_file (&rack->obscure, "obscure.txt");
343 dict_init (&rack->solution);
344 rack->solution_total = 0;
346 for (i = 0; i < MAX_TILES; i++)
347 rack->tiles[i] = tile_create (root, 'A', i);
352 _flag_obscure_word (void *closure, char *word, dict_entry_t *entry)
354 dict_t *obscure = closure;
355 dict_entry_t *obscure_entry;
357 obscure_entry = dict_lookup (obscure, word);
358 if (DICT_ENTRY_IS_WORD (obscure_entry))
359 *entry |= RACK_DICT_ENTRY_OBSCURE;
363 _at_least_one_is_not_obscure (void *closure, char *word, dict_entry_t *entry)
365 int *result = closure;
367 if ((*entry & RACK_DICT_ENTRY_OBSCURE) == 0)
372 rack_new_game (rack_t *rack)
375 char word[MAX_TILES + 1];
376 int length = MAX_TILES;
377 int has_full_length_non_obscure_word;
379 /* We'll shuffle as many times as necessary until we can find a
380 * sequence of <length> letters with at least one full-length
383 bag_shuffle (&rack->bag);
385 /* In this game, we're not interested in blank tiles, so first
386 * find any blanks and sort them to the bottom of the bag. */
388 bottom = BAG_SIZE - 1;
389 for (i = 0; i < bottom; i++) {
390 if (rack->bag.tiles[i] == '?') {
391 rack->bag.tiles[i] = rack->bag.tiles[bottom];
392 rack->bag.tiles[bottom] = '?';
394 /* Re-examine ith element */
399 /* Look at each successive run of tiles in the bag until
400 * finding one that has at least one non-obscure word using
401 * all of its leters. */
402 for (i = 0; i + length <= bottom + 1; i++) {
403 memcpy (word, &rack->bag.tiles[i], length);
405 dict_fini (&rack->solution);
406 dict_init (&rack->solution);
407 subanagram_expand (word, &rack->dict, &rack->solution);
408 dict_for_each (&rack->solution,
409 _flag_obscure_word, &rack->obscure);
410 has_full_length_non_obscure_word = 0;
411 dict_for_each_of_length (&rack->solution,
412 _at_least_one_is_not_obscure,
413 &has_full_length_non_obscure_word,
415 if (has_full_length_non_obscure_word)
422 rack->solution_total = dict_count (&rack->solution);
423 goo_canvas_item_simple_changed (GOO_CANVAS_ITEM_SIMPLE (rack->solution_item), FALSE);
425 for (i = 0; i < length; i++) {
426 rack->tiles[i]->letter = toupper (word[i]);
427 goo_canvas_item_simple_changed (GOO_CANVAS_ITEM_SIMPLE (rack->tiles[i]->item), FALSE);
429 rack->num_tiles = length;
433 rack_shuffle (rack_t *rack)
435 int indices[MAX_TILES];
438 for (i = 0; i < rack->num_tiles; i++)
441 shuffle (indices, rack->num_tiles);
443 for (i = 0; i < rack->num_tiles; i++) {
444 rack->tiles[i]->rack_index = indices[i];
445 rack_tile_position (indices[i], &x, &y);
446 tile_glide_to (rack->tiles[i], x, y);
453 rack_return_tile (rack_t *rack, tile_t *tile)
457 rack_tile_position (tile->rack_index, &x, &y);
458 tile_glide_to (tile, x, y);
459 tile->guessed = FALSE;
460 rack->guess_length--;
461 rack->guess[rack->guess_length] = '\0';
465 rack_return_all (rack_t *rack)
469 for (i = 0; i < rack->num_tiles; i++) {
470 if (rack->tiles[i]->guessed)
471 rack_return_tile (rack, rack->tiles[i]);
473 rack->guess_length = 0;
474 rack->guess[0] = '\0';
478 on_key_press_event (GtkWidget *widget,
484 rack_t *rack = user_data;
486 if (event->state & GDK_CONTROL_MASK &&
487 event->keyval == GDK_c)
490 goo_canvas_item_simple_changed (GOO_CANVAS_ITEM_SIMPLE (rack->solution_item), FALSE);
493 if (event->keyval == GDK_Return) {
497 rack_new_game (rack);
500 if (rack->guess_length >= 3) {
501 entry = dict_lookup (&rack->solution, rack->guess);
502 if (DICT_ENTRY_IS_WORD (entry)) {
503 *entry = *entry | RACK_DICT_ENTRY_FOUND;
504 goo_canvas_item_simple_changed (GOO_CANVAS_ITEM_SIMPLE (rack->solution_item), FALSE);
510 rack_return_all (rack);
514 if (event->keyval == GDK_space) {
515 rack_return_all (rack);
520 if (event->keyval == GDK_BackSpace) {
521 gboolean found = FALSE;
524 for (i = 0; i < rack->num_tiles; i++) {
525 /* XXX: evil stuff here... please refactor a lot */
526 if (rack->guess[rack->guess_length-1] == rack->tiles[i]->letter &&
527 rack->tiles[i]->guessed &&
528 rack->tiles[i]->x > x)
535 rack_return_tile (rack, rack->tiles[found_index]);
541 /* XXX: event->string is deprecated, but the non-deprecated
542 * input-method stuff (GtkIMContext) is extremely non-obvious to
544 guess_letter = toupper (event->string[0]);
545 for (i = 0; i < rack->num_tiles; i++) {
546 if (guess_letter == rack->tiles[i]->letter &&
547 ! rack->tiles[i]->guessed)
549 guess_tile_position (rack->guess_length, &x, &y);
550 tile_glide_to (rack->tiles[i], x, y);
551 rack->tiles[i]->guessed = TRUE;
552 rack->guess[rack->guess_length++] = guess_letter;
553 rack->guess[rack->guess_length] = '\0';
562 create_window (rack_t *rack)
564 GtkWidget *window, *scrolled_window;
566 window = gtk_window_new (GTK_WINDOW_TOPLEVEL);
567 gtk_window_set_default_size (GTK_WINDOW (window), 430, 430);
568 gtk_widget_show (window);
569 g_signal_connect (window, "delete_event",
570 (GtkSignalFunc) on_delete_event, NULL);
572 gtk_widget_add_events (window, GDK_KEY_PRESS_MASK);
573 g_signal_connect (window, "key_press_event",
574 (GtkSignalFunc) on_key_press_event, rack);
576 scrolled_window = gtk_scrolled_window_new (NULL, NULL);
577 gtk_scrolled_window_set_shadow_type (GTK_SCROLLED_WINDOW (scrolled_window),
579 gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolled_window),
580 GTK_POLICY_AUTOMATIC,
581 GTK_POLICY_AUTOMATIC);
582 gtk_widget_show (scrolled_window);
583 gtk_container_add (GTK_CONTAINER (window), scrolled_window);
585 return scrolled_window;
589 create_canvas (GtkWidget *parent, rack_t *rack)
594 canvas = goo_canvas_new ();
595 gtk_widget_set_size_request (canvas, 400, 400);
596 goo_canvas_set_bounds (GOO_CANVAS (canvas), 0, 0, 400, 400);
597 gtk_widget_show (canvas);
598 gtk_container_add (GTK_CONTAINER (parent), canvas);
600 root = goo_canvas_get_root_item (GOO_CANVAS (canvas));
602 rack->solution_item = goo_demo_item_new (root,
604 LETTER_PAD + 2 * (LETTER_SIZE + 2 * LETTER_PAD),
605 400 - 20, 400 - (LETTER_PAD + 2 * (LETTER_SIZE + 2 * LETTER_PAD)),
609 return GOO_CANVAS (canvas);
613 main (int argc, char *argv[])
620 gettimeofday (&tv, NULL);
621 srand (tv.tv_sec ^ tv.tv_usec);
623 gtk_init (&argc, &argv);
625 window = create_window (&rack);
627 canvas = create_canvas (window, &rack);
629 rack_init (&rack, canvas);
631 rack_new_game (&rack);