Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  765 1792 (N33E46 L=137)  1148    158        4 ( 733/1726- 804/1878) -28.8 E59-E39 N28-N39
      2  829 1824 (N37E44 L=138)   658     68        1 ( 793/1801- 865/1848)   0.0 E49-E40 N35-N38
      3  972 1511 (N20E17 L=165)   755    327        0 ( 908/1367-1029/1648) -41.4 E26-E09 N12-N27
      4  536 1550 (N11E46 L=136)   326     59        0 ( 505/1531- 564/1567)   0.0 E48-E43 N10-N12
      5 1267 1482 (N27W01 L=183)   535    164        0 (1243/1408-1320/1527) -77.5 W00-W03 N22-N31
      6  459 1482 (N06E48 L=134)   289     68        1 ( 435/1454- 486/1505)  63.4 E49-E46 N03-N07
      7  475 1396 (N01E44 L=139)   573    155        1 ( 450/1324- 494/1464) -58.0 E47-E41 S03-N05
      8  215 1405 (S03E70 L=112)   819    105        2 ( 186/1359- 244/1435) -18.4 E78-E65 S05-S01
      9  239 1259 (S11E60 L=122)   719    137        0 ( 207/1224- 263/1330)  90.0 E63-E56 S13-S07
     10 1351 1203 (N13W13 L=196)   549    213        1 (1318/1095-1375/1280) -68.2 W09-W15 N06-N16
     11  257 1080 (S21E53 L=129)   529    115        1 ( 237/1024- 285/1137) -56.3 E56-E49 S24-S17
     12  570 1023 (S17E27 L=156)  1251    313        1 ( 435/ 928- 671/1111)  51.3 E34-E21 S25-S10
     13 1827  951 (N14W54 L=237)   524     82        2 (1803/ 918-1848/ 996)  90.0 W52-W57 N11-N16
     14 1716  917 (N09W45 L=227)   325     65        0 (1694/ 887-1739/ 938)  90.0 W43-W46 N07-N10
     15  836  813 (S22E05 L=177)  1352    356        2 ( 674/ 770- 996/ 856)  37.4 E14-W03 S29-S16
     16  435  725 (S39E32 L=150)   888    174        3 ( 350/ 688- 515/ 759)  26.6 E41-E25 S43-S35
     17 1517  661 (S11W40 L=222)   471    154        0 (1476/ 592-1554/ 730) -83.7 W38-W41 S15-S06
     18 1295  550 (S24W31 L=214)   410    116        0 (1247/ 524-1354/ 568)  45.0 W28-W34 S26-S21
     19 1717  495 (S12W67 L=249)  2247    198        5 (1666/ 442-1787/ 566)  73.3 W60-W75 S16-S06
     20 1286  442 (S30W37 L=219)   576    219        1 (1195/ 422-1398/ 475)  23.2 W29-W44 S32-S26
     21 1093  249 (S49W40 L=222)  1929    328        2 ( 956/ 187-1203/ 338)   0.0 W22-W56 S50-S45
  

    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