Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1597 1614 (N21W58 L=214)  1009    158        6 (1544/1584-1650/1650) -50.2 W52-W66 N17-N23
      2 1423 1589 (N25W43 L=199)   476    102        1 (1374/1567-1471/1614) -45.0 W40-W44 N22-N26
      3 1807 1471 (N07W70 L=226)  1250    128        1 (1755/1431-1845/1494)  -3.4 W62-W79 N04-N09
      4 1288 1431 (N20W27 L=183)   712    243        1 (1201/1385-1392/1475)  -8.1 W20-W34 N17-N21
      5 1118 1336 (N19W14 L=170)   378    131        0 (1093/1274-1156/1390)  40.6 W10-W17 N15-N21
      6  809 1326 (N26E05 L=151)   218     85        1 ( 758/1301- 841/1344) -45.0 E07-E02 N24-N28
      7 1890 1282 (S06W69 L=225)   558     74        0 (1864/1246-1911/1313) -63.4 W66-W72 S07-S03
      8 1572 1217 (N01W37 L=193)   871    166        2 (1516/1142-1612/1283) -77.5 W35-W38 S04-N05
      9 1719 1150 (S07W46 L=202)   787    154        3 (1667/1096-1775/1208) -45.0 W42-W50 S10-S02
     10  388 1080 (N22E39 L=117)   659    165        1 ( 338/1005- 413/1149) -78.7 E42-E36 N17-N27
     11 1851 1075 (S15W57 L=213)   856    147        2 (1828/1006-1881/1129) -90.0 W53-W61 S19-S12
     12  215  997 (N21E56 L=100)  1171    166        1 ( 187/ 924- 256/1077) -68.2 E59-E52 N16-N26
     13 1714  971 (S17W41 L=197)  1086    249        5 (1654/ 888-1759/1040)  76.0 W36-W45 S21-S13
     14 1810  988 (S19W50 L=206)   443     89        1 (1787/ 938-1828/1034) -81.9 W48-W52 S22-S15
     15  990  897 (S02E05 L=151)   989    266        1 ( 888/ 801-1055/ 977) -67.4 E08-E02 S08-N04
     16 1506  935 (S13W25 L=181)   366     77        0 (1468/ 904-1536/ 971)  21.8 W22-W27 S14-S11
     17  434  906 (N11E38 L=118)   391     95        3 ( 393/ 879- 471/ 935) -18.4 E41-E35 N09-N13
     18 1570  902 (S17W29 L=185)   397    111        1 (1528/ 869-1617/ 935)   8.1 W25-W32 S17-S15
     19 1647  861 (S21W34 L=190)   253     43        0 (1624/ 839-1670/ 883)   0.0 W31-W35 S22-S20
     20 1820  694 (S38W51 L=207)  1312    169        2 (1755/ 628-1868/ 757)  31.0 W42-W58 S41-S34
     21  824  540 (S18E25 L=131)  1790    594        4 ( 682/ 341-1012/ 713)  27.3 E40-E09 S28-S12
     22 1492  668 (S28W19 L=175)   237     79        0 (1455/ 655-1532/ 689) -38.7 W16-W22 S29-S25
     23  320  549 (S07E61 L= 95)  2317    429        5 ( 196/ 409- 499/ 681) -49.6 E70-E51 S18-N03
     24 1208  581 (S25E01 L=155)  1410    376        1 (1057/ 499-1369/ 671)   2.6 E12-W10 S27-S23
     25  484  526 (S11E48 L=108)  1223    281        4 ( 413/ 442- 573/ 627) -77.9 E51-E43 S17-S03
     26  345  597 (S04E56 L=100)   356     36        0 ( 328/ 571- 364/ 622) -71.6 E57-E54 S06-S02
     27  907  410 (S28E25 L=131)   498    131        0 ( 858/ 372- 965/ 452)  16.7 E29-E19 S29-S26
  

    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