aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-08-11 18:05:26 -07:00
parent 4d5544505c
commit 4924dd0264
3073 changed files with 55820 additions and 4408 deletions
Download patch file Download diff file Expand all files Collapse all files

27
Task/Bitmap-Midpoint-circle-algorithm/EasyLang/bitmap-midpoint-circle-algorithm.easy Normal file
View file

@ -0,0 +1,27 @@
proc pix x y .
grect x / 5 y / 5 0.25 0.25
.
proc circ x0 y0 r .
t1 = r div 16
x = r
while x >= y
pix x0 - x, y0 + y
pix x0 - x, y0 - y
pix x0 - y, y0 + x
pix x0 - y, y0 - x
pix x0 + x, y0 + y
pix x0 + x, y0 - y
pix x0 + y, y0 + x
pix x0 + y, y0 - x
y += 1
t1 += y
t2 = t1 - x
if t2 >= 0
t1 = t2
x -= 1
.
.
.
for r = 20 step 20 to 240
circ 250 250 r
.