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

slight gfx optimizations

Browse Source
This commit is contained in:
Irmen de Jong 2020-04-08 03:38:22 +02:00
parent e4fe1d2b8d
commit df3371b0f0
3 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
examples/c64graphics.p8
View File

@ -141,21 +141,26 @@ graphics {
byte decisionOver2 = 1-xx byte decisionOver2 = 1-xx
while xx>=yy { while xx>=yy {
ubyte cy_plus_yy = cy + yy
ubyte cy_min_yy = cy - yy
ubyte cy_plus_xx = cy + xx
ubyte cy_min_xx = cy - xx
for plotx in cx to cx+xx { for plotx in cx to cx+xx {
plot(cy + yy) plot(cy_plus_yy)
plot(cy - yy) plot(cy_min_yy)
} }
for plotx in cx-xx to cx-1 { for plotx in cx-xx to cx-1 {
plot(cy + yy) plot(cy_plus_yy)
plot(cy - yy) plot(cy_min_yy)
} }
for plotx in cx to cx+yy { for plotx in cx to cx+yy {
plot(cy + xx) plot(cy_plus_xx)
plot(cy - xx) plot(cy_min_xx)
} }
for plotx in cx-yy to cx { for plotx in cx-yy to cx {
plot(cy + xx) plot(cy_plus_xx)
plot(cy - xx) plot(cy_min_xx)
} }
yy++ yy++
if decisionOver2<=0 if decisionOver2<=0

1
examples/line-circle-gfx.p8
View File

@ -1,6 +1,5 @@
%import c64lib %import c64lib
%import c64graphics %import c64graphics
%zeropage basicsafe
main { main {

1
examples/turtle-gfx.p8
View File

@ -2,7 +2,6 @@
%import c64flt %import c64flt
%import c64graphics %import c64graphics
%option enable_floats %option enable_floats
%zeropage basicsafe
main { main {