type Shape =
    | S of (hf, bbox, inside)

type BaseShape =
    | BS of Texture -> Shape

let mkSphere radius tex =
    let hf ray =
        let t = //Solve hit
        let normal = //solve normal
        let material = materialFromTexture tex
    let bBox = //make bBox
    let inside p = //make inside function
    S (hf, bBox, inside)

let mkBaseSphere r =
    let baseShapeFunc tex =
        mkSphere r tex
    BS baseShapeFunc