[popup] opensource mergie (r69790)
[framework/uifw/elementary.git] / src / bin / test_flip_page.c
index c286ee4..6e6511e 100644 (file)
@@ -4,8 +4,6 @@
 #endif
 #ifndef ELM_LIB_QUICKLAUNCH
 
-//#define PAGEMESH 1
-
 typedef struct _State State;
 typedef struct _Slice Slice;
 
@@ -14,12 +12,18 @@ typedef struct _Vertex3 Vertex3;
 
 struct _State
 {
-   Evas_Object *orig, *win;
-   Evas_Coord down_x, down_y;
-   Eina_Bool  down : 1;
-   Evas_Coord x, y;
-   Slice *base;
-   Eina_List *slices;
+   Evas_Object *front, *back;
+   Evas_Coord down_x, down_y, x, y;
+   Eina_Bool down : 1;
+   Eina_Bool backflip : 1;
+
+   Ecore_Animator *anim;
+   Ecore_Job *job;
+   Evas_Coord ox, oy, w, h;
+   int slices_w, slices_h;
+   Slice **slices, **slices2;
+   int dir; // 0 == left, 1 == right, 2 == up, 3 == down
+   int finish;
 };
 
 struct _Slice
@@ -29,8 +33,7 @@ struct _Slice
    //  |     |
    //  |     |
    // (3)---(2)
-   double u[4], v[4];
-   double x[4], y[4], z[4];
+   double u[4], v[4], x[4], y[4], z[4];
 };
 
 struct _Vertex2
@@ -46,27 +49,30 @@ struct _Vertex3
 static State state =
 {
    NULL, NULL,
-   0, 0,
+   0, 0, 0, 0,
    0,
-   0, 0,
+   0,
+
+   NULL,
    NULL,
-   NULL
+   0, 0, 0, 0,
+   0, 0,
+   NULL, NULL,
+   -1,
+   0
 };
 
-#define RES 32
-
 static Slice *
-_slice_new(State *st)
+_slice_new(State *st __UNUSED__, Evas_Object *obj)
 {
    Slice *sl;
-   
+
    sl = calloc(1, sizeof(Slice));
    if (!sl) return NULL;
-   sl->obj = evas_object_image_add(evas_object_evas_get(st->win));
+   sl->obj = evas_object_image_add(evas_object_evas_get(obj));
    evas_object_image_smooth_scale_set(sl->obj, 0);
    evas_object_pass_events_set(sl->obj, 1);
-   evas_object_image_source_set(sl->obj, st->orig);
-   evas_object_show(sl->obj);
+   evas_object_image_source_set(sl->obj, obj);
    return sl;
 }
 
@@ -78,53 +84,113 @@ _slice_free(Slice *sl)
 }
 
 static void
-_slice_apply(Slice *sl, Evas_Coord x, Evas_Coord y, Evas_Coord w, Evas_Coord h)
+_slice_apply(State *st, Slice *sl,
+             Evas_Coord x __UNUSED__, Evas_Coord y __UNUSED__, Evas_Coord w, Evas_Coord h __UNUSED__,
+             Evas_Coord ox, Evas_Coord oy, Evas_Coord ow, Evas_Coord oh)
 {
    Evas_Map *m;
    int i;
-   
+
    m = evas_map_new(4);
+   if (!m) return;
    evas_map_smooth_set(m, 0);
-
    for (i = 0; i < 4; i++)
      {
-        evas_map_point_coord_set(m, i, x + sl->x[i], y + sl->y[i], sl->z[i]);
-        evas_map_point_image_uv_set(m, i, sl->u[i] , sl->v[i]);
         evas_map_point_color_set(m, i, 255, 255, 255, 255);
+        if (st->dir == 0)
+          {
+             int p[4] = { 0, 1, 2, 3 };
+             evas_map_point_coord_set(m, i, ox + sl->x[p[i]], oy + sl->y[p[i]], sl->z[p[i]]);
+             evas_map_point_image_uv_set(m, i, sl->u[p[i]] , sl->v[p[i]]);
+          }
+        else if (st->dir == 1)
+          {
+             int p[4] = { 1, 0, 3, 2 };
+             evas_map_point_coord_set(m, i, ox + (w - sl->x[p[i]]), oy + sl->y[p[i]], sl->z[p[i]]);
+             evas_map_point_image_uv_set(m, i, ow - sl->u[p[i]] , sl->v[p[i]]);
+          }
+        else if (st->dir == 2)
+          {
+             int p[4] = { 1, 0, 3, 2 };
+             evas_map_point_coord_set(m, i, ox + sl->y[p[i]], oy + sl->x[p[i]], sl->z[p[i]]);
+             evas_map_point_image_uv_set(m, i, sl->v[p[i]] , sl->u[p[i]]);
+          }
+        else if (st->dir == 3)
+          {
+             int p[4] = { 0, 1, 2, 3 };
+             evas_map_point_coord_set(m, i, ox + sl->y[p[i]], oy + (w - sl->x[p[i]]), sl->z[p[i]]);
+             evas_map_point_image_uv_set(m, i, sl->v[p[i]] , oh - sl->u[p[i]]);
+          }
      }
-   
-   evas_map_util_3d_perspective(m, x + (w / 2), y + (h / 2), 0, 512);
-
-/*
-   // FIXME: lighting should be manual with pt 0 and 3 being white and
-   // 2 and 3 matching the
-   evas_map_util_3d_lighting(m,
-                             0  , 0  , -1000,
-                             255, 255, 255,
-                             20 , 20 , 20);
- */
-   
    evas_object_map_enable_set(sl->obj, EINA_TRUE);
-   evas_object_image_fill_set(sl->obj, 0, 0, w, h);
+   evas_object_image_fill_set(sl->obj, 0, 0, ow, oh);
    evas_object_map_set(sl->obj, m);
    evas_map_free(m);
 }
 
 static void
