ZXNet эхоконференция «code.zx»

Пpивет all!

Hyжен сабж, и если не сложно пpимеp на басике/асме.

Alexand

Привет _Alexandr_ ! Пишет тебе *Anton* !

18 Апр 03 20:42, _Alexandr Filippov_ ══. /All/:


AF> Hyжен сабж, и если не сложно пpимеp на басике/асме.
AF>
Сабж прост до безобразия :)

10 let a=10: let b=20: let x=100: let y=100
20 let s=3/(a+b)
30 for t=0 to 2*pi step s
40 plot x+a*sin(t), y+b*cos(t)
50 next t

это так, навскидку. Принцип прост:
10 - инициализация. а= радиус по оси Х, б = радиус по У
20 - вычисление шага. Троечку можно поменять на число поменьше - будет
покачественнее, но медленнее.
30 - в цикле прогоняем t по всей окружности, от 0 до 360 градусов.
40 - ставим точечки. Можно было и отрезками, но неохота :)

а если а и б менять в теле цикла - можно спираль получить или еще чего похлеще
:)

Вот и всё! Очень просто, имхо. Будут вопросы - задавай.


Hу что еще сказать?... Пока, _*Alexandr*_ !

Пусть враги твои, Anton, умрут без сыновей!

20 Apr 2003 at 20:59, Anton Kolotvin => Alexandr Filippov:

AK> покачественнее, но медленнее. 30 - в цикле прогоняем t по всей
AK> окружности, от 0 до 360 градусов.

достаточно до 90 градусов, а остальное зеркально отражать.

WBR, Oleg.

On Sun, 20 Apr 2003 19:59:40 +0400, Anton Kolotvin wrote:

AK> 20 - вычисление шага. Троечку можно поменять на число поменьше - будет
AK> покачественнее, но медленнее.

Можно точки прямыми линиями соединять, чтобы разрывов не было.
А вообще есть какой-то более нормальный алгоритм (Брезенхейма?) построения
эллипсов и окружностей, но я не помню уже.

--
[ZX]

Привет _Oleg_ ! Пишет тебе *Anton* !

23 Апр 03 18:46, _Oleg Grigoriev_ ══. /Anton Kolotvin/:


AK>> покачественнее, но медленнее. 30 - в цикле прогоняем t по всей
AK>> окружности, от 0 до 360 градусов.
OG>
OG> достаточно до 90 градусов, а остальное зеркально отражать.
Хм, и вправду можно, но я же говорил, что это так, навскидку, без оптимизации.

Hу что еще сказать?... Пока, _*Oleg*_ !

Привет, Anton!

Воскресенье 20 Апр 2003 20:59:40, Anton Kolotvin -> Alexandr Filippov:

AK> 10 let a=10: let b=20: let x=100: let y=100
AK> 20 let s=3/(a+b)
AK> 30 for t=0 to 2*pi step s
AK> 40 plot x+a*sin(t), y+b*cos(t)
AK> 50 next t

Hе катит. У тебя оси эллипса параллельны осям координат. Уравнение эллипса,
учитывающее произвольный поворот его осей мне неизвестно. Так что, видимо,
каждую точку надо будет еще на матрицу поворота домножить... :-(((


С уважением, Dmitriy.

Привет _Kirill_ ! Пишет тебе *Anton* !

24 Апр 03 07:39, _Kirill Frolov_ ══. /Anton Kolotvin/:


KF> Можно точки прямыми линиями соединять, чтобы разрывов не было.
Я об этом говорил. Просто я написал самое простое, что взбрело в голову.
KF> А вообще есть какой-то более нормальный алгоритм (Брезенхейма?)
KF> построения эллипсов и окружностей, но я не помню уже.
Hапомню. Правда на С, но могу и на Васике кинуть.

Алгоритм прорисовки эллипса.

// прорисовка почти точного эллипса быстрым целочисленным алгоритмом;
void DrawEllipse(int x, int y, long int a, long int b,
unsigned long int color)
// прорисовка 1/8 части графика функции D = t0+t1+t2 = (a^2)*(y^2) +
// + 2*(a^2)*y + (x^2)*(b^2) - x*(b^2) - (a^2)*(b^2) + (a^2) + (b^2)/4,
// x>=0, y>=0 или y=-1+(b/a)*sqrt(-(x^2)+x+(a^2)-1/4), x>=0, y>=0
// затем корректировка и прорисовка другой 1/8 части немного изменённого
// подобного графика - получается почти точный эллипс}
{int ex, ey; long int aa, aa2, bb, bb2, d, dx, dy;
// Задание начальных значений; t0:=aa-bb*a+(bb div 4); t1:=0; t2:=bb2*a;
ex = a; ey = 0; aa = a * a; aa2 = aa * 2; bb = b * b; bb2 = bb * 2;
d = aa - bb * a + (bb % 4); dx = aa; dy = bb2 * a;
DrawPixel(x - ex, y, color); DrawPixel(x, y - b, color);
DrawPixel(x + ex, y, color); DrawPixel(x, y + b, color);
// Прорисовка 1/8 части графика, и симметричный вывод в 1,2,3,4 четвертях;
while (dx < dy)
{if (d > 0)
{ex--;
dy = dy - bb2; // DY = -bb2 * (a - ex);
d = d - dy; // t1:=t1-dy = bb*(1+a-ex)*(a-ex)-(a-ex)*bb2*a;
}
ey++;
dx = dx + aa2; // DX = aa2*ey;
d = d + dx; // t2:=t2+aa+dx = aa*EY*(1+EY)+EY*aa; D = t0+t1+t2;
DrawPixel(x + ex, y + ey, color); DrawPixel(x + ex, y - ey, color);
DrawPixel(x - ex, y + ey, color); DrawPixel(x - ex, y - ey, color);
}
// Корректировка: уменьшение D для совпадения радиуса = b по координате Y;
d = d + ( (3*(bb-aa) % 2) - (dx-aa+dy) ) % 2; dy = dy - bb;
// Прорисовка оставшейся 1/8 части графика, и симметричный вывод в 1,2,3,4
// четвертях;
while (ex > 0)
{if (d < 0) {ey++; dx = dx + aa2; d = d + dx;}
ex--; dy = dy - bb2; d = d - dy;
DrawPixel(x + ex, y + ey, color); DrawPixel(x + ex, y - ey, color);
DrawPixel(x - ex, y + ey, color); DrawPixel(x - ex, y - ey, color);
}
}
Hадеюсь, комментариев не надо. в принципе, все должно быть понятно.


Hу что еще сказать?... Пока, _*Kirill*_ !