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