source: cpp/frams/model/autoname.cpp @ 1045

// This file is a part of Framsticks SDK.  http://www.framsticks.com/
// Copyright (C) 1999-2020  Maciej Komosinski and Szymon Ulatowski.
// See LICENSE.txt for details.

#include "autoname.h"
#include "common/nonstd_stl.h"
#include <ctype.h>

SString AutoName::makeName(Model &model)
{
        SString t;
        t = firstName(model);
        SString last = lastName(model);
        if (last.length() > 0)
        {
                t += ' ';
                t += last;
        }
        return t;
}

///////////////////////////

static char* cat_syl(char* str, unsigned int x)
{
        static char sp[] = "bcdfghklmnprstwz", sa[] = "aeiouy";
        x %= 6 * 16;
        str[0] = sa[x % 6];
        if (x > 5)
        {
                str[1] = sp[x / 6]; str[2] = 0; return str + 2;
        }
        else
        {
                str[1] = 0; return str + 1;
        }
}

SString AutoName::firstName(const SString& g)
{
        char buf[8];
        unsigned int s1 = 0, s2 = 0, s3 = 0;
        const char *x = g.c_str();
        if (*x == 0) return SString();
        for (; *x; x++) { s1 += *x; s2 = s2 * *x + *x; s3 = (s3 ^ *x) + *x; }
        char* t = buf;
        t = cat_syl(t, s1);
        t = cat_syl(t, s2);
        t = cat_syl(t, s3);
        buf[0] = (char)toupper(buf[0]);
        return SString(buf);
}

SString AutoName::firstName(Model& model)
{
        return firstName(model.getGeno().getGenes());
}

static void przeplatanka(char *out, char *in1, char *in2)
{
        int d1 = strlen(in1), d2 = strlen(in2);
        int p1 = 0, p2 = 0;
        int pp = d1 + d2;
        int i, p;
        if (d2 < d1)
        {
                int t = d2; d2 = d1; d1 = t;
                char *c = in1; in1 = in2; in2 = c;
        }
        if (pp)
                for (i = 0; i <= pp; i++)
                {
                        p = (i * d1) / pp - 1; for (; p1 <= p; p1++) *(out++) = *(in1++);
                        p = (i * d2) / pp - 1; for (; p2 <= p; p2++) *(out++) = *(in2++);
                }
        *out = 0;
}

SString AutoName::lastName(Model& model)
{
        char Sam[] = "yeaou";
        char Sp[] = "shtkdgmr";

#define NAME_MAXLENBODY 5
#define NAME_MAXLENBRAIN 5
#define NAME_BODYLEN 0.8
#define NAME_BRAINLEN 0.8
#define NAME_BODYMASS 1.0
#define NAME_BRAININP 1.0

        char naz[NAME_MAXLENBODY + NAME_MAXLENBRAIN + 1];
        int poz, nextpoz, i;

        double w;
        int cialo = -1;
        int mozg = -1;

        char tmpc[NAME_MAXLENBODY + 1], tmpm[NAME_MAXLENBRAIN + 1];

        if (model.getPartCount() > 0)
        {
                cialo = min((int)(sqrt(double(model.getPartCount()) - 1) * NAME_BODYLEN), NAME_MAXLENBODY - 1);
                poz = 0;
                for (i = 0; i <= cialo; i++) // budowanie "opisu" ciala
                {
                        nextpoz = ((model.getPartCount()) * (i + 1)) / (cialo + 1) - 1;
                        w = 1.0;
                        for (; poz <= nextpoz; poz++) w = max(w, model.getPart(poz)->mass);
                        tmpc[i] = Sp[min(int((w - 1.0) * NAME_BODYMASS), int(sizeof(Sp)) - 2)];
                }
                tmpc[i] = 0;
        }
        else tmpc[0] = 0;

        int wint;

        if (model.getNeuroCount() > 0)
        {
                mozg = min((int)(sqrt((double)model.getNeuroCount()) * NAME_BRAINLEN), NAME_MAXLENBRAIN - 1);
                poz = 0;
                for (i = 0; i <= mozg; i++) // budowanie "opisu" mozgu
                {
                        nextpoz = (model.getNeuroCount() * (i + 1)) / (mozg + 1) - 1;
                        wint = 0;
                        for (; poz <= nextpoz; poz++) wint = max(wint, model.getNeuro(poz)->getInputCount());
                        tmpm[i] = Sam[min(int(wint * NAME_BRAININP), int(sizeof(Sam)) - 2)];
                }
                tmpm[i] = 0;
        }
        else tmpm[0] = 0;

        if ((mozg + 1) < ((cialo + 2) / 2))
        {
                for (i = mozg + 1; i <= cialo / 2; i++) tmpm[i] = 'i';
                tmpm[i] = 0;
        }

        przeplatanka(naz, tmpc, tmpm);

        naz[0] = (char)toupper(naz[0]);
        return SString(naz);
}