Some graphics (Work in progress)

[ArielPalazzesi]

Another one:

Code:

EXPORT grafico2()
BEGIN
//Valores iniciales
local AA,BB,CC,DD,EE,FF, angulo;

//Manejo el tema del formato de los angulos
angulo := HAngle;
HAngle := 0; //Modo = grados

DIMGROB_P(G1,320,240);
BLIT_P(G0,G1);

FOR AA FROM 0 TO 400 DO
  BB := AA*atan(1)/90*360/255*4;
  CC := CC+255/191;
  DD := CC*atan(1)/90*360/255*3;
  EE := sin(BB)*120+120;
  FF := cos(DD)*160+160;
  LINE_P(CC,EE,FF,AA,#02FFFF+IP(AA*350));
  WAIT(0.05);
END;

FREEZE;

HAngle := angulo;
END;