DIR : /home/kozerus/public_html/go/dgs0/scripts/generate_board_images.pl

/home/kozerus/public_html/go/dgs0/scripts

#!/usr/bin/perl

# Dragon Go Server
# Copyright (C) 2001-2014  Erik Ouchterlony

# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU Affero General Public License as
# published by the Free Software Foundation, either version 3 of the
# License, or (at your option) any later version.

# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU Affero General Public License for more details.

# You should have received a copy of the GNU Affero General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

#use Gimp qw(:auto);
use Gimp ":auto";
use Gimp::Fu;
use IO::Handle;
use POSIX;
#use Math::Round qw(round);

#Gimp::set_trace (TRACE_ALL);

$HIGHEST_STONE_NUMBER = 500;


sub round
{
    my ($val) = @_;

    floor($val + 0.5);
}
sub draw_filled_square
{
    my ($sz) = @_;
    $a = $size / $final_size * round (($final_size - $final_size * $sz) / 2);
    gimp_rect_select ($theImage, $a, $a, ($size - 2 * $a), ($size - 2 * $a), CHANNEL_OP_REPLACE, 0, 0);
    gimp_edit_fill ($theLayer, FOREGROUND_FILL);
}

sub draw_square
{
    my ($sz, $thickness) = @_;
    $a1 = $size / $final_size * round (($final_size - $final_size * $sz) / 2);
    $a2 = ($a1 + round ($size * $thickness));
    gimp_rect_select ($theImage, $a1, $a1, ($size - 2 * $a1), ($size - 2 * $a1), CHANNEL_OP_REPLACE, 0, 0);
    gimp_rect_select ($theImage, $a2, $a2, ($size - 2 * $a2), ($size - 2 * $a2), CHANNEL_OP_SUBTRACT, 0, 0);
    gimp_edit_fill ($theLayer, FOREGROUND_FILL);
    gimp_selection_none ($theImage);
}

sub draw_circle
{
    my ($sz, $thickness) = @_;
    $a1 = $size / $final_size * round (($final_size - $final_size * $sz) / 2);
    $a2 = ($a1 + round ($size * $thickness));
    gimp_ellipse_select ($theImage, $a1, $a1, ($size - 2 * $a1), ($size - 2 * $a1), CHANNEL_OP_REPLACE, 1, 0, 0);
    gimp_ellipse_select ($theImage, $a2, $a2, ($size - 2 * $a2), ($size - 2 * $a2), CHANNEL_OP_SUBTRACT, 1, 0, 0);
    gimp_edit_fill ($theLayer, FOREGROUND_FILL);
    gimp_selection_none ($theImage);
}

sub select_line
{
    my ($p1x, $p1y, $p2x, $p2y, $thickness, $operation) = @_;
    $b0x = ($p1y - $p2y);
    $b0y = ($p2x - $p1x);
    $bl = 0.5 * $thickness * 1 / sqrt (($b0x * $b0x + $b0y * $b0y));
    $bx = $b0x * $bl;
    $by = $b0y * $bl;

    gimp_free_select ($theImage, 10,
                      [ $p1x + $bx, $p1y + $by, $p2x + $bx, $p2y + $by, $p2x - $bx,
                        $p2y - $by, $p1x - $bx, $p1y - $by, $p1x + $bx, $p1y + $by ],
                      $operation, 1, 0, 0);
}

sub draw_x_mark
{
    my ($sz, $thickness) = @_;
    $a = round (($size - $size * $sz) / 2);
    $th = $size * $thickness;
    select_line ($a, $a, ($size - $a), ($size - $a), $th, CHANNEL_OP_REPLACE);
    select_line ($a, ($size - $a), ($size - $a), $a, $th, CHANNEL_OP_ADD);
    gimp_edit_fill ($theLayer, FOREGROUND_FILL);
    gimp_selection_none ($theImage);
}

sub draw_triangle
{
    my ($sz, $thickness) = @_;
    $v1 = 3.14159265 * 1 / 6;
    $v2 = 3.14159265 * 5 / 6;
    $v3 = 3.14159265 * -3 / 6;
    $th = $size * $thickness;
    $p1x = ($size / 2 + cos ($v1) * $size * $sz);
    $p1y = ($size / 2 + sin ($v1) * $size * $sz);
    $p2x = ($size / 2 + cos ($v2) * $size * $sz);
    $p2y = ($size / 2 + sin ($v2) * $size * $sz);
    $p3x = ($size / 2 + cos ($v3) * $size * $sz);
    $p3y = ($size / 2 + sin ($v3) * $size * $sz);
    $y = ($p1y + 0.5 * $th) * $final_size / $size;
    $dy = (round ($y) - $y) * $size / $final_size;
    $p1y = ($p1y + $dy);
    $p2y = ($p2y + $dy);
    $p3y = ($p3y + $dy);
    select_line ($p1x, $p1y, $p2x, $p2y, $th, CHANNEL_OP_REPLACE);
    select_line ($p2x, $p2y, $p3x, $p3y, $th, CHANNEL_OP_ADD);
    select_line ($p3x, $p3y, $p1x, $p1y, $th, CHANNEL_OP_ADD);
    gimp_edit_fill ($theLayer, FOREGROUND_FILL);
    gimp_selection_none ($theImage);
}

