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

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

84
Task/Bitmap-Midpoint-circle-algorithm/REXX/bitmap-midpoint-circle-algorithm.rexx
View file

@ -1,49 +1,43 @@
/*REXX pgm plots 3 circles using midpoint/Bresenham's circle algorithm. */
EoE = 200 /*EOE = End Of Earth, er, plot. */
image. = 'fa'x /*fill the array with middle-dots*/
pChar = '*'
do j=-EoE to +EoE /*draw grid from lowest──>highest*/
image.j.0 = '─' /*draw the horizontal axis. */
image.0.j = '│' /* " " verical " */
end /*j*/
image.0.0='┼' /*"draw" the axis origin. */
minX=0; maxX=0
minY=0; maxY=0
call draw_circle 0, 0, 8, '#'
call draw_circle 0, 0, 11, '$'
call draw_circle 0, 0, 19, '@'
border=2
minX=minX-border*2; maxX=maxX+border*2
minY=minY-border ; maxY=maxY+border
do y=maxY by -1 to minY; aRow=
do x=minX to maxX
aRow=aRow || image.x.y
end /*x*/
say aRow
end /*y*/
@. = '·' /*fill the array with middle-dots*/
minX=0; maxX=0; minY=0; maxY=0 /*initialize minimums & maximums.*/
call drawCircle 0, 0, 8, '#' /*plot 1st circle with pound char*/
call drawCircle 0, 0, 11, '$' /* " 2nd " " dollar " */
call drawCircle 0, 0, 19, '@' /* " 3rd " " commer. at*/
border=2 /*BORDER: shows N extra grid pts*/
minX=minX-border*2; maxX=maxX+border*2 /*adjust min&max X to show border*/
minY=minY-border ; maxY=maxY+border /* " " " Y " " " */
if @.0.0==@. then @.0.0='┼' /*maybe define plot's axis origin*/
/* [↓] define horizontal grid. */
do gx=minX to maxX; if @.gx.0==@. then @.gx.0='─'; end /*gx*/
do gy=minY to maxY; if @.0.gy==@. then @.0.gy='│'; end /*gy*/
/* [↑] define the vertical grid.*/
do y=maxY by -1 to minY; aRow= /* [↓] draw grid from top to bot.*/
do x=minX to maxX /* [↓] " " " left──►right*/
aRow=aRow || @.x.y /*build a grid row, char by char.*/
end /*x*/ /* [↑] a grid row should be done*/
say aRow /*display signal row of the grid.*/
end /*y*/
exit /*stick a fork in it, we're done.*/
/*───────────────────────────────────DRAW_CIRCLE subroutine─────────────*/
draw_circle: procedure expose image. minX maxX minY maxY
parse arg xx, yy, r, point; f=1-r; ddfx=1; ddfy=-2*r; y=r
_=yy+r; image.xx._='*'
_=xx+r; image._.yy='*'
_=yy-r; image.xx._='*'
_=xx-r; image._.yy='*'
do x=0 while x<y
if f>=0 then do; y=y-1; ddfy=ddfy+2; f=f+ddfy; end
ddfx=ddfx+2; f=f+ddfx
x_=xx+x; y_=yy+y; call plotXY x_, y_, point
x_=xx+y; y_=yy+x; call plotXY x_, y_, point
x_=xx+y; y_=yy-x; call plotXY x_, y_, point
x_=xx+x; y_=yy-y; call plotXY x_, y_, point
x_=xx-x; y_=yy-y; call plotXY x_, y_, point
x_=xx-y; y_=yy-x; call plotXY x_, y_, point
x_=xx-y; y_=yy+x; call plotXY x_, y_, point
x_=xx-x; y_=yy+y; call plotXY x_, y_, point
end /*x*/
/*───────────────────────────────────DRAWCIRCLE subroutine──────────────*/
drawCircle: procedure expose @. minX maxX minY maxY
parse arg xx,yy,r,plotChar; f=1-r; fx=1; fy=-2*r; y=r
do x=0 while x<y /*════════════════════════════════════════*/
if f>=0 then do; y=y-1; fy=fy+2; f=f+fy; end
fx=fx+2; f=f+fx
call plotPoint xx+x, yy+y, plotChar
call plotPoint xx+y, yy+x, plotChar
call plotPoint xx+y, yy-x, plotChar
call plotPoint xx+x, yy-y, plotChar
call plotPoint xx-y, yy+x, plotChar
call plotPoint xx-x, yy+y, plotChar
call plotPoint xx-x, yy-y, plotChar
call plotPoint xx-y, yy-x, plotChar
end /*x*/ /* [↑] place plot points ══► plot*/
return
/*──────────────────────────────────PLOTXY subroutine───────────────────*/
plotXY: procedure expose image. minX maxX minY maxY; parse arg xx, yy, p
image.xx.yy=p; minX=min(minX,xx); maxX=max(maxX,xx)
minY=min(minY,yy); maxY=max(maxY,yy)
/*──────────────────────────────────PLOTPOINT subroutine────────────────*/
plotPoint: procedure expose @. minX maxX minY maxY
parse arg xx,yy,@.xx.yy; minX=min(minX,xx); maxX=max(maxX,xx)
minY=min(minY,yy); maxY=max(maxY,yy)
return