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

optimized disc()

Browse Source
This commit is contained in:
Irmen de Jong 2020-12-29 23:58:11 +01:00
parent 64c89f1c8f
commit c3b82f2cfa
1 changed files with 4 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/res/prog8lib/cx16/graphics.p8
View File

@ -114,29 +114,10 @@ graphics {
word decisionOver2 = (1 as word)-radius
while radius>=yy {
ubyte ycenter_plus_yy = ycenter + yy
ubyte ycenter_min_yy = ycenter - yy
ubyte ycenter_plus_radius = ycenter + radius
ubyte ycenter_min_radius = ycenter - radius
uword @zp plotx
; cx16.GRAPH_draw_line(xcenter-radius, )
cx16.FB_cursor_position(xcenter-radius, ycenter_plus_yy)
repeat radius*2+1
cx16.FB_set_pixel(1)
cx16.FB_cursor_position(xcenter-radius, ycenter_min_yy)
repeat radius*2+1
cx16.FB_set_pixel(1)
cx16.FB_cursor_position(xcenter-yy, ycenter_plus_radius)
repeat yy*2+1
cx16.FB_set_pixel(1)
cx16.FB_cursor_position(xcenter-yy, ycenter_min_radius)
repeat yy*2+1
cx16.FB_set_pixel(1)
horizontal_line(xcenter-radius, ycenter+yy, radius*2+1)
horizontal_line(xcenter-radius, ycenter-yy, radius*2+1)
horizontal_line(xcenter-yy, ycenter+radius, yy*2+1)
horizontal_line(xcenter-yy, ycenter-radius, yy*2+1)
yy++
if decisionOver2<=0
decisionOver2 += (yy as word)*2+1