+ (aset mycurve 0 1)
+ (while (< i 256) (aset mycurve i i) (set! i (+ i 1)))
+ (gimp-curves-explicit drawable HISTOGRAM-RED 256 mycurve)
+ (gimp-curves-explicit drawable HISTOGRAM-GREEN 256 mycurve)
+ (gimp-curves-explicit drawable HISTOGRAM-BLUE 256 mycurve)
+ (gimp-curves-explicit drawable HISTOGRAM-ALPHA 256 mycurve)