Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1239 1878 (N59E23 L=270)   559     30        0 (1218/1856-1256/1901) -53.1 E28-E20 N55-N63
      2 1037 1505 (N21E13 L=280)   400    193        0 ( 937/1458-1076/1534)   5.7 E19-E09 N18-N22
      3  309 1424 (S01E60 L=234)   512     82        0 ( 277/1395- 340/1455) -11.3 E65-E55 S02-N00
      4 1789 1230 (N29W46 L=339)  2070    403        1 (1759/1057-1837/1397) -71.6 W42-W53 N19-N40
      5 1741 1162 (N23W42 L=335)   832    223        3 (1694/1061-1771/1265) -50.7 W36-W46 N17-N28
      6 1548 1190 (N18W26 L=320)   252     92        0 (1525/1140-1572/1233)  90.0 W25-W26 N14-N20
      7 1606 1004 (N09W34 L=328)   298     49        1 (1575/ 980-1625/1026)   0.0 W32-W36 N08-N10
      8  209  966 (S30E59 L=235)  2084    292        4 ( 104/ 915- 354/ 991)   9.0 E80-E42 S34-S26
      9 1806  765 (N04W60 L=354)   798     95        0 (1755/ 745-1854/ 786)  26.6 W54-W65 N01-N06
     10  820  734 (S28E04 L=290)   441    110        0 ( 770/ 698- 854/ 776)  63.4 E05-E01 S31-S25
     11 1710  647 (S05W56 L=350)   392     33        1 (1686/ 624-1730/ 669)  45.0 W54-W58 S06-S03
     12 1269  565 (S24W29 L=323)   603    206        0 (1171/ 543-1363/ 585)  32.5 W23-W34 S27-S20
     13 1539  451 (S21W54 L=348)  1085    184        2 (1472/ 394-1596/ 519)  90.0 W50-W57 S26-S16
     14 1523  385 (S25W59 L=353)   545     86        1 (1481/ 361-1561/ 410)  59.0 W56-W61 S27-S22
  

    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