Функция рисования пикселов эллипса на основе sqrt

Question

Я пытаюсь сделать функцию в коде на основе Lua или VB для рисования/построения заполненного эллипса. У меня нет много знаний об этой математике, и я могу воспользоваться некоторой помощью.

В Google вы найдете все, что нужно для рисования эллипсов с кодом, но я не могу найти хороший простой рабочий пример в VB или Lua для заполнения.

В предыдущем посте на этом сайте я получил ответ о том, как рисовать нормальный эллипс, но ничего не придумал для заполнения, вот почему я создаю новую тему для наполненной.

Вот несколько сайтов, которые я посетил, но я не могу найти способ сделать заполненный эллипс без перерисовки уже нарисовали пикселей ...

https://sites.google.com/site/ruslancray/lab/projects/bresenhamscircleellipsedrawingalgorithm/bresenham-s-circle-ellipse-drawing-algorithm

http://groups.csail.mit.edu/graphics/classes/6.837/F98/Lecture6/circle.html

http://www.blitzbasic.com/codearcs/codearcs.php?code=2817

http://hackipedia.org/Algorithms/Graphics/pdf/A%20Fast%20Bresenham%20Type%20Algorithm%20For%20Drawing%20Ellipses%20by%20John%20Kennedy.pdf

https://scratch.mit.edu/projects/49873666/

http://www.sourcecodesworld.com/source/show.asp?ScriptID=112

Вот код, у меня есть для нормального эллипса (благодаря «Джонни Strings» для версии VB):

function DrawEllipse(xc,yc,w,h) 
    local w2 = w * w 
    local h2 = h * h 
    local fw2 = 4 * w2 
    local fh2 = 4 * h2 

    xc = xc + w 
    yc = yc + h 

    local x = 0 
    local y = h 
    local s = 2 * h2 + w2 * (1 - h) 
    while h2 * x <= w2 * y do 
     dot(xc + x, yc + y) 
     dot(xc - x, yc + y) 
     dot(xc + x, yc - y) 
     dot(xc - x, yc - y) 
     redraw()inkey() 
     color(int(rnd()*255),int(rnd()*255),int(rnd()*255)) 
     if s >= 0 then 
      s = s + fw2 * (1 - y) 
      y = y - 1 
     end 
     s = s + h2 * ((4 * x) + 6) 
     x = x + 1 
    end 
    x = w 
    y = 0 
    s = 2 * w2 + h2 * (1 - w) 
    while w2 * y <= h2 * x do 
     dot(xc + x, yc + y) 
     dot(xc - x, yc + y) 
     dot(xc + x, yc - y) 
     dot(xc - x, yc - y) 
     redraw()inkey() 
     color(int(rnd()*255),int(rnd()*255),int(rnd()*255)) 
     if s >= 0 then 
      s = s + fh2 * (1 - x) 
      x = x - 1 
     end 
     s = s + w2 * ((4 * y) + 6) 
     y = y + 1 
    end 
end 

Answer 1

Вот что я придумал для моего процессора рендерером в прошлом. Это очень эффективно и очень просто.

Он опирается на математическое определение эллипса, поэтому эллипс рисуется в центре по x, y и имеет ширину и высоту, определенные из центра, а не с другой стороны.

Функция точки рисования рисует пиксель в заданной точке x на y.

local function drawaxisalignedellipse(x,y,w,h) 
    --n Defines the bounds of the horizontal lines which fill the ellipse. 
    local n=w 
    local w2=w*w 
    local h2=h*h 

    --draws the center horizontal line. 
    for i=x-w,x+w do 
     drawpoint(i,y) 
    end 

    for j=1,h do 
     --The current top and bottom rows. 
     local ra,rb=y+j,y-j 

     --This loop removes 1 from n until it is within the shape 
     while w2*(h2-j*j)<h2*n*n and n~=0 do n=n-1 end 

     --Draws horizontal line from -n to n across the ellipse 
     for i=x-n,x+n do 
      drawpoint(i,ra) 
      drawpoint(i,rb) 
     end 
    end 
end