Ничего сложного - надо круг нарисовать. Страница 1. Раздел «Ассемблер». Форум программистов «Весельчак У»

raYNor

Гость

« : 27-05-2004 19:44 »

Есть хороший алгоритм прорисовки круга на С++ :

void circle(int xc, int yc, int r, char c)
{
int x = 0, y = r, d = 2 * (1 - r);
putpixel(xc + r, yc, c);
putpixel(xc - r, yc, c);
while(y > 0)
{
    putpixel(xc + x, yc + y, c);
    putpixel(xc + x, yc - y, c);
    putpixel(xc - x, yc + y, c);
    putpixel(xc - x, yc - y, c);
    if(d + y > 0)
    {
       y -= 1;
       d -= (2 * y) - 1;
    }
    if(x > d)
    {
       x += 1;
       d += (2 * x) + 1;
    }
}
}

Надо тоже самое сделать на ассемблере, вот что у меня получилось:
.MODEL tiny ;Create *.com
;.model small ;Create *.exe

.DATA
enlargebufferseg dw 0 ; segment address of the 64*32 enlarge buf.
textureseg dw 0 ; the segment address of texture to display.
fractalseg dw 0 ; the segment address of texture to create

.CODE

.STARTUP

jmp Start

Screen MACRO col
mov AH,0BH ;Must be
mov BX,col ;Color
int 10H
ENDM

PutPixel MACRO x,y,color
mov BX,color ; Set color
mov CX,x ; set column
mov DX,y ; set line
mov AH,0CH ; Put picxel
mov AL,BL
int 10H ; BX, CX, DX are kept
ENDM

Getch MACRO
mov ax,0
int 16h
ENDM

Circle MACRO xc,yc,r,c
x dw 0
y dw 0
d dw 0
tmpx dw 0
tmpy dw 0
mov ax,0
mov x,ax ;x=0
mov ax,r
mov y,ax ;y=r

mov bx,2
sbb bx,r
sbb bx,r
mov d,bx ;d = 2*(1-r)

PutPixel xc+r,yc,c ; xc+r,yc
PutPixel xc-r,yc,c ; xc-r,yc

.WHILE y>0
mov ax,xc
adc ax,x
mov tmpx,ax
mov ax,yc
adc ax,y
mov tmpy,ax
PutPixel tmpx,tmpy,c ; xc+x,yc+y

mov bx,yc
sbb bx,y
mov tmpy,bx
PutPixel tmpx,tmpy,c ; xc+x,yc-y

mov bx,xc
sbb bx,x
mov tmpx,bx
mov ax,yc
adc ax,y
mov tmpy,ax
PutPixel tmpx,tmpy,c ; xc-x,yc+y

mov bx,yc
sbb bx,y
mov tmpy,bx
PutPixel tmpx,tmpy,c ; xc-x,yc-y

mov ax,d
adc ax,y
.IF ax>0
mov bx,y
sbb bx,1
mov y,bx ;y = y-1
mov bx,d
adc bx,1
sbb bx,y
sbb bx,y
mov d,bx ;d = d-(2*y - 1) = d+1-y-y
.ENDIF
mov bx,x
sbb bx,d
.IF bx>0
mov ax,x
adc ax,1
mov x,ax ;x = x + 1
mov bx,d
adc bx,x
adc bx,x
adc bx,1
mov d,bx ;d =d + (2 * x) + 1 = d+x+x+1
.ENDIF
.ENDW
ENDM

Init:
push ax
push bx
; 1) Setup ES segment
mov ax,0a000h
mov es,ax
; 2) Allocate RAM
; This is a COM program, so we just set the segments to spare
; space in memory. (well, hopefully spare space Улыбаюсь

push cs
pop ax
add ax,4096 ; textureseg is 64k above our segment
mov textureseg,ax
add ax,4096 ; and fractalseg is 128k above
mov fractalseg,ax
sub ax,4096
sub ax,2048 ; enlargebuffer is 1/2 way through our segment.
mov enlargebufferseg,ax
; 3) Do graphics mode
mov ax,0012h ;set 640 x 480 16 colors
int 10h
Screen 0 ;clear screen in black
pop bx
pop ax
ret

Shutdown:
push ax
mov ax,0003h
int 10h
pop ax
ret

Start:
call Init
Circle 320,220,50,6
Getch
Breakout:
call Shutdown
mov ah,09h
mov dx,'a'
int 21h
int 20h

END

Т.е. когда вызываю Circle 320,220,50,6
то выполняется макрос Circle, но вместо круга рисуется РОМБ.
Вопрос - что у меня неправильно в макросе Circle?


	Записан

Алексей++

глобальный и пушистый
Глобальный модератор

Offline

Сообщений: 13

	Автор	Тема: Ничего сложного - надо круг нарисовать (Прочитано 36089 раз)
0 Пользователей и 2 Гостей смотрят эту тему.