نوشتن ماکرویی که هر خطی را بتوان توسط آن رسم کرد

[FATEMEH@]

سلام دوستان
چجور میشه ماکرویی نوشت که هر خطی رو رسم کنه
من یکم نوشتم اما موندم
اگه میشه کمکم کنید
ممنونم

m macro x1,y1,h,x2,y2,c
mov ah,0
mov al,13h
int 10h

mov ah,0ch
mov al,c
mov cx,x1
mov dx,y1
int 10h

mov bl,h
l1:int 10h
dec cx
dec bl
jnz l1

l2:int 10h
inc dx
dec bl
jnz l2

l3:int 10h
inc dx
inc cx
dec bl
jnz l3

l4:int 10h
dec cx
dec dx
dec bl
jnz l4


endm


pseg segment
db 64 dup(?)
pseg ends

dseg segment
c db
x1 db
y1 db
h db
dseg ends

cseg segment
main proc
assume ss:pseg,cs:cseg,ds:dseg
mov ax,dseg
mov ds,ax


mov c,3
mov x1,10
mov y1,10
mov h,40
m ???????????








mov ah,4ch
int 21h

main endp
cseg ends
end main

[Delphi Coder]

اگر قرار بر رسم خط عمودی یا افقی باشه کار ساده تر هست اما برای خطوط مورب باید الگوریتم کار رو دربیارید و پیاده سازی کنید(یکی دو تا الگوریتم معروف و آماده برای اینکار هست مثلا الگوریتم Bresenham یا مثلا Cartesian slope هست). در ضمن استفاده از ماکرو به نظر نمیاد کار درستی باشه بهتره از سابروتین برای اینکار استفاده بشه.