sub get_font_height
{
    my ($fontname) = @_;
    ($width,$height,$ascent,$descent) = gimp_text_get_extents_fontname("0", $number_font_size, PIXELS, $fontname);
#     my ($filename) = @_;
#     $im = gimp_file_load ($filename, $filename);
#     $ly = gimp_text_fontname($im, -1, 0, 0, "0123456789", 0, 1, $number_font_size, PIXELS, $number_font);
#     $font_height = gimp_drawable_height ($ly);
#     gimp_image_delete ($im);
#     $font_height;

    $height;
}

sub draw_number
{
    my ($text) = @_;
    $newLayer = gimp_text_fontname ($theImage, -1, 0, 0, $text, 0, 1, $number_font_size, PIXELS, $number_font);
    ($w,$h,$ascent,$descent) = gimp_text_get_extents_fontname($text, $number_font_size, PIXELS, $number_font);

    if ( gimp_drawable_width($newLayer) > 0.8*$size )
     {
         gimp_layer_scale ($newLayer, 0.8*$size, gimp_drawable_height ($newLayer), 0);
         $w = gimp_drawable_width ($newLayer);
     }
#     $w = gimp_drawable_width ($newLayer);
#     if ( int($text) % 10 == 1 )
#     {
#         $w += $size * 0.06;
#     }

    gimp_layer_translate ($newLayer, ($size / 2 - $w / 2),
                          ($size / 2 - 1.05*$number_font_height / 2));
    $theLayer = gimp_image_merge_visible_layers ($theImage, CLIP_TO_BOTTOM_LAYER);
}

sub draw_board_lines
{
    my ($right, $up, $h, $clear) = @_;
    if ($clear == 1)
    {
        clear_image ();
    }
    gimp_context_set_foreground ([0, 0, 0]);
    $c = ($final_size - $linewidth) / 2;
    $d = ($final_size + $linewidth) / 2;

    if ($right <= 0 && defined($right))
    {
        gimp_rect_select ($theImage, $c, $c, $d, $linewidth, CHANNEL_OP_ADD, 0, 0);
    }
    if ($up >= 0)
    {
        gimp_rect_select ($theImage, $c, 0, $linewidth, $d, CHANNEL_OP_ADD, 0, 0);
    }
    if ($right >= 0 && defined($right))
    {
        gimp_rect_select ($theImage, 0, $c, $d, $linewidth, CHANNEL_OP_ADD, 0, 0);
    }
    if ($up <= 0)
    {
        gimp_rect_select ($theImage, $c, $c, $linewidth, $d, CHANNEL_OP_ADD, 0, 0);
    }
    $hoshi_sz = (($d - $c) + 2 * $h);
    if ($h > 0)
    {
        gimp_ellipse_select ($theImage, ($c - $h), ($c - $h), $hoshi_sz, $hoshi_sz, CHANNEL_OP_ADD, 0, 0, 0);
    }
    gimp_edit_fill ($theLayer, FOREGROUND_FILL);
}

sub draw_letter
{
    my ($text, $size_x, $size_y) = @_;
    $floating = gimp_text_fontname ($theImage, $theLayer, 0, 0, $text, 0, 1, $letter_font_size, PIXELS, $letter_font);
    ($w, $h, $a, $d) = gimp_text_get_extents_fontname($text, $letter_font_size, PIXELS, $letter_font);
#     $w = gimp_drawable_width ($floating);
#     $h = gimp_drawable_height ($floating);
    gimp_layer_translate ($floating, floor(($size_x - $w) / 2), floor((1 + ($size_y - $h - 1) / 2)));
    gimp_floating_sel_anchor ($floating);
}

