Subversion Repositories Kolibri OS

#include "func.h"

#include "parser.h"

#include "use_library.h"

const char header[] = "Graph";

const char empty_text[] = "No function loaded. Type file name and press Enter. ";

const char er_file_not_found[] = "Cannot open file. ";

const char str_filename[]="Filename:";

const char str_editfile[]="Edit";

// íà÷àëüíûå ðàçìåðû

#define WND_W 600

#define WND_H 470

#define LIGHTGREEN 0xff0000

#define WHITE 0xffffff

#define BLACK 0x0

#define LIGHTBLUE 0x0000ff

#define LIGHTRED 0xff0000

// font colors

#define BIGFONTCOLOR BLACK

#define SMALLFONTCOLOR BLACK

#define THREE 3.0

// minimum space: 3 pixels

#define BIG_HEIGHT 4.0

#define SMALL_HEIGHT 2.0

#define TEXT_X 15.0

// numeric format for output

#define FORMAT "%f"

// format for two coords

#define FORMAT_COORD "(%f,%f)"

// special value to text if enough space

#define FORMAT_TEST "0.00"

#define DELTA_BIG 1.0

#define DELTA_SMALL 0.1

double *points;

Dword point_count = 0;

double x1,y1,x2,y2;

char *funct = NULL;

char edit_path[256];

edit_box mybox = {200,92,WND_H-16-32,0xffffff,0x94AECE,0,0x808080,0x10000000,

	sizeof(edit_path)-1,(dword)&edit_path, 0, 0, 0};

char *full_head;

char *HugeBuf = NULL;

//char fuck[64] = "$this is a fucking marker$";

// ïàðàìåòðû êîìàíäíîé ñòðîêè

#ifdef AUTOBUILD

extern char params[1024];

char params[1024];

#else

char params[1024] = "_FIND_ME_";

#endif

/*

  fucking piece of shit

  */

// constructor of TCoord

TCoord coord(double x, double y)

{

  TCoord r;

  r.x = x;

  r.y = y;

  return r;

}

// move and scale mathematical coords to fit screen coords

TCoord mat2Graf(TCoord c, TCoord scrMin, TCoord scrMax, TCoord mMin, TCoord mMax)

{

  TCoord r;

  if (c.x > mMax.x)

    c.x = mMax.x;

  if (c.x < mMin.x)

    c.x = mMin.x;

  if (c.y > mMax.y)

    c.y = mMax.y;

  if (c.y < mMin.y)

    c.y = mMin.y;

  r.x = (scrMax.x - scrMin.x) / (mMax.x - mMin.x) * (c.x - mMin.x) + scrMin.x;

  r.y = (scrMax.y - scrMin.y) / (mMax.y - mMin.y) * (mMax.y - c.y) + scrMin.y;

  return r;

}

// double-îáåðòêè

void line_d( double x1, double y1, double x2, double y2)

{

   line(di(x1), di(y1), di(x2), di(y2));

}

void outtextxy_d( double x, double y, char * text, int len)

{

   outtextxy(di(x), di(y), text, len);

}

// huge function to draw all the stuff except the function itself

void drawAxis( TCoord scrMin, TCoord scrMax, TCoord mMin, TCoord mMax)

