/*****************************************************************/
/*                                                               */
/*   CASIO fx-9860G SDK Library                                  */
/*                                                               */
/*   File name : [ProjectName].c                                 */
/*                                                               */
/*   Copyright (c) 2006 CASIO COMPUTER CO.,  LTD.                 */
/*                                                               */
/*****************************************************************/
#include "periodiq.h"

#include "display.h"
#include "stdlib.h"
#include "stdio.h"
#include "ctype.h"
#include "keyboard.h"
#include "tales.h"


//#include <stdlib.h>
//#include <ctype.h>

int atoi(const char *str)
{
        // Variables declaration.
        int n=0,  sign=1;

        // Parsing string until the first glyph.
        while(isspace(*str)) str++;

        // Checking sign.
        if(*str=='-') sign=-1,  str++;
        else if(*str=='+') sign=+1,  str++;

        // Reading digits.
        while(isdigit(*str))
        {
                n += *str - '0';
                if(*++str) n *= 10;
        }

        // Returning the final value.
        return n*sign;
}

//****************************************************************************
//  AddIn_main (Sample program main function)
//
//  param   :   isAppli   : 1 = This application is launched by MAIN MENU.
//                        : 0 = This application is launched by a strip in eACT application.
//
//              OptionNum : Strip number (0~3)
//                         (This parameter is only used when isAppli parameter is 0.)
//
//  retval  :   1 = No error / 0 = Error
//
//****************************************************************************

