Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  586 1697 (N58E20 L=264)  1504    184        3 ( 508/1643- 673/1753)  10.8 E30-E08 N55-N61
      2  412 1621 (N57E43 L=240)   621     65        2 ( 388/1588- 434/1651)  78.7 E47-E39 N53-N59
      3  324 1594 (N57E59 L=224)   748     86        0 ( 277/1575- 372/1611)  -2.4 E73-E49 N55-N57
      4 1324 1563 (N27W34 L=317)   427     79        1 (1285/1539-1362/1586)   0.0 W30-W36 N25-N28
      5 1398 1486 (N21W35 L=318)   717    156        7 (1318/1449-1463/1514) -29.1 W30-W39 N17-N24
      6  838 1437 (N31E02 L=282)   287     84        1 ( 811/1411- 867/1475) -68.2 E03-W00 N29-N34
      7  253 1356 (N40E55 L=228)   574    106        0 ( 211/1337- 300/1376)  -4.1 E62-E48 N38-N41
      8 1699 1033 (S12W43 L=326)   359     63        0 (1683/ 998-1715/1067)  76.0 W41-W44 S14-S10
      9  254  764 (N04E59 L=225)   462     82        0 ( 235/ 720- 274/ 806) -90.0 E60-E57 N00-N06
     10 1652  697 (S31W35 L=318)   266     46        0 (1625/ 682-1682/ 710) -11.3 W32-W37 S32-S30
     11 1712  651 (S36W41 L=325)   368     17        0 (1692/ 630-1732/ 670)  45.0 W39-W43 S38-S34
     12  532  626 (S09E40 L=244)   312     96        0 ( 506/ 580- 559/ 666)  29.7 E43-E36 S11-S07
     13 1049  425 (S33E14 L=269)  1442    436        1 ( 872/ 332-1186/ 560)  12.5 E28-E01 S37-S27
     14 1249  332 (S46E03 L=280)   279     96        0 (1207/ 311-1295/ 354)  -8.1 E07-W00 S47-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