Added clipping for lines.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4452 b7a2c559-68d2-44c3-8de9-860c34a00d81
2009-11-06 15:26:46 +00:00
parent 24e68f5df3
commit e12bd13e16
6 changed files with 590 additions and 508 deletions
--- a/libsrc/tgi/tgi_lineto.s
+++ b/libsrc/tgi/tgi_lineto.s
@@ -12,9 +12,15 @@

 .proc   _tgi_lineto

-        jsr     tgi_curtoxy     ; Copy curx/cury into ptr1/ptr2
-        jsr     tgi_linepop     ; Pop x2/y2 into ptr3/ptr4 and curx/cury
-        jmp     tgi_line        ; Call the driver
+        pha
+        ldy     #3              ; Copy curx/cury to tgi_clip_x1/tgi_clip_y1
+@L1:    lda     _tgi_curx,y
+        sta     tgi_clip_x1,y
+        dey
+        bpl     @L1  
+        pla
+        jsr     tgi_linepop     ; Pop x2/y2
+        jmp     tgi_clippedline ; Call the line clipper

 .endproc