Можете, пожалуйста, прокомментировать код?

Question

[Alertoso]

Можете, пожалуйста, помочь разобраться с процедурой отрисовки окружности?

;-----------------------------Рисуем вертикальные линии-------------------------------------

proc drawHorLine uses es di cx ax,\
                  x1, x2, y, color

        mov     ax, $A000
        mov     es, ax

        mov     al, byte[y]
        mov     cx, 320
        mul     cx
        mov     di, ax
        add     di, [x1]
        mov     cx, [x2]
        sub     cx, [x1]

        mov     al, byte[color]
        rep     stosb

        ret
endp

;-------------------------------------------------------------------------------------------

;----------------------------Рисуем окружность-----------------------------------------------

proc drawCircleSim uses bx si di ax,\
               x,y,xc,yc,color, mode

        mov     ax, [x]
        add     ax, [xc]
        mov     bx, [y]
        add     bx, [yc]

        stdcall putpixel, ax, bx,[color]
        cmp     [mode], Mode_NoBorder
        je      @F
        mov     dx, [xc]
        sub     dx, [x]
        push    ax
        push    dx
        push    bx
        stdcall drawHorLine, dx, ax, bx, [color]
        pop     bx
        pop     dx
        pop     ax
        add     ax, 2
        dec     dx
        dec     bx
        stdcall drawHorLine, dx, ax, bx, [color]
@@:
        mov     ax, [x]
        add     ax, [xc]
        mov     bx, [yc]
        sub     bx, [y]
        stdcall putpixel, ax,bx,[color]
        cmp     [mode], Mode_NoBorder
        je      @F
        mov     dx, [xc]
        sub     dx, [x]
        push    ax
        push    dx
        push    bx
        stdcall drawHorLine, dx, ax, bx, [color]
        pop     bx
        pop     dx
        pop     ax
        add     ax, 2
        dec     dx
        add     bx, 1
        stdcall drawHorLine, dx, ax, bx, [color]
 @@:
        mov     ax, [xc]
        sub     ax, [x]
        mov     bx, [yc]
        sub     bx, [y]

        stdcall putpixel, ax,bx,[color]

        mov     ax, [xc]
        sub     ax, [x]
        mov     bx, [y]
        add     bx, [yc]

        stdcall putpixel, ax,bx,[color]


        mov     ax, [y]
        add     ax, [xc]
        mov     bx, [x]
        add     bx, [yc]

        stdcall putpixel, ax,bx,[color]

        cmp     [mode], Mode_NoBorder
        je      @F
        mov     dx, [xc]
        sub     dx, [x]
        stdcall drawHorLine, dx, ax, bx, [color]
@@:
        mov     ax, [y]
        add     ax, [xc]
        mov     bx, [yc]
        sub     bx, [x]


        stdcall putpixel, ax,bx,[color]

        cmp     [mode], Mode_NoBorder
        je      @F
        mov     dx, [xc]
        sub     dx, [x]
        stdcall drawHorLine, dx, ax, bx, [color]
@@:
        mov     ax, [xc]
        sub     ax, [y]
        mov     bx, [yc]
        sub     bx, [x]

        stdcall putpixel, ax,bx,[color]

        cmp     [mode], Mode_NoBorder
        je      @F

        mov     dx, [xc]
        sub     dx, [x]
        stdcall drawHorLine, ax, dx, bx, [color]
@@:
        mov     ax, [xc]
        sub     ax, [y]
        mov     bx, [x]
        add     bx, [yc]

        stdcall putpixel, ax,bx,[color]

        cmp     [mode], Mode_NoBorder
        je      @F
        mov     dx, [xc]
        sub     dx, [x]
        stdcall drawHorLine, ax, dx, bx, [color]
@@:
        ret
endp

;-------------------------------------------------------------------------------------------

;-------------------------Рисуем круг-------------------------------------------------------

proc drawCircle uses es si ax cx bx dx,\
                 xc, yc, r, color, mode

        mov     ax, [y]
        add     ax, [y]
        mov     dx, 3
        sub     dx, ax ; d = dx
        mov     [d], dx
        mov     [x], 0
        mov     si, [r]
        mov     [y], si

.While:
        stdcall drawCircleSim, [x], [y], [xc], [yc], [color], [mode]
        mov     dx, [d]
        cmp     dx, 0  ;if d<0
        js      .Minus

        mov     ax, [x]  ; else begin
        sub     ax, [y]  ;d:=d+4*(x-y)+10;
        mov     cx, ax
        add     ax, cx
        add     ax, cx
        add     ax, cx

        add     ax, 10
        add     [d], ax
        dec     [y]
        jmp     .Skip
