Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1352 1836 (N50W64 L=167)  1108    110        2 (1294/1809-1396/1868)  -2.2 W54-W81 N48-N51
      2 1756 1397 (N13W62 L=164)  1204    224        1 (1673/1354-1837/1453) -31.0 W55-W72 N08-N17
      3  487 1359 (N36E34 L= 69)   325    127        0 ( 452/1307- 518/1410)  50.2 E36-E31 N32-N38
      4 1321 1343 (N20W25 L=127)   904    325        1 (1194/1263-1439/1410)   5.7 W15-W35 N16-N21
      5  864 1180 (N19E07 L= 95)   189     52        1 ( 837/1162- 888/1203) -33.7 E08-E05 N17-N19
      6 1879 1041 (S11W64 L=166)  5625    352       11 (1821/ 874-1938/1196)  81.5 W55-W77 S21-S01
      7 1344  836 (S10W16 L=118)   453    156        2 (1306/ 789-1383/ 911) -76.0 W14-W17 S13-S05
      8 1731  845 (S18W45 L=147)   445     86        2 (1706/ 814-1758/ 880)  31.0 W42-W47 S19-S16
      9  227  829 (N05E61 L= 41)   435     54        1 ( 203/ 802- 254/ 857)  26.6 E64-E57 N03-N06
     10 1460  811 (S14W23 L=125)   420     88        0 (1435/ 768-1485/ 856)  59.0 W21-W24 S16-S11
     11 1090  754 (S11E01 L=101)   699    172        5 (1036/ 692-1136/ 819) -77.5 E02-W01 S14-S05
     12  548  692 (S06E36 L= 66)   270     61        0 ( 520/ 669- 579/ 717) -45.0 E37-E34 S07-S04
     13 1170  590 (S22W01 L=103)   613    173        1 (1145/ 507-1192/ 670)  68.2 E01-W03 S27-S17
     14  236  592 (S10E72 L= 30)  1211    146        3 ( 194/ 541- 275/ 655) -58.0 E76-E68 S13-S05
     15  552  527 (S17E41 L= 61)   560     86        1 ( 530/ 473- 574/ 574)  66.8 E43-E38 S20-S13
     16 1282  481 (S32W07 L=109)   882    143        2 (1212/ 454-1336/ 530)   5.7 W01-W11 S34-S29
     17  848  440 (S27E23 L= 79)   651     91        2 ( 826/ 391- 872/ 481)  45.0 E26-E20 S30-S23
     18  369  437 (S21E65 L= 37)   817     66        1 ( 352/ 394- 387/ 476)  26.6 E72-E59 S24-S18
     19 1466  326 (S52W23 L=125)   796    103        1 (1423/ 297-1514/ 357)   0.0 W18-W28 S54-S49
     20  858  207 (S47E37 L= 65)   403     45        1 ( 834/ 188- 882/ 228)   0.0 E40-E33 S48-S44
  

    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