Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  549 1746 (N25E61 L=229)  3547    337        8 ( 449/1679- 682/1861) -86.6 E70-E54 N19-N36
      2  676 1798 (N31E55 L=235)   670     62        0 ( 652/1769- 701/1825) -68.2 E58-E52 N28-N34
      3  923 1752 (N35E33 L=257)  2535    442        4 ( 771/1622-1012/1820)   5.7 E42-E20 N27-N41
      4  605 1658 (N20E48 L=242)   532    118        2 ( 582/1607- 629/1715) -45.0 E53-E45 N16-N23
      5  404 1651 (N15E67 L=223)   684     52        3 ( 383/1626- 430/1681) -33.7 E72-E63 N13-N17
      6  222 1296 (S10E65 L=225)  2142    175        7 ( 153/1243- 262/1364)  38.7 E75-E59 S13-S05
      7  197 1181 (S17E64 L=226)  2081    183        5 ( 159/1085- 239/1243) -84.3 E70-E59 S22-S12
      8 1654 1093 (N17W36 L=326)   854    287        0 (1617/ 986-1700/1235) -47.5 W30-W42 N12-N24
      9 1491  998 (N06W27 L=318)   243     94        0 (1479/ 952-1509/1039) -80.5 W26-W28 N03-N09
     10  246  835 (S37E54 L=236)  1491    171        3 ( 189/ 780- 295/ 909)  33.7 E64-E47 S41-S31
     11 1818  815 (N08W59 L=350)   983     95        0 (1777/ 770-1849/ 861)  60.3 W56-W62 N03-N10
     12  442  820 (S33E33 L=258)   390     54        0 ( 419/ 797- 472/ 850) -21.8 E34-E29 S34-S31
     13 1186  799 (S13W15 L=306)   675    245        0 (1100/ 751-1291/ 840)  28.6 W11-W22 S18-S10
     14 1866  758 (N07W69 L=359)   898     85        4 (1839/ 724-1891/ 800)  90.0 W66-W73 N04-N09
  

    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