Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  646 1719 (N24E48 L=240)   586    102        1 ( 607/1682- 695/1744) -10.3 E52-E41 N22-N25
      2 1219 1675 (N38E09 L=279)   576    160        0 (1145/1631-1289/1711)  -4.4 E15-E02 N37-N39
      3 1447 1565 (N38W11 L=298)   379     78        2 (1415/1539-1489/1589)  -8.1 W07-W14 N36-N39
      4  339 1497 (N04E60 L=228)   894    134        4 ( 300/1439- 369/1549) -21.0 E67-E53 N00-N06
      5  758 1437 (N10E27 L=261)   300     67        0 ( 728/1411- 790/1468) -14.0 E28-E24 N08-N10
      6 1586 1260 (N23W27 L=315)   264     65        0 (1556/1237-1620/1281)   0.0 W24-W29 N22-N24
      7 1821 1140 (N25W50 L=338)   516    151        0 (1774/1082-1854/1167) -14.0 W44-W53 N21-N26
      8 1794  999 (N16W50 L=338)   415     96        2 (1755/ 962-1829/1043)   0.0 W45-W54 N13-N17
      9 1283 1005 (S00W15 L=303)   196    101        0 (1234/ 991-1318/1034)  53.1 W12-W15 S02-N02
     10  719  996 (S16E17 L=271)   232     45        0 ( 689/ 976- 747/1012)  45.0 E18-E14 S17-S14
     11  832  971 (S14E09 L=279)   262     45        1 ( 811/ 946- 861/ 998)  90.0 E10-E07 S16-S12
     12 1880  864 (N12W64 L=352)  4519    268       17 (1828/ 788-1952/ 984) -55.0 W55-W83 N07-N17
     13 1190  829 (S12W15 L=303)   426    173        0 (1136/ 774-1238/ 904) -24.0 W09-W18 S14-S09
     14 1102  738 (S20W13 L=301)   355    146        1 (1030/ 719-1167/ 756)  26.6 W08-W16 S21-S17
     15 1821  719 (N02W63 L=351)   708     98        1 (1771/ 686-1865/ 742)  32.0 W58-W68 S01-N04
     16  262  663 (S48E55 L=233)   912    123        1 ( 197/ 645- 325/ 685)   7.1 E68-E44 S50-S45
     17  914  640 (S31W05 L=293)   266    114        0 ( 897/ 581- 945/ 674) -74.1 W03-W07 S34-S27
     18 1578  539 (S16W51 L=339)   742    167        2 (1504/ 520-1661/ 567)  28.6 W45-W57 S18-S12
     19  692  477 (S48E05 L=283)   306     20        0 ( 672/ 454- 713/ 501) -26.6 E06-E02 S49-S46
     20  976  387 (S44W21 L=308)   511    104        2 ( 936/ 355-1021/ 428)  -7.1 W16-W24 S45-S42
     21 1488  308 (S30W63 L=351)   923    119        2 (1432/ 277-1532/ 351)   3.2 W53-W71 S31-S28
  

    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