Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  988 1736 (N37E28 L=160)  1249    327        5 ( 852/1657-1104/1800)  -2.3 E40-E15 N33-N39
      2  797 1672 (N27E36 L=152)   513     72        2 ( 764/1644- 835/1698)   0.0 E39-E33 N24-N28
      3  624 1626 (N19E45 L=143)   686    182        1 ( 564/1582- 699/1690)  78.7 E48-E43 N15-N25
      4  863 1569 (N22E26 L=161)   348    160        0 ( 836/1508- 908/1639) -31.0 E31-E21 N19-N26
      5  479 1574 (N13E53 L=134)   335     83        0 ( 443/1557- 521/1591)  18.4 E56-E50 N11-N14
      6 1650 1474 (N42W32 L=219)   472     84        1 (1607/1450-1689/1498)   0.0 W26-W36 N40-N43
      7  732 1259 (N00E23 L=165)   986    284        1 ( 680/1133- 773/1380) -82.4 E25-E20 S07-N08
      8 1763 1277 (N32W44 L=232)   611     74        0 (1741/1238-1781/1316) -53.1 W41-W46 N30-N34
      9 1628 1228 (N24W32 L=219)   790    194        5 (1582/1138-1658/1307) -48.4 W27-W35 N19-N28
     10  363 1263 (S08E49 L=139)   504    109        1 ( 324/1219- 396/1304)  63.4 E51-E46 S11-S05
     11  532 1227 (S06E35 L=153)   527    138        1 ( 517/1159- 554/1282) -66.8 E36-E31 S09-S02
     12 1396 1135 (N11W18 L=205)   323     67        0 (1367/1107-1425/1161) -21.8 W15-W20 N10-N12
     13 1617 1089 (N16W34 L=221)   473     95        3 (1575/1045-1650/1122)  -8.1 W30-W37 N14-N18
     14  234  967 (S28E56 L=132)   355    102        1 ( 201/ 931- 265/ 998)  32.0 E60-E52 S30-S25
     15  779  899 (S18E11 L=177)   308    130        0 ( 741/ 858- 826/ 954)  74.1 E12-E09 S21-S14
     16 1128  828 (S13W11 L=199)   269    123        1 (1100/ 794-1166/ 860) -21.8 W09-W14 S14-S11
     17 1281  731 (S14W23 L=211)   280     77        1 (1252/ 711-1320/ 749)  36.9 W21-W25 S15-S12
     18 1420  704 (S11W33 L=220)   839    300        1 (1296/ 655-1521/ 749)  31.6 W26-W39 S16-S07
     19 1471  667 (S12W37 L=225)   399    101        2 (1424/ 642-1519/ 694)  18.4 W34-W40 S13-S09
     20 1074  577 (S29W17 L=204)  1162    389        0 ( 929/ 537-1253/ 647)  14.6 W05-W28 S31-S23
     21  795  358 (S53W09 L=196)   457     93        1 ( 761/ 324- 834/ 394) -11.3 W04-W14 S54-S50
  

    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