Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  893 1827 (N45E31 L=162)   470     65        0 ( 860/1810- 931/1841)  21.8 E34-E27 N42-N46
      2  634 1693 (N29E42 L=151)  1644    279        3 ( 543/1617- 731/1738)  45.0 E47-E33 N22-N33
      3 1667 1565 (N42W41 L=235)   970     90        1 (1632/1528-1705/1603) -23.2 W37-W45 N39-N45
      4  257 1524 (N14E71 L=122)  1737    135        2 ( 218/1461- 285/1568)  82.9 E77-E66 N09-N17
      5  322 1504 (N13E60 L=133)   450     76        1 ( 301/1472- 347/1537)  90.0 E62-E58 N10-N15
      6 1512 1494 (N32W24 L=218)   308    102        1 (1477/1460-1554/1521) -26.6 W21-W27 N30-N33
      7 1553 1381 (N25W28 L=222)   542    114        0 (1511/1330-1604/1418) -29.7 W24-W32 N22-N26
      8 1762 1279 (N24W47 L=240)   748    169        0 (1709/1202-1808/1327) -29.1 W41-W51 N20-N26
      9  175 1074 (S15E64 L=130)  6385    438       14 ( 105/ 919- 259/1186)  60.6 E75-E54 S23-S07
     10 1116  985 (S07W06 L=200)   220     72        1 (1085/ 965-1149/1014)  45.0 W04-W07 S08-S05
     11 1529  815 (S09W35 L=229)   240     96        1 (1489/ 776-1567/ 854)  59.0 W33-W36 S11-S06
     12  502  785 (S29E31 L=162)   942    266        2 ( 400/ 746- 636/ 820)  -3.0 E39-E20 S30-S27
     13 1712  660 (S13W55 L=249)   760    118        1 (1679/ 622-1764/ 704)  50.2 W52-W58 S16-S09
     14  383  451 (S54E54 L=139)  1199    145        1 ( 327/ 397- 443/ 496)  12.5 E78-E42 S58-S50
     15 1539  448 (S29W52 L=246)  2650    339        3 (1383/ 399-1694/ 489)  29.5 W41-W65 S35-S22
  

    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