Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  679 1818 (N44E46 L=167)   527     54        0 ( 664/1786- 692/1849) -45.0 E51-E41 N40-N47
      2 1617 1667 (N48W44 L=257)  1089    112        2 (1574/1622-1654/1700) -71.6 W37-W50 N44-N50
      3  548 1539 (N21E39 L=174)  1006    253        2 ( 516/1450- 591/1655) -42.9 E47-E33 N15-N28
      4  860 1557 (N25E18 L=195)   712    171        2 ( 826/1482- 896/1621) -66.0 E21-E14 N20-N29
      5  239 1501 (N17E71 L=142)   699     71        1 ( 223/1456- 248/1536) -33.7 E76-E66 N13-N19
      6 1582 1347 (N22W33 L=246)  1641    343        1 (1435/1241-1684/1435) -22.8 W21-W41 N16-N25
      7  918 1407 (N16E11 L=202)   318     90        2 ( 882/1375- 961/1431)   0.0 E13-E08 N14-N17
      8 1860 1309 (N25W61 L=274)  1319    179        3 (1802/1236-1904/1364) -36.9 W54-W68 N21-N28
      9  693 1223 (N02E22 L=191)   812    279        1 ( 629/1123- 756/1340) -42.3 E28-E17 S02-N08
     10  327 1256 (N01E50 L=163)   433    117        0 ( 298/1236- 365/1288)  18.4 E52-E46 N00-N03
     11  379 1018 (S12E42 L=171)   394    116        0 ( 351/ 962- 405/1070)  56.3 E44-E40 S15-S09
     12  497  827 (S23E33 L=180)   247     44        1 ( 474/ 806- 524/ 850) -26.6 E34-E30 S24-S21
     13 1107  809 (S17W08 L=221)   542    235        0 (1010/ 773-1218/ 837)  26.6 W02-W14 S20-S14
     14  836  637 (S32E08 L=205)   726    142        2 ( 784/ 591- 898/ 681)  45.0 E10-E03 S35-S28
     15 1636  499 (S27W56 L=269)  3419    440        3 (1467/ 397-1809/ 626)  43.6 W46-W67 S36-S16
  

    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