(* twist data  -  
        used with cylinder Wire Definitions *) 
twist =  .3;
For[i = 1; oldPointList = pointList; pointList = {}, 
      i ≤ 
        Length[oldPointList], i++, 
pointList = 
        Append[pointList, 
{
oldPointList[[i]][[1]]*
                Cos[twist*oldPointList[[i]][[3]]]  - oldPointList[[i]][[2]]*
                Sin[twist*oldPointList[[i]][[3]]], 
oldPointList[[i]][[1]]*
                Sin[twist*oldPointList[[i]][[3]]]  + oldPointList[[i]][[2]]*
                Cos[twist*oldPointList[[i]][[3]]], 
oldPointList[[i]][[3]]
}
]
]