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]]
}
]
]