Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1101 1853 (N54W50 L= 18)   405     14        0 (1084/1832-1117/1874)  12.5 W45-W54 N52-N55
      2 1603 1698 (N25W71 L= 40)   753     63        0 (1568/1673-1627/1714) -56.3 W67-W76 N22-N26
      3 1619 1597 (N20W62 L= 30)   494     54        3 (1596/1559-1639/1627)  23.2 W58-W65 N17-N20
      4 1430 1574 (N25W45 L= 13)   562    164        0 (1363/1517-1481/1605) -76.0 W41-W47 N20-N28
      5 1333 1483 (N23W33 L=  2)   722    224        0 (1235/1439-1419/1514) -41.6 W26-W36 N18-N26
      6 1060 1374 (N25W12 L=341)   708    202        3 (1008/1296-1106/1453) -90.0 W10-W13 N19-N31
      7  297 1426 (N50E53 L=276)   494     34        1 ( 276/1401- 316/1447) -29.7 E57-E49 N47-N51
      8  532 1307 (N36E25 L=304)  1170    188        3 ( 451/1261- 627/1354) -29.7 E31-E17 N31-N40
      9  725 1201 (N24E13 L=316)   274     99        0 ( 684/1172- 763/1237) -63.4 E15-E11 N21-N27
     10  855 1011 (N10E10 L=319)   742    253        0 ( 786/ 927- 940/1103) -77.0 E12-E06 N03-N16
     11 1617  980 (S13W34 L=  3)  1056    285        0 (1554/ 865-1671/1103)  37.6 W27-W41 S17-S07
     12  254 1045 (N26E54 L=275)   540     68        2 ( 233/1010- 276/1082)  53.1 E56-E51 N23-N27
     13  290  916 (N17E52 L=277)  1000    162        3 ( 237/ 868- 334/ 971)  20.0 E58-E46 N14-N20
     14  565  942 (N13E29 L=299)   281     74        1 ( 533/ 920- 596/ 963) -36.9 E31-E27 N11-N14
     15 1426  720 (S22W15 L=344)   307    140        0 (1365/ 694-1480/ 761)   0.0 W11-W19 S22-S20
     16 1621  702 (S30W29 L=358)   935    111        4 (1575/ 651-1667/ 742)  23.2 W25-W33 S32-S26
     17  255  725 (N07E62 L=267)   463     71        1 ( 216/ 708- 291/ 740)   0.0 E66-E56 N05-N07
     18 1075  303 (S39E21 L=308)   575    141        1 (1050/ 245-1099/ 374)  48.0 E26-E17 S43-S33
     19  832  332 (S30E35 L=294)   544    108        1 ( 790/ 308- 877/ 365)   0.0 E38-E30 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