Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1346 1816 (N58E08 L=271)   754     76        0 (1308/1794-1372/1847)  23.2 E11-E04 N54-N62
      2 1273 1376 (N20W04 L=283)   680    227        1 (1194/1279-1310/1437) -31.0 E02-W08 N15-N23
      3  464 1384 (S01E44 L=234)   390     84        0 ( 439/1349- 498/1419)  -8.1 E47-E40 S02-N01
      4  288 1369 (S05E60 L=219)   523     84        1 ( 253/1345- 329/1394)  -5.7 E64-E54 S05-S03
      5  191 1318 (S09E70 L=209)   612     39        1 ( 167/1302- 216/1337)  15.9 E74-E65 S10-S08
      6 1838 1147 (N26W52 L=331)   507     52        0 (1808/1128-1865/1164)   8.1 W48-W56 N24-N27
      7 1908  998 (N21W65 L=343)  2520    255        5 (1870/ 917-1942/1108) -55.0 W59-W74 N16-N26
      8  183 1062 (S25E63 L=215)   498     48        1 ( 161/1031- 211/1093)  53.1 E66-E59 S26-S22
      9 1802 1046 (N19W50 L=328)   411     62        1 (1784/1017-1818/1077)  63.4 W47-W52 N16-N20
     10  364  923 (S29E41 L=237)  1497    345        2 ( 219/ 883- 535/ 957)   9.2 E57-E26 S31-S26
     11 1020  632 (S28W12 L=290)   294    109        0 ( 979/ 597-1060/ 670)  74.1 W10-W13 S31-S24
     12 1423  467 (S24W45 L=323)   908    213        0 (1324/ 448-1529/ 493)  33.7 W38-W51 S28-S19
     13 1602  390 (S22W66 L=344)  3550    291        9 (1506/ 322-1709/ 447)  49.8 W57-W79 S28-S15
     14  612  299 (S68E07 L=272)   570     58        1 ( 586/ 267- 632/ 333) -45.0 E11-E02 S71-S64
     15  869  252 (S59W26 L=304)   344     39        1 ( 848/ 238- 896/ 274)  11.3 W22-W29 S61-S57
  

    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