(* define wire data of cylinder *) 
 (* 
      tall in z,  
      center around x = y = 0 *) 
 (* 
      R  -  radius of cylinder *) 
 (* 
      H  -   height of cylinder *) 
 (* 
      use NumAround points around cylinder *) 
 (* 
      use NumDown points down cylinder *) 

R = 1;
H = 6;
NumDown = 20;
NumAround = 4;
For [i = 1; pointList = {}, 
      i ≤ 
        NumDown, i++, 
z  =  -(H/
                2)  +  ((i - 1)/(NumDown - 1))*
            H; 
For[j = 1, 
        j ≤ 
          NumAround, j++, 
theta = ((j - 1)/
                NumAround)*2*Pi; 
x = 
          R*Sin[theta]; 
y = 
          R*Cos[theta]; 
pointList = 
          Append[pointList, {x, y, 
              z}]
]
]