Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1612 1561 (N28W54 L=101)   436     88        0 (1569/1530-1650/1595) -56.3 W52-W56 N25-N31
      2 1455 1474 (N26W38 L= 85)   250     66        0 (1418/1443-1487/1508) -71.6 W36-W39 N23-N29
      3 1733 1418 (N17W59 L=106)  1045    213        1 (1679/1325-1770/1495)  68.2 W53-W62 N11-N22
      4  769 1382 (N32E12 L= 35)   280     97        1 ( 718/1368- 817/1398)  -7.1 E16-E08 N30-N32
      5  422 1291 (N30E40 L=  8)  1909    352        6 ( 290/1222- 573/1341)   4.8 E51-E27 N25-N32
      6 1378 1265 (N15W26 L= 73)   241     85        0 (1351/1218-1394/1310) -90.0 W25-W26 N12-N18
      7  173 1237 (N27E64 L=343)   664    163        2 ( 144/1213- 200/1263) -31.0 E67-E60 N25-N28
      8  898 1157 (N16E06 L= 41)   737    227        1 ( 791/1098- 987/1240) -45.0 E11-E01 N11-N22
      9  177 1066 (N17E64 L=344)   721    119        2 ( 153/1023- 192/1113)  68.2 E66-E61 N14-N19
     10  349  646 (S10E53 L=354)  3112    616        7 ( 279/ 476- 394/ 814)  47.7 E70-E46 S22-N00
     11  567  726 (S07E33 L= 14)   708    160        3 ( 493/ 689- 639/ 758) -29.1 E38-E29 S09-S04
     12 1449  655 (S23W23 L= 70)   447     88        1 (1404/ 616-1488/ 694)  26.6 W19-W25 S25-S20
     13  499  659 (S10E40 L=  7)   304     72        0 ( 485/ 621- 520/ 685)  53.1 E41-E37 S12-S08
     14  467  368 (S31E55 L=352)  1821    372        2 ( 398/ 330- 542/ 423)  12.5 E63-E45 S33-S26
  

    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