Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  627 1804 (N60E34 L=191)   583     77        1 ( 594/1777- 662/1819)  26.6 E38-E28 N57-N61
      2 1623 1609 (N30W55 L=280)  1488    191        1 (1544/1525-1678/1665) -68.2 W49-W59 N23-N34
      3  810 1621 (N40E09 L=215)   252     70        0 ( 779/1596- 837/1648)  31.0 E11-E06 N38-N41
      4 1269 1557 (N30W23 L=247)   673    228        0 (1192/1494-1356/1633) -57.5 W18-W27 N24-N35
      5  930 1607 (N37W00 L=224)   485     88        0 ( 900/1580- 973/1629)  11.3 E02-W03 N35-N38
      6 1788 1337 (N11W59 L=283)   684    121        0 (1768/1273-1808/1395)  76.0 W56-W60 N06-N14
      7  309  899 (S01E49 L=175)   834    172        0 ( 235/ 837- 376/ 945) -32.5 E55-E44 S05-N02
      8  287  613 (S18E61 L=164)  1382    163        7 ( 240/ 548- 337/ 677) -66.0 E65-E56 S22-S13
      9  376  625 (S18E51 L=174)   363    124        0 ( 322/ 596- 411/ 670)  20.0 E57-E46 S19-S15
     10  475  531 (S25E46 L=178)   828    258        0 ( 410/ 443- 579/ 586)  20.0 E57-E35 S30-S22
     11  462  329 (S39E64 L=160)   740    134        2 ( 447/ 264- 485/ 391)  19.8 E79-E54 S43-S34
     12 1194  296 (S52W05 L=229)   620     82        1 (1149/ 267-1241/ 317)  12.5 W00-W09 S54-S50
     13  944  184 (S59E26 L=198)  1483    145        2 ( 876/ 154-1003/ 228)   9.0 E36-E17 S62-S55
     14 1267  169 (S68W17 L=241)   524     81        1 (1231/ 155-1311/ 186)   8.7 W10-W23 S70-S65
  

    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