Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  500 1189 (N16E31 L=318)   477    116        2 ( 452/1155- 559/1229)  14.0 E34-E26 N13-N17
      2 1681  823 (S20W42 L= 30)  4847    927       14 (1549/ 522-1762/1200) -87.2 W32-W50 S38-N03
      3 1930 1066 (S08W69 L= 58)   714     81        1 (1901/1026-1947/1104)  33.7 W64-W72 S10-S06
      4  126  942 (N06E69 L=280)  1704    132        4 (  64/ 897- 185/ 981) -15.9 E84-E60 N02-N08
      5 1393  938 (S10W21 L= 10)   242    109        0 (1360/ 891-1426/ 971)  38.7 W18-W23 S12-S08
      6  391  649 (S15E48 L=301)  1240    316        5 ( 352/ 528- 439/ 823)  71.6 E51-E43 S22-S04
      7  611  667 (S16E31 L=318)   689    189        0 ( 585/ 579- 635/ 757)  55.0 E35-E28 S21-S11
      8  951  582 (S26E11 L=338)  2671    684        5 ( 648/ 477-1231/ 704)   9.7 E33-W08 S29-S21
      9 1478  490 (S40W27 L= 16)   490     90        1 (1437/ 462-1522/ 529)  23.2 W23-W30 S41-S36
     10  371  484 (S25E58 L=291)  1249    114        4 ( 314/ 456- 431/ 511) -15.3 E64-E52 S26-S22
     11  481  365 (S34E56 L=293)  1345    196        2 ( 448/ 293- 521/ 443)  21.4 E69-E46 S38-S29
     12 1230  411 (S42W06 L=355)   273     79        0 (1197/ 395-1274/ 431) -18.4 W03-W09 S43-S39
     13  714  202 (S51E49 L=299)   839     71        2 ( 689/ 168- 746/ 238)  14.9 E57-E42 S53-S47
  

    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