glut库源码

glut的源码，下载后直接生成，可以生成debug/release，32bit和64bit，超级实用。

/* Copyright （c） Mark J. Kilgard 1994. */

/* This program is freely distributable without licensing fees
   and is provided without guarantee or warrantee expressed or
   implied. This program is -not- in the public domain. */

#ifndef WRAPPERS_ONLY

#include 

extern int __Argc;
extern char **__Argv;

static GLUTmenuStateFCB fortranMenuStateFunc;

void
glutnull_（void）
{
}

void
glutinit_（void）
{
  glutInit（&__Argc __Argv）;
}

static void
fortranMenuStateWrapper（int value）
{
  fortranMenuStateFunc（&value）;
}

static void
fortranReshapeWrapper（int w int h）
{
  （*__glutCurrentWindow->freshape） （&w &h）;
}

#if 0  /* XXX No IRIX joystick support for now. */
static void
fortranJoystickWrapper（unsigned int button int x int y int z）
{
  （*__glutCurrentWindow->fjoystick） （&button &x &y &z）;
}
#endif

static void
fortranKeyboardWrapper（unsigned char ch int x int y）
{
  int chi = ch;

  （*__glutCurrentWindow->fkeyboard） （&chi &x &y）;
}

static void
fortranKeyboardUpWrapper（unsigned char ch int x int y）
{
  int chi = ch;

  （*__glutCurrentWindow->fkeyboardUp） （&chi &x &y）;
}

static void
fortranMouseWrapper（int btn int state int x int y）
{
  （*__glutCurrentWindow->fmouse） （&btn &state &x &y）;
}

static void
fortranMotionWrapper（int x int y）
{
  （*__glutCurrentWindow->fmotion） （&x &y）;
}

static void
fortranPassiveMotionWrapper（int x int y）
{
  （*__glutCurrentWindow->fpassive） （&x &y）;
}

static void
fortranEntryWrapper（int state）
{
  （*__glutCurrentWindow->fentry） （&state）;
}

static void
fortranVisibilityWrapper（int state）
{
  （*__glutCurrentWindow->fvisibility） （&state）;
}

static void
fortranTimerWrapper（int value）
{
  /* Relies on special knowledge that __glutTimerList points to 
     the GLUTtimer* currently being processed! */
  （*__glutTimerList->ffunc） （&value）;
}

static void
fortranSelectWrapper（int value）
{
  （*__glutItemSelected->menu->fselect） （&value）;
}

static void
fortranSpecialWrapper（int key int x int y）
{
  （*__glutCurrentWindow->fspecial） （&key &x &y）;
}

static void
fortranSpecialUpWrapper（int key int x int y）
{
  （*__glutCurrentWindow->fspecialUp） （&key &x &y）;
}

static void
fortranSpaceballMotionWrapper（int x int y int z）
{
  （*__glutCurrentWindow->fspaceMotion） （&x &y &z）;
}

static void
fortranSpaceballRotateWrapper（int x int y int z）
{
  （*__glutCurrentWindow->fspaceRotate） （&x &y &z）;
}

static void
fortranSpaceballButtonWrapper（int button int state）
{
  （*__glutCurrentWindow->fspaceButton） （&button &state）;
}

static void
fortranTabletMotionWrapper（int x int y）
{
  （*__glutCurrentWindow->ftabletMotion） （&x &y）;
}

static void
fortranTabletButtonWrapper（int button int state int x int y）
{
  （*__glutCurrentWindow->ftabletButton） （&button &state &x &y）;
}

static void
fortranDialsWrapper（int dial int value）
{
  （*_

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2009-05-01 12:14  glut-3.7.6\
     目录           0  2001-10-18 21:26  glut-3.7.6\adainclude\
     目录           0  2001-10-18 21:26  glut-3.7.6\adainclude\GL\
     文件        4208  1999-02-08 13:11  glut-3.7.6\adainclude\GL\glut.adb
     文件       34502  1999-02-08 13:11  glut-3.7.6\adainclude\GL\glut.ads
     文件        1465  1999-02-08 13:11  glut-3.7.6\adainclude\GL\Makefile.sgi
     文件         243  1999-02-08 13:11  glut-3.7.6\adainclude\Makefile.sgi
     文件       40020  1999-02-10 17:42  glut-3.7.6\CHANGES
     文件       36988  1999-02-08 13:11  glut-3.7.6\FAQ.glut
     文件        8254  2000-12-12 01:02  glut-3.7.6\Glut.cf
     文件         546  2000-12-12 22:18  glut-3.7.6\glut.dsw
     文件    12643328  2009-05-01 12:14  glut-3.7.6\glut.ncb
     文件        1240  2009-05-01 12:13  glut-3.7.6\glut.sln
     文件        1240  2009-05-01 12:13  glut-3.7.6\glut.sln_old
     文件        9216  2009-05-01 12:14  glut-3.7.6\glut.suo
     文件        1409  1999-02-08 13:11  glut-3.7.6\glutdefs
     文件         517  1999-02-08 13:11  glut-3.7.6\IAFA-PACKAGE
     文件         122  1998-08-12 13:55  glut-3.7.6\Imakefile
     目录           0  2001-10-18 21:26  glut-3.7.6\include\
     目录           0  2001-10-18 21:26  glut-3.7.6\include\GL\
     文件       62175  1999-02-08 13:11  glut-3.7.6\include\GL\fgl.h
     文件        7483  1999-02-08 13:11  glut-3.7.6\include\GL\fglu.h
     文件       10473  1999-02-08 13:11  glut-3.7.6\include\GL\fglut.h
     文件        5287  1999-02-08 13:11  glut-3.7.6\include\GL\glsmap.h
     文件       27670  2000-12-13 00:22  glut-3.7.6\include\GL\glut.h
     文件        4190  1999-02-16 10:55  glut-3.7.6\include\GL\glutf90.h
     文件        9119  2000-12-12 23:07  glut-3.7.6\include\GL\tube.h
     目录           0  2001-10-18 21:26  glut-3.7.6\include\mui\
     文件        2254  1999-02-08 13:11  glut-3.7.6\include\mui\browser.h
     文件        2677  1999-02-08 13:11  glut-3.7.6\include\mui\displaylist.h
     文件        7781  1999-02-08 13:11  glut-3.7.6\include\mui\gizmo.h
............此处省略1521个文件信息