##  $Id: x24c.m 11680 2011-03-27 17:57:51Z airwin $
##
##  Unicode Pace Flag
##
##  Copyright (C) 2005 Rafael Laboissiere
##
##
##  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.

1;

function ix24c

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

  px = [0.0; 0.0; 1.0; 1.0];
  py = [0.0; 0.25; 0.25; 0.0];
  
  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
];

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/

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î"
];

## plparseopts (&argc, argv, 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 i = 1:4

  plcol0 (i);
  plfill (px, py);

  py += 1.0 / 4.0;

endfor

plcol0 (0);
for i=1:12
  plptex (sx (i), sy (i), 1.0, 0.0, 0.5, deblank(peace (i,:)));
endfor

plend1;

end

ix24c
