Кривые Гильберта
Код
Sub Proc(depth As Integer, X As Single, Y As Single)
If depth > 1 Then Proc depth - 1, Y, X
Line -Step(X, Y)
If depth > 1 Then Proc depth - 1, X, Y
Line -Step(Y, X)
If depth > 1 Then Proc depth - 1, X, Y
Line -Step(-X, -Y)
If depth > 1 Then Proc depth - 1, -Y, -X
End Sub
Screen 15
PSet (100,50)
Proc(5,0,7)
sleep
