Defining c-curve

(define c-curve
  (lambda (x0 y0 x1 y1 level)
    (if (= level 0)
        (line x0 y0 x1 y1)

        <Compute the coordinates of the new
         point as (xa,ya)>

            ... )))))