Changeset 490
- Timestamp:
- 07/30/07 17:13:32 (1 year ago)
- Files:
-
- ocaml-remix/trunk/transparency.ml (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
ocaml-remix/trunk/transparency.ml
r488 r490 10 10 let raw_ostart = _to_raw ostart in 11 11 let raw_olength = _to_raw olength in 12 Printf.printf "ramp %d-%d (render %d-%d)\n" raw_start raw_length raw_ostart13 raw_olength;14 12 let _fill pos = start_val +. 15 13 float_of_int (pos + raw_ostart - raw_start) /.