struct Element elements[] =
{
		{ /*1  */"Hydrogene", "H", 1, 1008, 1, 1, 220, 0, 1, {1} },
		{ /*2  */"Helium", "He", 0, 4003, 18, 1, -1, 2, 1, {2} },
		{ /*3  */"Lithium", "Li", 1, 6940, 1, 2, 98, 4, 0, {2, 1} },
		{ /*4  */"Beryllium", "Be", 2, 9012, 2, 2, 157, 5, 0, {2, 2} },
		{ /*5  */"Bore", "B", 3, 10810, 13, 2, 204, 3, 0, {2, 3} },
		{ /*6  */"Carbone", "C", 4, 12011, 14, 2, 255, 0, 0, {2, 4} },
		{ /*7  */"Azote", "N", 5, 14007, 15, 2, 304, 0, 1, {2, 5} },
		{ /*8  */"Oxygene", "O", 2, 15999, 16, 2, 344, 0, 1, {2, 6} },
		{ /*9  */"Fluor", "F", 1, 18998, 17, 2, 398, 1, 1, {2, 7} },
		{/*10  */"Neon", "Ne", 0, 20178, 18, 2, -1, 2, 1,  {2, 8} },
		{/*11  */"Sodium", "Na", 1, 22990, 1, 3, 93, 4, 0, {2, 8, 1} },
		{/*12  */"Magnesium", "Mg", 2, 24305, 2, 3, 131, 5, 0, {2, 8, 2} },
		{/*13  */"Aluminium", "Al", 3, 26982, 13, 3, 161, 9, 0, {2, 8, 3} },
		{/*14  */"Silicium", "Si", 4, 28085, 14, 3, 190, 3, 0, {2, 8, 4} },
		{/*15  */"Phosphore", "P", 5, 30974, 15, 3, 219, 0, 0, {2, 8, 5} },
		{/*16  */"Soufre", "S", 6, 32060, 16, 3, 258, 0, 0, {2, 8, 6} },
		{/*17  */"Chlore", "Cl", 7, 35450, 17, 3, 316, 1, 1, {2, 8, 7} },
		{/*18  */"Argon", "Ar", 2, 39948, 18, 3, -1, 2, 1, {2, 8, 8} },
		{/*19  */"Potassium", "K", 1, 39098, 1, 4, 82, 4, 0, {2, 8, 8, 1} },
        {/*20  */"Calcium", "Ca", 2, 40078, 2, 4, 100, 5, 0, {2, 8, 8, 2} },
		{/*21  */"Scandium", "Sc", 3, 44956, 3, 4, 136, 8, 0, {2, 8, 9, 2} },
		{/*22  */"Titane", "Ti", 4, 47867, 4, 4, 154, 8, 0, {2, 8, 10, 2} },
		{/*23  */"Vanadium", "Va", 5, 50941, 5, 4, 163, 8, 0, {2, 8, 11, 2} },
		{/*24  */"Chrome", "Cr", 6, 51996, 6, 4, 166, 8, 0, {2, 8, 13, 1} },
		{/*25  */"Manganese", "Mn", 7, 54380, 7, 4, 155, 8, 0, {2, 8, 13, 2} },
		{/*26  */"Fer", "Fe", 6, 55845, 8, 4, 183, 8, 0, {2, 8, 14, 2} },
		{/*27  */"Cobalt", "Co", 5, 58933, 9, 4, 188, 8, 0, {2, 8, 15, 2} },
		{/*28  */"Nickel", "Ni", 4, 58693, 10, 4, 191, 8, 0, {2, 8, 16, 2} },
		{/*29  */"Cuivre", "Cu", 4,  63546,11, 4, 190, 8, 0, {2, 8, 18, 1} },
		{/*30  */"Zinc", "Zn", 2, 65380, 12, 4, 165, 8, 0, {2, 8, 18, 2} },
		{/*31  */"Gallium", "Ga", 3, 69723, 13, 4, 181, 9, 0, {2, 8, 18, 3} },
		{/*32  */"Germanium", "Ge", 4, 72630, 14, 4, 201, 3, 0, {2, 8, 18, 4} },
		{/*33  */"Arsenic", "As", 4, 74921, 15, 4, 218, 3, 0, {2, 8, 18, 5} },
		{/*34  */"Selenium", "Se", 6, 78971, 16, 4, 255, 0, 0, {2, 8, 18, 6} },
		{/*35  */"Brome", "Br", 7, 79904, 17, 4, 296, 1, 2, {2, 8, 18, 7} },
		{/*36  */"Krypton", "Kr", 2, 83798, 18, 4, 300 , 2, 1, {2, 8, 18, 8} },
		{/*37  */"Rubidium", "Rb", 1, 85468, 1, 5, 82, 4, 0, {2, 8, 18, 8, 1} },
		{/*38  */"Strontium", "Sr", 2, 87620, 2, 5, 95, 5, 0, {2, 8, 18, 8, 2} },
		{/*39  */"Yttrium", "Y", 3, 88906, 3, 5, 122, 8, 0, {2, 8, 18, 9, 2} },
		{/*40  */"Zirconium", "Zr", 4, 91224, 4, 5, 133, 8, 0, {2, 8, 18, 10, 2} },
		{/*41  */"Niobium", "Nb", 5, 92906, 5, 5, 160, 8, 0, {2, 8, 18, 12, 1} },
		{/*42  */"Molybdene", "Mo", 6, 95950, 6, 5, 216, 8, 0, {2, 8, 18, 13, 1} },
		{/*43  */"Technetium", "Tc", 7, 98000, 7, 5, 190, 8, 0, {2, 8, 18, 13, 2} },
		{/*44  */"Ruthenium", "Ru", 8, 101070, 8, 5, 220, 8, 0, {2, 8, 18, 15, 1} },
		{/*45  */"Rhodium", "Rh", 6, 102906, 9, 5, 228, 8, 0, {2, 8, 18, 16, 1} },
		{/*46  */"Palladium", "Pd", 4, 106420, 10, 5, 8, 0, 220, {2, 8, 18, 18} },
		{/*47  */"Argent", "Ag", 4, 107869, 11, 5, 8, 0, 193, {2, 8, 18, 18, 1} },
		{/*48  */"Cadmium", "Cd", 2, 112414, 12, 5, 8, 0, 169, {2, 8, 18, 18, 2} },
		{/*49  */"Indium", "In", 2, 114818, 13, 5, 9, 0, 178, {2, 8, 18, 18, 3} },
		{/*50  */"Etain", "Sn", 3, 118710, 14, 5, 9, 0, 196, {2, 8, 18, 18, 4} },
		{/*51  */"Antimoine", "Sb", 5, 121760, 15, 5, 205, 3, 0, {2, 8, 18, 18, 5} },
		{/*52  */"Tellure", "Te", 6, 127600, 16, 5, 210, 3, 0, {2, 8, 18, 18, 6} },
		{/*53  */"Iode", "I", 7, 126904, 17, 5, 266, 1, 0, {2, 8, 18, 18, 7} },
		{/*54  */"Xenon", "Xe", 8, 130293, 18, 5, 260, 2, 1, {2, 8, 18, 18, 8} },
		{/*55  */"Cesium", "Cs", 1, 132905, 1, 6, 79, 4, 0, {2, 8, 18, 18, 8, 1} },
		{/*56  */"Baryum", "Ba", 2, 137327, 2, 6, 89, 5, 0 ,{2, 8, 18, 18, 8, 2} },
		{/*57  */"Lanthane", "La", 3, 138910, 4, 6, 110, 6, 0, {2, 8, 18, 19, 8, 2} },  // lanthanides
		{/*58  */"Cerium", "Ce", 4, 140116, 5, 6, 112, 6, 0, {2, 8, 18, 19, 8, 2} },
		{/*59  */"Praseodyme", "Pr", 4, 140907, 6, 6, 113, 6, 0, {2, 8, 18, 21, 8, 2} },
		{/*60  */"Neodyme", "Nd", 3, 144242, 7, 6, 114, 6, 0, {2, 8, 18, 22, 8, 2} },
		{/*61 */"Promethium", "Pm", 3, 145000, 8, 6, -1, 6, 0, {2, 8, 18, 23, 8, 2} },
        {/*62 */"Samarium", "Sm", 2, 150360, 9, 6, 117, 6, 0, {2, 8, 18, 24, 8, 2} },
		{/*63 */"Europium", "Eu", 3, 151964, 10, 6, -1, 6, 0, {2, 8, 18, 25, 8, 2} },
		{/*64 */"Gadolinium", "Gd", 3, 157250, 11, 6, 120, 6, 0, {2, 8, 18, 25, 9, 2} },
		{/*65 */"Terbium", "Tb", 4, 158925,  12, 6, -1, 6, 0,{2, 8, 18, 27, 8, 2} },
		{/*66 */"Dysprosium", "Dy", 3, 162500, 13, 6, 112, 6, 0, {2, 8, 18, 28, 8, 2} },
		{/*67 */"Holmium", "Ho", 3, 164930, 14, 6, 123, 6, 0, {2, 8, 18, 29, 8, 2} },
		{/*68 */"Erbium", "Er", 3, 167259, 15, 6, 124, 6, 0, {2, 8, 18, 30, 8, 2} },
		{/*69 */"Thulium", "Tm", 3, 168934, 16, 6, 125, 6, 0, {2, 8, 18, 31, 8, 2} },
		{/*70 */"Yttrebium", "Yb", 3, 173054, 17,6, -1, 6, 0, {2, 8, 18, 32, 8, 2} },
		{/*71 */"Lutecium", "Lu", 3, 174967, 18, 6, 127, 6, 0, {2, 8, 18, 32, 9, 2} }, //fin des lanthanides
		{/*72 */"Hafnium", "Hf", 4, 178490, 4, 6, 130, 8, 0, {2, 8, 18, 32, 10, 2} },
		{/*73  */"Tantale", "Ta", 5, 180948, 5, 6, 150,  8, 0, {2, 8, 18, 32, 11, 2} },
		{/*74  */"Tungstene", "W", 6, 183840, 6, 6, 236, 8, 0, {2, 8, 18, 32, 12, 2} },
		{/*75  */"Rhenium", "Re", 7, 186207, 7, 6, 190, 8, 0, {2, 8, 18, 32, 13, 2} },
		{/*76  */"Osmium", "Os", 8, 190230, 8, 6, 220, 8, 0, {2, 8, 18, 32, 14, 2} },
		{/*77  */"Iridium", "Ir", 8, 192217, 9, 6, 220, 8, 0, {2, 8, 18, 32, 15, 2} },
		{/*78  */"Platine", "Pt", 6, 195084, 10, 6, 228, 8, 0, {2, 8, 18, 32, 1, 1} },
		{/*79  */"Or", "Au", 5, 196967, 11, 6, 254, 8, 0, {2, 8, 18, 32, 18, 1} },
		{/*80  */"Mercure", "Hg", 4, 200590, 12, 6, 200, 8, 2, {2, 8, 18, 32, 18, 2} },
		{/*81  */"Thallium", "Tl", 3, 204380, 13, 6, 162, 9, 0, {2, 8, 18, 32, 18, 3} },
		{/*82  */"Plomb", "Pb", 4, 207200, 14, 6, 233, 9, 0, {2, 8, 18, 32, 18, 4} },
		{/*83  */"Bismuth", "Bi", 5, 208980, 15, 6, 202, 9, 0, {2, 8, 18, 32, 18, 5} },
		{/*84  */"Polonium", "Po", 6, 209000, 16, 6, 200, 3, 0, {2, 8, 18, 32, 18, 6} },
		{/*85  */"Astate", "At", 7, 210000, 17, 6, 220, 1, 0, {2, 8, 18, 32, 18, 7} },
		{/*86  */"Radon", "Rn", 6, 212000, 18, 6, -1, 2, 1, {2, 8, 18, 32, 18, 8} },
		{/*87  */"Francium", "Fr", 1, 223000, 1, 7, 70, 4, 0, {2, 8, 18, 32, 18, 8, 1} },
		{/*88  */"Radium", "Ra", 2, 226000, 2, 7, 90, 5, 0, {2, 8, 18, 32, 18, 8, 2} },
		{/*89  */"Actinium", "Ac", 3, 227000, 4, 7, 110, 7, 0, {2, 8, 18, 32, 18, 9, 2} },  // actinide
		{/*90  */"Thorium", "Th", 4, 232038, 5, 7, 130, 7, 0, {2, 8, 18, 32, 18, 10, 2} },
		{/*91  */"Protactinium", "Pa", 5, 231036, 6, 7, 150, 7, 0, {2, 8, 18, 32, 20, 9, 2} },
		{/*92  */"Uranium", "U", 6, 238029, 7, 7, 138, 7, 0, {2, 8, 18, 32, 21, 9, 2} },
		{/*93  */"Neptunium", "Np", 7, 237000, 8, 7, 136, 7, 0, {2, 8, 18, 32, 22, 9, 2} },
		{/*94  */"Plutonium", "Pu", 8, 244000, 9, 7, 128, 7, 0, {2, 8, 18, 32, 24, 8, 2} },
		{/*95  */"Americum", "Am", 6, 243000, 10, 7, 130, 7, 0, {2, 8, 18, 32, 25, 8, 2} },
		{/*96  */"Curium", "Cm", 4, 247000, 11, 7, 130, 7, 0, {2, 8, 18, 32, 25, 9, 2} },
		{/*97  */"Berkelium", "Bk", 4, 247000, 12, 7, 130, 7, 0, {2, 8, 18, 32, 28, 8, 2} },
		{/*98  */"Californium", "Cf", 4, 251000, 13, 7, 130, 7, 0, {2, 8, 18, 32, 28, 8, 2} },
		{/*99  */"Einsteinium", "Es", 3, 252000, 14, 7, 130, 7, 0, {2, 8, 18, 32, 29, 8, 2} },
		{/*100 */"Fermium", "Fm", 3, 257000, 15, 7, 130, 7, 0, {2, 8, 18, 32, 30, 8, 2} },
		{/*101 */"Mendelevium", "Md", 3, 258000, 16, 7, 130, 7, 0, {2, 8, 18, 32, 31, 8, 2} },
		{/*102 */"Nobelium", "No", 3, 259000, 17, 7, 130, 7, 0, {2, 8, 18, 32, 32, 8, 2} },
		{/*103 */"Lawrencium", "Lr", 3, 262000, 18, 7, -1, 7, 0, {2, 8, 18, 32, 32, 8, 3} }, // fin des actinides
		{/*104 */"Rutherfordium", "Rf", 4, 267000, 4, 7, -1, 8, 3, {2, 8, 18, 32, 32, 10, 2} },
		{/*105 */"Dubnium", "Db", 5, 268000, 5, 7, -1, 8, 3, {2, 8, 18, 32, 32, 11, 2} },
		{/*106 */"Seaborg", "Sg", 6, 271000, 6, 7, -1, 8, 3, {2, 8, 18, 32, 32, 12, 2} },
		{/*107 */"Bohrium", "Bh", 7, 272000, 7, 7, -1, 8, 3, {2, 8, 18, 32, 32, 13, 2} },
		{/*108 */"Hassium", "Hs", 8, 270000, 8, 7, -1, 8, 3, {2, 8, 18, 32, 32, 14, 2} },
		{/*109 */"Meitnerium", "Mt", -1, 276000, 9, 7, -1, 8, 3, {2, 8, 18, 32, 32, 15, 2} },
		{/*110 */"Darmstadium", "Ds", -1, 281000, 10, 7, -1, 8, 3, {2, 8, 18, 32, 32, 17, 1} },
		{/*111 */"Roengenium", "Rg", -1,280000,  11, 7, -1, 8, 3, {2, 8, 18, 32, 32, 18, 1} },
		{/*112 */"Copernicium", "Cn", -1, 285000, 12, 7, -1, 8, 3, {2, 8, 18, 32, 32, 18, 2} },
		{/*113 */"Ununtrium", "Uut", -1, 284000, 13, 7, -1, 9, 3, {2, 8, 18, 32, 32, 18, 3} },
		{/*114 */"Flerovium", "Fl", -1, 289000, 14, 7, -1, 9, 3, {2, 8, 18, 32, 32, 18, 4} },
		{/*115 */"Ununpentium", "Uup", -1, 288000, 15, 7, -1, 9, 3, {2, 8, 18, 32, 32, 18, 5} },
		{/*116 */"Livermorium", "Lv", -1,  288000, 16, 7, -1, 9, 3, {2, 8, 18, 32, 32, 18, 6} },
		{/*117 */"Ununseptium", "Uus", -1, 294000, 17, 7, -1, 1, 3, {2, 8, 18, 32, 32, 18, 7} },
        {/*118 */"Ununoctium", "Uun", -1, 294000, 18, 7, -1, 2, 3, {2, 8, 18, 32, 32, 18, 8} },
};

