Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  952 1769 (N56E09 L=140)   500     91        0 ( 914/1748-1002/1784)  12.5 E12-E03 N53-N57
      2  489 1569 (N37E46 L=103)  2296    314        4 ( 369/1482- 634/1642) -11.9 E67-E29 N31-N42
      3 1658 1559 (N37W57 L=206)   679     96        0 (1626/1528-1699/1584)   4.8 W50-W62 N35-N39
      4  270 1482 (N30E69 L= 80)  1342    139        2 ( 241/1431- 307/1531) -15.3 E82-E59 N26-N32
      5 1732 1427 (N28W58 L=207)  1019    195        2 (1688/1344-1768/1518)  80.5 W54-W61 N22-N34
      6  986 1438 (N29E03 L=146)   935    266        0 ( 871/1397-1104/1469)  -7.1 E11-W05 N26-N31
      7  874 1112 (N08E09 L=140)   252     76        0 ( 842/1074- 893/1140) -53.1 E11-E08 N06-N10
      8  319  954 (S03E49 L=101)   413     80        0 ( 278/ 926- 353/ 985)  29.7 E52-E45 S04-N00
      9 1793  857 (S08W56 L=205)   765    173        0 (1775/ 780-1825/ 936) -55.0 W53-W61 S12-S02
     10  793  710 (S16E15 L=135)  1198    429        5 ( 654/ 614- 912/ 818)  29.1 E24-E06 S23-S09
     11 1449  550 (S27W31 L=180)   968    170        1 (1407/ 506-1522/ 614) -24.4 W26-W37 S30-S22
     12  528  427 (S37E41 L=108)  1105    182        0 ( 468/ 367- 576/ 515)  33.7 E51-E33 S42-S30
     13  833  209 (S57E21 L=128)   513     33        1 ( 804/ 191- 855/ 231)  14.0 E25-E17 S59-S54
  

    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