Hilbert curve: Difference between revisions
Content added Content deleted
(Hilbert curve en FreeBASIC) |
|||
| Line 180: | Line 180: | ||
{{output}} |
{{output}} |
||
<pre>Same as Kotlin entry.</pre> |
<pre>Same as Kotlin entry.</pre> |
||
=={{header|FreeBASIC}}== |
|||
{{trans|Yabasic}} |
|||
<lang freebasic> |
|||
Dim Shared As Integer ancho = 64 |
|||
Sub Hilbert(x As Integer, y As Integer, lg As Integer, i1 As Integer, i2 As Integer) |
|||
If lg = 1 Then |
|||
Line - ((ancho-x) * 10, (ancho-y) * 10) |
|||
Return |
|||
End If |
|||
lg = lg / 2 |
|||
Hilbert(x+i1*lg, y+i1*lg, lg, i1, 1-i2) |
|||
Hilbert(x+i2*lg, y+(1-i2)*lg, lg, i1, i2) |
|||
Hilbert(x+(1-i1)*lg, y+(1-i1)*lg, lg, i1, i2) |
|||
Hilbert(x+(1-i2)*lg, y+i2*lg, lg, 1-i1, i2) |
|||
End Sub |
|||
Screenres 655, 655 |
|||
Hilbert(0, 0, ancho, 0, 0) |
|||
End |
|||
</lang> |
|||
=={{header|Go}}== |
=={{header|Go}}== |
||