sub gifify
{
    $fg = gimp_context_get_foreground ();
    gimp_context_set_foreground ([237, 183, 123]);
    gimp_selection_none ($theImage);
    $mask = gimp_layer_create_mask ($theLayer, ADD_ALPHA_MASK);
    gimp_image_add_layer_mask ($theImage, $theLayer, $mask);
    gimp_threshold ($mask, 50, 255);
    $newLayer = gimp_layer_copy ($theLayer, 1);
    gimp_image_add_layer ($theImage, $newLayer, 1);
    gimp_drawable_fill ($newLayer, FOREGROUND_FILL);
    $theLayer = gimp_image_merge_visible_layers ($theImage, 1);
    gimp_context_set_foreground ($fg);
}

sub save_image
{
    my ($name, $delete) = @_;
    print "$name ";
    if ( $size != $final_size )
    {
        resize($final_size, $final_size);
    }
    #file_png_save( $theImage, $theLayer, $final_size."/".$name.".orig.png", $name."orig.png", 0, 9, 0, 0, 0, 0, 0 );
    gifify ();
    gimp_convert_indexed ($theImage, NO_DITHER, MAKE_PALETTE, 50, 0, 1, "");
    file_gif_save( RUN_NONINTERACTIVE, $theImage, $theLayer, $final_size."/".$name.".gif", $name.".gif", 0, 0, 0, 0);
    gimp_convert_rgb( $theImage );
    if ($delete == 1)
    {
        gimp_image_delete( $theImage );
        $theImage = -1;
    }
}

sub clear_image
{
    $fg = gimp_context_get_foreground ();
    gimp_context_set_foreground ([0, 0, 0]);
    gimp_selection_none ($theImage);
    gimp_edit_fill ($theLayer, FOREGROUND_FILL);
    gimp_edit_clear ($theLayer);
    gimp_context_set_foreground ($fg);
}

sub bg_fill_image
{
    gimp_selection_none ($theImage);
    gimp_edit_fill ($theLayer, BACKGROUND_FILL);
}

sub resize
{
    my ($new_size_x, $new_size_y) = @_;
    gimp_image_scale ($theImage, $new_size_x, $new_size_y);
    $size = $new_size_y;
}

sub load_image
{
    my ($filename, $scaled, $fg_color) = @_;
    $theImage = gimp_file_load ($filename, $filename);
    gimp_image_undo_disable ($theImage);
    if ($scaled == 1)
    {
        gimp_image_scale ($theImage, $final_size, $final_size);
        $size = $final_size;
    }
    else
    {
        $size = gimp_image_height ($theImage);
    }
    $theLayer = gimp_image_active_drawable ($theImage);
    gimp_context_set_foreground ($fg_color);
    gimp_selection_none ($theImage);
}

sub new_image
{
    my ($height, $width, $fg_color) = @_;
    $theImage = gimp_image_new ($height, $width, RGB_IMAGE);
    $theLayer = gimp_layer_new ($theImage, $height, $width, RGBA_IMAGE, "", 100, NORMAL_MODE);
    $size = $height;
    gimp_image_add_layer ($theImage, $theLayer, 0);
    gimp_context_set_foreground ($fg_color);
}

sub paste_into_layer
{
    my ($newsize, $fg_color) = @_;
    clear_image();
    resize($newsize, $newsize);
    $floating = gimp_edit_paste($theLayer, 1);
    gimp_floating_sel_anchor( $floating );
    gimp_context_set_foreground ($fg_color);
    gimp_selection_none($theImage);
}





##########################################
#                                        #
#       Start generating images !!       #
#                                        #
##########################################


Gimp::init;

$number_font='Luxi Sans Bold';
#$number_font_weight='bold';

#$letter_font='newcenturyschlbk';
$letter_font='URW Bookman L,';
#$letter_font='charter';
#$letter_font_weight='normal';

@Sizes = grep { $_ > 0 } @ARGV;

