Archimedean spiral: Difference between revisions
m
Replace deprecated functions
imported>Chinhouse No edit summary |
m (Replace deprecated functions) |
||
| (5 intermediate revisions by 3 users not shown) | |||
Line 498:
imgsave "spiral-Basic-256.png", "PNG"
</syntaxhighlight>
==={{header|BBC BASIC}}===
{{works with|BBC BASIC for Windows}}
[[File:Archimedean_spiral_bbc_basic.jpeg|300px|right]]
<syntaxhighlight lang="bbcbasic"> A=320
VDU 23, 22, A+10; A+10; 8, 16, 16, 128
ORIGIN @size.x%, @size.y%
GCOL 7
FOR I=-(A - A MOD 100) TO A - A MOD 100 STEP 100
LINE I, -A, I, A : LINE -A, I, A, I
NEXT
MOVE 0, 0
GCOL 1
VDU 23, 23, 3|
FOR I=0 TO 5 * PI STEP .05
R=A / 16 * I
DRAW R * COS(I), R * SIN(I)
NEXT
</syntaxhighlight>
Line 2,633 ⟶ 2,653:
return
</syntaxhighlight>
=={{header|RPL}}==
[[File:Archimedean.png|thumb|right|HP-48G emulator screenshot]]
{{works with|HP|48G}}
« → a b
« -20 20 DUP2 XRNG YRNG
POLAR RAD 'a+b*t' STEQ { t 0 18.9 } INDEP
ERASE DRAW { } PVIEW
{ EQ PPAR } PURGE
» » '<span style="color:blue">ARCHI</span>' STO
1 1 <span style="color:blue">ARCHI</span>
=={{header|Ruby}}==
Line 2,868 ⟶ 2,900:
theta +:= delta;
end while;
ignore(getc(KEYBOARD));
end func;</syntaxhighlight>
Line 2,972 ⟶ 3,004:
{{trans|Sidef}}
{{libheader|DOME}}
<syntaxhighlight lang="
import "dome" for Window
Line 3,000 ⟶ 3,032:
static draw(dt) {}
}</syntaxhighlight>
{{out}}
[[File:Wren-Archimedean_spiral.png]]
=={{header|XPL0}}==
| |||