char *family[25] ={
{"non metaux"}, //0
{"halogene"}, //1
{"gaz rare"}, //2
{"metalloide"}, //3
{"metal alcalin"}, //4
{"metal alcalino terreux"}, //5
{"lanthanide"}, //6
{"actinide"}, //7
{"metal de transition"}, //8
{"post transition metal"}//9
};

char *etat[9]={
	{"solide"}, //0
	{"gaz"}, //1
	{"liquide"}, //2
	{"inconnu"}, //3
};

extern Font modern;

#define floor(x) ((int)(x))

static const int counts[] = { 2, 8, 8, 18, 18, 32, 32 };
static const int firsts[] = { 1, 2, 2, 3, 3, 18, 18 };

/* returns element number (1-118) or 0 if there is nothing at the given cell */
/* x and y can hold any value, even if it's outside the table */
int element_at(int x, int y)
{
	if(x < 0 || x >= 18 || y < 0 || y >= 9) return 0;

	if(y >= 7)
	{
		if(x < 3 || x > 17) return 0;
		return ((y == 7) ? (57) : (89)) + (x - 4);
	}

	int result = 0;

	if(x >= firsts[y])
	{
		if(x + (counts[y] - firsts[y]) < 18) return 0;
		else x -= (18 - counts[y]);
	}
	while(--y >= 0) result += counts[y];
	return result + x + 1 ;
}

