opengltest.jl

using GLUT, ModernGL

function aglGetProcAddress(glFuncName::String)
    tmp = "_"*glFuncName
    if ccall(:NSIsSymbolNameDefined, Cint, (Ptr{Uint8},), tmp) == 0
        return convert(Ptr{Void}, 0)
    else
        symbol = ccall(:NSLookupAndBindSymbol, Ptr{Void}, (Ptr{Uint8},), tmp)
        return ccall(:NSAddressOfSymbol, Ptr{Void}, (Ptr{Void},), symbol)
    end
end

glutInit()
glutInitDisplayMode(GLUT_RGBA | GLUT_DOUBLE | GLUT_ALPHA | GLUT_DEPTH)
glutInitWindowSize(10, 10)
glutInitWindowPosition(0, 0)
glutCreateWindow("dummy")



glGetStringPTR = aglGetProcAddress("glGetString")
println("glGetStringPTR: ", glGetStringPTR)
gl_version = ccall(glGetStringPTR, Ptr{Cuchar}, (GLenum,), GL_VERSION)
println("version: ", bytestring(gl_version))



vertexArraysPTR = aglGetProcAddress("glGenVertexArrays")
println("vertexArrayPTR: ", vertexArraysPTR)
ids = Cuint[42]
ccall(vertexArraysPTR, Void, (GLsizei, Ptr{GLuint}), 1, ids)
println("varray id: ", ids)