Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1132 1781 (N43E20 L= 18)  2558    408        2 (1010/1649-1264/1925) -21.3 E45-E04 N36-N53
      2  522 1725 (N22E60 L=338)  4050    361        8 ( 429/1641- 663/1811)  73.6 E69-E54 N14-N31
      3  870 1722 (N30E33 L=  5)   353     65        2 ( 851/1683- 888/1759) -63.4 E35-E30 N27-N33
      4  619 1716 (N23E50 L=348)   705     74        1 ( 588/1689- 646/1756) -78.7 E52-E47 N21-N26
      5  602 1550 (N12E41 L=357)  1919    480        2 ( 452/1390- 727/1753) -88.0 E46-E38 N00-N28
      6 1722 1447 (N41W38 L= 76)   568     75        1 (1693/1414-1747/1486) -53.1 W34-W41 N39-N43
      7 1673 1222 (N23W35 L= 72)   298     59        0 (1656/1184-1688/1251) -45.0 W32-W36 N21-N25
      8  237 1096 (S21E57 L=341)   341     66        0 ( 222/1066- 254/1123)  63.4 E58-E54 S23-S19
      9  387 1075 (S20E42 L=356)   405     53        1 ( 364/1049- 411/1105)  53.1 E43-E39 S21-S17
     10  311 1070 (S21E48 L=349)   391     45        0 ( 290/1046- 339/1100) -21.8 E50-E45 S22-S19
     11  473 1011 (S21E34 L=  4)   313     49        0 ( 438/ 993- 505/1030)  21.8 E36-E31 S23-S19
     12 1164  583 (S27W22 L= 60)   243     57        0 (1140/ 551-1193/ 603)  90.0 W20-W23 S29-S25
     13 1250  238 (S44W54 L= 91)   543    112        0 (1209/ 212-1308/ 275)   8.7 W46-W61 S45-S42
  

    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