diff lua/luadyncall/test/test_cocoautil.lua @ 0:0cfcc391201f

initial from svn dyncall-1745
author Daniel Adler
date Thu, 19 Mar 2015 22:26:28 +0100
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lua/luadyncall/test/test_cocoautil.lua	Thu Mar 19 22:26:28 2015 +0100
@@ -0,0 +1,14 @@
+require"dynport"
+dynport("Cocoa")
+CocoaInit()
+dynport("SDL")
+SDL_Init(SDL_INIT_VIDEO)
+SDL_SetVideoMode(640,480,32,SDL_OPENGL)
+dynport("GL")
+quit = false
+while not quit do
+  glClearColor(0,0,1,1)
+  glClear(GL.GL_COLOR_BUFFER_BIT)
+  SDL_GL_SwapBuffers()
+end
+