Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  841 1722 (N38E34 L=142)   377     75        0 ( 814/1699- 875/1748) -14.0 E37-E29 N36-N39
      2  886 1579 (N29E23 L=153)   740    176        3 ( 801/1541- 952/1620)  48.8 E27-E19 N24-N32
      3 1635 1289 (N28W36 L=212)  2779    804        1 (1412/ 993-1777/1579) -39.8 W14-W52 N12-N42
      4  574 1448 (N14E39 L=137)   562    103        0 ( 545/1407- 615/1489)  71.6 E40-E37 N10-N16
      5  246 1421 (N06E69 L=107)   689     51        1 ( 232/1386- 264/1455) -45.0 E72-E66 N03-N08
      6 1304 1351 (N23W10 L=186)   788    239        1 (1211/1285-1372/1439) -30.3 W02-W14 N20-N27
      7  565 1345 (N07E36 L=140)   260     54        1 ( 533/1325- 598/1360)   0.0 E38-E33 N06-N07
      8 1246 1267 (N17W08 L=184)   220     65        1 (1218/1230-1273/1296) -26.6 W05-W09 N15-N18
      9  249 1228 (S06E59 L=117)   471     78        0 ( 229/1194- 267/1264)  63.4 E60-E57 S07-S03
     10  814 1085 (S03E14 L=163)   190     80        0 ( 783/1059- 851/1103)  45.0 E14-E11 S04-S01
     11  474 1033 (S13E35 L=141)   717    163        1 ( 435/ 943- 521/1079)  77.5 E38-E31 S18-S09
     12  255  904 (S25E54 L=122)   339    100        0 ( 243/ 854- 273/ 952) -59.0 E55-E51 S27-S22
     13  266  851 (S28E53 L=124)   780    229        0 ( 204/ 783- 328/ 914)  34.5 E62-E45 S33-S22
     14 1751  878 (N06W52 L=228)   315     37        1 (1735/ 855-1777/ 899)  33.7 W50-W54 N04-N06
     15  966  885 (S11E00 L=176)   392    110        0 ( 904/ 870-1018/ 898)  18.4 E04-W02 S12-S09
     16  688  809 (S22E16 L=160)   308     81        0 ( 650/ 785- 726/ 843)  45.0 E18-E14 S23-S19
     17 1687  705 (S06W52 L=228)  1094    251        4 (1615/ 627-1753/ 756)  -7.1 W45-W61 S09-S02
     18 1512  680 (S11W39 L=215)   325     75        2 (1482/ 649-1541/ 711) -21.8 W35-W41 S12-S09
     19 1613  654 (S10W48 L=224)   406     69        2 (1584/ 622-1637/ 687) -53.1 W45-W49 S12-S08
     20 1078  617 (S25W13 L=189)   268     53        0 (1048/ 597-1112/ 639)  53.1 W11-W14 S26-S22
     21 1593  494 (S20W55 L=231)  1504    393        3 (1498/ 363-1674/ 639) -81.9 W52-W59 S30-S09
     22 1534  580 (S17W45 L=221)  1094    227        4 (1425/ 549-1610/ 623)  30.3 W37-W50 S20-S12
     23  436  544 (S46E37 L=139)   934    125        1 ( 386/ 513- 493/ 573)  26.6 E44-E30 S49-S42
  

    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