Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  758 1810 (N34E50 L=256)  2947    395        4 ( 623/1715- 848/1872)  26.6 E62-E36 N27-N40
      2  468 1691 (N19E64 L=243)  1301    116        3 ( 440/1630- 501/1746) -52.1 E69-E59 N14-N23
      3 1235 1369 (N20W02 L=308)   521    178        1 (1202/1286-1277/1445) -48.8 E01-W06 N15-N23
      4  891 1208 (N01E12 L=294)   190     59        0 ( 864/1186- 923/1228)   0.0 E14-E10 N00-N01
      5 1572 1026 (N10W32 L=338)   238     78        1 (1549/ 998-1599/1061) -21.8 W29-W34 N09-N12
      6 1684  951 (N10W42 L=348)   638    148        1 (1632/ 896-1738/1005)  60.9 W39-W45 N05-N14
      7 1796  885 (N10W54 L=  0)   835    148        1 (1766/ 816-1826/ 967)  90.0 W52-W55 N06-N15
      8  970  916 (S13E00 L=306)   601    281        0 ( 876/ 852-1085/ 954)  14.0 E04-W08 S16-S10
      9  147  888 (S36E71 L=236)  1192    119        0 ( 115/ 831- 185/ 929)  18.4 E83-E62 S39-S32
     10  295  885 (S33E48 L=258)   303     60        1 ( 270/ 862- 322/ 909) -26.6 E50-E44 S33-S31
     11  825  784 (S25E05 L=302)   439    142        1 ( 802/ 735- 863/ 851) -74.1 E06-E01 S27-S20
     12  496  743 (S36E27 L=279)   432     82        2 ( 452/ 724- 546/ 762)  26.6 E30-E22 S38-S34
     13 1786  680 (S00W63 L=  9)  1760    128        0 (1744/ 639-1841/ 745)  -4.1 W55-W71 S02-N01
     14  941  555 (S35W10 L=316)   953    198        1 ( 851/ 536-1045/ 580)  26.6 W04-W16 S38-S31
     15 1472  288 (S31W66 L= 12)  3612    255        5 (1339/ 245-1585/ 332)  39.1 W56-W78 S38-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