Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1245 1886 (N59W63 L= 55)   819     76        1 (1219/1853-1274/1917)   6.1 W51-W79 N57-N60
      2 1177 1853 (N59W47 L= 39)   450     62        0 (1153/1824-1193/1877)  40.6 W42-W52 N55-N61
      3 1630 1607 (N29W63 L= 55)   595     81        0 (1593/1573-1665/1625) -53.1 W58-W66 N26-N30
      4  806 1505 (N40E07 L=345)   574    161        0 ( 782/1422- 835/1574)  59.0 E09-E03 N34-N44
      5 1780 1416 (N14W65 L= 57)   459     77        1 (1752/1393-1806/1433) -36.9 W61-W68 N12-N15
      6 1702 1408 (N16W56 L= 48)   330     39        0 (1681/1390-1731/1424)  -9.5 W53-W59 N15-N17
      7  524 1310 (N31E31 L=322)  2202    493        6 ( 343/1215- 739/1419) -25.9 E50-E14 N22-N40
      8 1401 1062 (N02W23 L= 15)   225    104        0 (1346/1052-1449/1072) -15.9 W19-W26 N01-N03
      9  192  930 (N10E63 L=289)  1835    331        0 ( 115/ 800- 253/1071) -43.3 E76-E58 N02-N18
     10  999  754 (S09E06 L=347)   824    160        3 ( 962/ 680-1032/ 825)  83.7 E08-E02 S13-S04
     11 1243  691 (S17W08 L=  0)   559    237        0 (1195/ 655-1332/ 743)  -6.3 W05-W14 S19-S13
     12  523  573 (S14E41 L=311)   857    286        1 ( 458/ 518- 594/ 624) -32.0 E44-E34 S18-S10
     13  444  541 (S16E49 L=303)   481     75        0 ( 401/ 516- 470/ 574) -45.0 E51-E46 S17-S13
     14  748  380 (S30E32 L=320)  1194    239        2 ( 670/ 316- 818/ 475)  29.1 E41-E23 S34-S24
     15  598  283 (S37E52 L=300)   550     71        0 ( 559/ 270- 638/ 295)   0.0 E57-E47 S37-S35
  

    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