Bitmap/Midpoint circle algorithm: Difference between revisions
→{{header|J}}: simplify
(Add J) |
(→{{header|J}}: simplify) |
||
Line 393:
if. f >: 0 do.
y=. <:y
f=. f +
end.
x=. >:x
f =. f +
end.
offsets=. (,|."1) (1 _1 {~ #: i.4) *"1"1 _ pts
Line 411:
myimg=: (12 12 12 ; 255 0 0) drawCircle myimg NB. draw red circle with radius 12
viewRGB ((12 12 9 ,: 12 12 6) ; 0 0 255) drawCircle myimg NB. draw two more concentric circles
</lang>
=={{header|Modula-3}}==
| |||