Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  691 1617 (N19E38 L=167)  1115    305        2 ( 649/1468- 725/1751) -41.8 E49-E30 N10-N27
      2  324 1561 (N08E66 L=139)  5744    304        7 ( 231/1444- 404/1679)  82.9 E74-E58 N00-N16
      3  954 1615 (N26E22 L=183)   352    110        1 ( 932/1561- 983/1659) -60.3 E23-E19 N22-N29
      4 1604 1633 (N52W25 L=230)   416     63        0 (1567/1611-1640/1650)   6.3 W20-W29 N50-N53
      5  573 1568 (N13E44 L=161)   304     57        1 ( 548/1536- 600/1596)  90.0 E45-E42 N10-N15
      6 1028 1342 (N12E08 L=197)   260    104        0 (1007/1282-1046/1386) -74.1 E09-E07 N07-N14
      7  286 1124 (S18E51 L=154)  1867    303        1 ( 195/ 998- 365/1227)  50.9 E59-E46 S27-S11
      8  401  909 (S28E37 L=168)  2630    595        2 ( 154/ 780- 650/1007)  25.6 E70-E20 S41-S16
      9 1263  881 (S07W17 L=222)   310    125        0 (1230/ 828-1309/ 919)  71.6 W16-W18 S10-S04
     10 1000  696 (S24W08 L=213)   264     72        1 ( 958/ 679-1038/ 712)  53.1 W06-W10 S26-S22
     11  466  534 (S51E28 L=177)   342     87        0 ( 432/ 501- 501/ 566) -14.0 E32-E24 S52-S49
     12 1670  507 (S14W61 L=266)  1158    130        3 (1609/ 479-1734/ 534)  31.0 W56-W66 S17-S10
     13 1711  453 (S15W70 L=275)  2205    148        2 (1661/ 414-1761/ 502)  54.5 W64-W79 S17-S10
     14  794  400 (S50W07 L=212)   321     42        0 ( 776/ 371- 813/ 430) -38.7 W04-W09 S51-S47
     15  983  322 (S48W25 L=231)  1593    260        4 ( 862/ 255-1093/ 377)  10.3 W14-W38 S50-S45
  

    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