Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  767 1808 (N35E49 L=257)  2761    392        3 ( 635/1715- 851/1874)  42.3 E61-E35 N27-N40
      2  471 1689 (N19E63 L=242)  1331    121        3 ( 441/1628- 502/1746) -48.4 E68-E58 N14-N23
      3 1243 1363 (N19W03 L=308)   481    186        0 (1207/1285-1284/1443) -41.2 E01-W07 N15-N23
      4 1858 1123 (N26W56 L=  2)   451    118        0 (1817/1096-1888/1171)  -5.7 W50-W60 N25-N28
      5 1799  883 (N10W55 L=  0)   698    160        1 (1770/ 812-1826/ 967) -83.7 W53-W56 N06-N15
      6 1677  931 (N09W42 L=348)   421     95        0 (1645/ 898-1706/ 966)  63.4 W40-W43 N05-N11
      7  979  915 (S13W01 L=306)   586    251        0 ( 892/ 850-1085/ 950)  15.3 E03-W08 S16-S10
      8  149  884 (S36E70 L=235)  1179    123        1 ( 113/ 830- 191/ 924)  14.6 E84-E61 S39-S32
      9  301  881 (S33E47 L=258)   298     56        0 ( 275/ 860- 327/ 901)  -9.5 E50-E44 S33-S31
     10  831  779 (S25E04 L=302)   327    110        1 ( 805/ 740- 862/ 833) -51.3 E05-E01 S26-S21
     11  501  740 (S37E27 L=279)   422     85        0 ( 456/ 719- 549/ 757)  26.6 E30-E22 S38-S34
     12 1790  678 (S00W63 L=  9)  1807    157        1 (1747/ 641-1849/ 745)  -3.4 W55-W73 S02-N01
     13  944  551 (S35W11 L=316)   963    198        1 ( 853/ 531-1050/ 577)  30.3 W04-W17 S38-S31
     14 1495  293 (S30W67 L= 13)  2617    235        5 (1396/ 258-1588/ 329)  35.5 W58-W78 S35-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