| /* |
| * Copyright 2013 Google Inc. |
| * |
| * Use of this source code is governed by a BSD-style license that can be |
| * found in the LICENSE file. |
| */ |
| |
| #include "SampleCode.h" |
| #include "SkView.h" |
| #include "SkLua.h" |
| #include "SkCanvas.h" |
| |
| extern "C" { |
| #include "lua.h" |
| #include "lualib.h" |
| #include "lauxlib.h" |
| } |
| |
| static const char gDrawName[] = "onDrawContent"; |
| |
| static const char gCode[] = "" |
| "require \"math\" " |
| "" |
| "local r = { left = 10, top = 10, right = 100, bottom = 80 } " |
| "local x = 0;" |
| "" |
| "local paint = Sk.newPaint();" |
| "paint:setAntiAlias(true);" |
| "" |
| "local color = {a = 1, r = 1, g = 0, b = 0};" |
| "" |
| "function rnd(range) " |
| " return math.random() * range;" |
| "end " |
| "" |
| "rndX = function () return rnd(640) end " |
| "rndY = function () return rnd(480) end " |
| "" |
| "function draw_rand_path(canvas);" |
| " if not path_paint then " |
| " path_paint = Sk.newPaint();" |
| " path_paint:setAntiAlias(true);" |
| " end " |
| " path_paint:setColor({a = 1, r = math.random(), g = math.random(), b = math.random() });" |
| "" |
| " local path = Sk.newPath();" |
| " path:moveTo(rndX(), rndY());" |
| " for i = 0, 50 do " |
| " path:quadTo(rndX(), rndY(), rndX(), rndY());" |
| " end " |
| " canvas:drawPath(path, path_paint);" |
| "end " |
| "" |
| "function onDrawContent(canvas) " |
| " draw_rand_path(canvas);" |
| " color.g = x / 100;" |
| " paint:setColor(color) " |
| " canvas:translate(x, 0);" |
| " canvas:drawOval(r, paint) " |
| " x = x + 1;" |
| " if x > 100 then x = 0 end;" |
| "end"; |
| |
| class LuaView : public SampleView { |
| public: |
| LuaView() : fLua(NULL) {} |
| |
| virtual ~LuaView() { |
| SkDELETE(fLua); |
| } |
| |
| lua_State* ensureLua() { |
| if (NULL == fLua) { |
| fLua = SkNEW(SkLua); |
| fLua->runCode(gCode); |
| } |
| return fLua->get(); |
| } |
| |
| protected: |
| virtual bool onQuery(SkEvent* evt) SK_OVERRIDE { |
| if (SampleCode::TitleQ(*evt)) { |
| SampleCode::TitleR(evt, "Lua"); |
| return true; |
| } |
| SkUnichar uni; |
| if (SampleCode::CharQ(*evt, &uni)) { |
| } |
| return this->INHERITED::onQuery(evt); |
| } |
| |
| virtual void onDrawContent(SkCanvas* canvas) SK_OVERRIDE { |
| lua_State* L = this->ensureLua(); |
| |
| lua_getglobal(L, gDrawName); |
| if (!lua_isfunction(L, -1)) { |
| int t = lua_type(L, -1); |
| SkDebugf("--- expected %s function %d, ignoring.\n", gDrawName, t); |
| lua_pop(L, 1); |
| } else { |
| // does it make sense to try to "cache" the lua version of this |
| // canvas between draws? |
| fLua->pushCanvas(canvas); |
| if (lua_pcall(L, 1, 0, 0) != LUA_OK) { |
| SkDebugf("lua err: %s\n", lua_tostring(L, -1)); |
| } |
| } |
| // need a way for the lua-sample to tell us if they want animations... |
| // hard-code it ON for now. |
| this->inval(NULL); |
| } |
| |
| virtual SkView::Click* onFindClickHandler(SkScalar x, SkScalar y, |
| unsigned modi) SK_OVERRIDE { |
| return this->INHERITED::onFindClickHandler(x, y, modi); |
| } |
| |
| virtual bool onClick(Click* click) SK_OVERRIDE { |
| return this->INHERITED::onClick(click); |
| } |
| |
| private: |
| SkLua* fLua; |
| |
| typedef SampleView INHERITED; |
| }; |
| |
| ////////////////////////////////////////////////////////////////////////////// |
| |
| static SkView* MyFactory() { return new LuaView; } |
| static SkViewRegister reg(MyFactory); |