[Back to GRAPHICS SWAG index] [Back to Main SWAG index] [Original]

    {
     SS> I'm looking for a qwick way to draw a line... All I need are
     SS> horizontal and vertical lines, so would it be easiest to use a
     SS> series of PutPixels?

    Unfortunately you don't specify which mode you're working in, so
    I assume it is 320x200 (which tends to be the most popular mode here):
    }

    Procedure DHL(x, y, Length : Word; Color : Byte); Assembler;
      Asm
        mov   ax,0a000h
        mov   es,ax
        mov   ax,y
        shl   ax,6
        mov   di,ax
        shl   ax,2
        add   di,ax
        add   di,x
        mov   cx,Length
        mov   al,Color
        cld
        rep   stosb { I bet I'll get loads of replies which uses stosw instead :) }
      End;

    Procedure DVL(x, y, Length : Word; Color : Byte); Assembler;
      Asm
        mov   ax,0a000h
        mov   es,ax
        mov   ax,y
        shl   ax,6
        mov   di,ax
        shl   ax,2
        add   di,ax
        add   di,x
        mov   al,Color
        mov   cx,Length
    @DVL1:
        mov   es:[di],al
        add   di,320
        dec   cx
        jnz   @DVL1
      End;

[Back to GRAPHICS SWAG index] [Back to Main SWAG index] [Original]