1 #ifdef HAVE_CONFIG_H
2 # include "elementary_config.h"
3 #endif
4 #include <Elementary.h>
5 
6 typedef struct _State State;
7 typedef struct _Slice Slice;
8 
9 typedef struct _Vertex2 Vertex2;
10 typedef struct _Vertex3 Vertex3;
11 
12 struct _State
13 {
14    Evas_Object *front, *back;
15    Evas_Coord down_x, down_y, x, y;
16    Eina_Bool down : 1;
17    Eina_Bool backflip : 1;
18 
19    Ecore_Animator *anim;
20    Ecore_Job *job;
21    Evas_Coord ox, oy, w, h;
22    int slices_w, slices_h;
23    Slice **slices, **slices2;
24    int dir; // 0 == left, 1 == right, 2 == up, 3 == down
25    int finish;
26 };
27 
28 struct _Slice
29 {
30    Evas_Object *obj;
31    // (0)---(1)
32    //  |     |
33    //  |     |
34    // (3)---(2)
35    double u[4], v[4], x[4], y[4], z[4];
36 };
37 
38 struct _Vertex2
39 {
40    double x, y;
41 };
42 
43 struct _Vertex3
44 {
45    double x, y, z;
46 };
47 
48 static State state =
49 {
50    NULL, NULL,
51    0, 0, 0, 0,
52    0,
53    0,
54 
55    NULL,
56    NULL,
57    0, 0, 0, 0,
58    0, 0,
59    NULL, NULL,
60    -1,
61    0
62 };
63 
64 static Slice *
_slice_new(State * st EINA_UNUSED,Evas_Object * obj)65 _slice_new(State *st EINA_UNUSED, Evas_Object *obj)
66 {
67    Slice *sl;
68 
69    sl = calloc(1, sizeof(Slice));
70    if (!sl) return NULL;
71    sl->obj = evas_object_image_add(evas_object_evas_get(obj));
72    evas_object_image_smooth_scale_set(sl->obj, EINA_FALSE);
73    evas_object_pass_events_set(sl->obj, EINA_TRUE);
74    evas_object_image_source_set(sl->obj, obj);
75    return sl;
76 }
77 
78 static void
_slice_free(Slice * sl)79 _slice_free(Slice *sl)
80 {
81    evas_object_del(sl->obj);
82    free(sl);
83 }
84 
85 static void
_slice_apply(State * st,Slice * sl,Evas_Coord x EINA_UNUSED,Evas_Coord y EINA_UNUSED,Evas_Coord w,Evas_Coord h EINA_UNUSED,Evas_Coord ox,Evas_Coord oy,Evas_Coord ow,Evas_Coord oh)86 _slice_apply(State *st, Slice *sl,
87              Evas_Coord x EINA_UNUSED, Evas_Coord y EINA_UNUSED, Evas_Coord w, Evas_Coord h EINA_UNUSED,
88              Evas_Coord ox, Evas_Coord oy, Evas_Coord ow, Evas_Coord oh)
89 {
90    Evas_Map *m;
91    int i;
92 
93    m = evas_map_new(4);
94    if (!m) return;
95    evas_map_smooth_set(m, EINA_FALSE);
96    for (i = 0; i < 4; i++)
97      {
98         evas_map_point_color_set(m, i, 255, 255, 255, 255);
99         if (st->dir == 0)
100           {
101              int p[4] = { 0, 1, 2, 3 };
102              evas_map_point_coord_set(m, i, ox + sl->x[p[i]], oy + sl->y[p[i]], sl->z[p[i]]);
103              evas_map_point_image_uv_set(m, i, sl->u[p[i]] , sl->v[p[i]]);
104           }
105         else if (st->dir == 1)
106           {
107              int p[4] = { 1, 0, 3, 2 };
108              evas_map_point_coord_set(m, i, ox + (w - sl->x[p[i]]), oy + sl->y[p[i]], sl->z[p[i]]);
109              evas_map_point_image_uv_set(m, i, ow - sl->u[p[i]] , sl->v[p[i]]);
110           }
111         else if (st->dir == 2)
112           {
113              int p[4] = { 1, 0, 3, 2 };
114              evas_map_point_coord_set(m, i, ox + sl->y[p[i]], oy + sl->x[p[i]], sl->z[p[i]]);
115              evas_map_point_image_uv_set(m, i, sl->v[p[i]] , sl->u[p[i]]);
116           }
117         else if (st->dir == 3)
118           {
119              int p[4] = { 0, 1, 2, 3 };
120              evas_map_point_coord_set(m, i, ox + sl->y[p[i]], oy + (w - sl->x[p[i]]), sl->z[p[i]]);
121              evas_map_point_image_uv_set(m, i, sl->v[p[i]] , oh - sl->u[p[i]]);
122           }
123      }
124    evas_object_map_enable_set(sl->obj, EINA_TRUE);
125    evas_object_image_fill_set(sl->obj, 0, 0, ow, oh);
126    evas_object_map_set(sl->obj, m);
127    evas_map_free(m);
128 }
129 
130 static void
_slice_3d(State * st EINA_UNUSED,Slice * sl,Evas_Coord x,Evas_Coord y,Evas_Coord w,Evas_Coord h)131 _slice_3d(State *st EINA_UNUSED, Slice *sl, Evas_Coord x, Evas_Coord y, Evas_Coord w, Evas_Coord h)
132 {
133    Evas_Map *m = evas_map_dup(evas_object_map_get(sl->obj));
134    int i;
135 
136    if (!m) return;
137    // vanishing point is center of page, and focal dist is 1024
138    evas_map_util_3d_perspective(m, x + (w / 2), y + (h / 2), 0, 1024);
139    for (i = 0; i < 4; i++)
140      {
141         Evas_Coord xx, yy, zz;
142         evas_map_point_coord_get(m, i, &xx, &yy, &zz);
143         evas_map_point_coord_set(m, i, xx, yy, 0);
144      }
145    if (evas_map_util_clockwise_get(m)) evas_object_show(sl->obj);
146    else evas_object_hide(sl->obj);
147    evas_object_map_set(sl->obj, m);
148    evas_map_free(m);
149 }
150 
151 static void
_slice_light(State * st EINA_UNUSED,Slice * sl,Evas_Coord x,Evas_Coord y,Evas_Coord w,Evas_Coord h)152 _slice_light(State *st EINA_UNUSED, Slice *sl, Evas_Coord x, Evas_Coord y, Evas_Coord w, Evas_Coord h)
153 {
154    Evas_Map *m = evas_map_dup(evas_object_map_get(sl->obj));
155    int i;
156 
157    if (!m) return;
158    evas_map_util_3d_lighting(m,
159                              // light position
160                              // (centered over page 10 * h toward camera)
161                              x + (w / 2)  , y + (h / 2)  , -10000,
162                              255, 255, 255, // light color
163                              0 , 0 , 0); // ambient minimum
164    // multiply brightness by 1.2 to make lightish bits all white so we dont
165    // add shading where we could otherwise be pure white
166    for (i = 0; i < 4; i++)
167      {
168         int r, g, b, a;
169 
170         evas_map_point_color_get(m, i, &r, &g, &b, &a);
171         r = (double)r * 1.2; if (r > 255) r = 255;
172         g = (double)g * 1.2; if (g > 255) g = 255;
173         b = (double)b * 1.2; if (b > 255) b = 255;
174         evas_map_point_color_set(m, i, r, g, b, a);
175      }
176    evas_object_map_set(sl->obj, m);
177    evas_map_free(m);
178 }
179 
180 static void
_slice_xyz(State * st EINA_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)181 _slice_xyz(State *st EINA_UNUSED, Slice *sl,
182            double xx1, double yy1, double zz1,
183            double xx2, double yy2, double zz2,
184            double xx3, double yy3, double zz3,
185            double xx4, double yy4, double zz4)
186 {
187    sl->x[0] = xx1; sl->y[0] = yy1; sl->z[0] = zz1;
188    sl->x[1] = xx2; sl->y[1] = yy2; sl->z[1] = zz2;
189    sl->x[2] = xx3; sl->y[2] = yy3; sl->z[2] = zz3;
190    sl->x[3] = xx4; sl->y[3] = yy4; sl->z[3] = zz4;
191 }
192 
193 static void
_slice_uv(State * st EINA_UNUSED,Slice * sl,double u1,double v1,double u2,double v2,double u3,double v3,double u4,double v4)194 _slice_uv(State *st EINA_UNUSED, Slice *sl,
195            double u1, double v1,
196            double u2, double v2,
197            double u3, double v3,
198            double u4, double v4)
199 {
200    sl->u[0] = u1; sl->v[0] = v1;
201    sl->u[1] = u2; sl->v[1] = v2;
202    sl->u[2] = u3; sl->v[2] = v3;
203    sl->u[3] = u4; sl->v[3] = v4;
204 }
205 
206 static void
_deform_point(Vertex2 * vi,Vertex3 * vo,double rho,double theta,double A)207 _deform_point(Vertex2 *vi, Vertex3 *vo, double rho, double theta, double A)
208 {
209    // ^Y
210    // |
211    // |    X
212    // +---->
213    // theta == cone angle (0 -> PI/2)
214    // A     == distance of cone apex from origin
215    // rho   == angle of cone from vertical axis (...-PI/2 to PI/2...)
216    Vertex3  v1;
217    double d, r, b;
218 
219    d = sqrt((vi->x * vi->x) + pow(vi->y - A, 2));
220    r = d * sin(theta);
221    b = asin(vi->x / d) / sin(theta);
222 
223    v1.x = r * sin(b);
224    v1.y = d + A - (r * (1 - cos(b)) * sin(theta));
225    v1.z = r * (1 - cos(b)) * cos(theta);
226 
227    vo->x = (v1.x * cos(rho)) - (v1.z * sin(rho));
228    vo->y = v1.y;
229    vo->z = (v1.x * sin(rho)) + (v1.z * cos(rho));
230 }
231 
232 static void
_interp_point(Vertex3 * vi1,Vertex3 * vi2,Vertex3 * vo,double v)233 _interp_point(Vertex3 *vi1, Vertex3 *vi2, Vertex3 *vo, double v)
234 {
235    vo->x = (v * vi2->x) + ((1.0 - v) * vi1->x);
236    vo->y = (v * vi2->y) + ((1.0 - v) * vi1->y);
237    vo->z = (v * vi2->z) + ((1.0 - v) * vi1->z);
238 }
239 
240 static void
_state_slices_clear(State * st)241 _state_slices_clear(State *st)
242 {
243    int i, j, num;
244 
245    if (st->slices)
246      {
247         num = 0;
248         for (j = 0; j < st->slices_h; j++)
249           {
250              for (i = 0; i < st->slices_w; i++)
251                {
252                   if (st->slices[num]) _slice_free(st->slices[num]);
253                   if (st->slices2[num]) _slice_free(st->slices2[num]);
254                   num++;
255                }
256           }
257         free(st->slices);
258         free(st->slices2);
259         st->slices = NULL;
260         st->slices2 = NULL;
261      }
262    st->slices_w = 0;
263    st->slices_h = 0;
264 }
265 
266 static int
_slice_obj_color_sum(Slice * s,int p,int * r,int * g,int * b,int * a)267 _slice_obj_color_sum(Slice *s, int p, int *r, int *g, int *b, int *a)
268 {
269    Evas_Map *m;
270    int rr = 0, gg = 0, bb = 0, aa = 0;
271 
272    if (!s) return 0;
273    m = (Evas_Map *)evas_object_map_get(s->obj);
274    if (!m) return 0;
275    evas_map_point_color_get(m, p, &rr, &gg, &bb, &aa);
276    *r += rr; *g += gg; *b += bb; *a += aa;
277    return 1;
278 }
279 
280 static void
_slice_obj_color_set(Slice * s,int p,int r,int g,int b,int a)281 _slice_obj_color_set(Slice *s, int p, int r, int g, int b, int a)
282 {
283    Evas_Map *m;
284 
285    if (!s) return;
286    m = (Evas_Map *)evas_object_map_get(s->obj);
287    if (!m) return;
288    evas_map_point_color_set(m, p, r, g, b, a);
289    evas_object_map_set(s->obj, m);
290 }
291 
292 static void
_slice_obj_vert_color_merge(Slice * s1,int p1,Slice * s2,int p2,Slice * s3,int p3,Slice * s4,int p4)293 _slice_obj_vert_color_merge(Slice *s1, int p1, Slice *s2, int p2,
294                             Slice *s3, int p3, Slice *s4, int p4)
295 {
296    int r = 0, g = 0, b = 0, a = 0, n = 0;
297 
298    n += _slice_obj_color_sum(s1, p1, &r, &g, &b, &a);
299    n += _slice_obj_color_sum(s2, p2, &r, &g, &b, &a);
300    n += _slice_obj_color_sum(s3, p3, &r, &g, &b, &a);
301    n += _slice_obj_color_sum(s4, p4, &r, &g, &b, &a);
302 
303    if (n < 1) return;
304    r /= n; g /= n; b /= n; a /= n;
305 
306    _slice_obj_color_set(s1, p1, r, g, b, a);
307    _slice_obj_color_set(s2, p2, r, g, b, a);
308    _slice_obj_color_set(s3, p3, r, g, b, a);
309    _slice_obj_color_set(s4, p4, r, g, b, a);
310 }
311 
312 static int
_state_update(State * st)313 _state_update(State *st)
314 {
315    Evas_Coord xx1, yy1, xx2, yy2, mx, my, dst, dx, dy;
316    Evas_Coord x, y, w, h, ox, oy, ow, oh;
317    int i, j, num, nn, jump, num2;
318    Slice *sl;
319    double b, minv = 0.0, minva, mgrad;
320    int gx, gy, gszw, gszh, gw, gh, col, row, nw, nh;
321    double rho, A, theta, perc, n, rhol, Al, thetal;
322    Vertex3 *tvo, *tvol;
323 
324    st->backflip = 0;
325 
326    evas_object_geometry_get(st->front, &x, &y, &w, &h);
327    ox = x; oy = y; ow = w; oh = h;
328    xx1 = st->down_x;
329    yy1 = st->down_y;
330    xx2 = st->x;
331    yy2 = st->y;
332 
333    dx = xx2 - xx1;
334    dy = yy2 - yy1;
335    dst = sqrt((dx * dx) + (dy * dy));
336    if (st->dir == -1)
337      {
338         if (dst < 20) // MAGIC: 20 == drag hysterisis
339            return 0;
340      }
341    if (st->dir == -1)
342      {
343         if      ((xx1 > (w / 2)) && (dx <  0) && (abs(dx) >  abs(dy))) st->dir = 0; // left
344         else if ((xx1 < (w / 2)) && (dx >= 0) && (abs(dx) >  abs(dy))) st->dir = 1; // right
345         else if ((yy1 > (h / 2)) && (dy <  0) && (abs(dy) >= abs(dx))) st->dir = 2; // up
346         else if ((yy1 < (h / 2)) && (dy >= 0) && (abs(dy) >= abs(dx))) st->dir = 3; // down
347         if (st->dir == -1) return 0;
348      }
349    if (st->dir == 0)
350      {
351         // no nothing. left drag is standard
352      }
353    else if (st->dir == 1)
354      {
355         xx1 = (w - 1) - xx1;
356         xx2 = (w - 1) - xx2;
357      }
358    else if (st->dir == 2)
359      {
360         Evas_Coord tmp;
361 
362         tmp = xx1; xx1 = yy1; yy1 = tmp;
363         tmp = xx2; xx2 = yy2; yy2 = tmp;
364         tmp = w; w = h; h = tmp;
365      }
366    else if (st->dir == 3)
367      {
368         Evas_Coord tmp;
369 
370         tmp = xx1; xx1 = yy1; yy1 = tmp;
371         tmp = xx2; xx2 = yy2; yy2 = tmp;
372         tmp = w; w = h; h = tmp;
373         xx1 = (w - 1) - xx1;
374         xx2 = (w - 1) - xx2;
375      }
376 
377    if (xx2 >= xx1) xx2 = xx1 - 1;
378    mx = (xx1 + xx2) / 2;
379    my = (yy1 + yy2) / 2;
380 
381    if (mx < 0) mx = 0;
382    else if (mx >= w) mx = w - 1;
383    if (my < 0) my = 0;
384    else if (my >= h) my = h - 1;
385 
386    mgrad = (double)(yy1 - yy2) / (double)(xx1 - xx2);
387 
388    if (mx < 1) mx = 1; // quick hack to keep curl line visible
389 
390    if (EINA_DBL_EQ(mgrad, 0.0)) // special horizontal case
391       mgrad = 0.001; // quick dirty hack for now
392    // else
393      {
394         minv = 1.0 / mgrad;
395         // y = (m * x) + b
396         b = my + (minv * mx);
397      }
398    if ((b >= -5) && (b <= (h + 5)))
399      {
400         if (minv > 0.0) // clamp to h
401           {
402              minv = (double)(h + 5 - my) / (double)(mx);
403              b = my + (minv * mx);
404           }
405         else // clamp to 0
406           {
407              minv = (double)(-5 - my) / (double)(mx);
408              b = my + (minv * mx);
409           }
410      }
411 
412    perc = (double)xx2 / (double)xx1;
413    if (perc < 0.0) perc = 0.0;
414    else if (perc > 1.0) perc = 1.0;
415 
416    minva = atan(minv) / (M_PI / 2);
417    if (minva < 0.0) minva = -minva;
418 
419    // A = apex of cone
420    if (b <= 0) A = b;
421    else A = h - b;
422    if (A < -(h * 20)) A = -h * 20;
423    //--//
424    Al = -5;
425 
426    // rho = is how much the page is turned
427    n = 1.0 - perc;
428    n = 1.0 - cos(n * M_PI / 2.0);
429    n = n * n;
430    rho = -(n * M_PI);
431    //--//
432    rhol = -(n * M_PI);
433 
434    // theta == curliness (how much page culrs in on itself
435    n = sin((1.0 - perc) * M_PI);
436    n = n * 1.2;
437    theta = 7.86 + n;
438    //--//
439    n = sin((1.0 - perc) * M_PI);
440    n = 1.0 - n;
441    n = n * n;
442    n = 1.0 - n;
443    thetal = 7.86 + n;
444 
445    nw = 16;
446    nh = 16;
447    gszw = w / nw;
448    gszh = h / nh;
449    if (gszw < 4) gszw = 4;
450    if (gszh < 4) gszh = 4;
451 
452    nw = (w + gszw - 1) / gszw;
453    nh = (h + gszh - 1) / gszh;
454    if ((st->slices_w != nw) || (st->slices_h != nh)) _state_slices_clear(st);
455    st->slices_w = nw;
456    st->slices_h = nh;
457    if (!st->slices)
458      {
459         st->slices = calloc(st->slices_w * st->slices_h, sizeof(Slice *));
460         if (!st->slices) return 0;
461         st->slices2 = calloc(st->slices_w * st->slices_h, sizeof(Slice *));
462         if (!st->slices2)
463           {
464              free(st->slices);
465              st->slices = NULL;
466              return 0;
467           }
468      }
469 
470    num = (st->slices_w + 1) * (st->slices_h + 1);
471 
472    tvo = alloca(sizeof(Vertex3) * num);
473    tvol = alloca(sizeof(Vertex3) * (st->slices_w + 1));
474 
475    for (col = 0, gx = 0; gx <= (w + gszw - 1); gx += gszw, col++)
476      {
477         Vertex2 vil;
478 
479         vil.x = gx;
480         vil.y = h - gx;
481         _deform_point(&vil, &(tvol[col]), rhol, thetal, Al);
482      }
483 
484    n = minva * sin(perc * M_PI);
485    n = n * n;
486 
487    num = 0;
488    for (col = 0, gx = 0; gx <= (w + gszw - 1); gx += gszw, col++)
489      {
490         for (gy = 0; gy <= (h + gszh - 1); gy += gszh)
491           {
492              Vertex2 vi;
493              Vertex3 vo, tvo1;
494 
495              if (gx > w) vi.x = w;
496              else vi.x = gx;
497              if (gy > h) vi.y = h;
498              else vi.y = gy;
499              _deform_point(&vi, &vo, rho, theta, A);
500              tvo1 = tvol[col];
501              if (gy > h) tvo1.y = h;
502              else tvo1.y = gy;
503              _interp_point(&vo, &tvo1, &(tvo[num]), n);
504              num++;
505           }
506      }
507 
508    jump = st->slices_h + 1;
509    for (col = 0, gx = 0; gx < w; gx += gszw, col++)
510      {
511         num = st->slices_h * col;
512         num2 = jump * col;
513 
514         gw = gszw;
515         if ((gx + gw) > w) gw = w - gx;
516 
517         for (row = 0, gy = 0; gy < h; gy += gszh, row++)
518           {
519              Vertex3 vo[4];
520 
521              memset(vo, 0, sizeof(vo));
522 
523              if (b > 0) nn = num + st->slices_h - row - 1;
524              else nn = num + row;
525 
526              gh = gszh;
527              if ((gy + gh) > h) gh = h - gy;
528 
529              vo[0] = tvo[num2 + row];
530              vo[1] = tvo[num2 + row + jump];
531              vo[2] = tvo[num2 + row + jump + 1];
532              vo[3] = tvo[num2 + row + 1];
533 #define SWP(a, b) do {typeof(a) vt; vt = (a); (a) = (b); (b) = vt;} while (0)
534              if (b > 0)
535                {
536                   SWP(vo[0], vo[3]);
537                   SWP(vo[1], vo[2]);
538                   vo[0].y = h - vo[0].y;
539                   vo[1].y = h - vo[1].y;
540                   vo[2].y = h - vo[2].y;
541                   vo[3].y = h - vo[3].y;
542                }
543 
544              // FRONT
545              sl = st->slices[nn];
546              if (!sl)
547                {
548                   sl = _slice_new(st, st->front);
549                   st->slices[nn] = sl;
550                }
551              _slice_xyz(st, sl,
552                         vo[0].x, vo[0].y, vo[0].z,
553                         vo[1].x, vo[1].y, vo[1].z,
554                         vo[2].x, vo[2].y, vo[2].z,
555                         vo[3].x, vo[3].y, vo[3].z);
556              if (b <= 0)
557                 _slice_uv(st, sl,
558                           gx,       gy,       gx + gw,  gy,
559                           gx + gw,  gy + gh,  gx,       gy + gh);
560              else
561                 _slice_uv(st, sl,
562                           gx,       h - (gy + gh), gx + gw,  h - (gy + gh),
563                           gx + gw,  h - gy,        gx,       h - gy);
564 
565              // BACK
566              sl = st->slices2[nn];
567              if (!sl)
568                {
569                   sl = _slice_new(st, st->back);
570                   st->slices2[nn] = sl;
571                }
572 
573              _slice_xyz(st, sl,
574                         vo[1].x, vo[1].y, vo[1].z,
575                         vo[0].x, vo[0].y, vo[0].z,
576                         vo[3].x, vo[3].y, vo[3].z,
577                         vo[2].x, vo[2].y, vo[2].z);
578              if (st->backflip)
579                {
580                   if (b <= 0)
581                      _slice_uv(st, sl,
582                                gx + gw, gy,       gx,       gy,
583                                gx,      gy + gh,  gx + gw,  gy + gh);
584                   else
585                      _slice_uv(st, sl,
586                                gx + gw, h - (gy + gh), gx,      h - (gy + gh),
587                                gx,      h - gy,        gx + gw, h - gy);
588                }
589              else
590                {
591                   if (b <= 0)
592                      _slice_uv(st, sl,
593                                w - (gx + gw), gy,       w - (gx),      gy,
594                                w - (gx),      gy + gh,  w - (gx + gw), gy + gh);
595                   else
596                      _slice_uv(st, sl,
597                                w - (gx + gw), h - (gy + gh), w - (gx),      h - (gy + gh),
598                                w - (gx),      h - gy,        w - (gx + gw), h - gy);
599                }
600           }
601      }
602 
603    num = 0;
604    for (j = 0; j < st->slices_h; j++)
605      {
606         for (i = 0; i < st->slices_w; i++)
607           {
608              _slice_apply(st, st->slices[num], x, y, w, h, ox, oy, ow, oh);
609              _slice_apply(st, st->slices2[num], x, y, w, h, ox, oy, ow, oh);
610              _slice_light(st, st->slices[num], ox, oy, ow, oh);
611              _slice_light(st, st->slices2[num], ox, oy, ow, oh);
612              num++;
613           }
614      }
615 
616    for (i = 0; i <= st->slices_w; i++)
617      {
618         num = i * st->slices_h;
619         for (j = 0; j <= st->slices_h; j++)
620           {
621              Slice *s[4];
622 
623              s[0] = s[1] = s[2] = s[3] = NULL;
624              if ((i > 0)            && (j > 0))
625                 s[0] = st->slices[num - 1 - st->slices_h];
626              if ((i < st->slices_w) && (j > 0))
627                 s[1] = st->slices[num - 1];
628              if ((i > 0)            && (j < st->slices_h))
629                 s[2] = st->slices[num - st->slices_h];
630              if ((i < st->slices_w) && (j < st->slices_h))
631                 s[3] = st->slices[num];
632              if (st->dir == 0)
633                 _slice_obj_vert_color_merge(s[0], 2, s[1], 3,
634                                             s[2], 1, s[3], 0);
635              else if (st->dir == 1)
636                 _slice_obj_vert_color_merge(s[0], 3, s[1], 2,
637                                             s[2], 0, s[3], 1);
638              else if (st->dir == 2)
639                 _slice_obj_vert_color_merge(s[0], 3, s[1], 2,
640                                             s[2], 0, s[3], 1);
641              else if (st->dir == 3)
642                 _slice_obj_vert_color_merge(s[0], 2, s[1], 3,
643                                             s[2], 1, s[3], 0);
644              s[0] = s[1] = s[2] = s[3] = NULL;
645              if ((i > 0)            && (j > 0))
646                 s[0] = st->slices2[num - 1 - st->slices_h];
647              if ((i < st->slices_w) && (j > 0))
648                 s[1] = st->slices2[num - 1];
649              if ((i > 0)            && (j < st->slices_h))
650                 s[2] = st->slices2[num - st->slices_h];
651              if ((i < st->slices_w) && (j < st->slices_h))
652                 s[3] = st->slices2[num];
653              if (st->dir == 0)
654                 _slice_obj_vert_color_merge(s[0], 3, s[1], 2,
655                                             s[2], 0, s[3], 1);
656              else if (st->dir == 1)
657                 _slice_obj_vert_color_merge(s[0], 2, s[1], 3,
658                                             s[2], 1, s[3], 0);
659              else if (st->dir == 2)
660                 _slice_obj_vert_color_merge(s[0], 2, s[1], 3,
661                                             s[2], 1, s[3], 0);
662              else if (st->dir == 3)
663                 _slice_obj_vert_color_merge(s[0], 3, s[1], 2,
664                                             s[2], 0, s[3], 1);
665              num++;
666           }
667      }
668    num = 0;
669    for (i = 0; i < st->slices_w; i++)
670      {
671         for (j = 0; j < st->slices_h; j++)
672           {
673              _slice_3d(st, st->slices[num], ox, oy, ow, oh);
674              _slice_3d(st, st->slices2[num], ox, oy, ow, oh);
675              num++;
676           }
677      }
678 
679    return 1;
680 }
681 
682 static void
_state_end(State * st)683 _state_end(State *st)
684 {
685    _state_slices_clear(st);
686 }
687 
688 static Eina_Bool
_state_anim(void * data,double pos)689 _state_anim(void *data, double pos)
690 {
691    State *st = data;
692    double p;
693 
694    p = ecore_animator_pos_map(pos, ECORE_POS_MAP_ACCELERATE, 0.0, 0.0);
695    if (st->finish)
696      {
697         if (st->dir == 0)
698            st->x = st->ox * (1.0 - p);
699         else if (st->dir == 1)
700            st->x = st->ox + ((st->w - st->ox) * p);
701         else if (st->dir == 2)
702            st->y = st->oy * (1.0 - p);
703         else if (st->dir == 3)
704            st->y = st->oy + ((st->h - st->oy) * p);
705      }
706    else
707      {
708         if (st->dir == 0)
709            st->x = st->ox + ((st->w - st->ox) * p);
710         else if (st->dir == 1)
711            st->x = st->ox * (1.0 - p);
712         else if (st->dir == 2)
713            st->y = st->oy + ((st->h - st->oy) * p);
714         else if (st->dir == 3)
715            st->y = st->oy * (1.0 - p);
716      }
717    _state_update(st);
718    if (pos < 1.0) return EINA_TRUE;
719    evas_object_show(st->front);
720    evas_object_show(st->back);
721    _state_end(st);
722    st->anim = NULL;
723    return EINA_FALSE;
724 }
725 
726 static void
_update_curl_job(void * data)727 _update_curl_job(void *data)
728 {
729    State *st = data;
730    st->job = NULL;
731    if (_state_update(st))
732      {
733         evas_object_hide(st->front);
734         evas_object_hide(st->back);
735      }
736 }
737 
738 static void
im_down_cb(void * data,Evas * e EINA_UNUSED,Evas_Object * obj EINA_UNUSED,void * event_info)739 im_down_cb(void *data, Evas *e EINA_UNUSED, Evas_Object *obj EINA_UNUSED, void *event_info)
740 {
741    State *st = &state;
742    Evas_Event_Mouse_Down *ev = event_info;
743    Evas_Coord x, y, w, h;
744 
745    if (ev->button != 1) return;
746    st->front = data;
747    st->back = evas_object_data_get(data, "im2");
748    st->backflip = 1;
749    st->down = 1;
750    evas_object_geometry_get(st->front, &x, &y, &w, &h);
751    st->x = ev->canvas.x - x;
752    st->y = ev->canvas.y - y;
753    st->w = w;
754    st->h = h;
755    st->down_x = st->x;
756    st->down_y = st->y;
757    st->dir = -1;
758    if (_state_update(st))
759      {
760         evas_object_hide(st->front);
761         evas_object_hide(st->back);
762      }
763 }
764 
765 static void
im_up_cb(void * data EINA_UNUSED,Evas * e EINA_UNUSED,Evas_Object * obj EINA_UNUSED,void * event_info)766 im_up_cb(void *data EINA_UNUSED, Evas *e EINA_UNUSED, Evas_Object *obj EINA_UNUSED, void *event_info)
767 {
768    State *st = &state;
769    Evas_Event_Mouse_Up *ev = event_info;
770    Evas_Coord x, y, w, h;
771    double tm = 0.5;
772 
773    if (ev->button != 1) return;
774    st->down = 0;
775    evas_object_geometry_get(st->front, &x, &y, &w, &h);
776    st->x = ev->canvas.x - x;
777    st->y = ev->canvas.y - y;
778    st->w = w;
779    st->h = h;
780    st->ox = st->x;
781    st->oy = st->y;
782    if (st->job)
783      {
784         ecore_job_del(st->job);
785         st->job = NULL;
786      }
787    if (st->anim) ecore_animator_del(st->anim);
788    st->finish = 0;
789    if (st->dir == 0)
790      {
791         tm = (double)st->x / (double)st->w;
792         if (st->x < (st->w / 2)) st->finish = 1;
793      }
794    else if (st->dir == 1)
795      {
796         if (st->x > (st->w / 2)) st->finish = 1;
797         tm = 1.0 - ((double)st->x / (double)st->w);
798      }
799    else if (st->dir == 2)
800      {
801         if (st->y < (st->h / 2)) st->finish = 1;
802         tm = (double)st->y / (double)st->h;
803      }
804    else if (st->dir == 3)
805      {
806         if (st->y > (st->h / 2)) st->finish = 1;
807         tm = 1.0 - ((double)st->y / (double)st->h);
808      }
809    if (tm < 0.01) tm = 0.01;
810    else if (tm > 0.99) tm = 0.99;
811    if (!st->finish) tm = 1.0 - tm;
812    tm *= 0.5;
813    st->anim = ecore_animator_timeline_add(tm, _state_anim, st);
814    _state_anim(st, 0.0);
815 }
816 
817 static void
im_move_cb(void * data EINA_UNUSED,Evas * e EINA_UNUSED,Evas_Object * obj EINA_UNUSED,void * event_info)818 im_move_cb(void *data EINA_UNUSED, Evas *e EINA_UNUSED, Evas_Object *obj EINA_UNUSED, void *event_info)
819 {
820    State *st = &state;
821    Evas_Event_Mouse_Move *ev = event_info;
822    Evas_Coord x, y, w, h;
823 
824    if (!st->down) return;
825    evas_object_geometry_get(st->front, &x, &y, &w, &h);
826    st->x = ev->cur.canvas.x - x;
827    st->y = ev->cur.canvas.y - y;
828    st->w = w;
829    st->h = h;
830    if (st->job) ecore_job_del(st->job);
831    st->job = ecore_job_add(_update_curl_job, st);
832 }
833 
834 void
test_flip_page(void * data EINA_UNUSED,Evas_Object * obj EINA_UNUSED,void * event_info EINA_UNUSED)835 test_flip_page(void *data EINA_UNUSED, Evas_Object *obj EINA_UNUSED, void *event_info EINA_UNUSED)
836 {
837    Evas_Object *win, *im, *im2, *rc;
838    char buf[PATH_MAX];
839 
840    win = elm_win_util_standard_add("flip-page", "Flip Page");
841    elm_win_focus_highlight_enabled_set(win, EINA_TRUE);
842    elm_win_autodel_set(win, EINA_TRUE);
843 
844    im2 = evas_object_image_filled_add(evas_object_evas_get(win));
845    snprintf(buf, sizeof(buf), "%s/images/%s",
846             elm_app_data_dir_get(), "sky_04.jpg");
847    evas_object_image_file_set(im2, buf, NULL);
848    evas_object_move(im2, 40, 40);
849    evas_object_resize(im2, 400, 400);
850    evas_object_show(im2);
851 
852 #if 0
853    im = elm_layout_add(win);
854    snprintf(buf, sizeof(buf), "%s/objects/test.edj", elm_app_data_dir_get());
855    elm_layout_file_set(im, buf, "layout");
856 #else
857    im = evas_object_image_filled_add(evas_object_evas_get(win));
858    snprintf(buf, sizeof(buf), "%s/images/%s",
859             elm_app_data_dir_get(), "twofish.jpg");
860    evas_object_image_file_set(im, buf, NULL);
861 #endif
862    evas_object_move(im, 40, 40);
863    evas_object_resize(im, 400, 400);
864    evas_object_show(im);
865 
866    evas_object_data_set(im, "im2", im2);
867 
868    rc = evas_object_rectangle_add(evas_object_evas_get(win));
869    evas_object_color_set(rc, 0, 0, 0, 0);
870    evas_object_move(rc, 40, 340);
871    evas_object_resize(rc, 400, 100);
872    evas_object_show(rc);
873 
874    evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_DOWN, im_down_cb, im);
875    evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_UP,   im_up_cb,   im);
876    evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_MOVE, im_move_cb, im);
877 
878    rc = evas_object_rectangle_add(evas_object_evas_get(win));
879    evas_object_color_set(rc, 0, 0, 0, 0);
880    evas_object_move(rc, 40, 40);
881    evas_object_resize(rc, 400, 100);
882    evas_object_show(rc);
883 
884    evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_DOWN, im_down_cb, im);
885    evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_UP,   im_up_cb,   im);
886    evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_MOVE, im_move_cb, im);
887 
888    rc = evas_object_rectangle_add(evas_object_evas_get(win));
889    evas_object_color_set(rc, 0, 0, 0, 0);
890    evas_object_move(rc, 340, 40);
891    evas_object_resize(rc, 100, 400);
892    evas_object_show(rc);
893 
894    evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_DOWN, im_down_cb, im);
895    evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_UP,   im_up_cb,   im);
896    evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_MOVE, im_move_cb, im);
897 
898    rc = evas_object_rectangle_add(evas_object_evas_get(win));
899    evas_object_color_set(rc, 0, 0, 0, 0);
900    evas_object_move(rc, 40, 40);
901    evas_object_resize(rc, 100, 400);
902    evas_object_show(rc);
903 
904    evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_DOWN, im_down_cb, im);
905    evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_UP,   im_up_cb,   im);
906    evas_object_event_callback_add(rc, EVAS_CALLBACK_MOUSE_MOVE, im_move_cb, im);
907 
908    evas_object_resize(win, 480, 480);
909    evas_object_show(win);
910 }
911