-_slice_xyz(Slice *sl, 
-           double x1, double y1, double z1,
-           double x2, double y2, double z2,
-           double x3, double y3, double z3,
-           double x4, double y4, double z4)
+_slice_3d(State *st __UNUSED__, Slice *sl, Evas_Coord x, Evas_Coord y, Evas_Coord w, Evas_Coord h)
 {
-   sl->x[0] = x1; sl->y[0] = y1; sl->z[0] = z1;
-   sl->x[1] = x2; sl->y[1] = y2; sl->z[1] = z2;
-   sl->x[2] = x3; sl->y[2] = y3; sl->z[2] = z3;
-   sl->x[3] = x4; sl->y[3] = y4; sl->z[3] = z4;
+   Evas_Map *m = (Evas_Map *)evas_object_map_get(sl->obj);
+   int i;
+
+   if (!m) return;
+   // vanishing point is center of page, and focal dist is 1024
+   evas_map_util_3d_perspective(m, x + (w / 2), y + (h / 2), 0, 1024);
+   for (i = 0; i < 4; i++)
+     {
+        Evas_Coord xx, yy, zz;
+        evas_map_point_coord_get(m, i, &xx, &yy, &zz);
+        evas_map_point_coord_set(m, i, xx, yy, 0);
+     }
+   if (evas_map_util_clockwise_get(m)) evas_object_show(sl->obj);
+   else evas_object_hide(sl->obj);
+   evas_object_map_set(sl->obj, m);
+}
+
+static void
+_slice_light(State *st __UNUSED__, Slice *sl, Evas_Coord x, Evas_Coord y, Evas_Coord w, Evas_Coord h)
+{
+   Evas_Map *m = (Evas_Map *)evas_object_map_get(sl->obj);
+   int i;
+
+   if (!m) return;
+   evas_map_util_3d_lighting(m,
+                             // light position
+                             // (centered over page 10 * h toward camera)
+                             x + (w / 2)  , y + (h / 2)  , -10000,
+                             255, 255, 255, // light color
+                             0 , 0 , 0); // ambient minimum
+   // multiply brightness by 1.2 to make lightish bits all white so we dont
+   // add shading where we could otherwise be pure white
+   for (i = 0; i < 4; i++)
+     {
+        int r, g, b, a;
+
+        evas_map_point_color_get(m, i, &r, &g, &b, &a);
+        r = (double)r * 1.2; if (r > 255) r = 255;
+        g = (double)g * 1.2; if (g > 255) g = 255;
+        b = (double)b * 1.2; if (b > 255) b = 255;
+        evas_map_point_color_set(m, i, r, g, b, a);
+     }
+   evas_object_map_set(sl->obj, m);
 }
 
 static void