.Minus:            ;then d:=d+4*x+6
        mov     ax, [x]
        add     ax, [x]
        add     ax, [x]
        add     ax, [x]

        add     ax, 6

        add     [d], ax

.Skip:

        inc     [x]
        mov     ax, [y]
        cmp     [x],ax

        js      .While

        ret
endp

;-------------------------------------------------------------------------------------------

;--------------------------Рисуем попиксельно-----------------------------------------------

proc putpixel uses es di bx ax cx,\
                        x,y, color

        mov     ax, $A000
        mov     es, ax

        mov     al, byte[y]
        mov     cx, 320
        mul     cx
        mov     di, ax
        add     di, [x]

        mov     al, byte[color]
        mov     [es:di], al

        ret
endp

Comments

[longclaps]

Могли бы, да до тебя туго доходит

[Alertoso]

longclaps, я забыл ответить, занят был олимпой по матеше), а так да, я переделал так, как предложили Вы

[longclaps]

разбирайся

[Alertoso]

longclaps, там точно он реализован? Я просто видел где-то на ассемблере этот алгоритм в строк 100, а тут под 200...

[longclaps]

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

Answer 1

[A K]

Что конкретно вы хотите понять?
В приведённом тексте приведены 4 подпрограммы для низкоуровневого рисования.
"drawHorLine" выводит горизонтальную линию длиной от x1 до x2, вторая координата y, цветом color.
"putpixel" выводит одиночный пиксель по координатам x,y и цветом color
"drawCircleSim" рисует окружность пользуясь двумя предыдущими подпрограммами
"drawCircle" рисует круг? пользуясь тремя предыдущими подпрограммами
Грубо вот так.
Размерность параметров и железо, под которым всё это работает, из кода не понятно.
На вскидку, что-то из серии старинного CGA-EGA с разрешением 320х240. Могу ошибаться.

Comments

[Alertoso]

Самый главный момент, зачем drawCircle, когда уже есть drawCircleSim, вот это мне вообще непонятно...

[A K]

Окружность и закрашенный круг?

[Alertoso]

A K, ааа, в drawCircle вызывается процедура drawCircleSIm(рисование круга), а после неё происходит закрашивание куга?

[A K]

Эээ.. drawCircleSIm - окружность.
а дальше да, типа того.
просто окружность и круг могут быть разных цветов - то что в вашем исходнике комментировано как "Mode_NoBorder".

[Alertoso]

A K, а вообще, очень нужно(прям очень) работу(эти процедуры из той работы, сам код = 480 строк) одну прокомментировать и помочь разобраться до 5 мая, готов даже заплатить...

[A K]

Напишу самое общее, потому как код примитивный.
Самая простая функция - putpixel

proc putpixel uses es di bx ax cx,\
x,y, color
написано что из ресурсов используется.
es - сегментный регистр
di - destination -регистр приёмник
вместе с ES образуют пару ES:DI, позволяющуюю адресовать 32х битный адрес
ax,bx,cx - рабочие регистры процессора, имеющие ещё предопределённые назначения:
ax - аккумулятор - сюда помещается результат вычислений.
bx - база(смещение) используется для косвенной адресации по базе
cx - счётчик
x,y,color - пользовательские параметры, определённые программой

mov ax, $A000
mov es, ax
инициализация сегмента приемника данных
mov al, byte[y]
mov cx, 320
mul cx
координата y (1 байт) умножается на количество пикселей в строке - получаем смещение для номера необходимой для вывода строки. Результат в AX.
mov di, ax
копируем в регистр приёмника
add di, [x]
к полученному смещению начала строки прибавляем координату x.
теперь в DI - смещение нужного пикселя относительно начала экранной области

mov al, byte[color]
mov [es:di], al
требуемый цвет пикселя выводим в заготовленный полный адрес.

Подрограммы рисования линий отличаются только тем, что занимаются вычислением координат для рисования (подготовка входной информации для putpixel и drawHorLine). Работа с входными параметрами - аналогична у всех.

[Alertoso]

A K, так что насчёт того предложения? Я могу скинуть фулл программу сюда кодом и вы скажете: да или нет.

[A K]

f@.ru

[pfemidi]

На вскидку, что-то из серии старинного CGA-EGA с разрешением 320х240. Могу ошибаться

A K, не CGA-EGA, а VGA. Потому что сегмент A000h.