/* updates x and y if there is an element if the requested direction */
/* in this case, returns the element's number; otherwise returns 0 */
int move(int *x, int *y, enum { up = 0, right, down, left } dir)
{
	int dx[] = { 0, 1, 0, -1 };
	int dy[] = { -1, 0, 1, 0 };

	int elt = element_at(*x + dx[dir], *y + dy[dir]);
	if(elt) *x += dx[dir], *y += dy[dir];
	return elt;
}

int main()
{
tableauElement(0);
	return 1;
}

void Mini(char* chaine,  int n ) // fonc defini le numero de la fonction
{

	short j;
    dtext(n*21+strlen(chaine),  58,  chaine);

    drect(n*21+2,  56,  n*21+20,  63,  color_invert);

	//ML_display_vram();
}

int tableauElement(int chang)
{


    short decalx = 0, decaly = 0;
    unsigned char x = 1, y = 1;
    unsigned char i;

text_configure(&modern, color_black);

    while(1)
	{
	dclear();

    for(i = 0; i < 118; i++)
    {
//dtext(13*(elements[i].groupe-1)+decalx+1, 8*( elements[i].famille == 6 || elements[i].famille == 7 ? elements[i].periode + 3 : elements[i].periode) +decaly-6, elements[i].symbol);

    }
//    x = elements[chang].groupe;
//    y = ( elements[chang].famille == 6 || elements[chang].famille == 7 ? elements[chang].periode + 3 : elements[chang].periode);
    dprint(1,1, "(%d,%d) => %d", x,y,element_at(x, y));


    //drect(13*x,8*y,13*x+12,8*y+8, color_black);

    dupdate();

    //drect()
	key=getkey();


	switch(key)
		{
        case KEY_UP : y--; break;
        case KEY_DOWN : y++; break;
        case KEY_LEFT : x--; break;
        case KEY_RIGHT : x++; break;
	//	case KEY_F4 : chang=tableauEleMini(chang); break;
		case KEY_F2 : chang=find(chang); break;
	//	case KEY_F3 : calcul_mole(); break;

		case KEY_F6 : case KEY_EXE : chang=detailsElement(3); break;

		case KEY_EXIT : return 1;
        }
	}
}

