;; Test program that tries to draw a triangle ;; This is a help program for triangle.s to draw the upper triangle ;; We know that (se triangle.inc) ;; (i) A is at the highest point ;; (ii) B is at the middle point ;; (iii) C is at the lowest point ;; This triangle has 10 posibol cases, see table bellow ;; ---------------------------------------------------- ;; | name left_side right_side | ;; ---------------------------------------------------- ;; | RR right-sloaping-steep right-sloaping-steep| ;; | rR right-sloaping right-sloaping-steep| ;; | lR left-sloaping right-sloaping-steep| ;; | LR left-sloaping-steep right-sloaping-steep| ;; | rr right-sloaping right-sloaping | ;; | lr left-sloaping right-sloaping | ;; | Lr left-sloaping-steep right-sloaping | ;; | ll left-sloaping left-sloaping | ;; | Ll left-sloaping-sleep left-sloaping | ;; | LL left-sloaping-sleep left-sloaping-sleep | ;; ---------------------------------------------------- .scope upper_triangle LDA #$00 ;; Lets for the sake of it say its a lr triangle ;; we need to compute V_l, V_r, dy_2l, dy_2_r, D_l, and D_r .endscope