Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1040 1490 (N28W09 L=116)   809    266        0 ( 950/1392-1132/1577) -65.0 W05-W12 N20-N35
      2  695 1440 (N31E15 L= 93)  1015    250        1 ( 643/1329- 777/1539)  47.7 E18-E07 N24-N36
      3 1521 1491 (N20W41 L=148)   937    111        3 (1470/1441-1570/1525) -23.2 W37-W45 N16-N22
      4 1322 1476 (N22W27 L=134)   692    221        1 (1218/1438-1422/1517) -36.0 W21-W32 N18-N26
      5  408 1345 (N30E37 L= 70)  1190    261        4 ( 298/1301- 547/1377) -20.0 E48-E26 N24-N33
      6 1033 1226 (N12W04 L=111)   691    315        2 ( 916/1150-1094/1330)  33.7 E04-W08 N08-N17
      7 1696 1283 (N05W48 L=155)   297     80        1 (1662/1249-1729/1313) -45.0 W45-W50 N02-N07
      8 1721 1150 (S03W47 L=154)   306     65        0 (1710/1110-1734/1186)  53.1 W45-W48 S05-S01
      9 1831 1113 (S07W56 L=164)   784    133        3 (1801/1059-1867/1182)  36.9 W52-W62 S09-S03
     10 1866 1007 (S14W59 L=166)  2019    313        2 (1770/ 908-1924/1106)  26.6 W48-W68 S18-S08
     11 1786 1028 (S11W51 L=158)   464    100        1 (1766/ 994-1838/1071)   7.1 W48-W56 S13-S08
     12  645  960 (N03E23 L= 84)   408    148        0 ( 570/ 944- 714/ 976) -12.5 E28-E19 N01-N03
     13  359  824 (S01E46 L= 61)   522    113        0 ( 307/ 784- 404/ 851) -33.7 E49-E43 S03-N01
     14 1493  793 (S20W25 L=133)  1007    273        0 (1381/ 719-1603/ 847)  10.6 W17-W33 S23-S18
     15  253  761 (S03E57 L= 50)   491    109        2 ( 217/ 717- 284/ 809)  18.4 E62-E53 S05-N00
     16  646  752 (S09E27 L= 80)   237    103        0 ( 613/ 724- 665/ 803)  53.1 E29-E25 S10-S06
     17  468  751 (S06E39 L= 68)   298     70        1 ( 447/ 723- 487/ 790) -90.0 E41-E37 S08-S04
     18  306  626 (S11E57 L= 50)  1087    283        2 ( 270/ 532- 343/ 749)  70.3 E60-E53 S17-S03
     19 1635  719 (S27W36 L=143)   415    117        1 (1585/ 702-1698/ 741) -11.3 W32-W42 S28-S25
     20  441  671 (S11E44 L= 64)   412    122        0 ( 415/ 621- 460/ 733)  81.9 E45-E42 S13-S06
     21  478  427 (S26E52 L= 55)   843    163        1 ( 423/ 375- 537/ 493)  18.4 E61-E43 S28-S22
     22 1394  300 (S55W17 L=124)  1036    148        0 (1323/ 275-1468/ 333)   3.6 W09-W25 S56-S52
  

    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