test/mesa/mesagetprocaddress.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <exec/types.h>
   7 #include <intuition/intuition.h>
   8 #include <intuition/intuitionbase.h>
   9 #include <intuition/screens.h>
  10
  11 #include <proto/exec.h>
  12 #include <proto/dos.h>
  13 #include <proto/intuition.h>
  14
  15
  16 #include <GL/gla.h>
  17 #include <GL/gl.h>
  18
  19 #include <stdio.h>
  20
  21 GLAContext glcont=NULL;
  22
  23 #define RAND_COL 1.0
  24
  25 PFNGLUNIFORM4IPROC AROSglUniform4i = NULL;
  26
  27 void testextensions()
  28 {
  29     printf("Getting pointer to glUniform4i...\n");
  30     AROSglUniform4i = glAGetProcAddress("glUniform4i");
  31
  32     if (AROSglUniform4i != NULL)
  33     {
  34         printf("Pointer to glUniform4i acquired\n");
  35         printf("Calling glUniform4i via pointer\n");
  36         AROSglUniform4i(0, 0, 0, 0, 0);
  37         printf("glUniform4i called\n");
  38     }
  39     else
  40     {
  41         printf("Failed to get pointer to glUniform4i");
  42     }
  43 }
  44
  45 struct Window * win = NULL;
  46
  47 void initmesa()
  48 {
  49     struct TagItem attributes [ 14 ]; /* 14 should be more than enough :) */
  50     int i = 0;
  51
  52     // default config. Always used...
  53     attributes[i].ti_Tag = GLA_Window;      attributes[i++].ti_Data = (IPTR)win;
  54     attributes[i].ti_Tag = GLA_Left;        attributes[i++].ti_Data = win->BorderLeft;
  55     attributes[i].ti_Tag = GLA_Top;         attributes[i++].ti_Data = win->BorderTop;
  56     attributes[i].ti_Tag = GLA_Bottom;      attributes[i++].ti_Data = win->BorderBottom;
  57     attributes[i].ti_Tag = GLA_Right;       attributes[i++].ti_Data = win->BorderRight;
  58
  59     // double buffer ?
  60     attributes[i].ti_Tag = GLA_DoubleBuf;   attributes[i++].ti_Data = GL_TRUE;
  61
  62     // RGB(A) Mode ?
  63     attributes[i].ti_Tag = GLA_RGBMode;     attributes[i++].ti_Data = GL_TRUE;
  64
  65     // done...
  66     attributes[i].ti_Tag    = TAG_DONE;
  67
  68     glcont = glACreateContext(attributes);
  69     glAMakeCurrent(glcont);
  70 }
  71
  72 void deinitmesa()
  73 {
  74     glADestroyContext(glcont);
  75 }
  76
  77
  78
  79 /*
  80 ** Open a simple window using OpenWindowTagList()
  81 */
  82 int main(int argc, char **argv)
  83 {
  84
  85     win = OpenWindowTags(0,
  86                 WA_Title, (IPTR)"MesaGetProcAddress",
  87                 WA_CloseGadget, TRUE,
  88                 WA_DragBar, TRUE,
  89                 WA_DepthGadget, TRUE,
  90                 WA_Left, 10,
  91                 WA_Top, 10,
  92                 WA_InnerWidth, 300,
  93                 WA_InnerHeight, 300,
  94                 WA_Activate, TRUE,
  95                 WA_RMBTrap, TRUE,
  96                 WA_SimpleRefresh, TRUE,
  97                 WA_NoCareRefresh, TRUE,
  98                 WA_IDCMP, IDCMP_CLOSEWINDOW,
  99                 TAG_DONE);
 100
 101     initmesa();
 102
 103     testextensions();
 104
 105     deinitmesa();
 106
 107     CloseWindow(win);
 108
 109     return 0;
 110 }
 111
 112