For[i = 2; 
        min = pointList[[1]][[3]]; 
        max = pointList[[1]][[3]], 
        i ≤ Length[pointList], i++, 
min = 
          If[pointList[[i]][[3]] < 
              min, pointList[[i]][[3]], 
            min]; 
max = 
          If[pointList[[i]][[3]] > 
              max, pointList[[i]][[3]], 
            max];
];
For[i = 1; oldPointList = pointList; pointList = {}, 
      i ≤ 
        Length[oldPointList], i++, 
scale = (max - oldPointList[[i]][[3]])/(max - 
              min); 
pointList = 
        Append[pointList, {
oldPointList[[i]][[1]]*scale, oldPointList[[i]][[2]]*
              scale, 
oldPointList[[i]][[3]]
}
]
]
 (* bend data *) 
 (* 
      use cylinder data *) 
zmin = 0;  
zmax  =  1;   
y0  =  2;  
k = 1;

For[i = 1; oldPointList = pointList; 
      pointList = {}, 
i ≤ 
        Length[oldPointList], i++, 
x = oldPointList[[i]][[1]]; 
y = oldPointList[[i]][[2]]; 
z = oldPointList[[i]][[3]]; 
theta = 
        If[z < zmax, z - zmin, zmax - zmin]; 
c = 
        Cos[theta]; 
s = 
        Sin[theta]; 
radius  =  
        y0 - y; 
newy = 
        If[z < zmin, 
          y, 
If[z < zmax, y0 - radius*c, 
            y0 - radius*c + (z - zmax)*s]]; 
newz = 
        If[z < zmin, 
          z, 
If[z < zmax, zmin + radius*s, 
            zmin + radius*s + (z - zmax)*
                c]]; 
pointList = 
        Append[pointList, {x, newy, 
            newz}];
]

Length[pointList]

80
pointList

pointList = oldPointList