gistfile1.nim

type
  Array32Part{.unchecked.} = array[0..0, float32]
  Buffer32 = ref object
    samples: int
    bytes: int
    data: ptr Array32Part

proc AllocBuffer32(samples : int): Buffer32 =
  let bytes = samples * (sizeof(float32))
  Buffer32(samples: samples, bytes : bytes, data: cast[ptr Array32Part](alloc0(bytes)))

proc DeallocBuffer32(b : Buffer32) =
  dealloc(cast[pointer](b.data))

var buffer:Buffer32