src/examples/lua_script.edc

   1 color_classes {
   2     color_class { name: "test_colour"; color: 255 255 255 255; }
   3 }
   4
   5 fonts {
   6    font: "Vera.ttf" "default";
   7 }
   8
   9 images {
  10     image: "bubble.png" COMP;
  11     image: "test.png" COMP;
  12 }
  13
  14 collections {
  15    group {
  16       name: "main";
  17       lua_script_only: 1;
  18       lua_script {
  19          --// stick object private/local vars here
  20          local D;
  21          local count = 0;
  22          local fndata = 99;
  23          local text_geom;
  24
  25          --// Functions to print tables.
  26          local print_table, print_table_start;
  27
  28          function print_table_start(table, space, name)
  29             print(space .. name .. ": ");
  30             print(space .. "{");
  31             print_table(table, space .. "  ");
  32             print(space .. "}");
  33          end
  34
  35          function print_table(table, space)
  36             for k, v in pairs(table) do
  37                if type(v) == "table" then
  38                   print_table_start(v, space, k);
  39                elseif type(v) == "string" then
  40                   print(space .. k .. ': "' .. v .. '";')
  41                else
  42                   print(space .. k .. ": " .. v .. ";")
  43                end
  44             end
  45          end
  46
  47          local function mycb3 (v)
  48             print("lua::callback transition " .. D.val .. " v: " .. v);
  49             d = {};
  50             d = edje.size(d);
  51             print("lua::objsize= " .. d.w .. " , " .. d.h);
  52             sz = {w=v * 80, h=v * 40};
  53             D.rect:geom(((d.w / 2) * math.sin(v * 2 * math.pi)) + ((d.w - sz.w) / 2),
  54                         ((d.h / 2) * math.cos(v * 2 * math.pi)) + ((d.h - sz.h) / 2),
  55                         sz.w, sz.h);
  56             D.rect:color(255, 128, v * 255, 255);
  57             d = D.rect:move(d);
  58             print("lua::pos= " .. d.x .. " , " .. d.y);
  59
  60             r = D.rect:above();
  61             if (r ~= nil) then
  62                print("lua::rcol");
  63                r:color(20, v * 255, 60, 255);
  64             else
  65                print("lua::r none!!!!!!!!!!!!!!1");
  66             end
  67             d = edje.size();
  68             D.clip:geom(10, 10, d.w - 20, d.h - 20);
  69             c = D.clip:clipees();
  70             for i=1,table.getn(c),1 do
  71                d = c[i]:geom();
  72                print("lua::" .. i .. " geom = " .. d.x .. "," .. d.y .. " " .. d.w .. "x" .. d.h);
  73             end
  74             return true;  --// repeat the timer
  75          end
  76
  77          local function mycb2 ()
  78             print("lua::callback animator " .. count .. " seconds: " .. edje.seconds() .. " looptime: " .. edje.looptime());
  79             edje.color_class("test_colour", 255, (count * 10) % 255, 255, 255);
  80             edje.text_class("test_text_class", "Sans:style=Bold", ((count * 3) % 100) + 8);
  81             if (5 > (count % 10)) then
  82                D.text:font("default", 32);
  83             else
  84                D.text:font("Sans:style=Bold", 32);
  85             end
  86             edje_geom = edje.geom();
  87             text_geom = D.text:geom();
  88             D.text:move((edje_geom.w - text_geom.w) / 2, (edje_geom.h - text_geom.h) / 8);
  89             return true;  --// repeat the timer
  90          end
  91
  92          local function mycb ()
  93             print("lua::callback timer " .. count .. " fndata = " .. fndata);
  94             count = count + 1; --// keep count of calls - object data
  95             fndata = fndata + 3; --// play with object vars to see if they persist
  96             D.tim = edje.timer(0.25, mycb); --// inside cb add new timer
  97             return false; --// cease repeating the timer
  98          end
  99
 100          --// init object here
 101          D = {}; --// data is empty table to start
 102          D.val = math.random(); --// start with some random value so
 103          fndata = fndata + D.val; --// func data start point
 104          print("lua::init ... " .. D.val);
 105          edje.echo("lua::echo('hello world')");
 106
 107          --// How to check the edje version.
 108          version = edje.version();
 109          print("The edje version number is " .. version.major .. "." .. version.minor);
 110
 111          --// actually add the timer to call mycb in 1.23 sec
 112          D.tim = edje.timer(1.23, mycb);
 113          D.tra = edje.transition(5.0, mycb3);
 114          D.ani = edje.animator(mycb2);
 115          edje_geom = edje.geom();
 116
 117          if (edje.spanky) then edje.spanky(); end
 118
 119          local date = edje.date();
 120          print("lua:: date: " ..
 121             date.year .. "|" ..
 122             date.month .. "|" ..
 123             date.day .. "|" ..
 124             date.yearday .. "|" ..
 125             date.weekday .. "|" ..
 126             date.hour .. "|" ..
 127             date.min .. "|" ..
 128             date.sec
 129          );
 130
 131          --// send some random edje message
 132          edje.messagesend(7, "none"      );
 133          edje.messagesend(7, "sig",      "signal", "source");
 134          edje.messagesend(7, "str",      "hello world");
 135          edje.messagesend(7, "int",      987);
 136          edje.messagesend(7, "float",    987.321);
 137          edje.messagesend(7, "strset",   {"hello", "there", "world"});
 138          edje.messagesend(7, "intset",   {1, 2, 3});
 139          edje.messagesend(7, "floatset", {1.1, 2.2, 3.3});
 140          edje.messagesend(7, "strint",   "hello world", 7);
 141          edje.messagesend(7, "strfloat", "hello world", 7.654);
 142          edje.messagesend(7, "strintset","hello world", {1, 2, 3});
 143
 144          D.edje = edje.edje();
 145          D.edje:file("plain/edje/group");
 146          D.edje:show();
 147
 148          D.rect = edje.rect();
 149          D.rect:geom  (5, 10, 50, 30);
 150          D.rect:color (255, 128, 60, 255);
 151          D.rect:show  ();
 152
 153          D.rect2 = edje.rect();
 154          D.rect2:geom  (50, 50, 50, 50);
 155          D.rect2:color (20, 30, 60, 120);
 156          D.rect2:show  ();
 157
 158          D.clip = edje.rect();
 159          D.clip:geom  (10, 10, 150, 150);
 160          D.clip:color (200, 200, 50, 200);
 161          D.clip:show  ();
 162
 163          D.rect2:clip(D.clip);
 164          D.rect:clip(D.clip);
 165
 166          D.text = edje.text();
 167          D.text:geom  (50, 5, 150, 50);
 168          D.text:color (255, 0, 0, 255);
 169          D.text:font("Sans:style=Bold", 32);
 170          D.text:text("Lua rocks!");
 171          text_geom = D.text:geom();
 172          print(D.text:text());
 173          D.text:show();
 174
 175         --// Put a few bogus API calls here to test the bogus API protection,
 176         --// If the bogus API protection works, these should get ignored, but everything else runs smoothly.
 177         --// Otherwise, the map is not done, the bubbles are not done, but the timers keep runinng.
 178          bogus.failme(1, "two", D.rect);
 179          temp = bogus.failme2();
 180          D.text.bogus();
 181          edje.bogus2();
 182
 183          --// Fun with maps!
 184          D.map = edje.map(4);  --// 4 is the only supported map size at the moment.
 185          --// These all do the same thing.
 186          --// Note, lua likes to start at 1, C (and thus evas) at 0.  I choose to agree with C.
 187          D.map:coord(0, 50, 50, 0);
 188          D.map:coord(1, 100, 50, 0);
 189          D.map:coord(2, 100, 100, 0);
 190          D.map:coord(3, 50, 100, 0);
 191          D.map:populate(50, 50, 50, 50, 0);
 192          D.map:populate(D.rect2, 0);
 193          D.map:populate(D.rect2);
 194
 195          --// print the results
 196          D.coord = D.map:coord(0);
 197          print("lua::map coords for point 0 x=" .. D.coord.x .. " y=" .. D.coord.y .. " z=" .. D.coord.z);
 198          D.coord = D.map:coord(1);
 199          print("lua::map coords for point 1 x=" .. D.coord.x .. " y=" .. D.coord.y .. " z=" .. D.coord.z);
 200          D.coord = D.map:coord(2);
 201          print("lua::map coords for point 2 x=" .. D.coord.x .. " y=" .. D.coord.y .. " z=" .. D.coord.z);
 202          D.coord = D.map:coord(3);
 203          print("lua::map coords for point 3 x=" .. D.coord.x .. " y=" .. D.coord.y .. " z=" .. D.coord.z);
 204
 205          D.map:smooth(false);
 206          D.map:alpha(true);
 207
 208          if (D.map:alpha()) then
 209             print("lua::map is alpha");
 210          end
 211
 212          if (D.map:smooth()) then
 213             print("lua::map is smooooth");
 214          end
 215
 216          if (D.map:clockwise()) then
 217             print("lua::map is clockwise");
 218          end
 219
 220          D.map:color(255, 255, 255, 255); // set all points to this colour.
 221          D.map:color(1, 255, 0, 255, 255);  // set just one point to this colour.
 222
 223          D.map:lighting(75, 75, 10, 255, 255, 255, 0, 255, 0);  // Ambient light and a 3D light source.
 224
 225          --// Toss it around.
 226          D.map:rotate(45.0, 75, 75);
 227          D.map:zoom(1.5, 1.5, 75, 75);
 228          D.map:rotate3d(10.0, 20.0, 30.0, 75, 75, 0);
 229          D.map:perspective(200, 200, 0, 20);
 230
 231          --// For image UV mapping.
 232          D.map:uv(0, 0.0, 0.0);
 233          D.map:uv(1, 50.0, 0.0);
 234          D.map:uv(2, 50.0, 50.0);
 235          D.map:uv(3, 0.0, 50.0);
 236
 237          --// Actually apply the resulting transformations.
 238          D.rect2:map(D.map);
 239          D.rect2:map_enable(true);
 240          if (D.rect2:map_enable()) then
 241             print("lua::map enabled");
 242          end
 243
 244          D.rect2:map_source(D.rect);  --// Don't think this is actually implemented in evas.
 245
 246 --//         D.map:dup();
 247 --//         D.map:size();  --// perhaps overide the # operator?  For now it's only gonna return 4 anyway.
 248
 249          --// example of deleting something
 250          --// D.tim:del();
 251
 252          --// test the color_class stuff
 253          colour = edje.color_class("test_colour");
 254          print("lua::color_class= " .. colour.r .. "," .. colour.g .. "," .. colour.b .. "," .. colour.a);
 255          colour = edje.color_class("test_colour", 32, 64, 255, 128);
 256          print("lua::color_class= " .. colour.r .. "," .. colour.g .. "," .. colour.b .. "," .. colour.a);
 257          colour = edje.color_class("test_colour", { r=255, g=0, b=255, a=255 });
 258          print("lua::color_class= " .. colour.r .. "," .. colour.g .. "," .. colour.b .. "," .. colour.a);
 259          text = edje.text_class("test_text_class", "Sans:style=Bold", 8);
 260          print("lua::text_class= " .. text.font .. " size " .. text.size);
 261
 262          --// Do something bad, just to see what happens.
 263 --//         edje.color_class(nil);
 264
 265          --// shutdown func - generally empty or not there. everything garbage collected for you
 266          function shutdown ()
 267             print("lua::shutdown ... " .. D.val);
 268          end
 269
 270          function show ()
 271             print("lua::show ... " .. D.val);
 272          end
 273
 274          function hide ()
 275             print("lua::hide ... " .. D.val);
 276          end
 277
 278          function move (x, y)
 279             print("lua::move x=" .. x .. " x=" .. y);
 280             D.edje:move(0, 0);
 281          end
 282
 283          function resize (w, h)
 284             print("lua::resize w=" .. w .. " h=" .. h);
 285             D.text:move((w - text_geom.w) / 2, (h - text_geom.h) / 8);
 286             D.edje:resize(w, h);
 287          end
 288
 289          function message (id, type, ...)
 290             print("lua::message id=" .. id .. " type=" .. type);
 291             --// handle your message type here. check id + type then use the
 292             --// vararg appropriately. they are the same as the params passed
 293             --// to edje:messagesend() (if any are passed at all).  Any array
 294             --// arguments are passed as a single table.
 295
 296             if ("none" == type) then
 297                print("lua::message no args");
 298             elseif ("strset" == type) then
 299                strs = ... ;
 300                print_table_start(strs, "", "lua::message strings");
 301             elseif ("intset" == type) then
 302                ints = ... ;
 303                print_table_start(ints, "", "lua::message ints");
 304             elseif ("floatset" == type) then
 305                floats = ... ;
 306                print_table_start(floats, "", "lua::message floats");
 307             elseif ("strintset" == type) then
 308                str, ints = ... ;
 309                print("lua::message " .. str);
 310                print_table_start(ints, "", "lua::message ints");
 311             elseif ("strfloatset" == type) then
 312                str, floats = ... ;
 313                print("lua::message " .. str);
 314                print_table_start(floats, "", "lua::message floats");
 315             else
 316                print("lua::message " .. ... );
 317             end
 318          end
 319
 320          function signal (sig, src)
 321             print("lua::signal sig= " .. sig .. " src= " .. src);
 322          end
 323       }
 324    }
 325
 326    // The group name NEEDS a / in it,
 327    // or the part below that tries to swallow it won't work.
 328    // Leaving just the lua part visible.
 329    group {
 330       name: "bubbles/lua";
 331       lua_script_only: 1;
 332       lua_script {
 333          local bubbles = { };
 334          local bubbleCols = 8;
 335          local bubbleRows = 6;
 336
 337          for i = 1, bubbleRows do
 338             row = { };
 339             for j = 1, bubbleCols do
 340                image = edje.image();
 341                image:image("bubble.png");
 342                image:show();
 343                table.insert(row, image);
 344             end
 345             table.insert(bubbles, row);
 346          end
 347
 348          function resize (w, h)
 349             for i = 1, bubbleRows do
 350                for j = 1, bubbleCols do
 351                   w1 = w / bubbleCols;
 352                   h1 = h / bubbleRows;
 353                   bubbles[i][j]:geom((j - 1) * w1, (i - 1) * h1, w1, h1);
 354                   if ((1 == i) or (1 == j) or (bubbleRows == i) or (bubbleCols == j)) then
 355                      bubbles[i][j]:color(0, 255, 0, 200);
 356                   else
 357                      bubbles[i][j]:color(math.random(200) + 55, 0, math.random(255) + 55, 200);
 358                   end
 359                end
 360             end
 361          end
 362       }
 363    }
 364
 365    group {
 366       name: "plain/edje/group";
 367       parts {
 368          part {
 369             name: "background";
 370             type: RECT;
 371             mouse_events: 0;
 372             description {
 373                state: "default" 0.0;
 374                color: 0 0 0 255;
 375             }
 376          }
 377
 378          // A lua group embedded in an edje group.
 379          part {
 380             name: "bubbles_lua";
 381             type: GROUP;
 382             source: "bubbles/lua";
 383             mouse_events: 0;
 384             description { state: "default" 0.0; }
 385          }
 386
 387          part {
 388             name: "background_image";
 389             type: IMAGE;
 390             mouse_events: 0;
 391             description {
 392                state: "default" 0.0;
 393                aspect_preference: HORIZONTAL;
 394                color_class: "test_colour";
 395                image { normal: "test.png"; }
 396             }
 397          }
 398
 399          part {
 400             name: "some_text";
 401             type: TEXT;
 402             mouse_events: 0;
 403             description {
 404                state: "default" 0;
 405                text
 406                {
 407                   text: "This is test text.";
 408                   text_class: "test_text_class";
 409                }
 410             }
 411          }
 412
 413       }
 414    }
 415
 416 }
 417