/*mobili1.mar*/
/*figure mobili*/

#include "graphics.h"
#include "math.h"

int p,r,n,y,x,passo;
double s,c,t;

void grafica()
{
int  drive,modo;
drive=0;
modo=0;
initgraph(&drive,&modo,"");
}

main()
{
clrscr();
grafica();
n=16;    /* varia numero figure 2...16 */
y=500;   /* varia scala orizzontale 100..500 */
x=150;   /* varia scala verticale 50..150*/
passo=1; /* varia passo angolare */
for (p=1;p<n;p++)
 {
   t=(atan(1)*4)/(50+25*p);
   setcolor(p);
    for(r=0;r<y;r=r+passo)
    {s=sin(r*t)*x+x;
     c=cos(r*t)*x+x;
     line(r,s,y-r,c);
     }
     passo=passo+1;
     delay(1000);clearviewport();
     }
     outtext("premi return,prego");
     getch();
}

ritorna