Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  676 1767 (N63E02 L= 66)   404     37        0 ( 655/1743- 700/1786)   0.0 E05-W01 N60-N65
      2 1492 1750 (N32W62 L=130)   593     47        3 (1468/1725-1516/1778)   0.0 W57-W66 N30-N33
      3  376 1636 (N62E50 L= 18)   951    108        2 ( 323/1599- 422/1667)   9.5 E59-E41 N60-N64
      4 1111 1429 (N25W16 L= 84)  1042    218        1 (1022/1376-1212/1453) -24.4 W11-W22 N21-N28
      5 1387 1199 (N05W25 L= 93)   239     84        0 (1346/1178-1430/1225) -45.0 W22-W27 N03-N07
      6  694 1050 (N14E18 L= 50)   221     80        0 ( 652/1033- 730/1077)  11.3 E20-E15 N13-N14
      7 1869 1020 (S19W58 L=126)   563     66        4 (1849/ 991-1891/1050)  26.6 W55-W61 S20-S16
      8  956  991 (N05E05 L= 63)   236     13        0 ( 932/ 969- 978/1014) -18.4 E05-E02 N03-N05
      9  810  917 (N04E14 L= 54)   185     60        0 ( 778/ 905- 846/ 937) -45.0 E15-E12 N02-N05
     10  729  737 (S04E24 L= 44)  1080    337        1 ( 585/ 651- 836/ 848)  13.4 E35-E14 S06-N00
     11  234  729 (N05E62 L=  6)   442     74        1 ( 206/ 699- 258/ 757) -53.1 E64-E59 N03-N07
     12 1505  473 (S42W17 L= 86)   970    215        2 (1409/ 408-1589/ 529)   6.7 W08-W25 S44-S40
     13  427  406 (S17E60 L=  8)   581     74        2 ( 396/ 374- 453/ 441) -78.7 E63-E58 S19-S14
     14 1001  252 (S42E28 L= 40)   942    171        1 ( 915/ 233-1088/ 275) -13.0 E35-E20 S44-S39
  

    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