Ускорение графики, методы Опции

[Altair]

Очень медленно выводятся некоторые фигуры, например, окружность.
Как можно ускорить вывод графики?

В программе выводятся только окружности, но много.
Вывод осуществляется ОЧЕНЬ медленно.
Может поможет написание процедуры Circle на асме?

[BlackShadow]

Не всегда оптимизация по скорости приводит к росту размеров. Вот яркий пример:

Код

Begin
 Asm
   MOV AX,0013h
   INT 10h
   MOV AX,$A000
   MOV ES,AX
   MOV CX,100
   MOV AL,$FF
   XOR DI,DI
   REP STOSB
   XOR AH,AH
   INT 16h
   MOV AX0003
   INT 10h
 End
End.

против

Код

Uses Graph,Crt;
Var
 r,m:Integer;
Begin
 r:=DETECT;
 InitGraph('',r,m);
 SetColor(WHITE);
 Line(0,0,99,0);
 ReadKey;
 RestoreCRTMode
End.

Увеличивается только кол-во строк в исходнике, да и то не так уж сильно