Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1490 1708 (N57W20 L=216)  1013    113        2 (1441/1675-1538/1740)  15.9 W13-W27 N53-N60
      2  570 1667 (N25E51 L=145)   908    124        2 ( 529/1614- 600/1718) -71.6 E55-E48 N20-N29
      3 1272 1633 (N42W00 L=196)   443     55        0 (1241/1599-1303/1660) -21.8 E02-W03 N39-N43
      4 1379 1461 (N32W12 L=208)   298     71        1 (1357/1431-1405/1495) -45.0 W10-W14 N30-N34
      5  202 1104 (S16E62 L=134)   644    117        3 ( 170/1068- 239/1144)  35.5 E65-E57 S18-S13
      6  463  848 (S26E33 L=164)  1056    271        2 ( 365/ 774- 536/ 933)  40.6 E41-E27 S32-S19
      7 1669  720 (S04W50 L=246)   314     46        1 (1644/ 705-1695/ 740)  33.7 W47-W52 S05-S02
      8  453  671 (S38E32 L=164)   745    113        2 ( 422/ 626- 509/ 711)  32.0 E35-E27 S41-S35
      9 1585  625 (S12W47 L=243)   492     65        2 (1545/ 603-1620/ 652)  31.0 W44-W49 S13-S09
     10  507  511 (S48E27 L=169)   701    112        1 ( 475/ 464- 544/ 557)  63.4 E31-E23 S52-S44
     11  530  447 (S53E25 L=171)   329     56        1 ( 502/ 423- 557/ 472)  35.5 E28-E21 S55-S49
     12  602  354 (S59E17 L=179)   785     70        1 ( 572/ 323- 637/ 389)  45.0 E21-E12 S63-S54
     13 1584  342 (S28W70 L=266)  1265    117        2 (1523/ 317-1633/ 364)  22.6 W62-W78 S30-S25
  

    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