' Kochkurve

DECLARE SUB Kochkurve (x1!, y1!, x2!, y2!, e%)

SCREEN 11   ' Schwarzweiss gengt fr diese Grafik!

Kochkurve 3!, 477!, 638!, 2!, 6

d$ = INPUT$(1)

SCREEN 0

SUB Kochkurve (x1!, y1!, x2!, y2!, e%)
  IF e% = 0 THEN
    ' Nicht mehr tiefer berechnen, sondern zeichnen
    LINE (x1!, y1!)-(x2!, y2!)
  ELSE
    ' Algorithmus durchgehen
    dx! = (x2! - x1!) / 3!
    dy! = (y2! - y1!) / 3!
    px! = x1! + 1.5 * dx! + SQR(3!) * dy! / 2!
    py! = y1! + 1.5 * dy! - SQR(3!) * dx! / 2!
    Kochkurve x1!, y1!, x1! + dx!, y1! + dy!, e% - 1
    Kochkurve x1! + dx!, y1! + dy!, px!, py!, e% - 1
    Kochkurve px!, py!, x2! - dx!, y2! - dy!, e% - 1
    Kochkurve x2! - dx!, y2! - dy!, x2!, y2!, e% - 1
  END IF
END SUB