#include "zcommon.acs"

// 90 x 45
str spheredesc=
"                                  ####### #  ##########                                                                      \
                    ##       #  ###   #################            ## #              #            ##                         \
                    ######   # #######     ############                          #    ######################## ####  #       \
### ##############################   ## #   #####      ###         ### #### #################################################\
      ### #   ########################                          #####  #############################################  #      \
                 ##########################                # #    # ###########################################      #       \
                   #####################  ##                 ##################  ##############################              \
                   ###################                     #####  ## ###     ##  ###########################                 \
                    ################                        ##     #  # ######## ######################## #   ##             \
                      ############                         ######### ###  #### ##########################                    \
                         ####                            #######################   ######################                    \
                          ###  #                         ##################  ######     ####   #### #                        \
                               ###                       ######################         ##      # ##                         \
                                  ########                ######################         ##              #                   \
                                   ##########                     #############                 # #  ##                      \
                                   ##############                 ###########                     #  ## #   ####             \
                                   ###############                 #########                                     #           \
                                    #############                  ##########  #                          ###   #            \
                                      ###########                  ########   #                         ##########           \
                                      ########                      ######                            ##############         \
                                      ######                         ####                              ####  ######          \
                                     #####                                                                     ####        # \
                                     ###                                                                         #        #  \
                                    ###                                                                                      \
                                      #                                                                                      \
                                                                                                                             \
                                        #                                       ##               ##          #               \
                                    ######                ########################################################## ##      \
          ###########       #######               ######################################################################     \
                         #########             ########################################################################### # \
#############################################################################################################################";

function int dabs(int v)
{
    if (v < 0) return -v;
    return v;
}

int s1ang = 0;
int s1vv = 0;
script 1 OPEN
{
    int ssize = 128;
    int ssizeF = ssize<<16;

    int baseX = GetActorx(1);
    int baseY = GetActorY(1);
    int baseZ = GetActorZ(1);

    s1ang += 0.001;
    s1vv++;
    s1vv %= 45;

    for (int i = 0; i < 90; i++)
    {
        int angi = 1.0*i/90;
        angi += s1ang;
        int Xp = cos(angi);
        int Yp = sin(angi);

        for (int j = 0; j < 45; j++)
        {
            int angj = 0.5*j/45+0.25;

            //
            /*if (dabs(s1vv-j) > 10)
                continue;*/

            int pw = cos(angj);
            int Zp = sin(angj);

            int xc = FixedMul(Xp, FixedMul(ssizeF, pw));
            int yc = FixedMul(Yp, FixedMul(ssizeF, pw));
            int zc = Zp * ssize;

            int chrw = 127;
            int chrh = 31;
            //int chrw = 90;
            //int chrh = 45;

            int chridx = (j * chrh / 45) * chrw;
            chridx += (i * chrw / 90);
            int len = strlen(spheredesc);
            //printbold(d:len);

            int alphadiv = 1;
            if (dabs(s1vv-j) > 2)
                alphadiv = 2;

            //int chridx = ((j / 6) * 28) + ((i / 3) % 28);
            int chr = GetChar(spheredesc, chridx);
            if (chr != ' ')
            {
                SpawnParticle(0xFFFF00, true, 1, 32, baseX+xc, baseY+yc, baseZ+zc, 0, 0, 0, 0, 0, 0, 255/alphadiv, 0);
                //else SpawnParticle(0xFF0000, true, 1, 2, baseX+xc, baseY+yc, baseZ+zc, 0, 0, 0, 0, 0, 0, 255, 0);
            }
            else
            {
                SpawnParticle(0x0000FF, true, 1, 32, baseX+xc, baseY+yc, baseZ+zc, 0, 0, 0, 0, 0, 0, 64/alphadiv, 0);
            }
        }
    }

    Delay(1);
    restart;
}