Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1056 1502 (N28W10 L=116)  1027    287        2 ( 958/1397-1158/1596) -63.4 W05-W14 N20-N36
      2  714 1438 (N30E13 L= 92)  1307    281        3 ( 658/1316- 806/1542)  47.5 E17-E05 N23-N36
      3 1539 1498 (N20W43 L=148)   924    111        5 (1488/1449-1585/1534) -26.6 W38-W47 N17-N22
      4 1344 1481 (N22W28 L=134)   800    226        2 (1246/1435-1452/1521) -36.0 W23-W34 N18-N26
      5 1477 1401 (N15W35 L=140)   232    103        1 (1458/1366-1498/1445)  45.0 W32-W37 N13-N17
      6  426 1350 (N30E36 L= 70)  1295    286        7 ( 309/1300- 590/1387) -17.7 E47-E22 N24-N33
      7 1052 1224 (N12W05 L=110)   752    266        0 ( 938/1156-1120/1302)  28.6 E02-W09 N08-N15
      8 1795 1084 (S08W52 L=158)  1442    287        6 (1722/ 989-1860/1189) -71.6 W46-W59 S13-S01
      9 1882 1014 (S14W61 L=167)  1401    138        6 (1834/ 952-1915/1082)  63.4 W55-W66 S17-S09
     10  667  965 (N03E22 L= 84)   473    156        0 ( 584/ 949- 736/ 982) -11.3 E27-E17 N01-N03
     11 1546  819 (S20W29 L=135)  1579    438        0 (1397/ 721-1716/ 957)  17.7 W18-W43 S23-S14
     12  880  900 (S04E10 L= 95)   422    141        0 ( 819/ 862- 933/ 920) -33.7 E13-E07 S07-S02
     13  711  887 (S02E20 L= 85)   182     30        0 ( 695/ 863- 730/ 909)  45.0 E21-E18 S03-S01
     14 1729  850 (S21W44 L=150)   322     78        1 (1709/ 807-1745/ 894)  78.7 W42-W45 S23-S18
     15  421  761 (S05E42 L= 63)  1001    288        0 ( 348/ 623- 483/ 864) -78.7 E46-E40 S14-N01
     16  303  697 (S07E54 L= 51)  1715    447        5 ( 250/ 511- 364/ 841)  64.7 E59-E48 S18-N01
     17  638  764 (S08E27 L= 78)   553    181        0 ( 574/ 731- 690/ 809) -45.0 E31-E23 S10-S05
     18 1658  724 (S28W38 L=144)   445    125        0 (1603/ 707-1727/ 743)  -5.2 W33-W44 S28-S25
     19  499  692 (S10E39 L= 67)   258     30        1 ( 479/ 670- 515/ 716) -90.0 E39-E37 S11-S08
     20  502  442 (S26E49 L= 57)   968    206        0 ( 433/ 378- 582/ 512)  15.9 E59-E38 S28-S22
     21 1407  303 (S55W19 L=124)  1048    166        0 (1332/ 278-1488/ 344)   6.7 W10-W27 S56-S52
  

    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