Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1202 1782 (N56W04 L= 86)   995    184        0 (1115/1759-1283/1809)   0.0 E06-W13 N54-N57
      2  557 1586 (N30E44 L= 39)  1322      0        0 ( 504/1497- 641/1642)  74.7 E47-E38 N23-N35
      3  668 1563 (N30E34 L= 49)   770    158        1 ( 642/1471- 706/1629) -61.4 E38-E30 N23-N34
      4 1387 1542 (N38W21 L=103)   614    116        0 (1332/1521-1444/1563)  12.5 W16-W25 N36-N40
      5  365 1499 (N22E57 L= 25)  1189    138        4 ( 318/1427- 408/1559) -71.6 E61-E53 N16-N25
      6 1776 1355 (N30W56 L=139)  1865    225        2 (1667/1327-1872/1402)  -2.0 W44-W72 N27-N32
      7  283 1203 (N03E54 L= 29)   910    176        2 ( 217/1134- 321/1247)  -9.5 E61-E49 N00-N05
      8  659  970 (S07E22 L= 61)   685    200        0 ( 601/ 896- 715/1053)  63.4 E25-E18 S11-S01
      9 1270  966 (N00W15 L= 98)   896    233        2 (1196/ 879-1312/1049)  68.2 W11-W17 S05-N05
     10  987  988 (S02E02 L= 81)   277    104        0 ( 971/ 942-1003/1040)  90.0 E02-W00 S04-N01
     11 1808  657 (S13W66 L=149)  1113    143        2 (1778/ 598-1840/ 721)  76.0 W63-W70 S16-S08
     12 1504  639 (S17W37 L=120)   814    242        3 (1419/ 590-1558/ 696)  21.8 W30-W41 S20-S13
     13 1535  519 (S25W44 L=127)   764    166        1 (1454/ 486-1604/ 553)  31.0 W38-W48 S27-S21
     14 1283  348 (S40W32 L=114)   959    120        3 (1235/ 322-1336/ 386)  20.6 W26-W36 S42-S37
  

    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