Anonymous user
Draw a sphere: Difference between revisions
m
→{{header|REXX}}: added a comment, changed a function's option to a more descriptive name. -- ~~~~
Capra Hircus (talk | contribs) m (adding maxima) |
m (→{{header|REXX}}: added a comment, changed a function's option to a more descriptive name. -- ~~~~) |
||
Line 2,520:
call drawSphere 19, 4, 2/10
call drawSphere 10, 2, 4/10
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────drawSphere subroutine───────────────*/
drawSphere: procedure; parse arg r, k, ambient
Line 2,542:
else aLine=aLine' '
end /*j*/
say strip(aLine,'
end /*i*/
return
| |||