Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  870 1798 (N43E29 L= 92)  1510    195        5 ( 806/1708- 924/1853) -30.1 E39-E20 N35-N47
      2 1319 1668 (N41W10 L=131)   268     49        0 (1296/1645-1347/1691)  51.3 W08-W12 N38-N43
      3  612 1634 (N26E40 L= 82)   679    132        0 ( 555/1583- 668/1675) -17.1 E46-E33 N22-N28
      4 1650 1587 (N43W41 L=163)   747     67        1 (1619/1557-1687/1611)  26.6 W36-W48 N39-N45
      5 1757 1317 (N25W47 L=169)  1731    399        3 (1635/1170-1845/1452) -36.4 W36-W56 N17-N31
      6  155 1017 (S16E66 L= 55)  7066    405        8 ( 103/ 825- 209/1172)  81.9 E76-E58 S27-S06
      7  256  872 (S25E54 L= 67)  2142    461        5 ( 229/ 658- 278/1055)  78.7 E59-E51 S38-S13
      8 1697  953 (N01W44 L=166)   648    205        1 (1628/ 919-1773/1012)  18.4 W38-W50 N00-N04
      9 1674  679 (S14W50 L=172)   893    208        1 (1608/ 604-1738/ 774)  76.0 W47-W52 S19-S07
     10 1650  540 (S23W56 L=177)   628     72        2 (1608/ 514-1688/ 570)   0.0 W50-W60 S23-S21
     11 1044  480 (S39W12 L=133)   297     58        0 (1028/ 447-1063/ 518) -59.0 W10-W13 S41-S36
     12  719  423 (S50E14 L=108)   579     92        0 ( 697/ 363- 739/ 466)  83.7 E15-E11 S54-S45
     13 1510  432 (S32W50 L=171)   478    119        2 (1456/ 412-1557/ 448)  20.6 W46-W54 S34-S30
     14 1623  406 (S31W64 L=185)   508     52        1 (1598/ 381-1648/ 431)  63.4 W60-W66 S33-S29
  

    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