glut_w32s.tem 1.1 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253
  1. {
  2. $Id$
  3. Translation of the GLUT headers for FreePascal
  4. Copyright (C) 1999 Sebastian Guenther
  5. Version for static linking in Win32 environment by Alexander Stohr.
  6. Latest change: 1999-11-13
  7. Further information:
  8. GLUT is a powerful toolkit for programming multiplatform OpenGL
  9. applications. It was designed by Mark J. Kilgard while working for SGI,
  10. he is now working for nVidia.
  11. }
  12. { this translation of the c header files is done by Sebastian Guenther 1999 }
  13. { version for static linking for Win32 platforms done by Alexander Stohr 1999 }
  14. {$MODE delphi}
  15. {You have to enable Macros (compiler switch "-Sm") for compiling this unit!
  16. This is necessary for supporting different platforms with different calling
  17. conventions via a single unit.}
  18. unit GLUT_SL; { version which does statically linking }
  19. interface
  20. uses GL_SL;
  21. {x$DEFINE GLUT_GAME} {enable if you need game mode sub api}
  22. {$MACRO ON}
  23. {$IFDEF Win32}
  24. {$DEFINE glut_dll := external 'glut32.dll'}
  25. {$DEFINE glut_callback := cdecl}
  26. {$DEFINE extdecl := }
  27. {$ELSE}
  28. {$MESSAGE Unsupported platform.}
  29. {$ENDIF}
  30. %GLUTDeclsIF
  31. %GLUTProcsPS
  32. implementation
  33. {begin{of init}
  34. end.