int tableauEleMini(int chang)
{
/*char buffer[50];
char y;
char menu=0;
char choix=-1;

while(1)
	{
	dclear();

//	ML_bmp_or(TABLEAU_MINI, 0, 0, 91, 48);
	choix_famille(choix); // on met en place le choix sur les familles

	chang=(chang>=118 ? 0 : chang<=-1 ? 117 : chang);

	y=(chang>55 && chang<71 ? 9 : chang>87 && chang<103 ? 10 : elements[chang].periode);

	if (chang>55 && chang<71 || chang>87 && chang<103)
		{
	    drect(5*elements[chang].groupe-4, 5*y-7, 5*elements[chang].groupe-1, 5*y-4, color_black);
		}
		else
		{
		drect(5*elements[chang].groupe-4, 5*y-4, 5*elements[chang].groupe-1, 5*y-1, color_black);
		}


	dtext(110-3*strlen(elements[chang].symbol), 13, elements[chang].symbol);

	sprintf(buffer, "%d", chang+1); // détail des éléments sur la droite
	dtext(110-2*strlen(buffer), 5, buffer);

	sprintf(buffer, "%.3f", elements[chang].masse_mol);
	dtext(110-2*strlen(buffer), 23, buffer);



	if(menu==0)
		{

		Mini("maxi", 0);
		Mini("find", 1);
		Mini("mol", 2);

		Mini("fami", 4);
		Mini("det", 5);

		key=getkey();

		switch(key)
			{
			case KEY_F1 : case KEY_EXIT : return chang;
			case KEY_F2 : chang=find(chang); break;
			case KEY_F3 : calcul_mole(); break;

			case KEY_F5 : menu=1; break;
			case KEY_F6 : chang=detailsElement(chang); break;
			}
		}
	else if (menu==1)
		{
		Mini("n-me", 0);
		Mini("halo", 1);
		Mini("g-ra", 2);
		Mini("m-ti", 3);
		Mini("m-al", 4);
		Mini(" -->", 5);

		key=getkey();

		switch(key)
			{
			case KEY_EXIT :  menu=0; choix=-1; break;

			case KEY_F1 : choix=0; break;
			case KEY_F2 : choix=1; break;
			case KEY_F3 : choix=2; break;
			case KEY_F4 : choix=3; break;
			case KEY_F5 : choix=4; break;
			case KEY_F6 : menu=2; break; // on change dans les 2 menus
			}
		}
	else if (menu==2)
		{
		Mini("m-at", 0);
		Mini("lant", 1);
		Mini("acta", 2);
		Mini("m-tr", 3);
		Mini("p-tr", 4);
		Mini(" -->", 5);

		key=getkey();

		switch(key)
			{
			case KEY_EXIT : menu=0; choix=-1;break;

			case KEY_F1 : choix=5; break;
			case KEY_F2 : choix=6; break;
			case KEY_F3 : choix=7; break;
			case KEY_F4 : choix=8; break;
			case KEY_F5 : choix=9; break;
			case KEY_F6 : menu=1; break; // on change dans les 2 menus

			}
		}

	switch(key) // pour les touches principales à chaque fois
		{
		case KEY_LEFT : chang+=1;  break;
		case KEY_RIGHT : chang-=1; break;
		case KEY_DOWN : chang=elements[chang].dessous; break;
		case KEY_UP : chang=elements[chang].dessus; break;

		case KEY_EXE : chang=detailsElement(chang); break;

		}
	}*/
}

