diff options
Diffstat (limited to 'test/lua/viewGL.wlua')
| -rw-r--r-- | test/lua/viewGL.wlua | 76 | 
1 files changed, 0 insertions, 76 deletions
| diff --git a/test/lua/viewGL.wlua b/test/lua/viewGL.wlua deleted file mode 100644 index f5ce58a..0000000 --- a/test/lua/viewGL.wlua +++ /dev/null @@ -1,76 +0,0 @@ -require("iuplua") -require("iupluagl") -require("luagl") -require("imlua") - -iup.key_open() - -texture = 0 - -cnv = iup.glcanvas{buffer="DOUBLE", rastersize = "640x480"} - -function cnv:resize_cb(width, height) -  iup.GLMakeCurrent(self) -  gl.Viewport(0, 0, width, height) -end - -function cnv:action(x, y) -  iup.GLMakeCurrent(self) -  gl.PixelStore(gl.UNPACK_ALIGNMENT, 1) -  gl.Clear('COLOR_BUFFER_BIT,DEPTH_BUFFER_BIT') -- Clear Screen And Depth Buffer -   -  gl.DrawPixelsRaw (image:Width(), image:Height(), glformat, gl.UNSIGNED_BYTE, gldata) -   -  iup.GLSwapBuffers(self) -end               - -function cnv:k_any(c) -  if c == iup.K_q or c == iup.K_ESC then -    return iup.CLOSE -  end -   -  if c == iup.K_F1 then -    if fullscreen then -      fullscreen = false -      dlg.fullscreen = "No" -    else -      fullscreen = true -      dlg.fullscreen = "Yes" -    end -  end -   -  if c == iup.K_F2 then -    fileName = iup.GetFile("*.*") -    new_image = im.FileImageLoadBitmap(fileName) -    if (not new_image) then -      iup.Message("Error", "LoadBitmap failed.") -    else -      gldata, glformat = new_image:GetOpenGLData() -      if (image) then image:Destroy() end -      image = new_image -      iup.Update(cnv) -    end -  end -   -end - -if arg and arg[1] ~= nil then -  fileName = arg[1] -else -  fileName = iup.GetFile("*.*") -end - -image = im.FileImageLoadBitmap(fileName) -if (not image) then -  error("LoadBitmap failed.") -end -gldata, glformat = image:GetOpenGLData() - -dlg = iup.dialog{cnv; title="LuaGL/IUP/IM Loader"} - -dlg:show() -cnv.rastersize = nil -- reset minimum limitation - -if (not iup.MainLoopLevel or iup.MainLoopLevel()==0) then -  iup.MainLoop() -end | 
