+
+ // Make a black mid ring
+ aPtA->SetType(Aspect_TOM_RING1);
+ aPtA->SetScale(1.);
+ aPtA->SetColor(Quantity_NOC_BLACK);
+ aGroup->SetPrimitivesAspect(aPtA);
+ aGroup->AddPrimitiveArray (aPntArray);
+
+ // Make an internal ring
+ aPtA->SetType(Aspect_TOM_POINT);
+ aPtA->SetScale(5.);
+ aGroup->SetPrimitivesAspect(aPtA);
+ aGroup->AddPrimitiveArray (aPntArray);