test/mesa/mesagetprocaddress.c

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