(***********************************************************************) (* *) (* JoCamls'R Us - a not so simple ray tracer in JoCaml *) (* *) (* Luc Maranget, projet Moscova, INRIA Rocquencourt *) (* *) (* Copyright 2007 Institut National de Recherche en Informatique et *) (* en Automatique. This file is distributed under the terms of the *) (* GNU Public License version 2, http://www.gnu.org/licenses/gpl.txt *) (* *) (* Important: based upon the ray tracer of the Camls'R'Us team *) (* written at the occasion of the ICFP programming contest 2000 *) (* Copyright 2000 Institut National de Recherche en Informatique et *) (* en Automatique. *) (* *) (* *) (***********************************************************************) type image_id = string type line = string type t_arg = image_id * int type t_res = int * line type ('a,'b) worker = { w_id : ConfigJoin.id ; w_render : ('a -> 'b) } type register = ((t_arg,t_res) worker) Join.chan type t_arg2 = image_id * (int * int) type t_res2 = (int * int) * line array type register2 = ((t_arg2,t_res2) worker) Join.chan