I am having a Hermitian Matrix(`HCK[k]`) depending on a parameter $k$.   

My job is to plot the Eigenvalues of the matrix as the parameter $k$ is changed.   

But I am facing some problems.   
(i) My Mathematica file size, which is of around whopping 90Mb, when `HCK[k]` is around $284\times284$.    
(ii) This part of code is very slow as the size of `HCK[k]` is increasing.


    kdel = 0.00001; (* offset *)
    kIn = -\[Pi] - kdel;  (*Initial value of k *)
    kFin = \[Pi] + kdel;  (*Final value of k *)
    kInc = 0.001; (*Increment of k*)
    
    eigeng = 
     ParallelTable[Eigenvalues[HCF[k]], {k, kIn, kFin, kInc}];
    
    
    kList = ParallelTable[k, {k, kIn, kFin, kInc}];
    
    
    kFList = ParallelTable[kList, {i, Transpose@eigeng}];

    dataToPlot = Flatten[{kFList\[Transpose], eigeng}\[Transpose], {{1, 3}, {2}}];

    Graphics[{Point[{#1, #2}]} & @@@ dataToPlot, Frame -> True,
    ...(* for the aesthetic of plot, i.e. axis title, range and bla bla*)]

(i)  Is there a way the size issue can be overcome?   
(ii) Is there a way the code can be sped up a little bit?(I checked my rest of the code, it is very fast, which I did by breaking and evaluating it into small cells).