Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1722 1467 (N30W59 L=336)  1583    190        2 (1658/1397-1787/1520) -48.4 W52-W66 N25-N34
      2  490 1471 (N31E42 L=234)   305     69        0 ( 464/1450- 535/1492) -23.2 E44-E37 N29-N32
      3  890 1452 (N30E10 L=266)   254    109        0 ( 839/1425- 938/1483) -23.2 E13-E06 N28-N32
      4 1800  971 (S01W56 L=332)  2708    286        7 (1716/ 874-1897/1063)  19.4 W47-W69 S06-N04
      5  511 1013 (N02E33 L=243)   248     74        0 ( 487/ 975- 534/1039) -45.0 E35-E31 N00-N03
      6  196  899 (S06E63 L=213)  2390    234        5 ( 141/ 791- 229/ 986) -63.4 E71-E59 S13-N00
      7  247  877 (S07E57 L=219)   500    114        0 ( 230/ 823- 263/ 932) -90.0 E58-E55 S10-S04
      8 1809  869 (S07W58 L=334)   391     61        0 (1793/ 832-1824/ 899)  63.4 W56-W59 S09-S05
      9 1906  860 (S09W73 L=349)   918     60        4 (1880/ 828-1928/ 890) -45.0 W68-W78 S11-S06
     10  335  688 (S19E51 L=225)  1957    326        5 ( 243/ 607- 475/ 760)  17.2 E66-E37 S25-S14
     11 1862  708 (S18W71 L=348)   912     58        2 (1834/ 674-1886/ 738) -29.7 W65-W77 S20-S16
     12 1690  667 (S20W49 L=325)   334     76        3 (1667/ 644-1707/ 701)  90.0 W47-W51 S21-S17
     13  363  617 (S24E50 L=226)   398     72        1 ( 337/ 594- 391/ 640)  31.0 E53-E47 S25-S22
     14 1003  549 (S27E01 L=275)   511    111        0 ( 956/ 517-1042/ 593)  38.7 E04-W01 S29-S23
     15 1307  524 (S29W20 L=297)  1345    242        3 (1201/ 472-1415/ 587)  19.7 W13-W28 S32-S24
  

    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