client/beer.c

   1 /*
   2  *  Copyright 2008, 2009 David Hilvert <dhilvert@gmail.com>
   3  *
   4  *  This file is part of libale.
   5  *
   6  *  libale is free software: you can redistribute it and/or modify it under the
   7  *  terms of the GNU Affero General Public License as published by the Free
   8  *  Software Foundation, either version 3 of the License, or (at your option)
   9  *  any later version.
  10  *
  11  *  libale is distributed in the hope that it will be useful, but WITHOUT ANY
  12  *  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  13  *  FOR A PARTICULAR PURPOSE.  See the GNU Affero General Public License for
  14  *  more details.
  15  *
  16  *  You should have received a copy of the GNU Affero General Public License
  17  *  along with libale.  If not, see <http://www.gnu.org/licenses/>.
  18 */
  19
  20 /*
  21  * beer: a simple client program for libale.
  22  */
  23
  24 #include <stdio.h>
  25 #include <stdlib.h>
  26 #include <string.h>
  27 #include <stdarg.h>
  28 #include <assert.h>
  29 #include <ale.h>
  30
  31 /*
  32  * beer_info_printf: Display informational message for format C.
  33  */
  34
  35 static void beer_info_printf(const char *c, ...) {
  36         va_list ap;
  37
  38         fprintf(stderr, "beer: ");
  39
  40         va_start(ap, c);
  41         vfprintf(stderr, c, ap);
  42         va_end(ap);
  43
  44         fprintf(stderr, "\n");
  45 }
  46
  47 /*
  48  * beer_error_printf: Display error message for format C.
  49  */
  50
  51 static void beer_error_printf(const char *c, ...) {
  52         va_list ap;
  53
  54         fprintf(stderr, "beer: ");
  55
  56         va_start(ap, c);
  57         vfprintf(stderr, c, ap);
  58         va_end(ap);
  59
  60         fprintf(stderr, "\n");
  61         fprintf(stderr, "beer: Exiting.\n");
  62         exit(1);
  63 }
  64
  65 /*
  66  * main: Main routine (entry point).
  67  */
  68
  69 int main(int argc, const char *argv[]) {
  70
  71         /*
  72          * Obtain OpenCL context CC.
  73          */
  74
  75         cl_context cc = clCreateContextFromType(0, CL_DEVICE_TYPE_GPU, NULL, NULL, NULL);
  76
  77         if (cc == ((cl_context) 0)) {
  78                 beer_error_printf("Failed to create an OpenCL context.");
  79         }
  80
  81         /*
  82          * Obtain ALE context AC.
  83          */
  84
  85         ale_context ac = ale_new_context(cc);
  86
  87         if (ac == NULL) {
  88                 beer_error_printf("Failed to create an ALE context.");
  89         }
  90
  91         /*
  92          * Create sample input frame AI from trivial image array DOMAIN_DATA.
  93          */
  94
  95         unsigned char domain_data[27] =
  96                 { 0, 0, 0,  0, 0, 0,  0, 0, 0,
  97                   0, 0, 0,  1, 1, 1,  0, 0, 0,
  98                   0, 0, 0,  0, 0, 0,  0, 0, 0 };
  99
 100         ale_image ai = ale_new_image(ac, ALE_IMAGE_RGB, ALE_TYPE_UINT_8);
 101
 102         ale_image_set_host_static(ai, 3, 3, domain_data, NULL, NULL);
 103
 104         /*
 105          * Create incremental renderer AR.
 106          */
 107
 108         ale_render ar = ale_new_render_incremental(ac, ALE_TYPE_FLOAT_32, ALE_INVARIANT_MEAN);
 109
 110         /*
 111          * Create identity transformation AT with bounds AI.
 112          */
 113
 114         ale_trans at = ale_new_trans(ac, ai);
 115
 116         /*
 117          * Resize render area AR to bounds AT.
 118          */
 119
 120         ale_render_resize(ar, at);
 121
 122         /*
 123          * Merge AI into AR with transformation AT.
 124          */
 125
 126         ale_render_merge(ar, at, ai);
 127
 128         /*
 129          * Retain rendered host image DOMAIN_DATA2 from AR.
 130          */
 131
 132         ale_image ari = ale_render_retain_image(ar);
 133
 134         float *domain_data2 = ale_image_retain_host(ari);
 135
 136         /*
 137          * Display results as text.
 138          */
 139
 140         int di;
 141
 142         printf("Input data:");
 143         for (di = 0; di < 27; di++) {
 144                 unsigned int i = domain_data[di];
 145                 printf(" %u", i);
 146         }
 147         printf("\n");
 148
 149         printf("Output data:");
 150         for (di = 0; di < 27; di++) {
 151                 float f = domain_data2[di];
 152                 printf(" %f", f);
 153         }
 154         printf("\n");
 155
 156         /*
 157          * Release dynamic memory.
 158          */
 159
 160         ale_image_release_host(ari, domain_data2);
 161         ale_image_release(ai);
 162         ale_image_release(ari);
 163         ale_trans_release(at);
 164         ale_render_release(ar);
 165         ale_context_release(ac);
 166
 167         /*
 168          * Return success (no error).
 169          */
 170
 171         return 0;
 172 }