Archimedean spiral: Difference between revisions
m
→{{header|ALGOL W}}: cite coirrect soure of the translation!
(Added Algol W) |
m (→{{header|ALGOL W}}: cite coirrect soure of the translation!) |
||
Line 151:
This version doubles the characters horiontally to give a slightly more rounded shape.
<lang algolw>begin % draw an Archimedian spiral %
% Translation of AWK which was a trnslation of
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;
| |||