Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-11-03 13:07:54 +00:00
Code Issues Projects Releases Wiki Activity

fix datatype warning

Browse Source
This commit is contained in:
Irmen de Jong 2020-03-15 01:14:44 +01:00
parent 9d7eb3be5a
commit 6f000d0d26
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
examples/lines-circles.p8
View File

@ -14,10 +14,10 @@ main {
for r in 3 to 12 step 3 { for r in 3 to 12 step 3 {
circle(r) circle(r)
} }
line(5,3, 30,3) ;line(5,3, 30,3)
line(5,3, 5, 24) ;line(5,3, 5, 24)
line(30,3,30,24) ;line(30,3,30,24)
line(5,24,30,24) ;line(5,24,30,24)
line(1, 10, 38, 24) line(1, 10, 38, 24)
line(1, 20, 38, 2) line(1, 20, 38, 2)
@ -40,10 +40,10 @@ main {
c64scr.setcc(x, y, 42, 5) c64scr.setcc(x, y, 42, 5)
if x==x2 if x==x2
return return
x += ix x += ix as ubyte
d += dy2 d += dy2
if d > dx { if d > dx {
y += iy y += iy as ubyte
d -= dx2 d -= dx2
} }
} }
@ -52,10 +52,10 @@ main {
c64scr.setcc(x, y, 42, 5) c64scr.setcc(x, y, 42, 5)
if y == y2 if y == y2
return return
y += iy y += iy as ubyte
d += dx2 d += dx2
if d > dy { if d > dy {
x += ix x += ix as ubyte
d -= dy2 d -= dy2
} }
} }