Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  946 1769 (N55E10 L=141)   440     95        1 ( 911/1736- 993/1784)   0.0 E13-E04 N52-N57
      2  471 1576 (N38E49 L=101)  2512    323        4 ( 344/1482- 615/1650) -10.1 E76-E31 N31-N42
      3 1647 1560 (N37W55 L=205)   593     71        0 (1618/1527-1670/1595)  24.0 W49-W59 N35-N39
      4  265 1487 (N30E70 L= 80)  1163    137        1 ( 237/1436- 301/1530)  -9.5 E84-E60 N26-N32
      5 1732 1403 (N26W56 L=206)  1133    237        4 (1682/1289-1774/1510)  78.7 W53-W59 N18-N33
      6  962 1439 (N29E05 L=145)   787    225        2 ( 852/1395-1059/1470)  -8.1 E12-W02 N26-N31
      7  859 1113 (N09E10 L=140)   211     75        0 ( 834/1076- 878/1139) -63.4 E11-E09 N06-N10
      8  307  954 (S03E50 L=101)   341     76        0 ( 269/ 927- 339/ 984)  33.7 E53-E46 S04-N00
      9 1783  858 (S08W55 L=205)   568    164        0 (1766/ 777-1807/ 933) -63.4 W52-W58 S12-S02
     10  779  741 (S15E15 L=135)   226    132        1 ( 768/ 691- 796/ 818) -82.9 E16-E14 S17-S09
     11  855  763 (S13E10 L=140)   348    120        2 ( 794/ 739- 903/ 786)  -8.1 E14-E07 S14-S11
     12  699  626 (S22E22 L=129)   299    119        0 ( 644/ 616- 763/ 636)   6.3 E25-E16 S22-S21
     13 1443  545 (S27W31 L=181)   904    196        1 (1398/ 507-1524/ 607) -24.4 W26-W37 S30-S22
     14  509  409 (S39E44 L=106)   882    145        0 ( 458/ 370- 553/ 474)  31.0 E53-E36 S42-S33
     15  828  212 (S57E21 L=129)   442      9        0 ( 810/ 193- 847/ 232)  45.0 E23-E18 S59-S54
  

    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