Foro de programacion

uses crt,graph;
var a:real;
gd,gm:integer;
ancho,alto:real;
centrox,centroy:integer;
tsin,tcos:integer;
n_puntos:real;
color:byte;
b:word;
n_spiras:byte;


begin
gd:=0; { 0,1 }
gm:=1;
initgraph(gd,gm,'c:\tp\bgi');{}
directvideo:=false;

{*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-}
textcolor(3);
gotoxy(1,1);
writeln('MICROPAIS 2005 - Spiral ');
textcolor(7);
writeln('Pulsa INTRO para salir');

centrox:=640 div 2 ; { la resolucion de la pantalla div 2 }
centroy:=(400 div 2);

tsin:=90;
tcos:=90;


ancho:=100;
alto :=100;
n_puntos:=trunc(360);{ numero de puntos totales que formam el circulo}



n_spiras:=7;
color:=3;
b:=0;

repeat
      a:=0;

      while a < 2*pi do
      begin
      tsin:=trunc(sin(a)*alto)+centrox;
      tcos:=trunc(cos(a)*ancho)+centroy;
      putpixel (tsin,tcos,color);
       {------------------------------}
       putpixel (tsin+1,tcos+1,color);
       putpixel (tsin+1,tcos-1,color);
       putpixel (tsin-1,tcos-1,color);
       putpixel (tsin-1,tcos+1,color);{}
       {------------------------------}


delay(50);{}

      a:=a+( (pi/n_puntos)  );{}
      if trunc(a*100) mod 24=1 then { incremento cada 15 grados, 360/24  }
         begin
         ancho:=ancho-0.6;
         alto:=alto-0.6;
         end;
         if trunc(a*100)=trunc(pi) then b:=b+1;{}
         if b=n_spiras then break;{}
      end;


until keypressed; {}
writeln('OK');
readln;
end.