Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1042 1867 (N49E30 L=153)   712    114        0 ( 983/1846-1097/1887)   5.2 E37-E25 N47-N50
      2  518 1699 (N22E56 L=127)  1223    159        4 ( 477/1635- 564/1774) -65.6 E59-E52 N17-N28
      3 1206 1405 (N19W01 L=184)   524    204        0 (1142/1324-1262/1484) -35.0 E04-W06 N15-N22
      4 1112 1314 (N11E02 L=181)   792    318        0 (1083/1175-1177/1437) -60.3 E05-W04 N04-N18
      5  972 1403 (N13E12 L=171)   253     75        2 ( 940/1371- 996/1433) -76.0 E14-E11 N11-N15
      6  771 1391 (N08E24 L=159)   210     16        0 ( 753/1372- 787/1412) -45.0 E24-E22 N06-N08
      7  217 1223 (S12E61 L=122)   632    101        1 ( 171/1187- 261/1257)  24.0 E67-E57 S14-S09
      8 1854  953 (N12W58 L=241)   474    124        2 (1839/ 903-1876/1006) -68.2 W55-W61 N10-N15
      9 1586  869 (S01W37 L=220)   462    111        0 (1531/ 845-1642/ 888)   7.1 W33-W41 S02-N00
     10  388  797 (S35E39 L=144)   706    209        0 ( 332/ 759- 448/ 850)  37.9 E44-E33 S37-S30
     11  174  795 (S38E67 L=116)   935    113        1 ( 132/ 751- 224/ 824)   7.8 E80-E58 S41-S36
     12 1829  803 (N04W60 L=243)   398     59        1 (1799/ 791-1860/ 817)  33.7 W56-W64 N01-N05
     13 1190  757 (S18W16 L=199)   251     52        1 (1170/ 727-1216/ 778) -71.6 W14-W17 S19-S16
     14  711  425 (S52E05 L=178)   468    113        0 ( 658/ 398- 760/ 459)  -5.7 E10-W00 S53-S50
  

    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