/*       Program na kreslení Hénonova atraktoru
 * --------------------------------------------------
 * Copyright (c) 1999 Martin Hinner, <mhi@penguin.cz>
 */
#include <stdio.h>
#include <math.h>
#include <conio.h>

#include "gr.c"      /* Grafická knihovna */

void main()
{
 float x,y,xn,yn;         /* Pomocné proměnné */
 int i,j;

 initg();                /* Inicializace grafiky */

 for (i=0;i<320;i++)     /* Vybílení plochy */
  for (j=0;j<200;j++)
   putpix(i,j,0x0f);

 x=0;
 y=0;

 while (!kbhit())                   /* Hlavní smyčka */
  {
   putpix(x*120 + 160,y*200 + 100,0);
   xn = x;
   yn = y;

   x = yn+1-(1.4*xn*xn);         /* Na těchto dvou řádcích je celý výpočet */
   y = 0.3*xn;
  }


 getch();                          /* konec */
 doneg();
}