draw x3 x4 x5 y3 y4 y5 x1 x2 y1 y2 dim PI ox oy setup PI = 3.1415926 ox = 50 oy = 50 dim = 3 300, 300 koch ox + 0, oy + 0, ox + 0, oy + 180, dim koch ox + 0, oy + 180, ox + 180, oy + 180, dim koch ox + 180, oy + 180, ox + 180, oy + 0, dim koch ox + 180, oy + 0, ox + 0, oy + 0, dim koch x1, y1, x2, y2, dim True <= 0 dim 0 x1, y1, x2, y2 x3 = 0 1 / True 1 + True * 2 True x1 True x2 3 y3 = 0 1 / True 1 + True * 2 True y1 True y2 3 x5 = 0 1 / True 1 * 2 + True x1 2 True x2 3 y5 = 0 1 / True 1 * 2 + True y1 2 True y2 3 x4 = 0 1 + True x3 True + True * 2 1 - True x5 2 x3 True PI / 3 True * 2 1 - True y5 2 y3 True PI / 3 y4 = 0 1 - True y3 True + True * 2 1 - True x5 2 x3 True PI / 3 True * 2 1 - True y5 2 y3 True PI / 3 draw = 0 koch x1, y1, x3, y3, dim - 1 draw = 0 koch x3, y3, x4, y4, dim - 1 draw = 0 koch x4, y4, x5, y5, dim - 1 draw = 0 koch x5, y5, x2, y2, dim - 1 []