Bitmap/Midpoint circle algorithm: Difference between revisions
→{{header|bash}}
m (BASIC256 moved to the BASIC section.) |
|||
Line 329:
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>
=={{header|ATS}}==
See [[Bresenham_tasks_in_ATS]].
=={{header|bash}}==
<syntaxhighlight lang="bash">#! /bin/bash
Line 409 ⟶ 412:
----##---------##----
------#########------</pre>
=={{header|BASIC}}==
==={{header|BASIC256}}===
| |||