diff --git a/ag.cc b/ag.cc
index 2e812f8..af322e9 100644
--- a/ag.cc
+++ b/ag.cc
@@ -26,6 +26,7 @@ namespace ag
             { "videoStart", videoStart },
             { "videoStop", videoStop },
             { "sleep", sleep },
+            { "startFrame", startFrame },
             { "endFrame", endFrame },
             { "setCamera", setCamera },
             { NULL, NULL }
diff --git a/anaglym.cc b/anaglym.cc
index 93fd280..257c6ab 100644
--- a/anaglym.cc
+++ b/anaglym.cc
@@ -180,6 +180,7 @@ Engine::Object * Engine::getObject(int id)
 
 int Engine::startFrame(lua_State * L)
 {
+    glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
     glMatrixMode(GL_MODELVIEW);
     glLoadIdentity();
     gluLookAt(m_eye[0], m_eye[1], m_eye[2],
@@ -197,6 +198,36 @@ int Engine::endFrame(lua_State * L)
 int Engine::setCamera(lua_State * L)
 {
     int argc = lua_gettop(L);
+
+    vector<double> args;
+    for (int i = 1; i <= argc; i++)
+    {
+        int type = lua_type(L, i);
+        if (type == LUA_TNUMBER || type == LUA_TSTRING)
+            args.push_back(lua_tonumber(L, i));
+        else
+            args.push_back(0);
+    }
+
+    if (argc >= 3)
+    {
+        m_eye[0] = args[0];
+        m_eye[1] = args[1];
+        m_eye[2] = args[2];
+    }
+    if (argc >= 6)
+    {
+        m_center[0] = args[3];
+        m_center[1] = args[4];
+        m_center[2] = args[5];
+    }
+    if (argc >= 9)
+    {
+        m_up[0] = args[6];
+        m_up[1] = args[7];
+        m_up[2] = args[8];
+    }
+
     return 0;
 }