Attribute VB_Name = "GlobalTypes"

Option Explicit

Public Type GroundProbDist
    Earth As Single
    Grass As Single
    Sand As Single
    LargeRoad As Single
    SmallRoad As Single
    RoadIntersection As Single
End Type

Public Function MakeGroundProbDist(ByVal Earth As Single, ByVal Grass As Single, ByVal Sand As Single, ByVal LargeRoad As Single, ByVal SmallRoad As Single, ByVal RoadIntersection As Single) As GroundProbDist
    MakeGroundProbDist.Earth = Earth
    MakeGroundProbDist.Grass = Grass
    MakeGroundProbDist.Sand = Sand
    MakeGroundProbDist.LargeRoad = LargeRoad
    MakeGroundProbDist.SmallRoad = SmallRoad
    MakeGroundProbDist.RoadIntersection = RoadIntersection
End Function
