Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1327 1795 (N42W58 L=226)   458     52        1 (1296/1771-1355/1819)   0.0 W52-W63 N41-N43
      2 1690 1600 (N18W71 L=238)  2085    293        7 (1615/1509-1783/1706) -90.0 W64-W80 N10-N25
      3 1564 1635 (N25W60 L=228)  1746    229        5 (1515/1564-1617/1695)  21.8 W54-W70 N21-N27
      4 1307 1478 (N25W31 L=199)   586    172        0 (1222/1458-1387/1495) -26.6 W25-W36 N21-N27
      5 1479 1378 (N14W38 L=205)   369    123        0 (1415/1357-1531/1403) -45.0 W34-W40 N11-N17
      6  317 1228 (N35E47 L=120)   559    136        0 ( 277/1196- 371/1253) -15.3 E52-E41 N32-N36
      7  307 1056 (N25E49 L=119)   874    213        1 ( 272/ 985- 371/1149) -54.0 E52-E43 N19-N30
      8  439 1067 (N23E37 L=131)   310     94        0 ( 415/1034- 470/1112) -59.0 E38-E34 N20-N25
      9  253  756 (N08E61 L=107)  1638    175        6 ( 208/ 676- 292/ 817)  53.1 E66-E55 N02-N10
     10  468  654 (S02E44 L=123)   420     77        0 ( 444/ 628- 507/ 684) -11.3 E46-E41 S03-N00
     11 1772  586 (S44W49 L=216)   715     78        1 (1731/ 563-1803/ 619) -13.0 W42-W55 S46-S40
     12  378  482 (S11E61 L=106)   650    119        1 ( 347/ 449- 425/ 515)   5.2 E66-E55 S13-S09
     13  512  434 (S16E52 L=116)   336     63        1 ( 497/ 408- 533/ 471)  51.3 E54-E49 S18-S13
  

    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