Archimedean spiral: Difference between revisions
Content added Content deleted
(Added Algol W) |
m (→{{header|ALGOL W}}: cite coirrect soure of the translation!) |
||
Line 151: | Line 151: | ||
This version doubles the characters horiontally to give a slightly more rounded shape. |
This version doubles the characters horiontally to give a slightly more rounded shape. |
||
<lang algolw>begin % draw an Archimedian spiral % |
<lang algolw>begin % draw an Archimedian spiral % |
||
% Translation of AWK which was a trnslation of |
% Translation of AWK which was a trnslation of Applesoft Basic program % |
||
integer procedure max ( integer x, y ) ; begin if x > y then x else y end; |
integer procedure max ( integer x, y ) ; begin if x > y then x else y end; |
||
integer procedure min ( integer x, y ) ; begin if x < y then x else y end; |
integer procedure min ( integer x, y ) ; begin if x < y then x else y end; |