equal
deleted
inserted
replaced
30 gles11.pp |
30 gles11.pp |
31 -D |
31 -D |
32 gl.hh |
32 gl.hh |
33 } |
33 } |
34 |
34 |
35 procedure init; |
35 procedure initModule; |
|
36 procedure freeModule; |
36 |
37 |
37 const |
38 const |
38 External_library='GLESv1_CM'; {Setup as you need} |
39 External_library='GLESv1_CM'; {Setup as you need} |
39 |
40 |
40 Type |
41 Type |
1104 pointer(glVertexPointer):=GetProcAddress(hlib,'glVertexPointer'); |
1105 pointer(glVertexPointer):=GetProcAddress(hlib,'glVertexPointer'); |
1105 pointer(glViewport):=GetProcAddress(hlib,'glViewport'); |
1106 pointer(glViewport):=GetProcAddress(hlib,'glViewport'); |
1106 pointer(glPointSizePointerOES):=GetProcAddress(hlib,'glPointSizePointerOES'); |
1107 pointer(glPointSizePointerOES):=GetProcAddress(hlib,'glPointSizePointerOES'); |
1107 end; |
1108 end; |
1108 |
1109 |
1109 procedure init; |
1110 procedure initModule; |
1110 begin |
1111 begin |
1111 Loadgles11('libGLESv1_CM.so'); |
1112 Loadgles11('libGLESv1_CM.so'); |
1112 end; |
1113 end; |
1113 |
1114 |
1114 |
1115 procedure freeModule; |
1115 initialization |
1116 begin |
1116 Loadgles11('gles11'); |
|
1117 finalization |
|
1118 Freegles11; |
1117 Freegles11; |
|
1118 end; |
1119 |
1119 |
1120 end. |
1120 end. |