Rev 55 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 55 | pj | 1 | #ifndef __glutf90_h__ |
| 2 | #define __glutf90_h__ |
||
| 3 | |||
| 4 | /* Copyright (c) Mark J. Kilgard & Willam F. Mitchell, 1998. */ |
||
| 5 | |||
| 6 | /* This program is freely distributable without licensing fees |
||
| 7 | and is provided without guarantee or warrantee expressed or |
||
| 8 | implied. This program is -not- in the public domain. */ |
||
| 9 | |||
| 10 | /* This header provides the binding interface for William Mitchell's |
||
| 11 | f90gl Fortran 90 GLUT binding. Other GLUT language bindings |
||
| 12 | can and should use this interace. */ |
||
| 13 | |||
| 14 | /* I appreciate the guidance from William Mitchell |
||
| 15 | (mitchell@cam.nist.gov) in developing this friend interface |
||
| 16 | for use by the f90gl package. See ../../README.fortran */ |
||
| 17 | |||
| 18 | #include <GL/glut.h> |
||
| 19 | |||
| 20 | /* Which callback enumerants for the __glutSetFCB/__glutGetFCB routines. */ |
||
| 21 | /* NOTE These values are part of a binary interface for the f90gl Fortran |
||
| 22 | 90 binding and so must NOT changes (additions are allowed). */ |
||
| 23 | |||
| 24 | /* GLUTwindow callbacks. */ |
||
| 25 | #define GLUT_FCB_DISPLAY 0 /* GLUTdisplayFCB */ |
||
| 26 | #define GLUT_FCB_RESHAPE 1 /* GLUTreshapeFCB */ |
||
| 27 | #define GLUT_FCB_MOUSE 2 /* GLUTmouseFCB */ |
||
| 28 | #define GLUT_FCB_MOTION 3 /* GLUTmotionFCB */ |
||
| 29 | #define GLUT_FCB_PASSIVE 4 /* GLUTpassiveFCB */ |
||
| 30 | #define GLUT_FCB_ENTRY 5 /* GLUTentryFCB */ |
||
| 31 | #define GLUT_FCB_KEYBOARD 6 /* GLUTkeyboardFCB */ |
||
| 32 | #define GLUT_FCB_KEYBOARD_UP 7 /* GLUTkeyboardFCB */ |
||
| 33 | #define GLUT_FCB_WINDOW_STATUS 8 /* GLUTwindowStatusFCB */ |
||
| 34 | #define GLUT_FCB_VISIBILITY 9 /* GLUTvisibilityFCB */ |
||
| 35 | #define GLUT_FCB_SPECIAL 10 /* GLUTspecialFCB */ |
||
| 36 | #define GLUT_FCB_SPECIAL_UP 11 /* GLUTspecialFCB */ |
||
| 37 | #define GLUT_FCB_BUTTON_BOX 12 /* GLUTbuttonBoxFCB */ |
||
| 38 | #define GLUT_FCB_DIALS 13 /* GLUTdialsFCB */ |
||
| 39 | #define GLUT_FCB_SPACE_MOTION 14 /* GLUTspaceMotionFCB */ |
||
| 40 | #define GLUT_FCB_SPACE_ROTATE 15 /* GLUTspaceRotateFCB */ |
||
| 41 | #define GLUT_FCB_SPACE_BUTTON 16 /* GLUTspaceButtonFCB */ |
||
| 42 | #define GLUT_FCB_TABLET_MOTION 17 /* GLUTtabletMotionFCB */ |
||
| 43 | #define GLUT_FCB_TABLET_BUTTON 18 /* GLUTtabletButtonFCB */ |
||
| 44 | #define GLUT_FCB_JOYSTICK 19 /* GLUTjoystickFCB */ |
||
| 45 | /* Non-GLUTwindow callbacks. */ |
||
| 46 | #define GLUT_FCB_OVERLAY_DISPLAY 100 /* GLUTdisplayFCB */ |
||
| 47 | #define GLUT_FCB_SELECT 101 /* GLUTselectFCB */ |
||
| 48 | #define GLUT_FCB_TIMER 102 /* GLUTtimerFCB */ |
||
| 49 | |||
| 50 | /* GLUT Fortran callback function types. */ |
||
| 51 | typedef void (GLUTCALLBACK *GLUTdisplayFCB) (void); |
||
| 52 | typedef void (GLUTCALLBACK *GLUTreshapeFCB) (int *, int *); |
||
| 53 | /* NOTE the pressed key is int, not unsigned char for Fortran! */ |
||
| 54 | typedef void (GLUTCALLBACK *GLUTkeyboardFCB) (int *, int *, int *); |
||
| 55 | typedef void (GLUTCALLBACK *GLUTmouseFCB) (int *, int *, int *, int *); |
||
| 56 | typedef void (GLUTCALLBACK *GLUTmotionFCB) (int *, int *); |
||
| 57 | typedef void (GLUTCALLBACK *GLUTpassiveFCB) (int *, int *); |
||
| 58 | typedef void (GLUTCALLBACK *GLUTentryFCB) (int *); |
||
| 59 | typedef void (GLUTCALLBACK *GLUTwindowStatusFCB) (int *); |
||
| 60 | typedef void (GLUTCALLBACK *GLUTvisibilityFCB) (int *); |
||
| 61 | typedef void (GLUTCALLBACK *GLUTspecialFCB) (int *, int *, int *); |
||
| 62 | typedef void (GLUTCALLBACK *GLUTbuttonBoxFCB) (int *, int *); |
||
| 63 | typedef void (GLUTCALLBACK *GLUTdialsFCB) (int *, int *); |
||
| 64 | typedef void (GLUTCALLBACK *GLUTspaceMotionFCB) (int *, int *, int *); |
||
| 65 | typedef void (GLUTCALLBACK *GLUTspaceRotateFCB) (int *, int *, int *); |
||
| 66 | typedef void (GLUTCALLBACK *GLUTspaceButtonFCB) (int *, int *); |
||
| 67 | typedef void (GLUTCALLBACK *GLUTtabletMotionFCB) (int *, int *); |
||
| 68 | typedef void (GLUTCALLBACK *GLUTtabletButtonFCB) (int *, int *, int *, int *); |
||
| 69 | typedef void (GLUTCALLBACK *GLUTjoystickFCB) (unsigned int *buttonMask, int *x, int *y, int *z); |
||
| 70 | |||
| 71 | typedef void (GLUTCALLBACK *GLUTselectFCB) (int *); |
||
| 72 | typedef void (GLUTCALLBACK *GLUTtimerFCB) (int *); |
||
| 73 | typedef void (GLUTCALLBACK *GLUTmenuStateFCB) (int *); /* DEPRICATED. */ |
||
| 74 | typedef void (GLUTCALLBACK *GLUTmenuStatusFCB) (int *, int *, int *); |
||
| 75 | typedef void (GLUTCALLBACK *GLUTidleFCB) (void); |
||
| 76 | |||
| 77 | /* Functions that set and return Fortran callback functions. */ |
||
| 78 | GLUTAPI void* APIENTRY __glutGetFCB(int which); |
||
| 79 | GLUTAPI void APIENTRY __glutSetFCB(int which, void *func); |
||
| 80 | |||
| 81 | #endif /* __glutf90_h__ */ |