duckstation

duckstation, but archived from the revision just before upstream changed it to a proprietary software project, this version is the libre one
git clone https://git.neptards.moe/u3shit/duckstation.git
Log | Files | Refs | README | LICENSE

imstb_rectpack.h (20344B)


      1 // [DEAR IMGUI]
      2 // This is a slightly modified version of stb_rect_pack.h 1.01.
      3 // Grep for [DEAR IMGUI] to find the changes.
      4 // 
      5 // stb_rect_pack.h - v1.01 - public domain - rectangle packing
      6 // Sean Barrett 2014
      7 //
      8 // Useful for e.g. packing rectangular textures into an atlas.
      9 // Does not do rotation.
     10 //
     11 // Before #including,
     12 //
     13 //    #define STB_RECT_PACK_IMPLEMENTATION
     14 //
     15 // in the file that you want to have the implementation.
     16 //
     17 // Not necessarily the awesomest packing method, but better than
     18 // the totally naive one in stb_truetype (which is primarily what
     19 // this is meant to replace).
     20 //
     21 // Has only had a few tests run, may have issues.
     22 //
     23 // More docs to come.
     24 //
     25 // No memory allocations; uses qsort() and assert() from stdlib.
     26 // Can override those by defining STBRP_SORT and STBRP_ASSERT.
     27 //
     28 // This library currently uses the Skyline Bottom-Left algorithm.
     29 //
     30 // Please note: better rectangle packers are welcome! Please
     31 // implement them to the same API, but with a different init
     32 // function.
     33 //
     34 // Credits
     35 //
     36 //  Library
     37 //    Sean Barrett
     38 //  Minor features
     39 //    Martins Mozeiko
     40 //    github:IntellectualKitty
     41 //
     42 //  Bugfixes / warning fixes
     43 //    Jeremy Jaussaud
     44 //    Fabian Giesen
     45 //
     46 // Version history:
     47 //
     48 //     1.01  (2021-07-11)  always use large rect mode, expose STBRP__MAXVAL in public section
     49 //     1.00  (2019-02-25)  avoid small space waste; gracefully fail too-wide rectangles
     50 //     0.99  (2019-02-07)  warning fixes
     51 //     0.11  (2017-03-03)  return packing success/fail result
     52 //     0.10  (2016-10-25)  remove cast-away-const to avoid warnings
     53 //     0.09  (2016-08-27)  fix compiler warnings
     54 //     0.08  (2015-09-13)  really fix bug with empty rects (w=0 or h=0)
     55 //     0.07  (2015-09-13)  fix bug with empty rects (w=0 or h=0)
     56 //     0.06  (2015-04-15)  added STBRP_SORT to allow replacing qsort
     57 //     0.05:  added STBRP_ASSERT to allow replacing assert
     58 //     0.04:  fixed minor bug in STBRP_LARGE_RECTS support
     59 //     0.01:  initial release
     60 //
     61 // LICENSE
     62 //
     63 //   See end of file for license information.
     64 
     65 //////////////////////////////////////////////////////////////////////////////
     66 //
     67 //       INCLUDE SECTION
     68 //
     69 
     70 #ifndef STB_INCLUDE_STB_RECT_PACK_H
     71 #define STB_INCLUDE_STB_RECT_PACK_H
     72 
     73 #define STB_RECT_PACK_VERSION  1
     74 
     75 #ifdef STBRP_STATIC
     76 #define STBRP_DEF static
     77 #else
     78 #define STBRP_DEF extern
     79 #endif
     80 
     81 #ifdef __cplusplus
     82 extern "C" {
     83 #endif
     84 
     85 typedef struct stbrp_context stbrp_context;
     86 typedef struct stbrp_node    stbrp_node;
     87 typedef struct stbrp_rect    stbrp_rect;
     88 
     89 typedef int            stbrp_coord;
     90 
     91 #define STBRP__MAXVAL  0x7fffffff
     92 // Mostly for internal use, but this is the maximum supported coordinate value.
     93 
     94 STBRP_DEF int stbrp_pack_rects (stbrp_context *context, stbrp_rect *rects, int num_rects);
     95 // Assign packed locations to rectangles. The rectangles are of type
     96 // 'stbrp_rect' defined below, stored in the array 'rects', and there
     97 // are 'num_rects' many of them.
     98 //
     99 // Rectangles which are successfully packed have the 'was_packed' flag
    100 // set to a non-zero value and 'x' and 'y' store the minimum location
    101 // on each axis (i.e. bottom-left in cartesian coordinates, top-left
    102 // if you imagine y increasing downwards). Rectangles which do not fit
    103 // have the 'was_packed' flag set to 0.
    104 //
    105 // You should not try to access the 'rects' array from another thread
    106 // while this function is running, as the function temporarily reorders
    107 // the array while it executes.
    108 //
    109 // To pack into another rectangle, you need to call stbrp_init_target
    110 // again. To continue packing into the same rectangle, you can call
    111 // this function again. Calling this multiple times with multiple rect
    112 // arrays will probably produce worse packing results than calling it
    113 // a single time with the full rectangle array, but the option is
    114 // available.
    115 //
    116 // The function returns 1 if all of the rectangles were successfully
    117 // packed and 0 otherwise.
    118 
    119 struct stbrp_rect
    120 {
    121    // reserved for your use:
    122    int            id;
    123 
    124    // input:
    125    stbrp_coord    w, h;
    126 
    127    // output:
    128    stbrp_coord    x, y;
    129    int            was_packed;  // non-zero if valid packing
    130 
    131 }; // 16 bytes, nominally
    132 
    133 
    134 STBRP_DEF void stbrp_init_target (stbrp_context *context, int width, int height, stbrp_node *nodes, int num_nodes);
    135 // Initialize a rectangle packer to:
    136 //    pack a rectangle that is 'width' by 'height' in dimensions
    137 //    using temporary storage provided by the array 'nodes', which is 'num_nodes' long
    138 //
    139 // You must call this function every time you start packing into a new target.
    140 //
    141 // There is no "shutdown" function. The 'nodes' memory must stay valid for
    142 // the following stbrp_pack_rects() call (or calls), but can be freed after
    143 // the call (or calls) finish.
    144 //
    145 // Note: to guarantee best results, either:
    146 //       1. make sure 'num_nodes' >= 'width'
    147 //   or  2. call stbrp_allow_out_of_mem() defined below with 'allow_out_of_mem = 1'
    148 //
    149 // If you don't do either of the above things, widths will be quantized to multiples
    150 // of small integers to guarantee the algorithm doesn't run out of temporary storage.
    151 //
    152 // If you do #2, then the non-quantized algorithm will be used, but the algorithm
    153 // may run out of temporary storage and be unable to pack some rectangles.
    154 
    155 STBRP_DEF void stbrp_setup_allow_out_of_mem (stbrp_context *context, int allow_out_of_mem);
    156 // Optionally call this function after init but before doing any packing to
    157 // change the handling of the out-of-temp-memory scenario, described above.
    158 // If you call init again, this will be reset to the default (false).
    159 
    160 
    161 STBRP_DEF void stbrp_setup_heuristic (stbrp_context *context, int heuristic);
    162 // Optionally select which packing heuristic the library should use. Different
    163 // heuristics will produce better/worse results for different data sets.
    164 // If you call init again, this will be reset to the default.
    165 
    166 enum
    167 {
    168    STBRP_HEURISTIC_Skyline_default=0,
    169    STBRP_HEURISTIC_Skyline_BL_sortHeight = STBRP_HEURISTIC_Skyline_default,
    170    STBRP_HEURISTIC_Skyline_BF_sortHeight
    171 };
    172 
    173 
    174 //////////////////////////////////////////////////////////////////////////////
    175 //
    176 // the details of the following structures don't matter to you, but they must
    177 // be visible so you can handle the memory allocations for them
    178 
    179 struct stbrp_node
    180 {
    181    stbrp_coord  x,y;
    182    stbrp_node  *next;
    183 };
    184 
    185 struct stbrp_context
    186 {
    187    int width;
    188    int height;
    189    int align;
    190    int init_mode;
    191    int heuristic;
    192    int num_nodes;
    193    stbrp_node *active_head;
    194    stbrp_node *free_head;
    195    stbrp_node extra[2]; // we allocate two extra nodes so optimal user-node-count is 'width' not 'width+2'
    196 };
    197 
    198 #ifdef __cplusplus
    199 }
    200 #endif
    201 
    202 #endif
    203 
    204 //////////////////////////////////////////////////////////////////////////////
    205 //
    206 //     IMPLEMENTATION SECTION
    207 //
    208 
    209 #ifdef STB_RECT_PACK_IMPLEMENTATION
    210 #ifndef STBRP_SORT
    211 #include <stdlib.h>
    212 #define STBRP_SORT qsort
    213 #endif
    214 
    215 #ifndef STBRP_ASSERT
    216 #include <assert.h>
    217 #define STBRP_ASSERT assert
    218 #endif
    219 
    220 #ifdef _MSC_VER
    221 #define STBRP__NOTUSED(v)  (void)(v)
    222 #define STBRP__CDECL       __cdecl
    223 #else
    224 #define STBRP__NOTUSED(v)  (void)sizeof(v)
    225 #define STBRP__CDECL
    226 #endif
    227 
    228 enum
    229 {
    230    STBRP__INIT_skyline = 1
    231 };
    232 
    233 STBRP_DEF void stbrp_setup_heuristic(stbrp_context *context, int heuristic)
    234 {
    235    switch (context->init_mode) {
    236       case STBRP__INIT_skyline:
    237          STBRP_ASSERT(heuristic == STBRP_HEURISTIC_Skyline_BL_sortHeight || heuristic == STBRP_HEURISTIC_Skyline_BF_sortHeight);
    238          context->heuristic = heuristic;
    239          break;
    240       default:
    241          STBRP_ASSERT(0);
    242    }
    243 }
    244 
    245 STBRP_DEF void stbrp_setup_allow_out_of_mem(stbrp_context *context, int allow_out_of_mem)
    246 {
    247    if (allow_out_of_mem)
    248       // if it's ok to run out of memory, then don't bother aligning them;
    249       // this gives better packing, but may fail due to OOM (even though
    250       // the rectangles easily fit). @TODO a smarter approach would be to only
    251       // quantize once we've hit OOM, then we could get rid of this parameter.
    252       context->align = 1;
    253    else {
    254       // if it's not ok to run out of memory, then quantize the widths
    255       // so that num_nodes is always enough nodes.
    256       //
    257       // I.e. num_nodes * align >= width
    258       //                  align >= width / num_nodes
    259       //                  align = ceil(width/num_nodes)
    260 
    261       context->align = (context->width + context->num_nodes-1) / context->num_nodes;
    262    }
    263 }
    264 
    265 STBRP_DEF void stbrp_init_target(stbrp_context *context, int width, int height, stbrp_node *nodes, int num_nodes)
    266 {
    267    int i;
    268 
    269    for (i=0; i < num_nodes-1; ++i)
    270       nodes[i].next = &nodes[i+1];
    271    nodes[i].next = NULL;
    272    context->init_mode = STBRP__INIT_skyline;
    273    context->heuristic = STBRP_HEURISTIC_Skyline_default;
    274    context->free_head = &nodes[0];
    275    context->active_head = &context->extra[0];
    276    context->width = width;
    277    context->height = height;
    278    context->num_nodes = num_nodes;
    279    stbrp_setup_allow_out_of_mem(context, 0);
    280 
    281    // node 0 is the full width, node 1 is the sentinel (lets us not store width explicitly)
    282    context->extra[0].x = 0;
    283    context->extra[0].y = 0;
    284    context->extra[0].next = &context->extra[1];
    285    context->extra[1].x = (stbrp_coord) width;
    286    context->extra[1].y = (1<<30);
    287    context->extra[1].next = NULL;
    288 }
    289 
    290 // find minimum y position if it starts at x1
    291 static int stbrp__skyline_find_min_y(stbrp_context *c, stbrp_node *first, int x0, int width, int *pwaste)
    292 {
    293    stbrp_node *node = first;
    294    int x1 = x0 + width;
    295    int min_y, visited_width, waste_area;
    296 
    297    STBRP__NOTUSED(c);
    298 
    299    STBRP_ASSERT(first->x <= x0);
    300 
    301    #if 0
    302    // skip in case we're past the node
    303    while (node->next->x <= x0)
    304       ++node;
    305    #else
    306    STBRP_ASSERT(node->next->x > x0); // we ended up handling this in the caller for efficiency
    307    #endif
    308 
    309    STBRP_ASSERT(node->x <= x0);
    310 
    311    min_y = 0;
    312    waste_area = 0;
    313    visited_width = 0;
    314    while (node->x < x1) {
    315       if (node->y > min_y) {
    316          // raise min_y higher.
    317          // we've accounted for all waste up to min_y,
    318          // but we'll now add more waste for everything we've visted
    319          waste_area += visited_width * (node->y - min_y);
    320          min_y = node->y;
    321          // the first time through, visited_width might be reduced
    322          if (node->x < x0)
    323             visited_width += node->next->x - x0;
    324          else
    325             visited_width += node->next->x - node->x;
    326       } else {
    327          // add waste area
    328          int under_width = node->next->x - node->x;
    329          if (under_width + visited_width > width)
    330             under_width = width - visited_width;
    331          waste_area += under_width * (min_y - node->y);
    332          visited_width += under_width;
    333       }
    334       node = node->next;
    335    }
    336 
    337    *pwaste = waste_area;
    338    return min_y;
    339 }
    340 
    341 typedef struct
    342 {
    343    int x,y;
    344    stbrp_node **prev_link;
    345 } stbrp__findresult;
    346 
    347 static stbrp__findresult stbrp__skyline_find_best_pos(stbrp_context *c, int width, int height)
    348 {
    349    int best_waste = (1<<30), best_x, best_y = (1 << 30);
    350    stbrp__findresult fr;
    351    stbrp_node **prev, *node, *tail, **best = NULL;
    352 
    353    // align to multiple of c->align
    354    width = (width + c->align - 1);
    355    width -= width % c->align;
    356    STBRP_ASSERT(width % c->align == 0);
    357 
    358    // if it can't possibly fit, bail immediately
    359    if (width > c->width || height > c->height) {
    360       fr.prev_link = NULL;
    361       fr.x = fr.y = 0;
    362       return fr;
    363    }
    364 
    365    node = c->active_head;
    366    prev = &c->active_head;
    367    while (node->x + width <= c->width) {
    368       int y,waste;
    369       y = stbrp__skyline_find_min_y(c, node, node->x, width, &waste);
    370       if (c->heuristic == STBRP_HEURISTIC_Skyline_BL_sortHeight) { // actually just want to test BL
    371          // bottom left
    372          if (y < best_y) {
    373             best_y = y;
    374             best = prev;
    375          }
    376       } else {
    377          // best-fit
    378          if (y + height <= c->height) {
    379             // can only use it if it first vertically
    380             if (y < best_y || (y == best_y && waste < best_waste)) {
    381                best_y = y;
    382                best_waste = waste;
    383                best = prev;
    384             }
    385          }
    386       }
    387       prev = &node->next;
    388       node = node->next;
    389    }
    390 
    391    best_x = (best == NULL) ? 0 : (*best)->x;
    392 
    393    // if doing best-fit (BF), we also have to try aligning right edge to each node position
    394    //
    395    // e.g, if fitting
    396    //
    397    //     ____________________
    398    //    |____________________|
    399    //
    400    //            into
    401    //
    402    //   |                         |
    403    //   |             ____________|
    404    //   |____________|
    405    //
    406    // then right-aligned reduces waste, but bottom-left BL is always chooses left-aligned
    407    //
    408    // This makes BF take about 2x the time
    409 
    410    if (c->heuristic == STBRP_HEURISTIC_Skyline_BF_sortHeight) {
    411       tail = c->active_head;
    412       node = c->active_head;
    413       prev = &c->active_head;
    414       // find first node that's admissible
    415       while (tail->x < width)
    416          tail = tail->next;
    417       while (tail) {
    418          int xpos = tail->x - width;
    419          int y,waste;
    420          STBRP_ASSERT(xpos >= 0);
    421          // find the left position that matches this
    422          while (node->next->x <= xpos) {
    423             prev = &node->next;
    424             node = node->next;
    425          }
    426          STBRP_ASSERT(node->next->x > xpos && node->x <= xpos);
    427          y = stbrp__skyline_find_min_y(c, node, xpos, width, &waste);
    428          if (y + height <= c->height) {
    429             if (y <= best_y) {
    430                if (y < best_y || waste < best_waste || (waste==best_waste && xpos < best_x)) {
    431                   best_x = xpos;
    432                   //STBRP_ASSERT(y <= best_y); [DEAR IMGUI]
    433                   best_y = y;
    434                   best_waste = waste;
    435                   best = prev;
    436                }
    437             }
    438          }
    439          tail = tail->next;
    440       }
    441    }
    442 
    443    fr.prev_link = best;
    444    fr.x = best_x;
    445    fr.y = best_y;
    446    return fr;
    447 }
    448 
    449 static stbrp__findresult stbrp__skyline_pack_rectangle(stbrp_context *context, int width, int height)
    450 {
    451    // find best position according to heuristic
    452    stbrp__findresult res = stbrp__skyline_find_best_pos(context, width, height);
    453    stbrp_node *node, *cur;
    454 
    455    // bail if:
    456    //    1. it failed
    457    //    2. the best node doesn't fit (we don't always check this)
    458    //    3. we're out of memory
    459    if (res.prev_link == NULL || res.y + height > context->height || context->free_head == NULL) {
    460       res.prev_link = NULL;
    461       return res;
    462    }
    463 
    464    // on success, create new node
    465    node = context->free_head;
    466    node->x = (stbrp_coord) res.x;
    467    node->y = (stbrp_coord) (res.y + height);
    468 
    469    context->free_head = node->next;
    470 
    471    // insert the new node into the right starting point, and
    472    // let 'cur' point to the remaining nodes needing to be
    473    // stiched back in
    474 
    475    cur = *res.prev_link;
    476    if (cur->x < res.x) {
    477       // preserve the existing one, so start testing with the next one
    478       stbrp_node *next = cur->next;
    479       cur->next = node;
    480       cur = next;
    481    } else {
    482       *res.prev_link = node;
    483    }
    484 
    485    // from here, traverse cur and free the nodes, until we get to one
    486    // that shouldn't be freed
    487    while (cur->next && cur->next->x <= res.x + width) {
    488       stbrp_node *next = cur->next;
    489       // move the current node to the free list
    490       cur->next = context->free_head;
    491       context->free_head = cur;
    492       cur = next;
    493    }
    494 
    495    // stitch the list back in
    496    node->next = cur;
    497 
    498    if (cur->x < res.x + width)
    499       cur->x = (stbrp_coord) (res.x + width);
    500 
    501 #ifdef _DEBUG
    502    cur = context->active_head;
    503    while (cur->x < context->width) {
    504       STBRP_ASSERT(cur->x < cur->next->x);
    505       cur = cur->next;
    506    }
    507    STBRP_ASSERT(cur->next == NULL);
    508 
    509    {
    510       int count=0;
    511       cur = context->active_head;
    512       while (cur) {
    513          cur = cur->next;
    514          ++count;
    515       }
    516       cur = context->free_head;
    517       while (cur) {
    518          cur = cur->next;
    519          ++count;
    520       }
    521       STBRP_ASSERT(count == context->num_nodes+2);
    522    }
    523 #endif
    524 
    525    return res;
    526 }
    527 
    528 static int STBRP__CDECL rect_height_compare(const void *a, const void *b)
    529 {
    530    const stbrp_rect *p = (const stbrp_rect *) a;
    531    const stbrp_rect *q = (const stbrp_rect *) b;
    532    if (p->h > q->h)
    533       return -1;
    534    if (p->h < q->h)
    535       return  1;
    536    return (p->w > q->w) ? -1 : (p->w < q->w);
    537 }
    538 
    539 static int STBRP__CDECL rect_original_order(const void *a, const void *b)
    540 {
    541    const stbrp_rect *p = (const stbrp_rect *) a;
    542    const stbrp_rect *q = (const stbrp_rect *) b;
    543    return (p->was_packed < q->was_packed) ? -1 : (p->was_packed > q->was_packed);
    544 }
    545 
    546 STBRP_DEF int stbrp_pack_rects(stbrp_context *context, stbrp_rect *rects, int num_rects)
    547 {
    548    int i, all_rects_packed = 1;
    549 
    550    // we use the 'was_packed' field internally to allow sorting/unsorting
    551    for (i=0; i < num_rects; ++i) {
    552       rects[i].was_packed = i;
    553    }
    554 
    555    // sort according to heuristic
    556    STBRP_SORT(rects, num_rects, sizeof(rects[0]), rect_height_compare);
    557 
    558    for (i=0; i < num_rects; ++i) {
    559       if (rects[i].w == 0 || rects[i].h == 0) {
    560          rects[i].x = rects[i].y = 0;  // empty rect needs no space
    561       } else {
    562          stbrp__findresult fr = stbrp__skyline_pack_rectangle(context, rects[i].w, rects[i].h);
    563          if (fr.prev_link) {
    564             rects[i].x = (stbrp_coord) fr.x;
    565             rects[i].y = (stbrp_coord) fr.y;
    566          } else {
    567             rects[i].x = rects[i].y = STBRP__MAXVAL;
    568          }
    569       }
    570    }
    571 
    572    // unsort
    573    STBRP_SORT(rects, num_rects, sizeof(rects[0]), rect_original_order);
    574 
    575    // set was_packed flags and all_rects_packed status
    576    for (i=0; i < num_rects; ++i) {
    577       rects[i].was_packed = !(rects[i].x == STBRP__MAXVAL && rects[i].y == STBRP__MAXVAL);
    578       if (!rects[i].was_packed)
    579          all_rects_packed = 0;
    580    }
    581 
    582    // return the all_rects_packed status
    583    return all_rects_packed;
    584 }
    585 #endif
    586 
    587 /*
    588 ------------------------------------------------------------------------------
    589 This software is available under 2 licenses -- choose whichever you prefer.
    590 ------------------------------------------------------------------------------
    591 ALTERNATIVE A - MIT License
    592 Copyright (c) 2017 Sean Barrett
    593 Permission is hereby granted, free of charge, to any person obtaining a copy of
    594 this software and associated documentation files (the "Software"), to deal in
    595 the Software without restriction, including without limitation the rights to
    596 use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
    597 of the Software, and to permit persons to whom the Software is furnished to do
    598 so, subject to the following conditions:
    599 The above copyright notice and this permission notice shall be included in all
    600 copies or substantial portions of the Software.
    601 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
    602 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
    603 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
    604 AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
    605 LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
    606 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
    607 SOFTWARE.
    608 ------------------------------------------------------------------------------
    609 ALTERNATIVE B - Public Domain (www.unlicense.org)
    610 This is free and unencumbered software released into the public domain.
    611 Anyone is free to copy, modify, publish, use, compile, sell, or distribute this
    612 software, either in source code form or as a compiled binary, for any purpose,
    613 commercial or non-commercial, and by any means.
    614 In jurisdictions that recognize copyright laws, the author or authors of this
    615 software dedicate any and all copyright interest in the software to the public
    616 domain. We make this dedication for the benefit of the public at large and to
    617 the detriment of our heirs and successors. We intend this dedication to be an
    618 overt act of relinquishment in perpetuity of all present and future rights to
    619 this software under copyright law.
    620 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
    621 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
    622 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
    623 AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
    624 ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
    625 WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
    626 ------------------------------------------------------------------------------
    627 */