Archimedean spiral: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 236: | Line 236: | ||
=={{header|Amazing Hopper}}== |
=={{header|Amazing Hopper}}== |
||
{{Trans|AmigaBASIC}} |
{{Trans|AmigaBASIC}} |
||
<syntaxhighlight lang=" |
<syntaxhighlight lang="Algol68"> |
||
#include <jambo.h> |
#include <jambo.h> |
||
Line 267: | Line 267: | ||
// dibuja línea: |
// dibuja línea: |
||
i = 0 |
i = 0 |
||
Loop if ( Less equal (i, paso) |
Loop if ( Less equal (i, paso) ) |
||
Locate( y1, x1 ), Printnl( " " ) |
Locate( y1, x1 ), Printnl( " " ) |
||
Add ( x1, dx), Add( y1, dy ), Move to ( x1, y1 ) |
Add ( x1, dx), Add( y1, dy ), Move to ( x1, y1 ) |