;;; -*- Mode: asm; indent-tabs-mode: t; tab-width: 8 -*-
.scope line_test_extensive
;; Program for testing of line-drawing. It draws a bunch of lines
;;Start line-timer-here
        .include "line.inc"
        .include "../memory/mem.inc"
        Y_pos_ = $0D
        X_pos_ = $0E
        Y_end_ = $0F
        X_end_ = $0C

full_angle_test:
        LDA #$d2
        STA X_pos_
        LDA #$62
        STA Y_pos_
        LDA #$ff
        STA X_end_
        LDA #$0
        STA Y_end_

;; Full angle test
@loop:
        LDA Y_pos_
        STA Y_pos
        LDA X_pos_
        STA X_pos
        LDA X_end_
        STA X_end
        LDA Y_end_
        STA Y_end

        jsr line
        INC Y_end_
        LDA Y_end_
        CMP #$ff
        bne @loop

jsr clear_screen

full_angle_test_pos_end_swapped:
LDA #$d2
STA X_end_
LDA #$62
STA Y_end_
LDA #$ff
STA X_pos_
LDA #$0
STA Y_pos_

;; Full angle test
@loop:
LDA Y_end_
STA Y_end
LDA X_end_
STA X_end
LDA X_pos_
STA X_pos
LDA Y_pos_
STA Y_pos

jsr line
INC Y_pos_
LDA Y_pos_
CMP #$ff
bne @loop

jsr clear_screen

long_line_test_a:
        LDA #$01
        STA X_pos_
        LDA #$60
        STA Y_pos_
        LDA #$ff
        STA X_end_
        LDA #$00
        STA Y_end_
@loop:
        LDA Y_pos_
        STA Y_pos
        LDA X_pos_
        STA X_pos
        LDA X_end_
        STA X_end
        LDA Y_end_
        STA Y_end

        jsr line
        INC Y_end_
        LDA Y_end_
        CMP #$ff
        BNE @loop

        jsr clear_screen

long_line_test_b:
        LDA #$01
        STA X_pos_
        LDA #$00
        STA Y_pos_
        LDA #$ff
        STA X_end_
        LDA #$60
        STA Y_end_
@loop:
        LDA Y_pos_
        STA Y_pos
        LDA X_pos_
        STA X_pos
        LDA X_end_
        STA X_end
        LDA Y_end_
        STA Y_end
        jsr line
        INC Y_pos_
        LDA Y_pos_
        CMP #$ff
        BNE @loop

jsr clear_screen

long_line_test_b_pos_end_swapped:
        LDA #$01
        STA X_end_
        LDA #$00
        STA Y_end_
        LDA #$ff
        STA X_pos_
        LDA #$60
        STA Y_pos_
@loop:
        LDA Y_end_
        STA Y_end
        LDA X_end_
        STA X_end
        LDA X_pos_
        STA X_pos
        LDA Y_pos_
        STA Y_pos
        jsr line
        INC Y_end_
        LDA Y_end_
        CMP #$ff
        BNE @loop

.endscope