if ( $#Sizes < 0 )
{
    @Sizes = (5, 7, 9, 11, 13, 17, 21, 25, 29, 35, 42, 50);
#    @Sizes = (5, 7, 9, 11, 13, 15, 17, 19, 21, 25, 29, 35, 42, 50, 58, 70, 84, 100);
}



foreach $final_size (@Sizes)
{

    mkdir $final_size;

    $size = 0;
    $theImage = -1;
    $theLayer = -1;

    autoflush STDOUT 1;

    print "\n\n-----------------------------\n";
    print "       Size: $final_size\n";
    print "-----------------------------\n";


    $thickn = ( $final_size < 21 ?
                (0.04 * ($final_size - 13) + 0.07 * (21 - $final_size)) / (21 - 13) :
                0.04 );

    if ( $ARGV[0] ne 'board' )
    {
        for $color ('b', 'w')
        {
            if ( $color eq 'b' )
            {
                $file='BigBlack.png';
                $markfile='BigBlackMark.png';
                $foreground_color= [255, 255, 255];
            }
            else
            {
                $file='BigWhite.png';
                $markfile='BigWhiteMark.png';
                $foreground_color= [0, 0, 0];
            }



#--------------- Draw normal stone -------------

            load_image ($file, 0, $foreground_color);
            resize( $final_size * 8, $final_size * 8 );
            gimp_edit_copy($theLayer);
            save_image ($color, 1);



#--------------- Draw marked stones -------------

            load_image ($markfile, 1, $foreground_color);
            save_image ($color."m", 0);

            paste_into_layer($final_size * 8, $foreground_color);
            draw_triangle (0.35, 0.04);
            save_image ($color."t", 0);

            paste_into_layer($final_size * 8, $foreground_color);
            draw_square (0.52, 0.04);
            save_image ($color."s", 0);

            paste_into_layer($final_size * 8, $foreground_color);
            draw_circle (0.58, 0.04);
            save_image ($color."c", 0);

            paste_into_layer($final_size * 8, $foreground_color);
            draw_x_mark (0.45, 0.05);
            save_image ($color."x", 0);


            if ( $color eq 'b' )
            {
                paste_into_layer($final_size * 8, [255, 255, 255]);
                draw_filled_square (0.41);
                save_image ($color."w", 0);
            }
            else
            {
                paste_into_layer($final_size * 8, [0, 0, 0]);
                draw_filled_square (0.41);
                save_image ($color."b", 0);
            }


#--------------- Draw numbered stones -------------

            $number_font_size =
                round( ( $final_size > 35 ? 0.7 :
                         ( $final_size < 13 ? 0.8 :
                           (0.7 * ($final_size - 13) + 0.8 * (35 - $final_size)) / (35 - 13)))
                       * $final_size * 8 );

            print "$number_font_size \n";
            $number_font_height = get_font_height ($number_font);
            print "$number_font_height \n";
            for ($k=1; $k <= $HIGHEST_STONE_NUMBER; $k++)
            {
                paste_into_layer($final_size * 8, $foreground_color);
                draw_number( $k );
                save_image( $color.$k, ($k==$HIGHEST_STONE_NUMBER) );
            }
        }

        unlink("tmp.png");


#-------------- YinYang/play --------------

        load_image ("YinYang.png", 1, $foreground_color);
        save_image ("y", 1);

        load_image ("BigPlayBlack.png", 0, $foreground_color);
        resize (round ($final_size * 644 / 502), $final_size);
        save_image ("pb", 1);

        load_image ("BigPlayWhite.png", 0, $foreground_color);
        resize (round ($final_size * 644 / 502), $final_size);
        save_image ("pw", 1);

#Rodival: not well implanted:
        load_image ("BigBlackBlack.png", 0, $foreground_color);
        resize (round ($final_size * 644 / 502), $final_size);
        save_image ("b_b", 1);

        load_image ("BigWhiteWhite.png", 0, $foreground_color);
        resize (round ($final_size * 644 / 502), $final_size);
        save_image ("w_w", 1);

        load_image ("BigWhiteBlack.png", 0, $foreground_color);
        resize (round ($final_size * 644 / 502), $final_size);
        save_image ("w_b", 1);

        load_image ("BigBlackWhite.png", 0, $foreground_color);
        resize (round ($final_size * 644 / 502), $final_size);
        save_image ("b_w", 1);
    }



    if ( $ARGV[0] ne 'stones' )
    {


#--------------- Draw board lines -------------

        new_image( $final_size, $final_size, [0, 0, 0] );
        $linewidth = ($final_size > 40 ? 2 : 1);
        $upchars = ['u','e','d'];
        $rightchars = ['l','','r'];
        $hoshi = 0;

        for ( $up=-1; $up < 2; $up++ )
        {
            $upchar = $upchars->[$up+1];

            for ( $right=-1; $right < 2; $right++ )
            {
                $rightchar = $rightchars->[$right+1];

                gimp_context_set_foreground ([0, 0, 0]);

                draw_board_lines ($right, $up, $hoshi, 1);
                save_image ($upchar.$rightchar, 0);

                clear_image ();
                resize ($size * 8, $size * 8);
                draw_square (0.52, $thickn);
                resize ($final_size, $final_size);
                draw_board_lines ($right, $up, $hoshi, 0);
                save_image ($upchar.$rightchar."s", 0);

                clear_image ();
                resize ($size * 8, $size * 8);
                draw_triangle (0.35, $thickn);
                resize ($final_size, $final_size);
                draw_board_lines ($right, $up, $hoshi, 0);
                save_image ($upchar.$rightchar."t", 0);

                clear_image ();
                resize ($size * 8, $size * 8);
                draw_circle (0.58, $thickn);
                resize ($final_size, $final_size);
                draw_board_lines ($right, $up, $hoshi, 0);
                save_image ($upchar.$rightchar."c", 0);

                clear_image ();
                resize ($size * 8, $size * 8);
                draw_x_mark (0.45, $thickn * 1.25);
                resize ($final_size, $final_size);
                draw_board_lines ($right, $up, $hoshi, 0);
                save_image ($upchar.$rightchar."x", 0);

                draw_board_lines ($right, $up, $hoshi, 1);
                gimp_context_set_foreground ([0, 0, 0]);
                draw_filled_square (0.41);
                save_image ($upchar.$rightchar."b", 0);

                draw_board_lines ($right, $up, $hoshi, 1);
                gimp_context_set_foreground ([255, 255, 255]);
                draw_filled_square (0.41);
                save_image ($upchar.$rightchar."w", 0);

                draw_board_lines ($right, $up, $hoshi, 1);
                gimp_context_set_foreground ([248, 103, 80]);
                draw_filled_square (0.41);
                save_image ($upchar.$rightchar."d", 0);

                draw_board_lines ($right, $up, $hoshi, 1);
                gimp_context_set_foreground ([65, 242, 91]);
                draw_filled_square (0.41);
                save_image ($upchar.$rightchar."g", 0);

                if ( $right == 0 and $up == 0 )
                {
                    if ( $upchar eq "e" )
                    {
                        $upchar = "h";
                        $hoshi = ($final_size >= 44 ? 3
                                  : $final_size >= 19 ? 2 : 1 );
                        $right --;
                    }
                    else
                    {
                        $upchar = "e";
                        $hoshi = 0;
                    }
                }
            }
        }

        draw_board_lines (undef, 0, 0, 1);
        save_image ("du", 0);

#--------------- Draw markup --------------------

        clear_image ();
        resize ($size * 8, $size * 8);
        draw_square (0.52, $thickn);
        resize ($final_size, $final_size);
        save_image ("s", 0);

        clear_image ();
        resize ($size * 8, $size * 8);
        draw_triangle (0.35, $thickn);
        resize ($final_size, $final_size);
        save_image ("t", 0);

        clear_image ();
        resize ($size * 8, $size * 8);
        draw_circle (0.58, $thickn);
        resize ($final_size, $final_size);
        save_image ("c", 0);

        clear_image ();
        resize ($size * 8, $size * 8);
        draw_x_mark (0.45, $thickn * 1.25);
        resize ($final_size, $final_size);
        save_image ("x", 0);

#--------------- Draw board letters -------------

        gimp_context_set_foreground ([0, 0, 0]);
        $letter_font_size = $final_size * 0.2 *
            ( $final_size < 13 ? ( $final_size < 9 ? 6 : 5) : 4);
        resize ($final_size, $final_size);
        $letters = "abcdefghijklmnopqrstuvwxyz";

        for ($k=0; $k < 26; $k++)
        {
            $letter = substr($letters, $k, 1);
            clear_image ();
            draw_letter ("b    ".$letter."    q", $size, $size);
            save_image ("l".$letter, 0);
        }

#--------------- Draw redo/undo -------------

        gimp_context_set_background ([253, 214, 155]);
        $letter_font_size = $final_size * 0.2 *
            ( $final_size < 13 ? ( $final_size < 9 ? 6 : 5) : 4 );
        resize ($final_size * 2, $final_size);
        bg_fill_image ();
        draw_letter ("b  undo  d", $size * 2, $size);
        save_image ("undo", 0);

        bg_fill_image ();
        draw_letter ("b  redo  d", $size * 2, $size);
        save_image ("redo", 0);


#--------------- Draw coord images ---------------

        gimp_context_set_background ([247, 245, 227]);
        $letter_font_size = $final_size * 0.16 *
            ( $final_size < 13 ? ( $final_size < 9 ? 6 : 5) : 4 );
        resize ($final_size, $final_size);
        $letters = "abcdefghjklmnopqrstuvwxyz";

        for ($k=0; $k < 25; $k++)
        {
            $letter = substr($letters, $k, 1);
            bg_fill_image ();
            draw_letter ("b    ".$letter."    q", $size, $size);
            save_image ("c".$letter, 0);
        }

        $size_x = round($final_size * 31 / 25 - 0.5);
        resize ($size_x, $final_size);

        for ($k=1; $k < 26; $k++)
        {
            bg_fill_image ();
            draw_letter ("0    ".$k."    0", $size_x, $size);
            save_image ("c".$k, 0);
        }
    }
}

print "\n\n Done! \n\n";
Gimp::end;