;;; Procedure needs fixing!  There need to be two anchors and three control
;;; points
(define curve
  (lambda (image x1 y1 cx1 cy1 cx2 cy2 x2 y2)
    (let ((points (float-array x1 y1 BEZIER_ANCHOR
                               cx1 cy1 BEZIER_CONTROL
                               cx2 cy2 BEZIER_CONTROL
                               x2 y2 BEZIER_ANCHOR
                               100 100 BEZIER_CONTROL
                               200 200 BEZIER_CONTROL))
          (img (get-imageid image)))

      (gimp-path-set-points img
                            "CURVE"
                            1
                            18
                            points)
      (gimp-path-stroke-current img)
      (gimp-path-to-selection img "CURVE" 2 0 0 0 0)
      (gimp-path-delete img "CURVE")
      (gimp-selection-none img))))