C曲線 - abwiki @ ウィキ (ActiveBasic非公式wiki)

/***********************************************************
ccurve.c -- C曲線
***********************************************************/
#N88BASIC

Dim xpen, ypen, zoom, cx, cy /* ペンの現在位置 */
zoom =50
cx = 320
cy = 200
Sub move(x, y) /* ペンアップで移動 */
xpen = x *zoom
ypen = y *zoom
End Sub

Sub move_rel(dx, dy) /* 同上 (相対座標) */
xpen += dx *zoom
ypen += dy *zoom
End Sub

Sub draw(x, y) /* ペンダウンで移動 */
Line(cx+xpen, cy-ypen)-(cx+x*zoom,cy- y*zoom)
xpen = x *zoom
ypen = y *zoom
End Sub

Sub draw_rel(dx, dy) /* 同上 (相対座標) */
Line(cx+xpen, cy-ypen)-(cx+(xpen + dx*zoom), cy-(ypen + dy*zoom))
xpen += dx *zoom
ypen += dy *zoom
End Sub


Sub c(i As Long, dx, dy)
If i = 0 Then
draw_rel(dx, dy)
Else
c(i - 1, (dx + dy) / 2, (dy - dx) / 2)
c(i - 1, (dx - dy) / 2, (dy + dx) / 2)
End If
End Sub


Sub main()
Dim order As Long

Input "位数 = ";order
move(1, 2)
c(order, 2, 0)
End Sub

main()