void choix_famille(int choix)
 {
     /*
char i=0, y;

  for(i;i<118;++i)
	{
	if (choix==ajout[i].famille)
		{
		y=(i>55 && i<71 ? 9 : i>87 && i<103 ? 10 : elements[i].periode);

		(i>55 && i<71 || i>87 && i<103 ? ML_bmp_or(select, 5*elements[i].groupe-4, 5*y-7, 4, 4) : ML_bmp_or(select, 5*elements[i].groupe-4, 5*y-4, 4, 4));

		ML_bmp_or(select, 20, 50, 4, 4);
		dtext(30, 50, family[choix]);
		}
	}*/
}

int detailsElement(int a)
{
	unsigned char buffer[50];
	unsigned char page = 0;
    unsigned char i, j = 0;


    text_configure(&modern, color_black);

    while (1)
	{
	       dclear();

	       dprint(20, 2, "%s", elements[a].symbol);
	       dprint(40, 2, "%s", elements[a].nom);
	       dprint((10-a/25), 4, "%d", a+1);
           dline(0, 10, 128, 10, color_black);

           dline(127, 22*page + 12, 127, 22*page + 42, color_black);

           switch(page)
           {
               case 0 :
               {
                    dprint(1, 12, "masse molaire %d.%03d g/mol", elements[a].masse_mol/1000, elements[a].masse_mol % 1000);

                    dprint(20, 22, "propriete de base");

                    sprintf(buffer, "groupe : %d ", elements[a].groupe);

                    if(elements[a].famille==6 || elements[a].famille==7)
                    {
                        sprintf(buffer, "groupe inconnu");
                    }

                    dtext(1, 32, buffer);

                    sprintf(buffer, "periode : %d ", elements[a].periode);
                    dtext(1, 42, buffer);

                    j=0;

                    for(i = 0; i < strlen(elements[a].config_electro); i++)
                    {
                        if(elements[a].config_electro[i]>=10)
                        {
                            buffer[j++] = (int)elements[a].config_electro[i]/10 + '0';
                            buffer[j++] = elements[a].config_electro[i]%10 + '0';
                        }
                        else
                        {
                            buffer[j++] = elements[a].config_electro[i] + '0';
                        }

                        buffer[j++] = '-';
                    }

                    j--;

                    buffer[j]=0;

                    sprintf(buffer, "couch electro %s", buffer);
                    dtext(1, 52, buffer);

                    break;
               }

               case 1 :
               {
                   dprint(1, 12, "famille %s", family[elements[a].famille]);

                   dprint(1, 22, "etat a 293.15 K : %s", etat[elements[a].etat]);

                   dtext(20, 32, "reactivite :");

                   if (elements[a].electro_neg == -1)
               		{
                        sprintf(buffer, "electro neg inconnue");
               		}
               	    else
               		{
                        sprintf(buffer, "electro neg : %d.%02d ", elements[a].electro_neg/100, elements[a].electro_neg%100);
               		}

                    dtext(1, 42, buffer);

                    if (elements[a].valence == -1)
                	{
                        sprintf(buffer, "valence inconnue ");
                	}
                	else
                	{
                        sprintf(buffer, "valence : %d", elements[a].valence);
                	}
                    dtext(1, 52, buffer);

                   break;
               }
           }

	Mini("ret", 5);

    dupdate();

	key=getkey();

	switch (key)
		{
		case KEY_LEFT : a-=1; break;
		case KEY_RIGHT : a+=1; break;
		case KEY_DOWN : page = (page <= 1 ? 1 : page + 1); break;
		case KEY_UP : page = (page >=0 ? 0 : page - 1); break;
		case KEY_F6 : case KEY_EXE : case KEY_EXIT : return a;
		}

	a=(a<0 ? 117 : a>117 ? 0 : a);
	}
}

