Таварищи господа, войдите в положение, у меня горит зачет! В общем, есть две задачи, в них фигура - тор (в простонародии бублик), если смотреть ему в дырку, то от центра идет спираль, а надо, чтобы шли окружности, подделайте пожалуйста! Ну или подскожите че сделать! С миня пЫфко!!
З.Ы. В самом замечательном варианте, укажите свой имейл, я вышлю то, что надо переделать, а то я выкладывать файлы на форум не умею! [Ответ]

Сообщение от Велимудр:
от центра идет спираль, а надо, чтобы шли окружности

Либо тут все просто, либо я чего-то не понимаю...
procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
i:integer;
begin
x:=200;
y:=200;
for i:=10 downto 1 do
form1.Canvas.Ellipse(x+i*10,y+i*10,x-i*10,y-i*10);
end;
end.
Посмотри. Оно? [Ответ]

а как спираль идет?
Велимудр, скопируй просто код сюда, мне интересно, как там спираль нарисована. [Ответ]

По-моему, тут опенжеэлем пахнет, а не простой канвой.. [Ответ]

Сообщение от Constantine:
По-моему, тут опенжеэлем пахнет, а не простой канвой..

директом..
по этому и хочу увидеть исходники, чтоб знать, об чем говорить.. [Ответ]

ПММ походу
Ну и нах люди идут на ПММ, а потом задают вопросы "как спираль заменть на окружности"... [Ответ]