-_slice_uv(Slice *sl, 
+_slice_xyz(State *st __UNUSED__, Slice *sl,
+           double xx1, double yy1, double zz1,
+           double xx2, double yy2, double zz2,
+           double xx3, double yy3, double zz3,
+           double xx4, double yy4, double zz4)
+{
+   sl->x[0] = xx1; sl->y[0] = yy1; sl->z[0] = zz1;
+   sl->x[1] = xx2; sl->y[1] = yy2; sl->z[1] = zz2;
+   sl->x[2] = xx3; sl->y[2] = yy3; sl->z[2] = zz3;
+   sl->x[3] = xx4; sl->y[3] = yy4; sl->z[3] = zz4;
+}
+
+static void
+_slice_uv(State *st __UNUSED__, Slice *sl,
            double u1, double v1,
            double u2, double v2,
            double u3, double v3,
@@ -136,10 +202,7 @@ _slice_uv(Slice *sl,
    sl->u[3] = u4; sl->v[3] = v4;
 }
 
-#ifdef PAGEMESH
-static Evas_Object *sl_rho, *sl_theta, *sl_A;
-
-static void 
+static void
 _deform_point(Vertex2 *vi, Vertex3 *vo, double rho, double theta, double A)
 {
    // ^Y
@@ -149,349 +212,708 @@ _deform_point(Vertex2 *vi, Vertex3 *vo, double rho, double theta, double A)
    // theta == cone angle (0 -> PI/2)
    // A     == distance of cone apex from origin
    // rho   == angle of cone from vertical axis (...-PI/2 to PI/2...)
-   Vertex3  v1;   // First stage of the deformation
-   double R, r, beta;
-   
-   // Radius of the circle circumscribed by vertex (vi->x, vi->y) around A
-   // on the x-y plane
-   R = sqrt(vi->x * vi->x + pow(vi->y - A, 2)); 
-   // Now get the radius of the cone cross section intersected by our vertex
-   // in 3D space.
-   r = R * sin(theta);                       
-   // Angle subtended by arc |ST| on the cone cross section.
-   beta = asin(vi->x / R) / sin(theta);       
-   
-   // *** MAGIC!!! ***
-   v1.x = r * sin(beta);
-   v1.y = R + A - r * (1 - cos(beta)) * sin(theta); 
-   v1.z = r * (1 - cos(beta)) * cos(theta);
-   
-   // Apply a basic rotation transform around the y axis to rotate the curled
-   // page. These two steps could be combined through simple substitution,
-   // but are left separate to keep the math simple for debugging and
-   // illustrative purposes.
+   Vertex3  v1;
+   double d, r, b;
+
+   d = sqrt((vi->x * vi->x) + pow(vi->y - A, 2));
+   r = d * sin(theta);
+   b = asin(vi->x / d) / sin(theta);
+
+   v1.x = r * sin(b);
+   v1.y = d + A - (r * (1 - cos(b)) * sin(theta));
+   v1.z = r * (1 - cos(b)) * cos(theta);
+
    vo->x = (v1.x * cos(rho)) - (v1.z * sin(rho));
    vo->y = v1.y;
    vo->z = (v1.x * sin(rho)) + (v1.z * cos(rho));
 }
 
 static void
-_test(void)
+_interp_point(Vertex3 *vi1, Vertex3 *vi2, Vertex3 *vo, double v)
 {
-   static Eina_List *pts = NULL;
-   Evas_Object *o;
-   Evas_Map *m;
-   int i, j, k;
-   Evas_Coord x, y, w, h;
-   State *st = &state;
-   
-   EINA_LIST_FREE(pts, o) evas_object_del(o);
-   
-   evas_object_geometry_get(st->orig, &x, &y, &w, &h); 
-  for (j = 0; j < h; j += 20)
+   vo->x = (v * vi2->x) + ((1.0 - v) * vi1->x);
+   vo->y = (v * vi2->y) + ((1.0 - v) * vi1->y);
+   vo->z = (v * vi2->z) + ((1.0 - v) * vi1->z);
+}
+
+static void
+_state_slices_clear(State *st)
+{
+   int i, j, num;
+
+   if (st->slices)
      {
-        for (i = 0; i < w; i += 20)
+        num = 0;
+        for (j = 0; j < st->slices_h; j++)
           {
-             Vertex2 vi;
-             Vertex3 vo;
-             double rho, theta, A, n;
-             
-             vi.x = i;
-             vi.y = j;
-             rho = elm_slider_value_get(sl_rho);
-             A = elm_slider_value_get(sl_A);
-             theta = elm_slider_value_get(sl_theta);
-             
-             _deform_point(&vi, &vo, rho, theta, A);
-             
-             o = evas_object_image_add(evas_object_evas_get(st->win));
-             evas_object_image_smooth_scale_set(o, 0);
-             evas_object_pass_events_set(o, 1);
-             evas_object_image_source_set(o, st->orig);
-             evas_object_show(o);
-             
-             m = evas_map_new(4);
-             evas_map_smooth_set(m, 0);
-             
-             k = 0;
-             evas_map_point_coord_set(m, k, x + vo.x, y + vo.y, -vo.z);
-             evas_map_point_image_uv_set(m, k, 0 , 0);
-             evas_map_point_color_set(m, k, 255, 255, 255, 255);
-             k++;
-             evas_map_point_coord_set(m, k, x + vo.x + 10, y + vo.y, -vo.z);
-             evas_map_point_image_uv_set(m, k, w , 0);
-             evas_map_point_color_set(m, k, 255, 255, 255, 255);
-             k++;
-             evas_map_point_coord_set(m, k, x + vo.x + 10, y + vo.y + 10, -vo.z);
-             evas_map_point_image_uv_set(m, k, w , h);
-             evas_map_point_color_set(m, k, 255, 255, 255, 255);
-             k++;
-             evas_map_point_coord_set(m, k, x + vo.x, y + vo.y + 10, -vo.z);
-             evas_map_point_image_uv_set(m, k, 0 , h);
-             evas_map_point_color_set(m, k, 255, 255, 255, 255);
-             k++;
-             
-             evas_map_util_3d_perspective(m, x + (w / 2), y + (h / 2), 0, 512);
-             
-             evas_object_map_enable_set(o, EINA_TRUE);
-             evas_object_image_fill_set(o, 0, 0, w, h);
-             evas_object_map_set(o, m);
-             evas_map_free(m);
-             
-             pts = eina_list_append(pts, o);
+             for (i = 0; i < st->slices_w; i++)
+               {
+                  if (st->slices[num]) _slice_free(st->slices[num]);
+                  if (st->slices2[num]) _slice_free(st->slices2[num]);
+                  num++;
+               }
           }
+        free(st->slices);
+        free(st->slices2);
+        st->slices = NULL;
+        st->slices2 = NULL;
      }
+   st->slices_w = 0;
+   st->slices_h = 0;
+}
+
+static int
+_slice_obj_color_sum(Slice *s, int p, int *r, int *g, int *b, int *a)
+{
+   Evas_Map *m;
+   int rr = 0, gg = 0, bb = 0, aa = 0;
+
+   if (!s) return 0;
+   m = (Evas_Map *)evas_object_map_get(s->obj);
+   if (!m) return 0;
+   evas_map_point_color_get(m, p, &rr, &gg, &bb, &aa);
+   *r += rr; *g += gg; *b += bb; *a += aa;
+   return 1;
 }
 
 static void
-_sl_ch(void *data __UNUSED__, Evas_Object *obj __UNUSED__, void *event_info __UNUSED__)
+_slice_obj_color_set(Slice *s, int p, int r, int g, int b, int a)
 {
-   _test();
+   Evas_Map *m;
+
+   if (!s) return;
+   m = (Evas_Map *)evas_object_map_get(s->obj);
+   if (!m) return;
+   evas_map_point_color_set(m, p, r, g, b, a);
+   evas_object_map_set(s->obj, m);
 }
-#endif   
 
 static void
-_slice_update(State *st)
+_slice_obj_vert_color_merge(Slice *s1, int p1, Slice *s2, int p2,
+                            Slice *s3, int p3, Slice *s4, int p4)
 {
-   Evas_Coord x1, y1, x2, y2, mx, my, px, rx, ry, prx, pry, dst, dx, dy, pdst;
-   Evas_Coord x, y, w, h;
-   int i;
+   int r = 0, g = 0, b = 0, a = 0, n = 0;
+
+   n += _slice_obj_color_sum(s1, p1, &r, &g, &b, &a);
+   n += _slice_obj_color_sum(s2, p2, &r, &g, &b, &a);
+   n += _slice_obj_color_sum(s3, p3, &r, &g, &b, &a);
+   n += _slice_obj_color_sum(s4, p4, &r, &g, &b, &a);
+
+   if (n < 1) return;
+   r /= n; g /= n; b /= n; a /= n;
+
+   _slice_obj_color_set(s1, p1, r, g, b, a);
+   _slice_obj_color_set(s2, p2, r, g, b, a);
+   _slice_obj_color_set(s3, p3, r, g, b, a);
+   _slice_obj_color_set(s4, p4, r, g, b, a);
+}
+
+static int
+_state_update(State *st)
+{
+   Evas_Coord xx1, yy1, xx2, yy2, mx, my, dst, dx, dy;
+   Evas_Coord x, y, w, h, ox, oy, ow, oh;
+   int i, j, num, nn, jump, num2;
    Slice *sl;
-   int rad;
+   double b, minv = 0.0, minva, mgrad;
+   int gx, gy, gszw, gszh, gw, gh, col, row, nw, nh;
+   double rho, A, theta, perc, percm, n, rhol, Al, thetal;
+   Vertex3 *tvo, *tvol;
+
+   st->backflip = 0;
+
+   evas_object_geometry_get(st->front, &x, &y, &w, &h);
+   ox = x; oy = y; ow = w; oh = h;
+   xx1 = st->down_x;
+   yy1 = st->down_y;
+   xx2 = st->x;
+   yy2 = st->y;
+
+   dx = xx2 - xx1;
+   dy = yy2 - yy1;
+   dst = sqrt((dx * dx) + (dy * dy));
+   if (st->dir == -1)
+     {
+        if (dst < 20) // MAGIC: 20 == drag hysterisis
+           return 0;
+     }
+   if (st->dir == -1)
+     {
+        if      ((xx1 > (w / 2)) && (dx <  0) && (abs(dx) >  abs(dy))) st->dir = 0; // left
+        else if ((xx1 < (w / 2)) && (dx >= 0) && (abs(dx) >  abs(dy))) st->dir = 1; // right
+        else if ((yy1 > (h / 2)) && (dy <  0) && (abs(dy) >= abs(dx))) st->dir = 2; // up
+        else if ((yy1 < (h / 2)) && (dy >= 0) && (abs(dy) >= abs(dx))) st->dir = 3; // down
+        if (st->dir == -1) return 0;
+     }
+   if (st->dir == 0)
+     {
+        // no nothing. left drag is standard
+     }
+   else if (st->dir == 1)
+     {
+        xx1 = (w - 1) - xx1;
+        xx2 = (w - 1) - xx2;
+     }
+   else if (st->dir == 2)
+     {
+        Evas_Coord tmp;
 
-   evas_object_geometry_get(st->orig, &x, &y, &w, &h);
-   x1 = st->down_x;
-   y1 = st->down_y;
-   x2 = st->x;
-   y2 = st->y;
-   mx = (x1 + x2) / 2;
-   my = (y1 + y2) / 2;
+        tmp = xx1; xx1 = yy1; yy1 = tmp;
+        tmp = xx2; xx2 = yy2; yy2 = tmp;
+        tmp = w; w = h; h = tmp;
+     }
+   else if (st->dir == 3)
+     {
+        Evas_Coord tmp;
+
+        tmp = xx1; xx1 = yy1; yy1 = tmp;
+        tmp = xx2; xx2 = yy2; yy2 = tmp;
+        tmp = w; w = h; h = tmp;
+        xx1 = (w - 1) - xx1;
+        xx2 = (w - 1) - xx2;
+     }
+
+   if (xx2 >= xx1) xx2 = xx1 - 1;
+   mx = (xx1 + xx2) / 2;
+   my = (yy1 + yy2) / 2;
 
    if (mx < 0) mx = 0;
    else if (mx >= w) mx = w - 1;
    if (my < 0) my = 0;
    else if (my >= h) my = h - 1;
 
-   if (!st->base) st->base = _slice_new(st);
-   sl = st->base;
-   
-   _slice_xyz(sl,
-              0,  0,  0,
-              mx, 0,  0,
-              mx, h,  0,
-              0,  h,  0);
-   _slice_uv(sl,
-             0,  0,
-             mx, 0,
-             mx, h,
-             0,  h);
-   _slice_apply(sl, x, y, w, h);
-   
-   EINA_LIST_FREE(st->slices, sl) _slice_free(sl);
-
-   // cylinder radius is width / 8
-   rad = (w - mx) / 4;
-   if (rad < (w / 16)) rad = (w / 16);
-   if (rad > (w / 8)) rad = w / 8;
-
-   rad = w / 10;
-
-   px = mx;
-   prx = 0;
-   pry = rad;
-   for (i = 1; i < RES; i++)
+   mgrad = (double)(yy1 - yy2) / (double)(xx1 - xx2);
+
+   if (mx < 1) mx = 1; // quick hack to keep curl line visible
+
+   if (mgrad == 0.0) // special horizontal case
+      mgrad = 0.001; // quick dirty hack for now
+   // else
      {
-        rx = (double)rad * sin((i * M_PI) / RES);
-        ry = (double)rad * cos((i * M_PI) / RES);
-        dx = rx - prx;
-        dy = ry - pry;
-        dst = sqrt((dx * dx) + (dy * dy));
-        if ((px + dst) > w)
+        minv = 1.0 / mgrad;
+        // y = (m * x) + b
+        b = my + (minv * mx);
+     }
+   if ((b >= -5) && (b <= (h + 5)))
+     {
+        if (minv > 0.0) // clamp to h
+          {
+             minv = (double)(h + 5 - my) / (double)(mx);
+             b = my + (minv * mx);
+          }
+        else // clamp to 0
+          {
+             minv = (double)(-5 - my) / (double)(mx);
+             b = my + (minv * mx);
+          }
+     }
+
+   perc = (double)xx2 / (double)xx1;
+   percm = (double)mx / (double)xx1;
+   if (perc < 0.0) perc = 0.0;
+   else if (perc > 1.0) perc = 1.0;
+   if (percm < 0.0) percm = 0.0;
+   else if (percm > 1.0) percm = 1.0;
+
+   minva = atan(minv) / (M_PI / 2);
+   if (minva < 0.0) minva = -minva;
+
+   // A = apex of cone
+   if (b <= 0) A = b;
+   else A = h - b;
+   if (A < -(h * 20)) A = -h * 20;
+   //--//
+   Al = -5;
+
+   // rho = is how much the page is turned
+   n = 1.0 - perc;
+   n = 1.0 - cos(n * M_PI / 2.0);
+   n = n * n;
+   rho = -(n * M_PI);
+   //--//
+   rhol = -(n * M_PI);
+
+   // theta == curliness (how much page culrs in on itself
+   n = sin((1.0 - perc) * M_PI);
+   n = n * 1.2;
+   theta = 7.86 + n;
+   //--//
+   n = sin((1.0 - perc) * M_PI);
+   n = 1.0 - n;
+   n = n * n;
+   n = 1.0 - n;
+   thetal = 7.86 + n;
+
+   nw = 16;
+   nh = 16;
+   gszw = w / nw;
+   gszh = h / nh;
+   if (gszw < 4) gszw = 4;
+   if (gszh < 4) gszh = 4;
+
+   nw = (w + gszw - 1) / gszw;
+   nh = (h + gszh - 1) / gszh;
+   if ((st->slices_w != nw) || (st->slices_h != nh)) _state_slices_clear(st);
+   st->slices_w = nw;
+   st->slices_h = nh;
+   if (!st->slices)
+     {
+        st->slices = calloc(st->slices_w * st->slices_h, sizeof(Slice *));
+        if (!st->slices) return 0;
+        st->slices2 = calloc(st->slices_w * st->slices_h, sizeof(Slice *));
+        if (!st->slices2)
           {
-             pdst = dst;
-             dst = w - px;
-             rx = prx + (((rx - prx) * dst) / pdst);
-             ry = pry + (((ry - pry) * dst) / pdst);
+             free(st->slices);
+             st->slices = NULL;
+             return 0;
           }
-        if (dst <= 0) break;
-
-        sl = _slice_new(st);
-
-        _slice_xyz(sl, 
-                   mx + prx, 0, -(rad - pry),
-                   mx + rx,  0, -(rad - ry),
-                   mx + rx,  h, -(rad - ry),
-                   mx + prx, h, -(rad - pry));
-        _slice_uv(sl,
-                  px,       0,
-                  px + dst, 0,
-                  px + dst, h,
-                  px,       h);
-        _slice_apply(sl, x, y, w, h);
-        st->slices = eina_list_append(st->slices, sl);
-        
-        prx = rx;
-        pry = ry;
-        px += dst;
      }
-   if (px < w)
+
+   num = (st->slices_w + 1) * (st->slices_h + 1);
+
+   tvo = alloca(sizeof(Vertex3) * num);
+   tvol = alloca(sizeof(Vertex3) * (st->slices_w + 1));
+
+   for (col = 0, gx = 0; gx <= (w + gszw - 1); gx += gszw, col++)
      {
-        sl = _slice_new(st);
-        
-        _slice_xyz(sl, 
-                   mx + prx,      0, -(rad - pry),
-                   mx + (px - w), 0, -(rad * 2),
-                   mx + (px - w), h, -(rad * 2),
-                   mx + prx,      h, -(rad - pry));
-        _slice_uv(sl,
-                  px, 0,
-                  w,  0,
-                  w,  h,
-                  px, h);
-        _slice_apply(sl, x, y, w, h);
-        st->slices = eina_list_append(st->slices, sl);
+        Vertex2 vil;
+
+        vil.x = gx;
+        vil.y = h - gx;
+        _deform_point(&vil, &(tvol[col]), rhol, thetal, Al);
      }
+
+   n = minva * sin(perc * M_PI);
+   n = n * n;
+
+   num = 0;
+   for (col = 0, gx = 0; gx <= (w + gszw - 1); gx += gszw, col++)
+     {
+        for (gy = 0; gy <= (h + gszh - 1); gy += gszh)
+          {
+             Vertex2 vi;
+             Vertex3 vo, tvo1;
+
+             if (gx > w) vi.x = w;
+             else vi.x = gx;
+             if (gy > h) vi.y = h;
+             else vi.y = gy;
+             _deform_point(&vi, &vo, rho, theta, A);
+             tvo1 = tvol[col];
+             if (gy > h) tvo1.y = h;
+             else tvo1.y = gy;
+             _interp_point(&vo, &tvo1, &(tvo[num]), n);
+             num++;
+          }
+     }
+
+   jump = st->slices_h + 1;
+   for (col = 0, gx = 0; gx < w; gx += gszw, col++)
+     {
+        num = st->slices_h * col;
+        num2 = jump * col;
+
+        gw = gszw;
+        if ((gx + gw) > w) gw = w - gx;
+
+        for (row = 0, gy = 0; gy < h; gy += gszh, row++)
+          {
+             Vertex3 vo[4];
+
+             if (b > 0) nn = num + st->slices_h - row - 1;
+             else nn = num + row;
+
+             gh = gszh;
+             if ((gy + gh) > h) gh = h - gy;
+
+             vo[0] = tvo[num2 + row];
+             vo[1] = tvo[num2 + row + jump];
+             vo[2] = tvo[num2 + row + jump + 1];
+             vo[3] = tvo[num2 + row + 1];
+#define SWP(a, b) do {typeof(a) vt; vt = (a); (a) = (b); (b) = vt;} while (0)
+             if (b > 0)
+               {
+                  SWP(vo[0], vo[3]);
+                  SWP(vo[1], vo[2]);
+                  vo[0].y = h - vo[0].y;
+                  vo[1].y = h - vo[1].y;
+                  vo[2].y = h - vo[2].y;
+                  vo[3].y = h - vo[3].y;
+               }
+
+             // FRONT
+             sl = st->slices[nn];
+             if (!sl)
+               {
+                  sl = _slice_new(st, st->front);
+                  st->slices[nn] = sl;
+               }
+             _slice_xyz(st, sl,
+                        vo[0].x, vo[0].y, vo[0].z,
+                        vo[1].x, vo[1].y, vo[1].z,
+                        vo[2].x, vo[2].y, vo[2].z,
+                        vo[3].x, vo[3].y, vo[3].z);
+             if (b <= 0)
+                _slice_uv(st, sl,
+                          gx,       gy,       gx + gw,  gy,
+                          gx + gw,  gy + gh,  gx,       gy + gh);
+             else
+                _slice_uv(st, sl,
+                          gx,       h - (gy + gh), gx + gw,  h - (gy + gh),
+                          gx + gw,  h - gy,        gx,       h - gy);
+
+             // BACK
+             sl = st->slices2[nn];
+             if (!sl)
+               {
+                  sl = _slice_new(st, st->back);
+                  st->slices2[nn] = sl;
+               }
+
+             _slice_xyz(st, sl,
+                        vo[1].x, vo[1].y, vo[1].z,
+                        vo[0].x, vo[0].y, vo[0].z,
+                        vo[3].x, vo[3].y, vo[3].z,
+                        vo[2].x, vo[2].y, vo[2].z);
+             if (st->backflip)
+               {
+                  if (b <= 0)
+                     _slice_uv(st, sl,
+                               gx + gw, gy,       gx,       gy,
+                               gx,      gy + gh,  gx + gw,  gy + gh);
+                  else
+                     _slice_uv(st, sl,
+                               gx + gw, h - (gy + gh), gx,      h - (gy + gh),
+                               gx,      h - gy,        gx + gw, h - gy);
+               }
+             else
+               {
+                  if (b <= 0)
+                     _slice_uv(st, sl,
+                               w - (gx + gw), gy,       w - (gx),      gy,
+                               w - (gx),      gy + gh,  w - (gx + gw), gy + gh);
+                  else
+                     _slice_uv(st, sl,
+                               w - (gx + gw), h - (gy + gh), w - (gx),      h - (gy + gh),
+                               w - (gx),      h - gy,        w - (gx + gw), h - gy);
+               }
+          }
+     }
+
+   num = 0;
+   for (j = 0; j < st->slices_h; j++)
+     {
+        for (i = 0; i < st->slices_w; i++)
+          {
+             _slice_apply(st, st->slices[num], x, y, w, h, ox, oy, ow, oh);
+             _slice_apply(st, st->slices2[num], x, y, w, h, ox, oy, ow, oh);
+             _slice_light(st, st->slices[num], ox, oy, ow, oh);
+             _slice_light(st, st->slices2[num], ox, oy, ow, oh);
+             num++;
+          }
+     }
+
+   for (i = 0; i <= st->slices_w; i++)
+     {
+        num = i * st->slices_h;
+        for (j = 0; j <= st->slices_h; j++)
+          {
+             Slice *s[4];
+
+             s[0] = s[1] = s[2] = s[3] = NULL;
+             if ((i > 0)            && (j > 0))
+                s[0] = st->slices[num - 1 - st->slices_h];
+             if ((i < st->slices_w) && (j > 0))
+                s[1] = st->slices[num - 1];
+             if ((i > 0)            && (j < st->slices_h))
+                s[2] = st->slices[num - st->slices_h];
+             if ((i < st->slices_w) && (j < st->slices_h))
+                s[3] = st->slices[num];
+             if (st->dir == 0)
+                _slice_obj_vert_color_merge(s[0], 2, s[1], 3,
+                                            s[2], 1, s[3], 0);
+             else if (st->dir == 1)
+                _slice_obj_vert_color_merge(s[0], 3, s[1], 2,
+                                            s[2], 0, s[3], 1);
+             else if (st->dir == 2)
+                _slice_obj_vert_color_merge(s[0], 3, s[1], 2,
+                                            s[2], 0, s[3], 1);
+             else if (st->dir == 3)
+                _slice_obj_vert_color_merge(s[0], 2, s[1], 3,
+                                            s[2], 1, s[3], 0);
+             s[0] = s[1] = s[2] = s[3] = NULL;
+             if ((i > 0)            && (j > 0))
+                s[0] = st->slices2[num - 1 - st->slices_h];
+             if ((i < st->slices_w) && (j > 0))
+                s[1] = st->slices2[num - 1];
+             if ((i > 0)            && (j < st->slices_h))
+                s[2] = st->slices2[num - st->slices_h];
+             if ((i < st->slices_w) && (j < st->slices_h))
+                s[3] = st->slices2[num];
+             if (st->dir == 0)
+                _slice_obj_vert_color_merge(s[0], 3, s[1], 2,
+                                            s[2], 0, s[3], 1);
+             else if (st->dir == 1)
+                _slice_obj_vert_color_merge(s[0], 2, s[1], 3,
+                                            s[2], 1, s[3], 0);
+             else if (st->dir == 2)
+                _slice_obj_vert_color_merge(s[0], 2, s[1], 3,
+                                            s[2], 1, s[3], 0);
+             else if (st->dir == 3)
+                _slice_obj_vert_color_merge(s[0], 3, s[1], 2,
+                                            s[2], 0, s[3], 1);
+             num++;
+          }
+     }
+
+   num = 0;
+   for (i = 0; i < st->slices_w; i++)
+     {
+        for (j = 0; j < st->slices_h; j++)
+          {
+             _slice_3d(st, st->slices[num], ox, oy, ow, oh);
+             _slice_3d(st, st->slices2[num], ox, oy, ow, oh);
+             num++;
+          }
+     }
+
+   return 1;
 }
 
 static void
-_slice_end(State *st)
+_state_end(State *st)
 {
-   Slice *sl;
-   
-   if (st->base) _slice_free(st->base);
-   st->base = NULL;
-   EINA_LIST_FREE(st->slices, sl) _slice_free(sl);
+   _state_slices_clear(st);
+}
+
+static Eina_Bool
+_state_anim(void *data, double pos)
+{
+   State *st = data;
+   double p;
+
+   p = ecore_animator_pos_map(pos, ECORE_POS_MAP_ACCELERATE, 0.0, 0.0);
+   if (st->finish)
+     {
+        if (st->dir == 0)
+           st->x = st->ox * (1.0 - p);
+        else if (st->dir == 1)
+           st->x = st->ox + ((st->w - st->ox) * p);
+        else if (st->dir == 2)
+           st->y = st->oy * (1.0 - p);
+        else if (st->dir == 3)
+           st->y = st->oy + ((st->h - st->oy) * p);
+     }
+   else
+     {
+        if (st->dir == 0)
+           st->x = st->ox + ((st->w - st->ox) * p);
+        else if (st->dir == 1)
+           st->x = st->ox * (1.0 - p);
+        else if (st->dir == 2)
+           st->y = st->oy + ((st->h - st->oy) * p);
+        else if (st->dir == 3)
+           st->y = st->oy * (1.0 - p);
+     }
+   _state_update(st);
+   if (pos < 1.0) return EINA_TRUE;
+   evas_object_show(st->front);
+   evas_object_show(st->back);
+   _state_end(st);
+   st->anim = NULL;
+   return EINA_FALSE;
+}
+
+static void
+_update_curl_job(void *data)
+{
+   State *st = data;
+   st->job = NULL;
+   if (_state_update(st))
+     {
+        evas_object_hide(st->front);
+        evas_object_hide(st->back);
+     }
 }
 
 static void
-im_down_cb(void *data, Evas *e __UNUSED__, Evas_Object *obj, void *event_info)
+im_down_cb(void *data, Evas *e __UNUSED__, Evas_Object *obj __UNUSED__, void *event_info)
 {
+   State *st = &state;
    Evas_Event_Mouse_Down *ev = event_info;
-   Evas_Object *win = data;
-   Evas_Coord x, y;
+   Evas_Coord x, y, w, h;
 
    if (ev->button != 1) return;
-   evas_object_geometry_get(obj, &x, &y, NULL, NULL);
-   state.orig = obj;
-   state.win = win;
-   state.down = 1;
-   state.x = ev->canvas.x - x;
-   state.y = ev->canvas.y - y;
-   state.down_x = state.x;
-   state.down_y = state.y;
-   evas_object_lower(obj);
-   printf("v %i %i\n", state.x, state.y);
-   _slice_update(&state);
+   st->front = data;
+   st->back = evas_object_data_get(data, "im2");
+   st->backflip = 1;
+   st->down = 1;
+   evas_object_geometry_get(st->front, &x, &y, &w, &h);
+   st->x = ev->canvas.x - x;
+   st->y = ev->canvas.y - y;
+   st->w = w;
+   st->h = h;
+   st->down_x = st->x;
+   st->down_y = st->y;
+   st->dir = -1;
+   if (_state_update(st))
+     {
+        evas_object_hide(st->front);
+        evas_object_hide(st->back);
+     }
 }
 
 static void
-im_up_cb(void *data __UNUSED__, Evas *e __UNUSED__, Evas_Object *obj, void *event_info)
+im_up_cb(void *data __UNUSED__, Evas *e __UNUSED__, Evas_Object *obj __UNUSED__, void *event_info)
 {
+   State *st = &state;
    Evas_Event_Mouse_Up *ev = event_info;
-   Evas_Coord x, y;
+   Evas_Coord x, y, w, h;
+   double tm = 0.5;
 
    if (ev->button != 1) return;
-   evas_object_geometry_get(obj, &x, &y, NULL, NULL);
-   state.down = 0;
-   state.x = ev->canvas.x - x;
-   state.y = ev->canvas.y - y;
-   evas_object_raise(obj);
-   printf("^ %i %i\n", state.x, state.y);
-   _slice_end(&state);
+   st->down = 0;
+   evas_object_geometry_get(st->front, &x, &y, &w, &h);
+   st->x = ev->canvas.x - x;
+   st->y = ev->canvas.y - y;
+   st->w = w;
+   st->h = h;
+   st->ox = st->x;
+   st->oy = st->y;
+   if (st->job)
+     {
+        ecore_job_del(st->job);
+        st->job = NULL;
+     }
+   if (st->anim) ecore_animator_del(st->anim);
+   st->finish = 0;
+   if (st->dir == 0)
+     {
+        tm = (double)st->x / (double)st->w;
+        if (st->x < (st->w / 2)) st->finish = 1;
+     }
+   else if (st->dir == 1)
+     {
+        if (st->x > (st->w / 2)) st->finish = 1;
+        tm = 1.0 - ((double)st->x / (double)st->w);
+     }
+   else if (st->dir == 2)
+     {
+        if (st->y < (st->h / 2)) st->finish = 1;
+        tm = (double)st->y / (double)st->h;
+     }
+   else if (st->dir == 3)
+     {
+        if (st->y > (st->h / 2)) st->finish = 1;
+        tm = 1.0 - ((double)st->y / (double)st->h);
+     }
+   if (tm < 0.01) tm = 0.01;
+   else if (tm > 0.99) tm = 0.99;
+   if (!st->finish) tm = 1.0 - tm;
+   tm *= 0.5;
+   st->anim = ecore_animator_timeline_add(tm, _state_anim, st);
+   _state_anim(st, 0.0);
 }
 
 static void
-im_move_cb(void *data __UNUSED__, Evas *e __UNUSED__, Evas_Object *obj, void *event_info)
+im_move_cb(void *data __UNUSED__, Evas *e __UNUSED__, Evas_Object *obj __UNUSED__, void *event_info)
 {
+   State *st = &state;
    Evas_Event_Mouse_Move *ev = event_info;
-   Evas_Coord x, y;
-
-   if (!state.down) return;
-   evas_object_geometry_get(obj, &x, &y, NULL, NULL);
-   state.x = ev->cur.canvas.x - x;
-   state.y = ev->cur.canvas.y - y;
-   printf("@ %i %i\n", state.x, state.y);
-   _slice_update(&state);
+   Evas_Coord x, y, w, h;
+
+   if (!st->down) return;
+   evas_object_geometry_get(st->front, &x, &y, &w, &h);
+   st->x = ev->cur.canvas.x - x;
+   st->y = ev->cur.canvas.y - y;
+   st->w = w;
+   st->h = h;
+   if (st->job) ecore_job_del(st->job);
+   st->job = ecore_job_add(_update_curl_job, st);
 }
 
 void
 test_flip_page(void *data __UNUSED__, Evas_Object *obj __UNUSED__, void *event_info __UNUSED__)
 {
-   Evas_Object *win, *bg, *im;
+   Evas_Object *win, *bg, *im, *im2, *rc;
    char buf[PATH_MAX];
 
    win = elm_win_add(NULL, "flip_page", ELM_WIN_BASIC);
    elm_win_title_set(win, "Flip Page");
    elm_win_focus_highlight_enabled_set(win, EINA_TRUE);
-   elm_win_autodel_set(win, 1);
+   elm_win_autodel_set(win, EINA_TRUE);
 
    bg = elm_bg_add(win);
    elm_win_resize_object_add(win, bg);
    evas_object_size_hint_weight_set(bg, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
    evas_object_show(bg);
 
+   im2 = evas_object_image_filled_add(evas_object_evas_get(win));
+   snprintf(buf, sizeof(buf), "%s/images/%s",
+            elm_app_data_dir_get(), "sky_04.jpg");
+   evas_object_image_file_set(im2, buf, NULL);
+   evas_object_move(im2, 40, 40);
+   evas_object_resize(im2, 400, 400);
+   evas_object_show(im2);
+
 #if 0
    im = elm_layout_add(win);
-   snprintf(buf, sizeof(buf), "%s/objects/test.edj", PACKAGE_DATA_DIR);
+   snprintf(buf, sizeof(buf), "%s/objects/test.edj", elm_app_data_dir_get());
    elm_layout_file_set(im, buf, "layout");
 #else
    im = evas_object_image_filled_add(evas_object_evas_get(win));
    snprintf(buf, sizeof(buf), "%s/images/%s",
-            PACKAGE_DATA_DIR, "twofish.jpg");
+            elm_app_data_dir_get(), "twofish.jpg");
    evas_object_image_file_set(im, buf, NULL);
 #endif
    evas_object_move(im, 40, 40);
    evas_object_resize(im, 400, 400);
    evas_object_show(im);
 
-   evas_object_event_callback_add(im, EVAS_CALLBACK_MOUSE_DOWN, im_down_cb, win);
-   evas_object_event_callback_add(im, EVAS_CALLBACK_MOUSE_UP,   im_up_cb,   win);
-   evas_object_event_callback_add(im, EVAS_CALLBACK_MOUSE_MOVE, im_move_cb, win);
+   evas_object_data_set(im, "im2", im2);
+
+
+   rc = evas_object_rectangle_add(evas_object_evas_get(win));
+   evas_object_color_set(rc, 0, 0, 0, 0);
+   evas_object_move(rc, 40, 340);
+   evas_object_resize(rc, 400, 100);
+   evas_object_show(rc);
+
+   evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_DOWN, im_down_cb, im);
+   evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_UP,   im_up_cb,   im);
+   evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_MOVE, im_move_cb, im);
+
+   rc = evas_object_rectangle_add(evas_object_evas_get(win));
+   evas_object_color_set(rc, 0, 0, 0, 0);
+   evas_object_move(rc, 40, 40);
+   evas_object_resize(rc, 400, 100);
+   evas_object_show(rc);
+
+   evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_DOWN, im_down_cb, im);
+   evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_UP,   im_up_cb,   im);
+   evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_MOVE, im_move_cb, im);
+
+   rc = evas_object_rectangle_add(evas_object_evas_get(win));
+   evas_object_color_set(rc, 0, 0, 0, 0);
+   evas_object_move(rc, 340, 40);
+   evas_object_resize(rc, 100, 400);
+   evas_object_show(rc);
+
+   evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_DOWN, im_down_cb, im);
+   evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_UP,   im_up_cb,   im);
+   evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_MOVE, im_move_cb, im);
+
+   rc = evas_object_rectangle_add(evas_object_evas_get(win));
+   evas_object_color_set(rc, 0, 0, 0, 0);
+   evas_object_move(rc, 40, 40);
+   evas_object_resize(rc, 100, 400);
+   evas_object_show(rc);
+
+   evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_DOWN, im_down_cb, im);
+   evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_UP,   im_up_cb,   im);
+   evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_MOVE, im_move_cb, im);
 
    evas_object_resize(win, 480, 480);
    evas_object_show(win);
