Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1616 1562 (N28W55 L=101)   393     85        0 (1579/1530-1651/1590) -51.3 W52-W56 N25-N30
      2 1461 1475 (N26W38 L= 85)   354     80        0 (1424/1439-1493/1512) -63.4 W36-W39 N23-N29
      3 1737 1419 (N17W59 L=106)  1093    226        1 (1681/1328-1774/1495)  79.7 W54-W63 N11-N22
      4  777 1383 (N32E12 L= 35)   240     78        0 ( 738/1369- 822/1394)   0.0 E14-E08 N30-N32
      5  425 1292 (N30E39 L=  7)  1777    367        1 ( 294/1239- 577/1343)   4.6 E51-E26 N26-N32
      6 1387 1267 (N15W27 L= 73)   230     83        0 (1363/1221-1404/1311) -90.0 W25-W27 N12-N18
      7  174 1240 (N27E64 L=343)   708    167        2 ( 143/1213- 203/1262) -26.6 E67-E60 N25-N28
      8  909 1159 (N16E05 L= 41)   779    239        2 ( 806/1101- 994/1244) -47.7 E11-W00 N11-N22
      9  367  757 (S03E49 L=358)   672    111        1 ( 331/ 698- 398/ 810) -63.4 E50-E46 S06-N00
     10  571  728 (S06E33 L= 14)   602    173        2 ( 496/ 698- 639/ 753) -16.7 E38-E28 S08-S04
     11 1455  657 (S23W23 L= 70)   425     76        1 (1412/ 624-1492/ 693)  18.4 W19-W25 S24-S21
     12  347  584 (S14E56 L=351)  2226    480        4 ( 281/ 475- 401/ 676)  33.7 E70-E49 S22-S08
     13  469  366 (S31E55 L=352)  1963    394        4 ( 396/ 333- 545/ 417)  12.5 E63-E45 S33-S27
  

    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