Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1408 1711 (N37W45 L=238)   380     53        2 (1386/1685-1436/1734)  15.9 W41-W48 N34-N38
      2  720 1635 (N44E12 L=182)   435     80        1 ( 678/1602- 753/1666)  18.4 E15-E09 N42-N46
      3 1111 1538 (N30W15 L=208)   707    124        2 (1050/1499-1177/1566)  -6.3 W10-W19 N27-N32
      4 1684 1500 (N18W56 L=250)  1061    178        1 (1624/1441-1747/1551) -48.8 W52-W60 N13-N22
      5  880 1433 (N27E03 L=191)   886    231        4 ( 782/1370- 946/1497)  20.0 E09-W02 N24-N31
      6  497 1418 (N33E31 L=163)  1137    255        1 ( 405/1392- 629/1446)  -6.3 E38-E20 N30-N35
      7 1910  983 (S16W67 L=260)  2162    306        3 (1870/ 826-1940/1092)  61.9 W61-W72 S24-S09
      8  762  897 (S03E17 L=176)   290    157        0 ( 743/ 837- 808/ 970)  50.2 E19-E13 S06-N00
      9 1667  927 (S15W40 L=234)   263     72        0 (1629/ 910-1694/ 951)  21.8 W37-W42 S15-S13
     10 1165  896 (S09W06 L=200)   472    166        3 (1124/ 832-1234/ 939)  35.5 W03-W10 S12-S07
     11 1812  805 (S25W54 L=248)  1644    257        2 (1763/ 753-1888/ 892) -48.0 W48-W65 S28-S18
     12  693  592 (S20E28 L=165)  1212    495        3 ( 542/ 476- 845/ 736)  24.0 E42-E15 S25-S13
     13  392  455 (S24E59 L=134)   925    175        2 ( 358/ 379- 433/ 523)  59.0 E63-E54 S29-S19
  

    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