| #!/usr/bin/env ocamlscript | |
| Ocaml.ocamlflags := ["-g"; "-thread"]; | |
| Ocaml.use_camlp4 := false; | |
| Ocaml.packs := ["batteries"; "sedlex"] | |
| -- | |
| open Batteries | |
| (* Sedlex lexer definitions *) | |
| type token = | |
| | Number of int |
This simple script will take a picture of a whiteboard and use parts of the ImageMagick library with sane defaults to clean it up tremendously.
The script is here:
#!/bin/bash
convert "$1" -morphology Convolve DoG:15,100,0 -negate -normalize -blur 0x1 -channel RBG -level 60%,91%,0.1 "$2"
| (* Database provides key-generation and table-instantiation, | |
| * so that a key can be associated to various properties. | |
| *) | |
| (* This is for a fully-controlled specification... | |
| * | |
| * module Db = Database.Make (Database.IntKey) | |
| * module Prop = Db.MultiInherit | |
| * module PropHash = Prop.Table(Database.Hash) | |
| * module Size = (val PropHash.create ~default:0 () : Db.Sig with type t = int) |