开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > GIS编程 > 查看源码
glut_fcb.c
资源名称：glut23-src.zip　[点击查看]
上传用户：xk288cn
上传日期：2007-05-28
资源大小：4876k
文件大小：5k
源码类别：

GIS编程

开发平台：

Visual C++

glut_fcb.c：源码内容
  2. /* Copyright (c) Mark J. Kilgard, 1998.  */
  4. /* This program is freely distributable without licensing fees
  5.    and is provided without guarantee or warrantee expressed or
  6.    implied. This program is -not- in the public domain. */
  8. /* I appreciate the guidance from William Mitchell
  9.    (mitchell@cam.nist.gov) in developing this friend interface
  10.    for use by the f90gl package.  See ../../README.fortran */
  12. #include "glutint.h"
  14. /* FCB stands for Fortran CallBack. */
  16. /* There is only one idleFunc, menuStateFunc, and menuStatusFunc, so they
  17.    can be saved in the wrappers for Fortran rather than the C structures. */
  19. /* Set a Fortran callback function. */
  21. void APIENTRY
  22. __glutSetFCB(int which, void *func)
  23. {
  24. #ifdef SUPPORT_FORTRAN
  25.   switch (which) {
  26.   case GLUT_FCB_DISPLAY:
  27.     __glutCurrentWindow->fdisplay = (GLUTdisplayFCB) func;
  28.     break;
  29.   case GLUT_FCB_RESHAPE:
  30.     __glutCurrentWindow->freshape = (GLUTreshapeFCB) func;
  31.     break;
  32.   case GLUT_FCB_MOUSE:
  33.     __glutCurrentWindow->fmouse = (GLUTmouseFCB) func;
  34.     break;
  35.   case GLUT_FCB_MOTION:
  36.     __glutCurrentWindow->fmotion = (GLUTmotionFCB) func;
  37.     break;
  38.   case GLUT_FCB_PASSIVE:
  39.     __glutCurrentWindow->fpassive = (GLUTpassiveFCB) func;
  40.     break;
  41.   case GLUT_FCB_ENTRY:
  42.     __glutCurrentWindow->fentry = (GLUTentryFCB) func;
  43.     break;
  44.   case GLUT_FCB_KEYBOARD:
  45.     __glutCurrentWindow->fkeyboard = (GLUTkeyboardFCB) func;
  46.     break;
  47.   case GLUT_FCB_KEYBOARD_UP:
  48.     __glutCurrentWindow->fkeyboardUp = (GLUTkeyboardFCB) func;
  49.     break;
  50.   case GLUT_FCB_WINDOW_STATUS:
  51.     __glutCurrentWindow->fwindowStatus = (GLUTwindowStatusFCB) func;
  52.     break;
  53.   case GLUT_FCB_VISIBILITY:
  54.     __glutCurrentWindow->fvisibility = (GLUTvisibilityFCB) func;
  55.     break;
  56.   case GLUT_FCB_SPECIAL:
  57.     __glutCurrentWindow->fspecial = (GLUTspecialFCB) func;
  58.     break;
  59.   case GLUT_FCB_SPECIAL_UP:
  60.     __glutCurrentWindow->fspecialUp = (GLUTspecialFCB) func;
  61.     break;
  62.   case GLUT_FCB_BUTTON_BOX:
  63.     __glutCurrentWindow->fbuttonBox = (GLUTbuttonBoxFCB) func;
  64.     break;
  65.   case GLUT_FCB_DIALS:
  66.     __glutCurrentWindow->fdials = (GLUTdialsFCB) func;
  67.     break;
  68.   case GLUT_FCB_SPACE_MOTION:
  69.     __glutCurrentWindow->fspaceMotion = (GLUTspaceMotionFCB) func;
  70.     break;
  71.   case GLUT_FCB_SPACE_ROTATE:
  72.     __glutCurrentWindow->fspaceRotate = (GLUTspaceRotateFCB) func;
  73.     break;
  74.   case GLUT_FCB_SPACE_BUTTON:
  75.     __glutCurrentWindow->fspaceButton = (GLUTspaceButtonFCB) func;
  76.     break;
  77.   case GLUT_FCB_TABLET_MOTION:
  78.     __glutCurrentWindow->ftabletMotion = (GLUTtabletMotionFCB) func;
  79.     break;
  80.   case GLUT_FCB_TABLET_BUTTON:
  81.     __glutCurrentWindow->ftabletButton = (GLUTtabletButtonFCB) func;
  82.     break;
  83. #ifdef _WIN32
  84.   case GLUT_FCB_JOYSTICK:
  85.     __glutCurrentWindow->fjoystick = (GLUTjoystickFCB) func;
  86.     break;
  87. #endif
  88.   case GLUT_FCB_OVERLAY_DISPLAY:
  89.     __glutCurrentWindow->overlay->fdisplay = (GLUTdisplayFCB) func;
  90.     break;
  91.   case GLUT_FCB_SELECT:
  92.     __glutCurrentMenu->fselect = (GLUTselectFCB) func;
  93.     break;
  94.   case GLUT_FCB_TIMER:
  95.     __glutNewTimer->ffunc = (GLUTtimerFCB) func;
  96.     break;
  97.   }
  98. #endif
  99. }
  101. /* Get a Fortran callback function. */
  103. void* APIENTRY
  104. __glutGetFCB(int which)
  105. {
  106. #ifdef SUPPORT_FORTRAN
  107.   switch (which) {
  108.   case GLUT_FCB_DISPLAY:
  109.     return (void *) __glutCurrentWindow->fdisplay;
  110.   case GLUT_FCB_RESHAPE:
  111.     return (void *) __glutCurrentWindow->freshape;
  112.   case GLUT_FCB_MOUSE:
  113.     return (void *) __glutCurrentWindow->fmouse;
  114.   case GLUT_FCB_MOTION:
  115.     return (void *) __glutCurrentWindow->fmotion;
  116.   case GLUT_FCB_PASSIVE:
  117.     return (void *) __glutCurrentWindow->fpassive;
  118.   case GLUT_FCB_ENTRY:
  119.     return (void *) __glutCurrentWindow->fentry;
  120.   case GLUT_FCB_KEYBOARD:
  121.     return (void *) __glutCurrentWindow->fkeyboard;
  122.   case GLUT_FCB_KEYBOARD_UP:
  123.     return (void *) __glutCurrentWindow->fkeyboardUp;
  124.   case GLUT_FCB_WINDOW_STATUS:
  125.     return (void *) __glutCurrentWindow->fwindowStatus;
  126.   case GLUT_FCB_VISIBILITY:
  127.     return (void *) __glutCurrentWindow->fvisibility;
  128.   case GLUT_FCB_SPECIAL:
  129.     return (void *) __glutCurrentWindow->fspecial;
  130.   case GLUT_FCB_SPECIAL_UP:
  131.     return (void *) __glutCurrentWindow->fspecialUp;
  132.   case GLUT_FCB_BUTTON_BOX:
  133.     return (void *) __glutCurrentWindow->fbuttonBox;
  134.   case GLUT_FCB_DIALS:
  135.     return (void *) __glutCurrentWindow->fdials;
  136.   case GLUT_FCB_SPACE_MOTION:
  137.     return (void *) __glutCurrentWindow->fspaceMotion;
  138.   case GLUT_FCB_SPACE_ROTATE:
  139.     return (void *) __glutCurrentWindow->fspaceRotate;
  140.   case GLUT_FCB_SPACE_BUTTON:
  141.     return (void *) __glutCurrentWindow->fspaceButton;
  142.   case GLUT_FCB_TABLET_MOTION:
  143.     return (void *) __glutCurrentWindow->ftabletMotion;
  144.   case GLUT_FCB_TABLET_BUTTON:
  145.     return (void *) __glutCurrentWindow->ftabletButton;
  146.   case GLUT_FCB_JOYSTICK:
  147. #ifdef _WIN32
  148.     return (void *) __glutCurrentWindow->fjoystick;
  149. #else
  150.     return NULL;
  151. #endif
  152.   case GLUT_FCB_OVERLAY_DISPLAY:
  153.     return (void *) __glutCurrentWindow->overlay->fdisplay;
  154.   case GLUT_FCB_SELECT:
  155.     return (void *) __glutCurrentMenu->fselect;
  156.   case GLUT_FCB_TIMER:
  157.     return (void *) __glutTimerList->ffunc;
  158.   default:
  159.     return NULL;
  160.   }
  161. #else
  162.   return NULL;
  163. #endif
  164. }