Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1137 1856 (N52E29 L= 93)   952     81        2 (1105/1817-1171/1895) -32.5 E35-E24 N47-N55
      2 1199 1788 (N48E18 L=103)   438     51        2 (1183/1753-1222/1815) -60.3 E20-E15 N44-N51
      3  788 1757 (N31E42 L= 79)   788    182        4 ( 725/1700- 851/1808) -13.2 E51-E34 N28-N33
      4 1367 1644 (N43W02 L=123)   284     64        0 (1329/1623-1392/1665)   0.0 E01-W04 N41-N43
      5  329 1375 (S04E56 L= 65)   393     45        0 ( 307/1353- 350/1399)  76.0 E57-E53 S05-S01
      6 1293 1308 (N17W07 L=128)   246     75        0 (1256/1283-1328/1326)  11.3 W04-W09 N16-N18
      7  120 1118 (S22E76 L= 45)  1092     96        1 ( 104/1069- 136/1165) -56.3 E80-E72 S24-S18
      8 1604  793 (S01W41 L=162)  1762    381        2 (1527/ 651-1650/ 966) -33.7 W30-W49 S07-N05
      9  206  863 (S36E60 L= 61)  1515    199        4 ( 164/ 783- 255/ 946)  38.7 E69-E52 S42-S30
     10  738  790 (S27E10 L=111)   348    115        1 ( 681/ 765- 788/ 828)  50.2 E13-E07 S29-S23
     11  548  645 (S41E21 L=100)   300     61        0 ( 516/ 622- 576/ 665)   0.0 E23-E18 S42-S40
     12 1178  518 (S29W26 L=147)   280     96        0 (1138/ 502-1229/ 535)  51.3 W24-W28 S31-S26
     13 1349  275 (S37W57 L=178)  1361    157        3 (1279/ 231-1416/ 313)  84.3 W51-W61 S42-S32
     14  841  225 (S63W28 L=149)   366     49        0 ( 829/ 198- 857/ 256) -20.0 W22-W33 S65-S59
     15  963  157 (S62W51 L=172)   469     46        0 ( 941/ 136- 991/ 181) -36.9 W45-W57 S64-S58
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y