Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  569 1688 (N27E53 L=143)  1434    210        2 ( 518/1614- 597/1780) -49.8 E62-E49 N20-N33
      2 1486 1710 (N57W19 L=216)  1181    112        4 (1436/1677-1533/1741)  -4.8 W13-W26 N53-N60
      3 1267 1633 (N42E00 L=196)   561     94        1 (1235/1589-1298/1668) -38.7 E03-W02 N38-N43
      4 1375 1459 (N32W12 L=208)   280     69        2 (1352/1422-1401/1486) -31.0 W09-W14 N30-N33
      5 1502 1338 (N27W23 L=220)   239     65        1 (1473/1310-1530/1358) -11.3 W20-W25 N26-N28
      6  207 1113 (S15E61 L=135)   524    103        3 ( 181/1073- 239/1153)  50.2 E64-E57 S18-S12
      7  463  854 (S26E33 L=164)  1004    232        2 ( 385/ 781- 528/ 934)  55.3 E39-E28 S32-S19
      8 1665  721 (S04W49 L=246)   342     35        1 (1640/ 703-1693/ 741)  26.6 W47-W51 S05-S03
      9  451  673 (S38E33 L=164)   732     99        3 ( 418/ 634- 501/ 709)  26.6 E35-E27 S40-S35
     10 1582  628 (S12W47 L=243)   459     59        1 (1539/ 607-1616/ 654)  26.6 W43-W49 S13-S09
     11  501  510 (S49E28 L=169)   797    114        1 ( 470/ 461- 541/ 556)  58.0 E31-E23 S52-S44
     12  600  355 (S59E17 L=180)   744     78        1 ( 568/ 325- 634/ 393)  56.3 E22-E12 S63-S54
     13 1578  344 (S28W68 L=265)  1227    120        1 (1518/ 319-1633/ 375)  22.6 W61-W76 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