1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
/* -----------------------------------------------------------------------------
*
* Module : C support for Graphics.UI.GLUT.Raw
* Copyright : (c) Sven Panne 2002-2016
* License : BSD3
*
* Maintainer : Sven Panne <svenpanne@gmail.com>
* Stability : stable
* Portability : portable
*
* -------------------------------------------------------------------------- */
#if defined(USE_GETPROCADDRESS)
#define WIN32_LEAN_AND_MEAN
#include <windows.h>
void*
hs_GLUT_getProcAddress(const char *name)
{
static int firstTime = 1;
static HMODULE handle = NULL;
if (firstTime) {
firstTime = 0;
/* Try to load freeglut first, it has a few extra features compared to
classic GLUT. */
handle = LoadLibrary(TEXT("freeglut"));
/* The MinGW-w64 version of freeglut prefixes "lib" onto the DLL name. */
if (!handle) {
handle = LoadLibrary(TEXT("libfreeglut"));
}
/* If no freeglut version is found, try plain old glut32 instead. */
if (!handle) {
handle = LoadLibrary(TEXT("glut32"));
}
}
return handle ? GetProcAddress(handle, name) : NULL;
}
/* -------------------------------------------------------------------------- */
#elif defined(USE_DLSYM)
#include <stdlib.h>
#include <dlfcn.h>
void*
hs_GLUT_getProcAddress(const char *name)
{
static int firstTime = 1;
static void *handle = NULL;
if (firstTime) {
firstTime = 0;
#ifdef __APPLE__
/* Try public framework path first. */
handle = dlopen("/Library/Frameworks/GLUT.framework/GLUT", RTLD_LAZY | RTLD_GLOBAL);
/* If the public path failed, try the system framework path. */
if (!handle) {
handle = dlopen("/System/Library/Frameworks/GLUT.framework/GLUT", RTLD_LAZY | RTLD_GLOBAL);
}
#else
handle = dlopen(NULL, RTLD_LAZY | RTLD_GLOBAL);
#endif
}
return handle ? dlsym(handle, name) : NULL;
}
/* -------------------------------------------------------------------------- */
#else
#error "Don't know how to retrieve GLUT entries"
#endif
/* -------------------------------------------------------------------------- */
/* Note: This #if below is in sync with freeglut_std.h, classic GLUT simply used
#if defined(_WIN32). */
#if defined(_MSC_VER) || defined(__CYGWIN__) || defined(__MINGW32__) || defined(__WATCOMC__)
#define INIT_FONT(name,num) hs_##name = ((void*)(num))
#else
#define INIT_FONT(name,num) hs_##name = hs_GLUT_getProcAddress(#name)
#endif
void*
hs_GLUT_marshalBitmapFont(int fontID)
{
static int firstTime = 1;
static void *hs_glutBitmap9By15 = NULL;
static void *hs_glutBitmap8By13 = NULL;
static void *hs_glutBitmapTimesRoman10 = NULL;
static void *hs_glutBitmapTimesRoman24 = NULL;
static void *hs_glutBitmapHelvetica10 = NULL;
static void *hs_glutBitmapHelvetica12 = NULL;
static void *hs_glutBitmapHelvetica18 = NULL;
if (firstTime) {
firstTime = 0;
INIT_FONT(glutBitmap9By15, 0x0002);
INIT_FONT(glutBitmap8By13, 0x0003);
INIT_FONT(glutBitmapTimesRoman10, 0x0004);
INIT_FONT(glutBitmapTimesRoman24, 0x0005);
INIT_FONT(glutBitmapHelvetica10, 0x0006);
INIT_FONT(glutBitmapHelvetica12, 0x0007);
INIT_FONT(glutBitmapHelvetica18, 0x0008);
}
switch (fontID) {
case 0 : return hs_glutBitmap8By13;
case 1 : return hs_glutBitmap9By15;
case 2 : return hs_glutBitmapTimesRoman10;
case 3 : return hs_glutBitmapTimesRoman24;
case 4 : return hs_glutBitmapHelvetica10;
case 5 : return hs_glutBitmapHelvetica12;
case 6 : return hs_glutBitmapHelvetica18;
}
return (void*)0;
}
void*
hs_GLUT_marshalStrokeFont(int fontID)
{
static int firstTime = 1;
static void *hs_glutStrokeRoman = NULL;
static void *hs_glutStrokeMonoRoman = NULL;
if (firstTime) {
firstTime = 0;
INIT_FONT(glutStrokeRoman, 0x0000);
INIT_FONT(glutStrokeMonoRoman, 0x0001);
}
switch (fontID) {
case 0 : return hs_glutStrokeRoman;
case 1 : return hs_glutStrokeMonoRoman;
}
return (void*)0;
}
|
