Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1671 1599 (N21W69 L= 34)  1940    269        4 (1638/1487-1703/1698)  26.6 W57-W82 N15-N26
      2 1514 1612 (N27W54 L= 19)  1351    158        1 (1442/1554-1577/1665) -68.2 W50-W56 N22-N32
      3 1466 1437 (N19W39 L=  5)  1217    336        3 (1336/1363-1590/1484) -40.6 W31-W45 N11-N24
      4 1216 1442 (N27W23 L=348)   389    105        0 (1172/1398-1251/1474) -80.5 W21-W24 N23-N29
      5  679 1379 (N36E15 L=311)   349     65        0 ( 650/1356- 709/1399)  14.0 E16-E12 N34-N37
      6 1157 1329 (N21W16 L=341)   195     55        2 (1135/1301-1173/1353)  71.6 W14-W16 N19-N22
      7 1608 1079 (S04W37 L=  2)   358     77        2 (1586/1040-1630/1117)  53.1 W34-W39 S06-S02
      8  203 1052 (N24E62 L=263)  1241    134        1 ( 149/1011- 264/1093) -23.2 E70-E54 N20-N26
      9  130  996 (N21E75 L=251)  1514    101        1 ( 105/ 942- 155/1043)  28.6 E81-E69 N17-N23
     10  930  851 (S01E09 L=316)   299     51        1 ( 908/ 819- 954/ 877)  71.6 E10-E07 S02-N01
     11 1723  780 (S26W42 L=  7)  1234    198        3 (1651/ 723-1815/ 842)   7.1 W34-W52 S28-S24
     12 1548  786 (S20W27 L=352)   726    218        0 (1438/ 753-1611/ 835) -13.0 W19-W32 S21-S16
     13  857  723 (S07E17 L=309)   438     89        2 ( 831/ 676- 886/ 771)  71.6 E18-E14 S09-S03
     14  880  287 (S36E32 L=293)  3109    483        6 ( 804/ 124- 982/ 514)  29.6 E66-E15 S51-S22
  

    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