Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  836 1724 (N38E34 L=142)   388     55        0 ( 809/1702- 866/1751)  -8.1 E38-E31 N36-N39
      2  882 1582 (N29E23 L=153)   737    173        3 ( 797/1543- 947/1623)  48.8 E28-E20 N24-N32
      3 1628 1294 (N28W35 L=212)  2645    795        1 (1409/ 996-1770/1582) -39.0 W14-W51 N12-N42
      4  568 1451 (N14E39 L=137)   559     99        1 ( 539/1408- 611/1489)  71.6 E40-E37 N10-N16
      5  241 1421 (N06E70 L=107)   657     55        1 ( 228/1389- 260/1453) -38.7 E73-E66 N03-N07
      6 1297 1354 (N24W10 L=186)   864    248        2 (1203/1276-1368/1442) -33.7 W01-W14 N19-N27
      7  556 1349 (N07E37 L=140)   239     74        0 ( 522/1336- 592/1362)   0.0 E39-E33 N06-N08
      8 1235 1273 (N17W07 L=184)   196     87        2 (1199/1234-1265/1298) -21.8 W04-W09 N15-N18
      9  233 1188 (S08E60 L=117)   830    154        2 ( 200/1113- 260/1256)  78.7 E62-E58 S13-S03
     10  800 1085 (S03E14 L=162)   204     72        0 ( 770/1059- 832/1107)  53.1 E15-E12 S05-S01
     11  448 1033 (S13E37 L=140)   999    298        1 ( 358/ 945- 525/1079)  30.3 E44-E31 S18-S09
     12  263  854 (S28E53 L=124)   788    226        1 ( 197/ 784- 326/ 920)  34.5 E62-E45 S33-S22
     13  956  888 (S11E01 L=176)   379    109        0 ( 893/ 872-1007/ 905)  21.8 E04-W01 S12-S09
     14  678  812 (S22E17 L=160)   277     78        1 ( 641/ 787- 711/ 844)  45.0 E19-E15 S23-S19
     15 1654  729 (S05W48 L=225)   613    144        2 (1609/ 688-1709/ 758)  35.5 W45-W53 S07-S02
     16 1503  684 (S11W38 L=215)   363     80        2 (1470/ 650-1534/ 716) -18.4 W34-W40 S12-S09
     17 1723  669 (S07W57 L=234)   501     94        2 (1703/ 620-1748/ 713) -35.5 W53-W60 S09-S04
     18 1607  657 (S10W47 L=224)   461     70        3 (1575/ 623-1633/ 693) -45.0 W45-W49 S12-S08
     19 1609  540 (S17W53 L=230)  1057    227        2 (1543/ 467-1669/ 642)  85.6 W51-W57 S22-S09
     20 1065  617 (S25W12 L=189)   317     90        0 (1018/ 595-1103/ 639)  45.0 W09-W14 S27-S23
     21 1529  582 (S17W44 L=221)  1123    231        4 (1414/ 553-1605/ 625)  26.6 W36-W50 S20-S12
     22  456  551 (S45E34 L=142)  1097    184        2 ( 383/ 512- 540/ 596)  26.6 E45-E25 S50-S39
  

    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