unsigned char* input(unsigned char* ask, unsigned char size, unsigned char* char_allowed)
{
    unsigned char buffer[50];
    unsigned char j,i;

    j=0;

    while(1)
    {
        dclear();

        dtext(1, 1, ask);
        dtext(1, 20, buffer);

        dupdate();
        key=getkey();

        for(i = 0; i < strlen(char_allowed); i++)
        {
            if(char_allowed[i]==key_char(key) && j < size)
            {
                buffer[j++] = key_char(key);
                buffer[j]=0;
            }
        }

        if(key == KEY_DEL)
        {
            j--;
            buffer[j]=0;
        }

        if(key == KEY_EXE || key == KEY_EXIT)
        {
            return buffer;
        }
    }
}

int find(chang)
{

char *numero=NULL;

char i=0, j=0;

unsigned char buffer[50];

dclear();
dtext(10, 1, "Vous cherchez :");
dtext(10, 15, "1. numero de l'element");
dtext(10, 25, "2. masse molaire");
dtext(10, 35, "3. Symbole de l'element");
dtext(10, 45, "4. Nom de l'element");
dupdate();

while (1)
	{

    	key=getkey();

		switch(key)
		{
		case KEY_1 :
		{
			numero=input("Element num :", 3, "0123456789");

			if (atoi(numero)>0 && atoi(numero)<119)
			{
				return atoi(numero)-1;
			}
            break;
		}

	    case KEY_2 :
		{
		    while(1)
		    {
				numero=input("Masse molaire de :", 3, "0123456789");

				for (i=0;i<118;i++)
					{
					if (atoi(numero)==floor(elements[i].masse_mol/1000+0.5))
						{
						return i;
						}
					}
				}
                break;
			}
/*
		case KEY_3 :
			{
			while(1)
				{
				Bdisp_AllClr_DDVRAM();
				dtext(1, 1, "Vous cherchez le symbole ?", 0);

				EI_manage_config(EI_SET_START_MODE,  EI_ALPHA_LOCKED);

				numero=EI_input_string(3, (const char*)"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz");
				numero[0]=toupper (numero[0]); // on met le 1er caractère en majuscule
				for (i=0;i<118;i++)
					{
					for (j = 1 ; numero[j] != '\0' ; j++)
						{
						numero[j] = tolower(numero[j]); // on met certains caractères en minuscule pour la recherche
						}

					if (!strcmp(numero, elements[i].symbol))
						{
						return i;
						}
					}
				}
			}

		case KEY_4 :
			{
			while(1)
				{
				Bdisp_AllClr_DDVRAM();
				dtext(1, 1, "Vous cherchez le nom ?", 0);

				EI_manage_config(EI_SET_START_MODE,  EI_ALPHA_LOCKED);

				numero=EI_input_string(13, (const char*)"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz");
				numero[0]=toupper(numero[0]); // on met le 1er caractère en majuscule
			for (i=0;i<118;i++)
					{
					for (j = 1 ; numero[j] != '\0' ; j++)
						{
						numero[j] = tolower(numero[j]);// on met certains caractères en minuscule pour la recherche
						}

					if (!strcmp(numero, elements[i].nom))
						{
						return i;
						}
					}
				}
			}*/

		case KEY_EXIT : return chang;

		}
	}
}