{

  TCoord cZero={0.0,0.0},

	   gMin, gMax, gZero, step;

  TCoord from, to;

  double i=0.0;

  int j;

  double xmin, xmin2, ymin, ymin2;

  char buf[30]="";

// scr means Screen(bounding rect)

// m   means Mathematical

// g   means Graphic(real screen position)

  //rtlDebugOutString("draw axis called\n");

  //format(debuf, 30, "test: %f,%f,%f,%f\n", 123.45, 1.0, -0.9, 12.57);

  //rtlDebugOutString(debuf);

  gMin = mat2Graf(mMin, scrMin, scrMax, mMin, mMax);

  gMax = mat2Graf(mMax, scrMin, scrMax, mMin, mMax);

  gZero = mat2Graf(cZero, scrMin, scrMax, mMin, mMax);

  // clear

 // setcolor(WHITE);

 //rectangle(di(gMin.x), di(gMin.y), di(gMax.x), di(gMax.y));

  // ftopku

  setcolor(BLACK);

  // osy X

  line_d(gMin.x, gZero.y ,gMax.x, gZero.y);

  // osy Y

  line_d(gZero.x, gMin.y, gZero.x, gMax.y);

  // bounding rect

  line_d(gMin.x, gMin.y, gMax.x, gMin.y);

  line_d(gMin.x, gMax.y, gMax.x, gMax.y);

  line_d(gMin.x, gMin.y, gMin.x, gMax.y);

  line_d(gMax.x, gMin.y, gMax.x, gMax.y);

  // coords of the rect : lower left

  format(buf, 30, FORMAT_COORD, x1, y1);

  //rtlDebugOutString(buf);

  outtextxy_d(gMin.x, gMin.y + textheight(buf, 20), buf, 20);

  // upper left

  format(buf, 30, FORMAT_COORD, x1, y2);

  outtextxy_d(gMin.x, gMax.y - textheight(buf, 20), buf, 20);

  // lower right

  format(buf, 30, FORMAT_COORD, x2, y1);

  outtextxy_d(gMax.x - textwidth(buf, 20), gMin.y + textheight(buf, 20), buf, 20);

  // upper right

  format(buf, 30, FORMAT_COORD, x2, y2);

  outtextxy_d(gMax.x - textwidth(buf, 20), gMax.y - textheight(buf, 20), buf, 20);

  //rtlDebugOutString("some lines painted\n");

  step.x = (mMax.x - mMin.x) / (scrMax.x - scrMin.x);

  step.y = (mMax.y - mMin.y) / (scrMax.y - scrMin.y);

// round values

  xmin = id(di((mMin.x / DELTA_BIG) * DELTA_BIG));

  ymin = id(di((mMin.y / DELTA_BIG) * DELTA_BIG));

  // (0,0)

  if ((x1 * x2 <= 0.0) && (y1 * y2 <= 0.0))

  {

	  from.x=0.0;

	  from.y=0.0;

	  from = mat2Graf(from, scrMin, scrMax, mMin, mMax);

	  setcolor(BLACK);

	  format(buf, 30, FORMAT, 0.0);

	  outtextxy_d(from.x - textwidth(buf, 20), from.y + textheight(buf, 20), buf, 20);

  }

  // big marks on X

  //settextstyle(0, 0, 1);

  if (DELTA_BIG / step.x > THREE)

  {

    for (i = xmin; i <= mMax.x; i += DELTA_BIG)

    {

	  if (i != 0.0)

	  {

		  from.x = i;

		  to.x = from.x;

		  from.y = -BIG_HEIGHT * step.y;

		  to.y = BIG_HEIGHT * step.y;

		  from = mat2Graf(from, scrMin, scrMax, mMin, mMax);

		  to = mat2Graf(to, scrMin, scrMax, mMin, mMax);

		  setcolor(BLACK);

		  line_d(from.x, from.y, to.x, to.y);

		  // write number

		  format(buf, 30, FORMAT, i);

		  // if it fits in the GAP, then write it

		  if (from.y > scrMin.y && (DELTA_BIG > (textwidth(buf, 20) + 1.0) * step.x))

		  {

			   setcolor(BIGFONTCOLOR);

			   outtextxy_d(from.x - textwidth(buf, 20) / 2.0, to.y - textheight(buf, 20), buf, 20);

		  }

	  }

    }

  }

  //rtlDebugOutString("big marks x painted\n");

  // big marks on Y

  if (DELTA_BIG / step.y > THREE)

  {

    for (i = ymin; i <= mMax.y; i += DELTA_BIG)

    {

	  if (i != 0.0)

	  {

		  from.y = i;

		  to.y = from.y;

		  from.x = -BIG_HEIGHT * step.x;

		  to.x = BIG_HEIGHT * step.x;

		  from = mat2Graf(from, scrMin, scrMax, mMin, mMax);

		  to = mat2Graf(to, scrMin, scrMax, mMin, mMax);

		  setcolor(BLACK);

		  line_d(from.x, from.y, to.x, to.y);

		  format(buf, 30, FORMAT, i);

		  if (from.x > scrMin.x && (DELTA_BIG > textheight(buf, 20) * step.y))

		  {

			   setcolor(BIGFONTCOLOR);

			 outtextxy_d(from.x + TEXT_X, to.y - textheight(buf, 20) / 2.0, buf, 20);

		  }

	  }

    }

  }

  xmin2 = id(di(mMin.x / DELTA_SMALL)) * DELTA_SMALL;

  ymin2 = id(di(mMin.y / DELTA_SMALL)) * DELTA_SMALL;

  if (DELTA_SMALL / step.x  > THREE)

  {

    j = di((( - xmin + xmin2 ) / DELTA_SMALL));

    for (i = xmin2; i <= mMax.x; i += DELTA_SMALL, j++)

    {

      if (j % 10 == 0)

      {

      // we need to skip every tenth mark, to avoid overwriting big marks

		j = 0;

		continue;

      }

      from.x = i;

      to.x = from.x;

      from.y = -SMALL_HEIGHT * step.y;

      to.y = SMALL_HEIGHT * step.y;

      from = mat2Graf(from, scrMin, scrMax, mMin, mMax);

	  to = mat2Graf(to, scrMin, scrMax, mMin, mMax);

      setcolor(BLACK);

      line_d(from.x, from.y, to.x, to.y);

      format(buf, 30, FORMAT, i);

      if (from.y > scrMin.y && (DELTA_SMALL > textwidth(buf, 20) * step.x))

      {

		setcolor(SMALLFONTCOLOR);

		outtextxy_d(from.x - textwidth(buf, 20) / 2.0, to.y - textheight(buf, 20), buf, 20);

      }