Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1134 1691 (N46E04 L=118)  1481    315        4 (1082/1614-1183/1793) -76.0 E07-W01 N40-N56
      2  615 1721 (N39E47 L= 75)   492    122        0 ( 591/1684- 636/1749) -29.7 E50-E43 N36-N40
      3  545 1552 (N26E43 L= 79)  1525    275        3 ( 462/1473- 639/1669)  68.2 E48-E39 N19-N35
      4 1480 1579 (N44W28 L=150)   721    158        1 (1422/1556-1540/1599)  20.0 W22-W33 N41-N46
      5  434 1499 (N21E50 L= 72)   380     94        2 ( 404/1472- 460/1523) -18.4 E53-E47 N19-N22
      6  561 1414 (N17E37 L= 85)   529    143        1 ( 499/1377- 605/1470)  50.2 E40-E34 N14-N20
      7 1470 1423 (N32W25 L=148)   415    114        0 (1443/1375-1487/1462) -80.5 W23-W26 N28-N34
      8  933 1300 (N15E10 L=113)   221    106        1 ( 879/1287- 986/1314)   8.1 E13-E06 N14-N17
      9  692 1252 (N09E24 L= 98)   384    102        2 ( 669/1215- 721/1289) -45.0 E25-E21 N06-N11
     10 1181 1218 (N14W07 L=129)   547    144        2 (1118/1181-1217/1270)  51.3 W03-W09 N11-N17
     11 1213 1087 (N06W10 L=133)   899    342        3 (1074/ 967-1301/1179) -29.4 W01-W17 N00-N10
     12  231  950 (S16E56 L= 66)   815    245        0 ( 189/ 861- 245/1061)  69.0 E60-E54 S21-S08
     13  391 1004 (S10E41 L= 81)   418    104        2 ( 347/ 975- 422/1022) -15.9 E45-E38 S11-S08
     14 1638  922 (N02W42 L=164)   595    161        2 (1619/ 869-1660/ 981) -63.4 W40-W44 N00-N06
     15  817  893 (S11E11 L=112)   399    165        1 ( 725/ 875- 888/ 917)  16.7 E16-E06 S11-S08
     16 1181  792 (S12W13 L=135)   723    173        3 (1139/ 722-1219/ 881) -66.0 W09-W16 S15-S06
     17 1609  728 (S10W43 L=166)   507    118        0 (1582/ 661-1646/ 783)  82.9 W41-W45 S13-S05
     18 1722  689 (S10W55 L=177)   356     57        1 (1704/ 658-1745/ 715)  63.4 W53-W56 S12-S08
     19  681  564 (S34E17 L=105)   286     57        1 ( 655/ 547- 706/ 584)  36.9 E19-E15 S35-S32
  

    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