void calcul_mole()
{/*
char *str = NULL,  *p=str;
char characts[20]={'\0'};
char i=0;
float result=0,  masse;
const char buffer[50]={0};
char cap;

while(1)
{
Bdisp_AllClr_DDVRAM();

dtext(1, 1, "Entrez votre formule : ");

Mini("A  a", 0);

EI_init();

EI_manage_config(EI_SET_COLUMN,  1);
EI_manage_config(EI_SET_ROW,  2);
EI_manage_config(EI_SET_START_MODE,  EI_NORMAL);

str=EI_input_string(25, (const char*)"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz");

Bdisp_AllClr_DDVRAM();

sprintf(buffer, "%s", str);
PrintXY(64-3*strlen(str), 10, buffer, 36);

while(*str) // on va jusqu'a la fin de la chaine
	{
	i=0;

	while(isalpha(*str)) // on prends seulement les lettres
			{
			characts[i]=tolower(*str); // on copie la lettre en minuscule directement dans characts
			++i;
			++str;
			}

	characts[0]=toupper(characts[0]); // on met le 1er caractère en majuscule

	for(i=0;i<118;i++) // on se déplace dans les éléments de la structure
		{
		if(!strcmp(characts, elements[i].symbol))
			{
			masse=elements[i].masse_mol; // on a la masse molaire
			break;
			}
		}

		for(i=0;i<20;++i) // on remet tout à zéro : évite les erreurs
			characts[i]='\0';

	i=0;

	while(isdigit(*str)) // on prends seulement les chiffres
		{
		characts[i]=*str; // on copie la lettre dans characts
		++i;
		++str;
		}

		result += atoi(characts)*masse;

		for(i=0;i<4;++i) // on remet tout à zéro : évite les erreurs
			characts[i]='\0';
	}

free(p);

dtext(1, 30, "la masse molaire est de");

sprintf(buffer, "%.3f g/mol", result);
dtext(1, 40, buffer);

Mini("calc", 0);
Mini("ret", 5);

result=0;

GetKey(&key);

switch(key)
	{
	case 29 : return;
	}

}*/
}