Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  884 1789 (N60W21 L=297)   351     37        1 ( 857/1767- 902/1808) -63.4 W18-W24 N57-N61
      2 1293 1754 (N41W49 L=324)   569     65        1 (1255/1733-1323/1778) -36.9 W44-W51 N39-N43
      3  684 1695 (N59E06 L=270)   644    138        1 ( 623/1666- 748/1724)   0.0 E13-W01 N55-N61
      4 1159 1605 (N37W27 L=303)  1091    213        2 (1064/1564-1269/1639) -14.0 W20-W36 N33-N39
      5  940 1572 (N41W11 L=287)   280     50        1 ( 909/1555- 963/1591)   0.0 W08-W13 N39-N42
      6  536 1103 (N22E28 L=247)   476    143        0 ( 488/1065- 591/1159) -49.4 E31-E24 N19-N26
      7 1543 1051 (S05W31 L=307)   907    225        0 (1517/ 936-1578/1143)  48.0 W26-W35 S10-N00
      8  493 1017 (N18E33 L=243)   418    134        0 ( 426/ 985- 555/1041)   0.0 E38-E28 N17-N19
      9 1754  714 (S32W43 L=319)  2788    366        2 (1634/ 594-1828/ 867)  30.1 W30-W51 S36-S23
     10 1486  677 (S25W20 L=295)   355     70        0 (1454/ 649-1523/ 707)  11.3 W17-W22 S26-S23
     11  473  482 (S13E51 L=225)   846    181        1 ( 427/ 423- 538/ 533) -66.0 E53-E48 S17-S08
     12  393  416 (S16E64 L=212)  2954    237        5 ( 317/ 343- 465/ 518)  80.5 E73-E57 S21-S08
     13  749  337 (S28E39 L=237)  1523    244        0 ( 669/ 299- 845/ 381) -24.4 E44-E29 S30-S23
     14 1062  276 (S41E21 L=255)  1747    313        0 ( 957/ 196-1201/ 369)  12.5 E34-E07 S45-S37
     15  888  153 (S47E47 L=229)   503     30        1 ( 863/ 137- 909/ 172) -71.6 E50-E43 S49-S45
  

    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