Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  483 1707 (N22E59 L=236)  1956    178        3 ( 403/1659- 555/1746)  35.0 E65-E51 N17-N25
      2 1404 1569 (N35W10 L=306)   930    160        2 (1326/1520-1473/1599)   0.0 W03-W15 N33-N37
      3  246 1367 (S03E62 L=233)   497     71        1 ( 219/1338- 281/1390)  31.0 E65-E58 S04-S01
      4  576 1301 (S02E33 L=263)   443    136        1 ( 521/1261- 627/1358) -12.5 E37-E28 S02-N00
      5 1678 1234 (N22W35 L=331)   406     66        1 (1660/1194-1693/1275) -68.2 W33-W37 N19-N24
      6 1577 1226 (N18W28 L=324)   548    127        0 (1523/1193-1638/1260)   6.3 W23-W32 N17-N19
      7  326 1222 (S10E49 L=246)   268     48        0 ( 305/1204- 352/1244)   0.0 E51-E47 S11-S08
      8 1892 1011 (N17W60 L=356)  4244    430       10 (1832/ 856-1934/1231) -87.6 W56-W69 N06-N30
      9  200 1059 (S22E59 L=236)  1256    182        3 ( 162/ 981- 240/1134)  55.0 E64-E55 S26-S16
     10  810  977 (S15E11 L=285)   283    135        0 ( 790/ 923- 844/1044)  90.0 E11-E10 S17-S10
     11 1835  997 (N14W54 L=349)   376     51        1 (1816/ 972-1854/1027) -26.6 W51-W56 N12-N14
     12  951  967 (S12E03 L=293)   198     54        1 ( 927/ 949- 981/ 983) -14.0 E04-W00 S13-S10
     13 1738  894 (N05W47 L=343)   482    116        0 (1683/ 867-1792/ 934)  36.9 W43-W51 N01-N08
     14  426  603 (S46E35 L=260)  1189    240        2 ( 329/ 563- 531/ 646)  -2.6 E46-E24 S48-S43
     15 1624  358 (S26W70 L=  5)   785     88        1 (1582/ 340-1665/ 379)  21.8 W63-W76 S27-S23
  

    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