UseStyle = 1 if ("Bc" in CLASS[*].Class) Style$ = "Bc" else if ("DuB" in CLASS[*].Class) Style$ = "DuB" else if ("EpF" in CLASS[*].Class) Style$ = "EpF" else Style$ = "KaB" #styles remaining #polygons not covered above