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

SCM Repository

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

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

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

revision 851, Tue Apr 19 15:52:07 2011 UTC revision 852, Tue Apr 19 16:33:09 2011 UTC
# Line 37  Line 37 
37    
38      val toString : info -> string      val toString : info -> string
39      val dim : info -> int               (* dimension of space *)      val dim : info -> int               (* dimension of space *)
40        val sizes : info -> int list        (* size of each dimension *)
41      val voxelShape : info -> int list   (* shape of voxels; empty list for scalars *)      val voxelShape : info -> int list   (* shape of voxels; empty list for scalars *)
42      val voxelSzB : info -> int          (* size in bytes of a voxel *)      val voxelSzB : info -> int          (* size in bytes of a voxel *)
43      val stride : info -> int            (* for non-scalar images, this returns the *)      val stride : info -> int            (* for non-scalar images, this returns the *)
# Line 140  Line 141 
141    
142      fun dim (ImgInfo{dim, ...}) = dim      fun dim (ImgInfo{dim, ...}) = dim
143    
144        fun sizes (ImgInfo{sizes, ...}) = sizes
145    
146      fun voxelShape (ImgInfo{ty=(dd, _), ...}) = dd      fun voxelShape (ImgInfo{ty=(dd, _), ...}) = dd
147    
148      fun voxelSzB (ImgInfo{ty=(dd, rTy), ...}) = let      fun voxelSzB (ImgInfo{ty=(dd, rTy), ...}) = let

Legend:
Removed from v.851  
changed lines
  Added in v.852

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