Árbol fractal en BorlandC para DOS

julio 28 2009Se el primero en comentar

Guardado en : Ciencia, Programación, Social / Internet

Árbol fractal en BorlandC para DOS

/*arbol3*/
/*Fernando Galindo Soria*/
 
#include <graphics.h>
#include <math.h>
 
void arbol(int,int,int,int);
void arbolb(int,int,int,int);
int ind;
 
void main()
{
  int gd=DETECT,gm;
  initgraph(&gd,&gm,"");
  ind=1;
  arbol(300,300,70,90);
  getch();
  closegraph();
}
 
void arbol(int x0,int y0,int l,int an)
{
  int x1,y1;
 
  if(bioskey(2)!=0x04)
  if (l > ind )
  {
    x1=x0-(l*cos(an/57.29578));
    y1=y0-(l*sin(an/57.29578));
    line(x0,y0,x1,y1);
    arbolb(x1,y1,l/1.5,an-47);
    arbolb(x1,y1,l/1.5,an+67);
  }
}
void arbolb(int x0,int y0,int l,int an)
{
  int x1,y1;
 
  if(bioskey(2)!=0x04)
  if (l > ind )
  {
    x1=x0-(l*cos(an/57.29578));
    y1=y0-(l*sin(an/57.29578));
    line(x0,y0,x1,y1);
    arbol(x1,y1,l,an-17);
/*    arbolb(x1,y1,l,an+57);*/
  }
}

Quizá te interese :

Acerca del autor:

Deja un comentario


Licencia y uso

Las técnicas demostradas en los tutoriales pueden ser utilizadas sin ninguna limitación y tampoco es obligatorio dar una atribución.


Los textos, imágenes y tutoriales son propiedad de sus respectivos autores, nuestro contenido se encuentra bajo licencia Creative Commons Share-Alike.

Escribe algo para el sitio

El escribir un tutorial o un artículo, mandarnos un enlace para Ubicuos, no solamente es una forma de obtener publicidad, si no también de dar algo a la comunidad y nosotros te lo recompensamos con los premios del mes! Leer más de nuestras promociones

¿Sugerencias?

Este es TU sitio, si tienes sugerencias o ideas de cómo podemos mejorarlo para ti, ¡Por favor háznoslos saber!

Hacemos nuestro mayor esfuerzo en proporcionar un sitio útil y amigable y esperamos que disfrutes tu tiempo aquí.

Ayuda a Difundir

Te gusta Ubicuos?

Ve las formas en que nos puedes apoyar.

Apoyando a Ubicuos.com

Submit your linkClose

-->