Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1372 1745 (N36W51 L=291)  2997    469        3 (1198/1714-1618/1778) -22.1 W36-W77 N26-N42
      2 1625 1606 (N21W61 L=301)  1859    340        3 (1476/1519-1741/1679) -53.1 W52-W68 N12-N28
      3 1568 1546 (N19W51 L=291)  1954    355        1 (1444/1434-1706/1654) -66.0 W47-W57 N09-N28
      4  653 1369 (N33E15 L=225)  1148    473        3 ( 450/1327- 855/1404) -14.9 E31-E01 N26-N36
      5 1090 1175 (N11W07 L=247)   458    151        2 (1044/1098-1131/1237) -90.0 W05-W08 N05-N15
      6 1779 1117 (S10W51 L=291)   996    260        3 (1697/1019-1835/1211)  28.1 W41-W59 S14-S05
      7 1630 1031 (S11W37 L=277)   286     80        0 (1606/ 994-1651/1070) -78.7 W35-W38 S13-S08
      8 1856  879 (S26W56 L=297)   680    163        0 (1818/ 797-1886/ 947)  41.2 W51-W61 S30-S23
      9  723  701 (S07E25 L=215)   552    222        1 ( 675/ 602- 749/ 790)  80.5 E27-E23 S13-S01
     10 1731  714 (S33W42 L=282)   751    139        1 (1694/ 676-1778/ 780) -48.0 W38-W47 S37-S27
     11 1494  548 (S37W19 L=259)  2024    563        3 (1326/ 385-1652/ 771)  28.0 W02-W34 S44-S26
     12  582  648 (S07E36 L=204)   451    155        0 ( 491/ 630- 647/ 665) -15.3 E42-E31 S09-S05
     13  998  561 (S22E13 L=227)   636    101        1 ( 965/ 517-1018/ 621)  45.0 E16-E10 S24-S18
     14 1037  201 (S50E30 L=210)  1770    271        3 ( 907/ 158-1145/ 257)  -2.2 E44-E17 S52-S47
  

    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