Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1182 1740 (N49W34 L=180)  1670    320        2 (1070/1709-1339/1774) -20.0 W22-W45 N43-N53
      2 1594 1710 (N36W73 L=219)  1078     88        1 (1561/1678-1626/1734)   2.6 W64-W86 N33-N36
      3 1133 1611 (N41W21 L=168)   401     72        3 (1092/1592-1174/1629) -26.6 W18-W24 N39-N42
      4 1296 1599 (N37W33 L=179)   472     66        0 (1264/1573-1341/1615) -31.0 W30-W36 N35-N38
      5 1639 1380 (N16W49 L=196)   340     90        0 (1611/1349-1668/1416) -68.2 W47-W50 N13-N18
      6 1560 1386 (N18W43 L=189)   512    100        1 (1507/1360-1608/1404) -23.2 W39-W46 N15-N19
      7 1305 1184 (N11W20 L=166)   802    245        2 (1200/1131-1403/1228) -22.6 W13-W26 N08-N15
      8  294 1079 (N19E51 L= 95)   933    215        2 ( 269/ 991- 332/1186) -71.6 E53-E47 N13-N25
      9 1874 1077 (S08W64 L=210)  3442    337       10 (1793/ 981-1938/1165)  22.4 W52-W75 S14-S02
     10  764 1140 (N17E14 L=132)   199     17        0 ( 750/1117- 779/1162)  71.6 E15-E13 N15-N18
     11  691 1012 (N11E21 L=126)   368    111        1 ( 670/ 959- 708/1067)  63.4 E22-E18 N07-N13
     12 1302 1008 (N01W16 L=163)   503    219        0 (1195/ 980-1401/1025)  -4.4 W09-W22 N00-N02
     13  822  935 (N04E14 L=133)   211     53        1 ( 801/ 913- 846/ 962) -76.0 E14-E12 N02-N06
     14 1525  854 (S13W29 L=175)  1122    281        3 (1474/ 730-1601/ 939)  42.3 W23-W35 S19-S07
     15 1401  852 (S10W20 L=166)   499    107        4 (1360/ 814-1438/ 891) -78.7 W17-W22 S12-S07
     16  311  848 (N05E52 L= 95)   402     73        0 ( 286/ 818- 341/ 877) -45.0 E53-E49 N02-N06
     17  327  684 (S05E55 L= 92)   855    127        4 ( 294/ 636- 369/ 739) -66.8 E57-E51 S08-S01
     18  504  540 (S16E44 L=102)  2504    433        7 ( 398/ 370- 592/ 711) -85.4 E48-E40 S29-S04
     19  561  624 (S11E37 L=109)   340     72        0 ( 537/ 600- 589/ 659) -76.0 E38-E35 S13-S09
     20  685  632 (S12E28 L=118)   319     50        0 ( 655/ 613- 712/ 652)  11.3 E30-E25 S13-S11
     21 1563  595 (S31W30 L=177)  1099    152        5 (1517/ 535-1620/ 651)  33.7 W26-W35 S34-S27
     22  724  510 (S21E29 L=117)   321     83        1 ( 689/ 480- 752/ 533) -63.4 E30-E27 S23-S18
     23  700  367 (S31E37 L=109)   643    123        1 ( 650/ 343- 759/ 391)   5.7 E41-E31 S32-S29
     24 1078  223 (S51E15 L=131)   566     62        1 (1054/ 199-1103/ 249) -90.0 E17-E11 S53-S47
  

    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