Вот написал небольшую прогу, которая рисует "сферу"

Код

var  s,f: integer; begin  for f:=0 to 30 do  for s:=1 to 100000 do begin           canvas.Pixels[round(sin(s)*f*10)+width div 2,round(cos(s)*300)+height div 2]:=clBlack;       canvas.Pixels[round(sin(s)*300)+width div 2,round(cos(s)*f*10)+height div 2]:=clBlack;  end; end;

Я знаю, что это полное фуфло, поэтому хочу спросить как по-людски рисуются элепсы, ну и если кто знает сферы  

А почему во флейм? Это тема для раздела по алгоритмам, ИМХО

Ой, я че-то не додумался. Можешь перенести?

Нет, это к Админу и Серёге - кстати давненько он не появлялся...

http://algolist.manual.ru/maths/geom/equation/sphere.php

А не на OpenGL это делать нужно?

Цитата

А не на OpenGL это делать нужно?

Не, я хотел спроить как это впринципе делается

Я тебя не понял. Если тебе сферу надо нарисовать на плоском мониторе, (а других пока нет) надо нарисовать просто круг. А если 3-хмерную картинку, то это работа с тенями, светом ...

Цитата

как по-людски рисуются элепсы,

Эллепсоиды, кажись

Забудем про сферу.

Как

Цитата

Эллепсоиды

рисуются.
(Не так же мазохистски как у меня).

Код

#define pi 3.14 int xCenter=координата центра X; int yCenter=координата центра Y; int xRadius=радиус по X; int yRadius=радиус по Y; double i; for(i=0;i<pi*2;i+=0.01)  canvas.Pixels[ceil(cos(i)*xRadius+xCenter)][ceil(sin(i)*yRadius+yCenter)]=clBlack;

только это на С

Синусы и косинусы придумали трусы ;)

Вот код на обычном Паскале:

Цитата

{$N+} {$A-} {$G+} uses crt; procedure graph256;  begin    asm    mov  ax,13h; int  10h    end;  end; procedure close256;  begin    asm    mov  ax,03h; int  10h    end;  end; procedure Ellipse256(color:byte; r,x,y:word; a,b: word);  var    xc,yc: word;  begin    asm      push 0a000h      pop  es      mov  cx,r      mov  ax,x      sub  ax,cx      mov  xc,ax      mov  ax,y      sub  ax,cx      mov  yc,ax      mov  ax,cx      mul  ax      mov  bx,ax      shl  cx,1      inc  cx      mov  si,cx @ScanY:      push cx      mov  cx,si      push xc @ScanX:      mov  ax,xc      sub  ax,x      imul ax      mul  a      push ax      mov  ax,yc      sub  ax,y      imul ax      mul  b      pop  dx      add  ax,dx      cmp  ax,bx      ja   @NoPaint      mov  ax,320      mul  yc      add  ax,xc      mov  di,ax      mov  al,color      mov  es:[di],al @NoPaint:      inc  xc      loop @ScanX      pop  xc      pop  cx      inc  yc      loop @ScanY    end;  end; begin  graph256;  Ellipse256(9,10,20,20,1,1);  Ellipse256(14,20,70,50,3,1);  Ellipse256(31,30,170,100,1,5);  repeat until keypressed;  close256; end.

Цитата(Chingachguk @ 11.11.2002, 13:59)

Синусы и косинусы придумали трусы ;) Вот код на обычном Паскале:

ну не сказал бы я что это обычный паскаль может пояснишь что к чему в твоем алгоритме (который без синусов и косинусов) ламерам, не понимающим асма (типа меня)?

Я тут пару дней как с asm'ом общаюсь и понял целых две процедуры: procedure graph256 и procedure close256 первая "заход" в граф. режим другая выход.

Дальше мне нужен криптограф

Да я просто прикололся ;)

Хотя там действительно нету синусов: одно умножение:

// Вход: x,y - координаты центра
// color - цвет
// a и b - коэффициенты растяжения из уравнения эллипса:
// a*x^2+b*x^2=r^2
// r - радиус
// Загружаем в es адрес видеобуфера (0xA0000)
    push 0a000h
    pop  es
// Вычисляем в xc = x - r
    mov  cx,r
    mov  ax,x
    sub  ax,cx
    mov  xc,ax
// Вычисляем в yc = y - r
    mov  ax,y
    sub  ax,cx
    mov  yc,ax
// Вычисляем r^2 и будем хранить его в bx
    mov  ax,cx
    mul  ax
    mov  bx,ax
// Число проходов по X и Y равно 2*R + 1 (по обе сторны от x и y)
    shl  cx,1
    inc  cx
    mov  si,cx
// Храним его в si
@ScanY:
// Проход по yc = y - r ... y ... y + r
    push cx
    mov  cx,si
    push xc
// Проход по xc = x - r ... x ... x + r
@ScanX:
// Вычисляем xc-x
    mov  ax,xc
    sub  ax,x
// Разницу xc-x возводим в квадрат
    imul ax
// Квадрат домножаем на a
    mul  a
// Сохраняем р-т в стеке
    push ax
// Вычисляем yc-y
    mov  ax,yc
    sub  ax,y
// Разницу yc-y возводим в квадрат
    imul ax
// Квадрат домножаем на b
    mul  b
    pop  dx
// Вычисялем a*(xc-x)^2+b*(yc-y)^2
    add  ax,dx
// Если эта штука <= r^2, то рисуем пиксель цветом color
    cmp  ax,bx
    ja   @NoPaint
// Отрисовка пикселя
    mov  ax,320
    mul  yc
    add  ax,xc
    mov  di,ax
    mov  al,color
    mov  es:[di],al
@NoPaint:
// Следующий xc
    inc  xc
    loop @ScanX
    pop  xc
    pop  cx
// Следующий yc
    inc  yc
    loop @ScanY
  end;

... ;)

Блин, как все сложно с этим асмом