Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  463 1626 (N36E47 L=260)  1362    168        3 ( 401/1560- 523/1690) -23.5 E61-E38 N30-N41
      2  556 1467 (N24E33 L=274)  1017    226        3 ( 527/1362- 579/1568) -77.9 E37-E29 N17-N31
      3 1768 1424 (N23W57 L=  3)  1200    166        1 (1732/1380-1821/1466)  19.7 W52-W66 N20-N26
      4  984 1423 (N21E03 L=304)   324    115        1 ( 950/1387-1016/1464) -45.0 E05-W00 N18-N23
      5  204 1370 (N19E65 L=241)   954    143        5 ( 175/1299- 228/1432) -77.5 E68-E62 N14-N23
      6 1818 1324 (N17W59 L=  6)   804     73        2 (1786/1287-1850/1355) -63.4 W55-W64 N14-N18
      7 1643 1273 (N13W41 L=348)   288     55        2 (1616/1250-1672/1293) -14.0 W39-W43 N11-N14
      8 1573 1112 (N03W35 L=341)   892    258        1 (1471/1050-1655/1179)  29.7 W27-W41 S01-N07
      9  208 1112 (N03E59 L=248)   365     59        1 ( 189/1083- 230/1140)  36.9 E60-E56 N01-N04
     10  273  897 (S10E52 L=254)   305     71        1 ( 241/ 875- 308/ 917) -18.4 E55-E49 S11-S08
     11  974  833 (S15E03 L=304)   241     60        0 ( 941/ 814-1007/ 851) -14.0 E04-W00 S16-S13
     12  128  749 (S18E78 L=228)  1583     84        2 ( 107/ 702- 148/ 785) -90.0 E86-E73 S21-S15
     13  333  570 (S31E56 L=250)   714     95        2 ( 314/ 516- 355/ 614)  37.9 E61-E51 S34-S27
     14 1247  443 (S40W18 L=325)   354    101        0 (1198/ 425-1302/ 462)  14.0 W14-W22 S41-S38
     15 1050  229 (S59W04 L=311)  2061    289        4 ( 917/ 188-1179/ 276)  11.3 E12-W19 S64-S54
  

    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