RosettaCodeData/Task/Bitmap-Midpoint-circle-algorithm/J/bitmap-midpoint-circle-algorithm-2.j
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

3 lines
276 B
Text

myimg=: 0 255 0 makeRGB 25 25 NB. 25 by 25 green image
myimg=: (12 12 12 ; 255 0 0) drawCircles myimg NB. draw red circle with radius 12
viewRGB ((12 12 9 ,: 12 12 6) ; 0 0 255) drawCircles myimg NB. draw two more concentric circles