Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  647 1743 (N57E37 L=274)   371     44        0 ( 620/1725- 671/1760)   9.5 E40-E34 N55-N58
      2  851 1526 (N38E10 L=301)   519    156        0 ( 785/1489- 927/1555)  10.3 E14-E03 N35-N39
      3 1644 1440 (N26W50 L=  2)   304     30        0 (1628/1416-1659/1465)  76.0 W48-W52 N23-N27
      4 1777 1384 (N20W62 L= 14)  1685    260        2 (1732/1301-1827/1438) -73.3 W58-W69 N14-N24
      5 1436 1388 (N24W31 L=342)   303    120        0 (1383/1370-1496/1408) -26.6 W27-W35 N22-N26
      6  241 1217 (N19E59 L=252)  1220    154        2 ( 208/1144- 270/1292) -83.7 E61-E56 N14-N23
      7  948 1132 (N12E04 L=307)   548    214        0 ( 860/1091-1026/1160)  -6.3 E09-W00 N08-N13
      8  358 1053 (N09E45 L=266)   508    164        0 ( 331/ 989- 409/1085)  56.3 E47-E40 N04-N10
      9  633  893 (S01E25 L=286)  1749    451        0 ( 567/ 762- 771/1071) -58.6 E29-E17 S10-N09
     10 1483  934 (S04W29 L=340)   768    251        1 (1376/ 888-1567/1007)  13.0 W21-W34 S06-N00
     11  276  644 (S17E60 L=251)  1853    168        6 ( 236/ 586- 322/ 724) -66.0 E65-E56 S21-S11
     12  902  565 (S24E11 L=300)   341    139        0 ( 841/ 542- 976/ 588) -20.6 E14-E06 S25-S21
     13 1049  346 (S41E03 L=308)  2104    320        4 ( 959/ 251-1138/ 465)  45.0 E11-W04 S49-S31
     14  609  260 (S47E49 L=262)  1598    151        3 ( 530/ 238- 685/ 285)   9.5 E68-E38 S50-S44
  

    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