Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  995 1788 (N52W27 L= 20)   498     66        1 ( 956/1771-1035/1806) -38.7 W23-W29 N50-N54
      2 1260 1775 (N42W46 L= 38)   376     80        0 (1222/1751-1287/1803)  11.3 W40-W50 N41-N43
      3 1556 1676 (N27W61 L= 53)   740     92        1 (1508/1650-1601/1701) -29.7 W58-W65 N24-N29
      4 1494 1589 (N24W48 L= 41)   570    160        0 (1416/1568-1560/1607) -29.1 W43-W53 N20-N26
      5 1006 1505 (N32W12 L=  5)   636    195        0 ( 916/1480-1101/1527) -28.6 W05-W17 N27-N34
      6 1693 1475 (N12W58 L= 51)  1351    157        4 (1630/1409-1739/1527) -82.9 W54-W62 N07-N15
      7 1341 1490 (N22W32 L= 25)   467    175        0 (1250/1474-1420/1505) -20.0 W26-W37 N19-N24
      8 1492 1456 (N16W41 L= 34)   241     65        0 (1464/1428-1529/1482) -68.2 W39-W42 N13-N18
      9  427 1062 (N19E37 L=316)   284     62        1 ( 399/1032- 453/1090) -26.6 E38-E34 N17-N20
     10  460  906 (N09E37 L=316)   237    128        1 ( 428/ 853- 487/ 969)  50.2 E40-E33 N06-N12
     11 1494  564 (S36W20 L= 13)   355     76        1 (1465/ 529-1525/ 589)  21.8 W17-W22 S37-S34
     12 1362  450 (S40W07 L=  0)   394     80        0 (1320/ 429-1400/ 472)  -9.5 W04-W10 S41-S38
     13 1519  299 (S62W24 L= 17)   775     90        0 (1476/ 271-1568/ 324)  -4.1 W17-W32 S63-S59
     14  597  279 (S32E57 L=295)   997     99        3 ( 562/ 245- 640/ 320)  81.9 E61-E53 S35-S28
  

    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