Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  542 1681 (N26E55 L=101)  1048    162        3 ( 509/1616- 570/1742) -42.0 E63-E49 N21-N30
      2  358 1590 (N17E68 L= 89)  2533    143        5 ( 316/1521- 403/1643) -48.8 E77-E61 N12-N20
      3  498 1556 (N17E50 L=106)  1171    164        2 ( 441/1508- 567/1587)  32.0 E55-E44 N13-N20
      4  578 1509 (N16E41 L=115)   462     53        0 ( 560/1476- 597/1540) -68.2 E43-E39 N13-N18
      5  354 1484 (N10E59 L= 97)   390     77        0 ( 333/1455- 391/1524)  78.7 E60-E57 N08-N13
      6  428 1458 (N10E51 L=106)   378     92        0 ( 384/1440- 465/1479)  23.2 E54-E47 N08-N11
      7 1805 1287 (N33W53 L=210)   417     28        0 (1780/1270-1825/1305)   0.0 W50-W56 N31-N34
      8  271 1230 (S06E57 L=100)   400     71        0 ( 248/1199- 294/1253)  45.0 E58-E54 S08-S04
      9  485  972 (S17E33 L=124)   238     44        2 ( 467/ 945- 503/ 999)  90.0 E33-E31 S19-S15
     10  252  947 (S24E54 L=103)   520     69        3 ( 233/ 918- 274/ 986)  76.0 E56-E51 S25-S21
     11 1033  664 (S23W09 L=166)   218     28        1 (1015/ 643-1058/ 684)   0.0 W07-W10 S24-S22
     12  413  548 (S47E39 L=118)  1195    170        3 ( 352/ 521- 494/ 595)   6.7 E46-E29 S49-S44
     13 1450  539 (S20W41 L=197)   644    119        1 (1425/ 471-1473/ 590) -54.5 W38-W44 S24-S17
     14  933  484 (S37W09 L=165)   295     49        0 ( 907/ 460- 961/ 506)  63.4 W06-W10 S39-S35
     15  895  273 (S55W17 L=173)  1668    208        1 ( 854/ 183- 938/ 367) -57.7 W12-W26 S65-S46
  

    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