OpenCores
URL https://opencores.org/ocsvn/rtf68ksys/rtf68ksys/trunk

Subversion Repositories rtf68ksys

[/] [rtf68ksys/] [trunk/] [Software/] [drawline.tbi] - Blame information for rev 4

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 4 robfinch 
50 REM DRAWLINE
2 
100 dx = ABS(xb-xa)
3 
110 dy = ABS(yb-ya)
4 
120 sx = SGN(xb-xa)
5 
130 sy = SGN(yb-ya)
6 
140 er = dx-dy
7 
150 PLOT xa,ya
8 
160 if xa<>xb goto 200
9 
170 if ya=yb goto 300
10 
200 ee = er * 2
11 
210 if ee <= -dy goto 240
12 
220 er = er - dy
13 
230 xa = xa + sx
14 
240 if ee >= dx goto 270
15 
250 er = er + dx
16 
260 ya = ya + sy
17 
270 GOTO 150
18 
300 RETURN
19 
 
20 
 
21 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.