proc VsInitLabelFieldCT { labelfield } {

    $labelfield materials newBundle TrabecularBone
    $labelfield materials TrabecularBone setValue Color 0 1 0

    $labelfield materials newBundle BoneMarrow
    $labelfield materials BoneMarrow setValue Color 0 1 1

    $labelfield materials newBundle CorticalBone
    $labelfield materials CorticalBone setValue Color 0.6 0.2 0.2
}

