anchor.diff:                  "indexBuffer", IndexBuffer
                   "numberPrimitives", T<int>
                   "numberVertices", T<int>
  -                "primitiveType", Primitive_PrimitiveType
                   "startIndex", T<int>
                   "streamBank", StreamBank
               ]
           |=> Primitive
           |=> Inherits Element
           |=> Nested [Primitive_PrimitiveTypeClass]
  +        |+> Protocol
  +            [
  +                "primitiveType" =% Primitive_PrimitiveType
  +                |> WithSourceName "primitiveType"
  +            ]
   
       let ProjectionParamMatrix4Class =
           Class "ProjectionParamMatrix4"
  
positive.code:                 "boundingBox", BoundingBox
                  "cull", T<bool>
                  "owner", Shape
                  "priority", T<int>
                  "zSortPoint", Float3
              ]
  
negative.code:             ]
  
      let Primitive_PrimitiveTypeClass =
          ConstantsType "PrimitiveType" Primitive_PrimitiveType [
              "POINTLIST"
              "LINELIST"
              "LINESTRIP"
  