-   
-#ifdef PAGEMESH
-   Evas_Object *sl;
-
-   sl = elm_slider_add(win);
-   elm_slider_min_max_set(sl, -5, 5);
-   elm_slider_value_set(sl, 0);
-   sl_rho = sl;
-   evas_object_smart_callback_add(sl, "changed", _sl_ch, NULL);
-   elm_slider_label_set(sl, "rho");
-   elm_slider_unit_format_set(sl, "%1.2f");
-   elm_slider_span_size_set(sl, 320);
-   evas_object_move(sl, 10, 20);
-   evas_object_resize(sl, 460, 40);
-   evas_object_layer_set(sl, 100);
-   evas_object_show(sl);
-   
-   sl = elm_slider_add(win);
-   elm_slider_min_max_set(sl, 0, 10);
-   elm_slider_value_set(sl, 7.86);
-   sl_theta = sl;
-   evas_object_smart_callback_add(sl, "changed", _sl_ch, NULL);
-   elm_slider_label_set(sl, "theta");
-   elm_slider_unit_format_set(sl, "%1.2f");
-   elm_slider_span_size_set(sl, 320);
-   evas_object_move(sl, 10, 60);
-   evas_object_resize(sl, 460, 40);
-   evas_object_layer_set(sl, 100);
-   evas_object_show(sl);
-   
-   sl = elm_slider_add(win);
-   elm_slider_min_max_set(sl, -800, 800);
-   elm_slider_value_set(sl, -400);
-   sl_A = sl;
-   evas_object_smart_callback_add(sl, "changed", _sl_ch, NULL);
-   elm_slider_label_set(sl, "A");
-   elm_slider_unit_format_set(sl, "%1.2f");
-   elm_slider_span_size_set(sl, 320);
-   evas_object_move(sl, 10, 100);
-   evas_object_resize(sl, 460, 40);
-   evas_object_layer_set(sl, 100);
-   evas_object_show(sl);
-#endif   
 }
 #endif