Gear Constructor

public Gear(
	float inR = 0,2f,
	float outR = 0,8f,
	float toothR = 1f,
	int toothCount = 10,
	float thickness = 1f
)

Public Sub New ( 
	Optional inR As Single = 0,2F,
	Optional outR As Single = 0,8F,
	Optional toothR As Single = 1F,
	Optional toothCount As Integer = 10,
	Optional thickness As Single = 1F
)

Dim inR As Single
Dim outR As Single
Dim toothR As Single
Dim toothCount As Integer
Dim thickness As Single

Dim instance As New Gear(inR, outR, 
	toothR, toothCount, thickness)