Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1071 1703 (N45W30 L= 75)  1022    154        3 ( 998/1666-1146/1728) -24.4 W22-W35 N42-N48
      2 1682 1558 (N16W65 L=111)   537    132        1 (1668/1504-1700/1624)  24.4 W60-W72 N13-N18
      3 1606 1471 (N14W51 L= 97)   731    131        0 (1547/1453-1660/1495) -10.3 W46-W57 N12-N16
      4  970 1294 (N23W04 L= 50)   304     61        1 ( 945/1264-1001/1324)  14.0 W02-W06 N21-N25
      5 1677 1249 (N00W47 L= 92)   349     98        1 (1656/1203-1699/1294)  78.7 W45-W47 S02-N03
      6 1880 1201 (S10W66 L=112)   687     83        1 (1853/1173-1919/1220) -15.3 W62-W73 S11-S07
      7  695 1090 (N19E18 L= 28)   584    180        0 ( 627/1040- 754/1159)  20.0 E23-E12 N17-N21
      8  189 1015 (N25E63 L=343)  2558    228        2 ( 164/ 910- 233/1132) -85.9 E67-E57 N18-N32
      9 1619 1101 (S06W37 L= 83)   274    118        0 (1558/1087-1667/1113) -14.0 W33-W41 S06-S03
     10 1027 1040 (N08W01 L= 46)   201     41        0 (1002/1019-1049/1062)  26.6 W00-W02 N06-N08
     11  371  996 (N20E43 L=  3)   823    228        0 ( 290/ 905- 418/1055) -57.5 E50-E40 N14-N25
     12  274  907 (N17E54 L=352)   441     80        1 ( 260/ 867- 287/ 959)  68.2 E56-E52 N14-N19
     13 1782  889 (S23W47 L= 92)   769    148        1 (1738/ 824-1820/ 947)  21.8 W41-W51 S25-S20
     14  219  763 (N09E65 L=341)   771    149        0 ( 190/ 723- 260/ 833) -60.3 E67-E60 N06-N13
     15 1460  777 (S19W19 L= 65)   752    277        0 (1335/ 755-1574/ 807) -20.6 W11-W27 S22-S14
     16  888  613 (S13E19 L= 27)   246     51        1 ( 859/ 595- 924/ 629) -14.0 E20-E16 S13-S12
     17  551  454 (S15E47 L=358)   612    135        1 ( 517/ 394- 578/ 519)  37.9 E51-E42 S19-S11
     18  895  476 (S22E23 L= 22)   297     55        1 ( 878/ 449- 920/ 496)  45.0 E25-E21 S23-S20
     19  484  395 (S18E57 L=348)   498     86        0 ( 456/ 375- 527/ 421) -53.1 E59-E54 S19-S15
     20  667  281 (S30E51 L=355)   416     49        0 ( 649/ 249- 690/ 308)  26.6 E55-E47 S31-S27
  

    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