Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1587 1706 (N36W60 L=134)  1361    135        1 (1533/1668-1650/1746)   8.9 W50-W82 N33-N38
      2  731 1531 (N34E14 L= 60)   271     42        0 ( 704/1510- 756/1550) -36.9 E16-E12 N32-N35
      3  908 1471 (N28E02 L= 72)   343    158        0 ( 828/1457- 979/1486) -12.5 E07-W02 N26-N29
      4  584 1378 (N26E25 L= 49)   692    156        2 ( 505/1339- 657/1408) -18.4 E31-E19 N22-N28
      5  429 1163 (N14E37 L= 37)   779    227        1 ( 378/1094- 509/1258)  45.0 E41-E30 N10-N19
      6  132 1213 (N21E70 L=  4)  1238    112        1 ( 101/1163- 167/1255) -22.4 E81-E63 N17-N24
      7  487  976 (N02E34 L= 40)  1011    338        2 ( 391/ 920- 602/1069) -26.6 E40-E26 S01-N08
      8 1535  797 (S20W31 L=105)  1122    424        2 (1484/ 617-1613/ 961)  71.6 W26-W36 S31-S10
      9  747  819 (S10E19 L= 55)   237     49        0 ( 722/ 793- 776/ 838)  18.4 E20-E17 S11-S08
     10  227  714 (S10E63 L= 11)   715     92        0 ( 207/ 669- 252/ 750)  59.0 E66-E59 S12-S07
     11  922  693 (S19E10 L= 64)   201    100        0 ( 889/ 660- 965/ 715)  21.8 E12-E07 S21-S18
     12 1620  643 (S31W39 L=113)   754    153        1 (1555/ 603-1674/ 697)  26.6 W33-W43 S32-S27
     13  279  498 (S24E71 L=  3)   556     42        0 ( 261/ 472- 300/ 522)  16.7 E76-E65 S25-S22
  

    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