//  Unicode Pace Flag
//
//  Copyright (C) 2009  Werner Smekal
//
//
//  This file is part of PLplot.
//
//  PLplot is free software; you can redistribute it and/or modify
//  it under the terms of the GNU Library General Public License as published
//  by the Free Software Foundation; either version 2 of the License, or
//  (at your option) any later version.
//
//  PLplot 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 Library General Public License for more details.
//
//  You should have received a copy of the GNU Library General Public License
//  along with PLplot; if not, write to the Free Software
//  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
//
//
// For Debian, the required font packages are the following:
// ttf-arphic-bkai00mp
// ttf-freefont
// ttf-devanagari-fonts
// ttf-unfonts
// ttf-bengali-fonts
//
// For the latest Ubuntu systems lohit_hi.ttf has been moved to the
// ttf-indic-fonts-core package instead of ttf-devanagari-fonts so you
// will have to use this package instead and update the font path.
//

import std.string;

import plplot;

static PLINT[] red   = [ 240, 204, 204, 204, 0, 39, 125 ];
static PLINT[] green = [ 240, 0, 125, 204, 204, 80, 0 ];
static PLINT[] blue  = [ 240, 0, 0, 0, 0, 204, 125 ];

static PLFLT[] px = [ 0.0, 0.0, 1.0, 1.0 ];
static PLFLT[] py = [ 0.0, 0.25, 0.25, 0.0 ];

static PLFLT[] sx = [
    0.16374,
    0.15844,
    0.15255,
    0.17332,
    0.50436,
    0.51721,
    0.49520,
    0.48713,
    0.83976,
    0.81688,
    0.82231,
    0.82647
];

static PLFLT[] sy = [
    0.125,
    0.375,
    0.625,
    0.875,
    0.125,
    0.375,
    0.625,
    0.875,
    0.125,
    0.375,
    0.625,
    0.875
];


// Taken from http://www.columbia.edu/~fdc/pace/

static string[] peace = [
    // Mandarin
    "#<0x00>和平",
    // Hindi
    "#<0x20>शांति",
    // English
    "#<0x10>Peace",
    // Hebrew
    "#<0x10>שלום",
    // Russian
    "#<0x10>Мир",
    // German
    "#<0x10>Friede",
    // Korean
    "#<0x30>평화",
    // French
    "#<0x10>Paix",
    // Spanish
    "#<0x10>Paz",
    // Arabic
    "#<0x10>ﺳﻼم",
    // Turkish
    "#<0x10>Barış",
    // Kurdish
    "#<0x10>Hasîtî",
];


int main( char[][] args )
{
    // Parse and process command line arguments
    plparseopts( args, PL_PARSE_FULL );

    plinit();

    pladv( 0 );
    plvpor( 0.0, 1.0, 0.0, 1.0 );
    plwind( 0.0, 1.0, 0.0, 1.0 );
    plcol0( 0 );
    plbox( "", 1.0, 0, "", 1.0, 0 );

    plscmap0n( 7 );
    plscmap0( red, green, blue );

    plschr( 0, 4.0 );
    plfont( 1 );

    for ( int i = 0; i < 4; i++ )
    {
        plcol0( i + 1 );
        plfill( px, py );

        for ( int j = 0; j < py.length; j++ )
            py[j] += 1.0 / 4.0;
    }

    plcol0( 0 );
    for ( int i = 0; i < 12; i++ )
        plptex( sx[i], sy[i], 1.0, 0.0, 0.5, peace[i] );

    plend();
    return 0;
}