X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=interpreters%2Fnitfol%2Fgraphics.c;fp=interpreters%2Fnitfol%2Fgraphics.c;h=ce813643ea51ceff2d2cce49e512569d5e14e2cd;hb=b1f1dc50b22b30c4d7176e1ff7c0805e80fe0724;hp=0000000000000000000000000000000000000000;hpb=50176172d18ae72d019181725c5629d45d21c548;p=projects%2Fchimara%2Fchimara.git

diff --git a/interpreters/nitfol/graphics.c b/interpreters/nitfol/graphics.c
new file mode 100644
index 0000000..ce81364
--- /dev/null
+++ b/interpreters/nitfol/graphics.c
@@ -0,0 +1,38 @@
+#include "nitfol.h"
+
+/* A bunch of trivial wrappers so we can get away with ignoring whether
+ * during compilation whether or not the glk library supports graphics.
+ *  
+ * Link this in only if you glk supports graphics */
+
+
+#ifdef GLK_MODULE_IMAGE
+
+
+glui32 wrap_glk_image_draw(winid_t win, glui32 image, glsi32 val1, glsi32 val2)
+{
+  if(!glk_gestalt(gestalt_Graphics, 0))
+    return FALSE;
+  return glk_image_draw(win, image, val1, val2);
+}
+
+
+glui32 wrap_glk_image_draw_scaled(winid_t win, glui32 image, glsi32 val1, glsi32 val2, glui32 width, glui32 height)
+{
+  if(!glk_gestalt(gestalt_Graphics, 0))
+    return FALSE;
+  return glk_image_draw_scaled(win, image, val1, val2, width, height);
+}
+
+
+glui32 wrap_glk_image_get_info(glui32 image, glui32 *width, glui32 *height)
+{
+  if(!glk_gestalt(gestalt_Graphics, 0)) {
+    *width = 0; *height = 0;
+    return FALSE;
+  }
+  return glk_image_get_info(image, width, height);
+}
+
+
+#endif