Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  343 1459 (N50E44 L=  8)   420    108        0 ( 301/1434- 391/1472)  -8.7 E51-E37 N48-N51
      2  651 1317 (N32E15 L= 37)  1554    387        3 ( 469/1265- 818/1355) -17.7 E29-E04 N25-N35
      3  478 1141 (N25E31 L= 22)   324     81        0 ( 445/1118- 516/1165) -38.7 E33-E28 N23-N27
      4  849 1093 (N14E08 L= 45)   204    110        1 ( 827/1047- 888/1136)  31.0 E09-E04 N11-N15
      5  252 1042 (N25E53 L=360)   716    163        0 ( 210/ 992- 299/1112) -45.0 E57-E48 N20-N29
      6  692 1047 (N15E18 L= 34)   300    137        0 ( 626/1019- 751/1064) -29.7 E22-E15 N11-N17
      7  381  896 (N14E43 L=  9)   244     70        1 ( 352/ 875- 421/ 922) -31.0 E45-E40 N11-N15
      8 1649  888 (S20W34 L= 87)   370     39        0 (1630/ 859-1665/ 922)  33.7 W32-W36 S21-S17
      9  722  605 (S10E29 L= 24)   337    104        1 ( 674/ 579- 774/ 626)  -8.1 E32-E25 S11-S09
     10 1720  587 (S43W39 L= 92)   409     70        0 (1685/ 570-1754/ 608)   0.0 W34-W43 S43-S41
     11  427  486 (S11E55 L=357)   362     52        1 ( 400/ 462- 450/ 505) -56.3 E57-E53 S12-S09
     12  605  328 (S25E52 L=  1)  2158    325        5 ( 516/ 205- 656/ 474)  49.4 E67-E46 S34-S13
     13 1060  329 (S38E21 L= 32)  1448    289        3 ( 954/ 255-1151/ 432)  20.9 E31-E10 S40-S32
     14  881  237 (S39E39 L= 13)   564     78        0 ( 853/ 219- 920/ 262) -53.1 E41-E36 S41-S36
  

    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