anchor.diff:  ﻿namespace Foom.Renderer
   
   open System
  +
  +type Uniform<'T> =
  +    {
  +        mutable id: int
  +        mutable Value: 'T
  +        mutable IsDirty: bool
  +    }
  +
  +
  +type VertexAttribute<'T> =
  +    {
  +        mutable id: int
  +        mutable Value: 'T []
  +        mutable Count: int
  +        mutable IsDirty: bool
  +    }
   
   (* Concept API *)
   (*
  
positive.code:     }
  
  let quad shader =
      program
          [
              uniform_mat4x4      "uni_projection" shader.Projection
              in_vec3             "in_position" shader.Position
  
negative.code:     }
  
  let doomWall shader =
      programInput
          [
              quad shader.Quad
              uniform_int     "uni_stretchUpAmount" shader.StretchUpAmount
  