rem コッホ曲線
new
global io, gx, gy, ga, n
sub forward(d){
	gx = gx + d * sin(3.14159 / 180 * ga)
	gy = gy - d * cos(3.14159 / 180 * ga)
	io.Line(round(gx, 0), round(gy, 0))
}
sub turn(a){
	ga = mod(ga + a, 360)
}
sub koch(n, l) {
	if(n == 0) { forward(l) }
	else {
		koch(n-1, l)
		turn(60)
		koch(n-1, l)
		turn(-120)
		koch(n-1, l)
		turn(60)
		koch(n-1, l)
	}
} 
sub main {
	dim i, n, l
	n = 4			'コッホの次数
	l = 3			'０次の長さ
	gx = 260
	gy = 260
	io.pos(gx, gy)
	ga = 0
	i=3
	while(i){
		koch(n, l)
		turn(-120)
		i=i-1
	}
}

Screen(400, 300)
MainTextBox.Visible = 0

io = Create Image
io.Width = 400
io.Height = 300
main