anchor.diff:      }
   
   let doomWall shader =
  -    program
  +    programInput
           [
               quad shader.Quad
               uniform_int     "uni_stretchUpAmount" shader.StretchUpAmount
  
positive.code: ﻿namespace Foom.Renderer
  
  open System
  
  (* Concept API *)
  (*
  
negative.code:     }
  
  let quad shader =
      programInput
          [
              uniform_mat4x4      "uni_projection" shader.Projection
              in_vec3             "in_position" shader.Position
  