#nop vim: set filetype=tt:;

/*
本文件属于 PaoTin++ 的一部分
===========
PaoTin++ © 2020~2024 的所有版权均由担子炮(dzp <danzipao@gmail.com>) 享有并保留一切法律权利
你可以在遵照 GPLv3 协议的基础之上使用、修改及重新分发本程序。
===========
*/

#var lib_hzk12[META] {
    {NAME}      {点阵字库}
    {DESC}      {点阵字库处理，提供 API}
    {AUTHOR}    {担子炮}
    {NOTE}      {本文件属于 PaoTin++ 的一部分}
};

#func {lib_hzk12.Init} {
    #return {true};
};

#alias {hzk12.Beautify} {
    #local word {%1};

    #local lines {};
    #local line {0};
    #loop 1 12 {line} {
        #replace word {|%+16*|%*} {
            {left}  {&1}
            {right} {&2}
        };
        #local word {$word};
        #local line {$word[left]};
        #replace line {%+1S} {1};
        #replace line {%+1s} {0};
        #list lines add {{$line}};
        #local word {$word[right]};
    };

    hzk12.draw-block {$lines};
};

#alias {hzk12.draw-block} {
    #local lines {%1};

    #local code {};
    #local n {};
    #loop {1} {6} {n} {
        #local first    {@math.Eval{$n * 2 - 1}};
        #local first    {$lines[$first]};
        #list first     {tokenize} {$first};

        #local second   {@math.Eval{$n * 2}};
        #local second   {$lines[$second]};
        #list second    {tokenize} {$second};

        #local i {};
        #local line {};
        #loop {1} {16} {i} {
            #local point {$first[$i]$second[$i]};
            #switch {"$point"} {
                #case {"11"} {#cat line {█}};
                #case {"00"} {#cat line { }};
                #case {"10"} {#cat line {▀}};
                #case {"01"} {#cat line {▄}};
            };
        };
        #echo {%s} {$line};
    };
};

#alias {hzk12.test} {
    #local word {
        |  *   *         |
        |  *   *   *     |
        |  *  *******    |
        |* * **    *     |
        |* ** **** *     |
        |* *  *  * *     |
        |* *  *  * *     |
        |  *  **** *     |
        | * * *   **     |
        | *  **     *    |
        |*    *     *    |
        |      ******    |
    };

    hzk12.Beautify {$word};
};