Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1006 1643 (N40E13 L=124)   714    133        3 ( 964/1579-1035/1684) -36.9 E17-E09 N35-N43
      2 1430 1581 (N43W22 L=159)   294     70        0 (1405/1563-1464/1594)  11.3 W20-W25 N41-N44
      3  385 1453 (N17E53 L= 84)   640    144        1 ( 335/1425- 428/1500)  39.8 E57-E49 N14-N20
      4 1308 1463 (N32W13 L=149)   288     48        0 (1288/1435-1330/1484)  71.6 W11-W14 N30-N33
      5  666 1273 (N10E26 L=111)   303    130        1 ( 636/1230- 703/1317) -45.0 E28-E23 N07-N12
      6  955 1258 (N13E08 L=129)   319     84        1 ( 916/1238- 996/1283)  26.6 E09-E05 N11-N14
      7  970 1156 (N07E05 L=132)   865    313        2 ( 854/1033-1072/1235) -31.0 E13-W02 N01-N10
      8 1885 1078 (N16W64 L=201)   615    102        0 (1864/1026-1901/1119) -56.3 W61-W67 N12-N18
      9  624  962 (S09E24 L=113)   538    188        1 ( 537/ 930- 697/1006)  26.6 E30-E19 S11-S05
     10  224  948 (S16E57 L= 80)   594    100        2 ( 199/ 910- 249/ 990) -45.0 E59-E53 S18-S13
     11  968  867 (S10E01 L=136)   841    177        3 ( 933/ 776- 993/ 954) -79.7 E03-W01 S15-S04
     12 1418  771 (S09W29 L=165)   329     96        0 (1388/ 726-1455/ 825)  74.1 W27-W30 S12-S05
     13 1564  732 (S10W40 L=177)   445     85        0 (1528/ 697-1592/ 776)  71.6 W37-W41 S12-S06
     14  428  571 (S38E39 L= 98)   521    148        1 ( 386/ 540- 476/ 607)  26.6 E43-E33 S41-S35
  

    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