Обход всех пикселей круга.

[GAGArin]

Есть круг заданного радиуса, надо нарисовать его по точкам. Тоесть мне нужно задать вычисление цвета для каждой точки круга. Задача для реализации своего упрощенного алгоритма отрисовки 3D шарика. Если кто-то подскажет еще и алгоритм отрисовки трехмерного шарика - буду вдвойне благодарен. Алгоритм должен быть простой, математический. Компы слбые. Никакой трассировки лучей быть не должно и в помине.

[tyomitch]

Эээ, Брезенхем?
http://algolist.manual.ru/graphics/painting/circle.php


Код для отрисовки трёхмерного шарика я выкладывал на TP7, а GSerg переводил на VB.net, года эдак два назад.

Для одного шарика никакой трассировки лучей и не нужно. Яркость -- косинус угла от направления света до нормали. (Откуда тебе свет должен падать, кстати?)

[GAGArin]

Спс за наводку. Сейчас разберусь, но думаю сложностей быть особых не должно. Еще бы примерно прикинуть как освещенность учитывать, но это опытным путём думаю придумается.

[GAGArin]

Еще раз спасибо. Что-то подобное про освещенность и думал делать. Просто хотелось реализовать максимально красиво и на довольно близких к шарику расстояниях.

[tyomitch]

На всякий случай, вот (примитивный) сэмпл для освещения из (1,1,2).
Вроде красиво.

Код: Выделить всё

Private Sub Form_DblClick()
ScaleMode = vbPixels
Dim x As Long, y As Long, z As Long, r As Long, c As Single
If ScaleWidth < ScaleHeight Then r = ScaleWidth / 2 Else r = ScaleHeight / 2
For x = -r To r
    For y = -r To r
        If x * x + y * y <= r * r Then
            z = Sqr(r * r - x * x - y * y)
            c = (x + y + 2 * z) / (r * 2)
            If c < 0 Then c = 0
            PSet (x + r, y + r), RGB(c * 153, c * 50, c * 204)
        End If
    Next
Next
End Sub