CourbeEvolute isa CATPart
{
Courbe isa Part
{
Radius = 30mm, Input : Length "Radius of the gear";
NumberSteps = 20, Input : Real "Number of steps";
EvolutePoints isa Open_body
{
}
Evolute isa Open_body
{
}