Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1616 1541 (N16W55 L=128)   512     93        0 (1583/1495-1642/1586)  71.6 W53-W57 N12-N18
      2 1425 1422 (N16W35 L=108)   328    105        1 (1391/1400-1471/1459) -53.1 W33-W38 N14-N18
      3 1142 1356 (N21W16 L= 89)  1847    455        1 ( 944/1226-1304/1436) -56.3 W06-W22 N09-N30
      4 1716 1167 (S06W46 L=118)   877    173        2 (1627/1142-1785/1192) -12.1 W38-W52 S08-S04
      5 1680  926 (S18W37 L=109)  1642    281        1 (1634/ 793-1725/1054)  45.0 W30-W43 S24-S12
      6  830  932 (N06E13 L= 59)   243     58        0 ( 799/ 901- 861/ 961) -68.2 E14-E11 N03-N08
      7 1765  883 (S24W43 L=116)   435     41        0 (1746/ 852-1783/ 915)  63.4 W41-W45 S25-S21
      8  825  638 (S10E22 L= 51)   284     38        1 ( 803/ 615- 850/ 658) -45.0 E23-E20 S11-S08
      9  942  578 (S17E17 L= 55)   258     67        0 ( 914/ 553- 966/ 610)  36.9 E19-E15 S17-S14
     10  736  462 (S18E34 L= 39)  1407    314        2 ( 625/ 356- 810/ 596) -90.0 E36-E31 S26-S07
     11  247  537 (S04E73 L=359)   791     62        0 ( 235/ 500- 262/ 571)  26.6 E79-E67 S06-S01
     12  584  513 (S12E41 L= 31)   251    110        0 ( 557/ 465- 602/ 556)  63.4 E43-E40 S14-S08
     13  504  464 (S13E50 L= 23)  1100    167        2 ( 412/ 420- 566/ 489) -26.6 E56-E45 S16-S09
     14  827  189 (S40E48 L= 24)   934    130        2 ( 795/ 130- 864/ 244)  42.7 E57-E43 S46-S34
  

    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