anchor.diff:  type AssetManager (assetLoader: IAssetLoader) =
   
       member this.LoadTexture (texture: Texture) =
  -        match texture.Kind with
  -        | Single assetPath ->
  +        if not texture.Buffer.HasData then
   
  -            if not texture.Buffer.HasData then
  -                texture.Buffer.Set (assetLoader.LoadTextureFile assetPath)
  +            match texture.Kind with
  +            | Single assetPath ->
   
  -        | _ -> ()+                let textureFile = assetLoader.LoadTextureFile assetPath
  +                texture.Buffer.Set (textureFile)
  +                texture.Dimensions.Add (Vector2 (single textureFile.Width, single textureFile.Height))
  +
  +            | _ -> ()
positive.code: ﻿namespace Foom.Game.Assets
  
  open Foom.Ecs
  open Foom.Renderer
  
negative.code: [<Sealed>]
  type Texture (kind: TextureKind) = 
  
      let frameCount =
          match kind with
          | Single _ -> 1
          | Multi xs -> xs.Length
  
      member val Kind = kind
  
      member val Buffer = Texture2DBuffer ()
  
      member val FrameCount = frameCount
  
      member val Dimensions = ResizeArray<Vector2> ()
  
      member this.GetFrameDimension frame =
          if frame >= this.Dimensions.Count || frame < 0 then
              Vector2 (0.f, 0.f)
          else
              this.Dimensions.[frame]
  
      member this.AssetPath =
          match kind with
  