Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  779 1802 (N35E47 L=257)  2929    415        4 ( 628/1708- 868/1866)  47.5 E58-E34 N26-N40
      2  486 1687 (N19E61 L=243)   939    118        1 ( 457/1631- 514/1744) -52.1 E66-E57 N14-N23
      3  534 1501 (N08E45 L=260)   391     85        2 ( 513/1462- 555/1543) -59.0 E46-E42 N06-N11
      4 1270 1341 (N19W05 L=309)   414    151        0 (1236/1276-1310/1412) -40.6 W01-W08 N16-N22
      5 1597 1016 (N11W34 L=338)   279     76        1 (1571/ 983-1627/1048) -11.3 W31-W36 N09-N12
      6 1684  910 (N08W43 L=347)   458    101        0 (1652/ 873-1719/ 953)  74.1 W41-W45 N04-N11
      7 1811  867 (N10W56 L=  1)   789    158        0 (1784/ 798-1839/ 942)  90.0 W54-W58 N05-N15
      8  976  903 (S14W01 L=305)   566    235        0 ( 899/ 863-1087/ 938)  29.1 E02-W07 S17-S10
      9  155  873 (S36E69 L=235)  1061    114        0 ( 120/ 824- 195/ 922)  21.3 E81-E61 S39-S32
     10  530  734 (S36E24 L=280)   294     58        0 ( 496/ 722- 566/ 749)  18.4 E26-E20 S37-S34
     11 1797  672 (S00W64 L=  9)  1601    149        1 (1759/ 633-1853/ 739)  -3.8 W56-W74 S02-N01
     12  975  541 (S34W13 L=317)   813    181        1 ( 895/ 523-1071/ 570)  31.0 W08-W18 S37-S30
     13 1462  276 (S32W66 L= 10)  2434    314        5 (1319/ 229-1588/ 320)  29.5 W54-W79 S39-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