Bitmap/Midpoint circle algorithm: Difference between revisions
Content added Content deleted
m (BASIC256 moved to the BASIC section.) |
|||
Line 329: | Line 329: | ||
360 FOR I = 0 TO 1: IF F > = 0 THEN Y = Y - 1:DY = DY + 2:F = F + DY |
360 FOR I = 0 TO 1: IF F > = 0 THEN Y = Y - 1:DY = DY + 2:F = F + DY |
||
370 X = X + 1:DX = DX + 2:F = F + DX + 1: HLIN CX - X,CX + X AT CY + Y: HLIN CX - X,CX + X AT CY - Y: HLIN CX - Y,CX + Y AT CY + X: HLIN CX - Y,CX + Y AT CY - X:I = X > = Y: NEXT I: RETURN</syntaxhighlight> |
370 X = X + 1:DX = DX + 2:F = F + DX + 1: HLIN CX - X,CX + X AT CY + Y: HLIN CX - X,CX + X AT CY - Y: HLIN CX - Y,CX + Y AT CY + X: HLIN CX - Y,CX + Y AT CY - X:I = X > = Y: NEXT I: RETURN</syntaxhighlight> |
||
=={{header|ATS}}== |
|||
See [[Bresenham_tasks_in_ATS]]. |
|||
=={{header|bash}}== |
=={{header|bash}}== |
||
<syntaxhighlight lang="bash">#! /bin/bash |
<syntaxhighlight lang="bash">#! /bin/bash |
||
Line 409: | Line 412: | ||
----##---------##---- |
----##---------##---- |
||
------#########------</pre> |
------#########------</pre> |
||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||
==={{header|BASIC256}}=== |
==={{header|BASIC256}}=== |