#! /usr/bin/env ocaml
open Magick ;;
open Imper ;;


let () =
  let gO = get_canvas 300 300 "#FFF" in
  draw_line gO
      ~x0:150 ~y0:50
      ~x1:150 ~y1:250
      ~line_cap:RoundCap
      ~stroke_width:26.0
      ();
  display gO;

  let g' = clone_image gO in
  blur g' 8.0 ();
  shade g' ~azimuth:230.0 ~elevation:28.0 ();
  display g';

  composite_image g' gO ~compose:Exclusion ();
  display g';

  let bg = get_canvas 300 300 "#DA7" in
  composite_image bg g' ~compose:HardLight ();
  display bg;

  let add = get_canvas 300 300 "#FED" in
  composite_image add gO ~compose:Lighten ();
  display add;

  composite_image bg add ~compose:Multiply ();
  display bg;
;;