2 #include "chimara-glk-private.h"
5 #define BUFFER_SIZE (1024)
7 extern GPrivate *glk_data_key;
8 void on_size_prepared(GdkPixbufLoader *loader, gint width, gint height, struct image_info *info);
9 void on_pixbuf_closed(GdkPixbufLoader *loader, gpointer data);
10 glui32 draw_image_common(winid_t win, GdkPixbuf *pixbuf, glsi32 val1, glsi32 val2);
12 static gboolean image_loaded;
13 static gboolean size_determined;
15 static struct image_info*
16 load_image_from_blorb(giblorb_result_t resource, glui32 image, gint width, gint height)
18 ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key);
19 GError *pixbuf_error = NULL;
22 struct image_info *info = g_new0(struct image_info, 1);
23 info->resource_number = image;
25 /* Load the resource */
26 GdkPixbufLoader *loader = gdk_pixbuf_loader_new();
27 g_signal_connect( loader, "size-prepared", G_CALLBACK(on_size_prepared), info );
28 g_signal_connect( loader, "closed", G_CALLBACK(on_pixbuf_closed), NULL );
30 /* Scale image if necessary */
31 if(width > 0 && height > 0) {
32 gdk_pixbuf_loader_set_size(loader, width, height);
36 glk_stream_set_position(glk_data->resource_file, resource.data.startpos, seekmode_Start);
37 buffer = g_malloc( BUFFER_SIZE * sizeof(guchar) );
39 guint32 total_read = 0;
41 while(total_read < resource.length && !image_loaded) {
42 guint32 num_read = glk_get_buffer_stream(glk_data->resource_file, (char *) buffer, BUFFER_SIZE);
44 if( !gdk_pixbuf_loader_write(loader, buffer, MIN(BUFFER_SIZE, num_read), &pixbuf_error) ) {
45 WARNING_S("Cannot read image", pixbuf_error->message);
46 giblorb_unload_chunk(glk_data->resource_map, image);
47 gdk_pixbuf_loader_close(loader, &pixbuf_error);
52 total_read += num_read;
54 gdk_pixbuf_loader_close(loader, &pixbuf_error);
55 giblorb_unload_chunk(glk_data->resource_map, resource.chunknum);
58 /* Wait for the PixbufLoader to finish loading the image */
59 g_mutex_lock(glk_data->resource_lock);
60 while(!image_loaded) {
61 g_cond_wait(glk_data->resource_loaded, glk_data->resource_lock);
63 g_mutex_unlock(glk_data->resource_lock);
65 info->pixbuf = gdk_pixbuf_loader_get_pixbuf(loader);
66 g_object_ref(info->pixbuf);
68 g_object_unref(loader);
72 static struct image_info *
73 load_image_from_file(const gchar *filename, glui32 image, gint width, gint height)
77 struct image_info *info = g_new0(struct image_info, 1);
78 info->resource_number = image;
80 if(width > 0 && height > 0) {
82 info->pixbuf = gdk_pixbuf_new_from_file_at_size(filename, width, height, &err);
84 info->pixbuf = gdk_pixbuf_new_from_file(filename, &err);
87 IO_WARNING("Error loading resource from alternative location", filename, err->message);
92 g_object_ref(info->pixbuf);
97 static struct image_info*
98 load_image_in_cache(glui32 image, gint width, gint height)
100 ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key);
101 struct image_info *info = NULL;
103 /* Lookup the proper resource */
104 if(!glk_data->resource_map) {
105 if(!glk_data->resource_load_callback) {
106 WARNING("No resource map has been loaded yet.");
109 gchar *filename = glk_data->resource_load_callback(CHIMARA_RESOURCE_IMAGE, image, glk_data->resource_load_callback_data);
111 WARNING("Error loading resource from alternative location");
114 info = load_image_from_file(filename, image, width, height);
117 giblorb_result_t resource;
118 giblorb_err_t blorb_error = giblorb_load_resource(glk_data->resource_map, giblorb_method_FilePos, &resource, giblorb_ID_Pict, image);
119 if(blorb_error != giblorb_err_None) {
120 WARNING_S( "Error loading resource", giblorb_get_error_message(blorb_error) );
123 info = load_image_from_blorb(resource, image, width, height);
129 /* Store the image in the cache */
132 if( g_slist_length(glk_data->image_cache) >= IMAGE_CACHE_MAX_NUM ) {
133 struct image_info *head = (struct image_info*) glk_data->image_cache->data;
134 g_object_unref(head->pixbuf);
136 glk_data->image_cache = g_slist_remove_link(glk_data->image_cache, glk_data->image_cache);
138 info->width = gdk_pixbuf_get_width(info->pixbuf);
139 info->height = gdk_pixbuf_get_height(info->pixbuf);
140 glk_data->image_cache = g_slist_prepend(glk_data->image_cache, info);
147 on_size_prepared(GdkPixbufLoader *loader, gint width, gint height, struct image_info *info)
149 ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key);
151 g_mutex_lock(glk_data->resource_lock);
153 info->height = height;
154 size_determined = TRUE;
155 g_cond_broadcast(glk_data->resource_info_available);
156 g_mutex_unlock(glk_data->resource_lock);
160 on_pixbuf_closed(GdkPixbufLoader *loader, gpointer data)
164 ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key);
166 g_mutex_lock(glk_data->resource_lock);
168 g_cond_broadcast(glk_data->resource_loaded);
169 g_mutex_unlock(glk_data->resource_lock);
176 clear_image_cache(struct image_info *data, gpointer user_data)
178 g_object_unref(data->pixbuf);
182 static struct image_info*
183 image_cache_find(struct image_info* to_find)
185 ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key);
186 GSList *link = glk_data->image_cache;
196 /* Iterate over the cache to find the correct image and size */
197 struct image_info *match = NULL;
199 struct image_info *info = (struct image_info*) link->data;
200 if(info->resource_number == to_find->resource_number) {
201 /* Check size: are we looking for a scaled version or the original one? */
202 if(to_find->scaled) {
204 if(info->width == to_find->width && info->height == to_find->height) {
205 /* Prescaled image found */
209 else if(info->width >= to_find->width && info->height >= to_find->height) {
210 /* Larger image found, needs to be scaled down in order to work */
217 return info; /* Found a match */
221 } while( (link = g_slist_next(link)) );
229 * glk_image_get_info:
230 * @image: An image resource number.
231 * @width: Pointer to a location at which to store the image's width.
232 * @height: Pointer to a location at which to store the image's height.
234 * This gets information about the image resource with the given identifier. It
235 * returns %TRUE (1) if there is such an image, and %FALSE (0) if not. You can
236 * also pass pointers to width and height variables; if the image exists, the
237 * variables will be filled in with the width and height of the image, in
238 * pixels. (You can pass %NULL for either width or height if you don't care
239 * about that information.)
242 * You should always use this function to measure the size of images when you
243 * are creating your display. Do this even if you created the images, and you
244 * know how big they <quote>should</quote> be. This is because images may be
245 * scaled in translating from one platform to another, or even from one
246 * machine to another. A Glk library might display all images larger than
247 * their original size, because of screen resolution or player preference.
248 * Images will be scaled proportionally, but you still need to call
249 * glk_image_get_info() to determine their absolute size.
252 * Returns: %TRUE if @image is a valid identifier, %FALSE if not.
255 glk_image_get_info(glui32 image, glui32 *width, glui32 *height)
257 struct image_info *to_find = g_new0(struct image_info, 1);
258 struct image_info *found;
259 to_find->resource_number = image;
260 to_find->scaled = FALSE; /* we want the original image size */
262 if( !(found = image_cache_find(to_find)) ) {
263 found = load_image_in_cache(image, 0, 0);
269 *width = found->width;
271 *height = found->height;
277 * @win: A graphics or text buffer window.
278 * @image: An image resource number.
279 * @val1: The x coordinate at which to draw the image (if @win is a graphics
280 * window); or, an <link linkend="chimara-imagealign-InlineUp">image
281 * alignment</link> constant (if @win is a text window).
282 * @val2: The y coordinate at which to draw the image (if @win is a graphics
283 * window); this parameter is ignored if @win is a text buffer window.
285 * This draws the given image resource in the given window. The position of the
286 * image is given by @val1 and @val2, but their meaning varies depending on what
287 * kind of window you are drawing in. See <link
288 * linkend="chimara-Graphics-in-Graphics-Windows">Graphics in Graphics
289 * Windows</link> and <link linkend="Graphics-in-Text-Buffer-Windows">Graphics
290 * in Text Buffer Windows</link>.
292 * This function returns a flag indicating whether the drawing operation
295 * A %FALSE result can occur for many reasons. The image data might be
296 * corrupted; the library may not have enough memory to operate; there may be
297 * no image with the given identifier; the window might not support image
298 * display; and so on.
301 * Returns: %TRUE if the operation succeeded, %FALSE if not.
304 glk_image_draw(winid_t win, glui32 image, glsi32 val1, glsi32 val2)
306 VALID_WINDOW(win, return FALSE);
307 g_return_val_if_fail(win->type == wintype_Graphics || win->type == wintype_TextBuffer, FALSE);
309 struct image_info *to_find = g_new0(struct image_info, 1);
310 struct image_info *info;
312 /* Lookup the proper resource */
313 to_find->resource_number = image;
314 to_find->scaled = FALSE; /* we want the original image size */
316 if( !(info = image_cache_find(to_find)) ) {
317 info = load_image_in_cache(image, 0, 0);
322 return draw_image_common(win, info->pixbuf, val1, val2);
326 * glk_image_draw_scaled:
327 * @win: A graphics or text buffer window.
328 * @image: An image resource number.
329 * @val1: The x coordinate at which to draw the image (if @win is a graphics
330 * window); or, an <link linkend="chimara-imagealign-InlineUp">image
331 * alignment</link> constant (if @win is a text window).
332 * @val2: The y coordinate at which to draw the image (if @win is a graphics
333 * window); this parameter is ignored if @win is a text buffer window.
334 * @width: The width of the image.
335 * @height: The height of the image.
337 * This is similar to glk_image_draw(), but it scales the image to the given
338 * @width and @height, instead of using the image's standard size. (You can
339 * measure the standard size with glk_image_get_info().)
341 * If @width or @height is zero, nothing is drawn. Since those arguments are
342 * unsigned integers, they cannot be negative. If you pass in a negative number,
343 * it will be interpreted as a very large positive number, which is almost
344 * certain to end badly.
346 * Returns: %TRUE if the operation succeeded, %FALSE otherwise.
349 glk_image_draw_scaled(winid_t win, glui32 image, glsi32 val1, glsi32 val2, glui32 width, glui32 height)
351 VALID_WINDOW(win, return FALSE);
352 g_return_val_if_fail(win->type == wintype_Graphics || win->type == wintype_TextBuffer, FALSE);
354 ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key);
355 struct image_info *to_find = g_new0(struct image_info, 1);
356 struct image_info *info;
357 struct image_info *scaled_info;
359 /* Lookup the proper resource */
360 to_find->resource_number = image;
361 to_find->scaled = TRUE; /* any image size equal or larger than requested will do */
363 if( !(info = image_cache_find(to_find)) ) {
364 info = load_image_in_cache(image, width, height);
369 /* Scale the image if necessary */
370 if(info->width != width || info->height != height) {
371 GdkPixbuf *scaled = gdk_pixbuf_scale_simple(info->pixbuf, width, height, GDK_INTERP_BILINEAR);
373 /* Add the scaled image into the image cache */
374 scaled_info = g_new0(struct image_info, 1);
375 scaled_info->resource_number = info->resource_number;
376 scaled_info->width = gdk_pixbuf_get_width(scaled);
377 scaled_info->height = gdk_pixbuf_get_width(scaled);
378 scaled_info->pixbuf = scaled;
379 scaled_info->scaled = TRUE;
380 glk_data->image_cache = g_slist_prepend(glk_data->image_cache, scaled_info);
382 /* Continue working with the scaled version */
386 return draw_image_common(win, info->pixbuf, val1, val2);
389 /* Internal function: draws a pixbuf to a graphics window of text buffer */
391 draw_image_common(winid_t win, GdkPixbuf *pixbuf, glsi32 val1, glsi32 val2)
394 case wintype_Graphics:
400 gtk_image_get_pixmap( GTK_IMAGE(win->widget), &canvas, NULL );
402 WARNING("Could not get pixmap");
406 gdk_draw_pixbuf( GDK_DRAWABLE(canvas), NULL, pixbuf, 0, 0, val1, val2, -1, -1, GDK_RGB_DITHER_NONE, 0, 0 );
408 /* Update the screen */
409 gtk_widget_queue_draw(win->widget);
415 case wintype_TextBuffer:
417 flush_window_buffer(win);
421 GtkTextBuffer *buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(win->widget) );
422 GtkTextIter end, start;
423 gtk_text_buffer_get_end_iter(buffer, &end);
425 gtk_text_buffer_insert_pixbuf(buffer, &end, pixbuf);
427 gtk_text_iter_forward_char(&end);
431 case imagealign_InlineDown:
432 height -= win->unit_height;
434 case imagealign_InlineCenter:
435 height = -win->unit_height / 2;
437 case imagealign_InlineUp:
443 GtkTextTag *tag = gtk_text_buffer_create_tag(buffer, NULL, "rise", PANGO_SCALE * (-height), NULL);
444 gtk_text_buffer_apply_tag(buffer, tag, &start, &end);
455 * glk_window_set_background_color:
456 * @win: A graphics window.
457 * @color: a 32-bit RGB color value.
459 * This sets the window's background color. It does not change what is currently
460 * displayed; it only affects subsequent clears and resizes. The initial
461 * background color of each window is white.
463 * Colors are encoded in a 32-bit value: the top 8 bits must be zero, the next 8
464 * bits are the red value, the next 8 bits are the green value, and the bottom 8
465 * bits are the blue value. Color values range from 0 to 255.
467 * So <code>0x00000000</code> is black, <code>0x00FFFFFF</code> is white, and
468 * <code>0x00FF0000</code> is bright red.
472 * This function may only be used with graphics windows. To set background
473 * colors in a text window, use text styles with color hints; see <link
474 * linkend="chimara-Styles">Styles</link>.
478 glk_window_set_background_color(winid_t win, glui32 color)
480 VALID_WINDOW(win, return);
481 g_return_if_fail(win->type == wintype_Graphics);
483 win->background_color = color;
487 * glk_window_fill_rect:
488 * @win: A graphics window.
489 * @color: A 32-bit RGB color value, see glk_window_set_background_color().
490 * @left: The x coordinate of the top left corner of the rectangle.
491 * @top: The y coordinate of the top left corner of the rectangle.
492 * @width: The width of the rectangle.
493 * @height: The height of the rectangle.
495 * This fills the given rectangle with the given color. It is legitimate for
496 * part of the rectangle to fall outside the window. If width or height is zero,
500 glk_window_fill_rect(winid_t win, glui32 color, glsi32 left, glsi32 top, glui32 width, glui32 height)
502 VALID_WINDOW(win, return);
503 g_return_if_fail(win->type == wintype_Graphics);
508 gtk_image_get_pixmap( GTK_IMAGE(win->widget), &map, NULL );
510 GdkGC *gc = gdk_gc_new(map);
512 glkcolor_to_gdkcolor(color, &gdkcolor);
513 gdk_gc_set_rgb_fg_color(gc, &gdkcolor);
514 gdk_draw_rectangle( GDK_DRAWABLE(map), gc, TRUE, left, top, width, height);
515 gtk_widget_queue_draw(win->widget);
522 * glk_window_erase_rect:
523 * @win: A graphics window.
524 * @left: The x coordinate of the top left corner of the rectangle.
525 * @top: The y coordinate of the top left corner of the rectangle.
526 * @width: The width of the rectangle.
527 * @height: The height of the rectangle.
529 * This fills the given rectangle with the window's background color.
531 * You can also fill an entire graphics window with its background color by
532 * calling glk_window_clear().
535 glk_window_erase_rect(winid_t win, glsi32 left, glsi32 top, glui32 width, glui32 height)
537 glk_window_fill_rect(win, win->background_color, left, top, width, height);
541 * glk_window_flow_break:
544 * You may wish to <quote>break</quote> the stream of text down below the
545 * current margin image. Since lines of text can be in any font and size, you
546 * cannot do this by counting newlines. Instead, use this function.
548 * If the current point in the text is indented around a margin-aligned image,
549 * this acts like the correct number of newlines to start a new line below the
550 * image. (If there are several margin-aligned images, it goes below all of
551 * them.) If the current point is not beside a margin-aligned image, this call
554 * When a text buffer window is resized, a flow-break behaves cleverly; it may
555 * become active or inactive as necessary. You can consider this function to
556 * insert an invisible mark in the text stream. The mark works out how many
557 * newlines it needs to be whenever the text is formatted for display.
559 * An example of the use of glk_window_flow_break(): If you display a
560 * left-margin image at the start of every line, they can stack up in a strange
561 * diagonal way that eventually squeezes all the text off the screen.
563 * If you can't picture this, draw some diagrams. Make the margin images more
564 * than one line tall, so that each line starts already indented around the
567 * To avoid this problem, call glk_window_flow_break() immediately before
568 * glk_image_draw() for every margin-aligned image.
570 * In all windows other than text buffers, glk_window_flow_break() has no
574 * This function is not implemented yet.
577 void glk_window_flow_break(winid_t win)
579 VALID_WINDOW(win, return);
582 /*** Called when the graphics window is resized. Resize the backing pixmap if necessary ***/
584 on_graphics_size_allocate(GtkWidget *widget, GtkAllocation *allocation, winid_t win)
587 gtk_image_get_pixmap( GTK_IMAGE(widget), &oldmap, NULL );
591 /* Determine whether a pixmap exists with the correct size */
592 gboolean needs_resize = FALSE;
596 gdk_drawable_get_size( GDK_DRAWABLE(oldmap), &oldwidth, &oldheight );
597 if(oldwidth != allocation->width || oldheight != allocation->height)
602 /* Create a new pixmap */
603 GdkPixmap *newmap = gdk_pixmap_new(widget->window, allocation->width, allocation->height, -1);
604 gdk_draw_rectangle( GDK_DRAWABLE(newmap), widget->style->white_gc, TRUE, 0, 0, allocation->width, allocation->height);
606 /* Copy the contents of the old pixmap */
608 gdk_draw_drawable( GDK_DRAWABLE(newmap), widget->style->white_gc, GDK_DRAWABLE(oldmap), 0, 0, 0, 0, oldwidth, oldheight);
610 /* Use the new pixmap */
611 gtk_image_set_from_pixmap( GTK_IMAGE(widget), newmap, NULL );
612 g_object_unref(newmap);