Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/fields/image-info.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/fields/image-info.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1788, Tue Apr 3 13:25:57 2012 UTC revision 1789, Tue Apr 3 14:19:50 2012 UTC
# Line 26  Line 26 
26          dim : int,                      (* dimension of space *)          dim : int,                      (* dimension of space *)
27          ty : voxel_ty,                  (* types of image samples *)          ty : voxel_ty,                  (* types of image samples *)
28          origin : FloatLit.float list,   (* center of first sample *)          origin : FloatLit.float list,   (* center of first sample *)
29          kinds : axis_kind list,         (* the kinds of each axis;          kinds : NrrdEnums.axis_kind list, (* the kinds of each axis;
30                                           * we follow the Nrrd convention of                                           * we follow the Nrrd convention of
31                                           * listing the axes in fast to slow                                           * listing the axes in fast to slow
32                                           * order.                                           * order.
# Line 69  Line 69 
69          dim : int,                      (* dimension of space *)          dim : int,                      (* dimension of space *)
70          ty : voxel_ty,                  (* types of image samples *)          ty : voxel_ty,                  (* types of image samples *)
71          origin : FloatLit.float list,   (* center of first sample *)          origin : FloatLit.float list,   (* center of first sample *)
72          kinds : axis_kind list,         (* the kinds of each axis;          kinds : NrrdEnums.axis_kind list, (* the kinds of each axis;
73                                           * we follow the Nrrd convention of                                           * we follow the Nrrd convention of
74                                           * listing the axes in fast to slow                                           * listing the axes in fast to slow
75                                           * order.                                           * order.
# Line 105  Line 105 
105                  end                  end
106              | doValue ("space directions", v) = ()              | doValue ("space directions", v) = ()
107              | doValue ("kinds", v) = let              | doValue ("kinds", v) = let
108                  fun s2kind "space" = SPACE                  fun s2kind s = (case NrrdEnums.kindFromString s
109                    | s2kind "scalar" = SCALAR                         of SOME k => k
110                    | s2kind "2-vector" = VEC 2                          | NONE => raise Fail(concat["axis kind \"", s, "\" not supported"])
111                    | s2kind "3-vector" = VEC 3                        (* end case *))
                   | s2kind "4-vector" = VEC 4  
                   | s2kind "2D-matrix" = MAT 2  
                   | s2kind "3D-matrix" = MAT 3  
                   | s2kind k = raise Fail(concat["axis kind \"", k, "\" not supported"])  
112                  in                  in
113                    set (kinds, List.map s2kind (fields v))                    set (kinds, List.map s2kind (fields v))
114                  end                  end

Legend:
Removed from v.1788  
changed lines
  Added in v.1789

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0