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 //#define PAGEMESH 1
   8
   9 typedef struct _State State;
  10 typedef struct _Slice Slice;
  11
  12 typedef struct _Vertex2 Vertex2;
  13 typedef struct _Vertex3 Vertex3;
  14
  15 struct _State
  16 {
  17    Evas_Object *orig, *win;
  18    Evas_Coord down_x, down_y;
  19    Eina_Bool  down : 1;
  20    Evas_Coord x, y;
  21    Slice *base, *base2;
  22    Eina_List *slices;
  23 };
  24
  25 struct _Slice
  26 {
  27    Evas_Object *obj;
  28    // (0)---(1)
  29    //  |     |
  30    //  |     |
  31    // (3)---(2)
  32    double u[4], v[4];
  33    double x[4], y[4], z[4];
  34 };
  35
  36 struct _Vertex2
  37 {
  38    double x, y;
  39 };
  40
  41 struct _Vertex3
  42 {
  43    double x, y, z;
  44 };
  45
  46 static State state =
  47 {
  48    NULL, NULL,
  49    0, 0,
  50    0,
  51    0, 0,
  52    NULL, NULL,
  53    NULL
  54 };
  55
  56 #define RES 32
  57
  58 static Slice *
  59 _slice_new(State *st)
  60 {
  61    Slice *sl;
  62
  63    sl = calloc(1, sizeof(Slice));
  64    if (!sl) return NULL;
  65    sl->obj = evas_object_image_add(evas_object_evas_get(st->win));
  66    evas_object_image_smooth_scale_set(sl->obj, 0);
  67    evas_object_pass_events_set(sl->obj, 1);
  68    evas_object_image_source_set(sl->obj, st->orig);
  69    evas_object_show(sl->obj);
  70    return sl;
  71 }
  72
  73 static void
  74 _slice_free(Slice *sl)
  75 {
  76    evas_object_del(sl->obj);
  77    free(sl);
  78 }
  79
  80 static void
  81 _slice_apply(Slice *sl, Evas_Coord x, Evas_Coord y, Evas_Coord w, Evas_Coord h)
  82 {
  83    Evas_Map *m;
  84    int i;
  85
  86    m = evas_map_new(4);
  87    evas_map_smooth_set(m, 0);
  88
  89    for (i = 0; i < 4; i++)
  90      {
  91         evas_map_point_coord_set(m, i, x + sl->x[i], y + sl->y[i], sl->z[i]);
  92         evas_map_point_image_uv_set(m, i, sl->u[i] , sl->v[i]);
  93         evas_map_point_color_set(m, i, 255, 255, 255, 255);
  94      }
  95
  96    evas_map_util_3d_perspective(m, x + (w / 2), y + (h / 2), 0, 1024);
  97
  98 /*
  99    // FIXME: lighting should be manual with pt 0 and 3 being white and
 100    // 2 and 3 matching the
 101    evas_map_util_3d_lighting(m,
 102                              0  , 0  , -1000,
 103                              255, 255, 255,
 104                              20 , 20 , 20);
 105  */
 106
 107    evas_object_map_enable_set(sl->obj, EINA_TRUE);
 108    evas_object_image_fill_set(sl->obj, 0, 0, w, h);
 109    evas_object_map_set(sl->obj, m);
 110    evas_map_free(m);
 111 }
 112
 113 static void
 114 _slice_xyz(Slice *sl,
 115            double x1, double y1, double z1,
 116            double x2, double y2, double z2,
 117            double x3, double y3, double z3,
 118            double x4, double y4, double z4)
 119 {
 120    sl->x[0] = x1; sl->y[0] = y1; sl->z[0] = z1;
 121    sl->x[1] = x2; sl->y[1] = y2; sl->z[1] = z2;
 122    sl->x[2] = x3; sl->y[2] = y3; sl->z[2] = z3;
 123    sl->x[3] = x4; sl->y[3] = y4; sl->z[3] = z4;
 124 }
 125
 126 static void
 127 _slice_uv(Slice *sl,
 128            double u1, double v1,
 129            double u2, double v2,
 130            double u3, double v3,
 131            double u4, double v4)
 132 {
 133    sl->u[0] = u1; sl->v[0] = v1;
 134    sl->u[1] = u2; sl->v[1] = v2;
 135    sl->u[2] = u3; sl->v[2] = v3;
 136    sl->u[3] = u4; sl->v[3] = v4;
 137 }
 138
 139 static void
 140 _deform_point(Vertex2 *vi, Vertex3 *vo, double rho, double theta, double A)
 141 {
 142    // ^Y
 143    // |
 144    // |    X
 145    // +---->
 146    // theta == cone angle (0 -> PI/2)
 147    // A     == distance of cone apex from origin
 148    // rho   == angle of cone from vertical axis (...-PI/2 to PI/2...)
 149    Vertex3  v1;
 150    double d, r, b;
 151
 152    d = sqrt((vi->x * vi->x) + pow(vi->y - A, 2));
 153    r = d * sin(theta);
 154    b = asin(vi->x / d) / sin(theta);
 155
 156    v1.x = r * sin(b);
 157    v1.y = d + A - (r * (1 - cos(b)) * sin(theta));
 158    v1.z = r * (1 - cos(b)) * cos(theta);
 159
 160    vo->x = (v1.x * cos(rho)) - (v1.z * sin(rho));
 161    vo->y = v1.y;
 162    vo->z = (v1.x * sin(rho)) + (v1.z * cos(rho));
 163 }
 164
 165 static void
 166 _interp_point(Vertex3 *vi1, Vertex3 *vi2, Vertex3 *vo, double v)
 167 {
 168    vo->x = (v * vi2->x) + ((1.0 - v) * vi1->x);
 169    vo->y = (v * vi2->y) + ((1.0 - v) * vi1->y);
 170    vo->z = (v * vi2->z) + ((1.0 - v) * vi1->z);
 171 }
 172
 173 static int
 174 _slice_update(State *st)
 175 {
 176    Evas_Coord x1, y1, x2, y2, mx, my, px, rx, ry, prx, pry, dst, dx, dy, pdst;
 177    Evas_Coord x, y, w, h;
 178    int i;
 179    Slice *sl;
 180    int rad;
 181
 182    evas_object_geometry_get(st->orig, &x, &y, &w, &h);
 183    x1 = st->down_x;
 184    y1 = st->down_y;
 185    x2 = st->x;
 186    y2 = st->y;
 187    if (x2 >= x1) x2 = x1 - 1;
 188    mx = (x1 + x2) / 2;
 189    my = (y1 + y2) / 2;
 190
 191    if (mx < 0) mx = 0;
 192    else if (mx >= w) mx = w - 1;
 193    if (my < 0) my = 0;
 194    else if (my >= h) my = h - 1;
 195
 196    dx = x2 - x1;
 197    dy = y2 - y1;
 198    dst = sqrt((dx * dx) + (dy * dy));
 199    if (dst < 10)
 200       {
 201          // FIXME: clean up old objects
 202          return 0;
 203       }
 204
 205 #if 1
 206    // MAGIC MATH STUFF!!!
 207      {
 208         double b = (h / 2), minv = 0.0, minva;
 209         double mgrad = (double)(y1 - y2) / (double)(x1 - x2);
 210         Evas_Coord slx1, slx2, sly;
 211         int gx, gy, gsz, gw, gh;
 212         double rho, A, theta, perc, percm, n, cd, rhol, Al, thetal;
 213
 214         if (mx < 1) mx = 1; // quick hack to keep curl line visible
 215
 216         if (mgrad == 0.0) // special horizontal case
 217            mgrad = 0.001; // quick dirty hack for now
 218         // else
 219           {
 220              minv = 1.0 / mgrad;
 221              // y = (m * x) + b
 222              b = my + (minv * mx);
 223           }
 224         if ((b >= -5) && (b <= (h + 5)))
 225           {
 226              if (minv > 0.0) // clamp to h
 227                {
 228                   minv = (double)(h + 5 - my) / (double)(mx);
 229                   b = my + (minv * mx);
 230                }
 231              else // clamp to 0
 232                {
 233                   minv = (double)(-5 - my) / (double)(mx);
 234                   b = my + (minv * mx);
 235                }
 236           }
 237
 238         // DEBUG
 239         static Evas_Object *ol = NULL;
 240         Evas_Coord lx1, ly1, lx2, ly2;
 241         if (!ol) ol = evas_object_line_add(evas_object_evas_get(st->win));
 242         evas_object_color_set(ol, 128, 0, 0, 128);
 243         lx1 = x;
 244         ly1 = y + b;
 245         lx2 = x + w;
 246         ly2 = y + b + (-minv * w);
 247         evas_object_line_xy_set(ol, lx1, ly1, lx2, ly2);
 248         evas_object_show(ol);
 249
 250         EINA_LIST_FREE(st->slices, sl) _slice_free(sl);
 251
 252         perc = (double)x2 / (double)x1;
 253         percm = (double)mx / (double)x1;
 254         if (perc < 0.0) perc = 0.0;
 255         else if (perc > 1.0) perc = 1.0;
 256         if (percm < 0.0) percm = 0.0;
 257         else if (percm > 1.0) percm = 1.0;
 258
 259         minva = atan(minv) / (M_PI / 2);
 260         if (minva < 0.0) minva = -minva;
 261
 262         // A = apex of cone
 263         if (b <= 0) A = b;
 264         else A = h - b;
 265         if (A < -(h * 20)) A = -h * 20;
 266         //--//
 267         Al = -5;
 268
 269         // rho = is how much the page is turned
 270         n = 1.0 - perc;
 271         n = 1.0 - cos(n * M_PI / 2.0);
 272         n = n * n;
 273         rho = -(n * M_PI);
 274         //--//
 275         rhol = -(n * M_PI);
 276
 277         // theta == curliness (how much page culrs in on itself
 278         n = sin((1.0 - perc) * M_PI);
 279         n = n * 1.2;
 280         theta = 7.86 + n;
 281         //--//
 282         n = sin((1.0 - perc) * M_PI);
 283         n = 1.0 - n;
 284         n = n * n;
 285         n = 1.0 - n;
 286         thetal = 7.86 + n;
 287
 288         gsz = 16;
 289         for (gx = 0; gx < w; gx += gsz)
 290           {
 291              for (gy = 0; gy < h; gy += gsz)
 292                {
 293                   Vertex2 vi[4], vil[2];
 294                   Vertex3 vo[4], vol[2];
 295                   gw = gsz;
 296                   gh = gsz;
 297                   if ((gx + gw) > w) gw = w - gx;
 298                   if ((gy + gh) > h) gh = h - gy;
 299
 300                   vi[0].x = gx;      vi[0].y = gy;
 301                   vi[1].x = gx + gw; vi[1].y = gy;
 302                   vi[2].x = gx + gw; vi[2].y = gy + gh;
 303                   vi[3].x = gx;      vi[3].y = gy + gh;
 304
 305                   vil[0].x = gx;      vil[0].y = h - gx;
 306                   vil[1].x = gx + gw; vil[1].y = h - (gx + gw);
 307
 308                   for (i = 0; i < 2; i++)
 309                     {
 310                        _deform_point(&(vil[i]), &(vol[i]), rhol, thetal, Al);
 311                     }
 312                   for (i = 0; i < 4; i++)
 313                     {
 314                        _deform_point(&(vi[i]), &(vo[i]), rho, theta, A);
 315                     }
 316                   n = minva * sin(perc * M_PI);
 317                   n = n * n;
 318                   vol[0].y = gy;
 319                   vol[1].y = gy;
 320                   _interp_point(&(vo[0]), &(vol[0]), &(vo[0]), n);
 321                   _interp_point(&(vo[1]), &(vol[1]), &(vo[1]), n);
 322                   vol[0].y = gy + gh;
 323                   vol[1].y = gy + gh;
 324                   _interp_point(&(vo[2]), &(vol[1]), &(vo[2]), n);
 325                   _interp_point(&(vo[3]), &(vol[0]), &(vo[3]), n);
 326                   if (b > 0)
 327                     {
 328                        Vertex3 vt;
 329
 330 #define SWPV3(a, b) do {vt = (a); (a) = (b); (b) = vt;} while (0)
 331                        SWPV3(vo[0], vo[3]);
 332                        SWPV3(vo[1], vo[2]);
 333                        vo[0].y = h - vo[0].y;
 334                        vo[1].y = h - vo[1].y;
 335                        vo[2].y = h - vo[2].y;
 336                        vo[3].y = h - vo[3].y;
 337                     }
 338                   sl = _slice_new(st);
 339                   _slice_xyz(sl,
 340                             vo[0].x, vo[0].y, vo[0].z,
 341                             vo[1].x, vo[1].y, vo[1].z,
 342                             vo[2].x, vo[2].y, vo[2].z,
 343                             vo[3].x, vo[3].y, vo[3].z);
 344                   if (b <= 0)
 345                      _slice_uv(sl,
 346                                gx,       gy,       gx + gw,  gy,
 347                                gx + gw,  gy + gh,  gx,       gy + gh);
 348                   else
 349                      _slice_uv(sl,
 350                                gx,       h - (gy + gh), gx + gw,  h - (gy + gh),
 351                                gx + gw,  h - gy,        gx,       h - gy);
 352                   _slice_apply(sl, x, y, w, h);
 353                   st->slices = eina_list_append(st->slices, sl);
 354                }
 355           }
 356      }
 357 #else
 358    if (!st->base) st->base = _slice_new(st);
 359    sl = st->base;
 360
 361    _slice_xyz(sl,
 362               0,  0,  0,
 363               mx, 0,  0,
 364               mx, h,  0,
 365               0,  h,  0);
 366    _slice_uv(sl,
 367              0,  0,
 368              mx, 0,
 369              mx, h,
 370              0,  h);
 371    _slice_apply(sl, x, y, w, h);
 372
 373    EINA_LIST_FREE(st->slices, sl) _slice_free(sl);
 374
 375    // cylinder radius is width / 8
 376    rad = (w - mx) / 4;
 377    if (rad < (w / 16)) rad = (w / 16);
 378    if (rad > (w / 8)) rad = w / 8;
 379
 380    rad = w / 10;
 381
 382    px = mx;
 383    prx = 0;
 384    pry = rad;
 385    for (i = 1; i < RES; i++)
 386      {
 387         rx = (double)rad * sin((i * M_PI) / RES);
 388         ry = (double)rad * cos((i * M_PI) / RES);
 389         dx = rx - prx;
 390         dy = ry - pry;
 391         dst = sqrt((dx * dx) + (dy * dy));
 392         if ((px + dst) > w)
 393           {
 394              pdst = dst;
 395              dst = w - px;
 396              rx = prx + (((rx - prx) * dst) / pdst);
 397              ry = pry + (((ry - pry) * dst) / pdst);
 398           }
 399         if (dst <= 0) break;
 400
 401         sl = _slice_new(st);
 402
 403         _slice_xyz(sl,
 404                    mx + prx, 0, -(rad - pry),
 405                    mx + rx,  0, -(rad - ry),
 406                    mx + rx,  h, -(rad - ry),
 407                    mx + prx, h, -(rad - pry));
 408         _slice_uv(sl,
 409                   px,       0,
 410                   px + dst, 0,
 411                   px + dst, h,
 412                   px,       h);
 413         _slice_apply(sl, x, y, w, h);
 414         st->slices = eina_list_append(st->slices, sl);
 415
 416         prx = rx;
 417         pry = ry;
 418         px += dst;
 419      }
 420    if (px < w)
 421      {
 422         sl = _slice_new(st);
 423
 424         _slice_xyz(sl,
 425                    mx + prx,      0, -(rad - pry),
 426                    mx + (px - w), 0, -(rad * 2),
 427                    mx + (px - w), h, -(rad * 2),
 428                    mx + prx,      h, -(rad - pry));
 429         _slice_uv(sl,
 430                   px, 0,
 431                   w,  0,
 432                   w,  h,
 433                   px, h);
 434         _slice_apply(sl, x, y, w, h);
 435         st->slices = eina_list_append(st->slices, sl);
 436      }
 437 #endif
 438    return 1;
 439 }
 440
 441 static void
 442 _slice_end(State *st)
 443 {
 444    Slice *sl;
 445
 446    if (st->base) _slice_free(st->base);
 447    st->base = NULL;
 448    if (st->base2) _slice_free(st->base2);
 449    st->base2 = NULL;
 450    EINA_LIST_FREE(st->slices, sl) _slice_free(sl);
 451 }
 452
 453
 454
 455
 456
 457
 458
 459
 460
 461
 462
 463 #ifdef PAGEMESH
 464 static Evas_Object *sl_rho, *sl_theta, *sl_A;
 465
 466 static void
 467 _test(void)
 468 {
 469    static Eina_List *pts = NULL;
 470    Evas_Object *o;
 471    Evas_Map *m;
 472    int i, j, k;
 473    Evas_Coord x, y, w, h;
 474    State *st = &state;
 475
 476    EINA_LIST_FREE(pts, o) evas_object_del(o);
 477
 478    evas_object_geometry_get(st->orig, &x, &y, &w, &h);
 479   for (j = 0; j < h; j += 20)
 480      {
 481         for (i = 0; i < w; i += 20)
 482           {
 483              Vertex2 vi;
 484              Vertex3 vo;
 485              double rho, theta, A, n;
 486
 487              vi.x = i;
 488              vi.y = j;
 489              rho = elm_slider_value_get(sl_rho);
 490              A = elm_slider_value_get(sl_A);
 491              theta = elm_slider_value_get(sl_theta);
 492
 493              _deform_point(&vi, &vo, rho, theta, A);
 494
 495              o = evas_object_image_add(evas_object_evas_get(st->win));
 496              evas_object_image_smooth_scale_set(o, 0);
 497              evas_object_pass_events_set(o, 1);
 498              evas_object_image_source_set(o, st->orig);
 499              evas_object_show(o);
 500
 501              m = evas_map_new(4);
 502              evas_map_smooth_set(m, 0);
 503
 504              k = 0;
 505              evas_map_point_coord_set(m, k, x + vo.x, y + vo.y, -vo.z);
 506              evas_map_point_image_uv_set(m, k, 0 , 0);
 507              evas_map_point_color_set(m, k, 255, 255, 255, 255);
 508              k++;
 509              evas_map_point_coord_set(m, k, x + vo.x + 10, y + vo.y, -vo.z);
 510              evas_map_point_image_uv_set(m, k, w , 0);
 511              evas_map_point_color_set(m, k, 255, 255, 255, 255);
 512              k++;
 513              evas_map_point_coord_set(m, k, x + vo.x + 10, y + vo.y + 10, -vo.z);
 514              evas_map_point_image_uv_set(m, k, w , h);
 515              evas_map_point_color_set(m, k, 255, 255, 255, 255);
 516              k++;
 517              evas_map_point_coord_set(m, k, x + vo.x, y + vo.y + 10, -vo.z);
 518              evas_map_point_image_uv_set(m, k, 0 , h);
 519              evas_map_point_color_set(m, k, 255, 255, 255, 255);
 520              k++;
 521
 522              evas_map_util_3d_perspective(m, x + (w / 2), y + (h / 2), 0, 1024);
 523
 524              evas_object_map_enable_set(o, EINA_TRUE);
 525              evas_object_image_fill_set(o, 0, 0, w, h);
 526              evas_object_map_set(o, m);
 527              evas_map_free(m);
 528
 529              pts = eina_list_append(pts, o);
 530           }
 531      }
 532 }
 533
 534 static void
 535 _sl_ch(void *data __UNUSED__, Evas_Object *obj __UNUSED__, void *event_info __UNUSED__)
 536 {
 537    _test();
 538 }
 539 #endif
 540
 541
 542
 543
 544
 545
 546
 547
 548
 549
 550
 551 static void
 552 im_down_cb(void *data, Evas *e __UNUSED__, Evas_Object *obj, void *event_info)
 553 {
 554    Evas_Event_Mouse_Down *ev = event_info;
 555    Evas_Object *win = data;
 556    Evas_Coord x, y;
 557
 558    if (ev->button != 1) return;
 559    evas_object_geometry_get(obj, &x, &y, NULL, NULL);
 560    state.orig = obj;
 561    state.win = win;
 562    state.down = 1;
 563    state.x = ev->canvas.x - x;
 564    state.y = ev->canvas.y - y;
 565    state.down_x = state.x;
 566    state.down_y = state.y;
 567    if (_slice_update(&state))
 568       evas_object_lower(obj);
 569    printf("v %i %i\n", state.x, state.y);
 570 }
 571
 572 static void
 573 im_up_cb(void *data __UNUSED__, Evas *e __UNUSED__, Evas_Object *obj, void *event_info)
 574 {
 575    Evas_Event_Mouse_Up *ev = event_info;
 576    Evas_Coord x, y;
 577
 578    if (ev->button != 1) return;
 579    evas_object_geometry_get(obj, &x, &y, NULL, NULL);
 580    state.down = 0;
 581    state.x = ev->canvas.x - x;
 582    state.y = ev->canvas.y - y;
 583    evas_object_raise(obj);
 584    printf("^ %i %i\n", state.x, state.y);
 585    _slice_end(&state);
 586 }
 587
 588 static void
 589 im_move_cb(void *data __UNUSED__, Evas *e __UNUSED__, Evas_Object *obj, void *event_info)
 590 {
 591    Evas_Event_Mouse_Move *ev = event_info;
 592    Evas_Coord x, y;
 593
 594    if (!state.down) return;
 595    evas_object_geometry_get(obj, &x, &y, NULL, NULL);
 596    state.x = ev->cur.canvas.x - x;
 597    state.y = ev->cur.canvas.y - y;
 598    printf("@ %i %i\n", state.x, state.y);
 599    if (_slice_update(&state))
 600       evas_object_lower(obj);
 601 }
 602
 603 void
 604 test_flip_page(void *data __UNUSED__, Evas_Object *obj __UNUSED__, void *event_info __UNUSED__)
 605 {
 606    Evas_Object *win, *bg, *im;
 607    char buf[PATH_MAX];
 608
 609    win = elm_win_add(NULL, "flip_page", ELM_WIN_BASIC);
 610    elm_win_title_set(win, "Flip Page");
 611    elm_win_focus_highlight_enabled_set(win, EINA_TRUE);
 612    elm_win_autodel_set(win, 1);
 613
 614    bg = elm_bg_add(win);
 615    elm_win_resize_object_add(win, bg);
 616    evas_object_size_hint_weight_set(bg, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
 617    evas_object_show(bg);
 618
 619 #if 0
 620    im = elm_layout_add(win);
 621    snprintf(buf, sizeof(buf), "%s/objects/test.edj", PACKAGE_DATA_DIR);
 622    elm_layout_file_set(im, buf, "layout");
 623 #else
 624    im = evas_object_image_filled_add(evas_object_evas_get(win));
 625    snprintf(buf, sizeof(buf), "%s/images/%s",
 626             PACKAGE_DATA_DIR, "twofish.jpg");
 627    evas_object_image_file_set(im, buf, NULL);
 628 #endif
 629    evas_object_move(im, 140, 140);
 630    evas_object_resize(im, 200, 200);
 631    evas_object_show(im);
 632
 633    evas_object_event_callback_add(im, EVAS_CALLBACK_MOUSE_DOWN, im_down_cb, win);
 634    evas_object_event_callback_add(im, EVAS_CALLBACK_MOUSE_UP,   im_up_cb,   win);
 635    evas_object_event_callback_add(im, EVAS_CALLBACK_MOUSE_MOVE, im_move_cb, win);
 636
 637    evas_object_resize(win, 480, 480);
 638    evas_object_show(win);
 639
 640 #ifdef PAGEMESH
 641    Evas_Object *sl;
 642
 643    sl = elm_slider_add(win);
 644    elm_slider_min_max_set(sl, -5, 5);
 645    elm_slider_value_set(sl, 0);
 646    sl_rho = sl;
 647    evas_object_smart_callback_add(sl, "changed", _sl_ch, NULL);
 648    elm_slider_label_set(sl, "rho");
 649    elm_slider_unit_format_set(sl, "%1.2f");
 650    elm_slider_span_size_set(sl, 320);
 651    evas_object_move(sl, 10, 20);
 652    evas_object_resize(sl, 460, 40);
 653    evas_object_layer_set(sl, 100);
 654    evas_object_show(sl);
 655
 656    sl = elm_slider_add(win);
 657    elm_slider_min_max_set(sl, 0, 10);
 658    elm_slider_value_set(sl, 7.86);
 659    sl_theta = sl;
 660    evas_object_smart_callback_add(sl, "changed", _sl_ch, NULL);
 661    elm_slider_label_set(sl, "theta");
 662    elm_slider_unit_format_set(sl, "%1.2f");
 663    elm_slider_span_size_set(sl, 320);
 664    evas_object_move(sl, 10, 60);
 665    evas_object_resize(sl, 460, 40);
 666    evas_object_layer_set(sl, 100);
 667    evas_object_show(sl);
 668
 669    sl = elm_slider_add(win);
 670    elm_slider_min_max_set(sl, -800, 800);
 671    elm_slider_value_set(sl, -400);
 672    sl_A = sl;
 673    evas_object_smart_callback_add(sl, "changed", _sl_ch, NULL);
 674    elm_slider_label_set(sl, "A");
 675    elm_slider_unit_format_set(sl, "%1.2f");
 676    elm_slider_span_size_set(sl, 320);
 677    evas_object_move(sl, 10, 100);
 678    evas_object_resize(sl, 460, 40);
 679    evas_object_layer_set(sl, 100);
 680    evas_object_show(sl);
 681 #endif
 682 }
 683 #endif