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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/high-to-mid/high-to-mid.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/high-to-mid/high-to-mid.sml

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

revision 449, Thu Oct 21 15:46:51 2010 UTC revision 450, Thu Oct 21 15:58:26 2010 UTC
# Line 51  Line 51 
51            fun expand (FieldDef.CONV(_, img, _)) = let            fun expand (FieldDef.CONV(_, img, _)) = let
52                  val imgPos = DstIL.Var.new ("x", DstTy.VecTy(ImageInfo.dim img))                  val imgPos = DstIL.Var.new ("x", DstTy.VecTy(ImageInfo.dim img))
53                  in [                  in [
54                    (imgPos, DstIL.OP(DstOp.Transform img, [pos])),                    (imgPos, DstIL.OP(DstOp.PosToImgSpace img, [pos])),
55                    (result, DstIL.OP(DstOp.Inside img, [imgPos]))                    (result, DstIL.OP(DstOp.Inside img, [imgPos]))
56                  ] end                  ] end
57              | expand (FieldDef.NEG fld) = expand fld              | expand (FieldDef.NEG fld) = expand fld

Legend:
Removed from v.449  
changed lines
  Added in v.450

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