Código fuente simple de TC

# incluir ltstdio.h gt

# incluir ltstdlib.h gt

# incluir ltalloc.h gt

# include ltmath.h gt

main()

{

void * ptr

int gd = DETECT

int gm

float I;

init graph(amp;gd,ampgm,"d:\\TC");

setactivepage( 1);

setcolor(rojo);

setfillstyle(1,14);

fillellipse(10,10,10,10);

ptr=malloc(tamañoimagen(0,0,20,20));

getimage(0,0,20,20,ptr);

randomize() ;

setactivepage(0);

for(I = 0;ilt3000;i)

putpixel(aleatorio(640), aleatorio(480), aleatorio (15));

for(I = 0; i lt6.28*4; i=i 0.005)

{

putimage(300 8 * (cos(i) i*sin(i)), 240 6*(sin(i)-i*cos(i), ptr, COPY _ PUT

putimage(300 8*( cos); (i) i*sin(i)), 240 6*(sin(i)-i*cos(i), ptr, COPY _ PUT

if (kbhit())

Pausa;

Retraso(10);

}

getch();

closegraph(); p>

}

Vc 6.0 pasó la prueba