Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1537 1640 (N30W50 L= 92)  1171    153        1 (1509/1565-1567/1717)  54.0 W46-W55 N24-N35
      2 1269 1586 (N31W26 L= 68)   635    137        0 (1193/1569-1338/1602) -16.7 W20-W30 N28-N32
      3 1743 1463 (N16W59 L=101)  1493    256        1 (1641/1386-1803/1537) -50.7 W52-W67 N10-N21
      4 1848 1398 (N11W69 L=111)  1257    182        1 (1815/1321-1868/1478)  52.1 W63-W74 N06-N15
      5 1321 1330 (N14W22 L= 64)   342    131        0 (1266/1309-1385/1355) -23.2 W19-W26 N12-N15
      6  719 1212 (N15E16 L= 26)   258    106        0 ( 686/1171- 754/1253) -63.4 E17-E13 N12-N18
      7 1273 1054 (S02W15 L= 57)   389    142        0 (1246/ 998-1332/1104)  29.7 W12-W19 S04-N00
      8 1700 1063 (S07W44 L= 86)   245     44        0 (1672/1049-1726/1079)   0.0 W41-W46 S07-S06
      9 1443  931 (S11W24 L= 66)   646    217        0 (1421/ 845-1463/1021)  73.3 W21-W26 S15-S05
     10  820  924 (S03E13 L= 29)  1489    409        1 ( 686/ 742- 916/1017) -62.1 E20-E10 S14-N03
     11 1628  973 (S11W37 L= 79)   329     77        2 (1587/ 946-1665/1002) -33.7 W34-W40 S13-S09
     12  647  927 (S00E24 L= 18)   234     77        0 ( 631/ 901- 673/ 964)  45.0 E24-E22 S01-N01
     13  716  833 (S07E21 L= 21)   399    135        3 ( 669/ 780- 749/ 885)  33.7 E24-E18 S09-S03
     14  167  704 (S07E71 L=330)   676     67        1 ( 148/ 680- 191/ 742) -90.0 E76-E68 S08-S04
     15  936  512 (S30E14 L= 28)  2228    465        5 ( 838/ 349- 991/ 737)  54.7 E26-E08 S39-S15
     16  332  683 (S10E52 L=349)   783    123        1 ( 294/ 641- 366/ 725) -80.5 E55-E48 S13-S07
     17 1350  658 (S26W16 L= 57)  1074    256        2 (1243/ 609-1459/ 723)  14.9 W08-W23 S28-S23
     18  444  652 (S14E44 L=358)   409    100        2 ( 413/ 621- 507/ 677) -26.6 E46-E39 S15-S11
     19  410  598 (S17E49 L=353)   631     96        2 ( 367/ 571- 454/ 626) -15.9 E52-E45 S17-S14
     20  413  497 (S23E53 L=348)  2958    336        4 ( 292/ 414- 540/ 614)  12.4 E79-E38 S27-S17
     21  713  301 (S41E40 L=  2)   829    100        2 ( 666/ 274- 766/ 335)   8.7 E46-E33 S43-S38
  

    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