Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  706 1523 (N43E16 L=156)   299     94        1 ( 679/1493- 744/1558) -50.2 E18-E13 N39-N45
      2 1635 1423 (N19W50 L=223)  2876    435        5 (1471/1354-1778/1489) -32.5 W38-W62 N12-N26
      3 1180 1278 (N19W14 L=187)   376    133        1 (1103/1258-1237/1295) -12.5 W08-W17 N17-N20
      4  560 1091 (N16E29 L=144)   261     44        0 ( 540/1072- 586/1112)  14.0 E30-E26 N14-N17
      5 1773 1058 (S05W52 L=225)   441    145        1 (1739/1016-1810/1090)  14.0 W48-W56 S06-S02
      6 1899 1003 (S11W66 L=239)   808    134        2 (1879/ 958-1919/1040)  68.2 W63-W69 S13-S08
      7 1795  986 (S09W53 L=226)   479     89        3 (1770/ 951-1825/1012)   9.5 W50-W56 S11-S07
      8 1889  924 (S16W64 L=236)  1591    347        4 (1842/ 877-1946/ 975)   0.0 W57-W73 S18-S13
      9 1711  878 (S14W44 L=217)   371    114        0 (1698/ 815-1722/ 926) -90.0 W43-W45 S18-S11
     10 1061  856 (S04E00 L=173)   613    154        3 ( 985/ 823-1145/ 881) -12.5 E04-W05 S05-S02
     11 1147  730 (S13W03 L=176)   706    240        3 (1112/ 614-1179/ 838)  70.3 W00-W06 S20-S06
     12 1522  718 (S21W28 L=201)   333     53        2 (1499/ 697-1549/ 744) -36.9 W26-W30 S22-S18
     13 1044  497 (S27E07 L=166)   400    113        1 (1012/ 463-1070/ 538)  45.0 E09-E04 S29-S24
     14  357  449 (S23E62 L=111)   746    184        0 ( 329/ 423- 383/ 476)  24.0 E67-E58 S25-S21
  

    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