/*?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）
{
??（*_

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????目錄???????????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個(gè)文件信息