#include <stdio.h>
#include <string.h>
#include <glib.h>
#include <strlib.h>
#include "land.h"

/* #include "..\lib.h" */


main()
{
int x, y, bcl[16], x1, y1, wi;
double inpn;

   
   gopen();
   GDS_setcompat(1);
   MOS_start();
   
   tpalet2();

   color(7, 0);
   Cls;

/*
   system("tifl land");
*/
/*
   printf("%d\n", tiffl(0,0, "land2.tif"));
*/
   getch();
   tpalet();
/*   color(7,7); */
   Cls;
   bcl[0] = 7;
   paint(1,1, 1, 7,  1, bcl);
   menubox(50, 50, 500, 300, "�T���q���摜��̓��j���[");
   /*
      drmode(PSET);
      bcl[0] = 7;
      paint(1, 1, 1, 7, 1, bcl);
   */
   x1 = 600; y1 = 50;
   calcu(x1, y1, 1);
   line(x1, y1, x1+19, y1+19, XOR, 7, 2, 0xffff);
   MOS_disp(0);
   line(250,150,350,250,PSET,10,2,0xffff);
   line(250,150+10,350,250+10,PSET,12,2,0xffff);
   line(250,150+30,350,250+30,AND,14,2,0xffff);
   msgset(100, 100, "���@�a�r�p", 8);
   msgset(100, 120, "���@�a�h�k", 8);
   x = 300; y = 250;
   inpn = 1000;
   wi = calc(&x, &y, &inpn);
   msgset(100, 120, "���@�a�h�k", 7);
   msgset(100, 120, "��", 8);
   calcu(x1, y1, 0);

   Locate(0,10);
   printf(" inpn = %f\n", inpn);
   getch();
   color(7,0);
   rpalet();
   MOS_end();
   gclose();
}