X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fwww%2Flambda_delta%2Fbin%2Fa.ml;fp=helm%2Fwww%2Flambda_delta%2Fbin%2Fa.ml;h=0000000000000000000000000000000000000000;hb=207a37632296335aa8db7b22482f91634f74e4e1;hp=4f310c873a46d507c74d553680088594629d553a;hpb=691c330235597faab8ad7be34242bc545d4c4023;p=helm.git

diff --git a/helm/www/lambda_delta/bin/a.ml b/helm/www/lambda_delta/bin/a.ml
deleted file mode 100644
index 4f310c873..000000000
--- a/helm/www/lambda_delta/bin/a.ml
+++ /dev/null
@@ -1,17 +0,0 @@
-let f = "0123456789abcdef"
-
-let r, g, b = 1.0, 0.5, 0.0
-
-let h = 1. /. 2.
-
-let mk_h x = x +. (1. -. x) *. h
-
-let rr, gg, bb = mk_h r, mk_h g, mk_h b 
-
-let mk_f x = 
-   let x = int_of_float x in
-   print_char f.[x / 16]; print_char f.[x mod 16]  
-
-let _ = 
-   mk_f (rr *. 255.); mk_f (gg *. 255.); mk_f (bb *. 255.);
-   print_newline ()