Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  954 1831 (N64E07 L=340)   963    166        1 ( 881/1806-1033/1847)  11.3 E17-W04 N61-N66
      2 1204 1465 (N32W14 L=  1)   693    300        2 (1102/1419-1338/1529) -22.4 W06-W23 N28-N36
      3  437 1435 (N30E46 L=301)   594    152        1 ( 387/1386- 499/1467)  18.4 E49-E39 N26-N32
      4 1799 1383 (N23W66 L= 53)  1362    168        6 (1729/1323-1847/1439) -33.7 W59-W74 N19-N27
      5  201 1312 (N21E70 L=277)  2642    232        8 ( 159/1231- 230/1427) -77.0 E78-E63 N15-N28
      6 1667 1350 (N22W49 L= 36)   359     94        2 (1636/1323-1691/1391)  38.7 W45-W51 N20-N24
      7  415 1324 (N23E45 L=302)   531    146        2 ( 375/1282- 474/1380) -24.4 E49-E38 N20-N26
      8  898 1260 (N19E08 L=339)   312    112        2 ( 842/1241- 945/1276)  15.9 E11-E04 N17-N19
      9 1633 1173 (N11W42 L= 29)   355     80        1 (1612/1137-1650/1209) -68.2 W40-W43 N08-N13
     10 1860  834 (S12W66 L= 52)  1149    177        2 (1835/ 758-1891/ 916)  73.3 W63-W69 S16-S06
     11 1748  857 (S09W51 L= 38)   560     63        0 (1728/ 825-1770/ 885) -63.4 W49-W53 S11-S07
     12  209  821 (S09E63 L=283)  1190    110        2 ( 174/ 772- 260/ 849)  17.1 E69-E56 S12-S07
     13 1605  716 (S17W40 L= 27)   755    134        1 (1545/ 682-1672/ 757)  16.7 W35-W45 S19-S14
     14  662  655 (S19E25 L=322)   268     97        0 ( 647/ 606- 672/ 700)  80.5 E26-E23 S22-S16
     15 1029  509 (S30E01 L=346)   805    195        3 ( 986/ 437-1084/ 590)  74.7 E03-W03 S35-S23
  

    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