Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1266 1677 (N37W31 L=238)   285     22        0 (1244/1655-1289/1693)   0.0 W29-W33 N35-N38
      2  585 1587 (N44E24 L=183)   357     86        0 ( 547/1555- 627/1609)  15.9 E27-E20 N41-N44
      3  636 1398 (N29E20 L=187)  3316    883        4 ( 269/1307- 983/1498) -33.4 E54-W05 N23-N35
      4 1822  946 (S17W55 L=262)  3458    610        7 (1670/ 715-1934/1158)  36.3 W40-W71 S29-S05
      5 1832  950 (S17W56 L=263)   434     33        0 (1812/ 928-1853/ 976) -36.9 W53-W58 S17-S14
      6 1483  877 (S15W26 L=233)   270     49        0 (1450/ 858-1515/ 894)  11.3 W23-W28 S15-S14
      7  953  849 (S08E07 L=200)   430    106        0 ( 918/ 798-1000/ 881)  26.6 E09-E03 S11-S06
      8 1635  795 (S23W37 L=244)   348     75        0 (1621/ 757-1655/ 838) -80.5 W35-W38 S25-S19
      9  577  564 (S20E38 L=169)   799    277        1 ( 467/ 505- 636/ 664)  21.3 E48-E30 S22-S14
     10  262  619 (S12E63 L=143)   550     46        0 ( 246/ 587- 282/ 642)  26.6 E67-E59 S13-S10
     11  426  490 (S22E53 L=153)   516    129        1 ( 407/ 421- 450/ 536)  49.4 E56-E49 S26-S19
     12  328  471 (S22E66 L=141)  2359    147        5 ( 275/ 397- 390/ 511) -26.6 E76-E59 S26-S18
     13  855  466 (S31E22 L=185)   245     30        1 ( 835/ 446- 876/ 491)  45.0 E23-E20 S31-S28
  

    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